#-*-Perl-*- #register-eprocess-debit.txt #install with "update-sysStrings register-eprocess-# < register-eprocess-debit.txt" #where # is the debit/gift tender number. make sure to set eprocess in the tender table/program ############################################################################################# #use the amount up $me->{'cust'}->chargeToAcct(Common::extFmt($amt)); #this code prints a amount remaining ticket return 0 if(!$me->{'string'}->open('debit-remaining-ticket')); &main::receiptPrint("Remaining on Card " . Common::moneyFmt($me->{'cust'}{'creditRmn'} * 100)); my $t = $me->{'string'}{'data'}; $t =~ s//Common::moneyFmt($me->{'cust'}->{'creditRmn'} * 100)/eg; $t =~ s//$me->{'cust'}{'id'}/g; $t =~ s//sprintf("%-40.40s %-40.40s %-40.40s %-40.40s ", $me->{'cust'}->getName(), $me->{'cust'}{'billAddr1'}, $me->{'cust'}{'billAddr2'}, $me->{'cust'}{'billCity'} . ", " . $me->{'cust'}{'billSt'} . " " . $me->{'cust'}{'billZip'})/eg; $main::printer->printFormatted($t); $main::printer->finishReceipt(); return 1;