git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@446 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
parent
cf8a6cb6ac
commit
e70343188a
@ -51,6 +51,13 @@
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
|
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
|
||||||
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
|
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
|
||||||
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
|
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
|
||||||
@ -65,52 +72,52 @@
|
|||||||
<DelphiCompile Include="Base.dpk">
|
<DelphiCompile Include="Base.dpk">
|
||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\adortl.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\cxIntl6D11.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\cxIntlPrintSys3D11.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\cxLibraryD11.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\DataAbstract_Core_D11.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\dbrtl.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\dclIndyCore.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\designide.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\dsnap.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\dxGDIPlusD11.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\dxNavBarD11.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\dxThemeD11.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\GUISDK_D11R.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\IndyCore.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\IndyProtocols.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\IndySystem.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\Jcl.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JclVcl.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JSDialog100.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JvCmpD11R.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JvCoreD11R.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JvCtrlsD11R.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JvDlgsD11R.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JvMMD11R.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JvNetD11R.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JvPageCompsD11R.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JvStdCtrlsD11R.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JvSystemD11R.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\pckMD5.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\pckUCDataConnector.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\pckUserControl_RT.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\PluginSDK_D11R.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\PngComponentsD10.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\PNG_D10.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\RemObjects_Core_D11.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\rtl.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\TB2k_D10.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\tbx_d10.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\vcl.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\vclactnband.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\vcldb.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\vcljpg.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\VclSmp.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\vclx.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\xmlrtl.dcp" />
|
|
||||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntl6D11.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D11.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\dxNavBarD11.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D11R.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
|
||||||
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
||||||
<Form>fConfigurarConexion</Form>
|
<Form>fConfigurarConexion</Form>
|
||||||
<DesignClass>TForm</DesignClass>
|
<DesignClass>TForm</DesignClass>
|
||||||
|
|||||||
Binary file not shown.
@ -24,7 +24,8 @@ unit uSistemaFunc;
|
|||||||
|
|
||||||
interface
|
interface
|
||||||
|
|
||||||
uses SysUtils, Classes;
|
uses
|
||||||
|
SysUtils, Classes, Graphics;
|
||||||
|
|
||||||
{ Funciones del sistema }
|
{ Funciones del sistema }
|
||||||
function Ejecutar (const LineaComando: String; Oculto, Esperar: Boolean) : Boolean;
|
function Ejecutar (const LineaComando: String; Oculto, Esperar: Boolean) : Boolean;
|
||||||
@ -52,12 +53,16 @@ function FindFile(const filespec: TFileName; attributes: integer = faReadOnly Or
|
|||||||
|
|
||||||
function DarRutaFichero(const ARutaIni: String; const AFichero: String; const ADirectorio1: String = ''; const ADirectorio2: String = ''): Variant;
|
function DarRutaFichero(const ARutaIni: String; const AFichero: String; const ADirectorio1: String = ''; const ADirectorio2: String = ''): Variant;
|
||||||
|
|
||||||
|
{ Fuentes }
|
||||||
|
procedure SetDefaultFonts(const AFont: TFont);
|
||||||
|
procedure SetDesktopIconFonts(const AFont: TFont);
|
||||||
|
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
uses
|
uses
|
||||||
Windows, Variants, Dialogs, JclFileUtils,
|
Windows, Variants, Dialogs, JclFileUtils,
|
||||||
Messages, Graphics, Controls, Forms,
|
Messages, Controls, Forms,
|
||||||
StdCtrls, SHFolder, cxShellBrowserDialog,
|
StdCtrls, SHFolder, cxShellBrowserDialog,
|
||||||
cxLookAndFeels, uStringsUtils;
|
cxLookAndFeels, uStringsUtils;
|
||||||
|
|
||||||
@ -460,4 +465,24 @@ begin
|
|||||||
end
|
end
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure SetDefaultFonts(const AFont: TFont);
|
||||||
|
begin
|
||||||
|
AFont.Handle := GetStockObject(DEFAULT_GUI_FONT);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure SetDesktopIconFonts(const AFont: TFont);
|
||||||
|
var
|
||||||
|
LogFont: TLogFont;
|
||||||
|
begin
|
||||||
|
if SystemParametersInfo(SPI_GETICONTITLELOGFONT, SizeOf(LogFont),
|
||||||
|
@LogFont, 0) then
|
||||||
|
AFont.Handle := CreateFontIndirect(LogFont)
|
||||||
|
else
|
||||||
|
SetDefaultFonts(AFont);
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
@ -58,38 +58,38 @@
|
|||||||
<DelphiCompile Include="GUIBase.dpk">
|
<DelphiCompile Include="GUIBase.dpk">
|
||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\Base.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\ccpackD11.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\cxDataD11.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\cxEditorsD11.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\cxExportD11.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\cxLibraryD11.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\cxTreeListD11.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\cxTreeListD11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\dbrtl.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\dxBarD11.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarD11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\dxBarExtItemsD11.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarExtItemsD11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\dxGDIPlusD11.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\dxLayoutControlD11.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\dxPScxCommonD11.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\dxPScxGrid6LnkD11.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\dxPsPrVwAdvD11.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\dxPsPrVwAdvD11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\dxThemeD11.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\frx11.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\frxe11.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\fs11.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\JvAppFrmD11R.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\JvCtrlsD11R.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\JvGlobusD11R.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\PngComponentsD10.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\PNG_D10.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\rtl.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\tb2k_d10.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d10.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\tbx_d10.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\vcl.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\vclactnband.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\vcldb.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\vcljpg.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\vclx.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
|
||||||
<DCCReference Include="uDialogBase.pas">
|
<DCCReference Include="uDialogBase.pas">
|
||||||
<Form>fDialogBase</Form>
|
<Form>fDialogBase</Form>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
|
|||||||
Binary file not shown.
@ -192,7 +192,7 @@ implementation
|
|||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
|
||||||
uses
|
uses
|
||||||
uCalculosUtils;
|
uCalculosUtils, uSistemaFunc;
|
||||||
|
|
||||||
function EnumFontsProc(var LogFont: TLogFont; var TextMetric: TTextMetric;
|
function EnumFontsProc(var LogFont: TLogFont; var TextMetric: TTextMetric;
|
||||||
FontType: Integer; Data: Pointer): Integer; stdcall;
|
FontType: Integer; Data: Pointer): Integer; stdcall;
|
||||||
@ -466,8 +466,9 @@ begin
|
|||||||
|
|
||||||
if ATipo = TIPO_DETALLE_CONCEPTO then
|
if ATipo = TIPO_DETALLE_CONCEPTO then
|
||||||
begin
|
begin
|
||||||
Result.Name := 'Lucida Console';
|
//SetDesktopIconFonts(Result);
|
||||||
Result.Size := 13;
|
Result.Name := 'DejaVu Sans Mono';
|
||||||
|
Result.Size := 9;
|
||||||
Result.Style := [];
|
Result.Style := [];
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|||||||
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
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
@ -246,8 +246,6 @@ object RptFacturasCliente: TRptFacturasCliente
|
|||||||
RemoteFetchEnabled = False
|
RemoteFetchEnabled = False
|
||||||
LocalSchema = schReport
|
LocalSchema = schReport
|
||||||
LocalDataStreamer = Bin2DataStreamer
|
LocalDataStreamer = Bin2DataStreamer
|
||||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
|
||||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
|
||||||
LogicalName = 'InformeFacturasCliente'
|
LogicalName = 'InformeFacturasCliente'
|
||||||
IndexDefs = <>
|
IndexDefs = <>
|
||||||
Left = 264
|
Left = 264
|
||||||
@ -321,8 +319,6 @@ object RptFacturasCliente: TRptFacturasCliente
|
|||||||
RemoteFetchEnabled = False
|
RemoteFetchEnabled = False
|
||||||
LocalSchema = schReport
|
LocalSchema = schReport
|
||||||
LocalDataStreamer = Bin2DataStreamer
|
LocalDataStreamer = Bin2DataStreamer
|
||||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
|
||||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
|
||||||
LogicalName = 'InformeFacturasCliente_Detalles'
|
LogicalName = 'InformeFacturasCliente_Detalles'
|
||||||
IndexDefs = <>
|
IndexDefs = <>
|
||||||
Left = 344
|
Left = 344
|
||||||
@ -1054,10 +1050,11 @@ object RptFacturasCliente: TRptFacturasCliente
|
|||||||
Connection = 'IBX'
|
Connection = 'IBX'
|
||||||
TargetTable = 'FACTURAS_CLIENTE_DETALLES'
|
TargetTable = 'FACTURAS_CLIENTE_DETALLES'
|
||||||
SQL =
|
SQL =
|
||||||
'SELECT'#10' ID, ID_FACTURA, POSICION, TIPO_DETALLE, CONCEPTO, CAN' +
|
'SELECT'#10' ID, ID_FACTURA, POSICION, TIPO_DETALLE, F_RTFTOTEXT(C' +
|
||||||
'TIDAD,'#10' IMPORTE_UNIDAD, DESCUENTO, IMPORTE_TOTAL, VISIBLE'#10'FRO' +
|
'ONCEPTO) AS CONCEPTO,'#10' CONCEPTO AS CONCEPTO_RTF, CANTIDAD,'#10' ' +
|
||||||
'M FACTURAS_CLIENTE_DETALLES'#10'WHERE ID_FACTURA = :ID_FACTURA'#10'ORDER' +
|
' IMPORTE_UNIDAD, DESCUENTO, IMPORTE_TOTAL, VISIBLE'#10'FROM FACTURA' +
|
||||||
' BY POSICION;'
|
'S_CLIENTE_DETALLES'#10'WHERE ID_FACTURA = :ID_FACTURA'#10'ORDER BY POSIC' +
|
||||||
|
'ION;'#10
|
||||||
StatementType = stSQL
|
StatementType = stSQL
|
||||||
ColumnMappings = <
|
ColumnMappings = <
|
||||||
item
|
item
|
||||||
@ -1099,6 +1096,11 @@ object RptFacturasCliente: TRptFacturasCliente
|
|||||||
item
|
item
|
||||||
DatasetField = 'DESCUENTO'
|
DatasetField = 'DESCUENTO'
|
||||||
TableField = 'DESCUENTO'
|
TableField = 'DESCUENTO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'CONCEPTO_RTF'
|
||||||
|
TableField = 'CONCEPTO'
|
||||||
|
SQLOrigin = 'CONCEPTO_RTF'
|
||||||
end>
|
end>
|
||||||
end>
|
end>
|
||||||
Name = 'InformeFacturasCliente_Detalles'
|
Name = 'InformeFacturasCliente_Detalles'
|
||||||
@ -1125,6 +1127,11 @@ object RptFacturasCliente: TRptFacturasCliente
|
|||||||
Size = 10
|
Size = 10
|
||||||
DictionaryEntry = 'FacturasCliente_Detalles_TIPO_DETALLE'
|
DictionaryEntry = 'FacturasCliente_Detalles_TIPO_DETALLE'
|
||||||
end
|
end
|
||||||
|
item
|
||||||
|
Name = 'CONCEPTO_RTF'
|
||||||
|
DataType = datString
|
||||||
|
BlobType = dabtMemo
|
||||||
|
end
|
||||||
item
|
item
|
||||||
Name = 'CONCEPTO'
|
Name = 'CONCEPTO'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
@ -1399,26 +1406,259 @@ object RptFacturasCliente: TRptFacturasCliente
|
|||||||
EngineOptions.DoublePass = True
|
EngineOptions.DoublePass = True
|
||||||
IniFile = '\Software\Fast Reports'
|
IniFile = '\Software\Fast Reports'
|
||||||
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
|
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
|
||||||
|
PreviewOptions.OutlineWidth = 180
|
||||||
PreviewOptions.Zoom = 1.000000000000000000
|
PreviewOptions.Zoom = 1.000000000000000000
|
||||||
PrintOptions.Printer = 'Por defecto'
|
PrintOptions.Printer = 'Default'
|
||||||
PrintOptions.PrintOnSheet = 0
|
PrintOptions.PrintOnSheet = 0
|
||||||
ReportOptions.CreateDate = 37800.807714351900000000
|
ReportOptions.CreateDate = 37871.995398692100000000
|
||||||
ReportOptions.LastChange = 39882.453172557870000000
|
ReportOptions.LastChange = 40094.542152187500000000
|
||||||
|
ReportOptions.VersionBuild = '1'
|
||||||
|
ReportOptions.VersionMajor = '12'
|
||||||
|
ReportOptions.VersionMinor = '13'
|
||||||
|
ReportOptions.VersionRelease = '1'
|
||||||
ScriptLanguage = 'PascalScript'
|
ScriptLanguage = 'PascalScript'
|
||||||
ScriptText.Strings = (
|
ScriptText.Strings = (
|
||||||
'procedure mContinuaOnBeforePrint(Sender: TfrxComponent);'
|
'procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);'
|
||||||
'begin'
|
'begin'
|
||||||
' if Engine.FinalPass then'
|
' DatosCliente.Lines.Clear;'
|
||||||
|
' DatosCliente.Lines.Add(<frxDBCabecera."CALLE">);'
|
||||||
|
''
|
||||||
|
' if (<frxDBCabecera."CODIGO_POSTAL"> <> '#39#39')'
|
||||||
|
' or (<frxDBCabecera."POBLACION"> <> '#39#39') then'
|
||||||
|
|
||||||
|
' DatosCliente.Lines.Add(<frxDBCabecera."CODIGO_POSTAL"> + '#39' ' +
|
||||||
|
' '#39' + <frxDBCabecera."POBLACION">);'
|
||||||
|
''
|
||||||
|
' if (<frxDBCabecera."PROVINCIA"> <> '#39#39') then'
|
||||||
|
' DatosCliente.Lines.Add(<frxDBCabecera."PROVINCIA">);'
|
||||||
|
'end;'
|
||||||
|
''
|
||||||
|
'procedure BandaDetallesOnBeforePrint(Sender: TfrxComponent);'
|
||||||
|
'begin'
|
||||||
|
'{ '
|
||||||
|
' BandaDetalles.StartNewPage := False;'
|
||||||
|
' BandaDetalles.Visible := True;'
|
||||||
|
' MemPrecio.Style := '#39'Concepto normal'#39';'
|
||||||
|
' MemCantidad.Style := '#39'Concepto normal'#39';'
|
||||||
|
' MemImpTotal.Style := '#39'Concepto normal'#39';'
|
||||||
|
' RichConcepto.Visible := True;'
|
||||||
|
''
|
||||||
|
' case <frxDBDetalles."TIPO_DETALLE"> of'
|
||||||
|
' '#39'Salto'#39': begin'
|
||||||
|
' BandaDetalles.StartNewPage := True;'
|
||||||
|
' RichConcepto.Visible := False;'
|
||||||
|
' end;'
|
||||||
|
' '#39'Titulo'#39': begin'
|
||||||
|
' MemPrecio.Style := '#39'Concepto titulo'#39';'
|
||||||
|
' MemCantidad.Style := '#39'Concepto titulo'#39';'
|
||||||
|
' MemImpTotal.Style := '#39'Concepto titulo'#39';'
|
||||||
|
' end;'
|
||||||
|
' '#39'Concepto'#39': begin'
|
||||||
|
' MemPrecio.Style := '#39'Concepto normal'#39';'
|
||||||
|
' MemCantidad.Style := '#39'Concepto normal'#39';'
|
||||||
|
' MemImpTotal.Style := '#39'Concepto normal'#39';'
|
||||||
|
' end;'
|
||||||
|
' '#39'Subtotal'#39': begin'
|
||||||
|
' MemPrecio.Style := '#39'Concepto subtotal'#39';'
|
||||||
|
' MemCantidad.Style := '#39'Concepto subtotal'#39';'
|
||||||
|
' MemImpTotal.Style := '#39'Concepto subtotal'#39';'
|
||||||
|
' end;'
|
||||||
|
' '#39'Descuento'#39': 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 - ' +
|
||||||
|
'Band3.Height - 1'
|
||||||
|
'end;} '
|
||||||
|
''
|
||||||
|
'procedure Memo15OnBeforePrint(Sender: TfrxComponent);'
|
||||||
|
'begin'
|
||||||
|
' Memo15.Lines.Clear;'
|
||||||
|
' if (StrToFloat(<frxDBCabecera."BASE_IMPONIBLE">) < 0) then'
|
||||||
|
' Memo15.Lines.Add('#39'ABONO'#39')'
|
||||||
|
' else'
|
||||||
|
' Memo15.Lines.Add('#39'FACTURA'#39')'
|
||||||
|
'end;'
|
||||||
|
''
|
||||||
|
'procedure Band2OnBeforePrint(Sender: TfrxComponent);'
|
||||||
|
'begin'
|
||||||
|
' if not Engine.FinalPass then'
|
||||||
|
' Set('#39'TotalPaginas'#39', (<TotalPaginas> + 1));'
|
||||||
|
''
|
||||||
|
' if Engine.FinalPass then'
|
||||||
|
' Set('#39'Pagina'#39', (<Pagina> + 1));'
|
||||||
|
''
|
||||||
|
'{ if Engine.FinalPass and (<TotalPaginas> = <Pagina>) then'
|
||||||
|
' begin '
|
||||||
|
' LineaCorta1.visible := False; '
|
||||||
|
' LineaLarga1.visible := True; '
|
||||||
|
' LineaCorta2.visible := False; '
|
||||||
|
' LineaLarga2.visible := True; '
|
||||||
|
' end'
|
||||||
|
' else'
|
||||||
' begin'
|
' begin'
|
||||||
' if (<Page#> = <TotalPages#>) then'
|
' LineaCorta1.visible := True; '
|
||||||
' begin '
|
' LineaLarga1.visible := False;'
|
||||||
' mContinua.Visible := False;'
|
' LineaCorta2.visible := True; '
|
||||||
' end '
|
' LineaLarga2.visible := False;'
|
||||||
' else'
|
' end;'
|
||||||
' begin '
|
'} '
|
||||||
' mContinua.Visible := True;'
|
'end;'
|
||||||
' end '
|
''
|
||||||
' end; '
|
'procedure frxReportOnStartReport(Sender: TfrxComponent);'
|
||||||
|
'begin'
|
||||||
|
' Set('#39'Pagina'#39', 0);'
|
||||||
|
' Set('#39'TotalPaginas'#39', 0);'
|
||||||
|
'end;'
|
||||||
|
''
|
||||||
|
'procedure Memo26OnBeforePrint(Sender: TfrxComponent);'
|
||||||
|
'begin '
|
||||||
|
' if (<frxDBCabecera."DESCUENTO"> > 0) then'
|
||||||
|
' begin'
|
||||||
|
' eDescuento.visible := True;'
|
||||||
|
' Descuento.visible := True; '
|
||||||
|
' end'
|
||||||
|
' else'
|
||||||
|
' begin'
|
||||||
|
' eDescuento.visible := False; '
|
||||||
|
' Descuento.visible := False; '
|
||||||
|
' end; '
|
||||||
|
'end;'
|
||||||
|
''
|
||||||
|
''
|
||||||
|
|
||||||
|
'procedure ReportSummary1OnAfterCalcHeight(Sender: TfrxComponent)' +
|
||||||
|
';'
|
||||||
|
'begin'
|
||||||
|
|
||||||
|
'//Es peor el remedio que la enfermedad, en el caso de sobre pasa' +
|
||||||
|
'r en uno el numero de conceptos para que no quepa el reportsumar' +
|
||||||
|
'y,'
|
||||||
|
|
||||||
|
'//no hay forma de ponerlo al final en la p'#225'gina siguiente hasta ' +
|
||||||
|
'que el numero de conceptos rellene al menos un concepto de la si' +
|
||||||
|
'guiente hoja. ' +
|
||||||
|
' ' +
|
||||||
|
' ' +
|
||||||
|
' ' +
|
||||||
|
' ' +
|
||||||
|
' '
|
||||||
|
'// if Engine.FreeSpace > ReportSummary1.Height then '
|
||||||
|
|
||||||
|
'// Engine.CurY := Engine.PageHeight - ReportSummary1.Height ' +
|
||||||
|
'- Band3.Height - 1'
|
||||||
|
'end;'
|
||||||
|
''
|
||||||
|
'procedure Shape4OnBeforePrint(Sender: TfrxComponent);'
|
||||||
|
'begin'
|
||||||
|
' if Engine.FinalPass and (<TotalPaginas> = <Pagina>) then '
|
||||||
|
' begin'
|
||||||
|
' Band3.Height := 192;'
|
||||||
|
''
|
||||||
|
' if (<frxDBCabecera."DESCUENTO"> = 0) then'
|
||||||
|
' begin'
|
||||||
|
|
||||||
|
' eBaseimponible.Top := eBaseimponible.Top - (eImporteneto.' +
|
||||||
|
'Height + eDescuento.Height);'
|
||||||
|
|
||||||
|
' Baseimponible.Top := Baseimponible.Top - (eImporteneto.He' +
|
||||||
|
'ight + eDescuento.Height);'
|
||||||
|
|
||||||
|
' eIva.Top := eIva.Top - (eImporteneto.Height + eDescuento.' +
|
||||||
|
'Height);'
|
||||||
|
|
||||||
|
' Iva.Top := Iva.Top - (eImporteneto.Height + eDescuento.He' +
|
||||||
|
'ight);'
|
||||||
|
|
||||||
|
' eRe.Top := eRe.Top - (eImporteneto.Height + eDescuento.He' +
|
||||||
|
'ight);'
|
||||||
|
|
||||||
|
' Re.Top := Re.Top - (eImporteneto.Height + eDescuento.Heig' +
|
||||||
|
'ht);'
|
||||||
|
|
||||||
|
' lImportetotal.Top := lImportetotal.Top - (eImporteneto.He' +
|
||||||
|
'ight + eDescuento.Height); '
|
||||||
|
|
||||||
|
' eImportetotal.Top := eImportetotal.Top - (eImporteneto.He' +
|
||||||
|
'ight + eDescuento.Height);'
|
||||||
|
|
||||||
|
' Importetotal.Top := Importetotal.Top - (eImporteneto.Heig' +
|
||||||
|
'ht + eDescuento.Height);'
|
||||||
|
|
||||||
|
' Shape4.Height := Shape4.Height - (eImporteneto.Height + e' +
|
||||||
|
'Descuento.Height); '
|
||||||
|
' end'
|
||||||
|
' else'
|
||||||
|
' begin'
|
||||||
|
' eImporteneto.Visible := True;'
|
||||||
|
' Importeneto.Visible := True;'
|
||||||
|
' eDescuento.Visible := True;'
|
||||||
|
' Descuento.Visible := True; '
|
||||||
|
' end;'
|
||||||
|
' '
|
||||||
|
' if (<frxDBCabecera."RE"> = 0) then'
|
||||||
|
' begin'
|
||||||
|
|
||||||
|
' lImporteTotal.Top := lImporteTotal.Top - eRe.Height; ' +
|
||||||
|
' '
|
||||||
|
|
||||||
|
' eImportetotal.Top := eImportetotal.Top - eRe.Height; ' +
|
||||||
|
' '
|
||||||
|
' Importetotal.Top := Importetotal.Top - eRe.Height;'
|
||||||
|
|
||||||
|
' Shape4.Height := Shape4.Height - eRe.Height; ' +
|
||||||
|
' '
|
||||||
|
' end'
|
||||||
|
' else'
|
||||||
|
' begin'
|
||||||
|
' eRe.Visible := True;'
|
||||||
|
' Re.Visible := True; '
|
||||||
|
' end; '
|
||||||
|
' '
|
||||||
|
' if (<frxDBCabecera."IVA"> = 0) then'
|
||||||
|
' begin'
|
||||||
|
|
||||||
|
' lImporteTotal.Top := lImporteTotal.Top - eIva.Height; ' +
|
||||||
|
' '
|
||||||
|
|
||||||
|
' eImportetotal.Top := eImportetotal.Top - eIva.Height; ' +
|
||||||
|
' '
|
||||||
|
' Importetotal.Top := Importetotal.Top - eIva.Height;'
|
||||||
|
|
||||||
|
' Shape4.Height := Shape4.Height - eIva.Height; ' +
|
||||||
|
' '
|
||||||
|
' end'
|
||||||
|
' else'
|
||||||
|
' begin'
|
||||||
|
' eIva.Visible := True;'
|
||||||
|
' Iva.Visible := True; '
|
||||||
|
' end; '
|
||||||
|
' '
|
||||||
|
' eBaseimponible.Visible := True;'
|
||||||
|
' Baseimponible.Visible := True; '
|
||||||
|
' lImporteTotal.Visible := True;'
|
||||||
|
' eImportetotal.Visible := True; '
|
||||||
|
' Importetotal.Visible := True;'
|
||||||
|
''
|
||||||
|
' Shape4.Visible := True; '
|
||||||
|
' end'
|
||||||
|
' else'
|
||||||
|
' begin'
|
||||||
|
|
||||||
|
' Band3.Height := 100; ' +
|
||||||
|
' '
|
||||||
|
' end '
|
||||||
'end;'
|
'end;'
|
||||||
''
|
''
|
||||||
'begin'
|
'begin'
|
||||||
@ -1473,8 +1713,6 @@ object RptFacturasCliente: TRptFacturasCliente
|
|||||||
RemoteFetchEnabled = False
|
RemoteFetchEnabled = False
|
||||||
LocalSchema = schReport
|
LocalSchema = schReport
|
||||||
LocalDataStreamer = Bin2DataStreamer
|
LocalDataStreamer = Bin2DataStreamer
|
||||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
|
||||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
|
||||||
LogicalName = 'InformeFacturasCliente_Vencimientos'
|
LogicalName = 'InformeFacturasCliente_Vencimientos'
|
||||||
IndexDefs = <>
|
IndexDefs = <>
|
||||||
Left = 456
|
Left = 456
|
||||||
@ -1553,8 +1791,6 @@ object RptFacturasCliente: TRptFacturasCliente
|
|||||||
RemoteFetchEnabled = False
|
RemoteFetchEnabled = False
|
||||||
LocalSchema = schReport
|
LocalSchema = schReport
|
||||||
LocalDataStreamer = Bin2DataStreamer
|
LocalDataStreamer = Bin2DataStreamer
|
||||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
|
||||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
|
||||||
LogicalName = 'ListadoFacturas'
|
LogicalName = 'ListadoFacturas'
|
||||||
IndexDefs = <>
|
IndexDefs = <>
|
||||||
Left = 576
|
Left = 576
|
||||||
@ -1581,8 +1817,6 @@ object RptFacturasCliente: TRptFacturasCliente
|
|||||||
LogChanges = False
|
LogChanges = False
|
||||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||||
RemoteFetchEnabled = False
|
RemoteFetchEnabled = False
|
||||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
|
||||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
|
||||||
IndexDefs = <>
|
IndexDefs = <>
|
||||||
Left = 584
|
Left = 584
|
||||||
Top = 304
|
Top = 304
|
||||||
|
|||||||
Binary file not shown.
Loading…
Reference in New Issue
Block a user