Árvore de páginas

Versões comparadas

Chave

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

Rotina automática - MATA682 - Apontamento de Horas Improdutivas

Linha de Produto:

Protheus

Segmento:

Manufatura

Módulo:

SIGAPCP - Planejamento e Controle da Produção

Parâmetro(s):


Nome
Tipo
Descrição
Default
Obrigatório
Referência

aVetor
Array of Record
Array contendo os campos que serão enviados para o apontamento de horas improdutivas


X



nOpc
Numérico
Opção escolhida: Incluir, Alterar, Visualizar e Excluir, etc






Idiomas:Português (Brasil)

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos


Descrição:

Esta rotina realiza o Apontamento de Horas Improdutivas, através de rotina automática.

Exemplo:

User Function Tmata682()

Local aVetor := {}
Local nOpc := 3

lMsErroAuto := .F.


dbselectarea("SH6")SH6->( dbsetorder(2) )
if Dbseek (xfilial("SH6")+"MOD000000002 ")
aVetor := {{"H6_RECURSO","0001 ",NIL},;
{"H6_DTAPONT",dDataBase,NIL},;
{"H6_DATAINI", CTOD("05/03/08"),NIL}, ;
{"H6_DATAFIN", CTOD("06/03/08"),NIL}, ;
{"H6_HORAINI", "09:00", NIL},;
{"H6_HORAFIN", "16:00", NIL}}

MSExecAuto({|x,y| mata682(x,y)},aVetor,nOpc)

If lMsErroAuto
Alert("Erro")
Mostraerro()
Else
Alert("Ok")
End

Return

Para realizar a operação de estorno via Rotina Automática é OBRIGATÓRIO posicionar no registro desejado antes da chamada da MsExecAuto, ou, passar na última posição do ARRAY o índice que está sendo enviado para o MsExecAuto.


Sintaxe:

Rotina automática - MATA682 - Apontamento de Horas Improdutivas  ( < aVetor>, < nOpc> ) --> Nil

Programa Fonte:

MATA682.prx

Retorno:Nil (nulo)