Home

Linha Microsiga Protheus

Páginas filhas
  • MATA680 - Rotina automática

Versões comparadas

Chave

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

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.

    

 

 

Retorno

Nulo

Eventos de chamada do Ponto de Entrada

Variáveis

Programa Fonte

MATA680.PRW