× Linguagem de Programação ADVPL

Perguntas Relatório Consulta Posição Clientes!

Mais
10 anos 11 meses atrás #14444 por rsbmaximo
Bom dia a todos!

Estou com um dificuldade para desenvolver um relatório para consulta posição de clientes.
O sistema já tem a consulta padrão, mas preciso de algumas informações que não têm na consulta padrão.
Das informações abaixo consegui imprimir todas, com exceção da realçada em vermelho, pois a consulta de maior saldo é composta por um intervalo de datas, e eu teria de imprimir essas datas, mas não consegui alcançar esse objetivo.
Por favor, se alguém tiver algum exemplo que possa me ajudar, desde já agradeço.

Obrigado.

@ Li,01 PSAY TRB->E1_CLIENTE // Codigo do cliente
@ Li,10 PSAY TRB->E1_NUM // Nota fiscal maior compra
@ Li,21 PSAY "|"
@ Li,24 PSAY ALLTRIM(TRANSFORM(TRB->A1_MCOMPRA,"@E 999,999.99")) // Maior compra
@ Li,40 PSAY TRB->E1_EMISSAO // Emissao da maior compra
@ Li,49 PSAY "|"
@ Li,52 PSAY "VL PCOMPRA" // Valor da primeira compra
@ Li,66 PSAY TRB->A1_PRICOM // Data da primeira compra
@ Li,75 PSAY "|"
@ Li,78 PSAY "ULT COMPRA" //TRANSFORM(TRB->F2_VALFAT, "@E 999,999.99") // Valor da ultima compra
@ Li,93 PSAY "EMISSAO" //TRB->F2_EMISSAO // Data da ultima compra
@ Li,101 PSAY "|"
@ Li,104 PSAY ALLTRIM(TRANSFORM(TRB->A1_MSALDO,"@E 999,999.99")) // Valor do maior saldo

@ Li,121 PSAY "EMISSAO" // Emissao do maior saldo

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 11 meses atrás #14494 por rsbmaximo
Bom dia a todos!

Alguém, por favor, tem alguma informação que poderia ajudar a minha pessoa?

Obrigado.

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 11 meses atrás #14498 por lalberto
@ Li,93 PSAY DtoC(TRB->F2_EMISSAO)

Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 11 meses atrás #14499 por lalberto
Na montagem da sua query vc deve declarar estes campos como data.

cQuery += "SC9.C9_NFISCAL='"+Space(Len(SC9->C9_NFISCAL))+"' AND "
cQuery += "SC9.D_E_L_E_T_<>'*'"
cQuery := ChangeQuery(cQuery)
cQry := cArquivo+"A"

dbUseArea(.T.,"TOPCONN",TcGenQry(,,cQuery),cQry,.T.,.T.)

TcSetField(cQry,"F2_EMISSAO","D")


Exemplo

Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 11 meses atrás #14508 por rsbmaximo
Alberto, bom dia!

Muito obrigado pela força, como sou novo na área tenho algumas dificuldades.
Abaixo segue parte do fonte padrão, o qual faz a atualização do cliente:

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³Atualizacao de titulos a receber, gerando todos os dados³
//³complementares a uma implantacao de titulo. ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
A040DupRec(FunName(), (i == 1), 0, .F., lTPAbISS, .F.)

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Atualiza o saldo do cliente ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
IF ! SuperGetMV( "MV_CLIPAD" )+ SuperGetMV( "MV_LOJAPAD" ) == cCliente+cLojaCli
IF SA1->(MsSeek(xFilial("SA1") + cCliente + cLojaCli ))
AtuSalDup("+",SE1->E1_VALOR,SE1->E1_MOEDA,SE1->E1_TIPO,If(SE1->E1_MOEDA==nMoedaCor,nTaxaMoeda,0),SE1->E1_EMISSAO)
RecLock("SA1",.F.,.F.)
SA1->A1_MSALDO := If( SA1->(A1_SALDUPM > A1_MSALDO), A1_SALDUPM, A1_MSALDO )
SA1->( MsUnlock())

Na atualização ele compara o campo A1_MSALDO com o A1_SALDUPM. O campo A1_SALDUPM é quem recebe os valores,mas não sei quando ou como. Já que esse campo, A1_SALDUPM, é carregado com valores de várias datas diferentes, teria como eu carregar, também, essas datas e no meu relatório imprimir esses valores com suas datas, mas teria de ser as datas referentes aos valores do campo A1_MSALDO?

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.111 segundos
Joomla templates by a4joomla