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

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

Browse Source
This commit is contained in:
roberto 2007-11-30 18:47:09 +00:00
parent cd1939491a
commit 61e8f3a238
12 changed files with 42 additions and 44 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
Source/Modulos/Contabilidad cuentas especiales/Data/CuentasEspeciales_data.dproj
View File

@ -48,16 +48,16 @@
<DelphiCompile Include="CuentasEspeciales_data.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Lib\adortl.dcp" />
<DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
<DCCReference Include="..\..\Lib\Base.dcp" />
<DCCReference Include="..\..\Lib\CuentasEspeciales_model.dcp" />
<DCCReference Include="..\..\Lib\dbrtl.dcp" />
<DCCReference Include="..\..\Lib\dsnap.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
<DCCReference Include="..\..\Lib\rtl.dcp" />
<DCCReference Include="..\..\Lib\vcl.dcp" />
<DCCReference Include="..\..\Lib\vcldb.dcp" />
<DCCReference Include="..\adortl.dcp" />
<DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\CuentasEspeciales_model.dcp" />
<DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="uDataModuleCuentasEspeciales.pas">
<Form>DataModuleCuentasEspeciales</Form>
</DCCReference>

BIN
Source/Modulos/Contabilidad cuentas especiales/Data/CuentasEspeciales_data.res
View File

Binary file not shown.

7
Source/Modulos/Contabilidad cuentas especiales/Data/uDataModuleCuentasEspeciales.dfm
View File

@ -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

8
Source/Modulos/Contabilidad cuentas especiales/Model/schCuentasEspecialesClient_Intf.pas
View File

@ -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 }

4
Source/Modulos/Contabilidad cuentas especiales/Model/schCuentasEspecialesServer_Intf.pas
View File

@ -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;

11
Source/Modulos/Contabilidad cuentas especiales/Servidor/srvCuentasEspeciales_Impl.dfm
View File

@ -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

2
Source/Modulos/Contabilidad cuentas especiales/Views/CuentasEspeciales_view.dpk
View File

@ -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};

18
Source/Modulos/Contabilidad cuentas especiales/Views/CuentasEspeciales_view.dproj
View File

@ -48,20 +48,20 @@
<DelphiCompile Include="CuentasEspeciales_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
<DCCReference Include="..\..\Lib\Base.dcp" />
<DCCReference Include="..\..\Lib\CuentasEspeciales_controller.dcp" />
<DCCReference Include="..\..\Lib\CuentasEspeciales_model.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
<DCCReference Include="..\..\Lib\JvCmpD11R.dcp" />
<DCCReference Include="..\..\Lib\rtl.dcp" />
<DCCReference Include="..\..\Lib\vcl.dcp" />
<DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\CuentasEspeciales_controller.dcp" />
<DCCReference Include="..\CuentasEspeciales_model.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\JvCmpD11R.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="uCuentasEspecialesViewRegister.pas" />
<DCCReference Include="uEditorCuentaEspecial.pas">
<Form>fEditorCuentaEspecial</Form>
</DCCReference>
<DCCReference Include="uEditorCuentasEspeciales.pas">
<Form>fEditorBalances</Form>
<Form>fEditorCuentasEspeciales</Form>
<DesignClass>TfEditorFormasPago</DesignClass>
</DCCReference>
</ItemGroup>

BIN
Source/Modulos/Contabilidad cuentas especiales/Views/CuentasEspeciales_view.res
View File

Binary file not shown.

6
Source/Modulos/Contabilidad cuentas especiales/Views/uEditorCuentaEspecial.dfm
View File

@ -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

2
Source/Modulos/Contabilidad cuentas especiales/Views/uEditorCuentaEspecial.pas
View File

@ -47,7 +47,7 @@ type
actCerrar: TAction;
actModificar: TAction;
eReferencia: TDBEdit;
eNaturaleza: TDBEdit;
eDescripcion: TDBEdit;
dsCuentasEspeciales: TDADataSource;
Label1: TLabel;
Bevel1: TBevel;

8
Source/Modulos/Contabilidad cuentas especiales/Views/uEditorCuentasEspeciales.dfm
View File

@ -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