Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 11

changes.mady.by.user Jean Costa

Gravado em

comparado com

Nova versão 12

changes.mady.by.user Giovana Niehues

Gravado em

Chave

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

PONTO DE ENTRADA PARA VALIDAÇÕES

...

DE ALTERAÇÃO DE DATA E PRESENÇA DE INSUMOS REALIZADOS DE UMA O.S. NA ROTINA DE PROGRAMAÇÃO DE O.S.

Características do Requisito

Linha de Produto:

Microsiga Protheus.

Segmento:

Manufatura.

Módulo:

SIGAMNT - Manutenção de Ativos e Gestão de Frotas.

Rotina:

Rotina

Nome Técnico

MNTA990

Programação de O.S.

MNTA655

Abastecimento Manual

Rotina(s) envolvida(s)

Nome Técnico

MNT655D3CCMNTA990D

Ponto de Entrada

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 Abastecimento Manual (MNTA655), para fazer as validações finais na tabela SD3 antes da gravaçãode Programação de O.S. (MNTA990), para validar a alteração de data e presença de insumos realizados de uma O.S.

Localização:

SIGAMNT: Atualizações/Controle de CombustíveisOficina/Abastecimento/Abastecimento ManualPlano Manutenção/Programação de O.S.

Programa Fonte:

MNTA655MNTA990.prx

Função:

MNT655D3CCMNTA990D()

Parâmetros:

NomeTipoPode AlterarDescrição
cTipocOrdemCaracterSim

Tipo de Operação (requisição ou devolução).

cVeicCaracterSimCódigo do Veículo/Bem.
cCCustCaracterSimCódigo de Centro de Custo.

Ordem da O.S.

dDtPrevDataSimData Prevista.
cRealcFilTQFCaracterSimCódigo da filial do Posto.nRecnoNuméricoSimNumeração do registroInsumos Realizados.
Retorno:
NomeTipoDescriçãoObrigatório
lRetLógicoIndica se a validação foi feitaSim
sql
Bloco de código
language
titleExemplo do Ponto de Entrada MNT655D3CCMNTA990D
#Include 'Protheus.ch'

User Function MNT655D3CCMNTA990D()

    
Local lRetdDtPrev := .T.
    
    //Parâmetros
	cTipo		ParamIXB[2]
Local cOrdem := PARAMIXBParamIXB[1] // 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")
	
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.
EndIf

Return lRet