#-*- Perl -*-
#add this to your register-initMachine-default
#DO NOT REPLACE reg-init... with this!!!

#copyright 2002 burrell business systems.
#2002-03-01 jburrell

#To use this code, open register-initMachine-default w/
#$LaneRoot/backOffice/tkoffice/sysStrings. copy the code
#from this file into the window, and press Process.

$useTaxCode = 1;

$taxCode = '
#move the gst amount to the taxable fields of the other amts
#the gst must be a lower number tax than the other tax, ie gst id=1, qst id=2
#$i is tx->id - 1
if($tx->{"id"} == 1)
{
  #this is the gst
  $me->{"sale"}{"taxable"}[1] -= $me->{"Taxes"}[0];
}
elsif($tx->{"id"} == 2)
{
  #pull the gst over first
  $me->{"sale"}{"taxable"}[1] += $me->{"Taxes"}[0];
}
';