Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 3

changes.mady.by.user Diego Oliveira

Gravado em

comparado com

Nova versão 4

changes.mady.by.user Diego Oliveira

Gravado em

Chave

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

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:


Bloco de código
languagesql
#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

    //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.