Pular para o conteúdo principal

Postagem em destaque

🚀 Oferecendo Serviços Remotos de Desenvolvedor AdvPL e Mais 🖥️

Por
🚀 Oferecendo Serviços Remotos de Desenvolvedor AdvPL e Mais 🖥️ Olá pessoal, Espero que este post encontre todos vocês bem! É com grande entusiasmo que compartilho que estou expandindo meus serviços como Desenvolvedor AdvPL para novos desafios e colaborações. Com mais de duas décadas de experiência sólida, minha jornada profissional tem sido enriquecedora, com a oportunidade de participar de projetos empolgantes ao longo dos anos. Agora, estou ansioso para trazer minha experiência e habilidades para novas equipes e projetos, trabalhando de forma remota. Minha expertise abrange não apenas AdvPL, mas também outras tecnologias-chave, incluindo JS, SQL, Infraestrutura e Otimização de Processos. Acredito que essa combinação de conhecimentos me permite oferecer soluções abrangentes e eficazes para uma variedade de necessidades de desenvolvimento. Acredito que a tecnologia tem o poder de transformar negócios e impulsionar o sucesso, e estou comprometido em ajudar meus clientes a alcançar seu
6 comentários

Protheus :: Advpl :: Entendendo RPCSetEnv

Imagem
Por

GTalk:
Sergio E. S. Souza para mim
10:32 Sergio: eae naldo, bom dia.
posso te fazer uma pergunta, que ninguem soube me responder ate agora?
6 minutos
10:38 eu: diga-la
10:39 ??
10:40 Sergio: vou te explicar calma, rs
10:42 é a respeito do RPCSETENV em um job.
faço a preparacao do ambiente e inicio a leitura de um arquivo e ao fazer a leitura desse arquivo eh que fico sabendo a filial que devo logar para gerar o pedido de venda, entao aqui vai a pergunta:
É possivel executar o rpcsetenv em uma determinada filial e depois na mesma execução mudar a filial invocando novamnete o rpcsetenv para que o execauto inclua na filial correta?
10:43 eu: sim garoto
é possível
desde que vc utilize via StartJob
10:44 hehe
mania de garoto .. garota... ehehehe
devia falar rapa
hehe
...
mas funfa sim
exemplo...

…

#INCLUDE "PROTHEUS.CH"
#INCLUDE "TBICONN.CH"

Static __cCRLF    := CRLF

/*/
    Funcao:        U_Wally()
    Autor:        Marinaldo de Jesus (Sharing the Experience)
    Data:        27/09/2011
    Descricao:    Demonstrar o uso de RPCSetEnv com Troca de Empresa e/ou Filial
    Sintaxe:    <vide parametros formais>
/*/
User Function Wally()
    EvalPrg( { || Wally() } , "01" , "01" , "SIGAESP" )
Return( NIL )

/*/
    Funcao:        Wally()
    Autor:        Marinaldo de Jesus (Sharing the Experience)
    Data:        27/09/2011
    Descricao:    Wally foi dar uma volta, visitar suas filiais e nos mostrar por onde andou
    Sintaxe:    <vide parametros formais>
/*/
Static Function Wally()

    Local aMsg    := {}
    Local cMsg    := "Quem Fui Eu? " + __cCRLF

    //Estando no Ambiente Atual
    MsgInfo( "Quem Sou Eu? "  + "Empresa: " + cEmpAnt + " Filial: " + cFilAnt , ProcName() + " : " + AllTrim(Str(ProcLine()) ) )

    //Agora testado o novo ambiente 01/02
    aSize( aMsg    , 0 )
    MsgRun( "Aguarde..." , "Dando Uma Volta" , { || ChangeWEF( @aMsg , "01" , "02" , .T. ) } )
    //Carrego as Msg por Onde Passei
    aEval( aMsg , { |cMessage| cMsg += ( cMessage + __cCRLF    ) } )

    //Agora testado o novo ambiente 01/03
    aSize( aMsg    , 0 )
    MsgRun(  "Aguarde..." , "Dando ++Uma Volta" , { || ChangeWEF( @aMsg , "01" , "03" , .T. ) }  )
    //Carrego as Msg por Onde Passei
    aEval( aMsg , { |cMessage| cMsg += ( cMessage + __cCRLF    ) } )

    //Agora testado o novo ambiente 01/01
    aSize( aMsg    , 0 )
    MsgRun(  "Aguarde..." , "Dando Uma Volta++" , { || ChangeWEF( @aMsg , "01" , "01" , .T. ) }  )
    //Carrego as Msg por Onde Passei
    aEval( aMsg , { |cMessage| cMsg += ( cMessage + __cCRLF    ) } )

    //Verifica por Onde Passei
    MsgInfo( cMsg , ProcName() + " : " + AllTrim(Str(ProcLine())) + " :: " + "Caminhos de Wally" )

    //Retesta o ambiente atual
    MsgInfo( "Quem Sou Eu? "  + "Empresa: " + cEmpAnt + " Filial: " + cFilAnt , ProcName() + " : " + AllTrim(Str(ProcLine())) )

