home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 1995 September / Image.iso / working / pegasus / setup.2 / REPORTS / PLREMIT.REP < prev    next >
Encoding:
Text File  |  1995-06-21  |  13.1 KB  |  381 lines
  1. VERSION 2.00
  2. Begin Report PLREMIT.REP
  3.       Caption      =   "PLREMIT.REP"
  4.       Width        =   11175
  5.       Height       =   16395
  6.       Reportheader =   0
  7.       Header       =   4500
  8.       Transaction  =   11160
  9.       SubTotal     =   285
  10.       Footer       =   0
  11.       Pagefooter   =   15945
  12.       Replicate    =   375
  13.       Style        =   13
  14.       Query        =   "PLTRAN "
  15.       Macro        =   "1LU:Select from PLNAME where PLNAME.PNCODE=PLTRAN.PTCODE"
  16.       Macro        =   "1OF:@REPVARS.REPTOT(0) = 1"
  17.       Macro        =   "1OF:@REPVARS.REPTOT(1) = 0"
  18.       Macro        =   "1OF:@REPVARS.REPTOT(9) = REPTOT(9)+1"
  19.       Macro        =   "2CD:When PLTRAN.PTTXNTYPE='D' & TRIM(PLTRAN.PTALCBATCH)<>"" then @REPVARS.REPSTR(0)="'Discount Taken'""
  20.       Macro        =   "2CD:When PLTRAN.PTTXNTYPE='P' & TRIM(PLTRAN.PTALCBATCH)<>"" then @REPVARS.REPSTR(0)="'Payment for Items Listed Below'""
  21.       Macro        =   "2CD:When TRIM(PLTRAN.PTALCBATCH)="" & REPTOT(1)=0 then @REPVARS.REPTOT(1)=1"
  22.       Macro        =   "2CD:When PLTRAN.PTREMIT='U' & REPTOT(1)=0 then @REPVARS.REPTOT(1)=1"
  23.       Macro        =   "2CD:When PLTRAN.PTREMIT='R' & PLTRAN.PTTXNTYPE='P' & TRIM(PLTRAN.PTALCBATCH)<>"" then REPTOT(2)=1"
  24.       Macro        =   "2CD:When PLTRAN.PTREMIT='R' & PLTRAN.PTTXNTYPE='D' & TRIM(PLTRAN.PTALCBATCH)<>"" then REPTOT(2)=2"
  25.       Macro        =   "2CD:When REPTOT(1)=1 & REPTOT(2)=2 then BLANKLINE 2"
  26.       Macro        =   "2CD:When REPTOT(1)=1 & REPTOT(2)=1 then BLANKLINE 3"
  27.       Macro        =   "2CD:When REPTOT(1)=1 & REPTOT(2)=0 then BLANKLINE 4"
  28.       Macro        =   "2CD:When REPTOT(1)=1 & REPTOT(2)=3 then BLANKLINE 4"
  29.       Macro        =   "2CD:When REPTOT(1)=1 then @REPVARS.REPTOT(2)=3"
  30.       Macro        =   "2CD:When REPTOT(1)=1 then @REPVARS.REPTOT(1)=2"
  31.       Macro        =   "2PP:@REPVARS.REPTOT(0) = REPTOT(0)+1"
  32.       Macro        =   "3PP:@REPVARS.REPTOT(9) = 0"
  33.       Macro        =   "3PP:@REPVARS.REPTOT(2) = 0"
  34.       BreakOn      =   "PLTRAN.PTALCBATCH"
  35. End
  36. Begin Control LABEL
  37.       Type         =   "Label"
  38.       Style        =   9
  39.       Caption      =   "DTOC(DATE())"
  40.       Font         =   "-165|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  41.       Location     =   "Header Block"
  42.       Height       =   285
  43.       Left         =   8505
  44.       Top          =   2280
  45.       Width        =   1125
  46. End
  47. Begin Control LABEL
  48.       Type         =   "Label"
  49.       Style        =   2
  50.       Caption      =   "Supplier ID"
  51.       Font         =   "-165|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  52.       Location     =   "Header Block"
  53.       Height       =   270
  54.       Left         =   5670
  55.       Top          =   2280
  56.       Width        =   945
  57. End
  58. Begin Control LABEL
  59.       Type         =   "Label"
  60.       Style        =   9
  61.       Caption      =   ""Page No. "+STR(REPTOT(9),3,0)"
  62.       Font         =   "-165|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  63.       Location     =   "Header Block"
  64.       Height       =   285
  65.       Left         =   10020
  66.       Top          =   2280
  67.       Width        =   1125
  68. End
  69. Begin Control COMPNAME
  70.       Type         =   "Text"
  71.       Style        =   0
  72.       Fieldname    =   "COMPNAME"
  73.       Filename     =   "SYSTEM"
  74.       Font         =   "-180|0|0|0|700|0|0|0|0|3|2|1|34|Arial"
  75.       Location     =   "Header Block"
  76.       Height       =   270
  77.       Left         =   810
  78.       Top          =   270
  79.       Width        =   4995
  80. End
  81. Begin Control COMPADD1
  82.       Type         =   "Text"
  83.       Style        =   0
  84.       Fieldname    =   "COMPADD1"
  85.       Filename     =   "SYSTEM"
  86.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  87.       Location     =   "Header Block"
  88.       Height       =   270
  89.       Left         =   810
  90.       Top          =   540
  91.       Width        =   3375
  92. End
  93. Begin Control COMPADD2
  94.       Type         =   "Text"
  95.       Style        =   0
  96.       Fieldname    =   "COMPADD2"
  97.       Filename     =   "SYSTEM"
  98.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  99.       Location     =   "Header Block"
  100.       Height       =   270
  101.       Left         =   810
  102.       Top          =   810
  103.       Width        =   3375
  104. End
  105. Begin Control COMPADD3
  106.       Type         =   "Text"
  107.       Style        =   0
  108.       Fieldname    =   "COMPADD3"
  109.       Filename     =   "SYSTEM"
  110.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  111.       Location     =   "Header Block"
  112.       Height       =   270
  113.       Left         =   810
  114.       Top          =   1080
  115.       Width        =   3375
  116. End
  117. Begin Control COMPADD4
  118.       Type         =   "Text"
  119.       Style        =   0
  120.       Fieldname    =   "COMPADD4"
  121.       Filename     =   "SYSTEM"
  122.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  123.       Location     =   "Header Block"
  124.       Height       =   270
  125.       Left         =   810
  126.       Top          =   1350
  127.       Width        =   3375
  128. End
  129. Begin Control PNNAME
  130.       Type         =   "Text"
  131.       Style        =   0
  132.       Fieldname    =   "PNNAME"
  133.       Filename     =   "PLNAME"
  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         =   810
  138.       Top          =   2280
  139.       Width        =   3375
  140. End
  141. Begin Control PNADD1
  142.       Type         =   "Text"
  143.       Style        =   0
  144.       Fieldname    =   "PNADD1"
  145.       Filename     =   "PLNAME"
  146.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  147.       Location     =   "Header Block"
  148.       Height       =   270
  149.       Left         =   810
  150.       Top          =   2535
  151.       Width        =   3375
  152. End
  153. Begin Control PNADD2
  154.       Type         =   "Text"
  155.       Style        =   0
  156.       Fieldname    =   "PNADD2"
  157.       Filename     =   "PLNAME"
  158.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  159.       Location     =   "Header Block"
  160.       Height       =   270
  161.       Left         =   810
  162.       Top          =   2790
  163.       Width        =   3375
  164. End
  165. Begin Control PNADD3
  166.       Type         =   "Text"
  167.       Style        =   0
  168.       Fieldname    =   "PNADD3"
  169.       Filename     =   "PLNAME"
  170.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  171.       Location     =   "Header Block"
  172.       Height       =   270
  173.       Left         =   810
  174.       Top          =   3030
  175.       Width        =   3375
  176. End
  177. Begin Control PNADD4
  178.       Type         =   "Text"
  179.       Style        =   0
  180.       Fieldname    =   "PNADD4"
  181.       Filename     =   "PLNAME"
  182.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  183.       Location     =   "Header Block"
  184.       Height       =   270
  185.       Left         =   810
  186.       Top          =   3285
  187.       Width        =   3375
  188. End
  189. Begin Control PNPOSTCODE
  190.       Type         =   "Text"
  191.       Style        =   0
  192.       Fieldname    =   "PNPOSTCODE"
  193.       Filename     =   "PLNAME"
  194.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  195.       Location     =   "Header Block"
  196.       Height       =   270
  197.       Left         =   810
  198.       Top          =   3540
  199.       Width        =   3375
  200. End
  201. Begin Control PNCODE
  202.       Type         =   "Text"
  203.       Style        =   0
  204.       Fieldname    =   "PNCODE"
  205.       Filename     =   "PLNAME"
  206.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  207.       Location     =   "Header Block"
  208.       Height       =   270
  209.       Left         =   7020
  210.       Top          =   2280
  211.       Width        =   1350
  212. End
  213. Begin Control LABEL
  214.       Type         =   "Label"
  215.       Style        =   1
  216.       Caption      =   "Telephone No."
  217.       Font         =   "-165|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  218.       Location     =   "Header Block"
  219.       Height       =   270
  220.       Left         =   4185
  221.       Top          =   810
  222.       Width        =   1080
  223. End
  224. Begin Control LABEL
  225.       Type         =   "Label"
  226.       Style        =   1
  227.       Caption      =   "Facsimile No."
  228.       Font         =   "-165|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  229.       Location     =   "Header Block"
  230.       Height       =   270
  231.       Left         =   4185
  232.       Top          =   1080
  233.       Width        =   1080
  234. End
  235. Begin Control LABEL
  236.       Type         =   "Label"
  237.       Style        =   9
  238.       Caption      =   "IF(TRIM(REPSTR(9))<>"P" & TRIM(SYSTEM.VATREG)<>"","VAT Reg. No.","")"
  239.       Font         =   "-165|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  240.       Location     =   "Header Block"
  241.       Height       =   270
  242.       Left         =   4185
  243.       Top          =   1350
  244.       Width        =   1140
  245. End
  246. Begin Control COMPTEL
  247.       Type         =   "Text"
  248.       Style        =   0
  249.       Fieldname    =   "COMPTEL"
  250.       Filename     =   "SYSTEM"
  251.       Font         =   "-165|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  252.       Location     =   "Header Block"
  253.       Height       =   270
  254.       Left         =   5265
  255.       Top          =   810
  256.       Width        =   2160
  257. End
  258. Begin Control COMPFAX
  259.       Type         =   "Text"
  260.       Style        =   0
  261.       Fieldname    =   "COMPFAX"
  262.       Filename     =   "SYSTEM"
  263.       Font         =   "-165|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  264.       Location     =   "Header Block"
  265.       Height       =   270
  266.       Left         =   5265
  267.       Top          =   1080
  268.       Width        =   2160
  269. End
  270. Begin Control LABEL
  271.       Type         =   "Label"
  272.       Style        =   9
  273.       Caption      =   "IF(TRIM(REPSTR(9))<>"P" & TRIM(SYSTEM.VATREG)<>"",SYSTEM.COUNTRY,"")"
  274.       Font         =   "-165|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  275.       Location     =   "Header Block"
  276.       Height       =   270
  277.       Left         =   5265
  278.       Top          =   1350
  279.       Width        =   270
  280. End
  281. Begin Control VATREG
  282.       Type         =   "Text"
  283.       Style        =   0
  284.       Fieldname    =   "VATREG"
  285.       Filename     =   "SYSTEM"
  286.       Font         =   "-165|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  287.       Location     =   "Header Block"
  288.       Height       =   270
  289.       Left         =   5535
  290.       Top          =   1350
  291.       Width        =   2025
  292. End
  293. Begin Control LABEL
  294.       Type         =   "Label"
  295.       Style        =   9
  296.       Caption      =   "IF(TRIM(PLTRAN.PTALCBATCH)="" & REPTOT(9)=1,"Payment on Account","")"
  297.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  298.       Location     =   "Header Block"
  299.       Height       =   270
  300.       Left         =   810
  301.       Top          =   4470
  302.       Width        =   3510
  303. End
  304. Begin Control LABEL
  305.       Type         =   "Label"
  306.       Style        =   9
  307.       Caption      =   "IF(PLTRAN.PTREMIT="U" | TRIM(PLTRAN.PTALCBATCH)="","",REPSTR(0))"
  308.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  309.       Location     =   "Transaction Block"
  310.       Height       =   270
  311.       Left         =   810
  312.       Top          =   30
  313.       Width        =   3510
  314. End
  315. Begin Control LABEL
  316.       Type         =   "Label"
  317.       Style        =   9
  318.       Caption      =   "IF(PLTRAN.PTREMIT="U" | TRIM(PLTRAN.PTALCBATCH)="",MID("        Invoice Credit  Payment Adjust  DiscountRefund  ",INSTR("ICPADF",PLTRAN.PTTXNTYPE)*8+1,8),"")"
  319.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  320.       Location     =   "Transaction Block"
  321.       Height       =   270
  322.       Left         =   3240
  323.       Top          =   90
  324.       Width        =   1080
  325. End
  326. Begin Control LABEL
  327.       Type         =   "Label"
  328.       Style        =   10
  329.       Caption      =   "IF(PLTRAN.PTREMIT="U" | TRIM(PLTRAN.PTALCBATCH)="",CORD(PLTRAN.PTVALUE,10,2,-1),"")"
  330.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  331.       Location     =   "Transaction Block"
  332.       Height       =   285
  333.       Left         =   7185
  334.       Top          =   90
  335.       Width        =   1410
  336. End
  337. Begin Control LABEL
  338.       Type         =   "Label"
  339.       Style        =   9
  340.       Caption      =   "IF(PLTRAN.PTREMIT="U" | TRIM(PLTRAN.PTALCBATCH)="",DTOC(PLTRAN.PTTXNDATE),"")"
  341.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  342.       Location     =   "Transaction Block"
  343.       Height       =   270
  344.       Left         =   810
  345.       Top          =   90
  346.       Width        =   1215
  347. End
  348. Begin Control LABEL
  349.       Type         =   "Label"
  350.       Style        =   10
  351.       Caption      =   "IF(PLTRAN.PTREMIT="U" | TRIM(PLTRAN.PTALCBATCH)="","",STR(ABS(PLTRAN.PTVALUE),10,2))"
  352.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  353.       Location     =   "Transaction Block"
  354.       Height       =   270
  355.       Left         =   4440
  356.       Top          =   45
  357.       Width        =   1485
  358. End
  359. Begin Control LABEL
  360.       Type         =   "Label"
  361.       Style        =   10
  362.       Caption      =   "IF(PLTRAN.PTREMIT="U" | TRIM(PLTRAN.PTALCBATCH)="",CORD(PLTRAN.PTVALUE,10,2,1),"")"
  363.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  364.       Location     =   "Transaction Block"
  365.       Height       =   285
  366.       Left         =   9345
  367.       Top          =   90
  368.       Width        =   1410
  369. End
  370. Begin Control LABEL
  371.       Type         =   "Label"
  372.       Style        =   9
  373.       Caption      =   "IF(PLTRAN.PTREMIT="U" | TRIM(PLTRAN.PTALCBATCH)="",PLTRAN.PTREF,"")"
  374.       Font         =   "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
  375.       Location     =   "Transaction Block"
  376.       Height       =   270
  377.       Left         =   5265
  378.       Top          =   90
  379.       Width        =   1620
  380. End
  381.