The “MONIES COLLECTED AT DIFFERENT STORES” report
that runs with the Daily Transactions Listing report for multi-store
operations doesn’t provide a detailed breakdown of the method of
payment for each amount, making it hard to balance the cash drawer if
there is a lot of interstore payments due.  The following report
replaces the standard cr_trnfr.eq to give this detail.  All you need to do is save it in your custom directory as cr_trnfr

— cr_trnfr.eq – Monies Collected at Other Loc – Detailed

define string Loc[3] = parameter/cls/line = 10/prompt = “Enter Store Location or #A for all locations “/uppercase

define Ascii Date ll_date = parameter/cls/line = 10/prompt = “Please Enter Reporting Date :”

define STD_DATE l_date = ll_date

define file cust_name = access cs_main, set cs_key=cr_main:cs_key

define file parm2=access al_param, set al_param:al_location = al_line:al_location, exact

define std_amt owed=if cr_finpy:al_location<>al_line:al_location then cr_finpy:cr_paymt_amount

else 0

where (cr_finpy:cr_pay_type=”CA” or cr_finpy:cr_pay_type=”CK” or
cr_finpy:cr_pay_type=”CC”) and cr_finpy:cr_fdate=l_date and
owed<>0

list/domain=”cr_finpy”/title=”MONIES COLLECTED AT DIFFERENT STORES – DETAIL”/nobanner

parm2:al_loc_desc[1,15]/heading=”DUE FROM:”/nodup

al_param:al_loc_desc[1,15]/heading=”DUE TO:”/duplicates

cr_main:cr_trans_type cr_contract cr_reservation

cust_name:cs_name[1,15]

owed

cr_finpy:cr_pay_type

sorted by cr_main:al_location parm2:al_location/total cr_finpy:cr_transaction

top of page

