- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Condição de pagamento
×
Linguagem de Programação ADVPL
Perguntas Condição de pagamento
- luiz_asf0802
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 4
- Obrigados Recebidos: 0
11 anos 9 meses atrás #10752
por luiz_asf0802
Condição de pagamento foi criado por luiz_asf0802
Boa noite galera.
No contas a receber tenho a rotina de Faturas a receber. Quando junto os titulos e confirmo preciso que na condição de pagamento ja traga a condição que esta no cadastro do cliente em si. Achei o PE F280CON porem este nao consegui configurar. Se alguem ja fez isso ou tiver uma ideia agradeço se compartilhar.
Obrigado.
No contas a receber tenho a rotina de Faturas a receber. Quando junto os titulos e confirmo preciso que na condição de pagamento ja traga a condição que esta no cadastro do cliente em si. Achei o PE F280CON porem este nao consegui configurar. Se alguem ja fez isso ou tiver uma ideia agradeço se compartilhar.
Obrigado.
Por favor Acessar ou Registrar para participar da conversa.
- kanaamlrr
- Desconectado
- Membro Platina
Menos
Mais
- Postagens: 1576
- Obrigados Recebidos: 4
11 anos 9 meses atrás #10763
por kanaamlrr
Respondido por kanaamlrr no tópico Condição de pagamento
Cara faz o seguinte:
Eu não testei, então ajusta ae, testa e posta pra gente como ficou.
Valeu!
User Function F280CON()
Local aParam := PARAMIXB
Local aRet := {}
aAdd(aRet,dDataBase)//data a ser gravada
aAdd(aRet,aParam[1])//valor
aAdd(aRet,cCond)//sua nova condição de pgto
Return aRet
Eu não testei, então ajusta ae, testa e posta pra gente como ficou.
Valeu!
Por favor Acessar ou Registrar para participar da conversa.
- luiz_asf0802
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 4
- Obrigados Recebidos: 0
11 anos 9 meses atrás #10801
por luiz_asf0802
Respondido por luiz_asf0802 no tópico Condição de pagamento
Boa noite cara.
Ficou assim:
User Function F280CON()
Local aParam := PARAMIXB
Local aRet := {}
DbselectArea("SA1")
cCond := SA1->A1_COND
aAdd(aRet,{dDataBase,aParam[1],cCond})
Return aRet
porem ainda acho que nao trouxe a condição do cliente, por exemplo:
fiz hoje ele puxou a data de vencimento = data base de hoje(19/02/13) e com valor total correto.
A condição de pagamento que esta no cliente deveria vencer daqui a 30 dias.
Debugando o fonte vi que ele pegou a condição do cliente.
Ficou assim:
User Function F280CON()
Local aParam := PARAMIXB
Local aRet := {}
DbselectArea("SA1")
cCond := SA1->A1_COND
aAdd(aRet,{dDataBase,aParam[1],cCond})
Return aRet
porem ainda acho que nao trouxe a condição do cliente, por exemplo:
fiz hoje ele puxou a data de vencimento = data base de hoje(19/02/13) e com valor total correto.
A condição de pagamento que esta no cliente deveria vencer daqui a 30 dias.
Debugando o fonte vi que ele pegou a condição do cliente.
Por favor Acessar ou Registrar para participar da conversa.
- kanaamlrr
- Desconectado
- Membro Platina
Menos
Mais
- Postagens: 1576
- Obrigados Recebidos: 4
11 anos 9 meses atrás #10802
por kanaamlrr
Respondido por kanaamlrr no tópico Condição de pagamento
Então, no caso você vai ter que somar 30 dias na data.
O valor que você colocar na primeira posição do aRet, ou seja, o dDataBase tem que ser a data real de vencimento.
O valor que você colocar na primeira posição do aRet, ou seja, o dDataBase tem que ser a data real de vencimento.
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Condição de pagamento
Tempo para a criação da página:0.129 segundos