Implementação de ExecAuto para Retorno de Desgaste de Produção (MNTA380)

Características do Requisito

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:

1. Acesse o modulo Manutenção de Ativos (SIGAMNT);
2. Em Atualizações > Controle de Postos > Tipo Combustíveis, realizar a inclusão de dois combustíveis em duas filiais.
3. Em Atualizações > Controle de Postos > Postos, realizar a inclusão de dois postos em filiais distintas.
4. 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.
5. Em Atualizações > Controle de Combustíveis > Abastecimento > Abast. Manual. Incluir um abastecimento manual para o veículo.
6. Em Consultas > Controle de Combustíveis > Abastecimento > Por Data e Posto (MNTC830). 
   1. Verificar que foram inclusas as perguntas De/Até Filial e Até Combustível. 
   2. Verificar também que a tela da rotina foi redimensionada para ocupação total do monitor.
   3. Selecionar Pesquisar, verificar que foi ajustada conforme mencionado na descrição da presente documentação técnica;
   4. Selecionar Imprimir, verificar que foi ajustado o alinhamento dos registros ao realizar a impressão.
   5. 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.