l_date/mask=”mm/dd/yy”/heading=”Report Date”/newline

 string whichst[10] = parameter/uppercase prompt “Enter Res#/Con# or Start Date (#A for All)”
   default str(todaysdate+2, “MM/DD/YY”);

 string whichen = parameter/uppercase prompt “Enter Ending Date”
   default if (trun(whichst[1,1]) = “C” or trun(whichst[1,1]) = “R” or trun(whichst[1,1]) = “#”)
           then “START DATE NOT USED”
           else str(todaysdate+9, “MM/DD/YY”);

 std_date start_dt = if (trun(whichst[1,1]) = “C” or trun(whichst[1,1]) = “R” or trun(whichst[1,1]) = “#”)
                     then 01.01.1951
                     else date(whichst);

 std_date end_dt = if (trun(whichst) contains “C” or trun(whichst) contains “R” or trun(whichst[1,1]) = “#”)
                   then 12.31.2050
                   else date(whichen);

 string ttype = if trun(whichst[1,1]) one of “C”,”R”
   then trun(whichst[1,1])
   else “#A”;

 string whichtkt = if ttype one of “C”,”R”
   then trun(whichst[2,8])
   else “#A”;

 std_location pull_loc = parameter/uppercase prompt “Enter Store Number to Report”
   valid “100”,”125″,”150″,”175″,”200″,”300″,”#A”
   default if (ttype one of “C”,”R”) then “#A”
           else “”;

 string whichitems[2] = parameter/uppercase
   prompt “Find pull items by (D)epartment, by FA (G)roup, or select (A)ll Items?”
   default “A”;

 string rptcontents = switch(whichitems)
   case “D”      : “Deparments: “
   case “F”,”G”  : “FA Groups: “
   case “#A”,”A” : “All Items”;

 string itemsel[50] = parameter/uppercase
   prompt “Enter Depts or FA Groups separated by a space (#A for All)”
   default if (whichitems = “A” or whichitems = “#A”) then “ALL ITEMS – NO INPUT REQUIRED”
      else if (whichitems = “D”) then “Departments:”
      else if (whichitems = “F” or whichitems = “G”) then “Groups:”;

 string selection = if (whichitems one of “#A”,”A”) then “”
               else if (whichitems one of “F”,”G”) then trun(itemsel)
               else if (whichitems = “D”) then trun(itemsel);

 string dorw = parameter/uppercase
   prompt “Include (D)elivery,  (W)ill-Call,  (B)oth”
   valid “D”,”W”,”B”
   default “B”;

 string del_will2 = switch(dorw)
   case “D” : “Y”
   case “W” : “N”
   case “B” : “#A”;

 string del_will = switch(cr_main:cr_delivery)
   case “Y” : “D”
   case “N” :”W”;

 file rcmain = access rc_main, set
   rc_main:rc_inv_no = cr_fixat:rc_inv_no;
 
 file famain = access fa_main, set
   fa_main:rc_inv_no = cr_fixat:rc_inv_no,
   fa_main:fa_ref_no = cr_fixat:fa_ref_no, generic;

 file frgroup = access fr_group, set
   fr_group:fr_group = rcmain:fr_group;

 file rentlock = access cr_frlck, set
   cr_transaction = cr_fixat:cr_transaction,
   cr_item_id = cr_fixat:cr_item_id, generic;
 
 file slmain = access sl_main, set
   sl_main:sl_mfg_cat_no = cr_sales:sl_mfg_cat_no, generic;
 
 file slcateg = access sl_categ, set
   sl_categ:sl_category = slmain:sl_category, generic;
 
 file slname = access sl_name, set
   sl_name:sl_mfg_cat_no = cr_sales:sl_mfg_cat_no, generic;
 
 file salelock = access cr_frlck, set
   cr_frlck:cr_transaction = cr_main:cr_transaction,
   cr_frlck:cr_item_id = cr_sales:cr_item_id, generic;

find cr_main
  with
    (
    (cr_main:cr_contract_closed = “N”) and
    ((ttype = “R” and str(cr_main:cr_reservation) = whichtkt) or (ttype = “C” and str(cr_main:cr_contract) = whichtkt) or (ttype = “#A” and whichtkt = “#A”)) and
    (cr_main:cr_trans_type one of “C”,”R”) and
    (cr_main:cr_out_date >= start_dt) and
    (cr_main:cr_out_date <= end_dt) and
    (cr_main:al_location = pull_loc or pull_loc = “#A”) and
    (cr_main:cr_delivery=del_will2 or del_will2 = “#A”) and
      (
      (whichitems one of “#A”,”A”) or
      (whichitems = “D” and (trun(itemsel) = “#A” or (trun(slcateg:al_dept_code) <> “” and itemsel contains trun(slcateg:al_dept_code))))
      )
    )
  or with
    (
    (cr_main:cr_contract_closed = “N”) and
    ((ttype = “R” and str(cr_main:cr_reservation) = whichtkt) or (ttype = “C” and str(cr_main:cr_contract) = whichtkt) or (ttype = “#A” and whichtkt = “#A”)) and
    (cr_main:cr_trans_type one of “C”,”R”) and
    (cr_main:cr_out_date >= start_dt) and
    (cr_main:cr_out_date <= end_dt) and
    (cr_main:al_location = pull_loc or pull_loc = “#A”) and
    (cr_main:cr_delivery=del_will2 or del_will2 = “#A”) and
      (  
      (whichitems one of “#A”,”A”) or
      ((whichitems one of “F”,”G”) and (trun(itemsel) = “#A” or (trun(frgroup:fr_group) <> “” and itemsel contains trun(frgroup:fr_group)))) or
      (whichitems = “D” and (trun(itemsel) = “#A” or (trun(frgroup:al_dept_code) <> “” and itemsel contains trun(frgroup:al_dept_code))))
      )
    )

list/duplicates/nobanner/noblanklines/pagewidth=100/domain=”cr_main”
  cs_main:cs_name/heading=”CUSTOMER”/noduplicates
  cr_main:cr_out_date/heading=”OUT-DATE”/mask=”MM/DD/YY”/noduplicates
  cr_main:cr_use_date/heading=”EVENT-DATE”/mask=”MM/DD/YY”/noduplicates
  cr_main:cr_in_due_date/heading=”IN-DATE”/mask=”MM/DD/YY”/noduplicates
  cr_main:cr_initial_clerk/noduplicates
  cr_main:cs_id_4/heading=”SALES-PERSON”/noduplicates
  cr_main:cr_reservation/heading=”RES”/noduplicates
  cr_main:cr_number_of_modification/noduplicates/heading=”#-MOD”
  del_will/heading=”DEL/-WC”/noduplicates/newline

followed by
  box/column=4
    
    if (
       (whichitems one of “#A”,”A”) or
       (whichitems = “D” and ((trun(frgroup:al_dept_code) <> “” and itemsel contains trun(frgroup:al_dept_code)))) or
       ((whichitems one of “F”,”G”) and (trun(itemsel) = “#A” or (trun(frgroup:fr_group) <> “” and itemsel contains trun(frgroup:fr_group))))
       )
    then
      {
      “____”
      cr_fixat:cr_quantity/noheading/column=5/nototal/name=”A”
      cr_fixat:rc_inv_no/noheading/column=15/name=”B”
      if rentlock:cr_free_text_line_1 <> “” then rentlock:cr_free_text_line_1
        else famain:fa_name/noheading/column=38/name=”C”/newline
      if rentlock:cr_transaction <> 0 then
        {
        if rentlock:cr_note_text <> “” then
          {     /*==== FA LINE LOCKED FREE NOTES ===*/
          “”/newline
          rentlock:cr_note_text/noheading/align=C/text/width=50
          “”/newline
          “”/newline — work around for CQ bug
          }
        }
      }
  end box

followed by “”/newline

followed by
  box/column=4
    if
      (
      (cr_sales:cr_sl_quantity <> 0) and
      ((whichitems one of “#A”,”A”) or (whichitems = “D” and (trun(itemsel) = “#A” or (trun(slcateg:al_dept_code) <> “” and itemsel contains trun(slcateg:al_dept_code)))))
      )
    then
      {
      “SALES”/column=1
      cr_sales:cr_sl_quantity/noheading/align=A/nototal
      cr_sales:sl_mfg_cat_no/noheading/align=B
      if salelock:cr_free_text_line_1 <> “” then salelock:cr_free_text_line_1
        else slname:sl_name/noheading/align=C/newline
      if salelock:cr_transaction <> 0 then
        {
        if salelock:cr_note_text <> “” then
          {     /*==== SALE LINE LOCKED FREE NOTES ===*/
          “”/newline
          salelock:cr_note_text/noheading/align=C/text/width=50
          “”/newline
          “”/newline — work around for CQ bug
          }
        }
      }
  end box

sorted by
  cr_main:cr_out_date
  cr_main:cr_out_time
  cs_main:cs_name
  cr_main:cr_reservation/newpage
  cr_fixat:cr_fseq

top of page
  (“PULL REPORT  for  ” + rptcontents + selection)/column=1/line=3
  (“For Location:  ” + pull_loc)/column=1/line=4

  (“Run:  ” + str(todaysdate) + ”  ” + str(systemtime))/column=75/line=3/right

  start_dt/mask=”MM/DD/YYYY”/noheading/width=10/column=81/line=4/right
  ” Thru “/column=87/line=4/right
  end_dt/mask=”MM/DD/YYYY”/noheading/width=10/column=90/line=4/right

–define number MonthPar = parameter/prompt=”Enter Month (1-12): “

define number YearPar = parameter/prompt=”Enter Year (YYYY): “

define string Loc[3]= parameter/prompt=”Enter store location or #A for all stores: “/uppercase

define file wkdeflt = access wk_deflt, set

   wk_def_set = “1”, generic

where

    cr_main:cr_annual_event = “Y” and

    (trun(loc) = “#A” or trun(cr_main:al_location) = trun(loc)) and

   — month(cr_main:cr_out_date) = MonthPar and

    year(cr_main:cr_out_date) = YearPar

list/nobanner/pagewidth=120

    cr_main:cr_contract/noheading/name=”A”

    cs_main:cs_name/noheading/name=”B”

    if day(01.02.1990) =  1 then

        cs_main:cs_phone_1_aus/noheading/name=”C”

    else

        str(cs_main:cs_phone_1,”(ZZZ)999-9999″)

    cr_main:cr_out_date/noheading/width=8/name=”D”

sorted by

    cr_main:cr_out_date/month/newline

top of Page

 — “Annual Event Report for “+str(MonthPar,”99″)+”/”+str(YearPar,”9999”)/center/newl

  “Store Name: “+al_param:al_loc_name+” – “+

  “Location: “+  al_param:al_location/noheading /center/newl=2

    “Contract#”/align=A

    “Customer Name”/align=B

    wkdeflt:cs_p_1_desc/align=C/noheading

    “Out Date”/width=8/align=D

The following report lists AR customers who have not done any business with you in the last year:

where cs_main:cs_type_code= “AR” and cs_last_cont_date < todaysdate-365  list/nobanner/title=”AR CUSTOMERS WITH NO ACTIVITY IN THE LAST YEAR”
cs_main:cs_key cs_name cs_address_1 cs_city al_st_code al_zipcode
cs_last_cont_date cs_contact
cs_phone_1

sorted by cs_main:cs_name

define std_date begdate = parameter/prompt=”Enter Reginning Reservation Date to Include” default todaysdate;

define std_date enddate = parameter/prompt=”Enter Ending Reservation Date to Include” default todaysdate + 14;

define file ocrmain = access cr_main, set cr_contract = fa_main:cr_contract_on_rent, generic

where cr_main:cr_trans_type=”R” and cr_main:al_location<> fa_main:al_location and

fa_main:fa_type=”I” and cr_main:cr_out_date>=begdate and cr_main:cr_in_due_date<=enddate list/nobanner/domain=”cr_fixat”/title=”ASSETS AT WRONG LOCATION FOR UPCOMING RESERVATION”

cr_main:al_location/heading=”TICKET-LOC”/width=6

cr_main:cr_reservation/nocommas/heading=”RESV#”/width=9

cs_main:cs_name/heading=”CUSTOMER”

cr_main:cr_out_date/mask=”mm/dd/yy” cr_in_due_date/mask=”mm/dd/yy”/heading=”IN-DATE”

cr_fixat:fa_key/heading=”ASSET”

fa_main:fa_name[1,30]/heading=”DESCRIPTION”

fa_main:al_location/heading=”ASSET-LOCATION”

if fa_main:cr_contract_on_rent>0 then {

fa_main:cr_contract_on_rent/heading=”ON-CONTRACT”/nocommas/zerosuppress

ocrmain:cr_in_due_date/mask=”mm/dd/yy”/heading=”DUE-BACK”

}

sorted by cr_main:al_location/newlines cr_main:cr_out_date cr_fixat:fa_key

define date indt = parameter/prompt=”Enter Date Back Posted To (Last Day of Month)”

define date fom = indt – day(indt) + 1

define date  eom = dateadd(fom,1) – 1

define file csmain = access cs_main, set cs_main:cs_key = cr_main:cs_key, generic

where cr_log:cr_trans_stat = “BP” and cr_log:cr_log_date= eom 

list/nobanner/title = “Back Posting Report”/domain = “Cr_log”

 cr_main:cr_contract cr_log:cr_log_date/width = 8/heading = “Back Posted-To” cr_clerk_init/heading =

“Back Posting-Clrk” cr_log_entry_date

/heading = “Back Posted-On”/width = 8 csmain:cs_name/heading = “Customer” cr_totls:cr_ticket_total

/heading = “Ticket-Total”

cr_finpy:cr_paymt_amount cr_pay_type al_card_type/heading = “CC-TY” cr_pay_id/heading = “CC/CK #”

/*=============================DOCUMENTATION================================*\

      Name: CR_DLYPY

 Overview:  Daily received on account             

\*=========================END OF DOCUMENTATION=============================*/

define ascii date bb=parameter/prompt=”Enter the starting date of counter payments to dump:”

define ascii date end_date=parameter/prompt=”Enter the ending date of counter payments to dump:”

define std_date business_date=bb

define std_date to_date=end_date

define string inccash[1]=parameter/prompt=”Include cash payments?” default “Y”

define string inccheck[1]=parameter/prompt=”Include check payments?” default “Y”

define string inccard[1]=parameter/prompt=”Include card payments?” default “Y”

define string inccharge[1]=parameter/prompt=”Include charge payments?” default “Y”

define string incfc[1]=parameter/prompt=”Include fc payments?” default “Y”

define string loc[3]=parameter/prompt=”Which location? #A for All” default “#A”

define string term[10]=parameter/prompt=”Which Terminal? #A for All” default “#A”

define file crmain=access cr_main, set cr_main:cr_transaction = cr_finpy:cr_transaction, generic

define file womain=access wo_main, set wo_main:cr_transaction = cr_finpy:cr_transaction, generic

define unsigned ascii number key[6] = if crmain:cr_transaction <> 0 then crmain:cs_key

           else womain:cs_key

define string transtype[1] = if crmain:cr_transaction <> 0 then crmain:cr_trans_type

           else womain:cr_trans_type

define file csmain=access cs_main, set cs_main:cs_key=key, exact

define STD_TRANS trans_num= if crmain:cr_transaction <> 0 then

       switch(crmain:cr_trans_type)

          case “R” : crmain:cr_reservation

          case “C” : crmain:cr_contract

          default  : crmain:cr_transaction

    else

      switch(womain:cr_trans_type)

          case “W” : womain:cr_contract

          case “E” : womain:cr_estimate

          default  : womain:cr_transaction

define ticket[42]=transtype+str(trans_num,”ZZZZZZZZ9″)+”   “+csmain:cs_name

define unsigned ascii cashct= if cr_finpy:cr_pay_type=”CA” then 1

                else 0

define unsigned ascii checkct= if cr_finpy:cr_pay_type=”CK” then 1

                else 0

define unsigned ascii ccct= if cr_finpy:cr_pay_type=”CC” then 1

               else 0

define unsigned ascii arct= if cr_finpy:cr_pay_type=”AR” then 1

               else 0

define unsigned ascii fcct= if cr_finpy:cr_pay_type=”FC” then 1

              else 0

define std_amt cashamt= if cr_finpy:cr_pay_type=”CA” then cr_finpy:cr_paymt_amount

             else 0

define std_amt checkamt= if cr_finpy:cr_pay_type=”CK” then cr_finpy:cr_paymt_amount 

            else 0

define std_amt ccamt= if cr_finpy:cr_pay_type=”CC” then cr_finpy:cr_paymt_amount

            else 0

define std_amt amexamt = if cr_finpy:al_card_type = “AM” then cr_finpy:cr_paymt_amount

           else 0

define std_amt visaamt = if cr_finpy:al_card_type = “VI” then cr_finpy:cr_paymt_amount

          else 0

define std_amt MCamt = if cr_finpy:al_card_type = “MC” then cr_finpy:cr_paymt_amount

          else 0

define std_amt otheramt = if cr_finpy:al_card_type <> “MC” and al_card_type <> “VI” and

      al_card_type <> “AX” and cr_pay_type = “CC” then

                        cr_finpy:cr_paymt_amount

                          else 0

define std_amt aramt= if cr_finpy:cr_pay_type=”AR” then

                         cr_finpy:cr_paymt_amount

                         else 0

define std_amt fcamt= if cr_finpy:cr_pay_type=”FC” then

                       cr_finpy:cr_paymt_amount

                       else 0

where cr_finpy:cr_fdate>=business_date and

  cr_finpy:cr_fdate<=to_date and

   ((crmain:cr_trans_type <> “D” and

    crmain:cr_transaction = cr_finpy:cr_transaction) or  womain:cr_transaction = cr_finpy:cr_transaction ) and

    ((inccash=”Y” and cr_finpy:cr_pay_type=”CA”) or

    (inccheck=”Y” and cr_finpy:cr_pay_type=”CK”) or

    (inccard=”Y” and cr_finpy:cr_pay_type=”CC”) or

    (inccharge=”Y” and cr_finpy:cr_pay_type=”AR”) or

    (incfc=”Y” and cr_finpy:cr_pay_type=”FC”)) and

    (loc=”#A” or loc=cr_finpy:al_location) and

    (term=”#A” or term=cr_finpy:al_line)

list/nodefaults/title=”Cash Register Payment Analysis”/domain=”cr_finpy”/nodetail

 ticket/heading=”TICKET #      NAME”

 cashamt/zerosuppress/width=12/nocomma/heading=”CASH”

 checkamt/zerosuppress/width=12/nocomma/heading=”CHECK”

 ccamt/zerosuppress/width=12/nocomma/heading=”CARD”

 aramt/zerosuppress/width=12/nocomma/heading=”AR CHARGE”

 fcamt/zerosuppress/width=12/nocomma/heading=”FRC CHARGE”

 cr_finpy:cr_paymt_amount/zerosuppress/width=13/nocomma/HEADING=”TOTAL”

sorted by cr_finpy:al_location/page ticket

top of page

 if trun(term) = “#A” then

 {

  “Business Date: “+str(business_date,8)+”   Store: “+cr_finpy:al_location+

  ”       Print Date: “+str(todaysdate,8)+”   Page: “+str(pagenumber)/center/newl=2

 }

else

 {

 “Business Date: “+str(business_date,8)+”   Store: “+cr_finpy:al_location+” Terminal: “+term+

  ”       Print Date: “+str(todaysdate,8)+”  Page: “+str(pagenumber)/center/newl=2

 }

end of ticket

   ticket

   total[cashamt]/zerosuppress/width=12/nocomma

   total[checkamt]/zerosuppress/width=12/nocomma

   total[ccamt]/zerosuppress/width=12/nocomma

   total[aramt]/zerosuppress/width=12/nocomma

   total[fcamt]/zerosuppress/width=12/nocomma

  total[cr_finpy:cr_paymt_amount]/zerosuppress/width=13/nocomma

 end of cr_finpy:al_location

“”/newline

  “Total Dollars:                            ”

   total[cashamt]/zerosuppress/width=12/nocommas

   total[checkamt]/zerosuppress/width=12/nocomma

   total[ccamt]/zerosuppress/width=12/nocomma

   total[aramt]/zerosuppress/width=12/nocomma

   total[fcamt]/zerosuppress/width=12/nocomma

   total[cr_finpy:cr_paymt_amount]/zerosuppress/width=13/nocomma/newl

   “Total Transactions:                       ”

   total[cashct]/zerosuppress/width=12/nocomma

   total[checkct]/zerosuppress/width=12/nocomma

   total[ccct]/zerosuppress/width=12/nocomma

   total[arct]/zerosuppress/width=12/nocomma

   total[fcct]/zerosuppress/width=12/nocomma

  count[cr_finpy:cr_paymt_amount]/zerosuppress/width=13/nocomma/newl

 end of report

 Box/need=5

 “”/newline

   “REPORT TOTAL DOLLARS:                     ”

  total[cashamt]/zerosuppress/width=12/nocommas

  total[checkamt]/zerosuppress/width=12/nocomma

  total[ccamt]/zerosuppress/width=12/nocomma

  total[aramt]/zerosuppress/width=12/nocomma

  total[fcamt]/zerosuppress/width=12/nocomma 

  total[cr_finpy:cr_paymt_amount]/zerosuppress/width=13/nocomma/newl

 “REPORT TOTAL TRANSACTIONS:                ”

  total[cashct]/zerosuppress/width=12/nocomma

  total[checkct]/zerosuppress/width=12/nocomma

  total[ccct]/zerosuppress/width=12/nocomma

  total[arct]/zerosuppress/width=12/nocomma

  total[fcct]/zerosuppress/width=12/nocomma

  count[cr_finpy:cr_paymt_amount]/zerosuppress/width=13/nocomma/newl

 end box/newline

 Box

 “”/newline

   “Credit Card Breakdown”

    total[amexamt]/zerosuppress/width=8/nocommas/heading=”AMEX”

    total[MCamt]/zerosuppress/width=8/nocommas/heading=”MasterCard”

    total[visaamt]/zerosuppress/width=8/nocommas/heading=”Visa”

    total[otheramt]/zerosuppress/width=8/nocommas/heading=”Other”

    total[ccamt]/zerosuppress/width=8/nocommas/heading=”Total”

end box

—  this is a sum version of the clerk activity report

define string location = parameter/cls/line=9/prompt=”Enter store location “/uppercase default “#A”

define string clerk = parameter/cls/line=9/prompt=”Enter clerk “/uppercase default “#A”

define date begin_date[8]=parameter/prompt=”Enter begin date ” default date(str(todaysdate,”MM/01/YY”))

define date end_date[8]=parameter/prompt=”Enter end date ” default todaysdate

define file crmain = access cr_main, set cr_main:cr_transaction = cr_log:cr_transaction, generic

define file master = access cr_main, set cr_main:cr_transaction = crmain:cr_master_bill_ticket_trans, generic

define string action[15] = if cr_log:cr_ticket_prev_status = “CLOSED” and
cr_log:cr_ticket_curr_status = “CONTRACT” then “REOPENED”
else
if cr_log:cr_ticket_prev_status = “NEW” and
cr_log:cr_ticket_curr_status = “CLOSED” and
cr_log:cr_trans_stat = “RB” then “RENEWAL BILL”
else
if cr_log:cr_ticket_prev_status = “CONTRACT” and
cr_log:cr_ticket_curr_status = “CONTRACT” and
cr_log:cr_trans_stat = “RB” then “MASTER”
else
if cr_log:cr_ticket_prev_status = “NEW” and
cr_log:cr_ticket_curr_status = “CLOSED” and
cr_log:cr_trans_stat = “AB” then “ADVANCED BILL”
else
if cr_log:cr_ticket_prev_status = “CONTRACT” and
cr_log:cr_ticket_curr_status = “CONTRACT” and
cr_log:cr_trans_stat = “AB” then “MASTER”
else
if cr_log:cr_ticket_prev_status = “NEW” then “NEW”
else
if cr_log:cr_ticket_curr_status = “CLOSED” and
cr_log:cr_ticket_prev_status = “CONTRACT” then “CLOSED”
else
if cr_log:cr_ticket_curr_status = “DELETED” then “DELETED”
else
if cr_log:cr_trans_stat = “BO” then “ABANDON”
else “CHANGED”
define file aluinit = access al_uinit, set al_uinit:al_init=cr_log:cr_clerk_init, one to one, exact
define string user_desc = if aluinit:al_init_desc <> “” then aluinit:al_init_desc else “DELETED USER”

where (cr_log:cr_clerk_init = clerk or clerk = “#A”) and
(crmain:al_location = location or location = “#A”) and
(cr_log:cr_log_entry_date >= begin_date and cr_log:cr_log_entry_date <= end_date) and
crmain:cr_transaction <> 0 and
action <> “MASTER”

sum/domain=”cr_log”
cr_log:units/noheading
across
action/noheading

by
highest
cr_log:cr_clerk_init/noheading
user_desc/heading=”CLERK”

define file name= access rc_name, set rc_name:rc_inv_no =

cr_fixat:rc_inv_no, generic

define file crtotls = access cr_totls, set cr_totls:cr_transaction = cr_main:cr_transaction, generic

define file slname= access sl_name, set sl_name:sl_mfg_cat_no = cr_sales:sl_mfg_cat_no, generic

define file param = access al_param, set

al_location = cr_main:al_location

define file cust = access cs_main, set

cs_key = cr_main:cs_key

define string Clerk = switch(param:al_emp_id_on_open_ticket_rpt)

case “S” : cust:al_csinits

case “3” : cr_main:cs_id_3

case “C” : cr_main:cr_initial_clerk

define string Loc[3] = parameter/cls/line = 10/prompt = ” Enter Store Location or #A for all locations “/uppercase

define Ascii Date from_date = parameter/cls/line=11/prompt=” Enter Beginning Date “

define Ascii Date to_date = parameter/cls/line=11/prompt=” Enter Ending Date “

define string rcinvno[4] = pad(cr_fixat:rc_inv_no,” “)

define string l_padded_key[20]=pad(rcinvno+cr_fixat:fa_ref_no, ” “)

define STD_TRANS l_trans = cr_main:cr_transaction

define file rcmain = access rc_main, set rc_main:rc_inv_no = cr_fixat:rc_inv_no, generic

define file slmain = access sl_main, set sl_main:sl_mfg_cat_no = cr_sales:sl_mfg_cat_no, generic

define file rentlock = access cr_frlck, set

cr_transaction = l_trans,

cr_item = l_padded_key,

cr_item_id = cr_fixat:cr_item_id , generic 

define file saleslock = access cr_frlck, set 

cr_transaction = l_trans,

cr_item_id = cr_sales:cr_item_id, generic

define string l_rent_name[30] = if al_param:al_use_display_name = “Y” and rcmain:rc_generic = “Y” and

rentlock:cr_free_text_line_1 <> “” then

rentlock:cr_free_text_line_1

else

name:rc_name

define string l_sl_name[30] = if al_param:al_use_display_name = “Y” and slmain:sl_generic = “Y” and 

saleslock:cr_free_text_line_1 <> “” then

saleslock:cr_free_text_line_1

else

slname:sl_name

define file csinv = access cs_inv, set cs_inv:cs_invoice=cr_main:cr_contract, generic

WHERE (( cr_main:al_location= Loc or Loc = “#A”) and

cr_main:cr_contract_closed = “Y” and

cr_main:cr_trans_type = “C” and csinv:cs_icreate_date >= from_date and

csinv:cs_icreate_date <= to_date )

list/nodefaults/nobanner/noblanklines/title=”Closed Contracts Report”/domain=”cr_main”/pagewidth=135/pagelen=95

cr_main:cr_contract/heading=”Cont#”/width=9/nocomma

box/noheading/column=12/needs=6/duplicate

cs_main:cs_name/heading=”Customer Name”/newline

cs_main:cs_address_1/newline

if cs_main:cs_address_2 <> “” then

cs_main:cs_address_2/newline

cs_main:cs_city+”, “+cs_main:al_st_code+” “+cs_main:al_zipcode/newline

if day(01.02.1990) = 1 then {

if cs_main:cs_phone_1_aus <> “” then {

cs_main:cs_phone_1_aus + ” (” +cs_main:cs_p_1_type + “)”/newline

}

}

else {

if cs_main:cs_phone_1 > 0 then {

str(cs_main:cs_phone_1,”(ZZZ)999-9999″) + ” (” +cs_main:cs_p_1_type + “)”/newline

}

}

if day(01.02.1990) = 1 then {

if cs_main:cs_phone_2_aus <> “” then {

cs_main:cs_phone_2_aus + ” (” +cs_main:cs_p_2_type + “)”/newline

}

}

else {

if cs_main:cs_phone_2 > 0 then {

str(cs_main:cs_phone_2,”(ZZZ)999-9999″) + ” (” +cs_main:cs_p_2_type + “)”/newline

}

}

if cr_main:cr_reservation_status = “C” then “Confirmed”/newl

end Box

box/noheading/column=40

cr_main:cr_out_date/width=8/heading=”Out”/newline

cr_main:cr_out_time

end box 

box/noheading/column=50

cr_main:cr_in_due_date/width=8/heading=”DueIn”/newline

cr_main:cr_in_due_time

end box 

box/noheadings

Clerk/newline/heading=”Clerk”

end box

Box/noheading/column=65/duplicate

if cr_fixat:cr_transaction <> 0 and (param:al_collapse_kit_on_screen = “N” or (param:al_collapse_kit_on_screen = “Y” and cr_fixat:cr_fa_kit = “”)) then

{

cr_fixat:fa_key/heading=”Item”/width=9/mask=”XXXX-XXXX”

l_rent_name[1,25]/heading=”Item Name”/name=”A”/col=11

cr_fixat:cr_quantity/heading=”Qty”/name=”B”/width=4

cr_main:cr_delivery/heading=”Del”/width=3

cr_main:cr_del_area/heading=”Area”/width=5 

if rentlock:cr_transaction <> 0 then {

if rentlock:cr_note_text <> “” then

{ /*==== FA LINE LOCKED FREE NOTES ===*/

“”/newline

rentlock:cr_note_text/col=5/text/width=50

“”/newline

“”/newline — work around for CQ bug

}

}

}

end box

box/noheadings/column=116

crtotls:cr_ticket_total/heading=”Total”/width=7

end box

followed by

box/noheading/column=55/noduplicate

if cr_sales:cr_transaction <> 0 then

“Sales Items:”/noheading

end box

followed by

Box/noheading/column=65/duplicate

cr_sales:sl_mfg_cat_no/width=20

l_sl_name[1,25]/align=A

cr_sales:cr_sl_quantity/mask=”Z9.9″/width=4/align=B

if saleslock:cr_transaction <> 0 then {

if saleslock:cr_note_text <> “” then

{ /*==== SL LINE LOCKED FREE NOTES ===*/

“”/newline

saleslock:cr_note_text/col=5/text/width=50 

“”/newline

“”/newline — work around for CQ bug

}

}

end box/newline

followed by 

box/noh/col=15

if cr_text:cr_tpre_post <> “D” then

cr_text:cr_text/text/width=73

end box

SORTED BY 

al_param:al_location/page 

cr_main:cr_out_date/newline=2 

cr_main:cr_out_time

cs_main:cs_name/newline 

TOP OF PAGE

“Store: ” + trun(al_param:al_loc_name)/noheading

“Location: ” + str(al_param:al_location)/col=35

str(from_date,”MM/DD/YY”) + ” to ” + str(to_date,”MM/DD/YY”)/column=63

“Page: ” + str(pagenumber)/col=112/newline

End of Report

“TOTAL FOR CLOSED CONTRACTS “+ str(total[crtotls:cr_ticket_total],”$-,—,–9.99”);

define
  file crmain = access cr_main,
    set cr_main:cr_contract = cs_inv:cs_invoice,
    generic;
 
  date START = parameter
    prompt “Enter Starting Event Date”;
 
  date END2 = parameter
    prompt “Enter Ending Event Date”;
 
  number AMTMIN = parameter
    prompt “Enter Minimum Cutoff Amount”;

  number AMTMAX = parameter
    prompt “Enter Maximum Cutoff Amount”;

  string sort_by = parameter/prompt = “Sort by Ticket Amount or Event Date (A/D)”/uppercase

  string sort_var = switch(sort_by)
           case “A” : str(cs_inv:cs_Iamount, “99999.99”)
           case “D” : str(crmain:cr_use_date, “yyyy/mm/dd”)

  string sor2 = if sort_by = “A” then “AMOUNT” else “EVENT DATE”
 
where
  ( crmain:cr_use_date >=
    START
  and  crmain:cr_use_date <=
    END2 )
  and (cs_inv:cs_iamount >=
    AMTMIN
  and cs_inv:cs_iamount <=
    AMTMAX)

list/duplicates/domain=”cs_inv”/nobanner/title=”CLOSED TICKETS BY DATE AND TOTAL”
  cs_inv:cs_iamount/heading=”TICKET-TOTAL”
  cs_inv:cs_invoice
  crmain:cr_out_date/mask=”MM/DD/YY”
  crmain:cr_use_date/mask=”MM/DD/YY”
  crmain:cr_in_due_date/mask=”MM/DD/YY”
  cs_inv:cs_key
  cs_main:cs_name/heading=”CUSTOMER”
  cs_main:cs_address_1/heading=”ADDRESS”
  cs_main:cs_address_2/noheading
  cs_main:cs_city
  cs_main:al_st_code/heading=”ST”
  cs_main:al_zipcode/heading=”ZIP”
  cs_main:cs_phone_1/heading=”PHONE”
  cs_main:cs_p_1_type/noheading
  cs_main:cs_phone_2/heading=”PHONE 2″
  cs_main:cs_p_2_type/noheading
  cs_main:cs_email_address/heading=”EMAIL”

sorted by
  sort_var

top of page “From: ” + Str(START) “To: ” + str(END2)/newline
“Between: $”+str(AMTMIN)+ ” and $” + str(AMTMAX)/newline
“Sorted by: ” + sor2/newline = 3