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

Subida con informes a medias

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@167 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2008-03-06 16:43:40 +00:00
parent a7b0674f9d
commit d075acb0e8
16 changed files with 2197 additions and 1435 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2292
Database/scripts/factuges.sql
View File

File diff suppressed because it is too large Load Diff

82
Source/Base/Base.dproj
View File

@ -65,48 +65,48 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Facturas de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxIntlPrintSys3D11.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\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\PluginSDK_D10R.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\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="..\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\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\GUISDK_D11.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_D10R.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>

90
Source/Informes/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

28
Source/Modulos/Contabilidad/Data/Contabilidad_data.dproj
View File

@ -48,20 +48,20 @@
<DelphiCompile Include="Contabilidad_data.dpk"> <DelphiCompile Include="Contabilidad_data.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Model\adortl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="..\Model\ApplicationBase.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
<DCCReference Include="..\Model\Base.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="..\Model\Contabilidad_model.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Contabilidad_model.dcp" />
<DCCReference Include="..\Model\cxLibraryD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="..\Model\DataAbstract_Core_D11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Model\dbrtl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="..\Model\dsnap.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="..\Model\dxThemeD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="..\Model\GUIBase.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="..\Model\RemObjects_Core_D11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Model\rtl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="..\Model\vcl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="..\Model\vcldb.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="uDataModuleContabilidad.pas"> <DCCReference Include="uDataModuleContabilidad.pas">
<Form>DataModuleContabilidad</Form> <Form>DataModuleContabilidad</Form>
<DesignClass>TDAClientDataModule</DesignClass> <DesignClass>TDAClientDataModule</DesignClass>

BIN
Source/Modulos/Contabilidad/Data/Contabilidad_data.res
View File

Binary file not shown.

5
Source/Modulos/Contabilidad/Data/uDataModuleContabilidad.dfm
View File

@ -560,6 +560,11 @@ inherited DataModuleContabilidad: TDataModuleContabilidad
DataType = datString DataType = datString
Size = 15 Size = 15
end end
item
Name = 'SUBCUENTA'
DataType = datString
Size = 255
end
item item
Name = 'ID_EJERCICIO' Name = 'ID_EJERCICIO'
DataType = datInteger DataType = datInteger

405
Source/Modulos/Contabilidad/Model/schContabilidadClient_Intf.pas
View File

@ -3,22 +3,30 @@ unit schContabilidadClient_Intf;
interface interface
uses uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Diario = '{E3FBF49B-23D0-4E34-823E-92BECF9F1673}'; RID_DarIDCuenta = '{62580F41-3FD3-42D1-9D19-D5088B529E2B}';
RID_Apuntes = '{DE259EA8-E9C6-4C39-B361-1B6276E0C03F}'; RID_DarCodigoContableTienda = '{18EAEDB3-6482-4451-9F51-1771AFB07AF9}';
RID_Asientos = '{5A82C5D1-212E-48D6-B269-FD8EB5F67142}'; RID_DarMaxRefSubCuenta = '{28A1162D-F15C-4533-81F0-49C61A40C975}';
RID_SubCuentas = '{931ADB71-BB8F-411F-830B-2B4293482E98}'; RID_ExisteSubCuenta = '{33F3DD94-075A-4EF5-A9D7-901A5B762506}';
RID_Cuentas = '{D676C38D-317F-4DC6-9682-7199231F842F}'; RID_Diario = '{08A2E65A-5D6A-47F9-834F-F764900C9DD9}';
RID_CuentasEspeciales = '{154759A2-3716-4C80-AE27-38C585EDD40B}'; RID_Apuntes = '{70944570-6902-4449-B652-FF4F8F36FF63}';
RID_Epigrafes = '{384C5F4E-4229-4B0E-97A4-FC4EFAB46A72}'; RID_Asientos = '{78A6C952-897F-4CD4-89CF-D408E25D418E}';
RID_Balances = '{B2334E4B-CC6F-42B9-9F42-6C096DFF25E3}'; RID_SubCuentas = '{24E41EBC-DC48-41D9-ABD4-3088FF741164}';
RID_Cuentas = '{ACD17A3C-67D7-4172-9EBB-FA43A71ED2C7}';
RID_CuentasEspeciales = '{5580C0E4-5554-40C5-8570-06C452D132C4}';
RID_Epigrafes = '{5437D981-0F48-4A14-B31C-2FFCDE1C9F8D}';
RID_Balances = '{2D6831A6-A078-472A-A870-8BAA551696E8}';
{ Data table names } { Data table names }
nme_DarIDCuenta = 'DarIDCuenta';
nme_DarCodigoContableTienda = 'DarCodigoContableTienda';
nme_DarMaxRefSubCuenta = 'DarMaxRefSubCuenta';
nme_ExisteSubCuenta = 'ExisteSubCuenta';
nme_Diario = 'Diario'; nme_Diario = 'Diario';
nme_Apuntes = 'Apuntes'; nme_Apuntes = 'Apuntes';
nme_Asientos = 'Asientos'; nme_Asientos = 'Asientos';
@ -28,6 +36,30 @@ const
nme_Epigrafes = 'Epigrafes'; nme_Epigrafes = 'Epigrafes';
nme_Balances = 'Balances'; nme_Balances = 'Balances';
{ DarIDCuenta fields }
fld_DarIDCuentaID = 'ID';
{ DarIDCuenta field indexes }
idx_DarIDCuentaID = 0;
{ DarCodigoContableTienda fields }
fld_DarCodigoContableTiendaCODIGO_CONTABLE = 'CODIGO_CONTABLE';
{ DarCodigoContableTienda field indexes }
idx_DarCodigoContableTiendaCODIGO_CONTABLE = 0;
{ DarMaxRefSubCuenta fields }
fld_DarMaxRefSubCuentaMAX = 'MAX';
{ DarMaxRefSubCuenta field indexes }
idx_DarMaxRefSubCuentaMAX = 0;
{ ExisteSubCuenta fields }
fld_ExisteSubCuentaCOUNT = 'COUNT';
{ ExisteSubCuenta field indexes }
idx_ExisteSubCuentaCOUNT = 0;
{ Diario fields } { Diario fields }
fld_DiarioID_APUNTE = 'ID_APUNTE'; fld_DiarioID_APUNTE = 'ID_APUNTE';
fld_DiarioID_ASIENTO = 'ID_ASIENTO'; fld_DiarioID_ASIENTO = 'ID_ASIENTO';
@ -37,6 +69,7 @@ const
fld_DiarioFECHA_ASIENTO = 'FECHA_ASIENTO'; fld_DiarioFECHA_ASIENTO = 'FECHA_ASIENTO';
fld_DiarioID_SUBCUENTA = 'ID_SUBCUENTA'; fld_DiarioID_SUBCUENTA = 'ID_SUBCUENTA';
fld_DiarioREF_SUBCUENTA = 'REF_SUBCUENTA'; fld_DiarioREF_SUBCUENTA = 'REF_SUBCUENTA';
fld_DiarioSUBCUENTA = 'SUBCUENTA';
fld_DiarioID_EJERCICIO = 'ID_EJERCICIO'; fld_DiarioID_EJERCICIO = 'ID_EJERCICIO';
fld_DiarioCONCEPTO = 'CONCEPTO'; fld_DiarioCONCEPTO = 'CONCEPTO';
fld_DiarioDOCUMENTO = 'DOCUMENTO'; fld_DiarioDOCUMENTO = 'DOCUMENTO';
@ -53,12 +86,13 @@ const
idx_DiarioFECHA_ASIENTO = 5; idx_DiarioFECHA_ASIENTO = 5;
idx_DiarioID_SUBCUENTA = 6; idx_DiarioID_SUBCUENTA = 6;
idx_DiarioREF_SUBCUENTA = 7; idx_DiarioREF_SUBCUENTA = 7;
idx_DiarioID_EJERCICIO = 8; idx_DiarioSUBCUENTA = 8;
idx_DiarioCONCEPTO = 9; idx_DiarioID_EJERCICIO = 9;
idx_DiarioDOCUMENTO = 10; idx_DiarioCONCEPTO = 10;
idx_DiarioDEBE = 11; idx_DiarioDOCUMENTO = 11;
idx_DiarioHABER = 12; idx_DiarioDEBE = 12;
idx_DiarioPUNTEADO = 13; idx_DiarioHABER = 13;
idx_DiarioPUNTEADO = 14;
{ Apuntes fields } { Apuntes fields }
fld_ApuntesID = 'ID'; fld_ApuntesID = 'ID';
@ -199,9 +233,149 @@ const
idx_BalancesDESCRIPCION3 = 8; idx_BalancesDESCRIPCION3 = 8;
type type
{ IDarIDCuenta }
IDarIDCuenta = interface(IDAStronglyTypedDataTable)
['{9F0EA8D0-D45B-4DD6-9166-9A2FAB0B3F43}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
function GetIDIsNull: Boolean;
procedure SetIDIsNull(const aValue: Boolean);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
end;
{ TDarIDCuentaDataTableRules }
TDarIDCuentaDataTableRules = class(TDADataTableRules, IDarIDCuenta)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetIDIsNull: Boolean; virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IDarCodigoContableTienda }
IDarCodigoContableTienda = interface(IDAStronglyTypedDataTable)
['{D35B0C64-3AC6-4B58-9BF4-2C7F11A9A191}']
{ Property getters and setters }
function GetCODIGO_CONTABLEValue: String;
procedure SetCODIGO_CONTABLEValue(const aValue: String);
function GetCODIGO_CONTABLEIsNull: Boolean;
procedure SetCODIGO_CONTABLEIsNull(const aValue: Boolean);
{ Properties }
property CODIGO_CONTABLE: String read GetCODIGO_CONTABLEValue write SetCODIGO_CONTABLEValue;
property CODIGO_CONTABLEIsNull: Boolean read GetCODIGO_CONTABLEIsNull write SetCODIGO_CONTABLEIsNull;
end;
{ TDarCodigoContableTiendaDataTableRules }
TDarCodigoContableTiendaDataTableRules = class(TDADataTableRules, IDarCodigoContableTienda)
private
protected
{ Property getters and setters }
function GetCODIGO_CONTABLEValue: String; virtual;
procedure SetCODIGO_CONTABLEValue(const aValue: String); virtual;
function GetCODIGO_CONTABLEIsNull: Boolean; virtual;
procedure SetCODIGO_CONTABLEIsNull(const aValue: Boolean); virtual;
{ Properties }
property CODIGO_CONTABLE: String read GetCODIGO_CONTABLEValue write SetCODIGO_CONTABLEValue;
property CODIGO_CONTABLEIsNull: Boolean read GetCODIGO_CONTABLEIsNull write SetCODIGO_CONTABLEIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IDarMaxRefSubCuenta }
IDarMaxRefSubCuenta = interface(IDAStronglyTypedDataTable)
['{E3C5A87F-0B25-4719-A2D2-D1B3EDFF22AA}']
{ Property getters and setters }
function GetMAXValue: Integer;
procedure SetMAXValue(const aValue: Integer);
function GetMAXIsNull: Boolean;
procedure SetMAXIsNull(const aValue: Boolean);
{ Properties }
property MAX: Integer read GetMAXValue write SetMAXValue;
property MAXIsNull: Boolean read GetMAXIsNull write SetMAXIsNull;
end;
{ TDarMaxRefSubCuentaDataTableRules }
TDarMaxRefSubCuentaDataTableRules = class(TDADataTableRules, IDarMaxRefSubCuenta)
private
protected
{ Property getters and setters }
function GetMAXValue: Integer; virtual;
procedure SetMAXValue(const aValue: Integer); virtual;
function GetMAXIsNull: Boolean; virtual;
procedure SetMAXIsNull(const aValue: Boolean); virtual;
{ Properties }
property MAX: Integer read GetMAXValue write SetMAXValue;
property MAXIsNull: Boolean read GetMAXIsNull write SetMAXIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IExisteSubCuenta }
IExisteSubCuenta = interface(IDAStronglyTypedDataTable)
['{634595DB-2DF1-458B-B2FC-0AF5FCD93E82}']
{ Property getters and setters }
function GetCOUNTValue: Integer;
procedure SetCOUNTValue(const aValue: Integer);
function GetCOUNTIsNull: Boolean;
procedure SetCOUNTIsNull(const aValue: Boolean);
{ Properties }
property COUNT: Integer read GetCOUNTValue write SetCOUNTValue;
property COUNTIsNull: Boolean read GetCOUNTIsNull write SetCOUNTIsNull;
end;
{ TExisteSubCuentaDataTableRules }
TExisteSubCuentaDataTableRules = class(TDADataTableRules, IExisteSubCuenta)
private
protected
{ Property getters and setters }
function GetCOUNTValue: Integer; virtual;
procedure SetCOUNTValue(const aValue: Integer); virtual;
function GetCOUNTIsNull: Boolean; virtual;
procedure SetCOUNTIsNull(const aValue: Boolean); virtual;
{ Properties }
property COUNT: Integer read GetCOUNTValue write SetCOUNTValue;
property COUNTIsNull: Boolean read GetCOUNTIsNull write SetCOUNTIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IDiario } { IDiario }
IDiario = interface(IDAStronglyTypedDataTable) IDiario = interface(IDAStronglyTypedDataTable)
['{16823056-4DCD-43B4-B86B-5D0030F56088}'] ['{3E328181-3908-4A59-AEAC-B669B49E0B9C}']
{ Property getters and setters } { Property getters and setters }
function GetID_APUNTEValue: Integer; function GetID_APUNTEValue: Integer;
procedure SetID_APUNTEValue(const aValue: Integer); procedure SetID_APUNTEValue(const aValue: Integer);
@ -235,6 +409,10 @@ type
procedure SetREF_SUBCUENTAValue(const aValue: String); procedure SetREF_SUBCUENTAValue(const aValue: String);
function GetREF_SUBCUENTAIsNull: Boolean; function GetREF_SUBCUENTAIsNull: Boolean;
procedure SetREF_SUBCUENTAIsNull(const aValue: Boolean); procedure SetREF_SUBCUENTAIsNull(const aValue: Boolean);
function GetSUBCUENTAValue: String;
procedure SetSUBCUENTAValue(const aValue: String);
function GetSUBCUENTAIsNull: Boolean;
procedure SetSUBCUENTAIsNull(const aValue: Boolean);
function GetID_EJERCICIOValue: Integer; function GetID_EJERCICIOValue: Integer;
procedure SetID_EJERCICIOValue(const aValue: Integer); procedure SetID_EJERCICIOValue(const aValue: Integer);
function GetID_EJERCICIOIsNull: Boolean; function GetID_EJERCICIOIsNull: Boolean;
@ -278,6 +456,8 @@ type
property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull; property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
property REF_SUBCUENTA: String read GetREF_SUBCUENTAValue write SetREF_SUBCUENTAValue; property REF_SUBCUENTA: String read GetREF_SUBCUENTAValue write SetREF_SUBCUENTAValue;
property REF_SUBCUENTAIsNull: Boolean read GetREF_SUBCUENTAIsNull write SetREF_SUBCUENTAIsNull; property REF_SUBCUENTAIsNull: Boolean read GetREF_SUBCUENTAIsNull write SetREF_SUBCUENTAIsNull;
property SUBCUENTA: String read GetSUBCUENTAValue write SetSUBCUENTAValue;
property SUBCUENTAIsNull: Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue; property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull; property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue; property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
@ -293,7 +473,7 @@ type
end; end;
{ TDiarioDataTableRules } { TDiarioDataTableRules }
TDiarioDataTableRules = class(TIntfObjectDADataTableRules, IDiario) TDiarioDataTableRules = class(TDADataTableRules, IDiario)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -329,6 +509,10 @@ type
procedure SetREF_SUBCUENTAValue(const aValue: String); virtual; procedure SetREF_SUBCUENTAValue(const aValue: String); virtual;
function GetREF_SUBCUENTAIsNull: Boolean; virtual; function GetREF_SUBCUENTAIsNull: Boolean; virtual;
procedure SetREF_SUBCUENTAIsNull(const aValue: Boolean); virtual; procedure SetREF_SUBCUENTAIsNull(const aValue: Boolean); virtual;
function GetSUBCUENTAValue: String; virtual;
procedure SetSUBCUENTAValue(const aValue: String); virtual;
function GetSUBCUENTAIsNull: Boolean; virtual;
procedure SetSUBCUENTAIsNull(const aValue: Boolean); virtual;
function GetID_EJERCICIOValue: Integer; virtual; function GetID_EJERCICIOValue: Integer; virtual;
procedure SetID_EJERCICIOValue(const aValue: Integer); virtual; procedure SetID_EJERCICIOValue(const aValue: Integer); virtual;
function GetID_EJERCICIOIsNull: Boolean; virtual; function GetID_EJERCICIOIsNull: Boolean; virtual;
@ -371,6 +555,8 @@ type
property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull; property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
property REF_SUBCUENTA: String read GetREF_SUBCUENTAValue write SetREF_SUBCUENTAValue; property REF_SUBCUENTA: String read GetREF_SUBCUENTAValue write SetREF_SUBCUENTAValue;
property REF_SUBCUENTAIsNull: Boolean read GetREF_SUBCUENTAIsNull write SetREF_SUBCUENTAIsNull; property REF_SUBCUENTAIsNull: Boolean read GetREF_SUBCUENTAIsNull write SetREF_SUBCUENTAIsNull;
property SUBCUENTA: String read GetSUBCUENTAValue write SetSUBCUENTAValue;
property SUBCUENTAIsNull: Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue; property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull; property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue; property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
@ -392,7 +578,7 @@ type
{ IApuntes } { IApuntes }
IApuntes = interface(IDAStronglyTypedDataTable) IApuntes = interface(IDAStronglyTypedDataTable)
['{8BDA0F63-7D8D-4969-94E3-1909589C1EBC}'] ['{2C752BCD-2FE5-4E3C-A994-21763634B4B4}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -466,7 +652,7 @@ type
end; end;
{ TApuntesDataTableRules } { TApuntesDataTableRules }
TApuntesDataTableRules = class(TIntfObjectDADataTableRules, IApuntes) TApuntesDataTableRules = class(TDADataTableRules, IApuntes)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -547,7 +733,7 @@ type
{ IAsientos } { IAsientos }
IAsientos = interface(IDAStronglyTypedDataTable) IAsientos = interface(IDAStronglyTypedDataTable)
['{DB9AA9F6-57AC-4EC7-91A2-C64C8CE9471E}'] ['{C934D5E4-593C-44A8-AFE3-5D6E6AF7E945}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -585,7 +771,7 @@ type
end; end;
{ TAsientosDataTableRules } { TAsientosDataTableRules }
TAsientosDataTableRules = class(TIntfObjectDADataTableRules, IAsientos) TAsientosDataTableRules = class(TDADataTableRules, IAsientos)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -630,7 +816,7 @@ type
{ ISubCuentas } { ISubCuentas }
ISubCuentas = interface(IDAStronglyTypedDataTable) ISubCuentas = interface(IDAStronglyTypedDataTable)
['{03047C67-9FEF-4ECE-8345-18EA5CD637FC}'] ['{E41AB2AB-D4B5-4856-A973-AA1E965D808E}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -704,7 +890,7 @@ type
end; end;
{ TSubCuentasDataTableRules } { TSubCuentasDataTableRules }
TSubCuentasDataTableRules = class(TIntfObjectDADataTableRules, ISubCuentas) TSubCuentasDataTableRules = class(TDADataTableRules, ISubCuentas)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -785,7 +971,7 @@ type
{ ICuentas } { ICuentas }
ICuentas = interface(IDAStronglyTypedDataTable) ICuentas = interface(IDAStronglyTypedDataTable)
['{6B9F3F8F-42C6-4E44-A3AE-B0C3404B008D}'] ['{FEECE0E7-F491-4703-908B-B7DF3D7C34C9}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -853,7 +1039,7 @@ type
end; end;
{ TCuentasDataTableRules } { TCuentasDataTableRules }
TCuentasDataTableRules = class(TIntfObjectDADataTableRules, ICuentas) TCuentasDataTableRules = class(TDADataTableRules, ICuentas)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -928,7 +1114,7 @@ type
{ ICuentasEspeciales } { ICuentasEspeciales }
ICuentasEspeciales = interface(IDAStronglyTypedDataTable) ICuentasEspeciales = interface(IDAStronglyTypedDataTable)
['{5C46D55F-121A-4659-9A25-804952D79149}'] ['{038D2C36-A99D-4610-86BE-164FAB17D8AB}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -954,7 +1140,7 @@ type
end; end;
{ TCuentasEspecialesDataTableRules } { TCuentasEspecialesDataTableRules }
TCuentasEspecialesDataTableRules = class(TIntfObjectDADataTableRules, ICuentasEspeciales) TCuentasEspecialesDataTableRules = class(TDADataTableRules, ICuentasEspeciales)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -987,7 +1173,7 @@ type
{ IEpigrafes } { IEpigrafes }
IEpigrafes = interface(IDAStronglyTypedDataTable) IEpigrafes = interface(IDAStronglyTypedDataTable)
['{F85F5AE6-A7A9-4756-BEC2-B1BCD3729406}'] ['{0947FB8E-C7C3-4368-BE6F-7C2E8075F640}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1031,7 +1217,7 @@ type
end; end;
{ TEpigrafesDataTableRules } { TEpigrafesDataTableRules }
TEpigrafesDataTableRules = class(TIntfObjectDADataTableRules, IEpigrafes) TEpigrafesDataTableRules = class(TDADataTableRules, IEpigrafes)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1082,7 +1268,7 @@ type
{ IBalances } { IBalances }
IBalances = interface(IDAStronglyTypedDataTable) IBalances = interface(IDAStronglyTypedDataTable)
['{C3FB6124-7643-4B1E-81A4-AEA3864E4E1C}'] ['{DF56D273-9C7B-4311-A581-31E679681E5A}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1144,7 +1330,7 @@ type
end; end;
{ TBalancesDataTableRules } { TBalancesDataTableRules }
TBalancesDataTableRules = class(TIntfObjectDADataTableRules, IBalances) TBalancesDataTableRules = class(TDADataTableRules, IBalances)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1215,6 +1401,138 @@ implementation
uses Variants, uROBinaryHelpers; uses Variants, uROBinaryHelpers;
{ TDarIDCuentaDataTableRules }
constructor TDarIDCuentaDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TDarIDCuentaDataTableRules.Destroy;
begin
inherited;
end;
function TDarIDCuentaDataTableRules.GetIDValue: Integer;
begin
result := DataTable.Fields[idx_DarIDCuentaID].AsInteger;
end;
procedure TDarIDCuentaDataTableRules.SetIDValue(const aValue: Integer);
begin
DataTable.Fields[idx_DarIDCuentaID].AsInteger := aValue;
end;
function TDarIDCuentaDataTableRules.GetIDIsNull: boolean;
begin
result := DataTable.Fields[idx_DarIDCuentaID].IsNull;
end;
procedure TDarIDCuentaDataTableRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_DarIDCuentaID].AsVariant := Null;
end;
{ TDarCodigoContableTiendaDataTableRules }
constructor TDarCodigoContableTiendaDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TDarCodigoContableTiendaDataTableRules.Destroy;
begin
inherited;
end;
function TDarCodigoContableTiendaDataTableRules.GetCODIGO_CONTABLEValue: String;
begin
result := DataTable.Fields[idx_DarCodigoContableTiendaCODIGO_CONTABLE].AsString;
end;
procedure TDarCodigoContableTiendaDataTableRules.SetCODIGO_CONTABLEValue(const aValue: String);
begin
DataTable.Fields[idx_DarCodigoContableTiendaCODIGO_CONTABLE].AsString := aValue;
end;
function TDarCodigoContableTiendaDataTableRules.GetCODIGO_CONTABLEIsNull: boolean;
begin
result := DataTable.Fields[idx_DarCodigoContableTiendaCODIGO_CONTABLE].IsNull;
end;
procedure TDarCodigoContableTiendaDataTableRules.SetCODIGO_CONTABLEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_DarCodigoContableTiendaCODIGO_CONTABLE].AsVariant := Null;
end;
{ TDarMaxRefSubCuentaDataTableRules }
constructor TDarMaxRefSubCuentaDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TDarMaxRefSubCuentaDataTableRules.Destroy;
begin
inherited;
end;
function TDarMaxRefSubCuentaDataTableRules.GetMAXValue: Integer;
begin
result := DataTable.Fields[idx_DarMaxRefSubCuentaMAX].AsInteger;
end;
procedure TDarMaxRefSubCuentaDataTableRules.SetMAXValue(const aValue: Integer);
begin
DataTable.Fields[idx_DarMaxRefSubCuentaMAX].AsInteger := aValue;
end;
function TDarMaxRefSubCuentaDataTableRules.GetMAXIsNull: boolean;
begin
result := DataTable.Fields[idx_DarMaxRefSubCuentaMAX].IsNull;
end;
procedure TDarMaxRefSubCuentaDataTableRules.SetMAXIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_DarMaxRefSubCuentaMAX].AsVariant := Null;
end;
{ TExisteSubCuentaDataTableRules }
constructor TExisteSubCuentaDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TExisteSubCuentaDataTableRules.Destroy;
begin
inherited;
end;
function TExisteSubCuentaDataTableRules.GetCOUNTValue: Integer;
begin
result := DataTable.Fields[idx_ExisteSubCuentaCOUNT].AsInteger;
end;
procedure TExisteSubCuentaDataTableRules.SetCOUNTValue(const aValue: Integer);
begin
DataTable.Fields[idx_ExisteSubCuentaCOUNT].AsInteger := aValue;
end;
function TExisteSubCuentaDataTableRules.GetCOUNTIsNull: boolean;
begin
result := DataTable.Fields[idx_ExisteSubCuentaCOUNT].IsNull;
end;
procedure TExisteSubCuentaDataTableRules.SetCOUNTIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ExisteSubCuentaCOUNT].AsVariant := Null;
end;
{ TDiarioDataTableRules } { TDiarioDataTableRules }
constructor TDiarioDataTableRules.Create(aDataTable: TDADataTable); constructor TDiarioDataTableRules.Create(aDataTable: TDADataTable);
begin begin
@ -1394,6 +1712,27 @@ begin
DataTable.Fields[idx_DiarioREF_SUBCUENTA].AsVariant := Null; DataTable.Fields[idx_DiarioREF_SUBCUENTA].AsVariant := Null;
end; end;
function TDiarioDataTableRules.GetSUBCUENTAValue: String;
begin
result := DataTable.Fields[idx_DiarioSUBCUENTA].AsString;
end;
procedure TDiarioDataTableRules.SetSUBCUENTAValue(const aValue: String);
begin
DataTable.Fields[idx_DiarioSUBCUENTA].AsString := aValue;
end;
function TDiarioDataTableRules.GetSUBCUENTAIsNull: boolean;
begin
result := DataTable.Fields[idx_DiarioSUBCUENTA].IsNull;
end;
procedure TDiarioDataTableRules.SetSUBCUENTAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_DiarioSUBCUENTA].AsVariant := Null;
end;
function TDiarioDataTableRules.GetID_EJERCICIOValue: Integer; function TDiarioDataTableRules.GetID_EJERCICIOValue: Integer;
begin begin
result := DataTable.Fields[idx_DiarioID_EJERCICIO].AsInteger; result := DataTable.Fields[idx_DiarioID_EJERCICIO].AsInteger;
@ -2761,6 +3100,10 @@ end;
initialization initialization
RegisterDataTableRules(RID_DarIDCuenta, TDarIDCuentaDataTableRules);
RegisterDataTableRules(RID_DarCodigoContableTienda, TDarCodigoContableTiendaDataTableRules);
RegisterDataTableRules(RID_DarMaxRefSubCuenta, TDarMaxRefSubCuentaDataTableRules);
RegisterDataTableRules(RID_ExisteSubCuenta, TExisteSubCuentaDataTableRules);
RegisterDataTableRules(RID_Diario, TDiarioDataTableRules); RegisterDataTableRules(RID_Diario, TDiarioDataTableRules);
RegisterDataTableRules(RID_Apuntes, TApuntesDataTableRules); RegisterDataTableRules(RID_Apuntes, TApuntesDataTableRules);
RegisterDataTableRules(RID_Asientos, TAsientosDataTableRules); RegisterDataTableRules(RID_Asientos, TAsientosDataTableRules);

391
Source/Modulos/Contabilidad/Model/schContabilidadServer_Intf.pas
View File

@ -9,19 +9,159 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_DiarioDelta = '{0882ADEE-9AC8-4ABF-932B-341B3C4DD929}'; RID_DarIDCuentaDelta = '{E61FFC34-78E1-4E47-873B-26A3866D714B}';
RID_ApuntesDelta = '{FFCEAAC4-532B-4238-8141-7A1B2E65D1D8}'; RID_DarCodigoContableTiendaDelta = '{9B4CCB90-6621-48DE-83B9-C1EE6E9A3DC6}';
RID_AsientosDelta = '{ED941252-D8EA-41E5-9EEB-3B4AB1CFB04A}'; RID_DarMaxRefSubCuentaDelta = '{23178B29-2EFE-41DA-BCFF-0B12BB3BF392}';
RID_SubCuentasDelta = '{E4BAB612-0B84-49D5-B5F7-ACA3B30F0DDE}'; RID_ExisteSubCuentaDelta = '{448B8958-98BA-4340-8D03-FDD4817E637B}';
RID_CuentasDelta = '{5A5D97B0-25D5-4BFA-8974-C9EBAD102FAD}'; RID_DiarioDelta = '{699B3B97-2CC2-429A-B275-63EAB604D199}';
RID_CuentasEspecialesDelta = '{E9896ABE-59CA-40BF-888C-FFA0D0AB9D98}'; RID_ApuntesDelta = '{CC4B622A-A26E-41A5-ACDC-D838185BB681}';
RID_EpigrafesDelta = '{52C0B7AD-1BC3-4ED0-B931-34CD705F2839}'; RID_AsientosDelta = '{5FC14F81-E72E-4662-80EC-38459AB23915}';
RID_BalancesDelta = '{29FAB9BD-5A16-46D4-98CD-ABFB8A584AE7}'; RID_SubCuentasDelta = '{FC32F9F6-0BC4-4BDC-8307-A47786D2E601}';
RID_CuentasDelta = '{F030EAB1-8B4B-4E20-B8D9-BD41747561BC}';
RID_CuentasEspecialesDelta = '{BDC3E113-F48D-459C-9208-C3502377511B}';
RID_EpigrafesDelta = '{5099CA22-0F27-46FD-8B3A-C0C518E73AD7}';
RID_BalancesDelta = '{348A53C4-FD53-4F33-9FC7-61369195ADEC}';
type type
{ IDarIDCuentaDelta }
IDarIDCuentaDelta = interface(IDarIDCuenta)
['{E61FFC34-78E1-4E47-873B-26A3866D714B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
{ Properties }
property OldID : Integer read GetOldIDValue;
end;
{ TDarIDCuentaBusinessProcessorRules }
TDarIDCuentaBusinessProcessorRules = class(TDABusinessProcessorRules, IDarIDCuenta, IDarIDCuentaDelta)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
function GetIDIsNull: Boolean; virtual;
function GetOldIDValue: Integer; virtual;
function GetOldIDIsNull: Boolean; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
property OldID : Integer read GetOldIDValue;
property OldIDIsNull : Boolean read GetOldIDIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IDarCodigoContableTiendaDelta }
IDarCodigoContableTiendaDelta = interface(IDarCodigoContableTienda)
['{9B4CCB90-6621-48DE-83B9-C1EE6E9A3DC6}']
{ Property getters and setters }
function GetOldCODIGO_CONTABLEValue : String;
{ Properties }
property OldCODIGO_CONTABLE : String read GetOldCODIGO_CONTABLEValue;
end;
{ TDarCodigoContableTiendaBusinessProcessorRules }
TDarCodigoContableTiendaBusinessProcessorRules = class(TDABusinessProcessorRules, IDarCodigoContableTienda, IDarCodigoContableTiendaDelta)
private
protected
{ Property getters and setters }
function GetCODIGO_CONTABLEValue: String; virtual;
function GetCODIGO_CONTABLEIsNull: Boolean; virtual;
function GetOldCODIGO_CONTABLEValue: String; virtual;
function GetOldCODIGO_CONTABLEIsNull: Boolean; virtual;
procedure SetCODIGO_CONTABLEValue(const aValue: String); virtual;
procedure SetCODIGO_CONTABLEIsNull(const aValue: Boolean); virtual;
{ Properties }
property CODIGO_CONTABLE : String read GetCODIGO_CONTABLEValue write SetCODIGO_CONTABLEValue;
property CODIGO_CONTABLEIsNull : Boolean read GetCODIGO_CONTABLEIsNull write SetCODIGO_CONTABLEIsNull;
property OldCODIGO_CONTABLE : String read GetOldCODIGO_CONTABLEValue;
property OldCODIGO_CONTABLEIsNull : Boolean read GetOldCODIGO_CONTABLEIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IDarMaxRefSubCuentaDelta }
IDarMaxRefSubCuentaDelta = interface(IDarMaxRefSubCuenta)
['{23178B29-2EFE-41DA-BCFF-0B12BB3BF392}']
{ Property getters and setters }
function GetOldMAXValue : Integer;
{ Properties }
property OldMAX : Integer read GetOldMAXValue;
end;
{ TDarMaxRefSubCuentaBusinessProcessorRules }
TDarMaxRefSubCuentaBusinessProcessorRules = class(TDABusinessProcessorRules, IDarMaxRefSubCuenta, IDarMaxRefSubCuentaDelta)
private
protected
{ Property getters and setters }
function GetMAXValue: Integer; virtual;
function GetMAXIsNull: Boolean; virtual;
function GetOldMAXValue: Integer; virtual;
function GetOldMAXIsNull: Boolean; virtual;
procedure SetMAXValue(const aValue: Integer); virtual;
procedure SetMAXIsNull(const aValue: Boolean); virtual;
{ Properties }
property MAX : Integer read GetMAXValue write SetMAXValue;
property MAXIsNull : Boolean read GetMAXIsNull write SetMAXIsNull;
property OldMAX : Integer read GetOldMAXValue;
property OldMAXIsNull : Boolean read GetOldMAXIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IExisteSubCuentaDelta }
IExisteSubCuentaDelta = interface(IExisteSubCuenta)
['{448B8958-98BA-4340-8D03-FDD4817E637B}']
{ Property getters and setters }
function GetOldCOUNTValue : Integer;
{ Properties }
property OldCOUNT : Integer read GetOldCOUNTValue;
end;
{ TExisteSubCuentaBusinessProcessorRules }
TExisteSubCuentaBusinessProcessorRules = class(TDABusinessProcessorRules, IExisteSubCuenta, IExisteSubCuentaDelta)
private
protected
{ Property getters and setters }
function GetCOUNTValue: Integer; virtual;
function GetCOUNTIsNull: Boolean; virtual;
function GetOldCOUNTValue: Integer; virtual;
function GetOldCOUNTIsNull: Boolean; virtual;
procedure SetCOUNTValue(const aValue: Integer); virtual;
procedure SetCOUNTIsNull(const aValue: Boolean); virtual;
{ Properties }
property COUNT : Integer read GetCOUNTValue write SetCOUNTValue;
property COUNTIsNull : Boolean read GetCOUNTIsNull write SetCOUNTIsNull;
property OldCOUNT : Integer read GetOldCOUNTValue;
property OldCOUNTIsNull : Boolean read GetOldCOUNTIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IDiarioDelta } { IDiarioDelta }
IDiarioDelta = interface(IDiario) IDiarioDelta = interface(IDiario)
['{0882ADEE-9AC8-4ABF-932B-341B3C4DD929}'] ['{699B3B97-2CC2-429A-B275-63EAB604D199}']
{ Property getters and setters } { Property getters and setters }
function GetOldID_APUNTEValue : Integer; function GetOldID_APUNTEValue : Integer;
function GetOldID_ASIENTOValue : Integer; function GetOldID_ASIENTOValue : Integer;
@ -31,6 +171,7 @@ type
function GetOldFECHA_ASIENTOValue : DateTime; function GetOldFECHA_ASIENTOValue : DateTime;
function GetOldID_SUBCUENTAValue : Integer; function GetOldID_SUBCUENTAValue : Integer;
function GetOldREF_SUBCUENTAValue : String; function GetOldREF_SUBCUENTAValue : String;
function GetOldSUBCUENTAValue : String;
function GetOldID_EJERCICIOValue : Integer; function GetOldID_EJERCICIOValue : Integer;
function GetOldCONCEPTOValue : String; function GetOldCONCEPTOValue : String;
function GetOldDOCUMENTOValue : String; function GetOldDOCUMENTOValue : String;
@ -47,6 +188,7 @@ type
property OldFECHA_ASIENTO : DateTime read GetOldFECHA_ASIENTOValue; property OldFECHA_ASIENTO : DateTime read GetOldFECHA_ASIENTOValue;
property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue; property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue;
property OldREF_SUBCUENTA : String read GetOldREF_SUBCUENTAValue; property OldREF_SUBCUENTA : String read GetOldREF_SUBCUENTAValue;
property OldSUBCUENTA : String read GetOldSUBCUENTAValue;
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue; property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
property OldCONCEPTO : String read GetOldCONCEPTOValue; property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldDOCUMENTO : String read GetOldDOCUMENTOValue; property OldDOCUMENTO : String read GetOldDOCUMENTOValue;
@ -108,6 +250,12 @@ type
function GetOldREF_SUBCUENTAIsNull: Boolean; virtual; function GetOldREF_SUBCUENTAIsNull: Boolean; virtual;
procedure SetREF_SUBCUENTAValue(const aValue: String); virtual; procedure SetREF_SUBCUENTAValue(const aValue: String); virtual;
procedure SetREF_SUBCUENTAIsNull(const aValue: Boolean); virtual; procedure SetREF_SUBCUENTAIsNull(const aValue: Boolean); virtual;
function GetSUBCUENTAValue: String; virtual;
function GetSUBCUENTAIsNull: Boolean; virtual;
function GetOldSUBCUENTAValue: String; virtual;
function GetOldSUBCUENTAIsNull: Boolean; virtual;
procedure SetSUBCUENTAValue(const aValue: String); virtual;
procedure SetSUBCUENTAIsNull(const aValue: Boolean); virtual;
function GetID_EJERCICIOValue: Integer; virtual; function GetID_EJERCICIOValue: Integer; virtual;
function GetID_EJERCICIOIsNull: Boolean; virtual; function GetID_EJERCICIOIsNull: Boolean; virtual;
function GetOldID_EJERCICIOValue: Integer; virtual; function GetOldID_EJERCICIOValue: Integer; virtual;
@ -178,6 +326,10 @@ type
property REF_SUBCUENTAIsNull : Boolean read GetREF_SUBCUENTAIsNull write SetREF_SUBCUENTAIsNull; property REF_SUBCUENTAIsNull : Boolean read GetREF_SUBCUENTAIsNull write SetREF_SUBCUENTAIsNull;
property OldREF_SUBCUENTA : String read GetOldREF_SUBCUENTAValue; property OldREF_SUBCUENTA : String read GetOldREF_SUBCUENTAValue;
property OldREF_SUBCUENTAIsNull : Boolean read GetOldREF_SUBCUENTAIsNull; property OldREF_SUBCUENTAIsNull : Boolean read GetOldREF_SUBCUENTAIsNull;
property SUBCUENTA : String read GetSUBCUENTAValue write SetSUBCUENTAValue;
property SUBCUENTAIsNull : Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
property OldSUBCUENTA : String read GetOldSUBCUENTAValue;
property OldSUBCUENTAIsNull : Boolean read GetOldSUBCUENTAIsNull;
property ID_EJERCICIO : Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue; property ID_EJERCICIO : Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
property ID_EJERCICIOIsNull : Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull; property ID_EJERCICIOIsNull : Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue; property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
@ -211,7 +363,7 @@ type
{ IApuntesDelta } { IApuntesDelta }
IApuntesDelta = interface(IApuntes) IApuntesDelta = interface(IApuntes)
['{FFCEAAC4-532B-4238-8141-7A1B2E65D1D8}'] ['{CC4B622A-A26E-41A5-ACDC-D838185BB681}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_ASIENTOValue : Integer; function GetOldID_ASIENTOValue : Integer;
@ -365,7 +517,7 @@ type
{ IAsientosDelta } { IAsientosDelta }
IAsientosDelta = interface(IAsientos) IAsientosDelta = interface(IAsientos)
['{ED941252-D8EA-41E5-9EEB-3B4AB1CFB04A}'] ['{5FC14F81-E72E-4662-80EC-38459AB23915}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldFECHA_ASIENTOValue : DateTime; function GetOldFECHA_ASIENTOValue : DateTime;
@ -447,7 +599,7 @@ type
{ ISubCuentasDelta } { ISubCuentasDelta }
ISubCuentasDelta = interface(ISubCuentas) ISubCuentasDelta = interface(ISubCuentas)
['{E4BAB612-0B84-49D5-B5F7-ACA3B30F0DDE}'] ['{FC32F9F6-0BC4-4BDC-8307-A47786D2E601}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREF_SUBCUENTAValue : String; function GetOldREF_SUBCUENTAValue : String;
@ -601,7 +753,7 @@ type
{ ICuentasDelta } { ICuentasDelta }
ICuentasDelta = interface(ICuentas) ICuentasDelta = interface(ICuentas)
['{5A5D97B0-25D5-4BFA-8974-C9EBAD102FAD}'] ['{F030EAB1-8B4B-4E20-B8D9-BD41747561BC}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREF_CUENTAValue : String; function GetOldREF_CUENTAValue : String;
@ -743,7 +895,7 @@ type
{ ICuentasEspecialesDelta } { ICuentasEspecialesDelta }
ICuentasEspecialesDelta = interface(ICuentasEspeciales) ICuentasEspecialesDelta = interface(ICuentasEspeciales)
['{E9896ABE-59CA-40BF-888C-FFA0D0AB9D98}'] ['{BDC3E113-F48D-459C-9208-C3502377511B}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
@ -801,7 +953,7 @@ type
{ IEpigrafesDelta } { IEpigrafesDelta }
IEpigrafesDelta = interface(IEpigrafes) IEpigrafesDelta = interface(IEpigrafes)
['{52C0B7AD-1BC3-4ED0-B931-34CD705F2839}'] ['{5099CA22-0F27-46FD-8B3A-C0C518E73AD7}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREF_EPIGRAFEValue : String; function GetOldREF_EPIGRAFEValue : String;
@ -895,7 +1047,7 @@ type
{ IBalancesDelta } { IBalancesDelta }
IBalancesDelta = interface(IBalances) IBalancesDelta = interface(IBalances)
['{29FAB9BD-5A16-46D4-98CD-ABFB8A584AE7}'] ['{348A53C4-FD53-4F33-9FC7-61369195ADEC}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREF_BALANCEValue : String; function GetOldREF_BALANCEValue : String;
@ -1028,6 +1180,178 @@ implementation
uses uses
Variants, uROBinaryHelpers, uDAInterfaces; Variants, uROBinaryHelpers, uDAInterfaces;
{ TDarIDCuentaBusinessProcessorRules }
constructor TDarIDCuentaBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TDarIDCuentaBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TDarIDCuentaBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DarIDCuentaID];
end;
function TDarIDCuentaBusinessProcessorRules.GetIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DarIDCuentaID]);
end;
function TDarIDCuentaBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DarIDCuentaID];
end;
function TDarIDCuentaBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DarIDCuentaID]);
end;
procedure TDarIDCuentaBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DarIDCuentaID] := aValue;
end;
procedure TDarIDCuentaBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_DarIDCuentaID] := Null;
end;
{ TDarCodigoContableTiendaBusinessProcessorRules }
constructor TDarCodigoContableTiendaBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TDarCodigoContableTiendaBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TDarCodigoContableTiendaBusinessProcessorRules.GetCODIGO_CONTABLEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DarCodigoContableTiendaCODIGO_CONTABLE];
end;
function TDarCodigoContableTiendaBusinessProcessorRules.GetCODIGO_CONTABLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DarCodigoContableTiendaCODIGO_CONTABLE]);
end;
function TDarCodigoContableTiendaBusinessProcessorRules.GetOldCODIGO_CONTABLEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DarCodigoContableTiendaCODIGO_CONTABLE];
end;
function TDarCodigoContableTiendaBusinessProcessorRules.GetOldCODIGO_CONTABLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DarCodigoContableTiendaCODIGO_CONTABLE]);
end;
procedure TDarCodigoContableTiendaBusinessProcessorRules.SetCODIGO_CONTABLEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DarCodigoContableTiendaCODIGO_CONTABLE] := aValue;
end;
procedure TDarCodigoContableTiendaBusinessProcessorRules.SetCODIGO_CONTABLEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_DarCodigoContableTiendaCODIGO_CONTABLE] := Null;
end;
{ TDarMaxRefSubCuentaBusinessProcessorRules }
constructor TDarMaxRefSubCuentaBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TDarMaxRefSubCuentaBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TDarMaxRefSubCuentaBusinessProcessorRules.GetMAXValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DarMaxRefSubCuentaMAX];
end;
function TDarMaxRefSubCuentaBusinessProcessorRules.GetMAXIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DarMaxRefSubCuentaMAX]);
end;
function TDarMaxRefSubCuentaBusinessProcessorRules.GetOldMAXValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DarMaxRefSubCuentaMAX];
end;
function TDarMaxRefSubCuentaBusinessProcessorRules.GetOldMAXIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DarMaxRefSubCuentaMAX]);
end;
procedure TDarMaxRefSubCuentaBusinessProcessorRules.SetMAXValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DarMaxRefSubCuentaMAX] := aValue;
end;
procedure TDarMaxRefSubCuentaBusinessProcessorRules.SetMAXIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_DarMaxRefSubCuentaMAX] := Null;
end;
{ TExisteSubCuentaBusinessProcessorRules }
constructor TExisteSubCuentaBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TExisteSubCuentaBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TExisteSubCuentaBusinessProcessorRules.GetCOUNTValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ExisteSubCuentaCOUNT];
end;
function TExisteSubCuentaBusinessProcessorRules.GetCOUNTIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ExisteSubCuentaCOUNT]);
end;
function TExisteSubCuentaBusinessProcessorRules.GetOldCOUNTValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ExisteSubCuentaCOUNT];
end;
function TExisteSubCuentaBusinessProcessorRules.GetOldCOUNTIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ExisteSubCuentaCOUNT]);
end;
procedure TExisteSubCuentaBusinessProcessorRules.SetCOUNTValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ExisteSubCuentaCOUNT] := aValue;
end;
procedure TExisteSubCuentaBusinessProcessorRules.SetCOUNTIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ExisteSubCuentaCOUNT] := Null;
end;
{ TDiarioBusinessProcessorRules } { TDiarioBusinessProcessorRules }
constructor TDiarioBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TDiarioBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin begin
@ -1287,6 +1611,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioREF_SUBCUENTA] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioREF_SUBCUENTA] := Null;
end; end;
function TDiarioBusinessProcessorRules.GetSUBCUENTAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioSUBCUENTA];
end;
function TDiarioBusinessProcessorRules.GetSUBCUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioSUBCUENTA]);
end;
function TDiarioBusinessProcessorRules.GetOldSUBCUENTAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioSUBCUENTA];
end;
function TDiarioBusinessProcessorRules.GetOldSUBCUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioSUBCUENTA]);
end;
procedure TDiarioBusinessProcessorRules.SetSUBCUENTAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioSUBCUENTA] := aValue;
end;
procedure TDiarioBusinessProcessorRules.SetSUBCUENTAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioSUBCUENTA] := Null;
end;
function TDiarioBusinessProcessorRules.GetID_EJERCICIOValue: Integer; function TDiarioBusinessProcessorRules.GetID_EJERCICIOValue: Integer;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_EJERCICIO]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_EJERCICIO];
@ -3264,6 +3619,10 @@ end;
initialization initialization
RegisterBusinessProcessorRules(RID_DarIDCuentaDelta, TDarIDCuentaBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_DarCodigoContableTiendaDelta, TDarCodigoContableTiendaBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_DarMaxRefSubCuentaDelta, TDarMaxRefSubCuentaBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ExisteSubCuentaDelta, TExisteSubCuentaBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_DiarioDelta, TDiarioBusinessProcessorRules); RegisterBusinessProcessorRules(RID_DiarioDelta, TDiarioBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ApuntesDelta, TApuntesBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ApuntesDelta, TApuntesBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_AsientosDelta, TAsientosBusinessProcessorRules); RegisterBusinessProcessorRules(RID_AsientosDelta, TAsientosBusinessProcessorRules);

9
Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.dfm
View File

@ -543,6 +543,10 @@ object srvContabilidad: TsrvContabilidad
item item
DatasetField = 'ID_PAGO' DatasetField = 'ID_PAGO'
TableField = 'ID_PAGO' TableField = 'ID_PAGO'
end
item
DatasetField = 'SUBCUENTA'
TableField = 'SUBCUENTA'
end> end>
end> end>
Name = 'Diario' Name = 'Diario'
@ -581,6 +585,11 @@ object srvContabilidad: TsrvContabilidad
DataType = datString DataType = datString
Size = 15 Size = 15
end end
item
Name = 'SUBCUENTA'
DataType = datString
Size = 255
end
item item
Name = 'ID_EJERCICIO' Name = 'ID_EJERCICIO'
DataType = datInteger DataType = datInteger

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

@ -1136,139 +1136,104 @@ object RptFacturasCliente: TRptFacturasCliente
PrintOptions.Printer = 'Default' PrintOptions.Printer = 'Default'
PrintOptions.PrintOnSheet = 0 PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 37871.995398692100000000 ReportOptions.CreateDate = 37871.995398692100000000
ReportOptions.LastChange = 39455.745879444450000000 ReportOptions.Description.Strings = (
'Demonstrates how to create simple list report.')
ReportOptions.LastChange = 39513.490255706020000000
ReportOptions.VersionBuild = '1' ReportOptions.VersionBuild = '1'
ReportOptions.VersionMajor = '12' ReportOptions.VersionMajor = '12'
ReportOptions.VersionMinor = '13' ReportOptions.VersionMinor = '13'
ReportOptions.VersionRelease = '1' ReportOptions.VersionRelease = '1'
ScriptLanguage = 'PascalScript' ScriptLanguage = 'PascalScript'
ScriptText.Strings = ( ScriptText.Strings = (
'procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);'
'begin'
' 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'
' Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSummary1' +
'.Height - 1;'
'end;'
''
'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);' 'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);'
'var' 'var'
' Cadena: String;' ' Cadena: String;'
'begin' 'begin'
' DatosEmpresa.Lines.Clear;' ' DatosEmpresa.Lines.Clear;'
' DatosEmpresa.Lines.Add(<frxDBCabecera."RAZON_SOCIAL">);' ' DatosEmpresa.Lines.Add(<frxDBCabecera."RAZON_SOCIAL">);'
''
' Cadena := <frxDBCabecera."CALLE_EMPRESA"> + '#39' - '#39' + <frxDBCabe' + ' DatosEmpresa.Lines.Add(<frxDBCabecera."CALLE_EMPRESA"> + '#39' - '#39 +
'cera."CODIGO_POSTAL_EMPRESA"> + '#39' '#39' + <frxDBCabecera."POBLACION_' + ' + <frxDBCabecera."CODIGO_POSTAL_EMPRESA"> + '#39' '#39' + <frxDBCabecer' +
'EMPRESA">;' 'a."POBLACION_EMPRESA">);'
' DatosEmpresa.Lines.Add(Cadena);' ''
' '
' Cadena := '#39#39';' ' Cadena := '#39#39';'
' if (<frxDBCabecera."TELEFONO_1"> <> '#39#39') then' ' if (<frxDBCabecera."TELEFONO_1"> <> '#39#39') then'
' Cadena := '#39'Telf: '#39' + <frxDBCabecera."TELEFONO_1">;' ' Cadena := '#39'TLF: '#39' + <frxDBCabecera."TELEFONO_1">;'
' if (<frxDBCabecera."MOVIL_1"> <> '#39#39') then' ' if (<frxDBCabecera."FAX"> <> '#39#39') then'
' Cadena := Cadena + '#39' / '#39' + <frxDBCabecera."MOVIL_1">;' ' Cadena := Cadena + '#39' FAX: '#39' + <frxDBCabecera."FAX">;'
' DatosEmpresa.Lines.Add(Cadena);' ' DatosEmpresa.Lines.Add(Cadena);'
''
' Cadena := '#39#39'; '
' if (<frxDBCabecera."EMAIL_1"> <> '#39#39') then'
' Cadena := '#39'E-Mail: '#39' + <frxDBCabecera."EMAIL_1">;'
' DatosEmpresa.Lines.Add(Cadena);'
''
' Cadena := '#39#39'; '
' if (<frxDBCabecera."PAGINA_WEB"> <> '#39#39') then'
' Cadena := '#39'Web: '#39' + <frxDBCabecera."PAGINA_WEB">;'
' DatosEmpresa.Lines.Add(Cadena); '
'end;' 'end;'
'' ''
'procedure Memo15OnBeforePrint(Sender: TfrxComponent);' 'procedure Memo54OnBeforePrint(Sender: TfrxComponent);'
'begin' 'begin'
' Memo15.Lines.Clear;' ' if (<frxDBCompensados."REFERENCIA"> <> '#39#39') then'
' if (StrToFloat(<frxDBCabecera."BASE_IMPONIBLE">) < 0) then' ' Memo54.Text := '#39'Recibos compensados'#39';'
' Memo15.Lines.Add('#39'ABONO'#39')'
' else'
' Memo15.Lines.Add('#39'FACTURA'#39')'
'end;' 'end;'
'' ''
'procedure Memo20OnBeforePrint(Sender: TfrxComponent);' 'procedure EtiCompensadoOnBeforePrint(Sender: TfrxComponent);'
'begin' 'begin'
' if (StrToFloat(<frxDBCabecera."RE">) = 0) then' ' if (<frxDBCabecera."REFERENCIA_REC_COMPENSADO"> = '#39#39') then'
' begin' ' begin'
' Memo20.Lines.Clear;' ' EtiCompensado.Visible := False;'
' Memo28.Lines.Clear;' ' EtiCompensado2.Visible := False;'
' Memo21.Lines.Clear;'
' Memo29.Lines.Clear;'
' end;' ' end;'
''
'end;' 'end;'
'' ''
'procedure Band2OnBeforePrint(Sender: TfrxComponent);' 'procedure Memo55OnBeforePrint(Sender: TfrxComponent);'
'begin' 'begin'
' if not Engine.FinalPass then' ' if (<frxDBCabecera."REFERENCIA_REC_COMPENSADO"> <> '#39#39') then'
' Set('#39'TotalPaginas'#39', (<TotalPaginas> + 1));' ' begin'
''
' if Engine.FinalPass then' ' Memo55.Text := '#39'( Compensado en el recibo '#39' + <frxDBCabecer' +
' Set('#39'Pagina'#39', (<Pagina> + 1));' 'a."REFERENCIA_REC_COMPENSADO"> + '#39' )'#39';'
' Memo1.Text := '#39'( Compensado en el recibo '#39' + <frxDBCabecera' +
'."REFERENCIA_REC_COMPENSADO"> + '#39' )'#39';'
' end;'
'end;' 'end;'
'' ''
'procedure frxReportOnStartReport(Sender: TfrxComponent);' 'procedure Memo40OnBeforePrint(Sender: TfrxComponent);'
'begin' 'begin'
' Set('#39'Pagina'#39', 0);' ' if (<frxDBCabecera."ID_FACTURA"> < 1) then'
' Set('#39'TotalPaginas'#39', 0);' ' begin'
' Memo40.visible := False;'
' Memo25.visible := False; '
' eFormaPagoFactura.visible := False;'
' Memo26.visible := False; '
' end'
'end;'
''
'procedure Memo35OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if (<frxDBCabecera."ID_FACTURA"> < 1) then'
' begin'
' Memo35.visible := False;'
' Memo44.visible := False; '
' eFechaFactura.visible := False;'
' Memo47.visible := False; '
' end'
'end;'
''
'procedure Memo42OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if (<frxDBCabecera."ID_FACTURA"> < 1) then'
' begin'
' Memo42.visible := False; ' +
' '
' Memo45.visible := False;'
' Memo38.visible := False;'
' Memo39.visible := False;'
' Memo43.visible := False;'
''
' Memo27.visible := False; ' +
' '
' Memo28.visible := False;'
' Memo48.visible := False;'
' Memo49.visible := False;'
' Memo52.visible := False; '
' end;'
'end;' 'end;'
'' ''
'begin' 'begin'
@ -1276,7 +1241,6 @@ object RptFacturasCliente: TRptFacturasCliente
'end.') 'end.')
ShowProgress = False ShowProgress = False
StoreInDFM = False StoreInDFM = False
OnStartReport = 'frxReportOnStartReport'
Left = 169 Left = 169
Top = 16 Top = 16
end end

