Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@446 f4e31baf-9722-1c47-927c-6f952f962d4b

Browse Source
This commit is contained in:
David Arranz 2009-10-08 16:40:23 +00:00
parent cf8a6cb6ac
commit e70343188a
14 changed files with 470 additions and 384 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

97
Source/Base/Base.dproj
View File

@ -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\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@ -65,52 +72,52 @@
<DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource>
</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="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">
<Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass>

BIN
Source/Base/Base.res
View File

Binary file not shown.

29
Source/Base/Utiles/uSistemaFunc.pas
View File

@ -24,7 +24,8 @@ unit uSistemaFunc;
interface
uses SysUtils, Classes;
uses
SysUtils, Classes, Graphics;
{ Funciones del sistema }
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;
{ Fuentes }
procedure SetDefaultFonts(const AFont: TFont);
procedure SetDesktopIconFonts(const AFont: TFont);
implementation
uses
Windows, Variants, Dialogs, JclFileUtils,
Messages, Graphics, Controls, Forms,
Messages, Controls, Forms,
StdCtrls, SHFolder, cxShellBrowserDialog,
cxLookAndFeels, uStringsUtils;
@ -460,4 +465,24 @@ begin
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.

64
Source/GUIBase/GUIBase.dproj
View File

@ -58,38 +58,38 @@
<DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\Base.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\ccpackD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\cxTreeListD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\dxBarD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\dxBarExtItemsD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\frx11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\frxe11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\fs11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\JvGlobusD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\rtl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\tb2k_d10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\vcl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\vcldb.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxTreeListD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarExtItemsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.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\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\vclx.dcp" />
<DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form>
</DCCReference>

BIN
Source/GUIBase/GUIBase.res
View File

Binary file not shown.

7
Source/GUIBase/uViewDetallesBase.pas
View File

@ -192,7 +192,7 @@ implementation
{$R *.dfm}
uses
uCalculosUtils;
uCalculosUtils, uSistemaFunc;
function EnumFontsProc(var LogFont: TLogFont; var TextMetric: TTextMetric;
FontType: Integer; Data: Pointer): Integer; stdcall;
@ -466,8 +466,9 @@ begin
if ATipo = TIPO_DETALLE_CONCEPTO then
begin
Result.Name := 'Lucida Console';
Result.Size := 13;
//SetDesktopIconFonts(Result);
Result.Name := 'DejaVu Sans Mono';
Result.Size := 9;
Result.Style := [];
end;

38
Source/Informes/1/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

102
Source/Informes/2/InfContratoCliente.fr3
View File

File diff suppressed because one or more lines are too long

36
Source/Informes/2/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

79
Source/Informes/2/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

56
Source/Informes/1/InfContratoCliente.fr3 → Source/Informes/InfContratoCliente.fr3
View File

File diff suppressed because one or more lines are too long

56
Source/Informes/1/InfPresupuestoCliente.fr3 → Source/Informes/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

290
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
View File

@ -246,8 +246,6 @@ object RptFacturasCliente: TRptFacturasCliente
RemoteFetchEnabled = False
LocalSchema = schReport
LocalDataStreamer = Bin2DataStreamer
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'InformeFacturasCliente'
IndexDefs = <>
Left = 264
@ -321,8 +319,6 @@ object RptFacturasCliente: TRptFacturasCliente
RemoteFetchEnabled = False
LocalSchema = schReport
LocalDataStreamer = Bin2DataStreamer
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'InformeFacturasCliente_Detalles'
IndexDefs = <>
Left = 344
@ -1054,10 +1050,11 @@ object RptFacturasCliente: TRptFacturasCliente
Connection = 'IBX'
TargetTable = 'FACTURAS_CLIENTE_DETALLES'
SQL =
'SELECT'#10' ID, ID_FACTURA, POSICION, TIPO_DETALLE, CONCEPTO, CAN' +
'TIDAD,'#10' IMPORTE_UNIDAD, DESCUENTO, IMPORTE_TOTAL, VISIBLE'#10'FRO' +
'M FACTURAS_CLIENTE_DETALLES'#10'WHERE ID_FACTURA = :ID_FACTURA'#10'ORDER' +
' BY POSICION;'
'SELECT'#10' ID, ID_FACTURA, POSICION, TIPO_DETALLE, F_RTFTOTEXT(C' +
'ONCEPTO) AS CONCEPTO,'#10' CONCEPTO AS CONCEPTO_RTF, CANTIDAD,'#10' ' +
' IMPORTE_UNIDAD, DESCUENTO, IMPORTE_TOTAL, VISIBLE'#10'FROM FACTURA' +
'S_CLIENTE_DETALLES'#10'WHERE ID_FACTURA = :ID_FACTURA'#10'ORDER BY POSIC' +
'ION;'#10
StatementType = stSQL
ColumnMappings = <
item
@ -1099,6 +1096,11 @@ object RptFacturasCliente: TRptFacturasCliente
item
DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO'
end
item
DatasetField = 'CONCEPTO_RTF'
TableField = 'CONCEPTO'
SQLOrigin = 'CONCEPTO_RTF'
end>
end>
Name = 'InformeFacturasCliente_Detalles'
@ -1125,6 +1127,11 @@ object RptFacturasCliente: TRptFacturasCliente
Size = 10
DictionaryEntry = 'FacturasCliente_Detalles_TIPO_DETALLE'
end
item
Name = 'CONCEPTO_RTF'
DataType = datString
BlobType = dabtMemo
end
item
Name = 'CONCEPTO'
DataType = datString
@ -1399,26 +1406,259 @@ object RptFacturasCliente: TRptFacturasCliente
EngineOptions.DoublePass = True
IniFile = '\Software\Fast Reports'
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
PreviewOptions.OutlineWidth = 180
PreviewOptions.Zoom = 1.000000000000000000
PrintOptions.Printer = 'Por defecto'
PrintOptions.Printer = 'Default'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 37800.807714351900000000
ReportOptions.LastChange = 39882.453172557870000000
ReportOptions.CreateDate = 37871.995398692100000000
ReportOptions.LastChange = 40094.542152187500000000
ReportOptions.VersionBuild = '1'
ReportOptions.VersionMajor = '12'
ReportOptions.VersionMinor = '13'
ReportOptions.VersionRelease = '1'
ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
'procedure mContinuaOnBeforePrint(Sender: TfrxComponent);'
'procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);'
'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'
' if (<Page#> = <TotalPages#>) then'
' begin '
' mContinua.Visible := False;'
' end '
' else'
' begin '
' mContinua.Visible := True;'
' end '
' end; '
' LineaCorta1.visible := True; '
' LineaLarga1.visible := False;'
' LineaCorta2.visible := True; '
' LineaLarga2.visible := False;'
' 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;'
''
'begin'
@ -1473,8 +1713,6 @@ object RptFacturasCliente: TRptFacturasCliente
RemoteFetchEnabled = False
LocalSchema = schReport
LocalDataStreamer = Bin2DataStreamer
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'InformeFacturasCliente_Vencimientos'
IndexDefs = <>
Left = 456
@ -1553,8 +1791,6 @@ object RptFacturasCliente: TRptFacturasCliente
RemoteFetchEnabled = False
LocalSchema = schReport
LocalDataStreamer = Bin2DataStreamer
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'ListadoFacturas'
IndexDefs = <>
Left = 576
@ -1581,8 +1817,6 @@ object RptFacturasCliente: TRptFacturasCliente
LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
IndexDefs = <>
Left = 584
Top = 304

BIN
Source/Modulos/Relaciones/Contratos de cliente - Facturas de cliente/ConCli_FacCli_relation.dcu
View File

Binary file not shown.