Histórico da Página

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 PEé 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
cCodEtq	Caracter	Código da etiqueta vinculada	NÃO
cCodFda	Caracter	Código do fardo	NÃO
cProdBN	Caracter	Produto beneficiado	NÃO
cPrensa	Caracter	Código da prensa utilizada	NÃO
cSafra	Caracter	Código da safra	NÃO
cProdutor	Caracter	Código do produtor	NÃO
cLjPro	Caracter	Código do lote/procedência	NÃO
cCodFaz	Caracter	Código da fazenda	NÃO

02. EXEMPLO DE UTILIZAÇÃO

Bloco de código

#Include 'Protheus.ch'
#include "fwmvcdef.ch"  
 
User Function AG615BNF(cCodFdi, cCodEtq, cCodFda, cProdBN, cPrensa, cSafra, cProdutor, cLjPro, cCodFaz)

    // Exemplo: registrar uma mensagem no log
    ConOut("PE AG615BNF executado após gravação do fardinho: " + cCodFdi)

Return  )  
    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

HTML

<!-- esconder o menu --> 


<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}
</style>

Árvore de páginas

Versões comparadas

Versão antiga 2

Nova versão Atual

Chave

01. VISÃO GERAL

02. EXEMPLO DE UTILIZAÇÃO