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:
| Bloco de código | ||
|---|---|---|
| ||
#INCLUDE "PROTHEUS.CH"
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. |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas