Histórico da Página
Ponto de entrada
...
executado após a gravação
...
no recebimento na rotina de OS em Lote (MNTA720)
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||||||
Segmento: | Manufatura | ||||||||
Módulo: | SIGAMNT - Manutenção de Ativos e Gestão de Frotas | ||||||||
Rotina: |
| ||||||||
País(es): | Todos | ||||||||
Banco(s) de Dados: | Todos | ||||||||
Sistema(s) Operacional(is): | Todos |
Ponto de Entrada
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: |
| |||||||||||||||
Função: | MNTA7209() | |||||||||||||||
Retorno: | Nulo |
Bloco de código | ||
---|---|---|
| ||
#Include 'ProtheusTOTVS.ch' User Function MNTA7209() Local nL For nL := 1 To Len(aCols) //Aqui poderão ser feitas alterações nos registros referentes a cada pneu do lote Next Return 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 com sucesso", "Atenção") EndIf Return |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas