Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Diego Oliveira

Gravado em

comparado com

Nova versão 2

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

Procedimento para Utilização

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 


    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
    Default nOpc 
 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                   
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 


    If !lMsErroAuto


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

    Else

    Else
        MostraErro()


        ConOut("Erro na Inclusão!")

    EndIf

    EndIf

    ConOut("Fim : "+Time())


    ConOut(Repl("-",80))



Return .T.