added LSL2 stored procedures

LSL2/STPROC/INVOICE_COMM.txt

@@ -0,0 +1,38 @@
+compile function invoice_comm(Branch)
+begin condition
+pre:
+post:
+end condition
+declare function set_property, fieldcount, get_property, msg
+$insert logical
+ReturnVar = 0
+Branches = 'DUE_DATE_DEF'
+convert ',' to @fm in Branches
+locate Branch in Branches using @fm setting Bpos then
+   on Bpos gosub DueDateDefault
+end else
+   Void = msg( '', 'Invalid Branch ':Bpos:' passed to order_comm' )
+end
+return ReturnVar
+*===========================================================================*
+DueDateDefault:
+   Terms = get_property( @window:'.TERMS', 'TEXT' )
+   convert ' ' to @fm in Terms
+   begin case
+       case num( Terms<1> ) and num( Terms<2> )
+           DaysToAdd = Terms<4>
+       case num( Terms<2> ) 
+           DaysToAdd = Terms<2>
+       case Terms = 'C.O.D.'
+           DaysToAdd = 0
+       case Terms = 'Due Upon Recipt'
+           DaysToAdd = 10
+       case otherwise$
+           DaysToAdd = 10
+   end case
+   DayInt = iconv( get_property( @window:'.SHIP_DATE', 'TEXT' ), 'D' )
+   DayInt += DaysToAdd
+   ReturnVar = DayInt
+return ReturnVar
+
+*============================================================================*