Versão atual:

MsExecAuto FINA050 nao permite alterar E2_VALORMsExecAuto FINA050 nao permite alterar E2_VALOR

Boa tarde, depois de migrar para a versão 12.1.33, o código abaixo parou de funcionar, mostrando o seguinte erro:

AJUDA:NOALTCAMPO O campo E2_VALOR não está liberado para alteração.

aVetor :={{"E2_FILIAL"  ,cxFilial,Nil},;
                 {"E2_PREFIXO"  ,cPrefixo,Nil},;
                 {"E2_NUM"      ,cNum,Nil},;
                 {"E2_PARCELA"  ,cParcela,Nil},;
                 {"E2_TIPO"     ,cTipo,Nil},;        
                 {"E2_FORNECE"  ,cFornece,Nil},; 
                 {"E2_LOJA"     ,cLoja,Nil},;      
                 {"E2_VALOR"    ,nValor,Nil}}

        Begin Transaction
            lMsErroAuto := .F.   
            cFunName := FunName()
            SetFunName( "FINA050" )
            MSExecAuto({|x,y,z| Fina050(x,y,z)},aVetor,,4) //Alteração
            IF lMsErroAuto
                   MsgStop("Problemas na alteração do titulo "+cKey1+", informe o setor de T.I.", "Atenção")
                MostraErro("\erros\","BKFINA04.ERR")
                DisarmTransaction()
                   lSucess := .F.
            EndIf
            SetFunName( cFunName )
        End Transaction

Comparei o SX3 do campo E2_VALOR das duas versões e está identico.

Versão (1):

Ver a versão formatada

MsExecAuto FINA050 nao permite alterar E2_VALORMsExecAuto FINA050 nao permite alterar E2_VALOR

Comentário

new question