Ma...@MSPC4.jordan.local  committed 99750b2

On class wwBusPro, fixed code in the new Alltrim() method.

  • Participants
  • Parent commits 1af689f

Comments (0)

Files changed (6)

 Local loJob as 'Job' of 'MyBusinessObjects.vcx'
 loJob = CreateWWBO('Job', .T.)	&&  Use the wwBusinessPro Factory procedure to return the BO from wwBusinessObjects.dbf
-									&& .T. means "load child object also" (see wwBusinessOb.dbf)
+									&& .T. means "load Child object(s) also"
 If !Vartype(loJob) = 'O'
  Messagebox('Test Failed - No object returned from call to CreateWWBO()')


 AMembers(laProperties, this.oData)
-For x = 1 to Len(laProperties)
+For x = 1 to ALen(laProperties)
-	lcProperty = laProperties[1]
+	lcProperty = laProperties[x]
 	lcRef = 'This.oData.' + lcProperty
 PROCEDURE calculatevalue
 Lparameters tcSql

File mybusinessobjects.VCT

Binary file modified.

File mybusinessobjects.vcx

Binary file modified.

File wwbusinesspro.vct

Binary file modified.

File wwbusinesspro.vcx

Binary file modified.