Histórico da Página
Ponto de entrada que permite incluir tratativas
noapós o processo de
gravação dos insumos alteradostransferência de bens.
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||||
Segmento: | Manufatura | ||||||
Módulo: | SIGAMNT - Manutenção de Ativos e Gestão de Frotas | ||||||
Rotina: |
| ||||||
Chamados Relacionados | MNG-3504 | DNG-5155 | |||||
Países | País(es): | Todos | |||||
Banco(s) Bancos de Dados: | Todos Sistema(s) Operacional(is) | ||||||
Sistemas Operacionais: | Todos |
Ponto de Entrada
Descrição: | Ponto de entrada acionado antes da gravação dos insumos no processo de alteraçãoapós a conclusão com sucesso da transferência de um bem. | |||||||||||||||
Localização: | SIGAMNT: AtualizaçõesMiscelânea/Controle de OficinaHistórico/Ordem Transferência de Serviço/CorretivaBens | |||||||||||||||
Eventos: | Corretiva Transferência de Bens (MNTA420MNTA550) | |||||||||||||||
Programa Fonte: | MNTA420MNTA550.prxprw | |||||||||||||||
Função: | NG420ALTEMNTA550() | |||||||||||||||
Parâmetros: |
|
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#Include 'ProtheusTotvs.ch' User Function MNTA420VMNTA5503() Local aGetIns cCode := ParamIXB[1] Local aGetInSaldDtTr := ParamIXB[2] Local aHead cHrTr := ParamIXB[3] Local nX := 0 Local nInsAnt := 0 Local nInsAtu := 0 //Conta quantos insumos tinha após a alteração For nX := 1 To Len( aGetIns ) If !Empty( aGetIns[nx, 1] ) .And. !aGetIns[nx, Len( aGetIns[nX] )] nInsAtu++ EndIf Next nX //Conta quantos insumos tinha antes da alteração For nX := 1 To Len( aGetInSal ) If !Empty( aGetInSal[nx, 1] ) nInsAnt++ EndIf Next nX MsgInfo( 'Quantidade de insumos antes da alteração ' + cValtoChar( nInsAnt ) + CHR( 10 ) +; 'Quantidade de insumos depois da alteração ' + cValtoChar( nInsAtu ) ) dbSelectArea( 'TQ2' ) dbSetOrder( 1 ) If dbSeek( xFilial( 'TQ2' ) + cCode + DtoS( dDtTr ) + cHrTr ) MsgInfo( 'Transferência do bem: ' + Trim( cCode ) + ' realizada ' + DtoC( dDtTr ) + ' às ' + cHrTr ) EndIf Return |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas