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
				 	3 = INCLUSAO 
					4 = ALTERACAO
					5 - EXCLUSAO */

Prepare
//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'

lMsErroAutoaVetor      := {}
aVetor1     := .F.

{}

if nOpc == 3
    aVetor      := {{"H1_CODIGO" , cCodigo             , NIL},;
                    {"H1_CCUSTO" , cCenCusto           , NIL}
aVetor1,;
                    {"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" , "005"cCodigo             , NIL},;
                    {"H1_CCUSTO" , cCenCusto           , NIL},;
                    {"01H1_DESCRI" , cDescricao          , NIL},;
                    {"H1_DESCRICALEND" , cCalendario         , NIL}}

ElseIf nOpc == 5 //Considerar os espaços em branco de cada campo do Banco de Dados.
    aVetor      "DESCRIÇÃO":= {{"H1_CODIGO" , cCodigo             , NIL},;
                    {"H1_CALEND" , "01"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")
    MostraErromostraErro()
Else
    CONOUT("Operacao realizada com sucesso")
Endif

Return Nilnil