*-- Part 1: Select
lcSelect = "Select ap_g.ven_numb, ap_g.voc_numb, ap_g.voc_type, " +;
"ap_g.due_days, ap_g.dis_days, ap_g.trn_date " +;
"000000000.00 as ag4_totl, 000000000.00 as tot_bala " +;
"FROM ap_g " +;
"LEFT OUTER JOIN ap_a " +;
"ON (ap_g.ven_numb = ap_a.ven_numb) "
lcWhere = "WHERE 0=0 "
IF ThisForm.chkShow_Past_Periods.Value = 0
lcWhere = lcWhere + " AND ap_g.voc_stat <> 1 "
ENDIF
IF Thisform.opgRpt_Sort.Value = 1
lcOrderBy = " ORDER BY ap_a.ven_name, ap_g.voc_numb "
ELSE
lcOrderBy = " ORDER BY ap_g.ven_numb, ap_g.voc_numb "
ENDIF
lcOrderBy = " ORDER BY ap_g.ven_numb, ap_g.voc_numb "
lcSQL = lcSelect + lcWhere + lcOrderBy
PRIVATE lcFile
lcFILE = SYS(2015)
x=SQLEXEC(gnC, lcSQL, lcFile)
IF x< 0
set step on
ENDIF
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement