david
17c4d42973
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@145 0c75b7a4-871f-7646-8a2f-f78d34cc349f
38 lines
11 KiB
XML
38 lines
11 KiB
XML
<?xml version="1.0" encoding="utf-8"?>
|
|
<TfrxReport Version="3.23.7" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="39399,7768037384" ScriptLanguage="PascalScript" ScriptText.Text=" procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent); var Cadena: String; begin { DatosEmpresa.Lines.Clear; if (<frxDBCabecera."TELEFONO_1_EMPRESA"> <> '') then Cadena := 'TLF: ' + <frxDBCabecera."TELEFONO_1_EMPRESA">; if (<frxDBCabecera."FAX_EMPRESA"> <> '') then Cadena := Cadena + ' FAX: ' + <frxDBCabecera."FAX_EMPRESA">; DatosEmpresa.Lines.Add(Cadena); } end; procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent); begin { NombreEmpresa.Lines.Clear; NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">); } end; procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent); var ACadena : String; begin { ACadena := ''; DireccionEnvio.Lines.Clear; if (<frxDBCabecera."REFERENCIA_CLIENTE"> <> '') then ACadena := <frxDBCabecera."REFERENCIA_CLIENTE">; if (<frxDBCabecera."PERSONA_CONTACTO"> <> '') then ACadena := ACadena + ' ' + <frxDBCabecera."PERSONA_CONTACTO">; DireccionEnvio.Lines.Add(ACadena); ACadena := ''; DireccionEnvio.Lines.Add(<frxDBCabecera."CALLE">); if (<frxDBCabecera."CODIGO_POSTAL"> <> '') then ACadena := <frxDBCabecera."CODIGO_POSTAL"> + ' '; if (<frxDBCabecera."POBLACION"> <> '') then ACadena := ACadena + <frxDBCabecera."CODIGO_POSTAL">; if (ACadena <> '') then DireccionEnvio.Lines.Add(ACadena); if (<frxDBCabecera."PROVINCIA"> <> '') then DireccionEnvio.Lines.Add(<frxDBCabecera."PROVINCIA">); if (<frxDBCabecera."TELEFONO"> <> '') then DireccionEnvio.Lines.Add(<frxDBCabecera."TELEFONO">); } end; procedure PageHeader1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E6173220000055374796C650100">
|
|
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
|
<TfrxMasterData Name="MasterData1" Height="24" Left="0" Top="283,46475" Width="718,1107" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
|
|
<TfrxMemoView Name="Memo14" Left="1" Top="1,5" Width="75" Height="18" 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="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles."REFERENCIA_PROVEEDOR"] "/>
|
|
<TfrxMemoView Name="MemoCampo2" Left="78" Top="1,5" Width="56,03148874" Height="18" 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="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles."CANTIDAD"]"/>
|
|
<TfrxRichView Name="MemoCampo12" ShiftMode="smWhenOverlapped" Left="137,5" Top="1,5" Width="580,5436" Height="18" StretchMode="smMaxHeight" DataField="CONCEPTO" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" GapX="2" GapY="3" Wysiwyg="False" PropData="0852696368456469740A6C0000007B5C727466315C616E73695C616E7369637067313235325C64656666305C6465666C616E67333038327B5C666F6E7474626C7B5C66305C666E696C205461686F6D613B7D7D0D0A5C766965776B696E64345C7563315C706172645C66305C667331365C7061720D0A7D0D0A00"/>
|
|
</TfrxMasterData>
|
|
<TfrxPageFooter Name="PageFooter1" Height="69,1" Left="0" Top="366,61441" Width="718,1107">
|
|
<TfrxLineView Name="Line4" Align="baCenter" Left="-0,944650000000024" Top="0" Width="720" Height="0" Frame.Typ="4"/>
|
|
</TfrxPageFooter>
|
|
<TfrxPageHeader Name="PageHeader1" Height="202,20472441" Left="0" Top="18,89765" Width="718,1107" OnBeforePrint="PageHeader1OnBeforePrint">
|
|
<TfrxMemoView Name="Memo23" Left="135,5" Top="172,92517" Width="583,2" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Concepto"/>
|
|
<TfrxMemoView Name="Memo8" Left="76" Top="172,92517" Width="59,25726667" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Cantidad"/>
|
|
<TfrxMemoView Name="Memo13" Left="0" Top="172,92517" Width="76,2" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Referencia"/>
|
|
<TfrxShapeView Name="Shape2" Left="357,60637" Top="76" Width="360,69295" Height="96,5" Color="16777215" Frame.Color="8421504"/>
|
|
<TfrxMemoView Name="Memo2" Left="358,36209" Top="18,89765" Width="355,49629" Height="38,89765" Font.Charset="1" Font.Color="8421504" Font.Height="-29" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="PEDIDO DE CLIENTE"/>
|
|
<TfrxMemoView Name="NombreEmpresa" Left="0" Top="8" Width="414,07885" Height="26,89765" OnBeforePrint="NombreEmpresaOnBeforePrint" Font.Charset="1" Font.Color="8421504" Font.Height="-19" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text=""/>
|
|
<TfrxMemoView Name="Memo7" Left="366,39394" Top="79,81107" Width="80,03154" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="Página nº:"/>
|
|
<TfrxMemoView Name="Memo12" Left="446,42548" Top="79,81107" Width="157,63791" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[<Pagina>] / [<TotalPaginas>]"/>
|
|
<TfrxShapeView Name="Shape1" Left="0" Top="76" Width="357,92122079" Height="96,50391016" Color="16777215" Frame.Color="8421504"/>
|
|
<TfrxMemoView Name="Memo10" Left="3,68491" Top="80" Width="349,29159" Height="15,60637" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="DIRECCIÓN DESTINO:"/>
|
|
<TfrxMemoView Name="DatosEmpresa" Left="0" Top="40" Width="414,07885" Height="26,89765" OnBeforePrint="DatosEmpresaOnBeforePrint" Font.Charset="1" Font.Color="8421504" Font.Height="-16" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text=""/>
|
|
<TfrxMemoView Name="Memo5" Left="366,39394" Top="101,35436" Width="68,69295" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="Nº pedido:"/>
|
|
<TfrxMemoView Name="Memo4" Left="366,39394" Top="123,33859" Width="53,57483" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="Cliente:"/>
|
|
<TfrxMemoView Name="Memo11" Left="423,7483" Top="123,33859" Width="290,45671" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera."NOMBRE"]"/>
|
|
<TfrxMemoView Name="Memo3" Left="446,42548" Top="101,57483" Width="207,30705" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera."REFERENCIA"]"/>
|
|
<TfrxMemoView Name="DireccionEnvio" Left="11,5" Top="100" Width="341,18522" Height="68,94812" OnBeforePrint="DireccionEnvioOnBeforePrint" StretchMode="smActualHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
|
|
<TfrxLineView Name="Line1" Left="718,5" Top="174,73995" Width="0" Height="802,69" Frame.Typ="1"/>
|
|
<TfrxLineView Name="Line2" Left="0" Top="174,73995" Width="0" Height="802,69" Frame.Color="8421504" Frame.Typ="1"/>
|
|
<TfrxMemoView Name="Memo1" Left="366,61441" Top="147,40167" Width="83,81107" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="Cliente final:"/>
|
|
<TfrxMemoView Name="Memo6" Left="454,20501" Top="147,40167" Width="260,22047" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera."NOMBRE_COMERCIAL"]"/>
|
|
<TfrxLineView Name="Line3" Left="76,2" Top="174,73995" Width="0" Height="802,69" Frame.Color="8421504" Frame.Typ="1"/>
|
|
<TfrxLineView Name="Line5" Left="135,5" Top="174,73995" Width="0" Height="802,69" Frame.Color="8421504" Frame.Typ="1"/>
|
|
</TfrxPageHeader>
|
|
</TfrxReportPage>
|
|
</TfrxReport>
|