Histórico da Página

#Include "totvs.ch"
#Include 'Protheus.ch'
#Include "TBICONN.CH"
 
User Function ExMATA610()

Local aVetor
Local aVetor1

Local nOpc  := 5 //-Opção de execução da rotina || 3- INCLUSAO || 4- ALTERACAO || 5- EXCLUSAO

//Para alteracao e exclusao, condiderar espacos em branco dos campos do Banco de Dados.
Local cCodigo := "006   "
Local cCenCusto := "01       "
Local cDescricao := "DESCRIÇÃO ROTEIRO1            "
Local cCalendario := "01 "

prepare environment empresa '99' filial '01' modulo 'PCP'

lMsErroAuto := .F.

aVetor      := {}
aVetor1     := {}

if nOpc == 3
    aVetor      := {{"H1_CODIGO" , cCodigo             , NIL},;
                    {"H1_CCUSTO" , cCenCusto           , NIL},;
                    {"H1_DESCRI" , cDescricao          , NIL},;
                    {"H1_CALEND" , cCalendario         , NIL}}
      
ElseIf nOpc == 4 //Considerar os espaços em branco de cada campo do Banco de Dados.
    aVetor      := {{"H1_CODIGO" , cCodigo             , NIL},;
                    {"H1_CCUSTO" , cCenCusto           , NIL},;
                    {"H1_DESCRI" , cDescricao          , NIL},;
                    {"H1_CALEND" , cCalendario         , NIL}}

ElseIf nOpc == 5 //Considerar os espaços em branco de cada campo do Banco de Dados.
    aVetor      := {{"H1_CODIGO" , cCodigo             , NIL},;
                    {"H1_CCUSTO" , cCenCusto           , NIL},;
                    {"H1_DESCRI" , cDescricao          , NIL},;
                    {"H1_CALEND" , cCalendario         , NIL}}
Endif

MSExecAuto({|x,y,z| mata610(x,y,z)},aVetor,aVetor1,nOpc)

If lMsErroAuto
    CONOUT("Erro")
    mostraerro()
Else
    CONOUT("Operacao realizada com sucesso")
Endif

return nil