Histórico da Página
PONTO DE ENTRADA PARA VALIDAÇÕES
...
COMPLEMENTARES NOS CAMPOS DA TABELA SD3 NO ABASTECIMENTO MANUAL (MNTA655)
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 chamado na rotina de Programação de O.S. (MNTA990), para validar a alteração de data e presença de insumos realizados de uma O.SAbastecimento Manual (MNTA655), para fazer as validações finais na tabela SD3 antes da gravação. | |||||||||||||||||||||||||||||||||
Localização: | SIGAMNT: Atualizações/Controle de OficinaCombustíveis/Plano Manutenção/Programação de O.SAbastecimento/Abastecimento Manual. | |||||||||||||||||||||||||||||||||
Programa Fonte: | MNTA990MNTA655.prx | |||||||||||||||||||||||||||||||||
Função: | MNTA990DMNT655D3CC() | |||||||||||||||||||||||||||||||||
Parâmetros: |
| |||||||||||||||||||||||||||||||||
Retorno: |
|
Bloco de código | ||||
---|---|---|---|---|
| ||||
#Include 'Protheus.ch' User Function MNTA990DMNT655D3CC() Local dDtPrevlRet := ParamIXB[2] Local cOrdem .T. //Parâmetros cTipo := ParamIXBPARAMIXB[1] Local cReal := '' Local lRet := .T. If Type( 'ParamIXB[3]' ) <> 'U' cReal := ParamIXB[3] If cReal > '0' MsgInfo('Existem insumos realizados') lRet := .F. EndIf EndIf If lRet .AND. dDtPrev < dDataBase MsgInfo(" A data não pode ser alterada ") lRet := .F. // requisição ou devolução cVeic := PARAMIXB[2] // Código do Veículo/Bem cCCust := PARAMIXB[3] // Código de Centro de Custo cFilTQF := PARAMIXB[4] // Código da filial do Posto If IsInCallStack( "MNTA655" ) nRecno := PARAMIXB[5] // Último registro dbSelectArea("SD3") dbGoTo(nRecno) RecLock("SD3",.F.) SD3->D3_EMISSAO := dDataBase MsUnlock("SD3") EndIf Return lRet |