IniRel

    Dim pag As Boolean
    Dim a As Single
    Dim vComplemento As String
    Dim ValorTotal As Currency
    Dim AtualizadoTotal As Currency
    Dim vQtdPlanos As Single
    Dim ano_extenso As Variant

    ValorTotal = 0

 ' Busca pelo arquivo rtf para a impressão
    If Existe(atual & "\PROMISSORIA.rtf") Then
        rtb.LoadFile atual & "\PROMISSORIA.rtf"
      Else
        MsgBox "Arquivo PROMISSORIA.rtf não encontrado em " & atual, vbCritical, App.ProductName
    End If

' Inicia o processo de impressão das informações
    ano_extenso = Split(Mid(frmLançamento.Mask(0).Text, 4, 4), "reais")

    rtb.TextRTF = Replace(rtb.TextRTF, "#descricao#", frmLançamento.Text1(0).Text, 1)
    rtb.TextRTF = Replace(rtb.TextRTF, "#valor#", Format(frmLançamento.Mask(1).Text, "Currency"), 1)
    rtb.TextRTF = Replace(rtb.TextRTF, "#dia#", NaoNull(frmCadAluno.datPrimaryRS(0).Recordset!dia), 1)
    rtb.TextRTF = Replace(rtb.TextRTF, "#mes#", Mes_Nome(Mid(frmLançamento.Mask(0).Text, 1, 2)), 1)
    rtb.TextRTF = Replace(rtb.TextRTF, "#ano#", ano_extenso(0), 1)
    rtb.TextRTF = Replace(rtb.TextRTF, "#empresa#", DadosEmpresa("razao"), 1)
    rtb.TextRTF = Replace(rtb.TextRTF, "#cnpj#", Format(DadosEmpresa("cgc"), "000 000 000/0000-00"), 1)
    rtb.TextRTF = Replace(rtb.TextRTF, "#valorext#", UCase(PassaExtenso(Val(frmLançamento.Mask(1).Text))), 1)
    rtb.TextRTF = Replace(rtb.TextRTF, "#enderecoempresa#", DadosEmpresa("endereco") & " - " & DadosEmpresa("bairro") & " - " & DadosEmpresa("cidade"), 1)
    rtb.TextRTF = Replace(rtb.TextRTF, "#emissao#", Date, 1)
    rtb.TextRTF = Replace(rtb.TextRTF, "#nome#", NaoNull(frmCadAluno.datPrimaryRS(0).Recordset!nome), 1)

    If Len(frmCadAluno.datPrimaryRS(0).Recordset!cgc) = 11 Then
        rtb.TextRTF = Replace(rtb.TextRTF, "#cpf#", Format(NaoNull(frmCadAluno.datPrimaryRS(0).Recordset!cgc), "000 000 000-00"), 1)
      Else
        rtb.TextRTF = Replace(rtb.TextRTF, "#cpf#", Format(NaoNull(frmCadAluno.datPrimaryRS(0).Recordset!cgc), "000 000 000/0000-00"), 1)
    End If

    rtb.TextRTF = Replace(rtb.TextRTF, "#endereco#", NaoNull(frmCadAluno.datPrimaryRS(0).Recordset!endereco), 1)

    rtb.Visible = True
    rtb.Locked = True
    HScroll.Visible = False
    VScroll.Visible = False
    FlatScrollBar1.Visible = False