MATA681 - Apontamento de Produção baseado no Roteiro de Operações

Linha de Produto:

Protheus

Segmento:

Manufatura

Módulo:

SIGAPCP - Planejamento e Controle da Produção

Parâmetro(s):

Nome	Tipo	Descrição	Obrigatório	Referência
aVetor	Array of Record	Array contendo os valores para o Apontamento de Produção	X
nOpc	Numérico	Opção escolhida: 3) Inclusão 5) Estorno 7) Encerramento	X

Descrição:	Esta rotina possibilita o apontamento de Produção baseado no Roteiro de Operações.
Sintaxe:	MATA681 - Apontamento de Produção baseado no Roteiro de Operações ( [ PARAMIXB1 ] ) --> nil
Programa Fonte:	MATA681.PRW
Retorno:	nil(nulo)

//--------------------------- EXEMPLO 1  ----------------------------------------------------------------------------------
#INCLUDE "RWMAKE.CH" 
#INCLUDE "TBICONN.CH" 

User Function RMATA681() 
Local aVetor := {} 
Local dData
Local nOpc   := 3

lMsErroAuto := .F. 

PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "COM" TABLES "SH6"

dData:=dDataBase
aVetor := {;
           {"H6_OP"	,"00000101001 " ,NIL},;
           {"H6_PRODUTO" ,"PA01 ",NIL},;
           {"H6_OPERAC" ,"01" ,NIL},;
           {"H6_RECURSO" ,"1" ,NIL},;
           {"H6_DTAPONT" ,dData,NIL},;
           {"H6_DATAINI" ,dData ,NIL},;
           {"H6_HORAINI","19:11" ,NIL},;
           {"H6_DATAFIN",dData ,NIL},;
           {"H6_HORAFIN","19:20" ,NIL},;
           {"H6_PT" ,'P' ,NIL},;
           {"H6_LOCAL" ,"01" ,NIL},;
           {"H6_QTDPROD",7 ,NIL}} 

MSExecAuto({|x| mata681(x)},aVetor, nOpc) 

If lMsErroAuto 
    Mostraerro()
Else 
    Alert("ok")
EndIf

Return

//--------------------------- EXEMPLO 2  ----------------------------------------------------------------------------------