Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Susan Marjorie Alves

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Juliana de Oliveira

Gravado em

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

[xAutoCab]
Array of Record
Cabeçalho


X



[nCallOpcx]
Array of Record
Opção Incluir,Alterar,Visualizar e 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 := {}
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},;           
              {"INDEX",2,NIL}}			

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

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

if
else	
   Alert("Não achou")
Endif 

Return

Sintaxe:

Rotina automática - MATA682 - Apontamento de Horas Improdutivas ( [xAutoCab] [ [nCallOpcx] ] ) --> Nil

Programa Fonte:

MATA682.prx

Retorno:Nil (nulo)