Linha Microsiga Protheus

Árvore de páginas

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, 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)