F030TITFAT - Manipulação do Folder de Faturamento, na Consulta de Fornecedores. -- 115677

O ponto de entrada permite a inclusão/Alteração/Exclusão dos campos na lista de faturamentos, da consulta de posição de fornecedores (FINC030).

FINC030.PRW

F030TITFAT - Manipulação do Folder de Faturamento, na Consulta de Fornecedores. ( [ nEtapa ], [ aCpo ], [ cDesc ] ) --> aCpoFt

aCpoFt(array_of_record)
• Caso o parâmetro nEtapa esteja com conteudo 1, deve retornar um array com os campos a serem acrescentados 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 proximas ocorrências (paramixb[3]...) 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 NUMÉRICO que estão sendo informadas logo após o Header e os campos cArq4->TESTEC,Transform(cArq4->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.

User Function F030TITFAT()	Local aCamposFt := {}If Paramixb[1] == 1 // Somente incluir os campos	    //Processo de Inclusão do campo na array de criação do arquivo da aba titulos em aberto        aCamposFt := Paramixb[2]    aAdd(aCamposFt,{"TESTEC","C", 20, 0, "Campo de Teste"})     aAdd(aCamposFt,{"TESTEN","N",  5, 0, "Teste Numerico"})                   Return aCamposFt    ElseIf Paramixb[1] == 2 // Somente abastacer os campos já inclusos anteriormente	// Processo de Abastecimento dos campos adicionados no arquivo da aba titulos em aberto		Replace TESTEC With  "TESTE FATURAMENTO"		Replace TESTEN With 12345			ElseIf Paramixb[1] == 3	// Processo de Adicionar os campos tratados no ponto de entrada no objeto LISTBOX da aba titulos em aberto			aPosObj := Paramixb[2]			@ aPosObj[2,1]-48,aPosObj[2,2]-2 LISTBOX oLbx3 FIELDS cArq4->NUMERO,cArq4->EMISSAO,Transform(cArq4->VALORNOTA,PesqPict("SF1","F1_VALMERC")),cArq4->DUPLICATA,cArq4->TESTEC,Transform(cArq4->TESTEN,"@E 99999");	HEADER Paramixb[3],Paramixb[4],Paramixb[5],Paramixb[6],"CAMPO ALFA","CAMPO NUMERICO" SIZE aPosObj[2,4]-9,aPosObj[2,3]-82 OF oFolder030:aDialogs[5] PIXEL 				Endif	Return

F030TITABER - Alterações nos campos da lista de títulos, F030TITPAGO - Alteração nos campos da lista de títulos