Histórico da Página

#Include 'ProtheusTOTVS.ch'
 
User Function MNTA7209()

	MsgInfo("Recebimento realizado em: " + dtoc(TR7->TR7_DTRECI)    Local aEspCols := aClone( ParamIXB[1] )
    Local aEspHead := aClone( ParamIXB[2] )
    Local nOpcCad  := ParamIXB[3]
    Local cLote    := ParamIXB[4]

    If nOpcCad = 4 //Em caso de recebimento

        MsgInfo("O lote "+ cLote + " -foi "recebido + TR7->TR7_HRRECI com sucesso", "Atenção")

Return    EndIf
 
Return