Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user JOAO RICARDO SANTINI ZANDONÁ

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user JOAO RICARDO SANTINI ZANDONÁ

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

o carregamento de campos na Programação de O.s.

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-474322793

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 

	      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(cDtInidDtIni)+' até o dia '+DTOC(cDtFimdDtFim)
 

Return {cUser, cDtInidDtIni, cDtFimdDtFim, cDesc}