'PROD_MIX - prints Product Mix Report

external dpath PrintReport() remove() makeidx() briefmonth vloadif() messbox()

public F_tot R_tot S_tot T_tot W_tot P_tot
public F_SC F_ST F_SA F_BC F_BA F_BT F_BV F_F F_O
public R_SC R_ST R_SA R_BC R_BA R_BT R_BV R_F R_O
public S_SC S_ST S_SA S_BC S_BA S_BT S_BV S_F S_O
public T_SC T_ST T_SA T_BC T_BA T_BT T_BV T_F T_O
public W_SC W_ST W_SA W_BC W_BA W_BT W_BV W_F W_O
public P_SC P_ST P_SA P_BC P_BA P_BT P_BV P_F P_O

global x p1 p2 p3 p4 p5 p6

MAIN

  p1 = "prod_mix.dfr"   ' p1 = report definition ("ord_stck.dfr")
  p2 = ""               ' p2 = title at top of choice popup ("LABEL")
  p3 = 1                ' p3 = printer to be used (1=HPIII_QC; 2=GEN_EPSN etc)
  p4 = 1                ' p4 = printer port to use (1,2 etc - network set to use 2=LASER; 3=LABEL)
  p5 = 1                ' p5 = choose VIEW/PRINT 1=PRINT; 2=VIEW; 3=CHOOSE
  p6 = 1                ' p6 = nr of copies

  remove("ma")
  vloadif(dpath|"carplist.vw")
  data query execute "prod_mix.dfq" index "prod_mix.idx"
' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
'   [DateAbbrv] = monthend0
'   and not (deleted)
' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
'   data query execute "prodmix1.dfq" index "prod_mix.idx"
' ' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
' '   [InvDateAbbrv] = monthend0
' '   and [Inv_Nr]<>blank
' '   and not (deleted)
' ' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
  if cerror
    messbox(" No requisitions for this period ",0,0,1)
    return (1)
  end if

  data cross-tab execute "prod_mix" Smart4 "prod_mix"
'   print view report "[pm;Fulham;Raynes;Sheen;Trade;Warehouse;Putney]" printer
  F_tot=filesum([Fulham])
  R_tot=filesum([Raynes])
  S_tot=filesum([Sheen])
  T_tot=filesum([Trade])
  W_tot=filesum([Warehouse])
  P_tot=filesum([Putney])
' message "F_tot is:"&str(F_tot)
' message "R_tot is:"&str(R_tot)
' message "S_tot is:"&str(S_tot)
' message "T_tot is:"&str(T_tot)
' message "W_tot is:"&str(W_tot)
' message "P_tot is:"&str(P_tot)

  order sort now dictionary "prodmix1.idx" fields "[pm]" ascending
  data goto record record-number 1     ' "A" - SA
  F_SA=[Fulham]
  R_SA=[Raynes]
  S_SA=[Sheen]
  T_SA=[Trade]
  W_SA=[Warehouse]
  P_SA=[Putney]
  data goto record record-number 2     ' "B" - BC
  F_BC=[Fulham]
  R_BC=[Raynes]
  S_BC=[Sheen]
  T_BC=[Trade]
  W_BC=[Warehouse]
  P_BC=[Putney]
  data goto record record-number 3     ' "C" - SC
  F_SC=[Fulham]
  R_SC=[Raynes]
  S_SC=[Sheen]
  T_SC=[Trade]
  W_SC=[Warehouse]
  P_SC=[Putney]
  data goto record record-number 4     ' "F" - F
  F_F=[Fulham]
  R_F=[Raynes]
  S_F=[Sheen]
  T_F=[Trade]
  W_F=[Warehouse]
  P_F=[Putney]
  data goto record record-number 5     ' "J" - BA
  F_BA=[Fulham]
  R_BA=[Raynes]
  S_BA=[Sheen]
  T_BA=[Trade]
  W_BA=[Warehouse]
  P_BA=[Putney]
  data goto record record-number 6     ' "O" - O
  F_O=[Fulham]
  R_O=[Raynes]
  S_O=[Sheen]
  T_O=[Trade]
  W_O=[Warehouse]
  P_O=[Putney]
  data goto record record-number 7     ' "S" - ST
  F_ST=[Fulham]
  R_ST=[Raynes]
  S_ST=[Sheen]
  T_ST=[Trade]
  W_ST=[Warehouse]
  P_ST=[Putney]
  data goto record record-number 8     ' "T" - BT
  F_BT=[Fulham]
  R_BT=[Raynes]
  S_BT=[Sheen]
  T_BT=[Trade]
  W_BT=[Warehouse]
  P_BT=[Putney]
  data goto record record-number 9     ' "W" - BV
  F_BV=[Fulham]
  R_BV=[Raynes]
  S_BV=[Sheen]
  T_BV=[Trade]
  W_BV=[Warehouse]
  P_BV=[Putney]

  x = remove("printme.idx")
inchar
  x = makeidx("prod_mix","printme.idx",precord,3)
  order change index "printme.idx"
  PrintReport(p1,p2,p3,p4,p5,p6)

END MAIN