Cross Segmento - Backoffice Linha Protheus - ADVPL - Abastecimento Manual:ExecAuto() de inclusão

Tempo aproximado para leitura:00:01:00 min

Dúvida
Qual o exemplo de ExecAuto() MNTA655, para inclusão?

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

Solução
Segue exemplo, lembrando que o parâmetro MV_NGGERPR tem que estar configurado com 'S'

#Include 'Totvs.ch' 

User Function MNT655EXEC()

    // Processo de Inclusão
    Local aAbast := {}
    //Abre empresa/filial/modulo/arquivos

    RPCSetEnv('99','01')
    // Itens obrigatórios para inclusão do abastecimento para posto interno

    aAbast := { {'TQN_PLACA' , '        '            , Nil },;
                {'TQN_FROTA' , 'TESTE-COMB      '    , Nil },;
                {'TQN_CNPJ'  , '43672104000155'      , Nil },;
                {'TQN_CODCOM', '002'                 , Nil },;
                {'TQN_DTABAS', StoD( '20200707' )    , Nil },;
                {'TQN_HRABAS', '15:05'               , Nil },;
                {'TQN_TANQUE', '  '                  , Nil },;
                {'TQN_BOMBA' , '   '                 , Nil },;
                {'TQN_QUANT' , 10                    , Nil },;
                {'TQN_VALUNI', 0                     , Nil },;
                {'TQN_VALTOT', 100                   , Nil },;
                {'TQN_HODOM' , 0                     , Nil },;
                {'TQN_CODMOT', '000001'              , Nil },;
                {'TQN_POSTO' , 'COLAB '              , Nil },;
                {'TQN_LOJA'  , 'SA'                  , Nil },;
                {'TQN_NOTFIS', '000000013'             , Nil }} 

    lMSHelpAuto := .T. // Não apresenta erro em tela
    lMSErroAuto := .F. // Caso a variável torne-se .T. apos MsExecAuto, apresenta erro em tela     

    MSExecAuto( { | v, x, y | MNTA655( v, x, y ) }, , aAbast, 3 )

    If lMsErroAuto
        If !IsBlind()          
            ConOut( "Ocorreu um error")
        Else
            cError := MostraErro( GetSrvProfString("Startpath","") , ) // Armazena mensagem de erro na raiz.
            ConOut( cError)
        EndIf
    ELSE
        ConOut( "Inclusão com sucesso")
    EndIf
RETURN