Histórico da Página
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 | ||||
---|---|---|---|---|
| ||||
#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