Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

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:

Rotina

Nome Técnico

MNTA380
Retorno de Desgaste de Produção

Rotina(s) envolvida(s)

Nome Técnico

MNTA380

Retorno de Desgaste de Produção

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:   

   

Bloco de código
languagesql
#INCLUDE "PROTHEUS.CH"


 


   
User
 Function MNTA380AUT(nOpc)


    

     
  Local
   Local aRotAuto        := {}

        Private lMsErroAuto 

        Private lMsErroAuto  := .F.  // Caso a variável torne-se .T. apos MsExecAuto, apresenta erro em
tela
        Private lMSHelpAuto
 tela
        Private lMSHelpAuto := .T. // Não apresenta erro em
tela
  
 tela
  
        //CAMPOS OBRIGATORIOS - RETORNO DE PRODUÇÃO

        aAdd

        aAdd( aRotAuto, { "TY_CODBEM"  , "BEM"    , Nil })

        aAdd

        aAdd( aRotAuto, { "TY_PRODUTO" , ""       , Nil })

        aAdd

        aAdd( aRotAuto, { "TY_DATAINI" , dDataBase, Nil })

        aAdd

        aAdd( aRotAuto, { "TY_HORAINI" , "08:00"  , Nil })

        aAdd

        aAdd( aRotAuto, { "TY_DATAFIM" , dDataBase, Nil })

        aAdd

        aAdd( aRotAuto, { "TY_HORAFIM" , "08:30"  , Nil })

        aAdd

        aAdd( aRotAuto, { "TY_QUANTI1" ,        , Nil })

        aAdd

        aAdd( aRotAuto, { "TY_QUANTI2" ,        , Nil })

        aAdd

        aAdd( aRotAuto, { "TY_FATOR"   ,        , Nil })

        aAdd

        aAdd( aRotAuto, { "TY_TIPOPRO" , "N"      , Nil })

  

  
        //chamada ExecAuto

        MSExecAuto

        MSExecAuto({|x,y|MNTA380(x,y)},aRotAuto,nOpc)

 
        If !lMsErroAuto
            ConOut

 
        If !lMsErroAuto
            ConOut("**** Incluído com sucesso! ****")

        Else
            MostraErro()
            ConOut

        Else
            MostraErro()
            ConOut("Erro na Inclusão!")

        EndIf
 
        ConOut

        EndIf
 
        ConOut("Fim : "+Time())

        ConOut

        ConOut(Repl("-",80))

 
Return

 
     Return .T.