Se arregla la paginación de los informes cuando se imprime mas de uno, se repasa el formato del campo unidad de los informes para que no pete, y se arregla la impresion de detalles de facturas cuando elegimos varias
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@768 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
parent
390705dc2f
commit
c260d96ab0
@ -45,18 +45,6 @@
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">Base.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
@ -66,57 +54,57 @@
|
||||
<DelphiCompile Include="Base.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Cliente\adortl.dcp" />
|
||||
<DCCReference Include="..\Cliente\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Cliente\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Cliente\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\Cliente\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Cliente\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\Cliente\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="..\Cliente\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="..\Cliente\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Cliente\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\Cliente\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Cliente\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Cliente\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Cliente\designide.dcp" />
|
||||
<DCCReference Include="..\Cliente\dsnap.dcp" />
|
||||
<DCCReference Include="..\Cliente\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Cliente\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Cliente\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Cliente\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="..\Cliente\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Cliente\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Cliente\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Cliente\Jcl.dcp" />
|
||||
<DCCReference Include="..\Cliente\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Cliente\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Cliente\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Cliente\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Cliente\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Cliente\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Cliente\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Cliente\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Cliente\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Cliente\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Cliente\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Cliente\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Cliente\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Cliente\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Cliente\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Cliente\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Cliente\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Cliente\RemObjects_Indy_D11.dcp" />
|
||||
<DCCReference Include="..\Cliente\rtl.dcp" />
|
||||
<DCCReference Include="..\Cliente\TB2k_D10.dcp" />
|
||||
<DCCReference Include="..\Cliente\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Cliente\vcl.dcp" />
|
||||
<DCCReference Include="..\Cliente\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Cliente\vcldb.dcp" />
|
||||
<DCCReference Include="..\Cliente\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Cliente\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Cliente\vclx.dcp" />
|
||||
<DCCReference Include="..\Cliente\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Jcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\RemObjects_Indy_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\TB2k_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
||||
<Form>fConfigurarConexion</Form>
|
||||
|
||||
Binary file not shown.
@ -1,8 +1,8 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<TfrxReport Version="4.3" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="39756,673096412" 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="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C10000000204E616D653D2220496E666F726D652200010C10000000204E616D653D224361706974756C6F2200010C14000000204E616D653D224E756D4361706974756C6F73220000055374796C650100">
|
||||
<TfrxReport Version="4.3" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="39764,7739955787" 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="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C10000000204E616D653D2220496E666F726D652200010C10000000204E616D653D224361706974756C6F2200010C14000000204E616D653D224E756D4361706974756C6F73220000055374796C650100">
|
||||
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
||||
<TfrxReportPage Name="Page3" Font.Charset="1" Font.Color="13056" Font.Height="-13" Font.Name="Arial" Font.Style="0" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="20" RightMargin="20" TopMargin="20" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" LargeDesignHeight="True" HGuides.Text="" VGuides.Text="">
|
||||
<TfrxPageHeader Name="PageHeader2" Height="222,99227" Left="0" Top="18,89765" Width="642,5201">
|
||||
<TfrxPageHeader Name="PageHeader2" Height="222,99227" Left="0" Top="18,89765" Width="642,5201" OnBeforePrint="PageHeader1OnBeforePrint">
|
||||
<TfrxShapeView Name="Shape4" Left="282,24149666" Top="2,66666667" Width="359,05511811" Height="120,94488433" Color="13434828" Curve="2" Frame.Color="13056" Shape="skRoundRectangle"/>
|
||||
<TfrxMemoView Name="Memo19" Left="289,12863333" Top="5,98423" Width="342,2047" Height="111,49612157" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="<b>[frxDBCabecera."NOMBRE"]</b> [frxDBCabecera."CALLE"] [<frxDBCabecera."CODIGO_POSTAL">] [<frxDBCabecera."POBLACION">] [<frxDBCabecera."PROVINCIA">] A la atención de: [frxDBCabecera."PERSONA_CONTACTO"]"/>
|
||||
<TfrxShapeView Name="Shape5" Left="0" Top="120,28355" Width="279,68503937" Height="92,59842031" Color="13434828" Curve="2" Frame.Color="13056" Shape="skRoundRectangle"/>
|
||||
@ -11,7 +11,7 @@
|
||||
<TfrxMemoView Name="Memo23" Left="56,69295" Top="163,75603" Width="209,92115" Height="17,00787157" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."FECHA_ALBARAN"]"/>
|
||||
<TfrxMemoView Name="Memo24" Left="7,55906" Top="145,07885" Width="81,41713" Height="17,00787157" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="Albarán nº:"/>
|
||||
<TfrxMemoView Name="Memo25" Left="7,55906" Top="164,75603" Width="47,40136" Height="17,00787157" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="Fecha:"/>
|
||||
<TfrxMemoView Name="Memo26" Left="83,14966" Top="182,65368" Width="183,46444" Height="17,00787402" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="[<Page#>]"/>
|
||||
<TfrxMemoView Name="Memo26" Left="83,14966" Top="182,65368" Width="183,46444" Height="17,00787402" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="[<Pagina>]/[<TotalPaginas>]"/>
|
||||
<TfrxMemoView Name="Memo27" Left="7,55906" Top="182,65368" Width="73,85807" Height="17,00787402" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="Página nº:"/>
|
||||
<TfrxLineView Name="Line3" Left="0" Top="108,16543" Width="268,34663" Height="0" Frame.Color="13056" Frame.Typ="4" Frame.Width="3"/>
|
||||
<TfrxMemoView Name="Memo28" Left="83,14966" Top="7,55906" Width="183,46444" Height="20,78740157" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" ParentFont="False" Text="TECSITEL S.L."/>
|
||||
@ -30,7 +30,7 @@
|
||||
<TfrxMemoView Name="Memo34" Left="0" Top="0" Width="642,5201" Height="18,89765" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="13056" Font.Height="-15" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" HAlign="haRight" ParentFont="False" Text=""/>
|
||||
</TfrxFooter>
|
||||
<TfrxMasterData Name="MasterData1" Height="22,67718" Left="0" Top="355,27582" Width="642,5201" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
|
||||
<TfrxMemoView Name="frxDBDetallesPOSICION" Left="363,96852835" Top="0" Width="105,44880913" Height="22,67718" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" Frame.RightLine.Style="fsDot" Frame.BottomLine.Style="fsDot" GapX="5" GapY="2" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBDetalles."CANTIDAD"] [frxDBDetalles."UNIDAD_MEDIDA"]"/>
|
||||
<TfrxMemoView Name="frxDBDetallesPOSICION" Left="363,96852835" Top="0" Width="105,44880913" Height="22,67718" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" Frame.RightLine.Style="fsDot" Frame.BottomLine.Style="fsDot" GapX="5" GapY="2" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBDetalles."CANTIDAD"] [frxDBDetalles."UNIDAD_MEDIDA"]"/>
|
||||
<TfrxMemoView Name="Memo35" Left="468,79529024" Top="0" Width="77,48030276" Height="22,67718" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" Frame.RightLine.Style="fsDot" Frame.BottomLine.Style="fsDot" GapX="5" GapY="2" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBDetalles."IMPORTE_UNIDAD"]"/>
|
||||
<TfrxMemoView Name="Memo36" Left="546,03185" Top="0" Width="96,48825" Height="22,67718" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" Frame.BottomLine.Style="fsDot" GapX="5" GapY="2" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBDetalles."IMPORTE_TOTAL"]"/>
|
||||
<TfrxMemoView Name="frxDBDetallesCONCEPTO" Left="86,92919" Top="0" Width="276,66136118" Height="22,67716535" StretchMode="smActualHeight" DataField="CONCEPTO" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" Frame.RightLine.Style="fsDot" Frame.BottomLine.Style="fsDot" GapX="5" GapY="2" ParentFont="False" Text="[frxDBDetalles."CONCEPTO"]"/>
|
||||
|
||||
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
@ -1,15 +1,15 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<TfrxReport Version="4.3" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="39756,758523206" 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="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C10000000204E616D653D2220496E666F726D652200010C10000000204E616D653D224361706974756C6F2200010C14000000204E616D653D224E756D4361706974756C6F73220000055374796C650100">
|
||||
<TfrxReport Version="4.3" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="39764,7787187037" 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="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C10000000204E616D653D2220496E666F726D652200010C10000000204E616D653D224361706974756C6F2200010C14000000204E616D653D224E756D4361706974756C6F73220000055374796C650100">
|
||||
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
||||
<TfrxReportPage Name="Page3" Font.Charset="1" Font.Color="13056" Font.Height="-13" Font.Name="Arial" Font.Style="0" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="20" RightMargin="20" TopMargin="20" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" LargeDesignHeight="True" HGuides.Text="" VGuides.Text="">
|
||||
<TfrxPageHeader Name="PageHeader2" Height="222,99227" Left="0" Top="18,89765" Width="642,5201">
|
||||
<TfrxPageHeader Name="PageHeader2" Height="222,99227" Left="0" Top="18,89765" Width="642,5201" OnBeforePrint="PageHeader1OnBeforePrint">
|
||||
<TfrxMemoView Name="Memo19" Left="122,72449" Top="180,15758283" Width="442,87136667" Height="18,8976378" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBCabecera."PERSONA_CONTACTO"]"/>
|
||||
<TfrxMemoView Name="Memo21" Left="309,92146" Top="5,45671" Width="323,30705" Height="24,56693157" Color="13434828" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="32768" Font.Height="-16" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="ALBARÁN"/>
|
||||
<TfrxMemoView Name="Memo22" Left="391,18110236" Top="29,85826772" Width="241,88976378" Height="18,8976377952756" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="Memo23" Left="391,18110236" Top="48,3779527559055" Width="242,36209" Height="18,8976378" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."FECHA_ALBARAN"]"/>
|
||||
<TfrxMemoView Name="Memo24" Left="309,92146" Top="29,85826772" Width="81,41713" Height="18,8976378" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="32768" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Albarán nº:"/>
|
||||
<TfrxMemoView Name="Memo25" Left="309,92146" Top="48,37795276" Width="81,41713" Height="18,8976378" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="32768" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha:"/>
|
||||
<TfrxMemoView Name="Memo26" Left="391,18110236" Top="67,2755905511811" Width="241,88976378" Height="18,8976378" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="[<Page#>]"/>
|
||||
<TfrxMemoView Name="Memo26" Left="391,18110236" Top="67,27559055" Width="241,88976378" Height="18,8976378" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="[<Pagina>]/[<TotalPaginas>]"/>
|
||||
<TfrxMemoView Name="Memo27" Left="309,92146" Top="67,27559055" Width="81,41713" Height="18,8976378" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="32768" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Página nº:"/>
|
||||
<TfrxMemoView Name="Memo28" Left="97,14966" Top="3,77953" Width="183,46444" Height="39,68505157" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="32768" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" ParentFont="False" Text="TECSITEL MANTANIMIENTO S.L."/>
|
||||
<TfrxMemoView Name="Memo29" Left="97,14966" Top="37,7953" Width="183,46444" Height="66,14176157" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" Text="CIF: B83122168 C/ Buendía, 25. 28053 Madrid Telf: 91-507-56-92 / 63 Fax: 91-785-96-35 e-mail: tecsitel@tecsitel.com"/>
|
||||
@ -33,7 +33,7 @@
|
||||
<TfrxMemoView Name="Memo34" Left="0" Top="0" Width="642,5201" Height="18,89765" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="13056" Font.Height="-15" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" HAlign="haRight" ParentFont="False" Text=""/>
|
||||
</TfrxFooter>
|
||||
<TfrxMasterData Name="MasterData1" Height="22,67718" Left="0" Top="355,27582" Width="642,5201" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
|
||||
<TfrxMemoView Name="frxDBDetallesPOSICION" Left="363,96852835" Top="0" Width="105,44880913" Height="22,67718" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" Frame.RightLine.Style="fsDot" Frame.BottomLine.Style="fsDot" GapX="5" GapY="2" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBDetalles."CANTIDAD"] [frxDBDetalles."UNIDAD_MEDIDA"]"/>
|
||||
<TfrxMemoView Name="frxDBDetallesPOSICION" Left="363,96852835" Top="0" Width="105,44880913" Height="22,67718" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" Frame.RightLine.Style="fsDot" Frame.BottomLine.Style="fsDot" GapX="5" GapY="2" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBDetalles."CANTIDAD"] [frxDBDetalles."UNIDAD_MEDIDA"]"/>
|
||||
<TfrxMemoView Name="Memo35" Left="468,79529024" Top="0" Width="77,48030276" Height="22,67718" StretchMode="smMaxHeight" DataField="IMPORTE_UNIDAD" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" Frame.RightLine.Style="fsDot" Frame.BottomLine.Style="fsDot" GapX="5" GapY="2" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBDetalles."IMPORTE_UNIDAD"]"/>
|
||||
<TfrxMemoView Name="Memo36" Left="546,03185" Top="0" Width="96,48825" Height="22,67718" StretchMode="smMaxHeight" DataField="IMPORTE_TOTAL" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" Frame.BottomLine.Style="fsDot" GapX="5" GapY="2" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBDetalles."IMPORTE_TOTAL"]"/>
|
||||
<TfrxMemoView Name="frxDBDetallesCONCEPTO" Left="86,92919" Top="0" Width="276,66136118" Height="22,67716535" StretchMode="smActualHeight" DataField="CONCEPTO" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" Frame.RightLine.Style="fsDot" Frame.BottomLine.Style="fsDot" GapX="5" GapY="2" ParentFont="False" Text="[frxDBDetalles."CONCEPTO"]"/>
|
||||
|
||||
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
@ -1180,9 +1180,6 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
RemoteFetchEnabled = False
|
||||
LocalSchema = schReport
|
||||
LocalDataStreamer = DABINAdapter
|
||||
MasterSource = DADSCabecera
|
||||
MasterFields = 'ID'
|
||||
DetailFields = 'ID_FACTURA'
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'InformeFacturasCliente_Detalles'
|
||||
@ -1387,17 +1384,67 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
PreviewOptions.Zoom = 1.000000000000000000
|
||||
PrintOptions.Printer = 'Por defecto'
|
||||
PrintOptions.PrintOnSheet = 0
|
||||
ReportOptions.CreateDate = 37800.807714351900000000
|
||||
ReportOptions.LastChange = 39741.448087719910000000
|
||||
ReportOptions.CreateDate = 39065.872423495400000000
|
||||
ReportOptions.LastChange = 39764.729456550930000000
|
||||
ScriptLanguage = 'PascalScript'
|
||||
ScriptText.Strings = (
|
||||
'procedure frxReportOnStartReport(Sender: TfrxComponent);'
|
||||
''
|
||||
'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);'
|
||||
'var'
|
||||
' Cadena: String;'
|
||||
'begin'
|
||||
' Set('#39'Pagina'#39', 0);'
|
||||
' Set('#39'TotalPaginas'#39', 0); '
|
||||
'{ DatosEmpresa.Lines.Clear;'
|
||||
' if (<frxDBCabecera."TELEFONO_1_EMPRESA"> <> '#39#39') then'
|
||||
' Cadena := '#39'TLF: '#39' + <frxDBCabecera."TELEFONO_1_EMPRESA">;'
|
||||
' if (<frxDBCabecera."FAX_EMPRESA"> <> '#39#39') then'
|
||||
|
||||
' Cadena := Cadena + '#39' FAX: '#39' + <frxDBCabecera."FAX_EMPRESA' +
|
||||
'">;'
|
||||
' DatosEmpresa.Lines.Add(Cadena);'
|
||||
'}'
|
||||
'end;'
|
||||
''
|
||||
'procedure Band1OnBeforePrint(Sender: TfrxComponent);'
|
||||
'procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);'
|
||||
'begin'
|
||||
'{ NombreEmpresa.Lines.Clear;'
|
||||
' NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">);'
|
||||
'}'
|
||||
'end;'
|
||||
''
|
||||
'procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);'
|
||||
'var'
|
||||
' ACadena : String;'
|
||||
'begin'
|
||||
'{ ACadena := '#39#39';'
|
||||
' DireccionEnvio.Lines.Clear;'
|
||||
' if (<frxDBCabecera."REFERENCIA_CLIENTE"> <> '#39#39') then'
|
||||
' ACadena := <frxDBCabecera."REFERENCIA_CLIENTE">;'
|
||||
''
|
||||
' if (<frxDBCabecera."PERSONA_CONTACTO"> <> '#39#39') then'
|
||||
|
||||
' ACadena := ACadena + '#39' '#39' + <frxDBCabecera."PERSONA_CONTACT' +
|
||||
'O">;'
|
||||
''
|
||||
' DireccionEnvio.Lines.Add(ACadena);'
|
||||
' ACadena := '#39#39';'
|
||||
' DireccionEnvio.Lines.Add(<frxDBCabecera."CALLE">);'
|
||||
' if (<frxDBCabecera."CODIGO_POSTAL"> <> '#39#39') then'
|
||||
' ACadena := <frxDBCabecera."CODIGO_POSTAL"> + '#39' '#39';'
|
||||
' if (<frxDBCabecera."POBLACION"> <> '#39#39') then'
|
||||
' ACadena := ACadena + <frxDBCabecera."CODIGO_POSTAL">;'
|
||||
''
|
||||
' if (ACadena <> '#39#39') then'
|
||||
' DireccionEnvio.Lines.Add(ACadena);'
|
||||
''
|
||||
' if (<frxDBCabecera."PROVINCIA"> <> '#39#39') then'
|
||||
' DireccionEnvio.Lines.Add(<frxDBCabecera."PROVINCIA">);'
|
||||
''
|
||||
' if (<frxDBCabecera."TELEFONO"> <> '#39#39') then'
|
||||
' DireccionEnvio.Lines.Add(<frxDBCabecera."TELEFONO">);'
|
||||
'}'
|
||||
'end;'
|
||||
''
|
||||
'procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);'
|
||||
'begin'
|
||||
' if not Engine.FinalPass then'
|
||||
' Set('#39'TotalPaginas'#39', (<TotalPaginas> + 1));'
|
||||
@ -1406,26 +1453,56 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
' Set('#39'Pagina'#39', (<Pagina> + 1)); '
|
||||
'end;'
|
||||
''
|
||||
'procedure mContinuaOnBeforePrint(Sender: TfrxComponent);'
|
||||
'procedure frxReportOnStartReport(Sender: TfrxComponent);'
|
||||
'begin'
|
||||
' if Engine.FinalPass then'
|
||||
' begin'
|
||||
|
||||
' //A la vez que salta este salta la asignacion de pagina por ' +
|
||||
'lo que no coincide nunca si no suponemos +1 ' +
|
||||
' ' +
|
||||
' ' +
|
||||
' ' +
|
||||
' '
|
||||
' if ((<Pagina> + 1) = <TotalPaginas>) then'
|
||||
' begin '
|
||||
' mContinua.Visible := True;'
|
||||
' end '
|
||||
' else'
|
||||
' begin '
|
||||
' mContinua.Visible := False;'
|
||||
' end '
|
||||
' Set('#39'Pagina'#39', 0);'
|
||||
' Set('#39'TotalPaginas'#39', 0);'
|
||||
' Set('#39'Capitulo'#39', 0);'
|
||||
' Set('#39'NumCapitulos'#39', 0); '
|
||||
'end;'
|
||||
''
|
||||
'procedure Memo4OnBeforePrint(Sender: TfrxComponent);'
|
||||
'begin'
|
||||
' if (Length(<frxDBCabecera."OBSERVACIONES">) = 0) then'
|
||||
' Memo4.Visible := False; '
|
||||
'end;'
|
||||
''
|
||||
'procedure Memo22OnBeforePrint(Sender: TfrxComponent);'
|
||||
'begin'
|
||||
' if (<frxDBCabecera."DESCUENTO"> = 0) then'
|
||||
' begin '
|
||||
' Memo22.Text := '#39'Base imponible:'#39';'
|
||||
''
|
||||
' Memo10.Text := '#39'Importe total:'#39';'
|
||||
' Memo10.Font.Style := fsBold; '
|
||||
''
|
||||
|
||||
' Memo9.Text := FormatFloat('#39'#,##0.00 '#8364#39', <frxDBCabecera."IMP' +
|
||||
'ORTE_TOTAL">);'
|
||||
' Memo9.Font.Style := fsBold; '
|
||||
' '
|
||||
' Memo23.Text := '#39'[<frxDBCabecera."IVA">]% IVA:'#39';'
|
||||
' Memo25.Text := '#39'[frxDBCabecera."IMPORTE_IVA"]'#39';'
|
||||
' Memo12.Visible := False;'
|
||||
' Memo14.Visible := False;'
|
||||
' Memo16.Visible := False; '
|
||||
''
|
||||
' Memo13.Visible := False;'
|
||||
' Memo15.Visible := False;'
|
||||
' Memo17.Visible := False;'
|
||||
' Memo11.Color := $00CCFFCC;'
|
||||
' end; '
|
||||
'end;'
|
||||
''
|
||||
'procedure Memo39OnBeforePrint(Sender: TfrxComponent);'
|
||||
'begin'
|
||||
' Memo39.Clear; '
|
||||
' if (<frxDBCabecera."TIPO"> = '#39'F'#39') then'
|
||||
|
||||
' Memo39.Text := '#39'FACTURA'#39' ' +
|
||||
' '
|
||||
' else'
|
||||
' Memo39.Text := '#39'ABONO'#39'; '
|
||||
'end;'
|
||||
''
|
||||
'begin'
|
||||
@ -1478,9 +1555,6 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
RemoteFetchEnabled = False
|
||||
LocalSchema = schReport
|
||||
LocalDataStreamer = DABINAdapter
|
||||
MasterSource = DADSCabecera
|
||||
MasterFields = 'ID'
|
||||
DetailFields = 'ID_FACTURA'
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'InformeFacturasCliente_Vencimientos'
|
||||
|
||||
@ -1,4 +1,4 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
|
||||
|
||||
Loading…
Reference in New Issue
Block a user