Histórico da Página
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): |
|
Descrição: | Esta rotina possibilita o apontamento de Produção baseado no Roteiro de Operações. Exemplo: #INCLUDE "RWMAKE.CH" #INCLUDE "TBICONN.CH" User Function RMATA681() Local aVetor := {} Local dDatalMsErroAuto := .F. PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "COM" TABLES "SH6"dData:=dDataBaseaVetor := { {"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) // inclusão///////////////////////////////////////////////////////////////////////////////////////////////////////////////If lMsErroAuto Mostraerro()else alert("ok")EndifReturn |
Sintaxe: | MATA681 - Apontamento de Produção baseado no Roteiro de Operações ( [ PARAMIXB1 ] ) --> nil |
Programa Fonte: | MATA681.PRW |
Retorno: | nil(nulo) |
Bloco de código | ||||
---|---|---|---|---|
| ||||
#Include "totvs.ch" #Include 'Protheus.ch' #Include "TBICONN.CH" //--------------------------- EXEMPLO 1 INCLUSÃO ----------------------------------------------------------------------------------------------- #INCLUDE "RWMAKE.CH" #INCLUDE "TBICONN.CH" User Function RMATA250RMATA681() Local aVetor := {} Local dData Local nOpc nOpc := 3 //-Opção de execução da rotina, informado nos parametros quais as opções possiveisl MsErroAutolMsErroAuto := .F. RpcSetEnv( "99","01",,,,,,,,,) PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "COM" TABLES "SH6" dData:=dDataBase aVetor := {; {"D3_OP" ,"00000501001" ,NIL},; {"D3H6_TM" OP" ,"01000000101001 " ,NIL}},; MSExecAuto({|x, y| mata250(x, y)},aVetor, nOpc ) If lMsErroAuto Mostraerro() Else Alert("Ok") Endif Return //--------------------------- ESTORNO EXEMPLO 1 -------------------------------------------------------------------------------------- User Function RMATA250() Local aVetor := {} Local nOpc := 5 //-Opção de execução da rotina, informado nos parametros quais as opções possiveis Local cOp := "00000301001 " Local cCod := "PROD {"H6_PRODUTO" ,"PA01 ",NIL},; {"H6_OPERAC" ,"01" ,NIL},; {"H6_RECURSO" ,"1" ,NIL},; " Local cLocal:= "01" Local cChave:= "" lMsErroAuto := .F. RpcSetEnv( "99","01",,,,,,,,,) cChave:= xFilial("SD3") + cOp + cCod + cLocal SD3->(DbSetOrder(1)) If SD3->(DbSeek(cChave)) While !(SD3->(Eof())) .And. SD3->(D3_FILIAL + D3_OP + D3_COD + D3_LOCAL) == cChave If SD3->D3_ESTORNO == " " aVetor := {; {"H6_DTAPONT" ,dData,NIL},; {"H6_DATAINI" ,dData ,NIL},; {"H6_HORAINI","19:11" ,NIL},; {"H6_DATAFIN",dData ,NIL},; {"D3H6_FILIALHORAFIN" ,xFilial("SD319:20") ,NIL},; {"D3_OP" ,cOp {"H6_PT" ,'P' ,NIL},; {"D3_QUANT" ,10 ,NIL},; {"D3H6_TMLOCAL" ,"001" 01" ,NIL},; {"D3H6_LOCALQTDPROD" ,cLocal 7 ,NIL}} MSExecAuto({|x, y| mata250mata681(x, y)},aVetor, nOpc ) If lMsErroAuto Mostraerro() Else Alert("Okok") Endif Exit EndIf SD3->(DbSkip()) EndDo EndIf Return //--------------------------- ESTORNO EXEMPLO 2 -------------------------------------------------------------------------------------- User Function RMATA250() Local aVetor := {} Local nOpc := 5 //-Opção de execução da rotina, informado nos parametros quais as opções possiveis Local cCod := "PROD " Local cLocal:= "01" Local cNumSeq:= "001813" Local cCf:= "PR0" lMsErroAuto := .F. RpcSetEnv( "99","01",,,,,,,,,) //Estou montando meu array aVetor com os campos do índice enviado na última posição, no caso 3. aVetor := {; {"D3_FILIAL" ,xFilial("SD3") ,NIL},; {"D3_COD" ,cCod ,NIL},; {"D3_LOCAL" ,cLocal ,NIL},; {"D3_NUMSEQ" ,cNumSeq ,NIL},; {"D3_CF" ,cCf ,NIL},; {"INDEX" ,3 ,NIL}} MSExecAuto({|x, y| mata250(x, y)},aVetor, nOpc ) If lMsErroAuto Mostraerro() Else Alert("Ok") Endif Return |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas