diff --git a/Source/Modulos/Contabilidad cuentas especiales/Data/CuentasEspeciales_data.dproj b/Source/Modulos/Contabilidad cuentas especiales/Data/CuentasEspeciales_data.dproj
index aabeca6a..48de96eb 100644
--- a/Source/Modulos/Contabilidad cuentas especiales/Data/CuentasEspeciales_data.dproj
+++ b/Source/Modulos/Contabilidad cuentas especiales/Data/CuentasEspeciales_data.dproj
@@ -48,16 +48,16 @@
MainSource
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Modulos/Contabilidad cuentas especiales/Data/CuentasEspeciales_data.res b/Source/Modulos/Contabilidad cuentas especiales/Data/CuentasEspeciales_data.res
index 8b251f31..1641339f 100644
Binary files a/Source/Modulos/Contabilidad cuentas especiales/Data/CuentasEspeciales_data.res and b/Source/Modulos/Contabilidad cuentas especiales/Data/CuentasEspeciales_data.res differ
diff --git a/Source/Modulos/Contabilidad cuentas especiales/Data/uDataModuleCuentasEspeciales.dfm b/Source/Modulos/Contabilidad cuentas especiales/Data/uDataModuleCuentasEspeciales.dfm
index 3a096b8e..b9bcb532 100644
--- a/Source/Modulos/Contabilidad cuentas especiales/Data/uDataModuleCuentasEspeciales.dfm
+++ b/Source/Modulos/Contabilidad cuentas especiales/Data/uDataModuleCuentasEspeciales.dfm
@@ -28,10 +28,11 @@ inherited DataModuleCuentasEspeciales: TDataModuleCuentasEspeciales
Fields = <
item
Name = 'ID'
- DataType = datInteger
- GeneratorName = 'GEN_CONT_BALANCES_ID'
+ DataType = datAutoInc
+ GeneratorName = 'GEN_CONT_CUENTAS_ESP_ID'
+ Required = True
ServerAutoRefresh = True
- DictionaryEntry = 'Ejercicios_ID'
+ DictionaryEntry = 'CuentasEspeciales_ID'
InPrimaryKey = True
end
item
diff --git a/Source/Modulos/Contabilidad cuentas especiales/Model/schCuentasEspecialesClient_Intf.pas b/Source/Modulos/Contabilidad cuentas especiales/Model/schCuentasEspecialesClient_Intf.pas
index 38fbcb79..931dbdf9 100644
--- a/Source/Modulos/Contabilidad cuentas especiales/Model/schCuentasEspecialesClient_Intf.pas
+++ b/Source/Modulos/Contabilidad cuentas especiales/Model/schCuentasEspecialesClient_Intf.pas
@@ -3,13 +3,13 @@ unit schCuentasEspecialesClient_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_CuentasEspeciales = '{C09A6BA6-0310-40A2-A083-A773491B0DC3}';
+ RID_CuentasEspeciales = '{22FC91FB-D212-4C2B-82BE-953585281D71}';
{ Data table names }
nme_CuentasEspeciales = 'CuentasEspeciales';
@@ -27,7 +27,7 @@ const
type
{ ICuentasEspeciales }
ICuentasEspeciales = interface(IDAStronglyTypedDataTable)
- ['{7D1B09A1-B0F3-4C6A-B03A-9EBC8A52DAB8}']
+ ['{858B16C5-86E3-4646-906C-BC48D5DF496F}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -53,7 +53,7 @@ type
end;
{ TCuentasEspecialesDataTableRules }
- TCuentasEspecialesDataTableRules = class(TIntfObjectDADataTableRules, ICuentasEspeciales)
+ TCuentasEspecialesDataTableRules = class(TDADataTableRules, ICuentasEspeciales)
private
protected
{ Property getters and setters }
diff --git a/Source/Modulos/Contabilidad cuentas especiales/Model/schCuentasEspecialesServer_Intf.pas b/Source/Modulos/Contabilidad cuentas especiales/Model/schCuentasEspecialesServer_Intf.pas
index 1e9bfead..56ce2ecf 100644
--- a/Source/Modulos/Contabilidad cuentas especiales/Model/schCuentasEspecialesServer_Intf.pas
+++ b/Source/Modulos/Contabilidad cuentas especiales/Model/schCuentasEspecialesServer_Intf.pas
@@ -9,12 +9,12 @@ 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_CuentasEspecialesDelta = '{E7976A75-9D53-4232-8AE4-7EF1C9581733}';
+ RID_CuentasEspecialesDelta = '{E8A1B283-B033-4779-A21D-C22AA74FEEEF}';
type
{ ICuentasEspecialesDelta }
ICuentasEspecialesDelta = interface(ICuentasEspeciales)
- ['{E7976A75-9D53-4232-8AE4-7EF1C9581733}']
+ ['{E8A1B283-B033-4779-A21D-C22AA74FEEEF}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String;
diff --git a/Source/Modulos/Contabilidad cuentas especiales/Servidor/srvCuentasEspeciales_Impl.dfm b/Source/Modulos/Contabilidad cuentas especiales/Servidor/srvCuentasEspeciales_Impl.dfm
index 4fb1141e..98f5e4aa 100644
--- a/Source/Modulos/Contabilidad cuentas especiales/Servidor/srvCuentasEspeciales_Impl.dfm
+++ b/Source/Modulos/Contabilidad cuentas especiales/Servidor/srvCuentasEspeciales_Impl.dfm
@@ -20,8 +20,9 @@ object srvCuentasEspeciales: TsrvCuentasEspeciales
Fields = <
item
Name = 'CuentasEspeciales_ID'
- DataType = datInteger
- GeneratorName = 'GEN_CONT_BALANCES_ID'
+ DataType = datAutoInc
+ GeneratorName = 'GEN_CONT_CUENTAS_ESP_ID'
+ Required = True
DisplayLabel = 'ID'
ServerAutoRefresh = True
end
@@ -68,10 +69,10 @@ object srvCuentasEspeciales: TsrvCuentasEspeciales
Fields = <
item
Name = 'ID'
- DataType = datInteger
- GeneratorName = 'GEN_CONT_BALANCES_ID'
+ DataType = datAutoInc
+ GeneratorName = 'GEN_CONT_CUENTAS_ESP_ID'
ServerAutoRefresh = True
- DictionaryEntry = 'Ejercicios_ID'
+ DictionaryEntry = 'CuentasEspeciales_ID'
InPrimaryKey = True
end
item
diff --git a/Source/Modulos/Contabilidad cuentas especiales/Views/CuentasEspeciales_view.dpk b/Source/Modulos/Contabilidad cuentas especiales/Views/CuentasEspeciales_view.dpk
index 136c4871..36390ae9 100644
--- a/Source/Modulos/Contabilidad cuentas especiales/Views/CuentasEspeciales_view.dpk
+++ b/Source/Modulos/Contabilidad cuentas especiales/Views/CuentasEspeciales_view.dpk
@@ -36,7 +36,7 @@ requires
CuentasEspeciales_model;
contains
- uEditorCuentasEspeciales in 'uEditorCuentasEspeciales.pas' {fEditorBalances: TfEditorFormasPago},
+ uEditorCuentasEspeciales in 'uEditorCuentasEspeciales.pas' {fEditorCuentasEspeciales: TfEditorFormasPago},
uCuentasEspecialesViewRegister in 'uCuentasEspecialesViewRegister.pas',
uEditorCuentaEspecial in 'uEditorCuentaEspecial.pas' {fEditorCuentaEspecial};
diff --git a/Source/Modulos/Contabilidad cuentas especiales/Views/CuentasEspeciales_view.dproj b/Source/Modulos/Contabilidad cuentas especiales/Views/CuentasEspeciales_view.dproj
index 1798a1bb..d8ac02ec 100644
--- a/Source/Modulos/Contabilidad cuentas especiales/Views/CuentasEspeciales_view.dproj
+++ b/Source/Modulos/Contabilidad cuentas especiales/Views/CuentasEspeciales_view.dproj
@@ -48,20 +48,20 @@
MainSource
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
-
+
TfEditorFormasPago
diff --git a/Source/Modulos/Contabilidad cuentas especiales/Views/CuentasEspeciales_view.res b/Source/Modulos/Contabilidad cuentas especiales/Views/CuentasEspeciales_view.res
index 8b251f31..1641339f 100644
Binary files a/Source/Modulos/Contabilidad cuentas especiales/Views/CuentasEspeciales_view.res and b/Source/Modulos/Contabilidad cuentas especiales/Views/CuentasEspeciales_view.res differ
diff --git a/Source/Modulos/Contabilidad cuentas especiales/Views/uEditorCuentaEspecial.dfm b/Source/Modulos/Contabilidad cuentas especiales/Views/uEditorCuentaEspecial.dfm
index a94e92ca..96231837 100644
--- a/Source/Modulos/Contabilidad cuentas especiales/Views/uEditorCuentaEspecial.dfm
+++ b/Source/Modulos/Contabilidad cuentas especiales/Views/uEditorCuentaEspecial.dfm
@@ -90,17 +90,17 @@ object fEditorCuentaEspecial: TfEditorCuentaEspecial
Width = 118
Height = 21
Color = clInfoBk
- DataField = 'REF_BALANCE'
+ DataField = 'REFERENCIA'
DataSource = dsCuentasEspeciales
TabOrder = 0
end
- object eNaturaleza: TDBEdit
+ object eDescripcion: TDBEdit
Left = 123
Top = 68
Width = 262
Height = 21
Color = clInfoBk
- DataField = 'NATURALEZA'
+ DataField = 'DESCRIPCION'
DataSource = dsCuentasEspeciales
TabOrder = 1
end
diff --git a/Source/Modulos/Contabilidad cuentas especiales/Views/uEditorCuentaEspecial.pas b/Source/Modulos/Contabilidad cuentas especiales/Views/uEditorCuentaEspecial.pas
index dec40b11..fcb5151f 100644
--- a/Source/Modulos/Contabilidad cuentas especiales/Views/uEditorCuentaEspecial.pas
+++ b/Source/Modulos/Contabilidad cuentas especiales/Views/uEditorCuentaEspecial.pas
@@ -47,7 +47,7 @@ type
actCerrar: TAction;
actModificar: TAction;
eReferencia: TDBEdit;
- eNaturaleza: TDBEdit;
+ eDescripcion: TDBEdit;
dsCuentasEspeciales: TDADataSource;
Label1: TLabel;
Bevel1: TBevel;
diff --git a/Source/Modulos/Contabilidad cuentas especiales/Views/uEditorCuentasEspeciales.dfm b/Source/Modulos/Contabilidad cuentas especiales/Views/uEditorCuentasEspeciales.dfm
index 24fdcc6b..59ef338a 100644
--- a/Source/Modulos/Contabilidad cuentas especiales/Views/uEditorCuentasEspeciales.dfm
+++ b/Source/Modulos/Contabilidad cuentas especiales/Views/uEditorCuentasEspeciales.dfm
@@ -1,4 +1,4 @@
-object fEditorBalances: TfEditorBalances
+object fEditorCuentasEspeciales: TfEditorCuentasEspeciales
Left = 453
Top = 234
BorderIcons = [biSystemMenu]
@@ -45,10 +45,6 @@ object fEditorBalances: TfEditorBalances
TabOrder = 0
object TabSheet1: TTabSheet
Caption = 'Cuentas especiales'
- ExplicitLeft = 0
- ExplicitTop = 0
- ExplicitWidth = 0
- ExplicitHeight = 0
object Label1: TLabel
Left = 6
Top = 12
@@ -80,7 +76,7 @@ object fEditorBalances: TfEditorBalances
Action = actModificar
TabOrder = 2
end
- object ListaBalances: TDBGrid
+ object ListaCuentasEspeciales: TDBGrid
Left = 3
Top = 31
Width = 844