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"> <DelphiCompile Include="CuentasEspeciales_data.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Lib\adortl.dcp" /> <DCCReference Include="..\adortl.dcp" />
<DCCReference Include="..\..\Lib\ApplicationBase.dcp" /> <DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\..\Lib\Base.dcp" /> <DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\..\Lib\CuentasEspeciales_model.dcp" /> <DCCReference Include="..\CuentasEspeciales_model.dcp" />
<DCCReference Include="..\..\Lib\dbrtl.dcp" /> <DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\..\Lib\dsnap.dcp" /> <DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" /> <DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\..\Lib\rtl.dcp" /> <DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\..\Lib\vcl.dcp" /> <DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\..\Lib\vcldb.dcp" /> <DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="uDataModuleCuentasEspeciales.pas"> <DCCReference Include="uDataModuleCuentasEspeciales.pas">
<Form>DataModuleCuentasEspeciales</Form> <Form>DataModuleCuentasEspeciales</Form>
</DCCReference> </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 = < Fields = <
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datAutoInc
GeneratorName = 'GEN_CONT_BALANCES_ID' GeneratorName = 'GEN_CONT_CUENTAS_ESP_ID'
Required = True
ServerAutoRefresh = True ServerAutoRefresh = True
DictionaryEntry = 'Ejercicios_ID' DictionaryEntry = 'CuentasEspeciales_ID'
InPrimaryKey = True InPrimaryKey = True
end end
item item

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

