Linha Microsiga Protheus

Árvore de páginas

MATA680 - Rotina automática

Linha de Produto:

Protheus

Segmento:

Manufatura

Módulo:

SIGAPCP - Planejamento e Controle da Produção

Parâmetro(s):

aRotAuto Array of Record Array com os campos, informações para o cadastro.

nOpcx Numérico Opção desejada: Encerrar, Excluir ou Incluir.

Idiomas:Português (Brasil)

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos


Descrição:

Inclui, altera ou encerra o apontamento de produção.

Exemplo:

User Function TMATA680_INCLUI()

Local nOpc := 3 //Inclusão

aadd(aMata680,{"H6_OP", "codigo da op" ,NIL})
aadd(aMata680,{"H6_PRODUTO", "codigo do produto" ,NIL})
aadd(aMata680,{"H6_DTAPONT", "Data final" ,NIL})

MsExecAuto({|x,y|MATA680(x,y)},aMata680,nOpc)

Return Nil

User Function TMATA680_EXCLUI()

Local nOpc := //exclui

aadd(aMata680,{"INDEX",nOrdem ,NIL}) //nOrdem : ordem de pesquisa dos dados.

MsExecAuto({|x,y|MATA680(x,y)},aMata680,nOpc)

Return Nil

User Function TMATA680_ENCERRA()

Local nOpc := 7 // Encerra ordem de produção

aadd(aMata680,{"H6_OP" , SH6->H6_OP ,NIL})
aadd(aMata680,{"H6_PRODUTO" , SH6->H6_PRODUTO ,NIL})
aadd(aMata680,{"H6_SEQ" , SH6->H6_SEQ ,NIL})

MsExecAuto({|x,Y|MATA680(aMata680,nOpc)})

Return Nil

Programa Fonte:MATA680.PRW
Retorno:Nulo