Linha de Produto: | Protheus |
Segmento: | Manufatura |
Módulo: | SIGAPCP - Planejamento e Controle da Produção |
Ocorrência | Exemplo prático de como cadastrar roteiros em rotinas automáticas. |
Passo a Passo: | Abaixo exemplo de inclusão, alteração e exclusão de roteiros. |
#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