Cross Segmento - Backoffice Linha Protheus - ADVPL - Exemplo de ganho de produção por ExecAuto

Tempo aproximado para leitura: 00:01:00 min

Dúvida
Tem um exemplo de ganho de produção por ExecAuto()?

Ambiente
Protheus – ADVPL – A partir da versão P12

Solução
Parametrização de produção a maior e ganho de produção por ExecAuto() MATA250

Parametrização:
MV_GANHOPR = .T.
MV_PERCPRM= 100
Como no ExecAuto() não abre tela para classificar a quantidade excedente, deve ser passado via ExecAuto() a classificação da quantidade excedente nos campos D3_QTGANHO e D3_QTMAIOR.
Conforme exemplo a seguir: A OP tem a quantidade planejada de 5 e estou apontando quantidade 8.
Neste exemplo excedi 3 e classifiquei 2 como ganho e 1 como produção a maior.
Exemplo:

User Function MYMATA250()

Local aVetor
Local dData
Local nOpc := 3 //-Opção de execução da rotina,

prepare environment empresa "99" filial "01" modulo "est"

lMsErroAuto := .F.
aVetor := {}
dData:=dDataBase

aVetor := { {"D3_OP" ,"33707401001 " ,NIL},;
{"D3_COD" ,"TT-PA " ,NIL},;
{"D3_QUANT" ,8 ,NIL},; 
{"D3_PARCTOT" , "T" ,NIL},;
{"D3_TM" ,"010" ,NIL},;
{"D3_QTGANHO" ,2 ,NIL},;
{"D3_QTMAIOR" , 1 ,NIL}}

MSExecAuto({|x, y| mata250(x, y)},aVetor, nOpc )

If lMsErroAuto
CONOUT("Erro")
mostraerro()
Else
CONOUT("Incluido com sucesso")
Endif

return nil

Saiba Mais;
MATA250 - Produção