added LSL2 stored procedures

LSL2/STPROC/COMPANY_COMM.txt

@@ -0,0 +1,66 @@
+function company_comm(Branch)
+declare function set_property, fieldcount, get_property, msg
+begin condition
+pre:
+post:
+end condition
+Branches = 'SET_FIELDS'
+convert ',' to @fm in Branches
+locate Branch in Branches using @fm setting Bpos then
+   on Bpos gosub SetFields
+end else
+   Void = msg( '', 'Invalid Branch ':Bpos:' passed to company_comm' )
+end
+return 0
+*===========================================================================*
+SetFields:
+	CustArray = 'BILL_TO_ATTN/BILL_TO_CO/BILL_TO_ADDRESS/'
+	CustArray:= 'BILL_TO_CITY/BILL_TO_STATE/BILL_TO_ZIP/'
+	CustArray:= 'TERMS/SHIP_TO_ATTN/SHIP_TO_CO/SHIP_TO_ADDRESS/'
+	CustArray:= 'SHIP_TO_CITY/SHIP_TO_STATE/SHIP_TO_ZIP/SHIPPERINFO/'
+	CustArray:= 'NOTES/INVOICE_NOTES/DIRECTIONS/BUSINESS_DESC/CREDIT_INFO/'
+	CustArray:= 'SALESREP/SALESOFFICE/PRODUCTS/APPLICATION/INDUSTRY/ENDUSER_CUST/'
+	CustArray:= 'CUST_COMPETITION/OUR_COMPETITION/MANUTYPE/'
+	CustArray:= 'BILL_TO_ATTN_LABEL/BILL_TO_CO_LABEL/BILL_TO_ADDRESS_LABEL/'
+	CustArray:= 'BILL_TO_CITY_LABEL/BILL_TO_STATE_LABEL/BILL_TO_ZIP_LABEL/'
+	CustArray:= 'TERMS_LABEL/SHIP_TO_ATTN_LABEL/SHIP_TO_CO_LABEL/SHIP_TO_ADDRESS_LABEL/'
+	CustArray:= 'SHIP_TO_CITY_LABEL/SHIP_TO_STATE_LABEL/SHIP_TO_ZIP_LABEL/SHIPPERINFO_LABEL1/'
+	CustArray:= 'SHIPPERINFO_LABEL2_LABEL/NOTES_LABEL/INVOICE_NOTES_LABEL/BILL_TO_LABEL/SHIP_TO_LABEL/SHIPPER_INFO_GROUP/'
+	CustArray:= 'DIRECTIONS_LABEL/BUSINESS_DESC_LABEL/ACCOUNTREPS/ACCOUNTREPS_LABEL/'
+	CustArray:= 'INDUSTRY_LABEL/PRODUCTS_LABEL/EU_LABEL/SALES_LABEL/CUSTCOMP_LABEL/'
+	CustArray:= 'OURCOMP_LABEL/SALES_PLAN_PANEL'
+	VendArray = 'VREMIT_TO/VREMIT_ADDR/VREMIT_CITY/VREMIT_STATE/VREMIT_ZIP/'
+	VendArray:= 'VREMIT_COMPANY/VACCT_NO/VEND_NOTES/VREMIT_PHONE/'
+	VendArray:= 'VREMIT_TO_LABEL/VREMIT_ADDR_LABEL/VREMIT_CITY_LABEL/VREMIT_STATE_LABEL/VREMIT_ZIP_LABEL/'
+	VendArray:= 'VREMIT_COMPANY_LABEL/VACCT_NO_LABEL/VEND_NOTES_LABEL/VREMIT_PHONE_LABEL'
+	OtherArray = 'OTHER_NOTES/'
+	OtherArray := 'OTHER_NOTES_LABEL'
+	swap '/' with @rm:@window:'.' in CustArray
+	swap '/' with @rm:@window:'.' in VendArray
+	swap '/' with @rm:@window:'.' in OtherArray
+	CustArray = @window:'.':CustArray
+	VendArray = @window:'.':VendArray
+	OtherArray = @window:'.':OtherArray
+	CoControl  = @window:'.CO_TYPE'
+	CoType = get_property( CoControl, 'VALUE' )
+	
+	if CoType = 'C' then
+	   ArrayToShow = CustArray
+	   ArrayToHide = VendArray:@rm:OtherArray
+	end else
+	   if CoType = 'V' then
+	      ArrayToShow = VendArray
+	      ArrayToHide = CustArray:@rm:OtherArray
+	   end else 
+	      * it is an other
+	      ArrayToShow = OtherArray
+	      ArrayToHide = CustArray:@rm:VendArray
+	   end
+	end
+   RetVal = set_property( ArrayToShow, 'VISIBLE', 1 )
+   RetVal = set_property( ArrayToShow, 'ENABLED', 1 )
+   RetVal = set_property( ArrayToHide, 'VISIBLE', 0 )
+   RetVal = set_property( ArrayToHide, 'ENABLED', 0 )
+return 
+
+*===========================================================================*