Subida con informes a medias
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@167 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
parent
a7b0674f9d
commit
d075acb0e8
File diff suppressed because it is too large
Load Diff
@ -65,48 +65,48 @@
|
||||
<DelphiCompile Include="Base.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</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="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">
|
||||
<Form>fConfigurarConexion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
|
||||
File diff suppressed because one or more lines are too long
@ -48,20 +48,20 @@
|
||||
<DelphiCompile Include="Contabilidad_data.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Model\adortl.dcp" />
|
||||
<DCCReference Include="..\Model\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\Model\Base.dcp" />
|
||||
<DCCReference Include="..\Model\Contabilidad_model.dcp" />
|
||||
<DCCReference Include="..\Model\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Model\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Model\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Model\dsnap.dcp" />
|
||||
<DCCReference Include="..\Model\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Model\GUIBase.dcp" />
|
||||
<DCCReference Include="..\Model\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Model\rtl.dcp" />
|
||||
<DCCReference Include="..\Model\vcl.dcp" />
|
||||
<DCCReference Include="..\Model\vcldb.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Contabilidad_model.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\dsnap.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.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\vcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
||||
<DCCReference Include="uDataModuleContabilidad.pas">
|
||||
<Form>DataModuleContabilidad</Form>
|
||||
<DesignClass>TDAClientDataModule</DesignClass>
|
||||
|
||||
Binary file not shown.
@ -560,6 +560,11 @@ inherited DataModuleContabilidad: TDataModuleContabilidad
|
||||
DataType = datString
|
||||
Size = 15
|
||||
end
|
||||
item
|
||||
Name = 'SUBCUENTA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'ID_EJERCICIO'
|
||||
DataType = datInteger
|
||||
|
||||
@ -3,22 +3,30 @@ unit schContabilidadClient_Intf;
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
|
||||
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
|
||||
|
||||
const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_Diario = '{E3FBF49B-23D0-4E34-823E-92BECF9F1673}';
|
||||
RID_Apuntes = '{DE259EA8-E9C6-4C39-B361-1B6276E0C03F}';
|
||||
RID_Asientos = '{5A82C5D1-212E-48D6-B269-FD8EB5F67142}';
|
||||
RID_SubCuentas = '{931ADB71-BB8F-411F-830B-2B4293482E98}';
|
||||
RID_Cuentas = '{D676C38D-317F-4DC6-9682-7199231F842F}';
|
||||
RID_CuentasEspeciales = '{154759A2-3716-4C80-AE27-38C585EDD40B}';
|
||||
RID_Epigrafes = '{384C5F4E-4229-4B0E-97A4-FC4EFAB46A72}';
|
||||
RID_Balances = '{B2334E4B-CC6F-42B9-9F42-6C096DFF25E3}';
|
||||
RID_DarIDCuenta = '{62580F41-3FD3-42D1-9D19-D5088B529E2B}';
|
||||
RID_DarCodigoContableTienda = '{18EAEDB3-6482-4451-9F51-1771AFB07AF9}';
|
||||
RID_DarMaxRefSubCuenta = '{28A1162D-F15C-4533-81F0-49C61A40C975}';
|
||||
RID_ExisteSubCuenta = '{33F3DD94-075A-4EF5-A9D7-901A5B762506}';
|
||||
RID_Diario = '{08A2E65A-5D6A-47F9-834F-F764900C9DD9}';
|
||||
RID_Apuntes = '{70944570-6902-4449-B652-FF4F8F36FF63}';
|
||||
RID_Asientos = '{78A6C952-897F-4CD4-89CF-D408E25D418E}';
|
||||
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 }
|
||||
nme_DarIDCuenta = 'DarIDCuenta';
|
||||
nme_DarCodigoContableTienda = 'DarCodigoContableTienda';
|
||||
nme_DarMaxRefSubCuenta = 'DarMaxRefSubCuenta';
|
||||
nme_ExisteSubCuenta = 'ExisteSubCuenta';
|
||||
nme_Diario = 'Diario';
|
||||
nme_Apuntes = 'Apuntes';
|
||||
nme_Asientos = 'Asientos';
|
||||
@ -28,6 +36,30 @@ const
|
||||
nme_Epigrafes = 'Epigrafes';
|
||||
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 }
|
||||
fld_DiarioID_APUNTE = 'ID_APUNTE';
|
||||
fld_DiarioID_ASIENTO = 'ID_ASIENTO';
|
||||
@ -37,6 +69,7 @@ const
|
||||
fld_DiarioFECHA_ASIENTO = 'FECHA_ASIENTO';
|
||||
fld_DiarioID_SUBCUENTA = 'ID_SUBCUENTA';
|
||||
fld_DiarioREF_SUBCUENTA = 'REF_SUBCUENTA';
|
||||
fld_DiarioSUBCUENTA = 'SUBCUENTA';
|
||||
fld_DiarioID_EJERCICIO = 'ID_EJERCICIO';
|
||||
fld_DiarioCONCEPTO = 'CONCEPTO';
|
||||
fld_DiarioDOCUMENTO = 'DOCUMENTO';
|
||||
@ -53,12 +86,13 @@ const
|
||||
idx_DiarioFECHA_ASIENTO = 5;
|
||||
idx_DiarioID_SUBCUENTA = 6;
|
||||
idx_DiarioREF_SUBCUENTA = 7;
|
||||
idx_DiarioID_EJERCICIO = 8;
|
||||
idx_DiarioCONCEPTO = 9;
|
||||
idx_DiarioDOCUMENTO = 10;
|
||||
idx_DiarioDEBE = 11;
|
||||
idx_DiarioHABER = 12;
|
||||
idx_DiarioPUNTEADO = 13;
|
||||
idx_DiarioSUBCUENTA = 8;
|
||||
idx_DiarioID_EJERCICIO = 9;
|
||||
idx_DiarioCONCEPTO = 10;
|
||||
idx_DiarioDOCUMENTO = 11;
|
||||
idx_DiarioDEBE = 12;
|
||||
idx_DiarioHABER = 13;
|
||||
idx_DiarioPUNTEADO = 14;
|
||||
|
||||
{ Apuntes fields }
|
||||
fld_ApuntesID = 'ID';
|
||||
@ -199,9 +233,149 @@ const
|
||||
idx_BalancesDESCRIPCION3 = 8;
|
||||
|
||||
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 = interface(IDAStronglyTypedDataTable)
|
||||
['{16823056-4DCD-43B4-B86B-5D0030F56088}']
|
||||
['{3E328181-3908-4A59-AEAC-B669B49E0B9C}']
|
||||
{ Property getters and setters }
|
||||
function GetID_APUNTEValue: Integer;
|
||||
procedure SetID_APUNTEValue(const aValue: Integer);
|
||||
@ -235,6 +409,10 @@ type
|
||||
procedure SetREF_SUBCUENTAValue(const aValue: String);
|
||||
function GetREF_SUBCUENTAIsNull: 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;
|
||||
procedure SetID_EJERCICIOValue(const aValue: Integer);
|
||||
function GetID_EJERCICIOIsNull: Boolean;
|
||||
@ -278,6 +456,8 @@ type
|
||||
property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
|
||||
property REF_SUBCUENTA: String read GetREF_SUBCUENTAValue write SetREF_SUBCUENTAValue;
|
||||
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_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
|
||||
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
|
||||
@ -293,7 +473,7 @@ type
|
||||
end;
|
||||
|
||||
{ TDiarioDataTableRules }
|
||||
TDiarioDataTableRules = class(TIntfObjectDADataTableRules, IDiario)
|
||||
TDiarioDataTableRules = class(TDADataTableRules, IDiario)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -329,6 +509,10 @@ type
|
||||
procedure SetREF_SUBCUENTAValue(const aValue: String); virtual;
|
||||
function GetREF_SUBCUENTAIsNull: 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;
|
||||
procedure SetID_EJERCICIOValue(const aValue: Integer); virtual;
|
||||
function GetID_EJERCICIOIsNull: Boolean; virtual;
|
||||
@ -371,6 +555,8 @@ type
|
||||
property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
|
||||
property REF_SUBCUENTA: String read GetREF_SUBCUENTAValue write SetREF_SUBCUENTAValue;
|
||||
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_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
|
||||
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
|
||||
@ -392,7 +578,7 @@ type
|
||||
|
||||
{ IApuntes }
|
||||
IApuntes = interface(IDAStronglyTypedDataTable)
|
||||
['{8BDA0F63-7D8D-4969-94E3-1909589C1EBC}']
|
||||
['{2C752BCD-2FE5-4E3C-A994-21763634B4B4}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -466,7 +652,7 @@ type
|
||||
end;
|
||||
|
||||
{ TApuntesDataTableRules }
|
||||
TApuntesDataTableRules = class(TIntfObjectDADataTableRules, IApuntes)
|
||||
TApuntesDataTableRules = class(TDADataTableRules, IApuntes)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -547,7 +733,7 @@ type
|
||||
|
||||
{ IAsientos }
|
||||
IAsientos = interface(IDAStronglyTypedDataTable)
|
||||
['{DB9AA9F6-57AC-4EC7-91A2-C64C8CE9471E}']
|
||||
['{C934D5E4-593C-44A8-AFE3-5D6E6AF7E945}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -585,7 +771,7 @@ type
|
||||
end;
|
||||
|
||||
{ TAsientosDataTableRules }
|
||||
TAsientosDataTableRules = class(TIntfObjectDADataTableRules, IAsientos)
|
||||
TAsientosDataTableRules = class(TDADataTableRules, IAsientos)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -630,7 +816,7 @@ type
|
||||
|
||||
{ ISubCuentas }
|
||||
ISubCuentas = interface(IDAStronglyTypedDataTable)
|
||||
['{03047C67-9FEF-4ECE-8345-18EA5CD637FC}']
|
||||
['{E41AB2AB-D4B5-4856-A973-AA1E965D808E}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -704,7 +890,7 @@ type
|
||||
end;
|
||||
|
||||
{ TSubCuentasDataTableRules }
|
||||
TSubCuentasDataTableRules = class(TIntfObjectDADataTableRules, ISubCuentas)
|
||||
TSubCuentasDataTableRules = class(TDADataTableRules, ISubCuentas)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -785,7 +971,7 @@ type
|
||||
|
||||
{ ICuentas }
|
||||
ICuentas = interface(IDAStronglyTypedDataTable)
|
||||
['{6B9F3F8F-42C6-4E44-A3AE-B0C3404B008D}']
|
||||
['{FEECE0E7-F491-4703-908B-B7DF3D7C34C9}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -853,7 +1039,7 @@ type
|
||||
end;
|
||||
|
||||
{ TCuentasDataTableRules }
|
||||
TCuentasDataTableRules = class(TIntfObjectDADataTableRules, ICuentas)
|
||||
TCuentasDataTableRules = class(TDADataTableRules, ICuentas)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -928,7 +1114,7 @@ type
|
||||
|
||||
{ ICuentasEspeciales }
|
||||
ICuentasEspeciales = interface(IDAStronglyTypedDataTable)
|
||||
['{5C46D55F-121A-4659-9A25-804952D79149}']
|
||||
['{038D2C36-A99D-4610-86BE-164FAB17D8AB}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -954,7 +1140,7 @@ type
|
||||
end;
|
||||
|
||||
{ TCuentasEspecialesDataTableRules }
|
||||
TCuentasEspecialesDataTableRules = class(TIntfObjectDADataTableRules, ICuentasEspeciales)
|
||||
TCuentasEspecialesDataTableRules = class(TDADataTableRules, ICuentasEspeciales)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -987,7 +1173,7 @@ type
|
||||
|
||||
{ IEpigrafes }
|
||||
IEpigrafes = interface(IDAStronglyTypedDataTable)
|
||||
['{F85F5AE6-A7A9-4756-BEC2-B1BCD3729406}']
|
||||
['{0947FB8E-C7C3-4368-BE6F-7C2E8075F640}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1031,7 +1217,7 @@ type
|
||||
end;
|
||||
|
||||
{ TEpigrafesDataTableRules }
|
||||
TEpigrafesDataTableRules = class(TIntfObjectDADataTableRules, IEpigrafes)
|
||||
TEpigrafesDataTableRules = class(TDADataTableRules, IEpigrafes)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -1082,7 +1268,7 @@ type
|
||||
|
||||
{ IBalances }
|
||||
IBalances = interface(IDAStronglyTypedDataTable)
|
||||
['{C3FB6124-7643-4B1E-81A4-AEA3864E4E1C}']
|
||||
['{DF56D273-9C7B-4311-A581-31E679681E5A}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1144,7 +1330,7 @@ type
|
||||
end;
|
||||
|
||||
{ TBalancesDataTableRules }
|
||||
TBalancesDataTableRules = class(TIntfObjectDADataTableRules, IBalances)
|
||||
TBalancesDataTableRules = class(TDADataTableRules, IBalances)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -1215,6 +1401,138 @@ implementation
|
||||
|
||||
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 }
|
||||
constructor TDiarioDataTableRules.Create(aDataTable: TDADataTable);
|
||||
begin
|
||||
@ -1394,6 +1712,27 @@ begin
|
||||
DataTable.Fields[idx_DiarioREF_SUBCUENTA].AsVariant := Null;
|
||||
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;
|
||||
begin
|
||||
result := DataTable.Fields[idx_DiarioID_EJERCICIO].AsInteger;
|
||||
@ -2761,6 +3100,10 @@ end;
|
||||
|
||||
|
||||
initialization
|
||||
RegisterDataTableRules(RID_DarIDCuenta, TDarIDCuentaDataTableRules);
|
||||
RegisterDataTableRules(RID_DarCodigoContableTienda, TDarCodigoContableTiendaDataTableRules);
|
||||
RegisterDataTableRules(RID_DarMaxRefSubCuenta, TDarMaxRefSubCuentaDataTableRules);
|
||||
RegisterDataTableRules(RID_ExisteSubCuenta, TExisteSubCuentaDataTableRules);
|
||||
RegisterDataTableRules(RID_Diario, TDiarioDataTableRules);
|
||||
RegisterDataTableRules(RID_Apuntes, TApuntesDataTableRules);
|
||||
RegisterDataTableRules(RID_Asientos, TAsientosDataTableRules);
|
||||
|
||||
@ -9,19 +9,159 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_DiarioDelta = '{0882ADEE-9AC8-4ABF-932B-341B3C4DD929}';
|
||||
RID_ApuntesDelta = '{FFCEAAC4-532B-4238-8141-7A1B2E65D1D8}';
|
||||
RID_AsientosDelta = '{ED941252-D8EA-41E5-9EEB-3B4AB1CFB04A}';
|
||||
RID_SubCuentasDelta = '{E4BAB612-0B84-49D5-B5F7-ACA3B30F0DDE}';
|
||||
RID_CuentasDelta = '{5A5D97B0-25D5-4BFA-8974-C9EBAD102FAD}';
|
||||
RID_CuentasEspecialesDelta = '{E9896ABE-59CA-40BF-888C-FFA0D0AB9D98}';
|
||||
RID_EpigrafesDelta = '{52C0B7AD-1BC3-4ED0-B931-34CD705F2839}';
|
||||
RID_BalancesDelta = '{29FAB9BD-5A16-46D4-98CD-ABFB8A584AE7}';
|
||||
RID_DarIDCuentaDelta = '{E61FFC34-78E1-4E47-873B-26A3866D714B}';
|
||||
RID_DarCodigoContableTiendaDelta = '{9B4CCB90-6621-48DE-83B9-C1EE6E9A3DC6}';
|
||||
RID_DarMaxRefSubCuentaDelta = '{23178B29-2EFE-41DA-BCFF-0B12BB3BF392}';
|
||||
RID_ExisteSubCuentaDelta = '{448B8958-98BA-4340-8D03-FDD4817E637B}';
|
||||
RID_DiarioDelta = '{699B3B97-2CC2-429A-B275-63EAB604D199}';
|
||||
RID_ApuntesDelta = '{CC4B622A-A26E-41A5-ACDC-D838185BB681}';
|
||||
RID_AsientosDelta = '{5FC14F81-E72E-4662-80EC-38459AB23915}';
|
||||
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
|
||||
{ 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 = interface(IDiario)
|
||||
['{0882ADEE-9AC8-4ABF-932B-341B3C4DD929}']
|
||||
['{699B3B97-2CC2-429A-B275-63EAB604D199}']
|
||||
{ Property getters and setters }
|
||||
function GetOldID_APUNTEValue : Integer;
|
||||
function GetOldID_ASIENTOValue : Integer;
|
||||
@ -31,6 +171,7 @@ type
|
||||
function GetOldFECHA_ASIENTOValue : DateTime;
|
||||
function GetOldID_SUBCUENTAValue : Integer;
|
||||
function GetOldREF_SUBCUENTAValue : String;
|
||||
function GetOldSUBCUENTAValue : String;
|
||||
function GetOldID_EJERCICIOValue : Integer;
|
||||
function GetOldCONCEPTOValue : String;
|
||||
function GetOldDOCUMENTOValue : String;
|
||||
@ -47,6 +188,7 @@ type
|
||||
property OldFECHA_ASIENTO : DateTime read GetOldFECHA_ASIENTOValue;
|
||||
property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue;
|
||||
property OldREF_SUBCUENTA : String read GetOldREF_SUBCUENTAValue;
|
||||
property OldSUBCUENTA : String read GetOldSUBCUENTAValue;
|
||||
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
|
||||
property OldCONCEPTO : String read GetOldCONCEPTOValue;
|
||||
property OldDOCUMENTO : String read GetOldDOCUMENTOValue;
|
||||
@ -108,6 +250,12 @@ type
|
||||
function GetOldREF_SUBCUENTAIsNull: Boolean; virtual;
|
||||
procedure SetREF_SUBCUENTAValue(const aValue: String); 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_EJERCICIOIsNull: Boolean; virtual;
|
||||
function GetOldID_EJERCICIOValue: Integer; virtual;
|
||||
@ -178,6 +326,10 @@ type
|
||||
property REF_SUBCUENTAIsNull : Boolean read GetREF_SUBCUENTAIsNull write SetREF_SUBCUENTAIsNull;
|
||||
property OldREF_SUBCUENTA : String read GetOldREF_SUBCUENTAValue;
|
||||
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_EJERCICIOIsNull : Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
|
||||
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
|
||||
@ -211,7 +363,7 @@ type
|
||||
|
||||
{ IApuntesDelta }
|
||||
IApuntesDelta = interface(IApuntes)
|
||||
['{FFCEAAC4-532B-4238-8141-7A1B2E65D1D8}']
|
||||
['{CC4B622A-A26E-41A5-ACDC-D838185BB681}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_ASIENTOValue : Integer;
|
||||
@ -365,7 +517,7 @@ type
|
||||
|
||||
{ IAsientosDelta }
|
||||
IAsientosDelta = interface(IAsientos)
|
||||
['{ED941252-D8EA-41E5-9EEB-3B4AB1CFB04A}']
|
||||
['{5FC14F81-E72E-4662-80EC-38459AB23915}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldFECHA_ASIENTOValue : DateTime;
|
||||
@ -447,7 +599,7 @@ type
|
||||
|
||||
{ ISubCuentasDelta }
|
||||
ISubCuentasDelta = interface(ISubCuentas)
|
||||
['{E4BAB612-0B84-49D5-B5F7-ACA3B30F0DDE}']
|
||||
['{FC32F9F6-0BC4-4BDC-8307-A47786D2E601}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldREF_SUBCUENTAValue : String;
|
||||
@ -601,7 +753,7 @@ type
|
||||
|
||||
{ ICuentasDelta }
|
||||
ICuentasDelta = interface(ICuentas)
|
||||
['{5A5D97B0-25D5-4BFA-8974-C9EBAD102FAD}']
|
||||
['{F030EAB1-8B4B-4E20-B8D9-BD41747561BC}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldREF_CUENTAValue : String;
|
||||
@ -743,7 +895,7 @@ type
|
||||
|
||||
{ ICuentasEspecialesDelta }
|
||||
ICuentasEspecialesDelta = interface(ICuentasEspeciales)
|
||||
['{E9896ABE-59CA-40BF-888C-FFA0D0AB9D98}']
|
||||
['{BDC3E113-F48D-459C-9208-C3502377511B}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldREFERENCIAValue : String;
|
||||
@ -801,7 +953,7 @@ type
|
||||
|
||||
{ IEpigrafesDelta }
|
||||
IEpigrafesDelta = interface(IEpigrafes)
|
||||
['{52C0B7AD-1BC3-4ED0-B931-34CD705F2839}']
|
||||
['{5099CA22-0F27-46FD-8B3A-C0C518E73AD7}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldREF_EPIGRAFEValue : String;
|
||||
@ -895,7 +1047,7 @@ type
|
||||
|
||||
{ IBalancesDelta }
|
||||
IBalancesDelta = interface(IBalances)
|
||||
['{29FAB9BD-5A16-46D4-98CD-ABFB8A584AE7}']
|
||||
['{348A53C4-FD53-4F33-9FC7-61369195ADEC}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldREF_BALANCEValue : String;
|
||||
@ -1028,6 +1180,178 @@ implementation
|
||||
uses
|
||||
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 }
|
||||
constructor TDiarioBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
begin
|
||||
@ -1287,6 +1611,37 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioREF_SUBCUENTA] := Null;
|
||||
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;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_EJERCICIO];
|
||||
@ -3264,6 +3619,10 @@ end;
|
||||
|
||||
|
||||
initialization
|
||||
RegisterBusinessProcessorRules(RID_DarIDCuentaDelta, TDarIDCuentaBusinessProcessorRules);
|
||||
RegisterBusinessProcessorRules(RID_DarCodigoContableTiendaDelta, TDarCodigoContableTiendaBusinessProcessorRules);
|
||||
RegisterBusinessProcessorRules(RID_DarMaxRefSubCuentaDelta, TDarMaxRefSubCuentaBusinessProcessorRules);
|
||||
RegisterBusinessProcessorRules(RID_ExisteSubCuentaDelta, TExisteSubCuentaBusinessProcessorRules);
|
||||
RegisterBusinessProcessorRules(RID_DiarioDelta, TDiarioBusinessProcessorRules);
|
||||
RegisterBusinessProcessorRules(RID_ApuntesDelta, TApuntesBusinessProcessorRules);
|
||||
RegisterBusinessProcessorRules(RID_AsientosDelta, TAsientosBusinessProcessorRules);
|
||||
|
||||
@ -543,6 +543,10 @@ object srvContabilidad: TsrvContabilidad
|
||||
item
|
||||
DatasetField = 'ID_PAGO'
|
||||
TableField = 'ID_PAGO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'SUBCUENTA'
|
||||
TableField = 'SUBCUENTA'
|
||||
end>
|
||||
end>
|
||||
Name = 'Diario'
|
||||
@ -581,6 +585,11 @@ object srvContabilidad: TsrvContabilidad
|
||||
DataType = datString
|
||||
Size = 15
|
||||
end
|
||||
item
|
||||
Name = 'SUBCUENTA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'ID_EJERCICIO'
|
||||
DataType = datInteger
|
||||
|
||||
@ -1136,139 +1136,104 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
PrintOptions.Printer = 'Default'
|
||||
PrintOptions.PrintOnSheet = 0
|
||||
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.VersionMajor = '12'
|
||||
ReportOptions.VersionMinor = '13'
|
||||
ReportOptions.VersionRelease = '1'
|
||||
ScriptLanguage = 'PascalScript'
|
||||
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);'
|
||||
'var'
|
||||
' Cadena: String;'
|
||||
'begin'
|
||||
' DatosEmpresa.Lines.Clear;'
|
||||
' DatosEmpresa.Lines.Add(<frxDBCabecera."RAZON_SOCIAL">);'
|
||||
''
|
||||
|
||||
' Cadena := <frxDBCabecera."CALLE_EMPRESA"> + '#39' - '#39' + <frxDBCabe' +
|
||||
'cera."CODIGO_POSTAL_EMPRESA"> + '#39' '#39' + <frxDBCabecera."POBLACION_' +
|
||||
'EMPRESA">;'
|
||||
' DatosEmpresa.Lines.Add(Cadena);'
|
||||
' '
|
||||
' DatosEmpresa.Lines.Add(<frxDBCabecera."CALLE_EMPRESA"> + '#39' - '#39 +
|
||||
' + <frxDBCabecera."CODIGO_POSTAL_EMPRESA"> + '#39' '#39' + <frxDBCabecer' +
|
||||
'a."POBLACION_EMPRESA">);'
|
||||
''
|
||||
' Cadena := '#39#39';'
|
||||
' if (<frxDBCabecera."TELEFONO_1"> <> '#39#39') then'
|
||||
' Cadena := '#39'Telf: '#39' + <frxDBCabecera."TELEFONO_1">;'
|
||||
' if (<frxDBCabecera."MOVIL_1"> <> '#39#39') then'
|
||||
' Cadena := Cadena + '#39' / '#39' + <frxDBCabecera."MOVIL_1">;'
|
||||
' Cadena := '#39'TLF: '#39' + <frxDBCabecera."TELEFONO_1">;'
|
||||
' if (<frxDBCabecera."FAX"> <> '#39#39') then'
|
||||
' Cadena := Cadena + '#39' FAX: '#39' + <frxDBCabecera."FAX">;'
|
||||
' 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;'
|
||||
''
|
||||
'procedure Memo15OnBeforePrint(Sender: TfrxComponent);'
|
||||
'procedure Memo54OnBeforePrint(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')'
|
||||
' if (<frxDBCompensados."REFERENCIA"> <> '#39#39') then'
|
||||
' Memo54.Text := '#39'Recibos compensados'#39';'
|
||||
'end;'
|
||||
''
|
||||
'procedure Memo20OnBeforePrint(Sender: TfrxComponent);'
|
||||
'procedure EtiCompensadoOnBeforePrint(Sender: TfrxComponent);'
|
||||
'begin'
|
||||
' if (StrToFloat(<frxDBCabecera."RE">) = 0) then'
|
||||
' if (<frxDBCabecera."REFERENCIA_REC_COMPENSADO"> = '#39#39') then'
|
||||
' begin'
|
||||
' Memo20.Lines.Clear;'
|
||||
' Memo28.Lines.Clear;'
|
||||
' Memo21.Lines.Clear;'
|
||||
' Memo29.Lines.Clear;'
|
||||
' EtiCompensado.Visible := False;'
|
||||
' EtiCompensado2.Visible := False;'
|
||||
' end;'
|
||||
''
|
||||
'end;'
|
||||
''
|
||||
'procedure Band2OnBeforePrint(Sender: TfrxComponent);'
|
||||
'procedure Memo55OnBeforePrint(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 (<frxDBCabecera."REFERENCIA_REC_COMPENSADO"> <> '#39#39') then'
|
||||
' begin'
|
||||
|
||||
' Memo55.Text := '#39'( Compensado en el recibo '#39' + <frxDBCabecer' +
|
||||
'a."REFERENCIA_REC_COMPENSADO"> + '#39' )'#39';'
|
||||
|
||||
' Memo1.Text := '#39'( Compensado en el recibo '#39' + <frxDBCabecera' +
|
||||
'."REFERENCIA_REC_COMPENSADO"> + '#39' )'#39';'
|
||||
' end;'
|
||||
'end;'
|
||||
''
|
||||
'procedure frxReportOnStartReport(Sender: TfrxComponent);'
|
||||
'procedure Memo40OnBeforePrint(Sender: TfrxComponent);'
|
||||
'begin'
|
||||
' Set('#39'Pagina'#39', 0);'
|
||||
' Set('#39'TotalPaginas'#39', 0);'
|
||||
' if (<frxDBCabecera."ID_FACTURA"> < 1) then'
|
||||
' 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;'
|
||||
''
|
||||
'begin'
|
||||
@ -1276,7 +1241,6 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
'end.')
|
||||
ShowProgress = False
|
||||
StoreInDFM = False
|
||||
OnStartReport = 'frxReportOnStartReport'
|
||||
Left = 169
|
||||
Top = 16
|
||||
end
|
||||
|
||||
@ -1,20 +1,21 @@
|
||||
inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
Width = 899
|
||||
Width = 905
|
||||
Height = 509
|
||||
ExplicitWidth = 899
|
||||
ExplicitWidth = 905
|
||||
ExplicitHeight = 509
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 899
|
||||
Width = 905
|
||||
Height = 509
|
||||
Align = alClient
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
||||
ExplicitWidth = 899
|
||||
DesignSize = (
|
||||
899
|
||||
905
|
||||
509)
|
||||
object eReferencia: TcxDBTextEdit
|
||||
Left = 120
|
||||
@ -92,7 +93,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
end
|
||||
object memObservaciones: TcxDBMemo
|
||||
Left = 22
|
||||
Top = 267
|
||||
Top = 338
|
||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||
DataBinding.DataField = 'OBSERVACIONES'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -104,12 +105,12 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 7
|
||||
TabOrder = 8
|
||||
Height = 49
|
||||
Width = 274
|
||||
end
|
||||
object eFechaEmision: TcxDBTextEdit
|
||||
Left = 661
|
||||
Left = 631
|
||||
Top = 30
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'FECHA_FACTURA'
|
||||
@ -131,11 +132,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 8
|
||||
TabOrder = 9
|
||||
Width = 20
|
||||
end
|
||||
object eFormaPago: TcxDBTextEdit
|
||||
Left = 661
|
||||
Left = 631
|
||||
Top = 57
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'FORMA_PAGO_FACTURA'
|
||||
@ -157,11 +158,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 9
|
||||
TabOrder = 10
|
||||
Width = 42
|
||||
end
|
||||
object eImporteTotal: TcxDBCurrencyEdit
|
||||
Left = 661
|
||||
Left = 631
|
||||
Top = 84
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'IMPORTE_FACTURA'
|
||||
@ -188,12 +189,12 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 10
|
||||
TabOrder = 11
|
||||
Height = 21
|
||||
Width = 182
|
||||
end
|
||||
object eNombreCliente: TcxDBTextEdit
|
||||
Left = 661
|
||||
Left = 631
|
||||
Top = 167
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'NOMBRE_CLIENTE'
|
||||
@ -215,11 +216,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 12
|
||||
TabOrder = 13
|
||||
Width = 171
|
||||
end
|
||||
object eNifCif: TcxDBTextEdit
|
||||
Left = 661
|
||||
Left = 631
|
||||
Top = 140
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'NIF_CIF_CLIENTE'
|
||||
@ -241,11 +242,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 11
|
||||
TabOrder = 12
|
||||
Width = 147
|
||||
end
|
||||
object eEntidad: TcxDBTextEdit
|
||||
Left = 661
|
||||
Left = 631
|
||||
Top = 194
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'ENTIDAD_CLIENTE'
|
||||
@ -267,11 +268,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 13
|
||||
TabOrder = 14
|
||||
Width = 90
|
||||
end
|
||||
object eSucursal: TcxDBTextEdit
|
||||
Left = 768
|
||||
Left = 759
|
||||
Top = 194
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'SUCURSAL_CLIENTE'
|
||||
@ -293,11 +294,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 14
|
||||
TabOrder = 15
|
||||
Width = 75
|
||||
end
|
||||
object eDC: TcxDBTextEdit
|
||||
Left = 844
|
||||
Left = 850
|
||||
Top = 194
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'DC_CLIENTE'
|
||||
@ -319,11 +320,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 15
|
||||
TabOrder = 16
|
||||
Width = 33
|
||||
end
|
||||
object eCuenta: TcxDBTextEdit
|
||||
Left = 661
|
||||
Left = 631
|
||||
Top = 221
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'CUENTA_CLIENTE'
|
||||
@ -345,7 +346,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 16
|
||||
TabOrder = 17
|
||||
Width = 83
|
||||
end
|
||||
object eRemesa: TcxDBTextEdit
|
||||
@ -426,7 +427,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
Width = 191
|
||||
end
|
||||
inline frViewClienteRecibo: TfrViewDatosYSeleccionCliente
|
||||
Left = 585
|
||||
Left = 555
|
||||
Top = 281
|
||||
Width = 350
|
||||
Height = 212
|
||||
@ -436,9 +437,9 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 17
|
||||
TabOrder = 18
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 585
|
||||
ExplicitLeft = 555
|
||||
ExplicitTop = 281
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
inherited edtlNombre: TcxDBTextEdit
|
||||
@ -462,12 +463,12 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
Width = 327
|
||||
end
|
||||
inherited edtCodigoPostal: TcxDBTextEdit
|
||||
Left = 200
|
||||
ExplicitLeft = 200
|
||||
Left = 236
|
||||
ExplicitLeft = 236
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 90
|
||||
ExplicitLeft = 90
|
||||
Left = 126
|
||||
ExplicitLeft = 126
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -497,12 +498,43 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
TabOrder = 5
|
||||
Width = 437
|
||||
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
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Group3: TdxLayoutGroup
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
ShowBorder = False
|
||||
@ -556,6 +588,15 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
ControlOptions.ShowBorder = False
|
||||
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
|
||||
Caption = 'Observaciones'
|
||||
object dxLayoutControl1Item5: TdxLayoutItem
|
||||
|
||||
@ -7,7 +7,8 @@ uses
|
||||
Dialogs, uViewBase, uBizRecibosCliente, DB, uDADataTable, dxLayoutControl,
|
||||
cxControls, cxCurrencyEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit,
|
||||
cxCalendar, cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, ExtCtrls,
|
||||
uDAInterfaces, uCustomView, uViewDatosYSeleccionCliente, uRecibosClienteController;
|
||||
uDAInterfaces, uCustomView, uViewDatosYSeleccionCliente, uRecibosClienteController,
|
||||
uViewTienda;
|
||||
|
||||
type
|
||||
IViewReciboCliente = interface(IViewBase)
|
||||
@ -74,6 +75,9 @@ type
|
||||
dxLayoutControlClienteModif: TdxLayoutGroup;
|
||||
dxLayoutControl1Item17: TdxLayoutItem;
|
||||
eDescripcion: TcxDBTextEdit;
|
||||
dxLayoutControl1Item18: TdxLayoutItem;
|
||||
frViewTienda1: TfrViewTienda;
|
||||
dxLayoutControl1Group5: TdxLayoutGroup;
|
||||
private
|
||||
FRecibo : IBizRecibosCliente;
|
||||
FController : IRecibosClienteController;
|
||||
@ -119,7 +123,7 @@ procedure TfrViewReciboCliente.SetRecibo(const Value: IBizRecibosCliente);
|
||||
begin
|
||||
FRecibo := Value;
|
||||
|
||||
//Por defecto
|
||||
//Por defecto
|
||||
dxLayoutControlFactura.Visible := true;
|
||||
dxLayoutControlCliente.Visible := true;
|
||||
dxLayoutControlClienteModif.Visible := false;
|
||||
@ -128,12 +132,14 @@ begin
|
||||
if Assigned(FRecibo) then
|
||||
begin
|
||||
DADataSource.DataTable := FRecibo.DataTable;
|
||||
frViewTienda1.DataItem := FRecibo.DataTable;
|
||||
|
||||
if FRecibo.SinFactura then
|
||||
begin
|
||||
dxLayoutControlFactura.Visible := false;
|
||||
dxLayoutControlCliente.Visible := false;
|
||||
dxLayoutControlClienteModif.Visible := true;
|
||||
eDescripcion.Enabled := True;
|
||||
eDescripcion.Enabled := True;
|
||||
end;
|
||||
end
|
||||
else
|
||||
|
||||
@ -48,6 +48,15 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
|
||||
DataBinding.FieldName = 'REFERENCIA'
|
||||
Width = 64
|
||||
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
|
||||
Caption = 'Compensado'
|
||||
DataBinding.FieldName = 'ID_RECIBO_COMPENSADO'
|
||||
@ -161,9 +170,17 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 531
|
||||
ExplicitWidth = 531
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
ExplicitWidth = 273
|
||||
Width = 273
|
||||
end
|
||||
inherited edtFechaIniFiltro: TcxDateEdit
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 287
|
||||
ExplicitLeft = 287
|
||||
Left = 229
|
||||
ExplicitLeft = 229
|
||||
ExplicitWidth = 287
|
||||
Width = 287
|
||||
end
|
||||
|
||||
@ -49,6 +49,8 @@ type
|
||||
TBXSeparatorItem1: TTBXSeparatorItem;
|
||||
cxGridViewREFERENCIA_REC_COMPENSADO: TcxGridDBColumn;
|
||||
cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn;
|
||||
cxGridViewTIENDA: TcxGridDBColumn;
|
||||
cxGridViewID_TIENDA: TcxGridDBColumn;
|
||||
procedure cxGridViewICONOCustomDrawCell(Sender: TcxCustomGridTableView;
|
||||
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
|
||||
var ADone: Boolean);
|
||||
@ -154,7 +156,7 @@ begin
|
||||
if cxGridView.DataController.Filter.IsEmpty
|
||||
then cxGridView.DataController.Filter.Active := False
|
||||
else cxGridView.DataController.Filter.Active := True;
|
||||
// cxGrid.ActiveLevel.GridView := cxGridView;
|
||||
cxGrid.ActiveLevel.GridView := cxGridView;
|
||||
end;
|
||||
|
||||
procedure TfrViewRecibosCliente.cxGridActiveTabChanged(Sender: TcxCustomGrid;
|
||||
|
||||
@ -86,8 +86,6 @@ uses
|
||||
srvUnidadesMedida_Impl in '..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas' {srvUnidadesMedida: TDataAbstractService},
|
||||
schUnidadesMedidaClient_Intf in '..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_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',
|
||||
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_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',
|
||||
schReferenciasServer_Intf in '..\Modulos\Referencias\Model\schReferenciasServer_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 ..\Servicios\RODLFile.res}
|
||||
|
||||
@ -30,18 +30,6 @@
|
||||
<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>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<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>
|
||||
</ProjectExtensions>
|
||||
|
||||
Loading…
Reference in New Issue
Block a user