home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 1995 September / Image.iso / working / pegasus / setup.2 / REPORTS / SLSTATE.REP < prev    next >
Encoding:
Text File  |  1995-06-21  |  14.4 KB  |  437 lines
  1. VERSION 2.00
  2. Begin Report SLSTATE.REP
  3.       Caption      =   "SLSTATE.REP"
  4.       Width        =   11175
  5.       Height       =   15810
  6.       Reportheader =   0
  7.       Header       =   4590
  8.       Transaction  =   9330
  9.       SubTotal     =   1590
  10.       Footer       =   0
  11.       Pagefooter   =   15690
  12.       Replicate    =   525
  13.       Style        =   12
  14.       Query        =   "SLTRAN SLTRAN.STACCOUNT=>^@0 & SLTRAN.STACCOUNT<=^@1 & SLTRAN.STSTATE='Y' ORDER BY SLTRAN.STACCOUNT+DTOS(SLTRAN.STTXNDATE)"
  15.       Macro        =   "1LU:Select from SLNAME where SLNAME.SNACCOUNT=SLTRAN.STACCOUNT"
  16.       Macro        =   "1OF:@REPVARS.REPTOT(7) = REPTOT(7)+1"
  17.       Macro        =   "2OF:@REPVARS.REPTOT(0) = @REPVARS.REPTOT(0)+SLTRAN.STOUTSTAND"
  18.       Macro        =   "2OF:@REPVARS.REPTOT(1) = PERIOD(DATE(),SLTRAN.STTXNDATE)"
  19.       Macro        =   "2CD:When SLTRAN.STTYPE="R" & SLTRAN.STALLOC=" " then REPTOT(1)=-1"
  20.       Macro        =   "2CD:When REPTOT(1)=-1 then REPTOT(6)=REPTOT(6)+SLTRAN.STOUTSTAND"
  21.       Macro        =   "2CD:When REPTOT(1)=0 then REPTOT(2)=REPTOT(2)+SLTRAN.STOUTSTAND"
  22.       Macro        =   "2CD:When REPTOT(1)=1 then REPTOT(3)=REPTOT(3)+SLTRAN.STOUTSTAND"
  23.       Macro        =   "2CD:When REPTOT(1)=2 then REPTOT(4)=REPTOT(4)+SLTRAN.STOUTSTAND"
  24.       Macro        =   "2CD:When REPTOT(1)=3 then REPTOT(5)=REPTOT(5)+SLTRAN.STOUTSTAND"
  25.       Macro        =   "3PP:@REPVARS.REPTOT(0) = 0"
  26.       Macro        =   "3PP:@REPVARS.REPTOT(1) = 0"
  27.       Macro        =   "3PP:@REPVARS.REPTOT(2) = 0"
  28.       Macro        =   "3PP:@REPVARS.REPTOT(3) = 0"
  29.       Macro        =   "3PP:@REPVARS.REPTOT(4) = 0"
  30.       Macro        =   "3PP:@REPVARS.REPTOT(5) = 0"
  31.       Macro        =   "3PP:@REPVARS.REPTOT(6) = 0"
  32.       Macro        =   "3PP:@REPVARS.REPTOT(7) = 0"
  33.       BreakOn      =   "SLTRAN.STACCOUNT"
  34. End
  35. Begin Control LABEL
  36.       Type         =   "Label"
  37.       Style        =   9
  38.       Caption      =   ""Page No. "+STR(REPTOT(7),3,0)"
  39.       Font         =   "-165|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  40.       Location     =   "Header Block"
  41.       Height       =   270
  42.       Left         =   10020
  43.       Top          =   2280
  44.       Width        =   990
  45. End
  46. Begin Control SNNAME
  47.       Type         =   "Text"
  48.       Style        =   0
  49.       Fieldname    =   "SNNAME"
  50.       Filename     =   "SLNAME"
  51.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  52.       Location     =   "Header Block"
  53.       Height       =   270
  54.       Left         =   810
  55.       Top          =   2280
  56.       Width        =   3645
  57. End
  58. Begin Control SNADD1
  59.       Type         =   "Text"
  60.       Style        =   0
  61.       Fieldname    =   "SNADD1"
  62.       Filename     =   "SLNAME"
  63.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  64.       Location     =   "Header Block"
  65.       Height       =   270
  66.       Left         =   810
  67.       Top          =   2535
  68.       Width        =   3645
  69. End
  70. Begin Control SNADD2
  71.       Type         =   "Text"
  72.       Style        =   0
  73.       Fieldname    =   "SNADD2"
  74.       Filename     =   "SLNAME"
  75.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  76.       Location     =   "Header Block"
  77.       Height       =   270
  78.       Left         =   810
  79.       Top          =   2790
  80.       Width        =   3645
  81. End
  82. Begin Control SNADD3
  83.       Type         =   "Text"
  84.       Style        =   0
  85.       Fieldname    =   "SNADD3"
  86.       Filename     =   "SLNAME"
  87.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  88.       Location     =   "Header Block"
  89.       Height       =   270
  90.       Left         =   810
  91.       Top          =   3030
  92.       Width        =   3645
  93. End
  94. Begin Control SNADD4
  95.       Type         =   "Text"
  96.       Style        =   0
  97.       Fieldname    =   "SNADD4"
  98.       Filename     =   "SLNAME"
  99.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  100.       Location     =   "Header Block"
  101.       Height       =   270
  102.       Left         =   810
  103.       Top          =   3285
  104.       Width        =   3645
  105. End
  106. Begin Control SNPOSTCODE
  107.       Type         =   "Text"
  108.       Style        =   0
  109.       Fieldname    =   "SNPOSTCODE"
  110.       Filename     =   "SLNAME"
  111.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  112.       Location     =   "Header Block"
  113.       Height       =   270
  114.       Left         =   810
  115.       Top          =   3540
  116.       Width        =   3645
  117. End
  118. Begin Control SNACCOUNT
  119.       Type         =   "Text"
  120.       Style        =   0
  121.       Fieldname    =   "SNACCOUNT"
  122.       Filename     =   "SLNAME"
  123.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  124.       Location     =   "Header Block"
  125.       Height       =   270
  126.       Left         =   7020
  127.       Top          =   2280
  128.       Width        =   1350
  129. End
  130. Begin Control LABEL
  131.       Type         =   "Label"
  132.       Style        =   10
  133.       Caption      =   ""Customer ID""
  134.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  135.       Location     =   "Header Block"
  136.       Height       =   270
  137.       Left         =   5670
  138.       Top          =   2280
  139.       Width        =   1080
  140. End
  141. Begin Control LABEL
  142.       Type         =   "Label"
  143.       Style        =   9
  144.       Caption      =   "DTOC(DATE())"
  145.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  146.       Location     =   "Header Block"
  147.       Height       =   270
  148.       Left         =   8505
  149.       Top          =   2280
  150.       Width        =   1080
  151. End
  152. Begin Control COMPNAME
  153.       Type         =   "Text"
  154.       Style        =   0
  155.       Fieldname    =   "COMPNAME"
  156.       Filename     =   "SYSTEM"
  157.       Font         =   "-180|0|0|0|700|0|0|0|0|3|2|1|34|Arial"
  158.       Location     =   "Header Block"
  159.       Height       =   270
  160.       Left         =   810
  161.       Top          =   270
  162.       Width        =   4995
  163. End
  164. Begin Control COMPADD1
  165.       Type         =   "Text"
  166.       Style        =   0
  167.       Fieldname    =   "COMPADD1"
  168.       Filename     =   "SYSTEM"
  169.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  170.       Location     =   "Header Block"
  171.       Height       =   270
  172.       Left         =   810
  173.       Top          =   540
  174.       Width        =   3375
  175. End
  176. Begin Control LABEL
  177.       Type         =   "Label"
  178.       Style        =   1
  179.       Caption      =   "Telephone No."
  180.       Font         =   "-165|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  181.       Location     =   "Header Block"
  182.       Height       =   270
  183.       Left         =   4185
  184.       Top          =   810
  185.       Width        =   1080
  186. End
  187. Begin Control COMPADD2
  188.       Type         =   "Text"
  189.       Style        =   0
  190.       Fieldname    =   "COMPADD2"
  191.       Filename     =   "SYSTEM"
  192.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  193.       Location     =   "Header Block"
  194.       Height       =   270
  195.       Left         =   810
  196.       Top          =   810
  197.       Width        =   3375
  198. End
  199. Begin Control COMPADD3
  200.       Type         =   "Text"
  201.       Style        =   0
  202.       Fieldname    =   "COMPADD3"
  203.       Filename     =   "SYSTEM"
  204.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  205.       Location     =   "Header Block"
  206.       Height       =   270
  207.       Left         =   810
  208.       Top          =   1080
  209.       Width        =   3375
  210. End
  211. Begin Control COMPADD4
  212.       Type         =   "Text"
  213.       Style        =   0
  214.       Fieldname    =   "COMPADD4"
  215.       Filename     =   "SYSTEM"
  216.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  217.       Location     =   "Header Block"
  218.       Height       =   270
  219.       Left         =   810
  220.       Top          =   1350
  221.       Width        =   3375
  222. End
  223. Begin Control LABEL
  224.       Type         =   "Label"
  225.       Style        =   1
  226.       Caption      =   "Facsimile No."
  227.       Font         =   "-165|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  228.       Location     =   "Header Block"
  229.       Height       =   270
  230.       Left         =   4185
  231.       Top          =   1080
  232.       Width        =   1080
  233. End
  234. Begin Control LABEL
  235.       Type         =   "Label"
  236.       Style        =   9
  237.       Caption      =   "IF(TRIM(REPSTR(9))<>"P" & TRIM(SYSTEM.VATREG)<>"",SYSTEM.COUNTRY,"")"
  238.       Font         =   "-165|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  239.       Location     =   "Header Block"
  240.       Height       =   270
  241.       Left         =   5265
  242.       Top          =   1350
  243.       Width        =   270
  244. End
  245. Begin Control LABEL
  246.       Type         =   "Label"
  247.       Style        =   9
  248.       Caption      =   "IF(TRIM(REPSTR(9))<>"P" & TRIM(SYSTEM.VATREG)<>"","VAT Reg. No.","")"
  249.       Font         =   "-165|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  250.       Location     =   "Header Block"
  251.       Height       =   270
  252.       Left         =   4185
  253.       Top          =   1350
  254.       Width        =   1140
  255. End
  256. Begin Control COMPTEL
  257.       Type         =   "Text"
  258.       Style        =   0
  259.       Fieldname    =   "COMPTEL"
  260.       Filename     =   "SYSTEM"
  261.       Font         =   "-165|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  262.       Location     =   "Header Block"
  263.       Height       =   270
  264.       Left         =   5265
  265.       Top          =   810
  266.       Width        =   2160
  267. End
  268. Begin Control COMPFAX
  269.       Type         =   "Text"
  270.       Style        =   0
  271.       Fieldname    =   "COMPFAX"
  272.       Filename     =   "SYSTEM"
  273.       Font         =   "-165|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  274.       Location     =   "Header Block"
  275.       Height       =   270
  276.       Left         =   5265
  277.       Top          =   1080
  278.       Width        =   2160
  279. End
  280. Begin Control VATREG
  281.       Type         =   "Text"
  282.       Style        =   0
  283.       Fieldname    =   "VATREG"
  284.       Filename     =   "SYSTEM"
  285.       Font         =   "-165|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  286.       Location     =   "Header Block"
  287.       Height       =   270
  288.       Left         =   5535
  289.       Top          =   1350
  290.       Width        =   2160
  291. End
  292. Begin Control STTXNDATE
  293.       Type         =   "Text"
  294.       Style        =   0
  295.       Fieldname    =   "STTXNDATE"
  296.       Filename     =   "SLTRAN"
  297.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  298.       Location     =   "Transaction Block"
  299.       Height       =   270
  300.       Left         =   540
  301.       Top          =   255
  302.       Width        =   1140
  303. End
  304. Begin Control STREF
  305.       Type         =   "Text"
  306.       Style        =   0
  307.       Fieldname    =   "STREF"
  308.       Filename     =   "SLTRAN"
  309.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  310.       Location     =   "Transaction Block"
  311.       Height       =   270
  312.       Left         =   3465
  313.       Top          =   255
  314.       Width        =   1275
  315. End
  316. Begin Control LABEL
  317.       Type         =   "Label"
  318.       Style        =   9
  319.       Caption      =   "MID("        Invoice Cr. NoteReceipt AdjustmtDiscountRefund  ", INSTR("ICRADF",SLTRAN.STTYPE)*8+1,8)"
  320.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  321.       Location     =   "Transaction Block"
  322.       Height       =   270
  323.       Left         =   2025
  324.       Top          =   255
  325.       Width        =   1080
  326. End
  327. Begin Control LABEL
  328.       Type         =   "Label"
  329.       Style        =   10
  330.       Caption      =   "CORD(SLTRAN.STVALUE,10,2,1)"
  331.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  332.       Location     =   "Transaction Block"
  333.       Height       =   270
  334.       Left         =   5955
  335.       Top          =   255
  336.       Width        =   1410
  337. End
  338. Begin Control LABEL
  339.       Type         =   "Label"
  340.       Style        =   10
  341.       Caption      =   "CORD(SLTRAN.STVALUE,10,2,-1)"
  342.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  343.       Location     =   "Transaction Block"
  344.       Height       =   270
  345.       Left         =   7710
  346.       Top          =   255
  347.       Width        =   1410
  348. End
  349. Begin Control LABEL
  350.       Type         =   "Label"
  351.       Style        =   10
  352.       Caption      =   "IF(SLTRAN.STVALUE>0 & SLTRAN.STVALUE<>SLTRAN.STOUTSTAND,CORD(SLTRAN.STOUTSTAND,10,2,1),"")"
  353.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  354.       Location     =   "Transaction Block"
  355.       Height       =   270
  356.       Left         =   9465
  357.       Top          =   255
  358.       Width        =   1410
  359. End
  360. Begin Control LABEL
  361.       Type         =   "Label"
  362.       Style        =   9
  363.       Caption      =   "MID("     Paid AllocDisp ", INSTR("PAD",SLTRAN.STALLOC)*5+1,5)"
  364.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  365.       Location     =   "Transaction Block"
  366.       Height       =   270
  367.       Left         =   5265
  368.       Top          =   255
  369.       Width        =   675
  370. End
  371. Begin Control LABEL
  372.       Type         =   "Label"
  373.       Style        =   10
  374.       Caption      =   "STR(@REPVARS.REPTOT(0),10,2)"
  375.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  376.       Location     =   "Subtotal Block"
  377.       Height       =   285
  378.       Left         =   9465
  379.       Top          =   525
  380.       Width        =   1410
  381. End
  382. Begin Control LABEL
  383.       Type         =   "Label"
  384.       Style        =   10
  385.       Caption      =   "STR(@REPVARS.REPTOT(5),10,2)"
  386.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  387.       Location     =   "Subtotal Block"
  388.       Height       =   285
  389.       Left         =   60
  390.       Top          =   525
  391.       Width        =   1410
  392. End
  393. Begin Control LABEL
  394.       Type         =   "Label"
  395.       Style        =   10
  396.       Caption      =   "STR(@REPVARS.REPTOT(2),10,2)"
  397.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  398.       Location     =   "Subtotal Block"
  399.       Height       =   285
  400.       Left         =   4515
  401.       Top          =   525
  402.       Width        =   1410
  403. End
  404. Begin Control LABEL
  405.       Type         =   "Label"
  406.       Style        =   10
  407.       Caption      =   "STR(@REPVARS.REPTOT(3),10,2)"
  408.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  409.       Location     =   "Subtotal Block"
  410.       Height       =   285
  411.       Left         =   3060
  412.       Top          =   525
  413.       Width        =   1410
  414. End
  415. Begin Control LABEL
  416.       Type         =   "Label"
  417.       Style        =   10
  418.       Caption      =   "STR(@REPVARS.REPTOT(4),10,2)"
  419.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  420.       Location     =   "Subtotal Block"
  421.       Height       =   285
  422.       Left         =   1500
  423.       Top          =   525
  424.       Width        =   1410
  425. End
  426. Begin Control LABEL
  427.       Type         =   "Label"
  428.       Style        =   10
  429.       Caption      =   "STR(@REPVARS.REPTOT(6),10,2)"
  430.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  431.       Location     =   "Subtotal Block"
  432.       Height       =   285
  433.       Left         =   5955
  434.       Top          =   525
  435.       Width        =   1410
  436. End
  437.