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