Histórico da Página

#Include "totvs.ch"
#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 */

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

lMsErroAuto := .F.

aVetor      := {}
aVetor1     := {}

aVetor      := {{"H1_CODIGO" , "005"           , NIL},;
                {"H1_CCUSTO" , "01"            , NIL},;
                {"H1_DESCRI" , "DESCRIÇÃO"     , NIL},;
                {"H1_CALEND" , "01"            , NIL}}
 
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