Histórico da Página

#Include 'Protheus.ch'

#Include "TBICONN.CH"

 
User Function ExMATA610()

Local aVetor

Local aVetor1

Local nOpc

 :=

 3 //-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 ROTEIRO"

 
Local cCalendario := "01

 "

Private lMsErroAuto := .F.

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

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