shu/DPM
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
Files
9c13c94f74d07432c24dd6619010bf700b5d8aee
DPM/_Migrationen/Roellin/Formulare/Einzahlungsschein.fr3
Stefan Hutter 9c13c94f74 Initial commit
2020-10-21 11:01:51 +02:00

27 lines
17 KiB
XML
Raw Blame History

<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="3.23.9" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="2047" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.ShowDialog="False" ReportOptions.CreateDate="38794.5756609375" ReportOptions.Description.Text="" ReportOptions.LastChange="38924.3561991782" ScriptLanguage="PascalScript" ScriptText.Text="var TotalTextZ1:string;&#13;&#10; totalTextZ2:String;&#13;&#10; TotalTextZ3:String;&#13;&#10; TotalTextZ4:String;&#13;&#10; TotalTextZ5:String;&#13;&#10; TotalTextZ6:String;&#13;&#10; TotalTextZ7:String;&#13;&#10; TotalText:String;&#13;&#10;&#13;&#10; TotalWertZ1:double;&#13;&#10; TotalWertZ2:double;&#13;&#10; TotalWertZ3:double;&#13;&#10; TotalWertZ4:double;&#13;&#10; TotalWertZ5:double;&#13;&#10; TotalWertZ6:double;&#13;&#10; TotalWertZ7:double;&#13;&#10; TotalWert :string;&#13;&#10;&#13;&#10;procedure reportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; // Formatierung Leistungsblock&#13;&#10;&#13;&#10; {Leistungen}&#13;&#10; TotalTextZ1:='';&#13;&#10; if totaltextz1='' then if &#60;Rechnung.&#34;Total 1000&#34;&#62;&#62;0 then totaltextz1:='Total Leistungen';&#13;&#10; if totaltextz1='' then if &#60;Rechnung.&#34;Total 2000&#34;&#62;&#62;0 then totaltextz1:='Total Leistungen';&#13;&#10; if totaltextz1='' then if &#60;Rechnung.&#34;Total 3000&#34;&#62;&#62;0 then totaltextz1:='Total Leistungen';&#13;&#10; if totaltextz1='' then if &#60;Rechnung.&#34;Total 4000&#34;&#62;&#62;0 then totaltextz1:='Total Leistungen';&#13;&#10; if totaltextz1='' then if &#60;Rechnung.&#34;Total 9000&#34;&#62;&#62;0 then totaltextz1:='Total Leistungen';&#13;&#10; totalwertZ1:=&#60;Rechnung.&#34;Total 1000&#34;&#62;+&#60;Rechnung.&#34;Total 2000&#34;&#62;+&#60;Rechnung.&#34;Total 3000&#34;&#62;+&#60;Rechnung.&#34;Total 4000&#34;&#62;+&#60;Rechnung.&#34;Total 9000&#34;&#62;;&#13;&#10;&#13;&#10; {Medikamente und Diverses}&#13;&#10; if totaltextz2='' then if &#60;Rechnung.&#34;Total 5000&#34;&#62;&#62;0 then totaltextz2:='Total Medikamente und Diverses';&#13;&#10; if totaltextz2='' then if &#60;Rechnung.&#34;Total 6000&#34;&#62;&#62;0 then totaltextz2:='Total Medikamente und Diverses';&#13;&#10; if totaltextz2='' then if &#60;Rechnung.&#34;Total 7000&#34;&#62;&#62;0 then totaltextz2:='Total Medikamente und Diverses';&#13;&#10; totalwertZ2:=&#60;Rechnung.&#34;Total 5000&#34;&#62; +&#60;Rechnung.&#34;Total 6000&#34;&#62;+&#60;Rechnung.&#34;Total 7000&#34;&#62;;&#13;&#10;&#13;&#10; {Labor}&#13;&#10; if totaltextz3='' then if &#60;Rechnung.&#34;Total 8000&#34;&#62;&#62;0 then totaltextz3:='Total Labor';&#13;&#10; totalwertZ3:=&#60;Rechnung.&#34;Total 8000&#34;&#62; ;&#13;&#10;&#13;&#10; {Rabatt}&#13;&#10; if totaltextz4='' then if &#60;Rechnung.&#34;Rabattbetrag&#34;&#62;&#62;0 then begin&#13;&#10; totaltextz4:='./. Rabatt';&#13;&#10; totaltextz4:=totaltextz4+' (';&#13;&#10; totaltextz4:=totaltextz4+ floattostr(&#60;Rechnung.&#34;Rabattwert&#34;&#62;);&#13;&#10; totaltextz4:=totaltextz4+'% von ';&#13;&#10; totaltextz4:=totaltextz4+formatfloat('0.00',&#60;Rechnung.&#34;Rabattbetrag&#34;&#62;);&#13;&#10; totaltextz4:=totaltextz4+')';&#13;&#10; totalwertz4:=betrag_gerundet(&#60;Rechnung.&#34;Rabattbetrag&#34;&#62;/100*&#60;Rechnung.&#34;Rabattwert&#34;&#62;);&#13;&#10; end;&#13;&#10;&#13;&#10; {Vorauszahlungen}&#13;&#10; if totaltextz5='' then if &#60;Rechnung.&#34;Vorauszahlung&#34;&#62;&#62;0 then totaltextz5:='./. Vorauszahlungen';&#13;&#10; totalwertZ5:=&#60;Rechnung.&#34;Vorauszahlung&#34;&#62;;&#13;&#10;&#13;&#10; {Ratenzuschlag}&#13;&#10; if totaltextz6='' then if &#60;Rechnung.&#34;Ratenzuschlag&#34;&#62;&#62;0 then totaltextz6:='Ratenzuschlag';&#13;&#10; totalwertZ6:=&#60;Rechnung.&#34;Ratenzuschlag&#34;&#62;;&#13;&#10;&#13;&#10; {Mahnzuschlag}&#13;&#10; if totaltextz7='' then if &#60;Rechnung.&#34;Mahnzuschlag&#34;&#62;&#62;0 then totaltextz7:='Mahnzuschlag';&#13;&#10; totalwertZ7:=&#60;Rechnung.&#34;Mahnzuschlag&#34;&#62;;&#13;&#10;&#13;&#10;&#13;&#10; if TotaltextZ1&#60;&#62;'' then begin&#13;&#10; if totaltext&#60;&#62;'' then begin&#13;&#10; totaltext:=totaltext+chr(13);&#13;&#10; totalwert:=totalwert+chr(13);&#13;&#10; end;&#13;&#10; totaltext:=totaltext+totaltextZ1;&#13;&#10; totalwert:=totalwert+formatfloat('0.00',totalwertz1);&#13;&#10; end;&#13;&#10; if TotaltextZ2&#60;&#62;'' then begin&#13;&#10; if totaltext&#60;&#62;'' then begin&#13;&#10; totaltext:=totaltext+chr(13);&#13;&#10; totalwert:=totalwert+chr(13);&#13;&#10; end;&#13;&#10; totaltext:=totaltext+totaltextZ2;&#13;&#10; totalwert:=totalwert+formatfloat('0.00',totalwertz2);&#13;&#10; end;&#13;&#10;&#13;&#10; if TotaltextZ3&#60;&#62;'' then begin&#13;&#10; if totaltext&#60;&#62;'' then begin&#13;&#10; totaltext:=totaltext+chr(13);&#13;&#10; totalwert:=totalwert+chr(13);&#13;&#10; end;&#13;&#10; totaltext:=totaltext+totaltextZ3;&#13;&#10; totalwert:=totalwert+formatfloat('0.00',totalwertz3);&#13;&#10; end;&#13;&#10;&#13;&#10; if TotaltextZ4&#60;&#62;'' then begin&#13;&#10; if totaltext&#60;&#62;'' then begin&#13;&#10; totaltext:=totaltext+chr(13);&#13;&#10; totalwert:=totalwert+chr(13);&#13;&#10; end;&#13;&#10; totaltext:=totaltext+totaltextZ4;&#13;&#10; totalwert:=totalwert+formatfloat('0.00',totalwertz4);&#13;&#10; end;&#13;&#10;&#13;&#10; if TotaltextZ5&#60;&#62;'' then begin&#13;&#10; if totaltext&#60;&#62;'' then begin&#13;&#10; totaltext:=totaltext+chr(13);&#13;&#10; totalwert:=totalwert+chr(13);&#13;&#10; end;&#13;&#10; totaltext:=totaltext+totaltextZ5;&#13;&#10; totalwert:=totalwert+formatfloat('0.00',totalwertz5);&#13;&#10; end;&#13;&#10;&#13;&#10; if TotaltextZ6&#60;&#62;'' then begin&#13;&#10; if totaltext&#60;&#62;'' then begin&#13;&#10; totaltext:=totaltext+chr(13);&#13;&#10; totalwert:=totalwert+chr(13);&#13;&#10; end;&#13;&#10; totaltext:=totaltext+totaltextZ6;&#13;&#10; totalwert:=totalwert+formatfloat('0.00',totalwertz6);&#13;&#10; end;&#13;&#10;&#13;&#10; if TotaltextZ7&#60;&#62;'' then begin&#13;&#10; if totaltext&#60;&#62;'' then begin&#13;&#10; totaltext:=totaltext+chr(13);&#13;&#10; totalwert:=totalwert+chr(13);&#13;&#10; end;&#13;&#10; totaltext:=totaltext+totaltextZ7;&#13;&#10; totalwert:=totalwert+formatfloat('0.00',totalwertz7);&#13;&#10; end;&#13;&#10;&#13;&#10; //Anzeige ColumnHeader&#13;&#10; if &#60;Rechnung.&#34;MitDatum&#34;&#62;=true then begin&#13;&#10; Memo54.visible:=true;&#13;&#10; memo55.visible:=true;&#13;&#10; memo56.visible:=true;&#13;&#10; memo51.visible:=true;&#13;&#10; memo61.visible:=true;&#13;&#10; memo62.visible:=true;&#13;&#10; memo63.visible:=true;&#13;&#10;&#13;&#10; memo70.visible:=false;&#13;&#10; memo71.visible:=false;&#13;&#10; memo72.visible:=false;&#13;&#10; memo73.visible:=false;&#13;&#10; memo74.visible:=false;&#13;&#10; memo75.visible:=false;&#13;&#10; memo76.visible:=false;&#13;&#10; memo77.visible:=false;&#13;&#10; end else begin&#13;&#10; Memo54.visible:=false;&#13;&#10; memo55.visible:=false;&#13;&#10; memo56.visible:=false;&#13;&#10; memo51.visible:=false;&#13;&#10; memo61.visible:=false;&#13;&#10; memo62.visible:=false;&#13;&#10; memo63.visible:=false;&#13;&#10;&#13;&#10; memo70.visible:=true;&#13;&#10; memo71.visible:=true;&#13;&#10; memo72.visible:=true;&#13;&#10; memo73.visible:=true;&#13;&#10; memo74.visible:=true;&#13;&#10; memo75.visible:=true;&#13;&#10; memo76.visible:=true;&#13;&#10; memo77.visible:=true;&#13;&#10; end;&#13;&#10;&#13;&#10; // Anzeige Detailbereiche&#13;&#10; detaildata1.visible:=false;&#13;&#10; detaildata2.visible:=false;&#13;&#10; detaildata3.visible:=false;&#13;&#10; if &#60;Rechnung.&#34;MitDatum&#34;&#62;=true then begin&#13;&#10; if &#60;Rechnung.&#34;Leistungen_Zusammenfassen&#34;&#62;=true then begin&#13;&#10; detaildata1.visible:=true;&#13;&#10; end else begin&#13;&#10; detaildata2.visible:=true;&#13;&#10; end;&#13;&#10; end else begin&#13;&#10; detaildata3.visible:=true;&#13;&#10; end;&#13;&#10;&#13;&#10;end;&#13;&#10;&#13;&#10;function betrag_gerundet(x:double):double;&#13;&#10;var z0,z1,z2,z3,z4:double;&#13;&#10; s1,s2,s3:string;&#13;&#10;&#13;&#10;begin&#13;&#10; x:=x+0.001;&#13;&#10; z0:=int(x*10);&#13;&#10; z1:=((x*10)-z0)*100;&#13;&#10; z3:=int(z1+5);&#13;&#10; z2:=0;&#13;&#10; if z3 &#60; 30 then begin&#13;&#10; z3:=0;&#13;&#10; end else begin&#13;&#10; if z3 &#60; 80 then begin&#13;&#10; z3:=50;&#13;&#10; end else begin&#13;&#10; z3:=0;&#13;&#10; z2:=10;&#13;&#10; end;&#13;&#10; end;&#13;&#10; z4:=(z0/10)+(z3/1000)+(z2/100);&#13;&#10; result:=z4;&#13;&#10;end;&#13;&#10;&#13;&#10;&#13;&#10;begin&#13;&#10;end." OnStartReport="reportOnStartReport" PropData="044C656674022803546F7003D00008446174617365747301010C2D00000020446174615365743D2254626C416273656E6465722220446174615365744E616D653D22416273656E6465722200010C2D00000020446174615365743D2254626C526563686E756E672220446174615365744E616D653D22526563686E756E672200010C3000000020446174615365743D2274624C65697374756E67656E2220446174615365744E616D653D224C65697374756E67656E2200010C3E00000020446174615365743D2274624C65697374756E67656E5F65696E7A656C2220446174615365744E616D653D224C65697374756E67656E5F45696E7A656C2200010C3F00000020446174615365743D2274624C65697374756E67656E5F766572646963687465742220446174615365744E616D653D224C65697374756E67656E5F4C5F52220000095661726961626C657301010C16000000204E616D653D22204E65772043617465676F7279312200010C26000000204E616D653D22546F74616C5F4C65697374756E67656E222056616C75653D2227486F69272200010C15000000204E616D653D224E6577205661726961626C6531220000055374796C650100">
<TfrxReportPage Name="Page1" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="" OnBeforePrint="Page1OnBeforePrint">
<TfrxPageFooter Name="PageFooter1" Height="427.08670937" Left="0" Top="18.89765" Width="718.1107" OnBeforePrint="PageFooter1OnBeforePrint">
<TfrxMemoView Name="Memo13" ShiftMode="smDontShift" Left="0" Top="302.3624" Width="222.99227" Height="83.14966" DataSet="TblRechnung" DataSetName="Rechnung" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[Rechnung.&#34;ES Referenz kurz&#34;]&#13;&#10;[Rechnung.&#34;Empfaenger Z1&#34;]&#13;&#10;[Rechnung.&#34;Empfaenger Z2&#34;]&#13;&#10;[Rechnung.&#34;Empfaenger Z3&#34;]&#13;&#10;[Rechnung.&#34;Empfaenger Z4&#34;]&#13;&#10;[Rechnung.&#34;Empfaenger Z5&#34;]&#13;&#10;[Rechnung.&#34;Empfaenger Z6&#34;]"/>
<TfrxMemoView Name="Memo19" ShiftMode="smDontShift" Left="445.98454" Top="298.58287" Width="200.31509" Height="83.14966" DataSet="TblRechnung" DataSetName="Rechnung" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[Rechnung.&#34;Empfaenger Z1&#34;]&#13;&#10;[Rechnung.&#34;Empfaenger Z2&#34;]&#13;&#10;[Rechnung.&#34;Empfaenger Z3&#34;]&#13;&#10;[Rechnung.&#34;Empfaenger Z4&#34;]&#13;&#10;[Rechnung.&#34;Empfaenger Z5&#34;]&#13;&#10;[Rechnung.&#34;Empfaenger Z6&#34;]"/>
<TfrxMemoView Name="Memo25" ShiftMode="smDontShift" Left="86.92919" Top="230.55133" Width="128.50402" Height="18.89765" DataField="ES Konto" DataSet="TblRechnung" DataSetName="Rechnung" Text="[Rechnung.&#34;ES Konto&#34;]"/>
<TfrxMemoView Name="Memo26" ShiftMode="smDontShift" Left="313.70099" Top="230.55133" Width="113.3859" Height="18.89765" DataField="ES Konto" DataSet="TblRechnung" DataSetName="Rechnung" Text="[Rechnung.&#34;ES Konto&#34;]"/>
<TfrxMemoView Name="Memo27" ShiftMode="smDontShift" Left="430.86642" Top="196.53556" Width="283.46475" Height="18.89765" DataSet="TblRechnung" DataSetName="Rechnung" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="OCRB" Font.Style="0" HAlign="haRight" ParentFont="False" Text="[IIF(&#60;Page&#62;&#62;1,'XXXXXXXXXXXXXXXXX',&#60;Rechnung.&#34;ES Referenz Kurz&#34;&#62;)]"/>
<TfrxMemoView Name="Memo40" ShiftMode="smDontShift" Left="71.81107" Top="257.00793748" Width="41.57483" Height="18.89765" DataSet="TblRechnung" DataSetName="Rechnung" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" HAlign="haRight" ParentFont="False" Text="[IIF(&#60;Page&#62;&#62;1,'XXXXX',&#60;Rechnung.&#34;ES Franken&#34;&#62;)]"/>
<TfrxMemoView Name="Memo41" ShiftMode="smDontShift" Left="120.94496" Top="257.00793748" Width="41.57483" Height="18.89765" DataSet="TblRechnung" DataSetName="Rechnung" DisplayFormat.DecimalSeparator="." DisplayFormat.FormatStr="%2.2f" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" HAlign="haRight" ParentFont="False" Text="[IIF(&#60;Page&#62;&#62;1,'XXXXX',&#60;Rechnung.&#34;ES Rappen&#34;&#62;)]"/>
<TfrxMemoView Name="Memo42" ShiftMode="smDontShift" Left="302.3624" Top="257.00793748" Width="41.57483" Height="18.89765" DataSet="TblRechnung" DataSetName="Rechnung" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" HAlign="haRight" ParentFont="False" Text="[IIF(&#60;Page&#62;&#62;1,'XXXXX',&#60;Rechnung.&#34;ES Franken&#34;&#62;)]"/>
<TfrxMemoView Name="Memo43" ShiftMode="smDontShift" Left="351.49629" Top="257.00793748" Width="41.57483" Height="18.89765" DataSet="TblRechnung" DataSetName="Rechnung" DisplayFormat.DecimalSeparator="." DisplayFormat.FormatStr="%2.2f" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" HAlign="haRight" ParentFont="False" Text="[IIF(&#60;Page&#62;&#62;1,'XXXXX',&#60;Rechnung.&#34;ES Rappen&#34;&#62;)]"/>
<TfrxMemoView Name="Memo28" ShiftMode="smDontShift" Left="162.51979" Top="389.29140937" Width="574.48856" Height="18.89765" DataSet="TblRechnung" DataSetName="Rechnung" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="OCRB" Font.Style="0" HAlign="haRight" ParentFont="False" Text="[IIF(&#60;Page&#62;&#62;1,'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX',&#60;Rechnung.&#34;ES Referenz lang&#34;&#62;)]"/>
<TfrxMemoView Name="Memo11" ShiftMode="smDontShift" Left="-11.33859" Top="98.26778" Width="173.85838" Height="37.7953" DataSet="TblRechnung" DataSetName="Rechnung" Font.Charset="1" Font.Color="-2147483640" Font.Height="-11" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[Rechnung.&#34;BankZeile1&#34;]&#13;&#10;[Rechnung.&#34;BankZeile2&#34;]&#13;&#10;[Rechnung.&#34;BankZeile3&#34;]"/>
<TfrxMemoView Name="Memo12" Left="-11.33859" Top="147.40167" Width="196.53556" Height="56.69295" DataSet="TblAbsender" DataSetName="Absender" Font.Charset="1" Font.Color="-2147483640" Font.Height="-11" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[Rechnung.&#34;ZuGunstenVon1&#34;]&#13;&#10;[Rechnung.&#34;ZuGunstenVon2&#34;]&#13;&#10;[Rechnung.&#34;ZuGunstenVon3&#34;]&#13;&#10;[Rechnung.&#34;ZuGunstenVon4&#34;]"/>
<TfrxMemoView Name="Memo33" Left="204.09462" Top="147.40167" Width="181.41744" Height="56.69295" DataSet="TblAbsender" DataSetName="Absender" Font.Charset="1" Font.Color="-2147483640" Font.Height="-11" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[Rechnung.&#34;ZuGunstenVon1&#34;]&#13;&#10;[Rechnung.&#34;ZuGunstenVon2&#34;]&#13;&#10;[Rechnung.&#34;ZuGunstenVon3&#34;]&#13;&#10;[Rechnung.&#34;ZuGunstenVon4&#34;]"/>
<TfrxMemoView Name="Memo2" ShiftMode="smDontShift" Left="204.09462" Top="98.26778" Width="173.85838" Height="37.7953" DataSet="TblRechnung" DataSetName="Rechnung" Font.Charset="1" Font.Color="-2147483640" Font.Height="-11" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[Rechnung.&#34;BankZeile1&#34;]&#13;&#10;[Rechnung.&#34;BankZeile2&#34;]&#13;&#10;[Rechnung.&#34;BankZeile3&#34;]"/>
<TfrxMemoView Name="Memo3" Left="0" Top="15.11812" Width="177.63791" Height="30.23624" Font.Charset="1" Font.Color="8421504" Font.Height="-11" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Dipl. Dentalhygienikerin HF&#13;&#10;Miglied Swiss Dental Hygienists"/>
<TfrxMemoView Name="Memo4" Left="0" Top="15.11812" Width="721.89023" Height="30.23624" Font.Charset="1" Font.Color="8421504" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" ParentFont="False" Text="Hafenstrasse 6&#13;&#10;CH-8820 Wädenswil"/>
<TfrxMemoView Name="Memo5" Left="540.47279" Top="15.11812" Width="177.63791" Height="30.23624" Font.Charset="1" Font.Color="8421504" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Telefon 043 / 477 82 90&#13;&#10;E-Mail info@dhpraxis-roellin.ch"/>
<TfrxLineView Name="Line1" Left="0" Top="15.11812" Width="718.1107" Height="0" Frame.Color="8421504" Frame.Typ="4"/>
<TfrxMemoView Name="Memo1" Left="0" Top="0" Width="177.63791" Height="18.89765" Font.Charset="1" Font.Color="9175277" Font.Height="-11" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Jolanda Röllin"/>
</TfrxPageFooter>
</TfrxReportPage>
</TfrxReport>
Reference in New Issue View Git Blame Copy Permalink