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