- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- LP por excblock na folha
×
Linguagem de Programação ADVPL
Perguntas LP por excblock na folha
- vcosta
- Autor do Tópico
- Desconectado
- Membro Dourado
Menos
Mais
- Postagens: 175
- Obrigados Recebidos: 0
10 anos 9 meses atrás #20882
por vcosta
LP por excblock na folha foi criado por vcosta
Bom dia a todos,
Montei uma lp com execblock para contabilização da folha, mas por execblock não funciona, alguem sabe se realmente não funciona?
crei uma execblock para retornar uma conta contabil conforme centro de custo,
na lp estou colocando assim:
EXECBLOCK ("LPGPEA01")
mas quando rodo a contabilização informe que "a função de usuario criada por u_lpgpea01 não esta compilada, mas compilou corretamente.
seja o fonte abaixo :
se alguem puder me ajudar agradeço imensamente.
Valter
User Function LPGPEA01()
_cConta := ""
If SRZ010.RZ_CC == "110202000"
_cConta := "81020101"
ElseIf SRZ010.RZ_CC $ "110505000/110401003/110401001/110504000/110401002/110404000"
_cConta := "82020101"
ElseIf SRZ010.RZ_CC $ "110101000/110102000/110503000/110501000/110001001"
_cConta := "83020101"
Else
_cConta :="81020101"
EndIF
Return(_cConta)
Montei uma lp com execblock para contabilização da folha, mas por execblock não funciona, alguem sabe se realmente não funciona?
crei uma execblock para retornar uma conta contabil conforme centro de custo,
na lp estou colocando assim:
EXECBLOCK ("LPGPEA01")
mas quando rodo a contabilização informe que "a função de usuario criada por u_lpgpea01 não esta compilada, mas compilou corretamente.
seja o fonte abaixo :
se alguem puder me ajudar agradeço imensamente.
Valter
User Function LPGPEA01()
_cConta := ""
If SRZ010.RZ_CC == "110202000"
_cConta := "81020101"
ElseIf SRZ010.RZ_CC $ "110505000/110401003/110401001/110504000/110401002/110404000"
_cConta := "82020101"
ElseIf SRZ010.RZ_CC $ "110101000/110102000/110503000/110501000/110001001"
_cConta := "83020101"
Else
_cConta :="81020101"
EndIF
Return(_cConta)
Por favor Acessar ou Registrar para participar da conversa.
- rcaps
- Desconectado
- Membro Sénior
Menos
Mais
- Postagens: 69
- Obrigados Recebidos: 0
10 anos 9 meses atrás #20905
por rcaps
Respondido por rcaps no tópico LP por excblock na folha
Olá,
Funciona sim desde de que você use a sintaxe correta :
Por exemplo no LP da Folha A01 eu uso na conta a credito / débito apenas a chamada da minha User Function ->
U_MINHAFUNC(parametros) somente, mas se usar a chamada da função com EXECBLOCK use EXECBLOCK("U_LPGPEA01") pois ai indica que é uma função de usuário e deve rodar normalmente desde de que a função já esteja compilado no RPO no momento da alteração do LP
Abs.
Raul
Funciona sim desde de que você use a sintaxe correta :
Por exemplo no LP da Folha A01 eu uso na conta a credito / débito apenas a chamada da minha User Function ->
U_MINHAFUNC(parametros) somente, mas se usar a chamada da função com EXECBLOCK use EXECBLOCK("U_LPGPEA01") pois ai indica que é uma função de usuário e deve rodar normalmente desde de que a função já esteja compilado no RPO no momento da alteração do LP
Abs.
Raul
Por favor Acessar ou Registrar para participar da conversa.
- mbrigagao
- Desconectado
- Membro Platina
Menos
Mais
- Postagens: 350
- Obrigados Recebidos: 1
10 anos 9 meses atrás - 10 anos 9 meses atrás #20912
por mbrigagao
Respondido por mbrigagao no tópico LP por excblock na folha
Valter,
Normalmente isso acontece por estar usando um ambiente e compilando os fontes em outro.
A sua chamada da função pelo execblock está correta, nos meus LP's eu utilizo assim EXECBLOCK("CONTABRA",.F.)
At.
Normalmente isso acontece por estar usando um ambiente e compilando os fontes em outro.
A sua chamada da função pelo execblock está correta, nos meus LP's eu utilizo assim EXECBLOCK("CONTABRA",.F.)
At.
Ultima edição: 10 anos 9 meses atrás por mbrigagao.
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- LP por excblock na folha
Tempo para a criação da página:0.118 segundos