@ -3,13 +3,13 @@ unit schCuentasEspecialesClient_Intf;
interface interface
uses uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_CuentasEspeciales = '{C09A6BA6-0310-40A2-A083-A773491B0DC3}'; RID_CuentasEspeciales = '{22FC91FB-D212-4C2B-82BE-953585281D71}';
{ Data table names } { Data table names }
nme_CuentasEspeciales = 'CuentasEspeciales'; nme_CuentasEspeciales = 'CuentasEspeciales';
@ -27,7 +27,7 @@ const
type type
{ ICuentasEspeciales } { ICuentasEspeciales }
ICuentasEspeciales = interface(IDAStronglyTypedDataTable) ICuentasEspeciales = interface(IDAStronglyTypedDataTable)
['{7D1B09A1-B0F3-4C6A-B03A-9EBC8A52DAB8}'] ['{858B16C5-86E3-4646-906C-BC48D5DF496F}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -53,7 +53,7 @@ type
end; end;
{ TCuentasEspecialesDataTableRules } { TCuentasEspecialesDataTableRules }
TCuentasEspecialesDataTableRules = class(TIntfObjectDADataTableRules, ICuentasEspeciales) TCuentasEspecialesDataTableRules = class(TDADataTableRules, ICuentasEspeciales)
private private
protected protected
{ Property getters and setters } { Property getters and setters }

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

@ -9,12 +9,12 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_CuentasEspecialesDelta = '{E7976A75-9D53-4232-8AE4-7EF1C9581733}'; RID_CuentasEspecialesDelta = '{E8A1B283-B033-4779-A21D-C22AA74FEEEF}';
type type
{ ICuentasEspecialesDelta } { ICuentasEspecialesDelta }
ICuentasEspecialesDelta = interface(ICuentasEspeciales) ICuentasEspecialesDelta = interface(ICuentasEspeciales)
['{E7976A75-9D53-4232-8AE4-7EF1C9581733}'] ['{E8A1B283-B033-4779-A21D-C22AA74FEEEF}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;

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

@ -20,8 +20,9 @@ object srvCuentasEspeciales: TsrvCuentasEspeciales
Fields = < Fields = <
item item
Name = 'CuentasEspeciales_ID' Name = 'CuentasEspeciales_ID'
DataType = datInteger DataType = datAutoInc
GeneratorName = 'GEN_CONT_BALANCES_ID' GeneratorName = 'GEN_CONT_CUENTAS_ESP_ID'
Required = True
DisplayLabel = 'ID' DisplayLabel = 'ID'
ServerAutoRefresh = True ServerAutoRefresh = True
end end
@ -68,10 +69,10 @@ object srvCuentasEspeciales: TsrvCuentasEspeciales
Fields = < Fields = <
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datAutoInc
GeneratorName = 'GEN_CONT_BALANCES_ID' GeneratorName = 'GEN_CONT_CUENTAS_ESP_ID'
ServerAutoRefresh = True ServerAutoRefresh = True
DictionaryEntry = 'Ejercicios_ID' DictionaryEntry = 'CuentasEspeciales_ID'
InPrimaryKey = True InPrimaryKey = True
end end
item item

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

@ -36,7 +36,7 @@ requires
CuentasEspeciales_model; CuentasEspeciales_model;
contains contains
uEditorCuentasEspeciales in 'uEditorCuentasEspeciales.pas' {fEditorBalances: TfEditorFormasPago}, uEditorCuentasEspeciales in 'uEditorCuentasEspeciales.pas' {fEditorCuentasEspeciales: TfEditorFormasPago},
uCuentasEspecialesViewRegister in 'uCuentasEspecialesViewRegister.pas', uCuentasEspecialesViewRegister in 'uCuentasEspecialesViewRegister.pas',
uEditorCuentaEspecial in 'uEditorCuentaEspecial.pas' {fEditorCuentaEspecial}; 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"> <DelphiCompile Include="CuentasEspeciales_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Lib\ApplicationBase.dcp" /> <DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\..\Lib\Base.dcp" /> <DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\..\Lib\CuentasEspeciales_controller.dcp" /> <DCCReference Include="..\CuentasEspeciales_controller.dcp" />
<DCCReference Include="..\..\Lib\CuentasEspeciales_model.dcp" /> <DCCReference Include="..\CuentasEspeciales_model.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" /> <DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\..\Lib\JvCmpD11R.dcp" /> <DCCReference Include="..\JvCmpD11R.dcp" />
<DCCReference Include="..\..\Lib\rtl.dcp" /> <DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\..\Lib\vcl.dcp" /> <DCCReference Include="..\vcl.dcp" />
<DCCReference Include="uCuentasEspecialesViewRegister.pas" /> <DCCReference Include="uCuentasEspecialesViewRegister.pas" />
<DCCReference Include="uEditorCuentaEspecial.pas"> <DCCReference Include="uEditorCuentaEspecial.pas">
<Form>fEditorCuentaEspecial</Form> <Form>fEditorCuentaEspecial</Form>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorCuentasEspeciales.pas"> <DCCReference Include="uEditorCuentasEspeciales.pas">
<Form>fEditorBalances</Form> <Form>fEditorCuentasEspeciales</Form>
<DesignClass>TfEditorFormasPago</DesignClass> <DesignClass>TfEditorFormasPago</DesignClass>
</DCCReference> </DCCReference>
</ItemGroup> </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 Width = 118
Height = 21 Height = 21
Color = clInfoBk Color = clInfoBk
DataField = 'REF_BALANCE' DataField = 'REFERENCIA'
DataSource = dsCuentasEspeciales DataSource = dsCuentasEspeciales
TabOrder = 0 TabOrder = 0
end end
object eNaturaleza: TDBEdit object eDescripcion: TDBEdit
Left = 123 Left = 123
Top = 68 Top = 68
Width = 262 Width = 262
Height = 21 Height = 21
Color = clInfoBk Color = clInfoBk
DataField = 'NATURALEZA' DataField = 'DESCRIPCION'
DataSource = dsCuentasEspeciales DataSource = dsCuentasEspeciales
TabOrder = 1 TabOrder = 1
end end

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

@ -47,7 +47,7 @@ type
actCerrar: TAction; actCerrar: TAction;
actModificar: TAction; actModificar: TAction;
eReferencia: TDBEdit; eReferencia: TDBEdit;
eNaturaleza: TDBEdit; eDescripcion: TDBEdit;
dsCuentasEspeciales: TDADataSource; dsCuentasEspeciales: TDADataSource;
Label1: TLabel; Label1: TLabel;
Bevel1: TBevel; 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 Left = 453
Top = 234 Top = 234
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
@ -45,10 +45,6 @@ object fEditorBalances: TfEditorBalances
TabOrder = 0 TabOrder = 0
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Cuentas especiales' Caption = 'Cuentas especiales'
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Label1: TLabel object Label1: TLabel
Left = 6 Left = 6
Top = 12 Top = 12
@ -80,7 +76,7 @@ object fEditorBalances: TfEditorBalances
Action = actModificar Action = actModificar
TabOrder = 2 TabOrder = 2
end end
object ListaBalances: TDBGrid object ListaCuentasEspeciales: TDBGrid
Left = 3 Left = 3
Top = 31 Top = 31
Width = 844 Width = 844