From 6a812d2f51f6d9349d3f1103ee80a26da8bb2f85 Mon Sep 17 00:00:00 2001 From: roberto Date: Tue, 22 Oct 2019 17:01:21 +0000 Subject: [PATCH] Se cambia el informe de contratosclientebeneficions para sacar la referencia de cliente del contrato y el vendedor del contrato git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@680 f4e31baf-9722-1c47-927c-6f952f962d4b --- Source/GUIBase/GUIBase.dproj | 56 +- Source/GUIBase/GUIBase.res | Bin 384 -> 4748 bytes .../Data/uDataModuleContratosCliente.dfm | 14 + .../Model/schContratosClienteClient_Intf.pas | 169 ++++- .../Model/schContratosClienteServer_Intf.pas | 157 ++++- .../Servidor/srvContratosCliente_Impl.dfm | 35 +- .../Views/uViewContratosClienteBeneficios.dfm | 8 + .../Views/uViewContratosClienteBeneficios.pas | 2 + Source/Servidor/FactuGES_Server.dpr | 6 +- Source/Servidor/FactuGES_Server.dproj | 589 +++++++++--------- 10 files changed, 661 insertions(+), 375 deletions(-) diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj index 620ec4e0..4cf8df42 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/Contratos de cliente/Data/uDataModuleContratosCliente.dfm b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm index 3c3bc85b..01d42ca0 100644 --- a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm +++ b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm @@ -541,6 +541,11 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente DataType = datString Size = 255 end + item + Name = 'REFERENCIA_CLIENTE' + DataType = datString + Size = 255 + end item Name = 'FECHA_CONTRATO' DataType = datDateTime @@ -583,6 +588,15 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente Name = 'SITUACION' DataType = datString Size = 255 + end + item + Name = 'ID_VENDEDOR' + DataType = datInteger + end + item + Name = 'VENDEDOR' + DataType = datString + Size = 255 end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] diff --git a/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas b/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas index 679ddd51..eeca5fac 100644 --- a/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas +++ b/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas @@ -3,19 +3,19 @@ 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 = '{8D0A6005-9221-49D8-850E-9132CB554EF3}'; - RID_Propiedades = '{8B55BD13-9462-4069-8727-FC0E5CC3B5CE}'; - RID_ListaAnosContratos = '{C307F363-E262-45D7-92C8-C8A315917474}'; - RID_ContratosClienteBeneficios = '{2A105B52-7E4A-4F48-9BAC-4E919F6619A5}'; - RID_ContratosCliente = '{E6050152-2E8E-4AAB-BD2F-C7A863966187}'; - RID_TiposCapitulos = '{8DC00365-1B40-406A-94F0-0A706EA1889C}'; - RID_ContratosCliente_Detalles = '{9BAA7277-F710-4A9B-8EC7-FFC449E23AF6}'; + RID_Valores = '{58A2DEFE-73CE-4294-A509-3456173EC1E8}'; + RID_Propiedades = '{FD279174-BDCF-4C6E-86A5-9EF688F8A386}'; + RID_ListaAnosContratos = '{995B8113-D69E-45F6-B0C6-279DE92E8AE1}'; + RID_ContratosClienteBeneficios = '{AADFE498-8072-4F5F-84FD-7BDAE2D03E88}'; + RID_ContratosCliente = '{6BBAF32D-E3F6-4C2F-BB50-EEB0BABCE782}'; + RID_TiposCapitulos = '{4355D117-B641-4CF9-99AC-17558CB0C354}'; + RID_ContratosCliente_Detalles = '{02F28C43-5EC9-4A4F-A2BC-CD4BF581ED0B}'; { Data table names } nme_Valores = 'Valores'; @@ -55,6 +55,7 @@ const { ContratosClienteBeneficios fields } fld_ContratosClienteBeneficiosID = 'ID'; fld_ContratosClienteBeneficiosREFERENCIA = 'REFERENCIA'; + fld_ContratosClienteBeneficiosREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE'; fld_ContratosClienteBeneficiosFECHA_CONTRATO = 'FECHA_CONTRATO'; fld_ContratosClienteBeneficiosNOMBRE = 'NOMBRE'; fld_ContratosClienteBeneficiosNIF_CIF = 'NIF_CIF'; @@ -65,20 +66,25 @@ const fld_ContratosClienteBeneficiosIMPORTE_BENEFICIO = 'IMPORTE_BENEFICIO'; fld_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO = 'PORCENTAJE_BENEFICIO'; fld_ContratosClienteBeneficiosSITUACION = 'SITUACION'; + fld_ContratosClienteBeneficiosID_VENDEDOR = 'ID_VENDEDOR'; + fld_ContratosClienteBeneficiosVENDEDOR = 'VENDEDOR'; { ContratosClienteBeneficios field indexes } idx_ContratosClienteBeneficiosID = 0; idx_ContratosClienteBeneficiosREFERENCIA = 1; - idx_ContratosClienteBeneficiosFECHA_CONTRATO = 2; - idx_ContratosClienteBeneficiosNOMBRE = 3; - idx_ContratosClienteBeneficiosNIF_CIF = 4; - idx_ContratosClienteBeneficiosIMPORTE_NETO = 5; - idx_ContratosClienteBeneficiosIMPORTE_DESCUENTO = 6; - idx_ContratosClienteBeneficiosBASE_IMPONIBLE = 7; - idx_ContratosClienteBeneficiosIMPORTE_FACTURAS_PROVEEDOR = 8; - idx_ContratosClienteBeneficiosIMPORTE_BENEFICIO = 9; - idx_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO = 10; - idx_ContratosClienteBeneficiosSITUACION = 11; + idx_ContratosClienteBeneficiosREFERENCIA_CLIENTE = 2; + idx_ContratosClienteBeneficiosFECHA_CONTRATO = 3; + idx_ContratosClienteBeneficiosNOMBRE = 4; + idx_ContratosClienteBeneficiosNIF_CIF = 5; + idx_ContratosClienteBeneficiosIMPORTE_NETO = 6; + idx_ContratosClienteBeneficiosIMPORTE_DESCUENTO = 7; + idx_ContratosClienteBeneficiosBASE_IMPONIBLE = 8; + idx_ContratosClienteBeneficiosIMPORTE_FACTURAS_PROVEEDOR = 9; + idx_ContratosClienteBeneficiosIMPORTE_BENEFICIO = 10; + idx_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO = 11; + idx_ContratosClienteBeneficiosSITUACION = 12; + idx_ContratosClienteBeneficiosID_VENDEDOR = 13; + idx_ContratosClienteBeneficiosVENDEDOR = 14; { ContratosCliente fields } fld_ContratosClienteID = 'ID'; @@ -239,7 +245,7 @@ const type { IValores } IValores = interface(IDAStronglyTypedDataTable) - ['{BE709E0D-DA15-433E-845D-A94BC20A4918}'] + ['{8DC482B0-0D63-436F-AB19-74A480249588}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -265,7 +271,7 @@ type end; { TValoresDataTableRules } - TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores) + TValoresDataTableRules = class(TDADataTableRules, IValores) private protected { Property getters and setters } @@ -298,7 +304,7 @@ type { IPropiedades } IPropiedades = interface(IDAStronglyTypedDataTable) - ['{5B1734E1-7B39-4B14-B907-21077C041461}'] + ['{83E4E5BD-A49A-4677-A830-7C9B83F3DDE4}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -324,7 +330,7 @@ type end; { TPropiedadesDataTableRules } - TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades) + TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades) private protected { Property getters and setters } @@ -357,7 +363,7 @@ type { IListaAnosContratos } IListaAnosContratos = interface(IDAStronglyTypedDataTable) - ['{ABCA5139-F042-4033-BCA2-09D644B80C2C}'] + ['{35D2C046-61DA-487F-A0F4-5E3AB7CCA58D}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -371,7 +377,7 @@ type end; { TListaAnosContratosDataTableRules } - TListaAnosContratosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosContratos) + TListaAnosContratosDataTableRules = class(TDADataTableRules, IListaAnosContratos) private protected { Property getters and setters } @@ -392,7 +398,7 @@ type { IContratosClienteBeneficios } IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable) - ['{6429E1F0-65EC-42C4-B326-A3FDFD709C6B}'] + ['{FEA1561B-0DF3-4193-8881-62C4433488E8}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -402,6 +408,10 @@ type procedure SetREFERENCIAValue(const aValue: String); function GetREFERENCIAIsNull: Boolean; procedure SetREFERENCIAIsNull(const aValue: Boolean); + function GetREFERENCIA_CLIENTEValue: String; + procedure SetREFERENCIA_CLIENTEValue(const aValue: String); + function GetREFERENCIA_CLIENTEIsNull: Boolean; + procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); function GetFECHA_CONTRATOValue: DateTime; procedure SetFECHA_CONTRATOValue(const aValue: DateTime); function GetFECHA_CONTRATOIsNull: Boolean; @@ -442,6 +452,14 @@ type procedure SetSITUACIONValue(const aValue: String); function GetSITUACIONIsNull: Boolean; procedure SetSITUACIONIsNull(const aValue: Boolean); + function GetID_VENDEDORValue: Integer; + procedure SetID_VENDEDORValue(const aValue: Integer); + function GetID_VENDEDORIsNull: Boolean; + procedure SetID_VENDEDORIsNull(const aValue: Boolean); + function GetVENDEDORValue: String; + procedure SetVENDEDORValue(const aValue: String); + function GetVENDEDORIsNull: Boolean; + procedure SetVENDEDORIsNull(const aValue: Boolean); { Properties } @@ -449,6 +467,8 @@ type property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue; + property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull; property FECHA_CONTRATO: DateTime read GetFECHA_CONTRATOValue write SetFECHA_CONTRATOValue; property FECHA_CONTRATOIsNull: Boolean read GetFECHA_CONTRATOIsNull write SetFECHA_CONTRATOIsNull; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; @@ -469,10 +489,14 @@ type property PORCENTAJE_BENEFICIOIsNull: Boolean read GetPORCENTAJE_BENEFICIOIsNull write SetPORCENTAJE_BENEFICIOIsNull; property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; + property ID_VENDEDOR: Integer read GetID_VENDEDORValue write SetID_VENDEDORValue; + property ID_VENDEDORIsNull: Boolean read GetID_VENDEDORIsNull write SetID_VENDEDORIsNull; + property VENDEDOR: String read GetVENDEDORValue write SetVENDEDORValue; + property VENDEDORIsNull: Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull; end; { TContratosClienteBeneficiosDataTableRules } - TContratosClienteBeneficiosDataTableRules = class(TIntfObjectDADataTableRules, IContratosClienteBeneficios) + TContratosClienteBeneficiosDataTableRules = class(TDADataTableRules, IContratosClienteBeneficios) private protected { Property getters and setters } @@ -484,6 +508,10 @@ type procedure SetREFERENCIAValue(const aValue: String); virtual; function GetREFERENCIAIsNull: Boolean; virtual; procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; + function GetREFERENCIA_CLIENTEValue: String; virtual; + procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual; + function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual; + procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual; function GetFECHA_CONTRATOValue: DateTime; virtual; procedure SetFECHA_CONTRATOValue(const aValue: DateTime); virtual; function GetFECHA_CONTRATOIsNull: Boolean; virtual; @@ -524,12 +552,22 @@ type procedure SetSITUACIONValue(const aValue: String); virtual; function GetSITUACIONIsNull: Boolean; virtual; procedure SetSITUACIONIsNull(const aValue: Boolean); virtual; + function GetID_VENDEDORValue: Integer; virtual; + procedure SetID_VENDEDORValue(const aValue: Integer); virtual; + function GetID_VENDEDORIsNull: Boolean; virtual; + procedure SetID_VENDEDORIsNull(const aValue: Boolean); virtual; + function GetVENDEDORValue: String; virtual; + procedure SetVENDEDORValue(const aValue: String); virtual; + function GetVENDEDORIsNull: Boolean; virtual; + procedure SetVENDEDORIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue; + property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull; property FECHA_CONTRATO: DateTime read GetFECHA_CONTRATOValue write SetFECHA_CONTRATOValue; property FECHA_CONTRATOIsNull: Boolean read GetFECHA_CONTRATOIsNull write SetFECHA_CONTRATOIsNull; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; @@ -550,6 +588,10 @@ type property PORCENTAJE_BENEFICIOIsNull: Boolean read GetPORCENTAJE_BENEFICIOIsNull write SetPORCENTAJE_BENEFICIOIsNull; property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; + property ID_VENDEDOR: Integer read GetID_VENDEDORValue write SetID_VENDEDORValue; + property ID_VENDEDORIsNull: Boolean read GetID_VENDEDORIsNull write SetID_VENDEDORIsNull; + property VENDEDOR: String read GetVENDEDORValue write SetVENDEDORValue; + property VENDEDORIsNull: Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -559,7 +601,7 @@ type { IContratosCliente } IContratosCliente = interface(IDAStronglyTypedDataTable) - ['{F6CA8D2A-7FE2-492D-9C31-17EEED90EA92}'] + ['{F2DEA876-B1A6-475D-8D1D-8D416E7D40CA}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -855,7 +897,7 @@ type end; { TContratosClienteDataTableRules } - TContratosClienteDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente) + TContratosClienteDataTableRules = class(TDADataTableRules, IContratosCliente) private f_FORMA_PAGO: IROStrings; f_PLAZO_ENTREGA: IROStrings; @@ -1173,7 +1215,7 @@ type } { ITiposCapitulos } ITiposCapitulos = interface(IDAStronglyTypedDataTable) - ['{83723322-56DB-4D52-A7F2-71BE5705EFF4}'] + ['{5F81E7D5-452E-4E0A-88C8-1F996B6AF531}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1217,7 +1259,7 @@ type end; { TTiposCapitulosDataTableRules } - TTiposCapitulosDataTableRules = class(TIntfObjectDADataTableRules, ITiposCapitulos) + TTiposCapitulosDataTableRules = class(TDADataTableRules, ITiposCapitulos) private protected { Property getters and setters } @@ -1268,7 +1310,7 @@ type { IContratosCliente_Detalles } IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{E4351EBD-42E9-42AA-A32C-EBF448AF3AAB}'] + ['{251944F0-59A0-4544-BC1D-DC85411F2FD7}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1378,7 +1420,7 @@ type end; { TContratosCliente_DetallesDataTableRules } - TContratosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente_Detalles) + TContratosCliente_DetallesDataTableRules = class(TDADataTableRules, IContratosCliente_Detalles) private protected { Property getters and setters } @@ -1733,6 +1775,27 @@ begin DataTable.Fields[idx_ContratosClienteBeneficiosREFERENCIA].AsVariant := Null; end; +function TContratosClienteBeneficiosDataTableRules.GetREFERENCIA_CLIENTEValue: String; +begin + result := DataTable.Fields[idx_ContratosClienteBeneficiosREFERENCIA_CLIENTE].AsString; +end; + +procedure TContratosClienteBeneficiosDataTableRules.SetREFERENCIA_CLIENTEValue(const aValue: String); +begin + DataTable.Fields[idx_ContratosClienteBeneficiosREFERENCIA_CLIENTE].AsString := aValue; +end; + +function TContratosClienteBeneficiosDataTableRules.GetREFERENCIA_CLIENTEIsNull: boolean; +begin + result := DataTable.Fields[idx_ContratosClienteBeneficiosREFERENCIA_CLIENTE].IsNull; +end; + +procedure TContratosClienteBeneficiosDataTableRules.SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ContratosClienteBeneficiosREFERENCIA_CLIENTE].AsVariant := Null; +end; + function TContratosClienteBeneficiosDataTableRules.GetFECHA_CONTRATOValue: DateTime; begin result := DataTable.Fields[idx_ContratosClienteBeneficiosFECHA_CONTRATO].AsDateTime; @@ -1943,6 +2006,48 @@ begin DataTable.Fields[idx_ContratosClienteBeneficiosSITUACION].AsVariant := Null; end; +function TContratosClienteBeneficiosDataTableRules.GetID_VENDEDORValue: Integer; +begin + result := DataTable.Fields[idx_ContratosClienteBeneficiosID_VENDEDOR].AsInteger; +end; + +procedure TContratosClienteBeneficiosDataTableRules.SetID_VENDEDORValue(const aValue: Integer); +begin + DataTable.Fields[idx_ContratosClienteBeneficiosID_VENDEDOR].AsInteger := aValue; +end; + +function TContratosClienteBeneficiosDataTableRules.GetID_VENDEDORIsNull: boolean; +begin + result := DataTable.Fields[idx_ContratosClienteBeneficiosID_VENDEDOR].IsNull; +end; + +procedure TContratosClienteBeneficiosDataTableRules.SetID_VENDEDORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ContratosClienteBeneficiosID_VENDEDOR].AsVariant := Null; +end; + +function TContratosClienteBeneficiosDataTableRules.GetVENDEDORValue: String; +begin + result := DataTable.Fields[idx_ContratosClienteBeneficiosVENDEDOR].AsString; +end; + +procedure TContratosClienteBeneficiosDataTableRules.SetVENDEDORValue(const aValue: String); +begin + DataTable.Fields[idx_ContratosClienteBeneficiosVENDEDOR].AsString := aValue; +end; + +function TContratosClienteBeneficiosDataTableRules.GetVENDEDORIsNull: boolean; +begin + result := DataTable.Fields[idx_ContratosClienteBeneficiosVENDEDOR].IsNull; +end; + +procedure TContratosClienteBeneficiosDataTableRules.SetVENDEDORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ContratosClienteBeneficiosVENDEDOR].AsVariant := Null; +end; + { TContratosClienteDataTableRules } constructor TContratosClienteDataTableRules.Create(aDataTable: TDADataTable); diff --git a/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas b/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas index 0b4d8d45..5a19d641 100644 --- a/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas +++ b/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas @@ -9,18 +9,18 @@ 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 = '{684CE7DA-07CD-44B6-B5D0-A53167809071}'; - RID_PropiedadesDelta = '{9411016A-2563-45A8-A869-AD6D77B08D8D}'; - RID_ListaAnosContratosDelta = '{3904C59D-140E-4B09-8883-BAD4283361E1}'; - RID_ContratosClienteBeneficiosDelta = '{33BCE36F-E764-4D57-B64F-CC3336F86D08}'; - RID_ContratosClienteDelta = '{5A623AB9-EB89-4FE8-B2EB-DCA2DF9DE9E2}'; - RID_TiposCapitulosDelta = '{9005E869-C4FF-4100-B6D7-7C3AB110EF02}'; - RID_ContratosCliente_DetallesDelta = '{922730A0-E1D3-48AF-B9FA-C766F808A26F}'; + RID_ValoresDelta = '{B57572E7-8CF0-400C-A161-CC3597A61C0B}'; + RID_PropiedadesDelta = '{9194A821-5316-4432-AB61-66CB529F49E3}'; + RID_ListaAnosContratosDelta = '{E141AD09-588D-4313-90DB-61941556C617}'; + RID_ContratosClienteBeneficiosDelta = '{662E0B0F-1674-4F05-9CF7-89346BE5E7D5}'; + RID_ContratosClienteDelta = '{07069709-DA46-44C8-9C1C-AAB3F80D3F26}'; + RID_TiposCapitulosDelta = '{19191BFF-2C9D-43C5-85D6-81B96CDBBF10}'; + RID_ContratosCliente_DetallesDelta = '{65037CFE-4A72-4CD0-A197-CECC6A4FDD1D}'; type { IValoresDelta } IValoresDelta = interface(IValores) - ['{684CE7DA-07CD-44B6-B5D0-A53167809071}'] + ['{B57572E7-8CF0-400C-A161-CC3597A61C0B}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_PROPIEDADValue : Integer; @@ -78,7 +78,7 @@ type { IPropiedadesDelta } IPropiedadesDelta = interface(IPropiedades) - ['{9411016A-2563-45A8-A869-AD6D77B08D8D}'] + ['{9194A821-5316-4432-AB61-66CB529F49E3}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; @@ -136,7 +136,7 @@ type { IListaAnosContratosDelta } IListaAnosContratosDelta = interface(IListaAnosContratos) - ['{3904C59D-140E-4B09-8883-BAD4283361E1}'] + ['{E141AD09-588D-4313-90DB-61941556C617}'] { Property getters and setters } function GetOldANOValue : String; @@ -170,10 +170,11 @@ type { IContratosClienteBeneficiosDelta } IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios) - ['{33BCE36F-E764-4D57-B64F-CC3336F86D08}'] + ['{662E0B0F-1674-4F05-9CF7-89346BE5E7D5}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldREFERENCIAValue : String; + function GetOldREFERENCIA_CLIENTEValue : String; function GetOldFECHA_CONTRATOValue : DateTime; function GetOldNOMBREValue : String; function GetOldNIF_CIFValue : String; @@ -184,10 +185,13 @@ type function GetOldIMPORTE_BENEFICIOValue : Currency; function GetOldPORCENTAJE_BENEFICIOValue : Currency; function GetOldSITUACIONValue : String; + function GetOldID_VENDEDORValue : Integer; + function GetOldVENDEDORValue : String; { Properties } property OldID : Integer read GetOldIDValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue; property OldFECHA_CONTRATO : DateTime read GetOldFECHA_CONTRATOValue; property OldNOMBRE : String read GetOldNOMBREValue; property OldNIF_CIF : String read GetOldNIF_CIFValue; @@ -198,6 +202,8 @@ type property OldIMPORTE_BENEFICIO : Currency read GetOldIMPORTE_BENEFICIOValue; property OldPORCENTAJE_BENEFICIO : Currency read GetOldPORCENTAJE_BENEFICIOValue; property OldSITUACION : String read GetOldSITUACIONValue; + property OldID_VENDEDOR : Integer read GetOldID_VENDEDORValue; + property OldVENDEDOR : String read GetOldVENDEDORValue; end; { TContratosClienteBeneficiosBusinessProcessorRules } @@ -217,6 +223,12 @@ type function GetOldREFERENCIAIsNull: Boolean; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; + function GetREFERENCIA_CLIENTEValue: String; virtual; + function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual; + function GetOldREFERENCIA_CLIENTEValue: String; virtual; + function GetOldREFERENCIA_CLIENTEIsNull: Boolean; virtual; + procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual; + procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual; function GetFECHA_CONTRATOValue: DateTime; virtual; function GetFECHA_CONTRATOIsNull: Boolean; virtual; function GetOldFECHA_CONTRATOValue: DateTime; virtual; @@ -277,6 +289,18 @@ type function GetOldSITUACIONIsNull: Boolean; virtual; procedure SetSITUACIONValue(const aValue: String); virtual; procedure SetSITUACIONIsNull(const aValue: Boolean); virtual; + function GetID_VENDEDORValue: Integer; virtual; + function GetID_VENDEDORIsNull: Boolean; virtual; + function GetOldID_VENDEDORValue: Integer; virtual; + function GetOldID_VENDEDORIsNull: Boolean; virtual; + procedure SetID_VENDEDORValue(const aValue: Integer); virtual; + procedure SetID_VENDEDORIsNull(const aValue: Boolean); virtual; + function GetVENDEDORValue: String; virtual; + function GetVENDEDORIsNull: Boolean; virtual; + function GetOldVENDEDORValue: String; virtual; + function GetOldVENDEDORIsNull: Boolean; virtual; + procedure SetVENDEDORValue(const aValue: String); virtual; + procedure SetVENDEDORIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; @@ -287,6 +311,10 @@ type property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; + property REFERENCIA_CLIENTE : String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue; + property REFERENCIA_CLIENTEIsNull : Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull; + property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue; + property OldREFERENCIA_CLIENTEIsNull : Boolean read GetOldREFERENCIA_CLIENTEIsNull; property FECHA_CONTRATO : DateTime read GetFECHA_CONTRATOValue write SetFECHA_CONTRATOValue; property FECHA_CONTRATOIsNull : Boolean read GetFECHA_CONTRATOIsNull write SetFECHA_CONTRATOIsNull; property OldFECHA_CONTRATO : DateTime read GetOldFECHA_CONTRATOValue; @@ -327,6 +355,14 @@ type property SITUACIONIsNull : Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; property OldSITUACION : String read GetOldSITUACIONValue; property OldSITUACIONIsNull : Boolean read GetOldSITUACIONIsNull; + property ID_VENDEDOR : Integer read GetID_VENDEDORValue write SetID_VENDEDORValue; + property ID_VENDEDORIsNull : Boolean read GetID_VENDEDORIsNull write SetID_VENDEDORIsNull; + property OldID_VENDEDOR : Integer read GetOldID_VENDEDORValue; + property OldID_VENDEDORIsNull : Boolean read GetOldID_VENDEDORIsNull; + property VENDEDOR : String read GetVENDEDORValue write SetVENDEDORValue; + property VENDEDORIsNull : Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull; + property OldVENDEDOR : String read GetOldVENDEDORValue; + property OldVENDEDORIsNull : Boolean read GetOldVENDEDORIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -336,7 +372,7 @@ type { IContratosClienteDelta } IContratosClienteDelta = interface(IContratosCliente) - ['{5A623AB9-EB89-4FE8-B2EB-DCA2DF9DE9E2}'] + ['{07069709-DA46-44C8-9C1C-AAB3F80D3F26}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -952,7 +988,7 @@ type { ITiposCapitulosDelta } ITiposCapitulosDelta = interface(ITiposCapitulos) - ['{9005E869-C4FF-4100-B6D7-7C3AB110EF02}'] + ['{19191BFF-2C9D-43C5-85D6-81B96CDBBF10}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldPOSICIONValue : Integer; @@ -1046,7 +1082,7 @@ type { IContratosCliente_DetallesDelta } IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles) - ['{922730A0-E1D3-48AF-B9FA-C766F808A26F}'] + ['{65037CFE-4A72-4CD0-A197-CECC6A4FDD1D}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CONTRATOValue : Integer; @@ -1601,6 +1637,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosREFERENCIA] := Null; end; +function TContratosClienteBeneficiosBusinessProcessorRules.GetREFERENCIA_CLIENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosREFERENCIA_CLIENTE]; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetREFERENCIA_CLIENTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosREFERENCIA_CLIENTE]); +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetOldREFERENCIA_CLIENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosREFERENCIA_CLIENTE]; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetOldREFERENCIA_CLIENTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosREFERENCIA_CLIENTE]); +end; + +procedure TContratosClienteBeneficiosBusinessProcessorRules.SetREFERENCIA_CLIENTEValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosREFERENCIA_CLIENTE] := aValue; +end; + +procedure TContratosClienteBeneficiosBusinessProcessorRules.SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosREFERENCIA_CLIENTE] := Null; +end; + function TContratosClienteBeneficiosBusinessProcessorRules.GetFECHA_CONTRATOValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosFECHA_CONTRATO]; @@ -1911,6 +1978,68 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosSITUACION] := Null; end; +function TContratosClienteBeneficiosBusinessProcessorRules.GetID_VENDEDORValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosID_VENDEDOR]; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetID_VENDEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosID_VENDEDOR]); +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetOldID_VENDEDORValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosID_VENDEDOR]; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetOldID_VENDEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosID_VENDEDOR]); +end; + +procedure TContratosClienteBeneficiosBusinessProcessorRules.SetID_VENDEDORValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosID_VENDEDOR] := aValue; +end; + +procedure TContratosClienteBeneficiosBusinessProcessorRules.SetID_VENDEDORIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosID_VENDEDOR] := Null; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetVENDEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosVENDEDOR]; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetVENDEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosVENDEDOR]); +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetOldVENDEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosVENDEDOR]; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetOldVENDEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosVENDEDOR]); +end; + +procedure TContratosClienteBeneficiosBusinessProcessorRules.SetVENDEDORValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosVENDEDOR] := aValue; +end; + +procedure TContratosClienteBeneficiosBusinessProcessorRules.SetVENDEDORIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosVENDEDOR] := Null; +end; + { TContratosClienteBusinessProcessorRules } constructor TContratosClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); diff --git a/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm b/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm index 6b2d3530..7a2d546e 100644 --- a/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm +++ b/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm @@ -137,10 +137,11 @@ object srvContratosCliente: TsrvContratosCliente TargetTable = 'V_CONTRATOS_BENEFICIOS' Name = 'IBX' SQL = - 'SELECT '#10' ID, REFERENCIA, FECHA_CONTRATO, NOMBRE, NIF_CIF, IMP' + - 'ORTE_NETO, '#10' IMPORTE_DESCUENTO, BASE_IMPONIBLE, IMPORTE_FACTU' + - 'RAS_PROVEEDOR, '#10' IMPORTE_BENEFICIO, PORCENTAJE_BENEFICIO, SIT' + - 'UACION'#10' FROM'#10' V_CONTRATOS_BENEFICIOS'#10' WHERE {Where}'#10 + 'SELECT '#10' ID, REFERENCIA, REFERENCIA_CLIENTE, FECHA_CONTRATO, ' + + 'NOMBRE, NIF_CIF, IMPORTE_NETO,'#10' IMPORTE_DESCUENTO, BASE_IMPON' + + 'IBLE, IMPORTE_FACTURAS_PROVEEDOR, '#10' IMPORTE_BENEFICIO, PORCEN' + + 'TAJE_BENEFICIO, SITUACION, ID_VENDEDOR, VENDEDOR'#10' FROM'#10' V_CO' + + 'NTRATOS_BENEFICIOS'#10' WHERE {Where}'#10 StatementType = stSQL ColumnMappings = < item @@ -190,6 +191,18 @@ object srvContratosCliente: TsrvContratosCliente item DatasetField = 'SITUACION' TableField = 'SITUACION' + end + item + DatasetField = 'REFERENCIA_CLIENTE' + TableField = 'REFERENCIA_CLIENTE' + end + item + DatasetField = 'ID_VENDEDOR' + TableField = 'ID_VENDEDOR' + end + item + DatasetField = 'VENDEDOR' + TableField = 'VENDEDOR' end> end> Name = 'ContratosClienteBeneficios' @@ -203,6 +216,11 @@ object srvContratosCliente: TsrvContratosCliente DataType = datString Size = 255 end + item + Name = 'REFERENCIA_CLIENTE' + DataType = datString + Size = 255 + end item Name = 'FECHA_CONTRATO' DataType = datDateTime @@ -245,6 +263,15 @@ object srvContratosCliente: TsrvContratosCliente Name = 'SITUACION' DataType = datString Size = 255 + end + item + Name = 'ID_VENDEDOR' + DataType = datInteger + end + item + Name = 'VENDEDOR' + DataType = datString + Size = 255 end> end item diff --git a/Source/Modulos/Contratos de cliente/Views/uViewContratosClienteBeneficios.dfm b/Source/Modulos/Contratos de cliente/Views/uViewContratosClienteBeneficios.dfm index 8f8e2f50..1d97062c 100644 --- a/Source/Modulos/Contratos de cliente/Views/uViewContratosClienteBeneficios.dfm +++ b/Source/Modulos/Contratos de cliente/Views/uViewContratosClienteBeneficios.dfm @@ -26,6 +26,10 @@ inherited frViewContratosClienteBeneficios: TfrViewContratosClienteBeneficios Caption = 'Referencia' DataBinding.FieldName = 'REFERENCIA' end + object cxGridViewREF_CONTENIDO: TcxGridDBColumn + Caption = 'ref. contenido' + DataBinding.FieldName = 'REFERENCIA_CLIENTE' + end object cxGridViewFECHA_CONTRATO: TcxGridDBColumn Caption = 'Fecha' DataBinding.FieldName = 'FECHA_CONTRATO' @@ -83,6 +87,10 @@ inherited frViewContratosClienteBeneficios: TfrViewContratosClienteBeneficios Properties.Alignment.Horz = taRightJustify Properties.DisplayFormat = ',0.00 %;-,0.00 %' end + object cxGridViewVENDEDOR: TcxGridDBColumn + Caption = 'Vendedor' + DataBinding.FieldName = 'VENDEDOR' + end end inherited cxGridLevel: TcxGridLevel Caption = 'Todos' diff --git a/Source/Modulos/Contratos de cliente/Views/uViewContratosClienteBeneficios.pas b/Source/Modulos/Contratos de cliente/Views/uViewContratosClienteBeneficios.pas index 8bac50b8..178c5c1f 100644 --- a/Source/Modulos/Contratos de cliente/Views/uViewContratosClienteBeneficios.pas +++ b/Source/Modulos/Contratos de cliente/Views/uViewContratosClienteBeneficios.pas @@ -30,6 +30,8 @@ type cxGridPendientes: TcxGridLevel; cxGridTerminados: TcxGridLevel; cxGridViewSITUACION: TcxGridDBColumn; + cxGridViewVENDEDOR: TcxGridDBColumn; + cxGridViewREF_CONTENIDO: TcxGridDBColumn; procedure CustomViewDestroy(Sender: TObject); procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel); diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr index 2f958b77..0ccb3f07 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -133,12 +133,12 @@ uses schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas', schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas', schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas', - schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas', - schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas', schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas', schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas', schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas', - schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas'; + schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_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 03da1f64..54a055d5 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -1,298 +1,299 @@ - + - - {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} - FactuGES_Server.dpr - Debug - AnyCPU - DCC32 - ..\..\Output\Debug\Servidor\FactuGES_Server.exe - - - 7.0 - False - False - 0 - 3 - ..\..\Output\Release\Servidor - RELEASE - - - 7.0 - 3 - ..\..\Output\Debug\Servidor - DEBUG; - True - - - Delphi.Personality - - - FalseTrueFalseTrueFalse2930FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.9.3.0FactuGES (Servidor)2.9.3.0viernes, 17 de mayo de 2019 18:59 - File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found - FactuGES_Server.dpr - - - - - MainSource - - - - - -
srvEjercicios
- TDataAbstractService - - - - -
srvEmpresas
- TDARemoteService - - -
srvProvinciasPoblaciones
- TRORemoteDataModule - - - - - - - - - - - - -
srvAlbaranesCliente
- TDataAbstractService - - - - - -
srvAlbaranesProveedor
- TDataAbstractService - - - - -
srvAlmacenes
- TDARemoteService - - - - - - - - -
RptComisiones
- TDataModule - - -
srvComisiones
- TDataAbstractService - - - - - -
srvContabilidad
- TDataAbstractService - - - - - - - - -
RptListadosContactos
- TDataModule - - -
srvContactos
- TDARemoteService - - - - - -
RptContratosCliente
- - -
srvContratosCliente
- TDataAbstractService - - - - - -
RptFacturasCliente
- TDataModule - - -
srvFacturasCliente
- TDataAbstractService - - - - - -
RptFacturasProveedor
- TDataModule - - -
srvFacturasProveedor
- TDataAbstractService - - - - - - - - -
srvGestorDocumentos
- TDataAbstractService - - -
srvGestorInformes
- TDataAbstractService - - - - -
srvHistoricoMovimientos
- TDataAbstractService - - - - -
srvInventario
- TDataAbstractService - - - - - -
RptPedidosProveedor
- TDataModule - - -
srvPedidosProveedor
- TDataAbstractService - - - - - -
RptPresupuestosCliente
- - -
srvPresupuestosCliente
- TDataAbstractService - - - - - - -
RptRecibosCliente
- TDataModule - - -
srvRecibosCliente
- TDataAbstractService - - - - - - -
RptRecibosProveedor
- TDataModule - - -
srvRecibosProveedor
- TDataAbstractService - - - - -
srvReferencias
- TDataAbstractService - - - - - -
srvRemesasCliente
- TDataAbstractService - - - - - -
srvRemesasProveedor
- TDataAbstractService - - - - - - - -
srvUnidadesMedida
- TDataAbstractService - - - - -
srvConfiguracion
- TDataAbstractService - - -
frConexionBD
- TFrame - - -
frConfGeneral
- TFrame - - -
fConfiguracion
- TForm - - -
FrameConfiguracion
- TFrame - - -
srvLogin
- TDARemoteService - - -
fAcercaDe
- - -
dmServer
- TDataModule - - -
fServerForm
- - - - - - - - - - + + {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} + FactuGES_Server.dpr + Debug + AnyCPU + DCC32 + ..\..\Output\Debug\Servidor\FactuGES_Server.exe + + + 7.0 + False + False + 0 + 3 + ..\..\Output\Release\Servidor + RELEASE + + + 7.0 + 3 + ..\..\Output\Debug\Servidor + DEBUG; + True + + + Delphi.Personality + + +FalseTrueFalseTrueFalse2930FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.9.3.0FactuGES (Servidor)2.9.3.0viernes, 17 de mayo de 2019 18:59 + + File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found + FactuGES_Server.dpr + + + + + MainSource + + + + + +
srvEjercicios
+ TDataAbstractService + + + + +
srvEmpresas
+ TDARemoteService + + +
srvProvinciasPoblaciones
+ TRORemoteDataModule + + + + + + + + + + + + +
srvAlbaranesCliente
+ TDataAbstractService + + + + + +
srvAlbaranesProveedor
+ TDataAbstractService + + + + +
srvAlmacenes
+ TDARemoteService + + + + + + + + +
RptComisiones
+ TDataModule + + +
srvComisiones
+ TDataAbstractService + + + + + +
srvContabilidad
+ TDataAbstractService + + + + + + + + +
RptListadosContactos
+ TDataModule + + +
srvContactos
+ TDARemoteService + + + + + +
RptContratosCliente
+ + +
srvContratosCliente
+ TDataAbstractService + + + + + +
RptFacturasCliente
+ TDataModule + + +
srvFacturasCliente
+ TDataAbstractService + + + + + +
RptFacturasProveedor
+ TDataModule + + +
srvFacturasProveedor
+ TDataAbstractService + + + + + + + + +
srvGestorDocumentos
+ TDataAbstractService + + +
srvGestorInformes
+ TDataAbstractService + + + + +
srvHistoricoMovimientos
+ TDataAbstractService + + + + +
srvInventario
+ TDataAbstractService + + + + + +
RptPedidosProveedor
+ TDataModule + + +
srvPedidosProveedor
+ TDataAbstractService + + + + + +
RptPresupuestosCliente
+ + +
srvPresupuestosCliente
+ TDataAbstractService + + + + + + +
RptRecibosCliente
+ TDataModule + + +
srvRecibosCliente
+ TDataAbstractService + + + + + + +
RptRecibosProveedor
+ TDataModule + + +
srvRecibosProveedor
+ TDataAbstractService + + + + +
srvReferencias
+ TDataAbstractService + + + + + +
srvRemesasCliente
+ TDataAbstractService + + + + + +
srvRemesasProveedor
+ TDataAbstractService + + + + + + + +
srvUnidadesMedida
+ TDataAbstractService + + + + +
srvConfiguracion
+ TDataAbstractService + + +
frConexionBD
+ TFrame + + +
frConfGeneral
+ TFrame + + +
fConfiguracion
+ TForm + + +
FrameConfiguracion
+ TFrame + + +
srvLogin
+ TDARemoteService + + +
fAcercaDe
+ + +
dmServer
+ TDataModule + + +
fServerForm
+ + + + + + + + + +