Private Function diretel.frm_principal.btn_imprimir_Click.5.txt

Calls out:


Printer
Print
IsNull
_B_var_Space
Len
NIL
usub_40e410

Incoming calls for diretel.frm_principal.btn_imprimir_Click.5.txt


Decompiled source code follows:

usub_40e410
Printer
(TOKEN_INTERNALERROR UNKNOWN-OBJ-TYPE #FUNCTION-TUPLE-3 41371D)
If (Global4304896 = 0)
Else
End If
Printer
Printer
LLocal2 = 1
Do While (LLocal2 <= Global4304920)
      Printer
      Printer
      Printer
      Print "Telf Nombre"
      (TOKEN_INTERNALERROR UNKNOWN-OBJ-TYPE #FUNCTION-TUPLE-187 413B3B)
      Data1.Recordset.MoveFirst
      Do While (Data1.Recordset.EOF = 0)
            BLocal2 = 1117126656
            BLocal1 = 0
            If ((0 + 4) Or ((NIL / Global4198896) - Global4198904))
                  (TOKEN_INTERNALERROR UNKNOWN-OBJ-TYPE #FUNCTION-TUPLE-192 413CA3)
                  Printer
                  Printer
                  Printer
                  Print "Telf Nombre"
                  (TOKEN_INTERNALERROR UNKNOWN-OBJ-TYPE #FUNCTION-TUPLE-197 413F4D)
                  BLocal2 = frm_principal
                  BLocal1 = 0
            End If
            FLocal202 = Len(Data1.Recordset.Fields.Item("telefono1").Value)
            BLocal3 = 0
            If (IsNull(Data1.Recordset.Fields.Item("telefono1")) != 0)
                  BLocal3 = " "
            Else
                  BLocal3 = (Data1.Recordset.Fields.Item("telefono1").Value + Space((10 - FLocal202)))
            End If
            BLocal5 = (OFFSET-CONTAINER 1 FLocal217)
            BLocal5 = MSVBVM50.__vbaHresultCheckObj
            BLocal5 = MSVBVM50.__vbaHresultCheckObj
            FLocal215 = Data1.Recordset.Fields.Item("apellidos").Value
            FLocal217 = Data1.Recordset.Fields
            BLocal4 = ((BLocal3 + FLocal215) + 4232936)
            If (IsNull(FLocal217.Item("nombres")) = 0)
                  FLocal221 = Data1.Recordset.Fields
                  BLocal5 = (OFFSET-CONTAINER 1 FLocal221)
                  BLocal4 = (((BLocal3 + FLocal215) + 4232936) + FLocal221.Item("nombres").Value)
            End If
            LLocal1 = (BLocal1 + 1)
            Printer
            Printer
            Printer
            Print BLocal4
            Data1.Recordset.MoveNext
      Loop
      (TOKEN_INTERNALERROR UNKNOWN-OBJ-TYPE #FUNCTION-TUPLE-230 41488A)
      LLocal2 = (1 + LLocal2)
Loop
End Sub