From 61e8f3a238cb602a986d1cf269d7182d562b6f70 Mon Sep 17 00:00:00 2001 From: roberto Date: Fri, 30 Nov 2007 18:47:09 +0000 Subject: [PATCH] git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@12 f4e31baf-9722-1c47-927c-6f952f962d4b --- .../Data/CuentasEspeciales_data.dproj | 20 +++++++++--------- .../Data/CuentasEspeciales_data.res | Bin 384 -> 4748 bytes .../Data/uDataModuleCuentasEspeciales.dfm | 7 +++--- .../Model/schCuentasEspecialesClient_Intf.pas | 8 +++---- .../Model/schCuentasEspecialesServer_Intf.pas | 4 ++-- .../Servidor/srvCuentasEspeciales_Impl.dfm | 11 +++++----- .../Views/CuentasEspeciales_view.dpk | 2 +- .../Views/CuentasEspeciales_view.dproj | 18 ++++++++-------- .../Views/CuentasEspeciales_view.res | Bin 384 -> 4748 bytes .../Views/uEditorCuentaEspecial.dfm | 6 +++--- .../Views/uEditorCuentaEspecial.pas | 2 +- .../Views/uEditorCuentasEspeciales.dfm | 8 ++----- 12 files changed, 42 insertions(+), 44 deletions(-) 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 - - - - - - - - - - + + + + + + + + + +
DataModuleCuentasEspeciales
diff --git a/Source/Modulos/Contabilidad cuentas especiales/Data/CuentasEspeciales_data.res b/Source/Modulos/Contabilidad cuentas especiales/Data/CuentasEspeciales_data.res index 8b251f312bcccec5485024f6fe8d80e1cdf25746..1641339fcc482e7e3492d1b45813a86619622c33 100644 GIT binary patch literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP delta 11 ScmeBCZD5|Duvteife`=|>;pCc 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 - - - - - - - - + + + + + + + +
fEditorCuentaEspecial
-
fEditorBalances
+
fEditorCuentasEspeciales
TfEditorFormasPago
diff --git a/Source/Modulos/Contabilidad cuentas especiales/Views/CuentasEspeciales_view.res b/Source/Modulos/Contabilidad cuentas especiales/Views/CuentasEspeciales_view.res index 8b251f312bcccec5485024f6fe8d80e1cdf25746..1641339fcc482e7e3492d1b45813a86619622c33 100644 GIT binary patch literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP delta 11 ScmeBCZD5|Duvteife`=|>;pCc 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