Segmento:

Manufatura

Parâmetro(s):

País(es):

Todos

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.

MATA682.prx