Linha Microsiga Protheus

Árvore de páginas

Chamada de Pontos de Entrada

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Agroindústria

Módulo:

SIGAAGR

Rotina:

Rotina

Nome Técnico

OGA245

Ordem de Trânsito

País(es):

Todos

Versões/Release:

11.80.14

Descrição

Foram realizados ajustes nos fontes para a chamada de Pontos de Entrada.

 

Ponto de Entrada

Descrição:

Manipular dados do Documento Fiscal de Trânsito

Localização:

Atualizações, Originação, Movimentos Internos, Ordem de Trânsito

Eventos:

Emissão de Nota Fiscal de Trânsito

Programa Fonte:

OGA245

Função:

OG245ANF()

Exemplo:

 

#include 'protheus.ch'

 

User Function OG245ANF()
Local aCab := aClone(PARAMIXB[1])
Local aItens := aClone(PARAMIXB[2])
Local aRet := {} //Customizações do usuário

 

Local nPMenNf :=  aSCAN(aCab, {|aCab| aCab[1] == "F1_MENNOTA" })
//

 

IF nPMenNf > 0 // Ja stá no array
aCab[nPmenNf,1] += 'Mensagem do PE og245anf' //
Else // Ainda n. se encontra no Array Adicionar
aAdd( aCab, { "F1_MENNOTA" , 'Mensagem do PE og245anf' } )
EndIF

aRet := {aCab,aItens}

Return aRet