PMSA200 Cadastro de Projetos - Rotina Automática

#Include 'Protheus.ch'
#include "rwmake.ch"
#include "tbiconn.ch"

User Function MyPms200()

    Local aCab     := {}
    Local cProjeto := "0000000001"
    Local cDescri  := "PROJETO 01"
    Local cRevisa  := "0001"
    Local cTpprj   := "0001"
    Local cCalend  := "001"
    Local nOpcAuto := 0 //3 Inclusão - 4 Alteração - 5 Exclusão

    PRIVATE lMsErroAuto := .F.
    
    //****************************************************************
    //* Abertura do ambiente
    //****************************************************************
    ConOut("Inicio: " + Time())
    
    ConOut(Repl("-",80))
    ConOut(PadC("Teste de inclusao / alteração / exclusão de Projetos", 80))

    PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01 " MODULO "PMS"

        //****************************************************************
        //* Inclusao - INÍCIO
        //****************************************************************
        
        //Array do processo automatico (aAutoCab) - PROJETOS (AF8)
        aAdd( aCab,{ "AF8_PROJET" , cProjeto, Nil })
        aAdd( aCab,{ "AF8_DATA" , ddatabase, Nil })
        aAdd( aCab,{ "AF8_DESCRI" , cDescri, Nil })
        aAdd( aCab,{ "AF8_REVISA" , cRevisa, Nil })
        aAdd( aCab,{ "AF8_TPPRJ" , cTpprj, Nil })
        aAdd( aCab,{ "AF8_CALEND" , cCalend, Nil })

       nOpcAuto := 3

        MsExecAuto({|a,b,c,d,e| PMSA200(a,b,c,d,e)},nOpcAuto,cRevisa,.F.,aCab,nOpcAuto)

        If !lMsErroAuto
            ConOut("Incluido com sucesso! ")
        Else
            ConOut("Erro na inclusao!")
            mostraerro()
        EndIf

        //****************************************************************
        //* Inclusao - FIM
        //****************************************************************
        
        //****************************************************************
        //* Alteração - INÍCIO
        //****************************************************************
        ConOut(PadC("Teste de Alteração",80))

        aCab            := {}
        lMsErroAuto     := .F.
        lAutoErrNoFile  := .F.

        cDescri := "PROJETO 01 ALTERADO" //Alteração da descrição

        aAdd( aCab,{ "AF8_PROJET" , cProjeto, Nil })
        aAdd( aCab,{ "AF8_DATA" , ddatabase, Nil })
        aAdd( aCab,{ "AF8_DESCRI" , cDescri, Nil })
        aAdd( aCab,{ "AF8_REVISA" , cRevisa, Nil })
        aAdd( aCab,{ "AF8_TPPRJ" , cTpprj, Nil })
        aAdd( aCab,{ "AF8_CALEND" , cCalend, Nil })

        nOpcAuto := 4

        MsExecAuto({|a,b,c,d,e| PMSA200(a,b,c,d,e)},nOpcAuto,cRevisa,.F.,aCab,nOpcAuto)

        If !lMsErroAuto
            ConOut("Alterado com sucesso! ")
        Else
            ConOut("Erro na alteracao!")
            mostraerro()
        EndIf

        //****************************************************************
        //* Alteração - FIM
        //****************************************************************
        
        //****************************************************************
        //* Exclusão - INÍCIO
        //****************************************************************
        ConOut(PadC("Teste de exclusão",80))
        
        aCab            := {}
        lMsErroAuto     := .F.
        lAutoErrNoFile  := .F.

        aAdd( aCab,{ "AF8_PROJET" , cProjeto, Nil })
        aAdd( aCab,{ "AF8_DATA" , ddatabase, Nil })
        aAdd( aCab,{ "AF8_DESCRI" , cDescri, Nil })
        aAdd( aCab,{ "AF8_REVISA" , cRevisa, Nil })
        aAdd( aCab,{ "AF8_TPPRJ" , cTpprj, Nil })
        aAdd( aCab,{ "AF8_CALEND" , cCalend, Nil })

        nOpcAuto := 5

        MsExecAuto({|a,b,c,d,e| PMSA200(a,b,c,d,e)},nOpcAuto,cRevisa,.F.,aCab,nOpcAuto)

        If !lMsErroAuto
            ConOut("Excluido com sucesso! ")
        Else
            ConOut("Erro na exclusao!")
            mostraerro()
        EndIf

        //****************************************************************
        //* Exclusão - FIM
        //****************************************************************
        */
        ConOut(OemToAnsi("Fim : ")+Time())

    RESET ENVIRONMENT

Return(.T.)