Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Juliana de Oliveira

Gravado em

comparado com

Nova versão 3

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]aVetor
Array of Record
CabeçalhoArray contendo os campos que serão enviados para o apontamento de horas improdutivas


X



nOpc
Numérico[nCallOpcx]Array of Record
Opção escolhida: 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 := {}
lMsErroAutoLocal 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},;           
              {"INDEX",2,NIL}}			

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

If lMsErroAuto		
   Alert("Erro")		
   Mostraerro()	
Else		
   Alert("Ok")	
End
if
else	
   Alert("Não achou")
Endif 

Return

Sintaxe:

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

Programa Fonte:

MATA682.prx

Retorno:Nil (nulo)