F030TITPAGO - Alteração nos campos da lista de títulos -- 115369

O ponto de entrada permite a inclusão/Alteração/Exclusão dos campos na lista de títulos pagos da consulta de posição de fornecedores (FINC030)

FINC030.PRW

F030TITPAGO - Alteração nos campos da lista de títulos ( [ nEtapa ], [ aColun ], [ cDesc ] ) --> aCpoPE

aCpoPE(array_of_record)
• Caso o parâmetro nEtapa tenha conteudo 1, o retorno deve ser um array com as informações dos campos a serem agregados na tela.

Ponto de Entrada possui 3 etapas, estas, apontadas na primeira ocorrência ao qual se passa na chamada do ponto de entrada que, deve ser tratada exatamente como no exemplo abaixo: (1) - Etapa de adicionar os campos no array que compunham o aquivo de dados: Nessa etapa, a segunda ocorrência trazida pelo paramixb é a array original dos campos que deve ser usada para ser retornado como resultado do processamento para a etapa 1. (2) - Etapa de Abastecimento dos campos adicionados na etapa 1. (3) - Etapa de Tratamento do ListBox: Nessa etapa, a segunda ocorrência trazida pelo paramixb é o tamanho da janela que deve ser usada conforme o exemplo, e as próximas ocorrências (paramixb[3]...paramixb[25]) são os labels de cada campo, esses, na ordem ao qual o exemplo mostra e que deve ser utilizado. Note que as labels "CAMPO ALFA","CAMPO NUMERICO" que estão sendo informadas logo após o Header e os campos cArq1->TESTE,Transform(cArq1->TESTEN,"@E 99999") logo após o Fields são os dados customizados. Tirando esses dados, resta o padrão do Microsiga Protheus, então, caso o restante seja alterado, o padrão Microsiga Protheus será alterado.

Exemplo especifico para o Brasil:User Function F030TITPAGO() Local aCamposPe := {} If Paramixb[1] == 1 // Somente incluir os campos //Processo de Inclusão do campo na array de criação do arquivo da aba titulos pagos aCamposPe := Paramixb[2] aAdd(aCamposPe,{"TESTE","C", 20, 0, "Campo de Teste"}) aAdd(aCamposPe,{"TESTEN","N", 5, 0, "Teste Numerico"}) Return aCamposPe ElseIf Paramixb[1] == 2 // Somente abastacer os campos já inclusos anteriormente // Processo de Abastecimento dos campos adicionados no arquivo da aba titulos pagos Replace TESTE With "TESTE EVIDENCIADO OK" Replace TESTEN With 12345 ElseIf Paramixb[1] == 3 // Processo de Adicionar os campos tratados no ponto de entrada no objeto LISTBOX da aba titulos pagos aPosObj := Paramixb[2] @ aPosObj[2,1]-48,aPosObj[2,2]-2 LISTBOX oLbx1 FIELDS cArq2->PREFIXO,cArq2->NUMERO,cArq2->PARCELA,cArq2->EMISSAO,cArq2->NATUREZA,Transform(cArq2->VALORTIT,PesqPict("SE2","E2_SALDO")), ;Transform(cArq2->VALORPAGO,PesqPict("SE2","E2_SALDO")),Transform(cArq2->JUROS,PesqPict("SE5","E5_VLJUROS")),Transform(cArq2->MULTA,PesqPict("SE5","E5_VLMULTA")),Transform(cArq2->DESCONTO,PesqPict("SE5","E5_VLDESCO")),;Transform(cArq2->TX_MOEDA,PesqPict("SE2","E2_TXMOEDA")),cArq2->BAIXA,cArq2->VENCIMENTO,Transform(cArq2->ATRASO,"999999"),cArq2->BANCO,;cArq2->AGENCIA,cArq2->CONTA,cArq2->HISTORICO,cArq2->MOTIVO,cArq2->NUMBCO,;Transform(cArq2->VLR_IR,PesqPict("SE2","E2_SALDO")),Transform(cArq2->VLR_ISS,PesqPict("SE2","E2_SALDO")),Transform(cArq2->VLR_INSS,PesqPict("SE2","E2_SALDO")),cArq2->TESTE,Transform(cArq2->TESTEN,"@E 99999");HEADER Paramixb[3],Paramixb[4],Paramixb[5],Paramixb[6],Paramixb[7],Paramixb[8],Paramixb[9],Paramixb[10],Paramixb[11],Paramixb[12],Paramixb[13],Paramixb[14],Paramixb[15],Paramixb[16],Paramixb[17],Paramixb[18],Paramixb[19],Paramixb[20],Paramixb[21],Paramixb[22],Paramixb[23],Paramixb[24],Paramixb[25],"CAMPO ALFA","CAMPO NUMERICO";SIZE aPosObj[2,4]-9,aPosObj[2,3]-82 OF oFolder030:aDialogs[3] PIXEL 				Endif Return Exemplo Generico:User Function F030TITPAGO() Local aCamposPe := {} If Paramixb[1] == 1 // Somente incluir os campos //Processo de Inclusão do campo na array de criação do arquivo da aba titulos pagos aCamposPe := Paramixb[2] aAdd(aCamposPe,{"TESTE","C", 20, 0, "Campo de Teste"}) aAdd(aCamposPe,{"TESTEN","N", 5, 0, "Teste Numerico"}) Return aCamposPe ElseIf Paramixb[1] == 2 // Somente abastacer os campos já inclusos anteriormente // Processo de Abastecimento dos campos adicionados no arquivo da aba titulos pagos Replace TESTE With "TESTE EVIDENCIADO OK" Replace TESTEN With 12345 ElseIf Paramixb[1] == 3 // Processo de Adicionar os campos tratados no ponto de entrada no objeto LISTBOX da aba titulos pagos aPosObj := Paramixb[2] @ aPosObj[2,1]-48,aPosObj[2,2]-2 LISTBOX oLbx1 FIELDS cArq2->PREFIXO,cArq2->NUMERO,cArq2->PARCELA,cArq2->EMISSAO,cArq2->NATUREZA,Transform(cArq2->VALORTIT,PesqPict("SE2","E2_SALDO")), ;Transform(cArq2->VALORPAGO,PesqPict("SE2","E2_SALDO")),;Transform(cArq2->TX_MOEDA,PesqPict("SE2","E2_TXMOEDA")),cArq2->BAIXA,cArq2->VENCIMENTO,Transform(cArq2->ATRASO,"999999"),cArq2->BANCO,;cArq2->AGENCIA,cArq2->CONTA,cArq2->HISTORICO,cArq2->MOTIVO,cArq2->NUMBCO,;cArq2->TESTE,Transform(cArq2->TESTEN,"@E 99999");HEADER Paramixb[3],Paramixb[4],Paramixb[5],Paramixb[6],Paramixb[7],Paramixb[8],Paramixb[9],Paramixb[13],Paramixb[14],Paramixb[15],Paramixb[16],Paramixb[17],Paramixb[18],Paramixb[19],Paramixb[20],Paramixb[21],Paramixb[22],"CAMPO ALFA","CAMPO NUMERICO";SIZE aPosObj[2,4]-9,aPosObj[2,3]-82 OF oFolder030:aDialogs[3] PIXEL 				Endif Return