Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How Can I Get This Converted To SQL Select ?
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00110044
Message ID:
00110060
Vues:
60
Here's another copy, slightly cleaner... Its better to keep it organized to understand. I just indented the different fields to identify the breaks between the different tables, but that is not required...
SELECT T1.SLCSTN,;
	T1.SLONO,;
	T1.SLPTNO,;
	T1.SLPTD1,;
	T1.SLORQY,;
	T1.SLSHQO,;
	T1.SLSHQS,;
	T1.SLUNPR,;
	T1.SLLNST,;
	T1.SLEXPR,;
	T1.SLRQDT,;
	T1.SLPRDT,;
	T1.SLUNPO,;
	T1.SLRLNO,;
	T1.SLUNQY,;
	T1.SLLNNO,;
		T2.SHCSPO,;
		T2.SHORCL,;
		T2.SHORDT,;
		T2.SHALBO,;
		T2.SHSLNM,;
		T2.SHSLA1,;
		T2.SHSLA2,;
		T2.SHSLA3,;
		T2.SHSLCI,;
		T2.SHSLST,;
		T2.SHSLZP,;
		T2.SHRLNO,;
		T2.SHSHNM,;
		T2.SHHLDC,;
		T2.SHSTCN,;
			T3.WBBLT1,;
			T3.WBBLT4,;
			T3.WBBOSQ,;
			T3.WBRSOQ,;
				T4.SLMONO,;
					T5.HSTDT,;
					T5.HDUEDT,;
					T5.HCLSDT,;
						T6.ACBAC;
FROM	AADAT80/OP100M2 T1,;
	AADAT80/OP100M1 T2,;
	AADAT80/IC140M  T3,;
	AADAT80/EC200M  T4,;
	AADAT80/IC100M  T5,;
	AADAT80/DE100M  T6;
WHERE	T1.SLONO  = T2.SHONO;
  and T1.SLRLNO = T2.SHRLNO;
  and T1.SLWHS  = T3.WBWHNO;
  AND T1.SLPTNO = T3.WBPPN;
  and T1.SLONO  = T4.SPONO;
  and T1.SLRLNO = T4.SPRLNO;
  and T1.SLLNNO = T4.SPLNNO;
  and T4.SLMONO = T5.HZORNO;
  and T1.SLPTNO = T6.IZPN;
  and	T1.SLLNST <> 'C' ;
  and T6.PMPLNT = 'GSO';
ORDER BY T1.SLPTNO,;
	T1.SLPRDT,;
	T1.SLONO,;
	T1.SLRLNO;
into cursor NewQuery
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform