Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Maria Elisandra

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user CAUE GIRARDI PETRI

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Descrição:

Ponto de entrada executado após a gravação do recebimento da OS em Lote.

Programa Fonte:

MNTA720.prx
Localização:

SIGAMNT: Atualizações/Controle de Pneus/OS de Pneus/OS em Lote

Parâmetros:
PosiçãoTipoDescrição
ParamIXB[1]ArrayaCols da rotina mnta720
ParamIXB[2]ArrayaHeader da rotina mnta720
ParamIXB[3]NuméricoOpção selecionada (Inclusão, Alteração, etc.)
ParamIXB[4]StringNumero do lote posicionado

Função:

MNTA7209()

Retorno:

Nulo
Bloco de código
titleExemplo do Ponto de Entrada MNTA7209()
#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