ExecAuto limpando conteúdo do campo Memo

Bom dia pessoal, tudo bom?

Tenho um ExecAuto que preenche algumas informações na tabela SC6, porém após ele ser acionado, ele está limpando o conteúdo preenchido anteriormente em outro campo Memo na SC6, alguém teria uma sugestão do que pode estar causando? Abaixo segue meu fonte.

User Function MT681INC()


Local aArea := FWGetArea()
Local aCab :=  {}
Local aItens :=  {}
Local cOp      := SubString(SH6->H6_OP,1,6)
Local cItemOp  := SubString(SH6->H6_OP, 7, 2)
Local cProduto := SH6->H6_PRODUTO
Local cRecurso  := SH6->H6_RECURSO
Local aAreaSC5 := SC5->( getArea() )
Local aAreaSC6 := SC6->( getArea() )

lMsErroAuto := .F.

If cRecurso == '000058'

    //Posiciona no Pedido   
    DbSelectArea("SC5")
    SC5->(DbSetOrder(1))
    If SC5->(MsSeek(FWxFilial("SC5")+cOP))

        //Posiciona no Item do Pedido
        DbSelectArea("SC6")
        SC6->(DbSetOrder(1))
        If SC6->(MsSeek(FWxFilial("SC6")+cOP+cItemOP+cProduto))

            //Inicia Transação
            Begin Transaction

                    aCab :={;
                    {"C5_FILIAL"  , SC5->C5_FILIAL, Nil},;
                    {"C5_NUM"     , SC5->C5_NUM, Nil},;
                    {"C5_TIPO"    , SC5->C5_TIPO, Nil},;
                    {"C5_NATUREZ" , SC5->C5_NATUREZ, Nil},;
                    {"C5_ZZSETOR" , SC5->C5_ZZSETOR, Nil};
                    }

                    aGets := {}
                    aAdd(aGets, {"LINPOS"     , "C6_ITEM", SC6->C6_ITEM} )
                    aAdd(aGets, {"C6_LOTECTL"  , SH6->H6_LOTECTL, Nil} )
                    aAdd(aGets, {"C6_DTVALID"  , SH6->H6_DTVALID, Nil} )
                    aAdd(aGets, {"C6_ZZEXP"  , "S", Nil} )
                    aAdd(aItens, aClone(aGets))

                    MSExecAuto({|x,y,z|MATA410(x,y,z)},aCab,aItens,4)

                If lMsErroAuto
                    MostraErro()
                     DisarmTransaction()      
                    else
                    MsgInfo("Reserva ao pedido realizada!")
                EndIf
            End Transaction 
        EndIf
    EndIf
EndIf

SC5->(FWRestArea(aAreaSC5))
SC6->(FWRestArea(aAreaSC6))
FWRestArea(aArea)

Pergunte("MTA680", .F.)

Return Nil