Histórico da Página
Ponto de Entrada para manipulação de dados da Emissão de Nota Fiscal via Complemento de Fardão/Romaneio de Fardão
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||||||||
Segmento: | Agroindústria | ||||||||||
Módulo: | SIGAAGR | ||||||||||
Rotina: |
| ||||||||||
Ponto de Entrada: | AGRXEMTNT | ||||||||||
Requisito (ISSUE): | AGROG01-30 | ||||||||||
País(es): | Todos |
Ponto de Entrada
Descrição: | SIGAAGR -> Atualizações -> UBA -> Recebimento | ||||||||
Localização: | Romaneio de Fardão (AGRA600); Complemento de Fardão (AGRA610). | ||||||||
Eventos: | Emissão de Nota Fiscal. | ||||||||
Programa Fonte: | AGRXFUN1.PRW | ||||||||
Função: | AGRA600, AGRA610 | ||||||||
Retorno: |
|
Exemplo:
#Include "Protheus.Ch"
User Function AGRXEMTNT()
Local aRet := {}
Local aPvlNfs := aClone(PARAMIXB[1])
Local cSerie := PARAMIXB[2]
Local cRotina := PARAMIXB[3] //AGRA600 ou AGRA610
Local nX := 0
If cRotina = "AGRA610"
For nX := 1 to Len(aPvlNfs)
aPvlNfs[nX,1] := '000168' //Seta Pedido fixo
Next nX
ElseIf cRotina = "AGRA600"
cSerie := 'A' //Seta série fixa
Endif
aAdd(aRet,aClone(aPvlNfs))
aAdd(aRet,cSerie)
Return aRet