Histórico da Página
...
Local nOpc := 5 //-Opção de execução da rotina || 3- INCLUSAO || 4- ALTERACAO || 5- EXCLUSAO.
//Para alteracao e exclusao, condiderar considerar espacos em branco dos campos do Banco de Dados.
Local cCodigo := "006 "
Local cCenCusto := "01 "
Local cDescricao := "DESCRIÇÃO ROTEIRO1 DESCRICAO ROTEIRO"
Local cCalendario := "01 "
...
if nOpc == 3
aVetor := {{"H1_CODIGO" , cCodigo cCodigo , NIL},;
{"H1_CCUSTO" , cCenCusto cCenCusto , NIL},;
{"H1_DESCRI" , cDescricao 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 cCodigo , NIL},;
{"H1_CCUSTO" , cCenCusto cCenCusto , NIL},;
{"H1_DESCRI" , cDescricao 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 cCodigo , NIL},;
{"H1_CCUSTO" , cCenCusto cCenCusto , NIL},;
{"H1_DESCRI" , cDescricao cDescricao , NIL},;
{"H1_CALEND" , cCalendario , NIL}}
Endif
...
If lMsErroAuto
CONOUT("Erro")
mostraerroMostraErro()
Else
CONOUT("Operacao realizada com sucesso")
Endif
return Return nil