Private Function diretel.frm_principal.unk_18af0.0.txt

Calls out:


_B_var_Str

Incoming calls for diretel.frm_principal.unk_18af0.0.txt


diretel.frm_principal.btn_notas_Click.7.txt
diretel.frm_principal.Combo1_Click.b.txt
diretel.frm_principal.Form_Load.11.txt
diretel.frm_principal.mnucompactar_Click.13.txt
diretel.frm_principal.opt_porapellido_Click.16.txt
diretel.frm_principal.opt_pornombre_Click.17.txt

Decompiled source code follows:

BLocal1 = " ORDER BY apellidos;"
If (opt_porapellido.Value != 0)
      BLocal1 = " ORDER BY apellidos;"
End If
If (opt_pornombre.Value != 0)
      BLocal1 = " ORDER BY nombres;"
End If
Data1.RecordSource = FormVar1 & BLocal1
Data1.Refresh
FLocal6 = Str(Data1.Recordset.RecordCount)
frm_principal.40.DBGrid1.NIL = ([OFFSET-CONTAINER] 1 ((4234664 + FLocal6) + 4234696) 8 NUMBER)
End Sub