Scribd Logo
Carregar

Bem-vindo(a) ao Scribd!

  • 56 visualizações

    CTSETFIL PRW

    Enviado por

    Emerson Coelho
    A função CTSETFIL permite que usuários manipulem as filiais selecionadas. Ela adiciona todas as filiais de todas as empresas, ignorando se o usuário tem permissão sobre aquela filial ou não. A função ftdsEmp auxilia nisso, abrindo a tabela SM0 e adicionando cada filial à lista retornada.

    Direitos autorais:

    © All Rights Reserved
    Baixe no formato TXT, PDF, TXT ou leia online no Scribd

    CTSETFIL PRW

    Enviado por

    Emerson Coelho
    56 visualizações1 página
    A função CTSETFIL permite que usuários manipulem as filiais selecionadas. Ela adiciona todas as filiais de todas as empresas, ignorando se o usuário tem permissão sobre aquela filial ou não. A função ftdsEmp auxilia nisso, abrindo a tabela SM0 e adicionando cada filial à lista retornada.

    Título original

    CTSETFIL.prw.txt

    Direitos autorais

    © © All Rights Reserved

    Formatos disponíveis

    TXT, PDF, TXT ou leia online no Scribd

    Você considera este documento útil?

    Este conteúdo é inapropriado?

    A função CTSETFIL permite que usuários manipulem as filiais selecionadas. Ela adiciona todas as filiais de todas as empresas, ignorando se o usuário tem permissão sobre aquela filial ou não. A função ftdsEmp auxilia nisso, abrindo a tabela SM0 e adicionando cada filial à lista retornada.

    Direitos autorais:

    © All Rights Reserved
    Baixe no formato TXT, PDF, TXT ou leia online no Scribd
    Fazer download em txt, pdf ou txt
    56 visualizações1 página

    CTSETFIL PRW

    Enviado por

    Emerson Coelho
    A função CTSETFIL permite que usuários manipulem as filiais selecionadas. Ela adiciona todas as filiais de todas as empresas, ignorando se o usuário tem permissão sobre aquela filial ou não. A função ftdsEmp auxilia nisso, abrindo a tabela SM0 e adicionando cada filial à lista retornada.

    Direitos autorais:

    © All Rights Reserved
    Baixe no formato TXT, PDF, TXT ou leia online no Scribd
    Fazer download em txt, pdf ou txt
    Você está na página 1de 1

    #include 'protheus.

    ch'
    #include 'parmtype.ch'

    /** {Protheus.doc} CTSETFIL


    PE se encontra na fun��o ADMXFUN, permite usuario poder manipular as filiais
    selecionada .
    Ex : Um usuario especifico poderia adicionar uma filial que normalmente nao tem
    acesso
    @param: Nil
    @author: TotvsAgro
    @since: 06/02/2020
    @Uso: SigaFin
    */
    user function CTSETFIL()

    Local aFil := ParamIxb[1]


    Local nI := ParamIxb[2]

    IF FWIsInCallStack('FA240Borde') .or. FWIsInCallStack('FA420GER') // Montando


    bordero a pagar
    afil := ftdsEmp(aClone(aFil), nI)
    EndIF

    Return(aFil)

    //<< Func�o para adicionar todas as filiais de todas as empresas ( ignora se uere
    tem permissao ou nao sobre a filial) >>
    Static function ftdsEmp(aFil, nI)

    Local aFilAux := {}

    Local aSM0 := AdmAbreSM0()


    Local nInc := 0

    //IF nI = Len ( aSM0 )


    For nInc := 1 To Len( aSM0 )
    aAdd(aFilAux, {aSM0[nInc][SM0_CODFIL],aSM0[nInc]
    [SM0_NOMRED],Transform(aSM0[nInc][SM0_CGC],PesqPict("SA1","A1_CGC"))})
    NEXT
    //EndIf

    Return (aFilAux)

    Você também pode gostar