david
8a95cbc097
- Ajustes en informes - Cambio de versión a FastReport 4.8.11 - Warnings varios. git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@447 f4e31baf-9722-1c47-927c-6f952f962d4b
59 lines
20 KiB
XML
59 lines
20 KiB
XML
<?xml version="1.0" encoding="utf-8"?>
|
||
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="" ReportOptions.LastChange="40107,8290743287" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text="procedure DatosClienteOnBeforePrint(Sender: TfrxComponent); begin DatosCliente.Lines.Clear; DatosCliente.Lines.Add(<frxDBCabecera."CALLE">); if (<frxDBCabecera."CODIGO_POSTAL"> <> '') or (<frxDBCabecera."POBLACION"> <> '') then DatosCliente.Lines.Add(<frxDBCabecera."CODIGO_POSTAL"> + ' ' + <frxDBCabecera."POBLACION">); if (<frxDBCabecera."PROVINCIA"> <> '') then DatosCliente.Lines.Add(<frxDBCabecera."PROVINCIA">); end; procedure BandaDetallesOnBeforePrint(Sender: TfrxComponent); begin BandaDetalles.StartNewPage := False; BandaDetalles.Visible := True; MemPrecio.Style := 'Concepto normal'; MemCantidad.Style := 'Concepto normal'; MemImpTotal.Style := 'Concepto normal'; RichConcepto.Visible := True; case <frxDBDetalles."TIPO_DETALLE"> of 'Salto': begin BandaDetalles.StartNewPage := True; RichConcepto.Visible := False; end; 'Titulo': begin MemPrecio.Style := 'Concepto titulo'; MemCantidad.Style := 'Concepto titulo'; MemImpTotal.Style := 'Concepto titulo'; end; 'Concepto': begin MemPrecio.Style := 'Concepto normal'; MemCantidad.Style := 'Concepto normal'; MemImpTotal.Style := 'Concepto normal'; end; 'Subtotal': begin MemPrecio.Style := 'Concepto subtotal'; MemCantidad.Style := 'Concepto subtotal'; MemImpTotal.Style := 'Concepto subtotal'; end; 'Descuento': begin BandaDetalles.Visible := False; RichConcepto.Color := clNone; end; end; RichConcepto.Color := MemImpTotal.Color; RichConcepto.Frame := MemImpTotal.Frame; end; procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent); begin // if Engine.FreeSpace > ReportSummary1.Height then Engine.CurY := Engine.PageHeight - ReportSummary1.Height - PageFooter1.Height - 1; end; procedure Memo15OnBeforePrint(Sender: TfrxComponent); begin Memo15.Lines.Clear; if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then Memo15.Lines.Add('ORDEN DEVOLUCI<43>N') else Memo15.Lines.Add('ALBAR<41>N') end; procedure Band2OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); if Engine.FinalPass and (<TotalPaginas> > <Pagina>) then begin LineaCorta0.visible := False; LineaLarga0.visible := True; LineaCorta1.visible := False; LineaLarga1.visible := True; LineaCorta2.visible := False; LineaLarga2.visible := True; LineaCorta3.visible := False; LineaLarga3.visible := True; end else begin LineaCorta0.visible := True; LineaLarga0.visible := False; LineaCorta1.visible := True; LineaLarga1.visible := False; LineaCorta2.visible := True; LineaLarga2.visible := False; LineaCorta3.visible := True; LineaLarga3.visible := False; end; end; procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure ReportSummary1OnAfterCalcHeight(Sender: TfrxComponent); begin //Es peor el remedio que la enfermedad, en el caso de sobre pasar en uno el numero de conceptos para que no quepa el reportsumary, //no hay forma de ponerlo al final en la p<>gina siguiente hasta que el numero de conceptos rellene al menos un concepto de la siguiente hoja. // if Engine.FreeSpace > ReportSummary1.Height then // Engine.CurY := Engine.PageHeight - ReportSummary1.Height - PageFooter1.Height - 1; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C65732200010C3600000020446174615365743D2266727844424574697175657461732220446174615365744E616D653D226672784442457469717565746173220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E6173220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
|
||
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
||
<TfrxReportPage Name="Page1" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10,00125" RightMargin="10,00125" TopMargin="10,00125" BottomMargin="10,00125" Columns="1" ColumnWidth="209,999791666667" ColumnPositions.Text="0" LargeDesignHeight="True" PrintOnPreviousPage="True" HGuides.Text="" VGuides.Text="">
|
||
<TfrxPageHeader Name="Band2" Height="277,60631142" Left="0" Top="16" Width="718,101251175" OnBeforePrint="Band2OnBeforePrint">
|
||
<TfrxMemoView Name="Memo24" Align="baBottom" Left="625,16574" Top="251,14961851" Width="92,94496" Height="26,45669291" ShowHint="False" Color="14672103" Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="12" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
|
||
<TfrxShapeView Name="Shape1" Left="7,55906" Top="132,94496" Width="351,49629" Height="109,60637" ShowHint="False" Color="16777215" Shape="skRoundRectangle"/>
|
||
<TfrxShapeView Name="Shape2" Left="370,83488" Top="132,94496" Width="345,71676" Height="109,60637" ShowHint="False" Color="16777215" Shape="skRoundRectangle"/>
|
||
<TfrxMemoView Name="Memo16" Left="15,11812" Top="140,06308" Width="27,33859" Height="18,89765" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Nº:"/>
|
||
<TfrxMemoView Name="Memo17" Left="15,11812" Top="166,189085" Width="45,35436" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Fecha:"/>
|
||
<TfrxMemoView Name="Memo18" Left="15,11812" Top="191,65368" Width="60,47248" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Página nº:"/>
|
||
<TfrxMemoView Name="Memo19" Left="381,37817" Top="144,28355" Width="328,37817" Height="37,7953" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera."NOMBRE"] [frxDBCabecera."NIF_CIF"]"/>
|
||
<TfrxMemoView Name="DatosCliente" Left="381,37817" Top="182,07885" Width="328,37817" Height="56,47248" OnBeforePrint="DatosClienteOnBeforePrint" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
|
||
<TfrxMemoView Name="Memo3" Align="baBottom" Left="405,92146" Top="251,14961851" Width="63,14966" Height="26,45669291" ShowHint="False" Color="14672103" Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="12" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Cantidad"/>
|
||
<TfrxMemoView Name="Memo4" Align="baBottom" Left="469,07112" Top="251,14961851" Width="95,62214" Height="26,45669291" ShowHint="False" Color="14672103" Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="12" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Precio unidad"/>
|
||
<TfrxMemoView Name="Memo5" Left="46,01577" Top="140,06308" Width="309,26005" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera."REFERENCIA"]"/>
|
||
<TfrxMemoView Name="Memo6" Left="64,03154" Top="165,630025" Width="291,24428" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera."FECHA_ALBARAN"]"/>
|
||
<TfrxMemoView Name="Memo7" Left="75,37013" Top="191,65368" Width="181,63791" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[<Pagina>] / [<TotalPaginas>]"/>
|
||
<TfrxLineView Name="Line1" Left="718" Top="252,21718" Width="0" Height="779" ShowHint="False" Frame.Typ="1"/>
|
||
<TfrxMemoView Name="Memo15" Left="440,1577" Top="18,89765" Width="270,39394" Height="64,25201" OnBeforePrint="Memo15OnBeforePrint" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="11053757" Font.Height="-48" Font.Name="Tahoma" Font.Style="1" Frame.Color="14211288" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="ALBARÁN"/>
|
||
<TfrxMemoView Name="Memo37" Align="baBottom" Left="564,26283333" Top="251,14961851" Width="61,60637" Height="26,45669291" ShowHint="False" Color="14672103" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text=""/>
|
||
<TfrxLineView Name="LineaCorta2" Left="564,28346457" Top="252,21718" Width="0" Height="600" ShowHint="False" Frame.Typ="1"/>
|
||
<TfrxLineView Name="LineaLarga3" Left="625,7953" Top="251,11286333" Width="0" Height="779" ShowHint="False" Frame.Typ="1"/>
|
||
<TfrxLineView Name="LineaCorta1" Left="469,02752" Top="252,21718" Width="0" Height="600" ShowHint="False" Frame.Typ="1"/>
|
||
<TfrxMemoView Name="Memo23" Align="baBottom" Left="4" Top="251,14961851" Width="402,15" Height="26,45669291" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Concepto"/>
|
||
<TfrxLineView Name="Line2" Left="4" Top="252,21718" Width="0" Height="779" ShowHint="False" Frame.Typ="1"/>
|
||
<TfrxLineView Name="LineaLarga0" Left="406,14193" Top="252,21718" Width="0" Height="779" ShowHint="False" Frame.Typ="1"/>
|
||
<TfrxLineView Name="LineaLarga1" Left="469" Top="252" Width="0" Height="779" ShowHint="False" Frame.Typ="1"/>
|
||
<TfrxLineView Name="LineaLarga2" Left="564" Top="252" Width="0" Height="779" ShowHint="False" Frame.Typ="1"/>
|
||
<TfrxLineView Name="LineaCorta0" Left="406" Top="252" Width="0" Height="600" ShowHint="False" Frame.Typ="1"/>
|
||
<TfrxLineView Name="LineaCorta3" Left="626" Top="252" Width="0" Height="600" ShowHint="False" Frame.Typ="1"/>
|
||
</TfrxPageHeader>
|
||
<TfrxMasterData Name="BandaDetalles" Height="19,11812" Left="0" Top="352" Width="718,101251175" OnBeforePrint="BandaDetallesOnBeforePrint" AllowSplit="True" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
|
||
<TfrxMemoView Name="Memo38" Left="565,59616667" Top="0" Width="57,82674724" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 %" DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="DejaVu Sans Mono" Font.Style="0" GapX="3" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles."DESCUENTO"]"/>
|
||
<TfrxMemoView Name="MemPrecio" Left="470,96059087" Top="0" Width="91,84251724" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 <20> " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="DejaVu Sans Mono" Font.Style="0" GapX="3" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles."IMPORTE_UNIDAD"]"/>
|
||
<TfrxMemoView Name="MemImpTotal" Left="627,05511811" Top="0" Width="89,16535189" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 <20> " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="DejaVu Sans Mono" Font.Style="0" GapX="3" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles."IMPORTE_TOTAL"]"/>
|
||
<TfrxMemoView Name="RichConcepto" ShiftMode="smWhenOverlapped" Left="11,33859" Top="0" Width="388,85065" Height="18" ShowHint="False" StretchMode="smActualHeight" DataField="CONCEPTO" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="DejaVu Sans Mono" Font.Style="0" GapX="3" GapY="3" ParentFont="False" Wysiwyg="False" Text="[frxDBDetalles."CONCEPTO"]"/>
|
||
<TfrxMemoView Name="MemCantidad" Left="407,81098457" Top="0" Width="59,37007874" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="DejaVu Sans Mono" Font.Style="0" GapX="3" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles."CANTIDAD"]"/>
|
||
<TfrxMemoView Name="Memo2" Left="208" Top="0" Width="178,48825" Height="15,11812" Visible="False" ShowHint="False" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" Text="[frxDBDetalles."TIPO_DETALLE"]"/>
|
||
</TfrxMasterData>
|
||
<TfrxReportSummary Name="ReportSummary1" Height="196" Left="0" Top="1452" Width="718,101251175" OnAfterCalcHeight="ReportSummary1OnAfterCalcHeight" OnBeforePrint="ReportSummary1OnBeforePrint" Stretched="True">
|
||
<TfrxShapeView Name="Shape5" Left="4" Top="1" Width="714" Height="90" ShowHint="False"/>
|
||
<TfrxShapeView Name="Shape4" Left="4" Top="91" Width="714" Height="106" ShowHint="False"/>
|
||
<TfrxMemoView Name="Memo30" Left="9,13389" Top="101,50402" Width="113,3859" Height="18,89765" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="RECIBÍ CLIENTE:"/>
|
||
<TfrxShapeView Name="Shape10" Left="406" Top="1" Width="312" Height="23,45669535" ShowHint="False" Color="14672103"/>
|
||
<TfrxMemoView Name="Memo9" Left="629,29133858" Top="3,50402" Width="86,92913386" Height="19,11812" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 <20>" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="1310975" Font.Height="-13" Font.Name="DejaVu Sans Mono" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."IMPORTE_TOTAL"]"/>
|
||
<TfrxMemoView Name="Memo8" Left="8" Top="12" Width="149,3859" Height="14,89765" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="RECIBÍ TRANSPORTISTA:"/>
|
||
<TfrxMemoView Name="Memo1" Left="495" Top="3" Width="122,92913386" Height="19,11812" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 <20>" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="1310975" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Entrega a cuenta"/>
|
||
<TfrxLineView Name="Line3" Left="626" Top="2" Width="0" Height="22" ShowHint="False" Frame.Typ="1"/>
|
||
</TfrxReportSummary>
|
||
<TfrxOverlay Name="Overlay1" Height="1000" Left="0" Top="392" Width="718,101251175">
|
||
<TfrxPictureView Name="Picture2" Left="406" Top="318" Width="364" Height="469" ShowHint="False" HightQuality="False"/>
|
||
</TfrxOverlay>
|
||
<TfrxPageFooter Name="PageFooter1" Height="15" Left="0" Top="1668" Width="718,101251175">
|
||
<TfrxLineView Name="Line4" Left="4" Top="0,5" Width="712,10125118" Height="-0,5" ShowHint="False" Diagonal="True"/>
|
||
</TfrxPageFooter>
|
||
</TfrxReportPage>
|
||
</TfrxReport>
|