Linha Microsiga Protheus

Árvore de páginas

Implementação de ExecAuto para Análise Técnica de Pneus (MNTA600)

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

MNTA600
Análise Técnica de Pneus

Rotina(s) envolvida(s)

Nome Técnico

MNTA600

Análise Técnica de Pneus

País(es):

Todos

Banco(s) de Dados:

Todos

Tabelas Utilizadas:

ST9 - Bem;

TR4 - Análise Técnica de Pneus;

TQS - Complemento do Bem (Pneus);

TQV - Histórico de Sulcos dos Pneus;

TQZ - Histórico do Status do Pneu;

Sistema(s) Operacional(is):

Windows/Linux

Descrição:

Implementada possibilidade de execução automática, com o envio dos devidos parâmetros, para inserção, alteração ou exclusão de uma Análise Técnica de Pneus (MNTA600). 

Exemplo:

#INCLUDE "PROTHEUS.CH"

//------------------------------------------------------------------------------
/*/{Protheus.doc} Análise Técnica Automática

Manda para análise técnica os pneus de acordo com o seu Status.

@author NG Informática
@return .T.
/*/
//------------------------------------------------------------------------------
User Function MNTA600AUT(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

    Default nOpc := 3 //inclusão

    //Campos Obrigatórios - Análise Técnica
    aAdd(aRotAuto,{"TR4_CODBEM",PADR("PNEA0208" ,TAMSX3("TR4_CODBEM")[1]),Nil})
    aAdd(aRotAuto,{"TR4_DTANAL",dDataBase                                ,Nil})
    aAdd(aRotAuto,{"TR4_HRANAL","06:00"									 ,Nil})
    aAdd(aRotAuto,{"TR4_DESTIN","4"                             		 ,Nil})
    aAdd(aRotAuto,{"TR4_MOTIVO",PADR("PROB" ,TAMSX3("TR4_MOTIVO")[1])    ,Nil})
    aAdd(aRotAuto,{"TR4_SULCO" ,15                                       ,Nil})
    aAdd(aRotAuto,{"TR4_PAREC" ,"BEM SERÁ CONSERTADO"                    ,Nil})
    aAdd(aRotAuto,{"TR4_FORNEC",""                                       ,Nil})
    aAdd(aRotAuto,{"TR4_LOJA"  ,""                                       ,Nil})
    aAdd(aRotAuto,{"TR4_LAUDO" ,""                                       ,Nil})
    aAdd(aRotAuto,{"TR4_OBS"   ,"AT Automática"                          ,Nil})
    aAdd(aRotAuto,{"CODESTO"   ,PADR("0803",TAMSX3("T9_CODESTO")[1])     ,Nil})
    aAdd(aRotAuto,{"ALMOXA"    ,PADR("01" ,TAMSX3("T9_LOCPAD")[1])       ,Nil})

    //chamada ExecAuto
    MSExecAuto({|x,y|MNTA600(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.