Ponto de entrada para customizar 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-22793

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

#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[2])
    dDtFim := LastDate(PARAMIXB[3])
    cDesc  := 'Programação de O.s. '+PARAMIXB[1]+' realizada pelo Planejador: '+cUser+' do dia '+DTOC(dDtIni)+' até o dia '+DTOC(dDtFim)
 
Return {cUser, dDtIni, dDtFim, cDesc}