Return( NIL )

/*/
    Funcao:        Wally()
    Autor:        Marinaldo de Jesus (Sharing the Experience)
    Data:        27/09/2011
    Descricao:    Transporte de Wally
    Sintaxe:    <vide parametros formais>
/*/
Static Function ChangeWEF( aMsg , cEmp , cFil , lRecursa )

    Local cMsg    := ""

    Local lRpcSet := !( cEmpAnt == cEmp .and. cFil == cFilAnt )

    IF !( lRpcSet )
        cMsg    := u_GetMsg( @aMsg , @cEmp , @cFil , @lRpcSet , @lRecursa )
    Else
        cMsg    := StartJob( "u_GetMsg" , GetEnvServer() , .T. , @aMsg , @cEmp , @cFil , @lRpcSet , @lRecursa )
    EndIF

    aAdd( aMsg , cMsg )

Return( NIL )

/*/
    Funcao:        GetMsg()
    Autor:        Marinaldo de Jesus (Sharing the Experience)
    Data:        27/09/2011
    Descricao:    Caminhos do Wally
    Sintaxe:    <vide parametros formais>
/*/
User Function GetMsg( aMsg , cEmp , cFil , lRpcSet , lRecursa )

    Local cMsg    := ""

    IF ( lRpcSet )
        RpcSetType( 3 )
        RpcSetEnv( cEmp , cFil )
    EndIF

    DEFAULT lRecursa    := .F.
    IF ( lRecursa )

        lRecursa        := .F.

        //Agora testado o novo ambiente
        ChangeWEF( @aMsg , "01" , "03" , @lRecursa )
        ChangeWEF( @aMsg , "01" , "02" , @lRecursa )
        ChangeWEF( @aMsg , "01" , "01" , @lRecursa )
        ChangeWEF( @aMsg , cEmp , cFil , @lRecursa )

        aEval( aMsg , { |cMessage| cMsg += ( cMessage + __cCRLF    ) } )

    Else

        cMsg := "Quem Sou Eu? "  + "Empresa: " + cEmpAnt + " Filial: " + cFilAnt +  " " + ProcName() + " : " + AllTrim(Str(ProcLine()))

    EndIF

Return( cMsg )

/*/
    Funcao:        EvalPrg()
    Autor:        Marinaldo de Jesus (Sharing the Experience)
    Data:        27/09/2011
    Descricao:    Start de Wally
    Sintaxe:    <vide parametros formais>
/*/
Static Function EvalPrg( bExec , cEmp , cFil , cModulo )

    Local bWindowInit    := { || Eval( bExec ) }
    Local lPrepEnv        := ( IsBlind() .or. ( Select( "SM0" ) == 0 ) )
    Local uRet

    BEGIN SEQUENCE

        IF ( lPrepEnv )
            RpcSetType( 3 )
            PREPARE ENVIRONMENT EMPRESA( cEmp ) FILIAL ( cFil ) MODULO ( cModulo )
            InitPublic()
            SetsDefault()
            SetModulo( "SIGAESP2" , "ESP2" )
        EndIF

            IF ( Type(  "oMainWnd" ) == "O" )
                uRet := Eval( bExec )
                BREAK
            EndIF

            bWindowInit    := { || uRet := Eval( bExec ) }
            DEFINE WINDOW oMainWnd FROM 001,001 TO 400,500 TITLE OemToAnsi( FunName() )
              ACTIVATE WINDOW oMainWnd MAXIMIZED ON INIT ( Eval( bWindowInit ) , oMainWnd:End() )
        IF ( lPrepEnv )
            RESET ENVIRONMENT
        EndIF   

    END SEQUENCE

Return( uRet )

