>TYPE   	D
>NAME   	235.d
>CODE   	235.cod
>BY     	@(#)$Author: Anderst $
>DATE   	@(#)$Date: 05-05-18 11:25 $
>VERSION	@(#)$Revision: 3 $
>ID     	19000

>FILES ROWS 0
#type id  name        dbtype mode autoload r0 r1 r2 r3 r4 r5 comment

>TEXTINFO ROWS 66 SIZE 2116
#id    value    flags    text
IDL_100  100  -  Fakturanumret saknas
IDL_101  101  -  Färdigbetald!
IDL_102  102  -  Ej bet.villkor för autogiro post
IDL_103  103  -  Ej bet.villkor för autogiro bank
IDL_104  104  -  Medgivande och faktura för samma kund tillåts ej
IDL_105  105  -  Rapport REAG saknas
IDL_106  106  -  Reskontraposten upptagen av %1
IDL_107  107  -  Inget att makulera
IDL_108  108  -  Ta bort medgivandet?
IDL_109  109  -  Fakturan saknas i urvalet
IDL_110  110  -  Sökvägen existerar inte
IDL_111  111  -  Belopp överstiger högsta maxbelopp
IDL_112  112  -  Registrerat i uppdraget. Ta bort?
IDL_113  113  -  Fel vid registraring av medgivandepost
IDL_114  114  -  Belopp måste anges
IDL_115  115  -  BLANKT = Alla
IDL_116  116  -  BLANKT= Medgivande med obegränsat belopp
IDL_117  117  -  Kund saknas
IDL_118  118  -  BLANKT = Totalmakulera fakturaurval
IDL_119  119  -  Inga fakturor funna
IDL_120  120  -  Makulera hela fakturaurvalet?
IDL_121  121  -  Urvalspost kan ej registreras i register 111
IDL_122  122  -  Fakturanr måste fyllas i
IDL_123  123  -  Betalningsdatum måste anges
IDL_125  125  -  Kundkod måste anges
IDL_126  126  -  Betalningsuppdrag redan skrivet %1
IDL_127  127  -  Urvalspost kan ej raderas i register 111
IDL_128  128  -  Ta bort medgivanden?
IDL_129  129  -  Postgironummer i rutin 890 måste anges
IDL_130  130  -  Bankgironummer i rutin 791 eller 890 måste anges
IDL_131  131  -  Olika bankgironr krävs i egenskaper
IDL_132  132  -  Bankgiro företag eller privat saknas i egenskaper
IDL_133  133  -  Makulera ur urvalet?
IDL_134  134  -  Överstiger restbeloppet
IDL_135  135  -  Vårt redov.nr ej angivet i rutin 791 Egenskaper Pyramid under Autogiro
IDL_136  136  -  Inget att skriva
IDL_137  137  -  Bankgiro företag saknas i egenskaper
IDL_138  138  -  Samtidigt urval i rutin 320 tillåts ej.
IDL_139  139  -  Fel i register PURESJO, journalkod är inte 2 tecken lång. Kontakta support.
IDL_140  140  -  Det finns medgivande-blanketter att skriva
IDL_141  141  -  Medgivandeblanketter finns att skriva ut
IDL_142  142  -  Bankgiro privat saknas i egenskaper
IDL_143  143  -  Vissa fakturor är ej utvalda p g a medgivandepost
IDL_144  144  -  Filnamn ej angivet i egenskaper Autogiro i rutin 791
IDL_145  145  -  Filnamn för medgivanden ej angivet i egenskaper Autogiro i rutin 791
IDL_146  146  -  Ange mapp för sändfiler.
IDL_148  148  -  Fel finns. Skriv fellogg?
IDL_149  149  -  Egenskaper för Autogiro saknas i rutin 791.
IDL_150  150  -  Autogiro bank
IDL_151  151  -  Autogiro post
IDL_152  152  -  Medgivande
IDL_153  153  -  Mak.medgivande
IDL_154  154  -  Autogiro P
IDL_155  155  -  Autogiro F
IDL_156  156  -  Visa
IDL_157  157  -  Förhandsgranska
IDL_158  158  -  Anteckningar
IDL_159  159  -  Bankgiro:
IDL_160  160  -  Postgiro:
IDL_161  161  -  Postgirofil från %1 finns. Raderas
IDL_162  162  -  Bankgirofil från %1 finns. Raderas
IDL_163  163  -  Medgivandefil från %1 finns. Raderas
IDL_164  164  -  BLANKT=Totalmakulera fakturaurval,     Medgivandeblanketter finns att skriva ut
IDL_165  165  -  BLANKT=Alla,     Medgivandeblanketter finns att skriva ut
IDL_166  166  -  BLANKT=Medgivande med obegränsat belopp,   Medgivandeblanketter finns att skriva
IDL_167  167  -  Till och med förfallodatum


>STACK ROWS 200 SIZE 7000

>FONT ROWS 12
#id Hgt Wth Esc Ori Wgt Ita  Ul Sth Chs Opr Clp Qua Pch Name
1   -21   0   0   0 400   0  0   0   0   0   0   0   0 "MS Sans Serif"
2   -17   0   0   0 400   1  1   0   0   0   0   0   0 "Times Rmn"
3   -21   0   0   0 400   0  0   0   0   0   0   0   0 "President"
4    -9   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"
5   -11   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"
6   -11   0   0   0 400   1  0   0   0   0   0   0   0 "Arial"
7   -11   0   0   0 700   0  0   0   0   0   0   0   0 "Arial"
8   -13   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"
9   -13   0   0   0 400   1  0   0   0   0   0   0   0 "Arial"
A   -13   0   0   0 700   0  0   0   0   0   0   0   0 "Arial"
B   -16   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"
C   -19   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"


>COLOR ROWS 8
#id color	comment
1   0xff0000   	""
2   0xff       	""
3   0xff00ff   	""
4   0xffffff   	""
5   0xc0c0c0   	""
6   0x80       	""
7   0x808080   	""
8   0x0        	""


>BRUSH ROWS 5 SIZE 100
#id type	text
1   0	0xff0000
2   1	pattern
3   2	tegel.bmp
5   4	0xff
6   5	0x0


>APPEVENTS ROWS 0
#id Eventname	ParamList


>WINDOW ROWS 1
#id       x     y    cy    cx sp1	sp2	Bitmap	font	size	caption
5511     10    10   350   420 SB	-	-	"-"	  8	""

>FORM MAIN ROWS 7 SIZE 67 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW   621    2    4   16  410 -	PZ	-	win1	-	""
WW    19   19    6   32  380 -	P	-	win2	-	""
TB    11  170    4  146  354 -	PZ	-	tab1	-	"Auto&giro"
B3   151  183  360   14   56 -	TPwz	-	pbOK	-	"ok.bmp,&Verkställ"
B3     2  300  360   14   56 -	xTPwz	-	pbExit	-	"exit.bmp,St&äng"
GR   144   56    6  106  356 -	pfWZd	-	lcTable	-	""
B3  4316  199  360   14   56 -	TPwz	-	pbPrint	-	"print.bmp,B&lankett"

>FORMFILES MAIN ROWS 0
#Id	sp
>FORM win1 ROWS 23 SIZE 23 "Tool"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
FR  1990    0    0   13    1 -	Hp	-	-	-	""
FR  1991    0    0   13    1 -	Hp	-	-	-	""
FR  1992    0    0   13    1 -	Hp	-	-	-	""
FR  1993    0    0   13    1 -	Hp	-	-	-	""
FR  1994    0    0   13    1 -	Hp	-	-	-	""
FR  1995    0    0   13    1 -	Hp	-	-	-	""
FR  1996    0    0   13    1 -	Hp	-	-	-	""
B3  2000    0    8   13   15 -	STHpfF	-	pbTool	-	""
B3  2001    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2002    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2003    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2004    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2005    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2006    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2007    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2008    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2009    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2010    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2011    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2012    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2013    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2014    0    0   13   15 -	STHpfF	-	pbTool	-	""
FU  2020    0    0   15  410 -	pZ	-	-	-	""

>FORM tab1 ROWS 1 SIZE 1 "tab1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW    28   13    2  130  350 -	PZ	-	win3	-	""

>FORMFILES tab1 ROWS 0
#Id	sp
>FORM win2 ROWS 8 SIZE 227 "Command"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
B3    20    0    0   14   87 -	xTPM	-	pbInvoiceList	-	"print.bmp,Fak&turalistor"
B3    21    0   90   14   87 -	xTPM	-	pbSelectionInvoice	-	"Nothing.bmp,&Urval/Ändra faktura"
B3    22    0  180   14   87 -	xTPM	-	pbSelectionCustomer	-	"Nothing.bmp,Urval kun&der"
B3    23    0  270   14   87 -	xTPM	-	pbPrintPayment	-	"Nothing.bmp,&Skriv bet.uppdrag"
B3    24   16    0   14   87 -	xTPM	-	pbRegPayment	-	"regnew.bmp,Reg. betal&ningar"
B3    25   16   90   14   87 -	TPM	-	pbCancelSelection	-	"delete.bmp, Ta &bort ur urvalet"
B3    26   16  180   14   87 -	TPM	-	pbCancelPayment	-	"seek.bmp,Sök/Ma&k. uppdrag"
B3  4210   16  270   14   87 -	xTPM	-	pbConsent	-	"Nothing.bmp,&Medgivande"

>FORMFILES win2 ROWS 0
#Id	sp
>FORM win3 ROWS 6 SIZE 6 "Moder"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW    29    3    2  124  346 -	HPWZ	-	win4	-	""
WW    50    3    3  130  346 -	HPZ	-	win5	-	""
WW    70    3    4  124  342 -	HPZ	-	win6	-	""
WW    78    4    4  123  344 -	HPZ	-	win7	-	""
WW    96    0    4  128  342 -	HPZ	-	win9	-	""
WW  4212    0    1  128  346 -	PWZ	-	win45	-	""

>FORMFILES win3 ROWS 0
#Id	sp
>FORM win4 ROWS 9 SIZE 102 "Lista"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T     38   14    6   11   57 -	p	-	-	-	"Urvalsdatum:"
DP    34   11   64   13   54 D8	P	-	dpPaymentDate1	#8711	""
RB  4288   40   11   10   92 -	RP	-	rbUnwritten	-	"Ej skrivna bet.uppdrag"
RB  4289   50   11   10   92 -	RP	-	rbWritten	-	"Skrivna bet.uppdrag"
RB  4290   60   11   10   92 -	RP	-	rbNotPassed	-	"Ej godkända kunder"
GB  4236   28    6   47  111 -	p	-	-	-	"Urval"
CE    46  102   10  150  100 -	Pc	-	cbPrinter	#815	""
GB    49    0    0   90  342 -	pZ	-	-	-	"Kriterier"
GB    48   90    0   30  342 -	pZ	-	-	-	"Skrivare"

>FORMFILES win4 ROWS 0
#Id	sp
>FORM win5 ROWS 10 SIZE 79 "Urval fakt."
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D    424    5   66   13   60 -	PU	-	edInvoiceNo2	#8140	""
DP    63   19   66   13   76 D8	P	-	dpPayDate2	#8712	""
D   4237   33   66   13   60 -	P	-	edAmount2	#8571	""
T    423    5    4   11   62 -	p	-	-	-	"Fakturanr:"
T     64   19    4   11   62 -	p	-	-	-	"Betalningsdatum:"
T    406   33    4   11   62 -	p	-	-	-	"Belopp:"
B3  4127    4  127   13    8 -	SxTpfF	-	pbPrev2	-	"arrowl.bmp"
B3  4128    4  136   13    8 -	SxTpfF	-	pbNext2	-	"arrowr.bmp"
B3   425    4  146   13   15 -	SxTpfF	-	pbInvoiceNo2	-	"seek.bmp"
TB   346    2  170   93  173 -	pZB	-	tab2	-	"Kundinfo"

>FORMFILES win5 ROWS 0
#Id	sp
>FORM win6 ROWS 5 SIZE 37 "Urv.kund"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
DP    71    9   64   13   60 D8	P	-	dpPaymentDate3	#8711	""
D     73   23   64   13   58 -	PU	-	edCustomerCode3	#841	""
B3    74   23  124   13   15 -	SxTpfF	-	pbCustomerCode3	-	"seek.bmp"
T     77   10    4   11   60 -	p	-	txPaymentDate	-	"Betalningsdatum:"
T     75   24    4   11   60 -	p	-	-	-	"Kundkod:"

>FORMFILES win6 ROWS 0
#Id	sp
>FORM win7 ROWS 3 SIZE 25 "Bet.upp."
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D     79    9   60   13  168 -	P	-	edUnit	#11521	""
T     80   10    4   11   55 -	p	-	-	-	"Enhet\katalog:"
B3  4318    8  232   15   13 -	QpF	-	pbUnit	-	"open.bmp"

>FORMFILES win7 ROWS 0
#Id	sp
>FORM win9 ROWS 10 SIZE 76 "Mak.urval"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D    430    6   63   13   60 -	PU	-	edInvoiceNo6	#8140	""
B3  4129    6  125   13    8 -	SxTpfF	-	pbPrev6	-	"arrowl.bmp"
B3  4130    6  134   13    8 -	SxTpfF	-	pbNext6	-	"arrowr.bmp"
B3   431    6  144   13   15 -	SxTpfF	-	pbInvoiceNo6	-	"seek.bmp"
DP  4279   20   63   13   90 D8	pO	-	dpPaymentDate6	#8712	""
D    458   34   63   13   60 -	pO	-	edAmount6	#8571	""
TB  4235    6  171   90  166 -	PZB	-	tab4	-	"Kundinfo"
T    459   34    6   11   56 -	p	-	-	-	"Belopp:"
T    429    6    6   11   56 -	p	-	-	-	"Fakturanr:"
T     97   20    6   11   56 -	p	-	-	-	"Betaln.datum:"

>FORMFILES win9 ROWS 0
#Id	sp
>FORM lcTable ROWS 8 SIZE 68 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   4300    2    1   11   35 -	Hp	-	-	#11105	"Kundkod"
T   4301    2   37   11   68 -	Hp	-	-	#2021	"Kund"
T   4302    2  105   11   19 -	RHph	-	-	#11110	"Typ"
T   4303    2  124   11   36 -	Hph	-	-	#11111	"Fakturanr"
T   4304    2  160   11   60 -	Hph	-	-	#8833	"Medgivandetyp"
T   4305    2  220   11   46 -	Hph	-	-	#8125	"Bet.sätt"
T   4306    2  266   11   36 -	Hp	-	-	#11135	"Reg.datum"
T   4307    2  302   11   40 -	RHph	-	-	#8571	"Belopp "

>FORMFILES lcTable ROWS 2
#Id	sp
111	r
20	r
>FORM tab2 ROWS 1 SIZE 1 "tab2"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW   347   14    5   72  165 -	HPZ	-	win27	-	""

>FORMFILES tab2 ROWS 0
#Id	sp
>FORM win27 ROWS 9 SIZE 32 "Kundinfo"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T    348    5    6   11   38 -	p	-	-	-	"Kundkod:"
D    349    5   49   13   60 -	pO	-	edCustomerCodeTAB2	#2001	""
T    350   19    6   11   38 -	p	-	-	-	"Kund:"
D    351   19   49   13  103 -	pO	-	edCustomerTAB2	#2021	""
T    352   47    6   11   38 -	p	-	txNumberTAB2	-	""
D    353   47   49   13   60 -	pO	-	edNumberTAB2	-	""
T   4312   33    6   11   39 -	p	-	-	-	"Bankkonto:"
D   4313   33   49   13   40 -	pO	-	edClearnrTAB2	#2148	""
D   4314   33   93   13   60 -	pO	-	edBankAccountTAB2	#2149	""

>FORMFILES win27 ROWS 0
#Id	sp
>FORM win45 ROWS 9 SIZE 73 "Medgivande"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
DP  4214    9   85   13   60 D8	pO	-	dpPaymentDate8	#8711	""
D   4218   23   85   13   58 -	PU	-	edCustomerCode8	#841	""
B3  4219   23  146   13   15 -	SxTpfF	-	pbCustomerCode8	-	"seek.bmp"
XB  4224   39    5   10   89 -	P	-	xbDeleteConsent	-	"Makulera medgivande:"
D   4222   52   87   13   60 -	P	-	edAmount8	#8571	""
T   4213    9    6   11   78 -	p	-	-	-	"Reg.datum:"
T   4217   23    6   11   78 -	p	-	-	-	"Kundkod:"
T   4220   52    6   11   78 -	p	-	txAmount8	-	"Maxbelopp:"
TB  4232    4  176   86  166 -	PZB	-	tab3	-	"Kundinfo"

>FORMFILES win45 ROWS 0
#Id	sp
>FORM tab3 ROWS 1 SIZE 1 "tab3"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  4262   15    4   67  158 -	PZ	-	win48	-	""

>FORMFILES tab3 ROWS 0
#Id	sp
>FORM win48 ROWS 9 SIZE 41 "win48"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   4230    8    4   11   39 -	p	-	-	-	"Kundkod:"
D   4231    8   46   13   60 -	pO	-	edCustomerCodeTAB3	#2001	""
D   4228   22   46   13  103 -	pO	-	edCustomerTAB3	#2021	""
T   4226   22    4   11   39 -	p	-	-	-	"Kund:"
T   4233   36    4   11   39 -	p	-	txClearnrTAB3	-	"Bankkonto:"
D   4234   36   46   13   40 -	pO	-	edClearnrTAB3	#2148	""
T   4227   50    4   11   39 -	p	-	txAccountTAB3	-	"Bankgiro:"
D   4229   36   88   13   60 -	pO	-	edBankAccountTAB3	#2149	""
D   4308   50   46   13   60 -	pO	-	edNumberTAB3	#2072	""

>FORMFILES win48 ROWS 0
#Id	sp
>FORM tab4 ROWS 1 SIZE 1 "tab4"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  4261   14    2   72  159 -	P	-	win47	-	""

>FORMFILES tab4 ROWS 0
#Id	sp
>FORM win47 ROWS 9 SIZE 32 "win47"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D    462    7   46   13   60 -	pO	-	edCustomerCodeTAB4	#2001	""
D    464   21   46   13  105 -	pO	-	edCustomerTAB4	#2021	""
D    466   49   46   13   60 -	pO	-	edNumberTAB4	-	""
T    463    7    3   11   32 -	p	-	-	-	"Kundkod:"
T    465   21    3   11   32 -	p	-	-	-	"Kund:"
T    467   49    3   11   32 -	p	-	txNumberTAB4	-	""
T   4309   35    3   11   39 -	p	-	txBankAccountTAB4	-	"Bankkonto:"
D   4310   35   46   13   40 -	pO	-	edClearNrTAB4	#2148	""
D   4311   35   90   13   60 -	pO	-	edBankAccountTAB4	#2149	""

>FORMFILES win47 ROWS 0
#Id	sp
>SOURCE