103
Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm
View File

@ -1,20 +1,21 @@
inherited frViewReciboCliente: TfrViewReciboCliente inherited frViewReciboCliente: TfrViewReciboCliente
Width = 899 Width = 905
Height = 509 Height = 509
ExplicitWidth = 899 ExplicitWidth = 905
ExplicitHeight = 509 ExplicitHeight = 509
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 899 Width = 905
Height = 509 Height = 509
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 899
DesignSize = ( DesignSize = (
899 905
509) 509)
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 120 Left = 120
@ -92,7 +93,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
end end
object memObservaciones: TcxDBMemo object memObservaciones: TcxDBMemo
Left = 22 Left = 22
Top = 267 Top = 338
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -104,12 +105,12 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7 TabOrder = 8
Height = 49 Height = 49
Width = 274 Width = 274
end end
object eFechaEmision: TcxDBTextEdit object eFechaEmision: TcxDBTextEdit
Left = 661 Left = 631
Top = 30 Top = 30
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_FACTURA' DataBinding.DataField = 'FECHA_FACTURA'
@ -131,11 +132,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 8 TabOrder = 9
Width = 20 Width = 20
end end
object eFormaPago: TcxDBTextEdit object eFormaPago: TcxDBTextEdit
Left = 661 Left = 631
Top = 57 Top = 57
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FORMA_PAGO_FACTURA' DataBinding.DataField = 'FORMA_PAGO_FACTURA'
@ -157,11 +158,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 9 TabOrder = 10
Width = 42 Width = 42
end end
object eImporteTotal: TcxDBCurrencyEdit object eImporteTotal: TcxDBCurrencyEdit
Left = 661 Left = 631
Top = 84 Top = 84
AutoSize = False AutoSize = False
DataBinding.DataField = 'IMPORTE_FACTURA' DataBinding.DataField = 'IMPORTE_FACTURA'
@ -188,12 +189,12 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleDisabled.TextColor = clWindowText StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 10 TabOrder = 11
Height = 21 Height = 21
Width = 182 Width = 182
end end
object eNombreCliente: TcxDBTextEdit object eNombreCliente: TcxDBTextEdit
Left = 661 Left = 631
Top = 167 Top = 167
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'NOMBRE_CLIENTE' DataBinding.DataField = 'NOMBRE_CLIENTE'
@ -215,11 +216,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 12 TabOrder = 13
Width = 171 Width = 171
end end
object eNifCif: TcxDBTextEdit object eNifCif: TcxDBTextEdit
Left = 661 Left = 631
Top = 140 Top = 140
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'NIF_CIF_CLIENTE' DataBinding.DataField = 'NIF_CIF_CLIENTE'
@ -241,11 +242,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 11 TabOrder = 12
Width = 147 Width = 147
end end
object eEntidad: TcxDBTextEdit object eEntidad: TcxDBTextEdit
Left = 661 Left = 631
Top = 194 Top = 194
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'ENTIDAD_CLIENTE' DataBinding.DataField = 'ENTIDAD_CLIENTE'
@ -267,11 +268,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 13 TabOrder = 14
Width = 90 Width = 90
end end
object eSucursal: TcxDBTextEdit object eSucursal: TcxDBTextEdit
Left = 768 Left = 759
Top = 194 Top = 194
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'SUCURSAL_CLIENTE' DataBinding.DataField = 'SUCURSAL_CLIENTE'
@ -293,11 +294,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 14 TabOrder = 15
Width = 75 Width = 75
end end
object eDC: TcxDBTextEdit object eDC: TcxDBTextEdit
Left = 844 Left = 850
Top = 194 Top = 194
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'DC_CLIENTE' DataBinding.DataField = 'DC_CLIENTE'
@ -319,11 +320,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 15 TabOrder = 16
Width = 33 Width = 33
end end
object eCuenta: TcxDBTextEdit object eCuenta: TcxDBTextEdit
Left = 661 Left = 631
Top = 221 Top = 221
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'CUENTA_CLIENTE' DataBinding.DataField = 'CUENTA_CLIENTE'
@ -345,7 +346,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 16 TabOrder = 17
Width = 83 Width = 83
end end
object eRemesa: TcxDBTextEdit object eRemesa: TcxDBTextEdit
@ -426,7 +427,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Width = 191 Width = 191
end end
inline frViewClienteRecibo: TfrViewDatosYSeleccionCliente inline frViewClienteRecibo: TfrViewDatosYSeleccionCliente
Left = 585 Left = 555
Top = 281 Top = 281
Width = 350 Width = 350
Height = 212 Height = 212
@ -436,9 +437,9 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 17 TabOrder = 18
ReadOnly = False ReadOnly = False
ExplicitLeft = 585 ExplicitLeft = 555
ExplicitTop = 281 ExplicitTop = 281
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
@ -462,12 +463,12 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Width = 327 Width = 327
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 200 Left = 236
ExplicitLeft = 200 ExplicitLeft = 236
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 90 Left = 126
ExplicitLeft = 90 ExplicitLeft = 126
end end
end end
end end
@ -497,12 +498,43 @@ inherited frViewReciboCliente: TfrViewReciboCliente
TabOrder = 5 TabOrder = 5
Width = 437 Width = 437
end end
inline frViewTienda1: TfrViewTienda
Left = 120
Top = 267
Width = 451
Height = 41
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 7
ReadOnly = False
ExplicitLeft = 120
ExplicitTop = 267
inherited dxLayoutControl1: TdxLayoutControl
inherited cbTienda: TcxComboBox
Left = 10
ExplicitLeft = 10
ExplicitWidth = 200
Width = 200
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Item1: TdxLayoutItem
ShowCaption = False
end
end
end
end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControl1Group3: TdxLayoutGroup object dxLayoutControl1Group3: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahClient
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False
@ -556,6 +588,15 @@ inherited frViewReciboCliente: TfrViewReciboCliente
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControl1Group5: TdxLayoutGroup
Caption = 'El recibo pertenece a la tienda'
object dxLayoutControl1Item18: TdxLayoutItem
Caption = 'Tienda:'
Control = frViewTienda1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group7: TdxLayoutGroup object dxLayoutControl1Group7: TdxLayoutGroup
Caption = 'Observaciones' Caption = 'Observaciones'
object dxLayoutControl1Item5: TdxLayoutItem object dxLayoutControl1Item5: TdxLayoutItem

