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" |
...
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 |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas