Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

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.



Bloco de código
languagejava
linenumberstrue
#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