Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
MATA250 - Produção
MATA250 - Produção

Função: MATA250 - Produção

Esta 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

NomeTipoDescriçãoObrigatórioReferência
aVetorArray of RecordArray contendo os campos que serão enviados para a Produção X
nOpcNuméricoOpção escolhida: 3) Inclusão5) Estorno7) Encerramento X
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.
Para encerramentos manuais, é apresentada uma pergunta para confirmação ou não da alteração do campo para apropriação de custo.

O parâmetro deve ser preenchido com:

"S" -> Altera o conteúdo do campo D3_PARCTOT para T
"N" -> Não altera o conteúdo do campo D3_PARCTOT, deixando o campo preenchido com P

O parametro ABREOP  pode ser preenchido na rotina automática de Estorno, possibilitanto estornar o apontamento da produção e permitindo ao usuário estornar ou não o empenho gerado na SD4.
O parametro deve ser preenchido como:

"N" -> Estornará o apontamento da produção, porem, não estornará o empenho do SD4
"S" -> Fara o estorno do apontamento e o estorno do empenho gerado no SD4

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     
Protheus 10