Teremos:

image

image

image

image 

image

image

RcpSetEnv(), é, de certa forma, um pouco demorada. Então, se a questão for apenas trocar a filial para a ExecAuto poderiamos fazer:

Local cSvFilAnt := cFilAnt

    cFilAnt := "02"
    //codigo
    //ExecAuto(...)
    //+codigo
    cFilAnt := "03"
    //codigo
    //ExecAuto(...)
    //+codigo
    cFilAnt := cSvFilAnt

Apesar do primeiro exemplo ser mais demorado, ele é mais seguro e funcionará com todos os modelos de configuração de Empresa.

P.S: Não preciso executar um RpcClearEnv() após um StartJob() uma vez que a Thread, após o seu retorno, e finalizada por completo.

E.T.: baixe-o clicando aqui.

 

[]s

иαldσ dj

Marcadores:

Comentários

Postar um comentário

Postagens mais visitadas deste blog

BlackTDN :: RLeg ~ Desvendando a Função ParamBox

Por
Para quem precisar desenvolver uma interface de entrada de dados, coisa rápida, e não quer ter aquele trabalhão danado que todos já sabemos, o Protheus tem uma função que ajuda muito, é uma interface semelhante a função Pergunte, porém com muito mais opção de objeto de entrada de dados, alias até colocar o scrollbox desta interface com todos os objetos em outra MsDialog ou Wizard é simples. Vejam o exemplo abaixo, boa sorte! Rleg. //---------------------------------------------------------- // Função exemplo utilizando a função ParamBox() //---------------------------------------------------------- User Function xParamBox() Local aRet := {} Local aParamBox := {} Local aCombo := {"Janeiro","Fevereiro","Março","Abril","Maio","Junho","Julho","Agosto","Setembro","Outubro","Novembro","Dezembro"} Local i := 0 Private cCadastro := "xParambox" // ---------------
20 comentários
Leia mais

Protheus :: Chamando Funções do Menu Diretamente e sem a Necessidade de Login

Por
Ferne$ perguntou: "...é possível abrir alguma rotina do sistema sem solicitar login ao usuário, como por exemplo a rotina MATA010..." Sim Ferne$, é possível sim. Abaixo um Exemplo para a Chamada à função MATA010 sem a necessidade de Login no sistema. #INCLUDE "PROTHEUS.CH" #INCLUDE "TBICONN.CH" /*/ Funcao: MATA010Ex Data: 30/04/2011 Autor: Marinaldo de Jesus Descricao: Executar a Funcao MATA010 diretamente sem a necessidade de LOGIN no Protheus Sintaxe: 1 ) U_MATA010Ex ( Chamada diretamente na Tela de Entrada do Sistema ) ; ou 2 ) totvsclient.exe -q -p=u_MATA010Ex -a=01;01 -c=rnp_local -e=rnp -m -l ( Chamada Via Linha de Comando ) /*/ User Function MATA010Ex( cEmpFil ) Local aEmpFil Local bWindowInit := { || __Execute( "MATA010()" , "xxxxxxxxxxxxxxxxxxxx" , "MATA010" , "SIGAFAT" , "SIGAFAT", 1 , .T. ) } Local cEmp Local cFil Local cMod Local cModName := "SIGAFAT" DEFA
30 comentários
Leia mais

BlackTDN :: Customizando a interface de Login no Protheus e by You

Por
A publicação “ BlackTDN :: By You e sua nova tela de login ”  de nosso amigo OBona deu o que falar e, em função disso, esse que a muito não vos escreve resolveu criar uma versão onde será possível personalizar, “por completo”, a tela de login no Protheus/by You. Considerando que OBona já havia “mapeado, identificado e customizado” as imagens peguei-as emprestadas para o exemplo que se segue: O primeiro passo para a customização “total” da interface de login do Protheus/by You será implementar o “Ponto de Entrada” ChgPrDir (Diretório de impressão) . Usaremos esse PE juntamente como programa U_FindMsObject.prg (apresentado pela primeira vez em: Protheus :: ADVPL : The Container : Presents Pandora's box ). Diferente do exemplo proposto por OBona, que substitui, durante o processo de compilação, as imagens padrões do sistema (excluindo-as) por imagens customizadas (com o mesmo nome) este novo exemplo mantém, no RPO, as imagens padrões adicionando novas imagens customizadas que serã
21 comentários
Leia mais