MATA680 - Rotina automática

Descrição

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

Observações

Exemplos

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

Preview

Veja também

Idioma

Português(Brasil)

Versões

Todas

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

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

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

Retorno

Nulo

Eventos de chamada do Ponto de Entrada

Variáveis

Programa Fonte

MATA680.PRW