12
Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.pas
View File

@ -7,7 +7,8 @@ uses
Dialogs, uViewBase, uBizRecibosCliente, DB, uDADataTable, dxLayoutControl, Dialogs, uViewBase, uBizRecibosCliente, DB, uDADataTable, dxLayoutControl,
cxControls, cxCurrencyEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit, cxControls, cxCurrencyEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit,
cxCalendar, cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, ExtCtrls, cxCalendar, cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, ExtCtrls,
uDAInterfaces, uCustomView, uViewDatosYSeleccionCliente, uRecibosClienteController; uDAInterfaces, uCustomView, uViewDatosYSeleccionCliente, uRecibosClienteController,
uViewTienda;
type type
IViewReciboCliente = interface(IViewBase) IViewReciboCliente = interface(IViewBase)
@ -74,6 +75,9 @@ type
dxLayoutControlClienteModif: TdxLayoutGroup; dxLayoutControlClienteModif: TdxLayoutGroup;
dxLayoutControl1Item17: TdxLayoutItem; dxLayoutControl1Item17: TdxLayoutItem;
eDescripcion: TcxDBTextEdit; eDescripcion: TcxDBTextEdit;
dxLayoutControl1Item18: TdxLayoutItem;
frViewTienda1: TfrViewTienda;
dxLayoutControl1Group5: TdxLayoutGroup;
private private
FRecibo : IBizRecibosCliente; FRecibo : IBizRecibosCliente;
FController : IRecibosClienteController; FController : IRecibosClienteController;
@ -119,7 +123,7 @@ procedure TfrViewReciboCliente.SetRecibo(const Value: IBizRecibosCliente);
begin begin
FRecibo := Value; FRecibo := Value;
//Por defecto //Por defecto
dxLayoutControlFactura.Visible := true; dxLayoutControlFactura.Visible := true;
dxLayoutControlCliente.Visible := true; dxLayoutControlCliente.Visible := true;
dxLayoutControlClienteModif.Visible := false; dxLayoutControlClienteModif.Visible := false;
@ -128,12 +132,14 @@ begin
if Assigned(FRecibo) then if Assigned(FRecibo) then
begin begin
DADataSource.DataTable := FRecibo.DataTable; DADataSource.DataTable := FRecibo.DataTable;
frViewTienda1.DataItem := FRecibo.DataTable;
if FRecibo.SinFactura then if FRecibo.SinFactura then
begin begin
dxLayoutControlFactura.Visible := false; dxLayoutControlFactura.Visible := false;
dxLayoutControlCliente.Visible := false; dxLayoutControlCliente.Visible := false;
dxLayoutControlClienteModif.Visible := true; dxLayoutControlClienteModif.Visible := true;
eDescripcion.Enabled := True; eDescripcion.Enabled := True;
end; end;
end end
else else

