Histórico da Página

...

#Include

...

"totvs.ch"

...

#Include

...

'Protheus.ch'

...

#Include

...

"TBICONN.CH"

...

 
UserFunctionExMATA610()

...

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

returnnil