Cross Segmento - TOTVS Backoffice Linha Protheus - ADVPL - Produção Simples:Estorno com ExecAuto MATA250

#include'totvs.ch'

User Function REMAT250() 

Local aVetor    := {} 
Local nOpc      := 5 //-Opção de execução da rotina, informado nos parâmetros quais as opções possiveis 
Local cOp       := "R1340101001   " 
Local cCod      := "01PROD061                     " 
Local cLocal    := "01" 
Local cChave    := "" 
lMsErroAuto     := .F.  

RpcSetEnv( "99","01",,,,,,,,,) 
    cChave:= xFilial("SD3") + cOp + cCod + cLocal 
    SD3->(DbSetOrder(1)) 
    If SD3->(DbSeek(cChave))
        While !(SD3->(Eof())) .And. SD3->(D3_FILIAL + D3_OP + D3_COD + D3_LOCAL) == cChave    
            If SD3->D3_ESTORNO == " "  
            aVetor := { {"D3_FILIAL"        ,XFILIAL("SD3") ,NIL},;
                        {"D3_TM"            ,"010"          ,NIL},;
                        {"D3_OP"            ,cOp            ,NIL},;
                        {"D3_COD"           ,cCod           ,NIL},;
                        {"D3_QUANT"         ,1              ,NIL},;
                        {"D3_LOCAL"         ,"01"           ,NIL},;
                        {"D3_EMISSAO"       ,dDatabase      ,NIL},;
                        {"ATUEMP"           , "T"           ,NIL}}   

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

                If lMsErroAuto
                    Mostraerro()  
                Else   
                    Alert("Ok")  
                Endif  
                Exit  
            EndIf  
            SD3->(DbSkip())  
        EndDo 
    EndIf 
Return