home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Computer Buyer 1999 March
/
Dpcb0399.iso
/
MONEY
/
Capital
/
SETUP.2
/
REPORTS
/
PLREMIT.REP
< prev
next >
Wrap
Text File
|
1995-06-21
|
13KB
|
381 lines
VERSION 2.00
Begin Report PLREMIT.REP
Caption = "PLREMIT.REP"
Width = 11175
Height = 16395
Reportheader = 0
Header = 4500
Transaction = 11160
SubTotal = 285
Footer = 0
Pagefooter = 15945
Replicate = 375
Style = 13
Query = "PLTRAN "
Macro = "1LU:Select from PLNAME where PLNAME.PNCODE=PLTRAN.PTCODE"
Macro = "1OF:@REPVARS.REPTOT(0) = 1"
Macro = "1OF:@REPVARS.REPTOT(1) = 0"
Macro = "1OF:@REPVARS.REPTOT(9) = REPTOT(9)+1"
Macro = "2CD:When PLTRAN.PTTXNTYPE='D' & TRIM(PLTRAN.PTALCBATCH)<>"" then @REPVARS.REPSTR(0)="'Discount Taken'""
Macro = "2CD:When PLTRAN.PTTXNTYPE='P' & TRIM(PLTRAN.PTALCBATCH)<>"" then @REPVARS.REPSTR(0)="'Payment for Items Listed Below'""
Macro = "2CD:When TRIM(PLTRAN.PTALCBATCH)="" & REPTOT(1)=0 then @REPVARS.REPTOT(1)=1"
Macro = "2CD:When PLTRAN.PTREMIT='U' & REPTOT(1)=0 then @REPVARS.REPTOT(1)=1"
Macro = "2CD:When PLTRAN.PTREMIT='R' & PLTRAN.PTTXNTYPE='P' & TRIM(PLTRAN.PTALCBATCH)<>"" then REPTOT(2)=1"
Macro = "2CD:When PLTRAN.PTREMIT='R' & PLTRAN.PTTXNTYPE='D' & TRIM(PLTRAN.PTALCBATCH)<>"" then REPTOT(2)=2"
Macro = "2CD:When REPTOT(1)=1 & REPTOT(2)=2 then BLANKLINE 2"
Macro = "2CD:When REPTOT(1)=1 & REPTOT(2)=1 then BLANKLINE 3"
Macro = "2CD:When REPTOT(1)=1 & REPTOT(2)=0 then BLANKLINE 4"
Macro = "2CD:When REPTOT(1)=1 & REPTOT(2)=3 then BLANKLINE 4"
Macro = "2CD:When REPTOT(1)=1 then @REPVARS.REPTOT(2)=3"
Macro = "2CD:When REPTOT(1)=1 then @REPVARS.REPTOT(1)=2"
Macro = "2PP:@REPVARS.REPTOT(0) = REPTOT(0)+1"
Macro = "3PP:@REPVARS.REPTOT(9) = 0"
Macro = "3PP:@REPVARS.REPTOT(2) = 0"
BreakOn = "PLTRAN.PTALCBATCH"
End
Begin Control LABEL
Type = "Label"
Style = 9
Caption = "DTOC(DATE())"
Font = "-165|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
Location = "Header Block"
Height = 285
Left = 8505
Top = 2280
Width = 1125
End
Begin Control LABEL
Type = "Label"
Style = 2
Caption = "Supplier ID"
Font = "-165|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
Location = "Header Block"
Height = 270
Left = 5670
Top = 2280
Width = 945
End
Begin Control LABEL
Type = "Label"
Style = 9
Caption = ""Page No. "+STR(REPTOT(9),3,0)"
Font = "-165|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
Location = "Header Block"
Height = 285
Left = 10020
Top = 2280
Width = 1125
End
Begin Control COMPNAME
Type = "Text"
Style = 0
Fieldname = "COMPNAME"
Filename = "SYSTEM"
Font = "-180|0|0|0|700|0|0|0|0|3|2|1|34|Arial"
Location = "Header Block"
Height = 270
Left = 810
Top = 270
Width = 4995
End
Begin Control COMPADD1
Type = "Text"
Style = 0
Fieldname = "COMPADD1"
Filename = "SYSTEM"
Font = "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
Location = "Header Block"
Height = 270
Left = 810
Top = 540
Width = 3375
End
Begin Control COMPADD2
Type = "Text"
Style = 0
Fieldname = "COMPADD2"
Filename = "SYSTEM"
Font = "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
Location = "Header Block"
Height = 270
Left = 810
Top = 810
Width = 3375
End
Begin Control COMPADD3
Type = "Text"
Style = 0
Fieldname = "COMPADD3"
Filename = "SYSTEM"
Font = "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
Location = "Header Block"
Height = 270
Left = 810
Top = 1080
Width = 3375
End
Begin Control COMPADD4
Type = "Text"
Style = 0
Fieldname = "COMPADD4"
Filename = "SYSTEM"
Font = "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
Location = "Header Block"
Height = 270
Left = 810
Top = 1350
Width = 3375
End
Begin Control PNNAME
Type = "Text"
Style = 0
Fieldname = "PNNAME"
Filename = "PLNAME"
Font = "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
Location = "Header Block"
Height = 270
Left = 810
Top = 2280
Width = 3375
End
Begin Control PNADD1
Type = "Text"
Style = 0
Fieldname = "PNADD1"
Filename = "PLNAME"
Font = "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
Location = "Header Block"
Height = 270
Left = 810
Top = 2535
Width = 3375
End
Begin Control PNADD2
Type = "Text"
Style = 0
Fieldname = "PNADD2"
Filename = "PLNAME"
Font = "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
Location = "Header Block"
Height = 270
Left = 810
Top = 2790
Width = 3375
End
Begin Control PNADD3
Type = "Text"
Style = 0
Fieldname = "PNADD3"
Filename = "PLNAME"
Font = "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
Location = "Header Block"
Height = 270
Left = 810
Top = 3030
Width = 3375
End
Begin Control PNADD4
Type = "Text"
Style = 0
Fieldname = "PNADD4"
Filename = "PLNAME"
Font = "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
Location = "Header Block"
Height = 270
Left = 810
Top = 3285
Width = 3375
End
Begin Control PNPOSTCODE
Type = "Text"
Style = 0
Fieldname = "PNPOSTCODE"
Filename = "PLNAME"
Font = "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
Location = "Header Block"
Height = 270
Left = 810
Top = 3540
Width = 3375
End
Begin Control PNCODE
Type = "Text"
Style = 0
Fieldname = "PNCODE"
Filename = "PLNAME"
Font = "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
Location = "Header Block"
Height = 270
Left = 7020
Top = 2280
Width = 1350
End
Begin Control LABEL
Type = "Label"
Style = 1
Caption = "Telephone No."
Font = "-165|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
Location = "Header Block"
Height = 270
Left = 4185
Top = 810
Width = 1080
End
Begin Control LABEL
Type = "Label"
Style = 1
Caption = "Facsimile No."
Font = "-165|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
Location = "Header Block"
Height = 270
Left = 4185
Top = 1080
Width = 1080
End
Begin Control LABEL
Type = "Label"
Style = 9
Caption = "IF(TRIM(REPSTR(9))<>"P" & TRIM(SYSTEM.VATREG)<>"","VAT Reg. No.","")"
Font = "-165|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
Location = "Header Block"
Height = 270
Left = 4185
Top = 1350
Width = 1140
End
Begin Control COMPTEL
Type = "Text"
Style = 0
Fieldname = "COMPTEL"
Filename = "SYSTEM"
Font = "-165|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
Location = "Header Block"
Height = 270
Left = 5265
Top = 810
Width = 2160
End
Begin Control COMPFAX
Type = "Text"
Style = 0
Fieldname = "COMPFAX"
Filename = "SYSTEM"
Font = "-165|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
Location = "Header Block"
Height = 270
Left = 5265
Top = 1080
Width = 2160
End
Begin Control LABEL
Type = "Label"
Style = 9
Caption = "IF(TRIM(REPSTR(9))<>"P" & TRIM(SYSTEM.VATREG)<>"",SYSTEM.COUNTRY,"")"
Font = "-165|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
Location = "Header Block"
Height = 270
Left = 5265
Top = 1350
Width = 270
End
Begin Control VATREG
Type = "Text"
Style = 0
Fieldname = "VATREG"
Filename = "SYSTEM"
Font = "-165|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
Location = "Header Block"
Height = 270
Left = 5535
Top = 1350
Width = 2025
End
Begin Control LABEL
Type = "Label"
Style = 9
Caption = "IF(TRIM(PLTRAN.PTALCBATCH)="" & REPTOT(9)=1,"Payment on Account","")"
Font = "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
Location = "Header Block"
Height = 270
Left = 810
Top = 4470
Width = 3510
End
Begin Control LABEL
Type = "Label"
Style = 9
Caption = "IF(PLTRAN.PTREMIT="U" | TRIM(PLTRAN.PTALCBATCH)="","",REPSTR(0))"
Font = "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
Location = "Transaction Block"
Height = 270
Left = 810
Top = 30
Width = 3510
End
Begin Control LABEL
Type = "Label"
Style = 9
Caption = "IF(PLTRAN.PTREMIT="U" | TRIM(PLTRAN.PTALCBATCH)="",MID(" Invoice Credit Payment Adjust DiscountRefund ",INSTR("ICPADF",PLTRAN.PTTXNTYPE)*8+1,8),"")"
Font = "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
Location = "Transaction Block"
Height = 270
Left = 3240
Top = 90
Width = 1080
End
Begin Control LABEL
Type = "Label"
Style = 10
Caption = "IF(PLTRAN.PTREMIT="U" | TRIM(PLTRAN.PTALCBATCH)="",CORD(PLTRAN.PTVALUE,10,2,-1),"")"
Font = "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
Location = "Transaction Block"
Height = 285
Left = 7185
Top = 90
Width = 1410
End
Begin Control LABEL
Type = "Label"
Style = 9
Caption = "IF(PLTRAN.PTREMIT="U" | TRIM(PLTRAN.PTALCBATCH)="",DTOC(PLTRAN.PTTXNDATE),"")"
Font = "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
Location = "Transaction Block"
Height = 270
Left = 810
Top = 90
Width = 1215
End
Begin Control LABEL
Type = "Label"
Style = 10
Caption = "IF(PLTRAN.PTREMIT="U" | TRIM(PLTRAN.PTALCBATCH)="","",STR(ABS(PLTRAN.PTVALUE),10,2))"
Font = "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
Location = "Transaction Block"
Height = 270
Left = 4440
Top = 45
Width = 1485
End
Begin Control LABEL
Type = "Label"
Style = 10
Caption = "IF(PLTRAN.PTREMIT="U" | TRIM(PLTRAN.PTALCBATCH)="",CORD(PLTRAN.PTVALUE,10,2,1),"")"
Font = "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
Location = "Transaction Block"
Height = 285
Left = 9345
Top = 90
Width = 1410
End
Begin Control LABEL
Type = "Label"
Style = 9
Caption = "IF(PLTRAN.PTREMIT="U" | TRIM(PLTRAN.PTALCBATCH)="",PLTRAN.PTREF,"")"
Font = "-180|0|0|0|400|0|0|0|0|3|2|1|34|Arial"
Location = "Transaction Block"
Height = 270
Left = 5265
Top = 90
Width = 1620
End