Erro em tempo de execução [RESOLVIDO]

wagnergarcia
(usa Outra)

Enviado em 06/11/2012 - 11:23h

Há algum tempo migrei do Microsoft Office para o Libreoffice, e estou tendo dificuldade em programar através do basic.

Se dessa vez, alguem puder me ajudar, fico completamente agradecido

O código abaixo apresenta o mesmo erro sempre que tento programar:

REM ***** BASIC *****

Option Explicit
' declaração da variável global
Dim dlg as object

Sub Main
'carregamos a biblioteca
DialogLibraries.LoadLibrary("minhaBiblioteca")
'carregamos o formulario atraves da variavel dlg
dlg = CreateUnoDialog(DialogLibraries.minhaBiblioteca.meuFormulario)
'chamada do método execute
dlg.Execute()
End Sub

Sub btCancelar_click

dlg.endExecute()
End

End Sub

Sub btOk_click

'recupera os controles no diálogo
txtNumero = dlg.getControl("txtNumero")
cboData = dlg.getControl("cboData")
txtCidade = dlg.getControl("txtCidade")
cboDestinatario = dlg.getControl("cboDestinatario")
txtDestinatario = dlg.getControl("txtDestinatario")
cboTratamento = dlg.getControl("cboTratamento")
txtAssinatura = dlg.getControl("txtAssinatura")

'validação dos dados digitados
if txtNumero.Text = "" then
msgBox "Informe o número do documento.", 48, "Atenção"
txtNumero.setFocu()
Exit sub
End if

'dados validados, continua... cria o documento
Dim doc, url, args()
url = ConvertToUrl("c:\Bibliotecas\Documentos\modelo.ott")
doc = StarDesktop.loadComponentFromUrl(url, "_blank", 0, args())

'insere o texto nos bookmarks
doc.Bookmarks.getByName("identificação").Anchor.setString("Documento nº " & txtNumero.Text)
doc.Bookmarks.getByName("local").Anchor.setString("txtCidade.Text" & ", " & cboData.Text)
doc.Bookmarks.getByName("destinatario").Anchor.setString(cboDestinatario.Text & Chr(10) & txtDestinatario.Text)
doc.Bookmarks.getByName("vocativo").Anchor.setString(cboTratamento.Text)
doc.Bookmarks.getByName("encerramento").Anchor.setString(cboEncerramento.Text)
doc.Bookmarks.getByName("assinatura").Anchor.setString(txtAssinatura.Text)

'move o foco para o bookmark "texto"
doc.currentController.viewCursor.gotoRange(doc.Bookmarks.getByName("texto").Anchor, false)

'fecha o dialogo e termina a macro
btCancelar_click

End Sub


Nesta linha, "txtNumero = dlg.getControl("txtNumero")", o basic informa um erro em tempo de execução, variavel nao definida.

Por favor, me ajudem!!!

Agradecido.