Histórico da Página
...
Portuguese | |||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Função: MATA250 - ProduçãoEsta rotina possibilita a execução do apontamento de produção, estorno do apontamento de produção e encerramento da ordem de produção, na rotina Produção, de forma automática. MATA250 - Produção ( < aVetor>, < nOpc> ) --> Nil
Nil (Nulo) O parâmetro AUTPRTOTAL pode ser preenchido na execução da rotina automática de Encerramento, quando o MV_PRODPR0 estiver configurado como 3, para definir se o campo D3_PARCTOT será atualizado com o conteúdo T no encerramento. //Inclusão User Function RMATA250() Local aVetor := {} Local dDataLocal nOpc := 3 //-Opção de execução da rotina, informado nos parametros quais as opções possiveislMsErroAuto := .F. RpcSetEnv( "99","01",,,,,,,,,)dData:=dDataBaseaVetor := {; {"D3_OP" ,"00000501001 " ,NIL},;{"D3_TM" ,"010" ,NIL}} MSExecAuto({|x, y| mata250(x, y)},aVetor, nOpc ) If lMsErroAuto Mostraerro()else Alert("Ok")EndifReturn //Estorno User Function RMATA250() Local aVetor := {} lMsErroAuto := .F. RpcSetEnv( "99","01",,,,,,,,,) cChave:= xFilial("SD3") + cOp + cCod + cLocal Return Protheus 10 Para que o sistema faça a baixa dos empenhos na chamada via ExecAuto, mesmo com o parâmetro Atu. Empenho está igual a Não, deve-se enviar um campo extra no array chamado "ATUEMP", com valor "T". Quando receber este campo no array, o sistema fará a baixa do empenho, simulando a resposta da pergunta "O tipo de movimento da producao esta configurado para nao atualizar empenhos.No encerramento devem ser atualizados ?" Exemplo:aVetor := { ; {"D3_OP" , "00018001001 " , NIL},; {"D3_TM" , "020" , NIL},; {"D3_QUANT" , 10 , NIL},; {"D3_PERDA" , 0 , NIL},; {"D3_PARCTOT", "T" , NIL},; {"ATUEMP" , "T" , NIL}; } |