21
Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm
View File

@ -48,6 +48,15 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
DataBinding.FieldName = 'REFERENCIA' DataBinding.FieldName = 'REFERENCIA'
Width = 64 Width = 64
end end
object cxGridViewID_TIENDA: TcxGridDBColumn
DataBinding.FieldName = 'ID_TIENDA'
Visible = False
VisibleForCustomization = False
end
object cxGridViewTIENDA: TcxGridDBColumn
Caption = 'Tienda'
DataBinding.FieldName = 'TIENDA'
end
object cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn object cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn
Caption = 'Compensado' Caption = 'Compensado'
DataBinding.FieldName = 'ID_RECIBO_COMPENSADO' DataBinding.FieldName = 'ID_RECIBO_COMPENSADO'
@ -161,9 +170,17 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 531 Width = 531
ExplicitWidth = 531 ExplicitWidth = 531
inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273
Width = 273
end
inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 287 Left = 229
ExplicitLeft = 287 ExplicitLeft = 229
ExplicitWidth = 287 ExplicitWidth = 287
Width = 287 Width = 287
end end

4
Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas
View File

@ -49,6 +49,8 @@ type
TBXSeparatorItem1: TTBXSeparatorItem; TBXSeparatorItem1: TTBXSeparatorItem;
cxGridViewREFERENCIA_REC_COMPENSADO: TcxGridDBColumn; cxGridViewREFERENCIA_REC_COMPENSADO: TcxGridDBColumn;
cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn; cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn;
cxGridViewTIENDA: TcxGridDBColumn;
cxGridViewID_TIENDA: TcxGridDBColumn;
procedure cxGridViewICONOCustomDrawCell(Sender: TcxCustomGridTableView; procedure cxGridViewICONOCustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean); var ADone: Boolean);
@ -154,7 +156,7 @@ begin
if cxGridView.DataController.Filter.IsEmpty if cxGridView.DataController.Filter.IsEmpty
then cxGridView.DataController.Filter.Active := False then cxGridView.DataController.Filter.Active := False
else cxGridView.DataController.Filter.Active := True; else cxGridView.DataController.Filter.Active := True;
// cxGrid.ActiveLevel.GridView := cxGridView; cxGrid.ActiveLevel.GridView := cxGridView;
end; end;
procedure TfrViewRecibosCliente.cxGridActiveTabChanged(Sender: TcxCustomGrid; procedure TfrViewRecibosCliente.cxGridActiveTabChanged(Sender: TcxCustomGrid;

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -86,8 +86,6 @@ uses
srvUnidadesMedida_Impl in '..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas' {srvUnidadesMedida: TDataAbstractService}, srvUnidadesMedida_Impl in '..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas' {srvUnidadesMedida: TDataAbstractService},
schUnidadesMedidaClient_Intf in '..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas', schUnidadesMedidaClient_Intf in '..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas',
schUnidadesMedidaServer_Intf in '..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas', schUnidadesMedidaServer_Intf in '..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas',
schContabilidadClient_Intf in '..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas',
schContabilidadServer_Intf in '..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas',
uBizPagosProveedorServer in '..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas', uBizPagosProveedorServer in '..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas',
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas', schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas', schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
@ -118,7 +116,9 @@ uses
schReferenciasClient_Intf in '..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas', schReferenciasClient_Intf in '..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas',
schReferenciasServer_Intf in '..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas', schReferenciasServer_Intf in '..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas', schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas'; schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schContabilidadClient_Intf in '..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas',
schContabilidadServer_Intf in '..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

12
Source/Servidor/FactuGES_Server.dproj
View File

@ -30,18 +30,6 @@
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><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">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 19 de noviembre de 2007 18:58</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><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">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 19 de noviembre de 2007 18:58</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>