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' 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