Histórico da Página
Ponto de entrada que permite alterar os valores ao realizar insumos previstosinformações da O.S. corretiva após o processo de gravação ( Fora do controle de transação )
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||
Segmento: | Manufatura | ||||
Módulo: | SIGAMNT - Manutenção de Ativos / SIGAGFR - Gestão de Frotas | ||||
Rotina: |
|
Ponto de Entrada
Descrição: | Ponto de entrada que permite alterar informações da O.S. corretiva, após o processo de gravação e fora do controle de transação da rotina.
| |||||||||||||||
Programa Fonte: | MNTA420.prx | |||||||||||||||
Parâmetros: |
|
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#include#Include 'ProtheusTotvs.ch' User Function MNTA435RMNTA420Z() Local nOpcX aHeader := ParamIxbParamIXB[1] Local aCols := ParamIxbParamIXB[2] Local nLine aHead := ParamIXB[3] Local aClOld := ParamIxbParamIXB[34] Local nInd := 0 Local nPosSA := 0 Local nPosQt := 0 If GDFieldGet nOpcX == 4 nPosSA := GdFieldPos( 'TL_TIPOREGNUMSA', nLine, .F., aHeader, aCols ) == 'P' aHead ) nPosQt := GdFieldPos( 'TL_QUANTID', aHead ) For nInd := 1 To Len( aClOld ) If GDFieldPut!Empty( 'TL_DTINICI', dDataBase, nLine, aHeader, aCols ) aClOld[nInd,nPosSA] ) .And. aCols[nInd,nPosQt] != aClOld[nInd,nPosQt] GDFieldPutMsgInfo( 'TL_DTFIM' , dDataBase, nLine, aHeader, aCols )Este insumo possui S.A. e teve sua quantidade alterada!' ) EndIf Next nInd EndIf Return aCols |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas