Histórico da Página
...
Bloco de código | ||||
---|---|---|---|---|
| ||||
#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
//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
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas