Linha Microsiga Protheus

Árvore de páginas


Ponto de Entrada LJ470ITE

Descrição:

Este ponto de entrada permite fazer inclusões de campos na tabela de 
documento de entrada (SD1) na rotina de Transferência por Meio Magnético (LOJA470).

Eventos:

O ponto de entrada é executado após a seleção do arquivo (.NFT) para ser gerada a nota de entrada

Programa Fonte:

LOJA470

Retorno:

aRet (Array) - Retorno utilizado para definir quais campos serão preenchidos na geração do Documento de Entrada(SD1)
ATENÇÃO: existem campos na SD1 que são obrigatórios na geração do documento de entrada, sem
eles o documento não será gerado, portanto não remova campos enviados, somente adicione.


Exemplo:

User Function LJ470ITE()
Local _aItens := Aclone(ParamIxb[1])

//Inclua aqui os campos desejados para serem preenchidos na geração do documento de entrada

/*
o campo da SD1 deve ser equivalente ao campo da SD2 para ter seu dado enviado,
ou seja, deve-se fazer a relação D1_XXXX == D2_XXXX; 
onde XXXX deve ser o mesmo nome para as duas tabelas

*/
DbSelectArea("SD2")

If SD2→(ColumnPos("D2_ALFCPST")) > 0
   Aadd(_aItens , {"D1_ALFCPST",NIL,NIL})
EndIf

Return _aItens