Linha Microsiga Protheus

Árvore de páginas


01. VISÃO GERAL

O Ponto de Entrada AG615BNF permite implementar tratamentos específicos após a gravação do fardinho beneficiado na rotina de Beneficiamento.

Localização:

A615Salvar()

Programa Fonte:

AGRA615

Função:

O AG615BNF é executado no final do processo de salvamento, possibilitando realizar integrações, atualizações adicionais ou qualquer regra complementar logo após o registro ter sido gravado.

Parâmetros:

Parametro

Tipo

Descrição

Obrigatório

cCodFdi

Caracter

Código do fardinho beneficiado recém-gravado

NÃO

cCodEtqCaracterCódigo da etiqueta vinculadaNÃO
cCodFdaCaracterCódigo do fardoNÃO
cProdBNCaracterProduto beneficiadoNÃO
cPrensaCaracterCódigo da prensa utilizadaNÃO
cSafraCaracterCódigo da safraNÃO
cProdutorCaracterCódigo do produtorNÃO
cLjProCaracterCódigo do lote/procedênciaNÃO
cCodFazCaracterCódigo da fazendaNÃO

02. EXEMPLO DE UTILIZAÇÃO


#Include 'Protheus.ch'
#include "fwmvcdef.ch"  
 
User Function AG615BNF()  
    Local  cCodFdi  := PARAMIXB[1]
    Local  cCodEtq  := PARAMIXB[2]
    Local  cCodFda  := PARAMIXB[3]
    Local  cProdBN  := PARAMIXB[4]
    Local  cPrensa  := PARAMIXB[5]
    Local  cSafra   := PARAMIXB[6]
    Local  cProdutor    := PARAMIXB[7]
    Local  cLjPro   := PARAMIXB[8]
    Local  cCodFaz  := PARAMIXB[9]
     
    Local cTexto    := ""
     
    cTexto := "Teste passando pelo ponto de entrada AG615BNF: " + CRLF
    cTexto += "Param1 código fardinho = " + cCodFdi + CRLF
    cTexto += "Param2 código etiqueta = " + cCodEtq + CRLF
    cTexto += "Param3 código fardão = " + cCodFda + CRLF
    cTexto += "Param4 código produto beneficiado = " + cProdBN + CRLF
    cTexto += "Param5 código prensa = " + cPrensa + CRLF
    cTexto += "Param6 código safra = " + cSafra + CRLF
    cTexto += "Param7 codigo produtor = " + cProdutor + CRLF
    cTexto += "Param8 loja produtor = " + cLjPro + CRLF
    cTexto += "Param9 código fazenda = " + cCodFaz
     
    MsgAlert(cTexto)
Return nil