Histórico da Página
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: |
| ||||
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: |
| ||||||||||||||||||||
Retorno: | O Ponto de Entrada deve retornar um array de quatro posições.
|
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
#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} |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas