Histórico da Página

Descriçã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 producao"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.