× Linguagem de Programação ADVPL

Perguntas MsExecAuto com mBrowse

Mais
9 anos 3 meses atrás #28803 por sidronio
Bom dia!

Preciso executar a rotina automática da baixa do contas a receber exibindo o mbrowse. Eu consigo executá-la e o título é baixado mas a tela não é carregada.

No link do tdn a variável responsável é a lNoMBrowse, porém não sei se ela deve ser setada como .T. ou .F. por causa desse "No" no nome dela. Porém das duas formas não funciona.
//+----------------------------------------------------------------+ 
               //| Baixa dos títulos de débito pagos no acerto.                   | 
               //+----------------------------------------------------------------+ 
                                                                                                             
               dbSelectArea("SE1") 
               SE1->(dbSetOrder(1))                         
                
               cDebBaixado := aTitulosEmAberto[nI,2] + ;   // Prefixo 
                              aTitulosEmAberto[nI,3]     + ;          // Núemro 
                              aTitulosEmAberto[nI,4]     + ;          // Parcela 
                              aTitulosEmAberto[nI,5]          // Tipo                          
           
               If SE1->(dbSeek(xFilial("SE1") + cDebBaixado))      
                
                    RecLock("SE1")                          
                         SE1->E1_ACEBAIX = SZ7->Z7_NUM 
                    MsUnlock() 
                     
                    cHistDeb := "Baixa no acerto: " + Z7_NUM 
                
                    aBaixa := {{"E1_PREFIXO" ,     SE1->E1_PREFIXO     ,Nil    },; 
                               {"E1_NUM"      , SE1->E1_NUM        ,Nil    },; 
                                 {"E1_PARCELA" , SE1->E1_PARCELA          ,Nil    },; 
                               {"E1_TIPO"     , SE1->E1_TIPO          ,Nil    },;                           
                               {"AUTMOTBX"    , "NOR"                 ,Nil    },; 
                               {"AUTBANCO"    , SA6->A6_COD              ,Nil    },; 
                               {"AUTAGENCIA" , SA6->A6_AGENCIA     ,Nil    },; 
                               {"AUTCONTA"    , SA6->A6_NUMCON         ,Nil    },; 
                               {"AUTDTBAIXA" , dDtFecha            ,Nil    },; 
                               {"AUTDTCREDITO", dDtFecha            ,Nil    },; 
                               {"AUTHIST"     , cHistDeb             ,Nil    },; 
                               {"AUTJUROS"    , 0                   ,Nil,.T.},; 
                               {"AUTVALREC"   , SE1->E1_VALOR       ,Nil    }}                                
                                     
                  lMsErroAuto := .F.      
                    MSExecAuto({|x,y,z| Fina070(x,y,z)},aBaixa,3,.T.) 

                    If lMsErroAuto 
                        MostraErro(‘C:\‘,‘MEUERRO.LOG‘) 
                    Endif 
                     
                    Alert("Título baixado: " + cDebBaixado + " Z7_NUM: " + SZ7->Z7_NUM)                          
               EndIf 
                     
               SE1->(dbCloseArea()) 
          EndIf 

Obrigado.

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.072 segundos
Joomla templates by a4joomla