Histórico da Página
Implementação de ExecAuto para Retorno de Desgaste de Produção (MNTA380)
Características do Requisito
Linha de Produto: | Protheus | ||||||||
Segmento: | Manufatura/Distribuição e Logística | ||||||||
Módulo: | Manutenção de Ativos e Gestão de Frotas | ||||||||
Rotina: |
| ||||||||
País(es): | Todos | ||||||||
Banco(s) de Dados: | Todos | ||||||||
Tabelas Utilizadas: | STY - Hist. de Retorno de Produção; STP - Registro de Contador; | ||||||||
Sistema(s) Operacional(is): | Windows/Linux |
Descrição
Implementada possibilidade de execução automática, com o envio dos devidos parâmetros, para o registro de um Histórico de Retorno de Produção (MNTA380).
Procedimento para Configuração
O sistema é atualizado logo após a aplicação do pacote de atualizações (Patch) deste ticket.
Procedimento para Utilização
Exemplo:
- Acesse o modulo Manutenção de Ativos (SIGAMNT);
- Em Atualizações > Controle de Postos > Tipo Combustíveis, realizar a inclusão de dois combustíveis em duas filiais.
- Em Atualizações > Controle de Postos > Postos, realizar a inclusão de dois postos em filiais distintas.
- Em Atualizações > Controle de Oficina > Bens > Veículos, realizar a inclusão de dois veículos em filiais distintas. Informar como tanque os combustíveis cadastrados.
- Em Atualizações > Controle de Combustíveis > Abastecimento > Abast. Manual. Incluir um abastecimento manual para o veículo.
- Em Consultas > Controle de Combustíveis > Abastecimento > Por Data e Posto (MNTC830).
- Verificar que foram inclusas as perguntas De/Até Filial e Até Combustível.
- Verificar também que a tela da rotina foi redimensionada para ocupação total do monitor.
- Selecionar Pesquisar, verificar que foi ajustada conforme mencionado na descrição da presente documentação técnica;
- Selecionar Imprimir, verificar que foi ajustado o alinhamento dos registros ao realizar a impressão.
- Verificar que os dados podem ser exportados para Excel, PDF entre outras opções.
#INCLUDE "PROTHEUS.CH"
User Function MNTA380AUT(nOpc)
Local aRotAuto := {}
Private lMsErroAuto := .F. // Caso a variável torne-se .T. apos MsExecAuto, apresenta erro em tela
Private lMSHelpAuto := .T. // Não apresenta erro em tela
//CAMPOS OBRIGATORIOS - RETORNO DE PRODUÇÃO
aAdd( aRotAuto, { "TY_CODBEM" , "BEM" , Nil })
aAdd( aRotAuto, { "TY_PRODUTO" , "" , Nil })
aAdd( aRotAuto, { "TY_DATAINI" , dDataBase, Nil })
aAdd( aRotAuto, { "TY_HORAINI" , "08:00" , Nil })
aAdd( aRotAuto, { "TY_DATAFIM" , dDataBase, Nil })
aAdd( aRotAuto, { "TY_HORAFIM" , "08:30" , Nil })
aAdd( aRotAuto, { "TY_QUANTI1" , 3 , Nil })
aAdd( aRotAuto, { "TY_QUANTI2" , 0 , Nil })
aAdd( aRotAuto, { "TY_FATOR" , 0 , Nil })
aAdd( aRotAuto, { "TY_TIPOPRO" , "N" , Nil })
//chamada ExecAuto
MSExecAuto({|x,y|MNTA380(x,y)},aRotAuto,nOpc)
If !lMsErroAuto
ConOut("**** Incluído com sucesso! ****")
Else
MostraErro()
ConOut("Erro na Inclusão!")
EndIf
ConOut("Fim : "+Time())
ConOut(Repl("-",80))
Return .T.