- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- MsExecAuto com mBrowse
×
Linguagem de Programação ADVPL
Perguntas MsExecAuto com mBrowse
- sidronio
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 5
- Obrigados Recebidos: 0
9 anos 3 meses atrás #28803
por sidronio
MsExecAuto com mBrowse foi criado 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.
Obrigado.
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.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- MsExecAuto com mBrowse
Tempo para a criação da página:0.072 segundos