From bd582e9de083e2c7843f7c27ecfe308d30280c9e Mon Sep 17 00:00:00 2001 From: roberto Date: Wed, 25 Nov 2009 18:56:03 +0000 Subject: [PATCH] Arreglo rapido de schemas git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@481 f4e31baf-9722-1c47-927c-6f952f962d4b --- Source/Base/Base.dproj | 7 ++ Source/Cliente/FactuGES.dproj | 2 +- Source/Cliente/FactuGES.res | Bin 171984 -> 172156 bytes Source/GUIBase/GUIBase.dproj | 56 ++++++++-------- Source/GUIBase/GUIBase.res | Bin 384 -> 4748 bytes .../Model/schAlbaranesClienteClient_Intf.pas | 20 +++--- .../Model/schAlbaranesClienteServer_Intf.pas | 12 ++-- .../Model/schContratosClienteClient_Intf.pas | 38 +++++------ .../Model/schContratosClienteServer_Intf.pas | 24 +++---- .../Servidor/srvContratosCliente_Impl.dfm | 3 +- .../Views/uEditorPresupuestoCliente.dfm | 60 +++++++++--------- Source/Servidor/FactuGES_Server.dpr | 6 +- Source/Servidor/FactuGES_Server.dproj | 23 +------ Source/Servidor/FactuGES_Server.rc | 2 +- 14 files changed, 119 insertions(+), 134 deletions(-) diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index 426db58c..a0c3f238 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -44,6 +44,13 @@ Package FalseTrueFalseLibreria base de FactuGESFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 + + + + + + + VCL for the Web Design Package for CodeGear RAD Studio CodeGear WebSnap Components CodeGear SOAP Components diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index 35762cab..2b590827 100644 --- a/Source/Cliente/FactuGES.dproj +++ b/Source/Cliente/FactuGES.dproj @@ -53,7 +53,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2390FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.3.9.0FactuGESFactuGES2.3.9.0FactuGES.dprFalse +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2400FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.4.0.0FactuGESFactuGES2.4.0.0FactuGES.dprFalse diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index 5b73f16f4de840da4a05cd3447a8b76cb25a5659..e7b0bc0baf79e5c1b4d84036174b2eea6ce6bad4 100644 GIT binary patch delta 502 zcmY+9PfG$(6vcn@8cipOS-KpM{z5W~b`eQM2nB82hDwD>Sz>Kk>7u|75X?r$?R`~8kog9C#$lPmh9&y_#F^2H!cZYOm`+_emb}1c{-L1?zDKIKWy|Usv$_{E&2_*3m;}3_Dp+4Z zJyg|=P0=lmXmQOYhjQ*Xrz^a}z1+9ln0W9SsvQ;ta-nn)GPNY~6Xbon~#x#Rv*xb(ZY&G*-vI(`rRk delta 332 zcmex!fa}73u7(!IElezP>kS0Bco^V-k%5OnK!AaPkwJnXgB3)>c`OVJObikd5V;d< z3=GV0UI!-w0}F$K0z_^F2Ll5uf(JB>jlsYGD#ypbz>eUlGQ=}*FgQ3sBsH8E7&sX` zJRrP|5C#S=hJ*yD#wiR8+zbs3P?a1YhcYmHU}RuW0Mh^e3ji^Y0|W*P2oHT=oc?Go zlb$X!(CHwvVYEG1CCJe%Krf<#fa$jLn3NfHrYFv0il6>w9+L{IF@qk1<#f^cOxDvc O%x8*$@(mX-c>@3fiz`|H diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj index a2fc16c9..f44e3be7 100644 --- a/Source/GUIBase/GUIBase.dproj +++ b/Source/GUIBase/GUIBase.dproj @@ -58,34 +58,34 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fDialogBase
 diff --git a/Source/GUIBase/GUIBase.res b/Source/GUIBase/GUIBase.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/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas index cc613635..7210e2fa 100644 --- a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas +++ b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas @@ -3,15 +3,15 @@ unit schAlbaranesClienteClient_Intf; interface uses - Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, SysUtils, uROClasses, uDAInterfaces, 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_ListaAnosAlbaranes = '{044E6A10-20B4-4D17-A1E1-02F2B0EE6BC2}'; - RID_AlbaranesCliente = '{EC8EEA50-0133-413D-8D31-F53D6C4D0221}'; - RID_AlbaranesCliente_Detalles = '{120E6BFE-ADED-4194-B4FC-E56B648E47DB}'; + RID_ListaAnosAlbaranes = '{3FD76345-0267-4CAB-872E-A80F4E99C680}'; + RID_AlbaranesCliente = '{88DF5498-A3FD-47CE-BCC4-58551DC487B8}'; + RID_AlbaranesCliente_Detalles = '{F8B04F9E-412C-4619-BE66-6371E88EFF2B}'; { Data table names } nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes'; @@ -151,7 +151,7 @@ const type { IListaAnosAlbaranes } IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable) - ['{5576961E-EB12-4940-ACEB-B1E3B948677A}'] + ['{A66B4C1D-755C-4343-9151-59CB651E3E65}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -165,7 +165,7 @@ type end; { TListaAnosAlbaranesDataTableRules } - TListaAnosAlbaranesDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosAlbaranes) + TListaAnosAlbaranesDataTableRules = class(TDADataTableRules, IListaAnosAlbaranes) private protected { Property getters and setters } @@ -186,7 +186,7 @@ type { IAlbaranesCliente } IAlbaranesCliente = interface(IDAStronglyTypedDataTable) - ['{FD1EA076-A49C-4F7E-96BE-E2B555D55575}'] + ['{4FF1010A-2F81-47C7-8AFF-26D564E911EA}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -456,7 +456,7 @@ type end; { TAlbaranesClienteDataTableRules } - TAlbaranesClienteDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesCliente) + TAlbaranesClienteDataTableRules = class(TDADataTableRules, IAlbaranesCliente) private f_OBSERVACIONES: IROStrings; f_INCIDENCIAS: IROStrings; @@ -737,7 +737,7 @@ type { IAlbaranesCliente_Detalles } IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{0AE85DFD-D8E8-49EF-909C-D17307156A43}'] + ['{619230C6-3730-4350-8418-11AABE561FDB}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -829,7 +829,7 @@ type end; { TAlbaranesCliente_DetallesDataTableRules } - TAlbaranesCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesCliente_Detalles) + TAlbaranesCliente_DetallesDataTableRules = class(TDADataTableRules, IAlbaranesCliente_Detalles) private protected { Property getters and setters } diff --git a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas index 4ba1ba37..e09db82f 100644 --- a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas +++ b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas @@ -9,14 +9,14 @@ 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_ListaAnosAlbaranesDelta = '{C01E5E50-A195-4FF2-B07F-334991224E65}'; - RID_AlbaranesClienteDelta = '{D4863959-1602-45A1-8240-BC85DBF9E3B6}'; - RID_AlbaranesCliente_DetallesDelta = '{651FD911-3E25-4911-AC35-58F2B7AEF391}'; + RID_ListaAnosAlbaranesDelta = '{C2B986AC-7EA4-4932-8892-4602A352691A}'; + RID_AlbaranesClienteDelta = '{7525A2BE-7DCC-4C0C-B9E0-16191F9F6416}'; + RID_AlbaranesCliente_DetallesDelta = '{10D986DD-E44E-4F55-9CF9-EB504147D343}'; type { IListaAnosAlbaranesDelta } IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes) - ['{C01E5E50-A195-4FF2-B07F-334991224E65}'] + ['{C2B986AC-7EA4-4932-8892-4602A352691A}'] { Property getters and setters } function GetOldANOValue : String; @@ -50,7 +50,7 @@ type { IAlbaranesClienteDelta } IAlbaranesClienteDelta = interface(IAlbaranesCliente) - ['{D4863959-1602-45A1-8240-BC85DBF9E3B6}'] + ['{7525A2BE-7DCC-4C0C-B9E0-16191F9F6416}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -602,7 +602,7 @@ type { IAlbaranesCliente_DetallesDelta } IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles) - ['{651FD911-3E25-4911-AC35-58F2B7AEF391}'] + ['{10D986DD-E44E-4F55-9CF9-EB504147D343}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_ALBARANValue : Integer; diff --git a/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas b/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas index 4dfb2815..25d922a4 100644 --- a/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas +++ b/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas @@ -3,18 +3,18 @@ unit schContratosClienteClient_Intf; interface uses - Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, SysUtils, uROClasses, uDAInterfaces, 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_Valores = '{F657CD6D-DF69-43EA-A3E2-A241DCF09084}'; - RID_Propiedades = '{9906A858-2BEF-45E9-99AD-FA2D7942CD73}'; - RID_ListaAnosContratos = '{10A0FC78-53FA-448C-B4BB-98D991B18186}'; - RID_ContratosCliente = '{E1ADD649-C673-4258-A5F9-7C7898C5D92B}'; - RID_TiposCapitulos = '{D5F98509-6827-480B-85D3-BF0BA0C64998}'; - RID_ContratosCliente_Detalles = '{008EBBD7-35BC-43B8-8CBA-26F4B279CFD6}'; + RID_Valores = '{FBB517BC-F25D-4748-B9E4-0BF81772409E}'; + RID_Propiedades = '{3E75B9DE-D38A-490E-9E08-38A43EAD69E0}'; + RID_ListaAnosContratos = '{DB102921-5CAC-47C1-83F9-2EED505EB8B6}'; + RID_ContratosCliente = '{8B45031B-F683-4BA5-942F-AD605C28DE53}'; + RID_TiposCapitulos = '{CD343E85-93B4-49D1-AA02-5AA9E1FA86C8}'; + RID_ContratosCliente_Detalles = '{2DB77ECF-A693-47DF-95FA-3D2A96347C11}'; { Data table names } nme_Valores = 'Valores'; @@ -195,7 +195,7 @@ const type { IValores } IValores = interface(IDAStronglyTypedDataTable) - ['{A5848FC2-A766-4CF4-8F3D-EBE5A95319D5}'] + ['{E49F0060-590E-4D59-8BA1-D2542A48FACB}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -221,7 +221,7 @@ type end; { TValoresDataTableRules } - TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores) + TValoresDataTableRules = class(TDADataTableRules, IValores) private protected { Property getters and setters } @@ -254,7 +254,7 @@ type { IPropiedades } IPropiedades = interface(IDAStronglyTypedDataTable) - ['{801022BE-B0EE-4FBA-B321-93EA0FEB0A3F}'] + ['{163049F7-F031-4246-8645-85C3F6408C22}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -280,7 +280,7 @@ type end; { TPropiedadesDataTableRules } - TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades) + TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades) private protected { Property getters and setters } @@ -313,7 +313,7 @@ type { IListaAnosContratos } IListaAnosContratos = interface(IDAStronglyTypedDataTable) - ['{86E1F5A6-C2DF-472D-9F60-FEDBE12CD3D6}'] + ['{9E8C7D31-F335-4C2F-9835-78E2EF2A0D85}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -327,7 +327,7 @@ type end; { TListaAnosContratosDataTableRules } - TListaAnosContratosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosContratos) + TListaAnosContratosDataTableRules = class(TDADataTableRules, IListaAnosContratos) private protected { Property getters and setters } @@ -348,7 +348,7 @@ type { IContratosCliente } IContratosCliente = interface(IDAStronglyTypedDataTable) - ['{A7B4A2D4-BCA1-4C5C-AD2E-20C4F3BC13CA}'] + ['{91A528D4-9847-4130-9348-CBFE9FAB78A8}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -616,7 +616,7 @@ type end; { TContratosClienteDataTableRules } - TContratosClienteDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente) + TContratosClienteDataTableRules = class(TDADataTableRules, IContratosCliente) private f_FORMA_PAGO: IROStrings; f_PLAZO_ENTREGA: IROStrings; @@ -902,7 +902,7 @@ type } { ITiposCapitulos } ITiposCapitulos = interface(IDAStronglyTypedDataTable) - ['{70CCE7F6-9235-4BA4-9F7E-4DAF2B1C6DD9}'] + ['{763B12B5-0660-4187-A31B-CEB15307E075}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -946,7 +946,7 @@ type end; { TTiposCapitulosDataTableRules } - TTiposCapitulosDataTableRules = class(TIntfObjectDADataTableRules, ITiposCapitulos) + TTiposCapitulosDataTableRules = class(TDADataTableRules, ITiposCapitulos) private protected { Property getters and setters } @@ -997,7 +997,7 @@ type { IContratosCliente_Detalles } IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{BFB8ADB9-FD43-4885-A66C-5CD57A89BE87}'] + ['{F2816464-B44B-4A9B-92BF-90C523B5C5D6}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1095,7 +1095,7 @@ type end; { TContratosCliente_DetallesDataTableRules } - TContratosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente_Detalles) + TContratosCliente_DetallesDataTableRules = class(TDADataTableRules, IContratosCliente_Detalles) private protected { Property getters and setters } diff --git a/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas b/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas index 31911636..70fc096c 100644 --- a/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas +++ b/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas @@ -9,17 +9,17 @@ 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_ValoresDelta = '{A9F29618-E25A-4076-9A31-ED37100D8ABE}'; - RID_PropiedadesDelta = '{B42E866C-3C13-49E7-96DB-0C6C971567CB}'; - RID_ListaAnosContratosDelta = '{3A22DAAB-ED1B-4604-A896-E9C0A5898288}'; - RID_ContratosClienteDelta = '{260D24A7-5771-4ACD-AA15-55EE6FD44FE6}'; - RID_TiposCapitulosDelta = '{2C1FE27B-5690-4555-B7D2-5C92C9B1EFFA}'; - RID_ContratosCliente_DetallesDelta = '{EA7927D3-F427-40C6-9394-546BD299BA21}'; + RID_ValoresDelta = '{2E14F7CF-EDB5-4945-B876-90C4D74FF180}'; + RID_PropiedadesDelta = '{E649CEF7-68E9-45A6-9653-470814A72238}'; + RID_ListaAnosContratosDelta = '{471911A0-5622-4E98-A471-82A6686B3D2D}'; + RID_ContratosClienteDelta = '{ADBEAAE3-AAC2-4EA1-8B59-BF7C8831AC45}'; + RID_TiposCapitulosDelta = '{AE98CA03-BEAA-4CE6-897D-6A646BF05C8B}'; + RID_ContratosCliente_DetallesDelta = '{97DEC7D7-36AF-42DA-B906-1FB326A36797}'; type { IValoresDelta } IValoresDelta = interface(IValores) - ['{A9F29618-E25A-4076-9A31-ED37100D8ABE}'] + ['{2E14F7CF-EDB5-4945-B876-90C4D74FF180}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_PROPIEDADValue : Integer; @@ -77,7 +77,7 @@ type { IPropiedadesDelta } IPropiedadesDelta = interface(IPropiedades) - ['{B42E866C-3C13-49E7-96DB-0C6C971567CB}'] + ['{E649CEF7-68E9-45A6-9653-470814A72238}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; @@ -135,7 +135,7 @@ type { IListaAnosContratosDelta } IListaAnosContratosDelta = interface(IListaAnosContratos) - ['{3A22DAAB-ED1B-4604-A896-E9C0A5898288}'] + ['{471911A0-5622-4E98-A471-82A6686B3D2D}'] { Property getters and setters } function GetOldANOValue : String; @@ -169,7 +169,7 @@ type { IContratosClienteDelta } IContratosClienteDelta = interface(IContratosCliente) - ['{260D24A7-5771-4ACD-AA15-55EE6FD44FE6}'] + ['{ADBEAAE3-AAC2-4EA1-8B59-BF7C8831AC45}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -723,7 +723,7 @@ type { ITiposCapitulosDelta } ITiposCapitulosDelta = interface(ITiposCapitulos) - ['{2C1FE27B-5690-4555-B7D2-5C92C9B1EFFA}'] + ['{AE98CA03-BEAA-4CE6-897D-6A646BF05C8B}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldPOSICIONValue : Integer; @@ -817,7 +817,7 @@ type { IContratosCliente_DetallesDelta } IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles) - ['{EA7927D3-F427-40C6-9394-546BD299BA21}'] + ['{97DEC7D7-36AF-42DA-B906-1FB326A36797}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CONTRATOValue : Integer; diff --git a/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm b/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm index d7e6b94b..8f4a672f 100644 --- a/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm +++ b/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm @@ -791,7 +791,8 @@ object srvContratosCliente: TsrvContratosCliente Params = < item Name = 'ID' - DataType = datInteger + DataType = datAutoInc + GeneratorName = 'GEN_CONTRATOS_CLI_ID' Value = '' end item diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm index 10faa2ab..dd4cbd72 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm @@ -170,13 +170,14 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente end end inherited StatusBar: TJvStatusBar - Top = 429 + Top = 657 Width = 848 Panels = < item Width = 200 end> - ExplicitTop = 429 + ExplicitLeft = 8 + ExplicitTop = 660 ExplicitWidth = 848 end inherited pgPaginas: TPageControl @@ -185,17 +186,16 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente TabOrder = 1 OnChanging = pgPaginasChanging ExplicitWidth = 842 - ExplicitHeight = 351 + ExplicitHeight = 317 inherited pagGeneral: TTabSheet ExplicitLeft = 4 ExplicitTop = 24 ExplicitWidth = 834 - ExplicitHeight = 323 + ExplicitHeight = 289 end object pagContenido: TTabSheet Caption = 'Contenido' ImageIndex = 1 - ExplicitHeight = 323 inline frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente Left = 0 Top = 0 @@ -213,7 +213,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente TabOrder = 0 ReadOnly = False ExplicitWidth = 834 - ExplicitHeight = 323 + ExplicitHeight = 289 inherited ToolBar1: TToolBar Width = 834 Height = 24 @@ -237,57 +237,57 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente ExplicitWidth = 58 end inherited UpDown1: TUpDown - Left = 571 + Left = 587 Top = 0 - ExplicitLeft = 571 + ExplicitLeft = 587 ExplicitTop = 0 end inherited ToolButton13: TToolButton - Left = 588 + Left = 604 Top = 0 - ExplicitLeft = 588 + ExplicitLeft = 604 ExplicitTop = 0 end inherited ToolButton6: TToolButton - Left = 596 + Left = 612 Top = 0 - ExplicitLeft = 596 + ExplicitLeft = 612 ExplicitTop = 0 end inherited ToolButton7: TToolButton - Left = 630 + Left = 646 Top = 0 - ExplicitLeft = 630 + ExplicitLeft = 646 ExplicitTop = 0 end inherited ToolButton8: TToolButton - Left = 664 + Left = 680 Top = 0 - ExplicitLeft = 664 + ExplicitLeft = 680 ExplicitTop = 0 end inherited ToolButton12: TToolButton - Left = 698 + Left = 714 Top = 0 - ExplicitLeft = 698 + ExplicitLeft = 714 ExplicitTop = 0 end inherited ToolButton9: TToolButton - Left = 706 + Left = 722 Top = 0 - ExplicitLeft = 706 + ExplicitLeft = 722 ExplicitTop = 0 end inherited ToolButton10: TToolButton - Left = 740 + Left = 756 Top = 0 - ExplicitLeft = 740 + ExplicitLeft = 756 ExplicitTop = 0 end inherited ToolButton11: TToolButton - Left = 774 + Left = 790 Top = 0 - ExplicitLeft = 774 + ExplicitLeft = 790 ExplicitTop = 0 end end @@ -297,7 +297,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente Height = 239 ExplicitTop = 50 ExplicitWidth = 834 - ExplicitHeight = 273 + ExplicitHeight = 239 end inherited TBXDock1: TTBXDock Top = 24 @@ -319,7 +319,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente object pagInicidencias: TTabSheet Caption = 'Incidencias' ImageIndex = 2 - ExplicitHeight = 323 inline frViewIncidenciasCli: TfrViewIncidencias Left = 0 Top = 0 @@ -335,7 +334,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente TabOrder = 0 ReadOnly = False ExplicitWidth = 834 - ExplicitHeight = 323 + ExplicitHeight = 289 inherited pnlSup: TPanel Width = 834 ExplicitWidth = 834 @@ -360,7 +359,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente object pagDocumentos: TTabSheet Caption = 'Documentos' ImageIndex = 5 - ExplicitHeight = 323 inline frViewDocumentosPresupuestoCliente1: TfrViewDocumentosPresupuestoCliente Left = 0 Top = 0 @@ -376,7 +374,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente TabOrder = 0 ReadOnly = False ExplicitWidth = 834 - ExplicitHeight = 323 + ExplicitHeight = 289 inherited TBXDock: TTBXDock Width = 834 ExplicitWidth = 834 @@ -385,7 +383,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente Width = 834 Height = 266 ExplicitWidth = 834 - ExplicitHeight = 300 + ExplicitHeight = 266 end inherited EditorActionList: TActionList Left = 8 @@ -404,7 +402,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente end inline frViewTotales1: TfrViewTotalesPresupuesto [5] Left = 0 - Top = 448 + Top = 429 Width = 848 Height = 228 Align = alBottom diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr index ad0f75fe..839ff67c 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -131,12 +131,12 @@ uses srvContratosCliente_Impl in '..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas' {srvContratosCliente: TDataAbstractService}, uBizContratosClienteServer in '..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas', uRptContratosCliente_Server in '..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas' {RptContratosCliente}, - schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas', - schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas', schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas', schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas', schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas', - schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas'; + schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas', + schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas', + schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas'; {$R *.res} {$R ..\Servicios\RODLFile.res} diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index bfbe1ec0..162fe901 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -28,28 +28,7 @@ Delphi.Personality -FalseTrueFalseTrueFalse2390FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.3.9.0FactuGES (Servidor)2.3.9.0jueves, 19 de noviembre de 2009 20:26 - - - - - - - - - - - - - - - - - - - - - +FalseTrueFalseTrueFalse2400FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.4.0.0FactuGES (Servidor)2.4.0.0miércoles, 25 de noviembre de 2009 15:56 diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index d3db7799..315e99f8 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -16,7 +16,7 @@ BEGIN VALUE "FileVersion", "2.3.9.0\0" VALUE "ProductName", "FactuGES (Servidor)\0" VALUE "ProductVersion", "2.3.9.0\0" - VALUE "CompileDate", "miércoles, 25 de noviembre de 2009 10:09\0" + VALUE "CompileDate", "miércoles, 25 de noviembre de 2009 15:56\0" END END BLOCK "VarFileInfo"