Commits

Anonymous committed 99750b2

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

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()')

WWBUSINESSPRO.VCA

 
 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
 
 	Try
 
 	
 
- 
+  
 ENDPROC
 PROCEDURE calculatevalue
 Lparameters tcSql

mybusinessobjects.VCT

Binary file modified.

mybusinessobjects.vcx

Binary file modified.

wwbusinesspro.vct

Binary file modified.

wwbusinesspro.vcx

Binary file modified.