Private Function diretel.frm_principal.Combo1_Click.b.txt

Calls out:

frm_principal.unk_18af0.0

Incoming calls for diretel.frm_principal.Combo1_Click.b.txt

Decompiled source code follows:

If (Combo1.Text = "Todas")
      If (opt_porapellido.Value != 0)
            FormVar1 = "SELECT * FROM directorio WHERE apellidos LIKE '" & Combo1.Text & "*' "
      Else
      End If
      If (opt_pornombre.Value != 0)
            FormVar1 = "SELECT * FROM directorio WHERE nombres LIKE '" & Combo1.Text & "*' "
      End If
Else
      FormVar1 = "SELECT * FROM directorio "
End If
frm_principal.unk_18af0.0
End Sub