Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Joao Ricardo

Gravado em

comparado com

Nova versão 3

changes.mady.by.user Joao Ricardo

Gravado em

Chave

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

Ponto de entrada para customizar a validação na gravação da saída de combustível.

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

Manutenção de Ativos e Gestão de Frotas

Rotina:

Rotina

Nome Técnico

MNTA990

Programação de O.s.

Issue:

DNG-4743

Países:

Todos.

Bancos de Dados:

Todos.

Sistemas Operacionais:

Todos.

Ponto de Entrada

Descrição:

Ponto de entrada acionado na abertura da tela de Programação de O.s., permite escolher os valores que serão

carregados nos campos de "Planejador", "Data Inicio Prog.", "Data Fim Prog." e "Descrição".

Localização:

SIGAMNT: Em Atualizações > Controle de Oficina > Plano Manutenção > Programação de O.s..

Programa Fonte:

MNTA990.prx

Função:

MNTA990CAD()

Parâmetros:
NomeTipoDescrição
ParamIXB[1]CaractereCódigo da programação
ParamIXB[2]DataData inicial da Programação de O.s.
ParamIXB[3]DataData final da Programação de O.s.

Retorno:

O Ponto de Entrada deve retornar um array de quatro posições.

Nome

Tipo

Descrição

Obrigatório

aRet[1]

Caractere

Código a ser inserido no campo "Planejador"

Sim

aRet[2]

Data

Data inicial da Programação de O.s.

Sim

aRet[3]

Data

Data final da Programação de O.s.

Sim

aRet[4]

Caractere

Texto a ser inserido no campo "Descrição"

Sim

Bloco de código
languagesql
titleExemplo: P.E. MNTA6570
linenumberstrue
#INCLUDE "TOTVS.CH" 

User Function MNTA990G() 
	
	Local cUser := ' '
	Local dDtIni := CTOD('') 
	Local dDtFim := CTOD('')
	Local cDesc  := ' '

	PswOrder(2) 
	If PswSeek(cUserName,.T.) 
		dbSelectArea("ST1") 
		dbSetOrder(6) 
		If MsSeek(FWxFilial('ST1')+Substr(PswRet(1)[1,1], 1, 6) ) 
			cUser := ST1->T1_CODFUNC 
		EndIf 
	EndIf 

	dDtIni := FirstDate(PARAMIXB[12]) 
	dDtFim := LastDate(PARAMIXB[23]) 
	cDesc  := 'Programação de O.s. '+PARAMIXB[1]+' realizada pelo Planejador: '+cUser+' do dia '+DTOC(cDtIni)+' até o dia '+DTOC(cDtFim) 

Return {cUser, cDtIni, cDtFim, cDesc}