39 lines
1.1 KiB
Plaintext
39 lines
1.1 KiB
Plaintext
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
|
|
|
|
*============================================================================*
|