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

Características do Requisito

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
language sql
#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

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                                          

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