diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql index 3fa58cfe..2c18a2ea 100644 --- a/Database/scripts/factuges.sql +++ b/Database/scripts/factuges.sql @@ -934,7 +934,8 @@ CREATE TABLE CONTRATOS_CLIENTE ( MOVIL VARCHAR(25), ID_DIRECCION TIPO_ID, TIPO_CONTRATO VARCHAR(255), - CONDICIONES TIPO_NOTAS + CONDICIONES TIPO_NOTAS, + REFERENCIA_CLIENTE VARCHAR(255) COLLATE ES_ES ); @@ -1396,7 +1397,8 @@ CREATE TABLE PRESUPUESTOS_CLIENTE ( ID_CONTRATO TIPO_ID, NO_VALORADO TIPO_BOOLEANO, TIPO_PRESUPUESTO VARCHAR(255), - CALIDADES TIPO_NOTAS + CALIDADES TIPO_NOTAS, + REFERENCIA_CLIENTE VARCHAR(255) COLLATE ES_ES ); @@ -2540,7 +2542,9 @@ CREATE VIEW V_CONTRATOS_CLIENTE( VENDEDOR, PERSONA_CONTACTO, TIPO_CONTRATO, - CONDICIONES) + CONDICIONES, + CALIDADES, + REFERENCIA_CLIENTE) AS SELECT CONTRATOS_CLIENTE.ID, /* CONTRATOS_CLIENTE.ID_EMPRESA,*/ @@ -2588,7 +2592,9 @@ SELECT CONTRATOS_CLIENTE.ID, CONTACTOS2.NOMBRE AS VENDEDOR, CONTRATOS_CLIENTE.PERSONA_CONTACTO, CONTRATOS_CLIENTE.TIPO_CONTRATO, - CONTRATOS_CLIENTE.CONDICIONES + CONTRATOS_CLIENTE.CONDICIONES, + CONTRATOS_CLIENTE.CALIDADES, + CONTRATOS_CLIENTE.REFERENCIA_CLIENTE FROM CONTRATOS_CLIENTE LEFT OUTER JOIN CONTACTOS ON (CONTACTOS.ID = CONTRATOS_CLIENTE.ID_CLIENTE) @@ -3875,7 +3881,8 @@ CREATE VIEW V_PRESUPUESTOS_CLIENTE( REF_CONTRATO, NO_VALORADO, TIPO_PRESUPUESTO, - CALIDADES) + CALIDADES, + REFERENCIA_CLIENTE) AS SELECT PRESUPUESTOS_CLIENTE.ID, @@ -3920,7 +3927,8 @@ SELECT CONTRATOS_CLIENTE.REFERENCIA, PRESUPUESTOS_CLIENTE.NO_VALORADO, PRESUPUESTOS_CLIENTE.TIPO_PRESUPUESTO, - PRESUPUESTOS_CLIENTE.CALIDADES + PRESUPUESTOS_CLIENTE.CALIDADES, + PRESUPUESTOS_CLIENTE.REFERENCIA_CLIENTE FROM PRESUPUESTOS_CLIENTE @@ -3931,7 +3939,6 @@ FROM LEFT OUTER JOIN CONTRATOS_CLIENTE ON (CONTRATOS_CLIENTE.ID = PRESUPUESTOS_CLIENTE.ID_CONTRATO) ; - /* View: V_PROVEEDORES */ CREATE VIEW V_PROVEEDORES( ID, diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index d27223dd..e6af759e 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -44,27 +44,6 @@ 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 @@ -80,54 +59,54 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fConfigurarConexion
TForm diff --git a/Source/Base/Base.res b/Source/Base/Base.res index 8b251f31..1641339f 100644 Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index 53e7c261..9fa27b3d 100644 --- a/Source/Cliente/FactuGES.dproj +++ b/Source/Cliente/FactuGES.dproj @@ -52,7 +52,8 @@ Delphi.Personality VCLApplication -FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2580FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.5.8.0FactuGESFactuGES2.5.8.0 +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2590FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.5.9.0FactuGESFactuGES2.5.9.0 + File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found FactuGES.dprFalse diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc index 2cf0886b..f50aa1f3 100644 --- a/Source/Cliente/FactuGES.rc +++ b/Source/Cliente/FactuGES.rc @@ -1,7 +1,7 @@ MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico" 1 VERSIONINFO -FILEVERSION 2,5,8,0 -PRODUCTVERSION 2,5,8,0 +FILEVERSION 2,5,9,0 +PRODUCTVERSION 2,5,9,0 FILEFLAGSMASK 0x3FL FILEFLAGS 0x00L FILEOS 0x40004L @@ -13,10 +13,10 @@ BEGIN BLOCK "0C0A04E4" BEGIN VALUE "CompanyName", "Rodax Software S.L.\0" - VALUE "FileVersion", "2.5.8.0\0" + VALUE "FileVersion", "2.5.9.0\0" VALUE "InternalName", "FactuGES\0" VALUE "ProductName", "FactuGES\0" - VALUE "ProductVersion", "2.5.8.0\0" + VALUE "ProductVersion", "2.5.9.0\0" END END BLOCK "VarFileInfo" diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index 92ce79f9..ceae5191 100644 Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj index f44e3be7..958a997a 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 8b251f31..1641339f 100644 Binary files a/Source/GUIBase/GUIBase.res and b/Source/GUIBase/GUIBase.res differ diff --git a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm index a695b985..cfeaf6d9 100644 --- a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm +++ b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm @@ -332,6 +332,11 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente DataType = datMemo DisplayLabel = 'Calidades' DictionaryEntry = 'ContratosCliente_CALIDADES' + end + item + Name = 'REFERENCIA_CLIENTE' + 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 42593d4b..7eb8c620 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 = '{F0526200-C062-476D-80A3-1CC74B381BC7}'; - RID_Propiedades = '{761E7D92-ACCC-487C-B663-31B34E278F2C}'; - RID_ListaAnosContratos = '{EFA96A9D-E452-46F5-92D2-6301FA044EB5}'; - RID_ContratosClienteBeneficios = '{70EF0F8A-3021-466B-8D83-EEFC14E93578}'; - RID_ContratosCliente = '{5474C56D-8D15-4BBF-A918-B09541C5DD87}'; - RID_TiposCapitulos = '{E013587B-70DE-493C-A82F-1436745706BE}'; - RID_ContratosCliente_Detalles = '{C8845677-3FB0-4456-90DE-C5B5447BB721}'; + RID_Valores = '{DB288B62-3376-4EA8-A16B-92FABB15E1A7}'; + RID_Propiedades = '{3F49C9C0-A176-4268-BBE1-2F3A6ED0AF94}'; + RID_ListaAnosContratos = '{88182026-223D-438E-92E0-EA01835AF503}'; + RID_ContratosClienteBeneficios = '{F521EB65-8167-449B-BF50-EA1CB017F919}'; + RID_ContratosCliente = '{1EE07E71-6530-4136-9372-8A62ABB4C53E}'; + RID_TiposCapitulos = '{A686096C-3DDA-428A-8717-B490FBF9D421}'; + RID_ContratosCliente_Detalles = '{A466E6CC-EAD0-4A56-B5A1-75AD4BCAD0EA}'; { Data table names } nme_Valores = 'Valores'; @@ -126,6 +126,7 @@ const fld_ContratosClienteTIPO_CONTRATO = 'TIPO_CONTRATO'; fld_ContratosClienteCONDICIONES = 'CONDICIONES'; fld_ContratosClienteCALIDADES = 'CALIDADES'; + fld_ContratosClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE'; { ContratosCliente field indexes } idx_ContratosClienteID = 0; @@ -175,6 +176,7 @@ const idx_ContratosClienteTIPO_CONTRATO = 44; idx_ContratosClienteCONDICIONES = 45; idx_ContratosClienteCALIDADES = 46; + idx_ContratosClienteREFERENCIA_CLIENTE = 47; { TiposCapitulos fields } fld_TiposCapitulosID = 'ID'; @@ -233,7 +235,7 @@ const type { IValores } IValores = interface(IDAStronglyTypedDataTable) - ['{F961655F-A527-46B5-8498-A63C87148DBD}'] + ['{47E1BDF6-B0A2-4419-BEB6-0DF205C5F64C}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -259,7 +261,7 @@ type end; { TValoresDataTableRules } - TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores) + TValoresDataTableRules = class(TDADataTableRules, IValores) private protected { Property getters and setters } @@ -292,7 +294,7 @@ type { IPropiedades } IPropiedades = interface(IDAStronglyTypedDataTable) - ['{C8EA9375-DC1B-4883-AA5D-337B12C8CB03}'] + ['{5C51DAC7-B80E-4A79-9BAA-005E517E5A9D}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -318,7 +320,7 @@ type end; { TPropiedadesDataTableRules } - TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades) + TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades) private protected { Property getters and setters } @@ -351,7 +353,7 @@ type { IListaAnosContratos } IListaAnosContratos = interface(IDAStronglyTypedDataTable) - ['{477D5EE0-90BB-4992-A681-D55DE22F223F}'] + ['{83AF2CBF-AA2F-45F6-AD84-C87BAC7B6695}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -365,7 +367,7 @@ type end; { TListaAnosContratosDataTableRules } - TListaAnosContratosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosContratos) + TListaAnosContratosDataTableRules = class(TDADataTableRules, IListaAnosContratos) private protected { Property getters and setters } @@ -386,7 +388,7 @@ type { IContratosClienteBeneficios } IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable) - ['{C1AD6AEE-9535-4AAD-84EC-C4F26774FDD5}'] + ['{04BD7FD9-0F85-4F94-B8D4-8CCBB1C4D7DA}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -460,7 +462,7 @@ type end; { TContratosClienteBeneficiosDataTableRules } - TContratosClienteBeneficiosDataTableRules = class(TIntfObjectDADataTableRules, IContratosClienteBeneficios) + TContratosClienteBeneficiosDataTableRules = class(TDADataTableRules, IContratosClienteBeneficios) private protected { Property getters and setters } @@ -541,7 +543,7 @@ type { IContratosCliente } IContratosCliente = interface(IDAStronglyTypedDataTable) - ['{04D661CB-EC6C-49CD-BD55-5A14CCA1E63C}'] + ['{8462E438-53BE-4ED9-8C10-AB5CDDAACA1A}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -725,6 +727,10 @@ type function GetCALIDADESValue: IROStrings; function GetCALIDADESIsNull: Boolean; procedure SetCALIDADESIsNull(const aValue: Boolean); + function GetREFERENCIA_CLIENTEValue: String; + procedure SetREFERENCIA_CLIENTEValue(const aValue: String); + function GetREFERENCIA_CLIENTEIsNull: Boolean; + procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); { Properties } @@ -822,10 +828,12 @@ type property CONDICIONESIsNull: Boolean read GetCONDICIONESIsNull write SetCONDICIONESIsNull; property CALIDADES: IROStrings read GetCALIDADESValue; property CALIDADESIsNull: Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull; + property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue; + property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull; end; { TContratosClienteDataTableRules } - TContratosClienteDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente) + TContratosClienteDataTableRules = class(TDADataTableRules, IContratosCliente) private f_FORMA_PAGO: IROStrings; f_PLAZO_ENTREGA: IROStrings; @@ -1023,6 +1031,10 @@ type function GetCALIDADESValue: IROStrings; virtual; function GetCALIDADESIsNull: Boolean; virtual; procedure SetCALIDADESIsNull(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; { Properties } property ID: Integer read GetIDValue write SetIDValue; @@ -1119,6 +1131,8 @@ type property CONDICIONESIsNull: Boolean read GetCONDICIONESIsNull write SetCONDICIONESIsNull; property CALIDADES: IROStrings read GetCALIDADESValue; property CALIDADESIsNull: Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull; + property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue; + property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -1131,7 +1145,7 @@ type } { ITiposCapitulos } ITiposCapitulos = interface(IDAStronglyTypedDataTable) - ['{2ECBA155-63C8-4E4A-ABFA-0447AF922692}'] + ['{3BA1C9A1-DD78-47B3-B1DE-F671F7B2B0C8}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1175,7 +1189,7 @@ type end; { TTiposCapitulosDataTableRules } - TTiposCapitulosDataTableRules = class(TIntfObjectDADataTableRules, ITiposCapitulos) + TTiposCapitulosDataTableRules = class(TDADataTableRules, ITiposCapitulos) private protected { Property getters and setters } @@ -1226,7 +1240,7 @@ type { IContratosCliente_Detalles } IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{C6C57E6F-5A54-4337-88B0-B74807CF03CD}'] + ['{EA171C1D-256C-44C8-AA5E-727819A510D5}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1336,7 +1350,7 @@ type end; { TContratosCliente_DetallesDataTableRules } - TContratosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente_Detalles) + TContratosCliente_DetallesDataTableRules = class(TDADataTableRules, IContratosCliente_Detalles) private protected { Property getters and setters } @@ -2911,6 +2925,27 @@ begin DataTable.Fields[idx_ContratosClienteCALIDADES].AsVariant := Null; end; +function TContratosClienteDataTableRules.GetREFERENCIA_CLIENTEValue: String; +begin + result := DataTable.Fields[idx_ContratosClienteREFERENCIA_CLIENTE].AsString; +end; + +procedure TContratosClienteDataTableRules.SetREFERENCIA_CLIENTEValue(const aValue: String); +begin + DataTable.Fields[idx_ContratosClienteREFERENCIA_CLIENTE].AsString := aValue; +end; + +function TContratosClienteDataTableRules.GetREFERENCIA_CLIENTEIsNull: boolean; +begin + result := DataTable.Fields[idx_ContratosClienteREFERENCIA_CLIENTE].IsNull; +end; + +procedure TContratosClienteDataTableRules.SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ContratosClienteREFERENCIA_CLIENTE].AsVariant := Null; +end; + { TTiposCapitulosDataTableRules } constructor TTiposCapitulosDataTableRules.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 9e053cde..8668da59 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 = '{38C40949-A51A-4309-80CD-2D42A1603624}'; - RID_PropiedadesDelta = '{38B2F017-BDA0-45D7-8FE6-20FBA829A97B}'; - RID_ListaAnosContratosDelta = '{7874DD16-167E-457B-BD65-4AE8A24EDBF3}'; - RID_ContratosClienteBeneficiosDelta = '{586FA3E2-5AB1-4D49-89D1-09EA9581E6FA}'; - RID_ContratosClienteDelta = '{526FC8D5-7105-4C5C-9956-342BEB9C9C12}'; - RID_TiposCapitulosDelta = '{3CF19FFB-79CB-4BEB-AB92-BFAC26395C7E}'; - RID_ContratosCliente_DetallesDelta = '{7F0E3428-95C8-47D6-8D41-D2FF2C661C75}'; + RID_ValoresDelta = '{EB84C856-C87F-4ED4-A98D-050744E9CCB6}'; + RID_PropiedadesDelta = '{409D42DE-E54B-4042-9ACB-004C3568EEBA}'; + RID_ListaAnosContratosDelta = '{60EBEB72-4CF4-42A9-85DE-817C53EC0473}'; + RID_ContratosClienteBeneficiosDelta = '{C5BF5C61-FB5F-4A2F-B74D-55EEFDCED70D}'; + RID_ContratosClienteDelta = '{C0AF8753-5906-4472-8FD1-040299E5C45E}'; + RID_TiposCapitulosDelta = '{1C929971-38B4-421A-A50C-D7DE36FA55C0}'; + RID_ContratosCliente_DetallesDelta = '{F8984113-BD7D-4FFA-B223-D24FC930C2AB}'; type { IValoresDelta } IValoresDelta = interface(IValores) - ['{38C40949-A51A-4309-80CD-2D42A1603624}'] + ['{EB84C856-C87F-4ED4-A98D-050744E9CCB6}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_PROPIEDADValue : Integer; @@ -78,7 +78,7 @@ type { IPropiedadesDelta } IPropiedadesDelta = interface(IPropiedades) - ['{38B2F017-BDA0-45D7-8FE6-20FBA829A97B}'] + ['{409D42DE-E54B-4042-9ACB-004C3568EEBA}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; @@ -136,7 +136,7 @@ type { IListaAnosContratosDelta } IListaAnosContratosDelta = interface(IListaAnosContratos) - ['{7874DD16-167E-457B-BD65-4AE8A24EDBF3}'] + ['{60EBEB72-4CF4-42A9-85DE-817C53EC0473}'] { Property getters and setters } function GetOldANOValue : String; @@ -170,7 +170,7 @@ type { IContratosClienteBeneficiosDelta } IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios) - ['{586FA3E2-5AB1-4D49-89D1-09EA9581E6FA}'] + ['{C5BF5C61-FB5F-4A2F-B74D-55EEFDCED70D}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldREFERENCIAValue : String; @@ -324,7 +324,7 @@ type { IContratosClienteDelta } IContratosClienteDelta = interface(IContratosCliente) - ['{526FC8D5-7105-4C5C-9956-342BEB9C9C12}'] + ['{C0AF8753-5906-4472-8FD1-040299E5C45E}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -373,6 +373,7 @@ type function GetOldTIPO_CONTRATOValue : String; function GetOldCONDICIONESValue : IROStrings; function GetOldCALIDADESValue : IROStrings; + function GetOldREFERENCIA_CLIENTEValue : String; { Properties } property OldID : Integer read GetOldIDValue; @@ -422,6 +423,7 @@ type property OldTIPO_CONTRATO : String read GetOldTIPO_CONTRATOValue; property OldCONDICIONES : IROStrings read GetOldCONDICIONESValue; property OldCALIDADES : IROStrings read GetOldCALIDADESValue; + property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue; end; { TContratosClienteBusinessProcessorRules } @@ -717,6 +719,12 @@ type function GetOldCALIDADESValue: IROStrings; virtual; function GetOldCALIDADESIsNull: Boolean; virtual; procedure SetCALIDADESIsNull(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; { Properties } property ID : Integer read GetIDValue write SetIDValue; @@ -907,6 +915,10 @@ type property CALIDADESIsNull : Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull; property OldCALIDADES : IROStrings read GetOldCALIDADESValue; property OldCALIDADESIsNull : Boolean read GetOldCALIDADESIsNull; + 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; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -916,7 +928,7 @@ type { ITiposCapitulosDelta } ITiposCapitulosDelta = interface(ITiposCapitulos) - ['{3CF19FFB-79CB-4BEB-AB92-BFAC26395C7E}'] + ['{1C929971-38B4-421A-A50C-D7DE36FA55C0}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldPOSICIONValue : Integer; @@ -1010,7 +1022,7 @@ type { IContratosCliente_DetallesDelta } IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles) - ['{7F0E3428-95C8-47D6-8D41-D2FF2C661C75}'] + ['{F8984113-BD7D-4FFA-B223-D24FC930C2AB}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CONTRATOValue : Integer; @@ -3351,6 +3363,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCALIDADES] := Null; end; +function TContratosClienteBusinessProcessorRules.GetREFERENCIA_CLIENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteREFERENCIA_CLIENTE]; +end; + +function TContratosClienteBusinessProcessorRules.GetREFERENCIA_CLIENTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteREFERENCIA_CLIENTE]); +end; + +function TContratosClienteBusinessProcessorRules.GetOldREFERENCIA_CLIENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteREFERENCIA_CLIENTE]; +end; + +function TContratosClienteBusinessProcessorRules.GetOldREFERENCIA_CLIENTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteREFERENCIA_CLIENTE]); +end; + +procedure TContratosClienteBusinessProcessorRules.SetREFERENCIA_CLIENTEValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteREFERENCIA_CLIENTE] := aValue; +end; + +procedure TContratosClienteBusinessProcessorRules.SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteREFERENCIA_CLIENTE] := Null; +end; + { TTiposCapitulosBusinessProcessorRules } constructor TTiposCapitulosBusinessProcessorRules.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 091cc4de..87a25600 100644 --- a/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm +++ b/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm @@ -434,6 +434,10 @@ object srvContratosCliente: TsrvContratosCliente item DatasetField = 'CALIDADES' TableField = 'CALIDADES' + end + item + DatasetField = 'REFERENCIA_CLIENTE' + TableField = 'REFERENCIA_CLIENTE' end> end> Name = 'ContratosCliente' @@ -696,6 +700,11 @@ object srvContratosCliente: TsrvContratosCliente Name = 'CALIDADES' DataType = datMemo DictionaryEntry = 'ContratosCliente_CALIDADES' + end + item + Name = 'REFERENCIA_CLIENTE' + DataType = datString + Size = 255 end> end item @@ -946,11 +955,6 @@ object srvContratosCliente: TsrvContratosCliente Commands = < item Params = < - item - Name = 'CALIDADES' - DataType = datMemo - Value = '' - end item Name = 'ID' DataType = datAutoInc @@ -1154,6 +1158,17 @@ object srvContratosCliente: TsrvContratosCliente Name = 'CONDICIONES' DataType = datMemo Value = '' + end + item + Name = 'CALIDADES' + DataType = datMemo + Value = '' + end + item + Name = 'REFERENCIA_CLIENTE' + DataType = datString + Size = 255 + Value = '' end> Statements = < item @@ -1169,17 +1184,17 @@ object srvContratosCliente: TsrvContratosCliente 'MPORTE_DESCUENTO,'#10' BASE_IMPONIBLE, ID_TIPO_IVA, IVA, IMPORTE' + '_IVA,'#10' IMPORTE_TOTAL, ID_FORMA_PAGO, ID_TIENDA, ID_VENDEDOR,' + ' PERSONA_CONTACTO,'#10' RE, IMPORTE_RE, RECARGO_EQUIVALENCIA, TE' + - 'LEFONO, MOVIL, TIPO_CONTRATO, CONDICIONES,'#10' CALIDADES)'#10' VAL' + - 'UES'#10' (:ID, :ID_CLIENTE, :NIF_CIF, :NOMBRE, :ID_DIRECCION, :CA' + - 'LLE, :POBLACION, :PROVINCIA,'#10' :CODIGO_POSTAL, :REFERENCIA, :' + - 'FECHA_CONTRATO, :SITUACION, :FORMA_PAGO,'#10' :PLAZO_ENTREGA, :O' + - 'BSERVACIONES, :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, CURRENT_TIMEST' + - 'AMP,'#10' :USUARIO, :IMPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO, :' + - 'IMPORTE_DESCUENTO,'#10' :BASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IM' + - 'PORTE_IVA, :IMPORTE_TOTAL, :ID_FORMA_PAGO,'#10' :ID_TIENDA, :ID_' + - 'VENDEDOR, :PERSONA_CONTACTO, :RE, :IMPORTE_RE, :RECARGO_EQUIVALE' + - 'NCIA,'#10' :TELEFONO, :MOVIL, :TIPO_CONTRATO, :CONDICIONES, :CAL' + - 'IDADES)'#10#10 + 'LEFONO, MOVIL, TIPO_CONTRATO, CONDICIONES,'#10' CALIDADES, REFER' + + 'ENCIA_CLIENTE)'#10' VALUES'#10' (:ID, :ID_CLIENTE, :NIF_CIF, :NOMBRE' + + ', :ID_DIRECCION, :CALLE, :POBLACION, :PROVINCIA,'#10' :CODIGO_PO' + + 'STAL, :REFERENCIA, :FECHA_CONTRATO, :SITUACION, :FORMA_PAGO,'#10' ' + + ' :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS, :INCIDENCIAS_ACT' + + 'IVAS, CURRENT_TIMESTAMP,'#10' :USUARIO, :IMPORTE_NETO, :IMPORTE_' + + 'PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BASE_IMPONIBLE, :ID' + + '_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :ID_FORMA_PAGO,'#10' ' + + ' :ID_TIENDA, :ID_VENDEDOR, :PERSONA_CONTACTO, :RE, :IMPORTE_R' + + 'E, :RECARGO_EQUIVALENCIA,'#10' :TELEFONO, :MOVIL, :TIPO_CONTRATO' + + ', :CONDICIONES, :CALIDADES, :REFERENCIA_CLIENTE)'#10#10 StatementType = stSQL ColumnMappings = <> end> @@ -1205,15 +1220,9 @@ object srvContratosCliente: TsrvContratosCliente end item Params = < - item - Name = 'CALIDADES' - DataType = datMemo - Value = '' - end item Name = 'ID' - DataType = datAutoInc - GeneratorName = 'GEN_CONTRATOS_CLI_ID' + DataType = datInteger Value = '' end item @@ -1414,6 +1423,17 @@ object srvContratosCliente: TsrvContratosCliente DataType = datMemo Value = '' end + item + Name = 'CALIDADES' + DataType = datMemo + Value = '' + end + item + Name = 'REFERENCIA_CLIENTE' + DataType = datString + Size = 255 + Value = '' + end item Name = 'OLD_ID' Value = '' @@ -1443,7 +1463,8 @@ object srvContratosCliente: TsrvContratosCliente 'RE,'#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10' TELEFO' + 'NO = :TELEFONO,'#10' MOVIL = :MOVIL,'#10' TIPO_CONTRATO = :TIPO_CO' + 'NTRATO,'#10' CONDICIONES = :CONDICIONES,'#10' CALIDADES = :CALIDAD' + - 'ES'#10' WHERE'#10' (ID = :OLD_ID)'#10#10 + 'ES,'#10' REFERENCIA_CLIENTE = :REFERENCIA_CLIENTE'#10' WHERE'#10' (ID' + + ' = :OLD_ID)'#10#10 StatementType = stSQL ColumnMappings = <> end> diff --git a/Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.dfm b/Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.dfm index 554c903e..e0276f3f 100644 --- a/Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.dfm +++ b/Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.dfm @@ -20,7 +20,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente 449) object edtFechaContrato: TcxDBDateEdit Left = 104 - Top = 55 + Top = 82 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_CONTRATO' DataBinding.DataSource = DADataSource @@ -38,11 +38,11 @@ inherited frViewContratoCliente: TfrViewContratoCliente StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 1 + TabOrder = 2 Width = 129 end object memObservaciones: TcxDBMemo - Left = 377 + Left = 384 Top = 289 Anchors = [akLeft, akTop, akRight, akBottom] DataBinding.DataField = 'OBSERVACIONES' @@ -59,7 +59,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 10 + TabOrder = 11 Height = 200 Width = 507 end @@ -90,7 +90,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente end object cbFormaPago: TcxDBLookupComboBox Left = 104 - Top = 109 + Top = 136 DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataSource = DADataSource Properties.KeyFieldNames = 'ID' @@ -115,21 +115,21 @@ inherited frViewContratoCliente: TfrViewContratoCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 4 + TabOrder = 5 Width = 122 end object bFormasPago: TButton - Left = 215 - Top = 109 + Left = 222 + Top = 136 Width = 132 Height = 21 Caption = 'Ver las formas de pago...' - TabOrder = 5 + TabOrder = 6 OnClick = bFormasPagoClick end object cbSituacion: TcxDBImageComboBox Left = 104 - Top = 82 + Top = 109 DataBinding.DataField = 'SITUACION' DataBinding.DataSource = DADataSource Properties.Items = < @@ -154,11 +154,11 @@ inherited frViewContratoCliente: TfrViewContratoCliente StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 3 + TabOrder = 4 Width = 260 end inline frViewDatosYSeleccionClienteContrato1: TfrViewDatosYSeleccionClienteContrato - Left = 377 + Left = 384 Top = 28 Width = 127 Height = 225 @@ -168,9 +168,9 @@ inherited frViewContratoCliente: TfrViewContratoCliente Font.Name = 'Tahoma' Font.Style = [] ParentFont = False - TabOrder = 9 + TabOrder = 10 ReadOnly = False - ExplicitLeft = 377 + ExplicitLeft = 384 ExplicitTop = 28 ExplicitWidth = 127 ExplicitHeight = 225 @@ -188,24 +188,24 @@ inherited frViewContratoCliente: TfrViewContratoCliente Width = 103 end inherited bVerFichaCliente: TBitBtn - Left = 209 - ExplicitLeft = 209 + Left = 202 + ExplicitLeft = 202 end inherited edtDireccion: TcxMemo ExplicitWidth = 121 Width = 121 end inherited bElegirDireccion: TButton - Left = 378 - ExplicitLeft = 378 + Left = 371 + ExplicitLeft = 371 end inherited edtTelefonos: TcxTextEdit ExplicitWidth = 193 Width = 193 end inherited edtReferencia: TcxDBTextEdit - Left = 267 - ExplicitLeft = 267 + Left = 263 + ExplicitLeft = 263 ExplicitWidth = 103 Width = 103 end @@ -213,7 +213,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente end object memFormaPago: TcxDBMemo Left = 22 - Top = 193 + Top = 220 Anchors = [akLeft, akTop, akRight, akBottom] DataBinding.DataField = 'FORMA_PAGO' DataBinding.DataSource = DADataSource @@ -229,35 +229,35 @@ inherited frViewContratoCliente: TfrViewContratoCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 7 - Height = 100 - Width = 396 - end - object memPlazoEntrega: TcxDBMemo - Left = 22 - Top = 328 - Anchors = [akLeft, akTop, akRight, akBottom] - DataBinding.DataField = 'PLAZO_ENTREGA' - DataBinding.DataSource = DADataSource - Properties.ScrollBars = ssVertical - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.HotTrack = False - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True TabOrder = 8 Height = 100 Width = 396 end + object memPlazoEntrega: TcxDBMemo + Left = 22 + Top = 342 + Anchors = [akLeft, akTop, akRight, akBottom] + DataBinding.DataField = 'PLAZO_ENTREGA' + DataBinding.DataSource = DADataSource + Properties.ScrollBars = ssVertical + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 9 + Height = 100 + Width = 396 + end object cbVendedor: TcxDBLookupComboBox Left = 104 - Top = 136 + Top = 163 DataBinding.DataField = 'ID_VENDEDOR' DataBinding.DataSource = DADataSource Properties.KeyFieldNames = 'ID' @@ -282,12 +282,12 @@ inherited frViewContratoCliente: TfrViewContratoCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 6 + TabOrder = 7 Width = 27 end object cbTipoContrato: TcxDBComboBox - Left = 271 - Top = 55 + Left = 274 + Top = 82 DataBinding.DataField = 'TIPO_CONTRATO' DataBinding.DataSource = DADataSource Properties.ImmediatePost = True @@ -308,9 +308,31 @@ inherited frViewContratoCliente: TfrViewContratoCliente StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 2 + TabOrder = 3 Width = 113 end + object edtlREF_CLIENTE: TcxDBTextEdit + Left = 104 + Top = 55 + Anchors = [akLeft, akTop, akRight] + AutoSize = False + DataBinding.DataField = 'REFERENCIA_CLIENTE' + DataBinding.DataSource = DADataSource + ParentFont = False + Properties.ReadOnly = False + Properties.UseLeftAlignmentOnEditing = False + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.HotTrack = False + Style.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 1 + Height = 21 + Width = 335 + end object dxLayoutControl1Group_Root: TdxLayoutGroup ShowCaption = False Hidden = True @@ -333,6 +355,11 @@ inherited frViewContratoCliente: TfrViewContratoCliente Control = eReferencia ControlOptions.ShowBorder = False end + object dxLayoutControl1Item12: TdxLayoutItem + Caption = 'Ref. contenido:' + Control = edtlREF_CLIENTE + ControlOptions.ShowBorder = False + end object dxLayoutControl1Group11: TdxLayoutGroup ShowCaption = False Hidden = True diff --git a/Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.pas b/Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.pas index aaa91b41..7850690b 100644 --- a/Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.pas +++ b/Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.pas @@ -64,6 +64,8 @@ type dxLayoutControl1Item7: TdxLayoutItem; cbTipoContrato: TcxDBComboBox; dxLayoutControl1Group11: TdxLayoutGroup; + dxLayoutControl1Item12: TdxLayoutItem; + edtlREF_CLIENTE: TcxDBTextEdit; procedure CustomViewCreate(Sender: TObject); procedure CustomViewDestroy(Sender: TObject); procedure bFormasPagoClick(Sender: TObject); diff --git a/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm b/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm index 23d2704e..e11408ff 100644 --- a/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm +++ b/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm @@ -68,6 +68,10 @@ inherited frViewContratosCliente: TfrViewContratosCliente SortOrder = soDescending Width = 58 end + object cxGridViewColumn1: TcxGridDBColumn + Caption = 'Ref. contenido:' + DataBinding.FieldName = 'REFERENCIA_CLIENTE' + end object cxGridViewTIPO_CONTRATO: TcxGridDBColumn DataBinding.FieldName = 'TIPO_CONTRATO' BestFitMaxWidth = 25 diff --git a/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas b/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas index 69b1cd0a..64d8b444 100644 --- a/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas +++ b/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas @@ -45,6 +45,7 @@ type cxGridViewCODIGO_POSTAL: TcxGridDBColumn; cxGridViewPROVINCIA: TcxGridDBColumn; cxGridViewVENDEDOR: TcxGridDBColumn; + cxGridViewColumn1: TcxGridDBColumn; procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel); procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; diff --git a/Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.RES b/Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.RES index 8b251f31..1641339f 100644 Binary files a/Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.RES and b/Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.RES differ diff --git a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm index 3d8af806..0a638737 100644 --- a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm @@ -26,11 +26,6 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente object tbl_PresupuestosCliente: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < - item - Name = 'CALIDADES' - DataType = datMemo - DisplayLabel = 'Calidades' - end item Name = 'ID' DataType = datAutoInc @@ -292,6 +287,16 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente Size = 255 DisplayLabel = 'Tipo' DictionaryEntry = 'PresupuestosCliente_TIPO_PRESUPUESTO' + end + item + Name = 'CALIDADES' + DataType = datMemo + DisplayLabel = 'Calidades' + end + item + Name = 'REFERENCIA_CLIENTE' + DataType = datString + Size = 255 end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas index 2de31974..af41f618 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas +++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas @@ -3,18 +3,18 @@ unit schPresupuestosClienteClient_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 = '{F595E737-38D5-4136-AFD4-5757F25F6EF8}'; - RID_Propiedades = '{CBC06F9E-0133-4EF7-8E2D-58220BA8DDA9}'; - RID_ListaAnosPresupuestos = '{D786DD19-6B5D-423D-B297-0C4013A9C199}'; - RID_PresupuestosCliente = '{34EA2D75-66D0-4D4C-8E5E-44EBF0D67C55}'; - RID_CapitulosPresupuesto = '{1F64878E-DBCB-4B12-929A-DBD3F2E99119}'; - RID_PresupuestosCliente_Detalles = '{11B0814E-C750-4649-A479-C9C5FB17ABA4}'; + RID_Valores = '{A5753DD4-D84A-4351-BC29-3B338F55A041}'; + RID_Propiedades = '{BEA5D369-3FF6-476F-BB9C-AFCE9DA1B2B6}'; + RID_ListaAnosPresupuestos = '{972E7C8B-FF56-4A25-885A-1154815BC103}'; + RID_PresupuestosCliente = '{B8A5C581-F50A-4023-90F7-8BD62CF17C4B}'; + RID_CapitulosPresupuesto = '{2EA00EAB-E78D-4D2B-88CF-61560814222A}'; + RID_PresupuestosCliente_Detalles = '{F838D06B-B2D9-4CD6-9B17-F07D762C23FC}'; { Data table names } nme_Valores = 'Valores'; @@ -57,7 +57,6 @@ const idx_ListaAnosPresupuestosANO = 0; { PresupuestosCliente fields } - fld_PresupuestosClienteCALIDADES = 'CALIDADES'; fld_PresupuestosClienteID = 'ID'; fld_PresupuestosClienteID_EMPRESA = 'ID_EMPRESA'; fld_PresupuestosClienteFECHA_PRESUPUESTO = 'FECHA_PRESUPUESTO'; @@ -99,50 +98,53 @@ const fld_PresupuestosClienteREF_CONTRATO = 'REF_CONTRATO'; fld_PresupuestosClienteNO_VALORADO = 'NO_VALORADO'; fld_PresupuestosClienteTIPO_PRESUPUESTO = 'TIPO_PRESUPUESTO'; + fld_PresupuestosClienteCALIDADES = 'CALIDADES'; + fld_PresupuestosClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE'; { PresupuestosCliente field indexes } - idx_PresupuestosClienteCALIDADES = 0; - idx_PresupuestosClienteID = 1; - idx_PresupuestosClienteID_EMPRESA = 2; - idx_PresupuestosClienteFECHA_PRESUPUESTO = 3; - idx_PresupuestosClienteFECHA_VIGENCIA = 4; - idx_PresupuestosClienteFECHA_DECISION = 5; - idx_PresupuestosClienteREFERENCIA = 6; - idx_PresupuestosClienteSITUACION = 7; - idx_PresupuestosClienteID_CLIENTE = 8; - idx_PresupuestosClienteID_DIRECCION = 9; - idx_PresupuestosClienteNIF_CIF = 10; - idx_PresupuestosClienteNOMBRE = 11; - idx_PresupuestosClientePERSONA_CONTACTO = 12; - idx_PresupuestosClienteFORMA_PAGO = 13; - idx_PresupuestosClientePLAZO_ENTREGA = 14; - idx_PresupuestosClienteOBSERVACIONES = 15; - idx_PresupuestosClienteINCIDENCIAS = 16; - idx_PresupuestosClienteINCIDENCIAS_ACTIVAS = 17; - idx_PresupuestosClienteFECHA_ALTA = 18; - idx_PresupuestosClienteFECHA_MODIFICACION = 19; - idx_PresupuestosClienteUSUARIO = 20; - idx_PresupuestosClienteIMPORTE_NETO = 21; - idx_PresupuestosClienteIMPORTE_PORTE = 22; - idx_PresupuestosClienteDESCUENTO = 23; - idx_PresupuestosClienteIMPORTE_DESCUENTO = 24; - idx_PresupuestosClienteBASE_IMPONIBLE = 25; - idx_PresupuestosClienteID_TIPO_IVA = 26; - idx_PresupuestosClienteIVA = 27; - idx_PresupuestosClienteIMPORTE_IVA = 28; - idx_PresupuestosClienteRE = 29; - idx_PresupuestosClienteIMPORTE_RE = 30; - idx_PresupuestosClienteRECARGO_EQUIVALENCIA = 31; - idx_PresupuestosClienteIMPORTE_TOTAL = 32; - idx_PresupuestosClienteID_FORMA_PAGO = 33; - idx_PresupuestosClienteID_TIENDA = 34; - idx_PresupuestosClienteTIENDA = 35; - idx_PresupuestosClienteID_VENDEDOR = 36; - idx_PresupuestosClienteVENDEDOR = 37; - idx_PresupuestosClienteID_CONTRATO = 38; - idx_PresupuestosClienteREF_CONTRATO = 39; - idx_PresupuestosClienteNO_VALORADO = 40; - idx_PresupuestosClienteTIPO_PRESUPUESTO = 41; + idx_PresupuestosClienteID = 0; + idx_PresupuestosClienteID_EMPRESA = 1; + idx_PresupuestosClienteFECHA_PRESUPUESTO = 2; + idx_PresupuestosClienteFECHA_VIGENCIA = 3; + idx_PresupuestosClienteFECHA_DECISION = 4; + idx_PresupuestosClienteREFERENCIA = 5; + idx_PresupuestosClienteSITUACION = 6; + idx_PresupuestosClienteID_CLIENTE = 7; + idx_PresupuestosClienteID_DIRECCION = 8; + idx_PresupuestosClienteNIF_CIF = 9; + idx_PresupuestosClienteNOMBRE = 10; + idx_PresupuestosClientePERSONA_CONTACTO = 11; + idx_PresupuestosClienteFORMA_PAGO = 12; + idx_PresupuestosClientePLAZO_ENTREGA = 13; + idx_PresupuestosClienteOBSERVACIONES = 14; + idx_PresupuestosClienteINCIDENCIAS = 15; + idx_PresupuestosClienteINCIDENCIAS_ACTIVAS = 16; + idx_PresupuestosClienteFECHA_ALTA = 17; + idx_PresupuestosClienteFECHA_MODIFICACION = 18; + idx_PresupuestosClienteUSUARIO = 19; + idx_PresupuestosClienteIMPORTE_NETO = 20; + idx_PresupuestosClienteIMPORTE_PORTE = 21; + idx_PresupuestosClienteDESCUENTO = 22; + idx_PresupuestosClienteIMPORTE_DESCUENTO = 23; + idx_PresupuestosClienteBASE_IMPONIBLE = 24; + idx_PresupuestosClienteID_TIPO_IVA = 25; + idx_PresupuestosClienteIVA = 26; + idx_PresupuestosClienteIMPORTE_IVA = 27; + idx_PresupuestosClienteRE = 28; + idx_PresupuestosClienteIMPORTE_RE = 29; + idx_PresupuestosClienteRECARGO_EQUIVALENCIA = 30; + idx_PresupuestosClienteIMPORTE_TOTAL = 31; + idx_PresupuestosClienteID_FORMA_PAGO = 32; + idx_PresupuestosClienteID_TIENDA = 33; + idx_PresupuestosClienteTIENDA = 34; + idx_PresupuestosClienteID_VENDEDOR = 35; + idx_PresupuestosClienteVENDEDOR = 36; + idx_PresupuestosClienteID_CONTRATO = 37; + idx_PresupuestosClienteREF_CONTRATO = 38; + idx_PresupuestosClienteNO_VALORADO = 39; + idx_PresupuestosClienteTIPO_PRESUPUESTO = 40; + idx_PresupuestosClienteCALIDADES = 41; + idx_PresupuestosClienteREFERENCIA_CLIENTE = 42; { CapitulosPresupuesto fields } fld_CapitulosPresupuestoID = 'ID'; @@ -211,7 +213,7 @@ const type { IValores } IValores = interface(IDAStronglyTypedDataTable) - ['{6AAE0E7B-A1FC-4518-BCAB-ED352C578B1B}'] + ['{C68B5E3B-7C25-40DB-BA71-461534ED307A}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -261,7 +263,7 @@ type end; { TValoresDataTableRules } - TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores) + TValoresDataTableRules = class(TDADataTableRules, IValores) private protected { Property getters and setters } @@ -318,7 +320,7 @@ type { IPropiedades } IPropiedades = interface(IDAStronglyTypedDataTable) - ['{D8C6A56F-07F3-41B3-8C4A-8907BD2C6CD7}'] + ['{8D007D9A-95CD-48ED-B0FB-32C5632D2DCB}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -338,7 +340,7 @@ type end; { TPropiedadesDataTableRules } - TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades) + TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades) private protected { Property getters and setters } @@ -365,7 +367,7 @@ type { IListaAnosPresupuestos } IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable) - ['{71555714-D8E6-431C-8612-6110C535E9E9}'] + ['{651D3400-6969-4005-8674-F7E5937D797D}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -379,7 +381,7 @@ type end; { TListaAnosPresupuestosDataTableRules } - TListaAnosPresupuestosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosPresupuestos) + TListaAnosPresupuestosDataTableRules = class(TDADataTableRules, IListaAnosPresupuestos) private protected { Property getters and setters } @@ -400,11 +402,8 @@ type { IPresupuestosCliente } IPresupuestosCliente = interface(IDAStronglyTypedDataTable) - ['{49DE2369-0531-479D-98D6-A1B1FFA0D767}'] + ['{17B40030-2811-48A3-BDB0-91B68C2109FC}'] { Property getters and setters } - function GetCALIDADESValue: IROStrings; - function GetCALIDADESIsNull: Boolean; - procedure SetCALIDADESIsNull(const aValue: Boolean); function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); function GetIDIsNull: Boolean; @@ -565,11 +564,16 @@ type procedure SetTIPO_PRESUPUESTOValue(const aValue: String); function GetTIPO_PRESUPUESTOIsNull: Boolean; procedure SetTIPO_PRESUPUESTOIsNull(const aValue: Boolean); + function GetCALIDADESValue: IROStrings; + function GetCALIDADESIsNull: Boolean; + procedure SetCALIDADESIsNull(const aValue: Boolean); + function GetREFERENCIA_CLIENTEValue: String; + procedure SetREFERENCIA_CLIENTEValue(const aValue: String); + function GetREFERENCIA_CLIENTEIsNull: Boolean; + procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); { Properties } - property CALIDADES: IROStrings read GetCALIDADESValue; - property CALIDADESIsNull: Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull; property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; @@ -652,26 +656,27 @@ type property NO_VALORADOIsNull: Boolean read GetNO_VALORADOIsNull write SetNO_VALORADOIsNull; property TIPO_PRESUPUESTO: String read GetTIPO_PRESUPUESTOValue write SetTIPO_PRESUPUESTOValue; property TIPO_PRESUPUESTOIsNull: Boolean read GetTIPO_PRESUPUESTOIsNull write SetTIPO_PRESUPUESTOIsNull; + property CALIDADES: IROStrings read GetCALIDADESValue; + property CALIDADESIsNull: Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull; + property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue; + property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull; end; { TPresupuestosClienteDataTableRules } - TPresupuestosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente) + TPresupuestosClienteDataTableRules = class(TDADataTableRules, IPresupuestosCliente) private - f_CALIDADES: IROStrings; f_FORMA_PAGO: IROStrings; f_PLAZO_ENTREGA: IROStrings; f_OBSERVACIONES: IROStrings; f_INCIDENCIAS: IROStrings; - procedure CALIDADES_OnChange(Sender: TObject); + f_CALIDADES: IROStrings; procedure FORMA_PAGO_OnChange(Sender: TObject); procedure PLAZO_ENTREGA_OnChange(Sender: TObject); procedure OBSERVACIONES_OnChange(Sender: TObject); procedure INCIDENCIAS_OnChange(Sender: TObject); + procedure CALIDADES_OnChange(Sender: TObject); protected { Property getters and setters } - function GetCALIDADESValue: IROStrings; virtual; - function GetCALIDADESIsNull: Boolean; virtual; - procedure SetCALIDADESIsNull(const aValue: Boolean); virtual; function GetIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; function GetIDIsNull: Boolean; virtual; @@ -832,10 +837,15 @@ type procedure SetTIPO_PRESUPUESTOValue(const aValue: String); virtual; function GetTIPO_PRESUPUESTOIsNull: Boolean; virtual; procedure SetTIPO_PRESUPUESTOIsNull(const aValue: Boolean); virtual; + function GetCALIDADESValue: IROStrings; virtual; + function GetCALIDADESIsNull: Boolean; virtual; + procedure SetCALIDADESIsNull(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; { Properties } - property CALIDADES: IROStrings read GetCALIDADESValue; - property CALIDADESIsNull: Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull; property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; @@ -918,6 +928,10 @@ type property NO_VALORADOIsNull: Boolean read GetNO_VALORADOIsNull write SetNO_VALORADOIsNull; property TIPO_PRESUPUESTO: String read GetTIPO_PRESUPUESTOValue write SetTIPO_PRESUPUESTOValue; property TIPO_PRESUPUESTOIsNull: Boolean read GetTIPO_PRESUPUESTOIsNull write SetTIPO_PRESUPUESTOIsNull; + property CALIDADES: IROStrings read GetCALIDADESValue; + property CALIDADESIsNull: Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull; + property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue; + property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -927,7 +941,7 @@ type { ICapitulosPresupuesto } ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable) - ['{B7A20983-4BA3-4219-A117-B437AAC6979E}'] + ['{F3216D59-B6FF-4EEB-9E6A-9AC425472CD5}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1001,7 +1015,7 @@ type end; { TCapitulosPresupuestoDataTableRules } - TCapitulosPresupuestoDataTableRules = class(TIntfObjectDADataTableRules, ICapitulosPresupuesto) + TCapitulosPresupuestoDataTableRules = class(TDADataTableRules, ICapitulosPresupuesto) private protected { Property getters and setters } @@ -1082,7 +1096,7 @@ type { IPresupuestosCliente_Detalles } IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{DD320F0F-A644-47A2-AC0F-58C2D86FC696}'] + ['{6ABABBED-D539-4A65-A815-551502FCB5ED}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1192,7 +1206,7 @@ type end; { TPresupuestosCliente_DetallesDataTableRules } - TPresupuestosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente_Detalles) + TPresupuestosCliente_DetallesDataTableRules = class(TDADataTableRules, IPresupuestosCliente_Detalles) private protected { Property getters and setters } @@ -1564,10 +1578,6 @@ var begin inherited; - StrList := TStringList.Create; - StrList.OnChange := CALIDADES_OnChange; - f_CALIDADES := NewROStrings(StrList,True); - StrList := TStringList.Create; StrList.OnChange := FORMA_PAGO_OnChange; f_FORMA_PAGO := NewROStrings(StrList,True); @@ -1583,6 +1593,10 @@ begin StrList := TStringList.Create; StrList.OnChange := INCIDENCIAS_OnChange; f_INCIDENCIAS := NewROStrings(StrList,True); + + StrList := TStringList.Create; + StrList.OnChange := CALIDADES_OnChange; + f_CALIDADES := NewROStrings(StrList,True); end; destructor TPresupuestosClienteDataTableRules.Destroy; @@ -1590,11 +1604,6 @@ begin inherited; end; -procedure TPresupuestosClienteDataTableRules.CALIDADES_OnChange(Sender: TObject); -begin - if DataTable.Editing then DataTable.Fields[idx_PresupuestosClienteCALIDADES].AsVariant := TStringList(Sender).Text; -end; - procedure TPresupuestosClienteDataTableRules.FORMA_PAGO_OnChange(Sender: TObject); begin if DataTable.Editing then DataTable.Fields[idx_PresupuestosClienteFORMA_PAGO].AsVariant := TStringList(Sender).Text; @@ -1615,21 +1624,9 @@ begin if DataTable.Editing then DataTable.Fields[idx_PresupuestosClienteINCIDENCIAS].AsVariant := TStringList(Sender).Text; end; -function TPresupuestosClienteDataTableRules.GetCALIDADESValue: IROStrings; +procedure TPresupuestosClienteDataTableRules.CALIDADES_OnChange(Sender: TObject); begin - result := f_CALIDADES; - result.Text := DataTable.Fields[idx_PresupuestosClienteCALIDADES].AsString; -end; - -function TPresupuestosClienteDataTableRules.GetCALIDADESIsNull: boolean; -begin - result := DataTable.Fields[idx_PresupuestosClienteCALIDADES].IsNull; -end; - -procedure TPresupuestosClienteDataTableRules.SetCALIDADESIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PresupuestosClienteCALIDADES].AsVariant := Null; + if DataTable.Editing then DataTable.Fields[idx_PresupuestosClienteCALIDADES].AsVariant := TStringList(Sender).Text; end; function TPresupuestosClienteDataTableRules.GetIDValue: Integer; @@ -2477,6 +2474,44 @@ begin DataTable.Fields[idx_PresupuestosClienteTIPO_PRESUPUESTO].AsVariant := Null; end; +function TPresupuestosClienteDataTableRules.GetCALIDADESValue: IROStrings; +begin + result := f_CALIDADES; + result.Text := DataTable.Fields[idx_PresupuestosClienteCALIDADES].AsString; +end; + +function TPresupuestosClienteDataTableRules.GetCALIDADESIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosClienteCALIDADES].IsNull; +end; + +procedure TPresupuestosClienteDataTableRules.SetCALIDADESIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosClienteCALIDADES].AsVariant := Null; +end; + +function TPresupuestosClienteDataTableRules.GetREFERENCIA_CLIENTEValue: String; +begin + result := DataTable.Fields[idx_PresupuestosClienteREFERENCIA_CLIENTE].AsString; +end; + +procedure TPresupuestosClienteDataTableRules.SetREFERENCIA_CLIENTEValue(const aValue: String); +begin + DataTable.Fields[idx_PresupuestosClienteREFERENCIA_CLIENTE].AsString := aValue; +end; + +function TPresupuestosClienteDataTableRules.GetREFERENCIA_CLIENTEIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosClienteREFERENCIA_CLIENTE].IsNull; +end; + +procedure TPresupuestosClienteDataTableRules.SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosClienteREFERENCIA_CLIENTE].AsVariant := Null; +end; + { TCapitulosPresupuestoDataTableRules } constructor TCapitulosPresupuestoDataTableRules.Create(aDataTable: TDADataTable); diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas index cc28a390..20643021 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas +++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_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 = '{2B3EF096-6069-48F1-9372-FE2E3B086A6A}'; - RID_PropiedadesDelta = '{EA2F95CA-4260-4E0E-B470-E62AB00CCACC}'; - RID_ListaAnosPresupuestosDelta = '{843FE025-D441-4A64-9BA6-7CE3C254BFD2}'; - RID_PresupuestosClienteDelta = '{42FD0DC8-EB18-4B9C-AD03-82664BA0BCDA}'; - RID_CapitulosPresupuestoDelta = '{875DBE7F-AAE9-4CD9-8C77-566DDDC99AD3}'; - RID_PresupuestosCliente_DetallesDelta = '{D4644817-86F3-4A5E-B5D0-69ABAC6EC6FE}'; + RID_ValoresDelta = '{35AAA8E7-2BB3-42AD-AC0D-6669188E315A}'; + RID_PropiedadesDelta = '{A051A8E9-5AAA-434A-BF25-B8A8903781B1}'; + RID_ListaAnosPresupuestosDelta = '{63C8F784-1AD1-4B5C-B82F-92AB7E63ABB0}'; + RID_PresupuestosClienteDelta = '{F86AA970-F689-43EE-95B7-E9C5294A5DE3}'; + RID_CapitulosPresupuestoDelta = '{3B220134-F9AE-4D78-96DF-6FFFE2A37F04}'; + RID_PresupuestosCliente_DetallesDelta = '{938FA165-8D1D-46EA-8817-C8FA05A3F3BB}'; type { IValoresDelta } IValoresDelta = interface(IValores) - ['{2B3EF096-6069-48F1-9372-FE2E3B086A6A}'] + ['{35AAA8E7-2BB3-42AD-AC0D-6669188E315A}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -125,7 +125,7 @@ type { IPropiedadesDelta } IPropiedadesDelta = interface(IPropiedades) - ['{EA2F95CA-4260-4E0E-B470-E62AB00CCACC}'] + ['{A051A8E9-5AAA-434A-BF25-B8A8903781B1}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; @@ -171,7 +171,7 @@ type { IListaAnosPresupuestosDelta } IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos) - ['{843FE025-D441-4A64-9BA6-7CE3C254BFD2}'] + ['{63C8F784-1AD1-4B5C-B82F-92AB7E63ABB0}'] { Property getters and setters } function GetOldANOValue : String; @@ -205,9 +205,8 @@ type { IPresupuestosClienteDelta } IPresupuestosClienteDelta = interface(IPresupuestosCliente) - ['{42FD0DC8-EB18-4B9C-AD03-82664BA0BCDA}'] + ['{F86AA970-F689-43EE-95B7-E9C5294A5DE3}'] { Property getters and setters } - function GetOldCALIDADESValue : IROStrings; function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; function GetOldFECHA_PRESUPUESTOValue : DateTime; @@ -249,9 +248,10 @@ type function GetOldREF_CONTRATOValue : String; function GetOldNO_VALORADOValue : SmallInt; function GetOldTIPO_PRESUPUESTOValue : String; + function GetOldCALIDADESValue : IROStrings; + function GetOldREFERENCIA_CLIENTEValue : String; { Properties } - property OldCALIDADES : IROStrings read GetOldCALIDADESValue; property OldID : Integer read GetOldIDValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldFECHA_PRESUPUESTO : DateTime read GetOldFECHA_PRESUPUESTOValue; @@ -293,28 +293,25 @@ type property OldREF_CONTRATO : String read GetOldREF_CONTRATOValue; property OldNO_VALORADO : SmallInt read GetOldNO_VALORADOValue; property OldTIPO_PRESUPUESTO : String read GetOldTIPO_PRESUPUESTOValue; + property OldCALIDADES : IROStrings read GetOldCALIDADESValue; + property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue; end; { TPresupuestosClienteBusinessProcessorRules } TPresupuestosClienteBusinessProcessorRules = class(TDABusinessProcessorRules, IPresupuestosCliente, IPresupuestosClienteDelta) private - f_CALIDADES: IROStrings; f_FORMA_PAGO: IROStrings; f_PLAZO_ENTREGA: IROStrings; f_OBSERVACIONES: IROStrings; f_INCIDENCIAS: IROStrings; - procedure CALIDADES_OnChange(Sender: TObject); + f_CALIDADES: IROStrings; procedure FORMA_PAGO_OnChange(Sender: TObject); procedure PLAZO_ENTREGA_OnChange(Sender: TObject); procedure OBSERVACIONES_OnChange(Sender: TObject); procedure INCIDENCIAS_OnChange(Sender: TObject); + procedure CALIDADES_OnChange(Sender: TObject); protected { Property getters and setters } - function GetCALIDADESValue: IROStrings; virtual; - function GetCALIDADESIsNull: Boolean; virtual; - function GetOldCALIDADESValue: IROStrings; virtual; - function GetOldCALIDADESIsNull: Boolean; virtual; - procedure SetCALIDADESIsNull(const aValue: Boolean); virtual; function GetIDValue: Integer; virtual; function GetIDIsNull: Boolean; virtual; function GetOldIDValue: Integer; virtual; @@ -557,12 +554,19 @@ type function GetOldTIPO_PRESUPUESTOIsNull: Boolean; virtual; procedure SetTIPO_PRESUPUESTOValue(const aValue: String); virtual; procedure SetTIPO_PRESUPUESTOIsNull(const aValue: Boolean); virtual; + function GetCALIDADESValue: IROStrings; virtual; + function GetCALIDADESIsNull: Boolean; virtual; + function GetOldCALIDADESValue: IROStrings; virtual; + function GetOldCALIDADESIsNull: Boolean; virtual; + procedure SetCALIDADESIsNull(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; { Properties } - property CALIDADES : IROStrings read GetCALIDADESValue; - property CALIDADESIsNull : Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull; - property OldCALIDADES : IROStrings read GetOldCALIDADESValue; - property OldCALIDADESIsNull : Boolean read GetOldCALIDADESIsNull; property ID : Integer read GetIDValue write SetIDValue; property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; property OldID : Integer read GetOldIDValue; @@ -727,6 +731,14 @@ type property TIPO_PRESUPUESTOIsNull : Boolean read GetTIPO_PRESUPUESTOIsNull write SetTIPO_PRESUPUESTOIsNull; property OldTIPO_PRESUPUESTO : String read GetOldTIPO_PRESUPUESTOValue; property OldTIPO_PRESUPUESTOIsNull : Boolean read GetOldTIPO_PRESUPUESTOIsNull; + property CALIDADES : IROStrings read GetCALIDADESValue; + property CALIDADESIsNull : Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull; + property OldCALIDADES : IROStrings read GetOldCALIDADESValue; + property OldCALIDADESIsNull : Boolean read GetOldCALIDADESIsNull; + 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; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -736,7 +748,7 @@ type { ICapitulosPresupuestoDelta } ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto) - ['{875DBE7F-AAE9-4CD9-8C77-566DDDC99AD3}'] + ['{3B220134-F9AE-4D78-96DF-6FFFE2A37F04}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldPOSICIONValue : Integer; @@ -890,7 +902,7 @@ type { IPresupuestosCliente_DetallesDelta } IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles) - ['{D4644817-86F3-4A5E-B5D0-69ABAC6EC6FE}'] + ['{938FA165-8D1D-46EA-8817-C8FA05A3F3BB}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_PRESUPUESTOValue : Integer; @@ -1472,10 +1484,6 @@ var begin inherited; - StrList := TStringList.Create; - StrList.OnChange := CALIDADES_OnChange; - f_CALIDADES := NewROStrings(StrList,True); - StrList := TStringList.Create; StrList.OnChange := FORMA_PAGO_OnChange; f_FORMA_PAGO := NewROStrings(StrList,True); @@ -1491,6 +1499,10 @@ begin StrList := TStringList.Create; StrList.OnChange := INCIDENCIAS_OnChange; f_INCIDENCIAS := NewROStrings(StrList,True); + + StrList := TStringList.Create; + StrList.OnChange := CALIDADES_OnChange; + f_CALIDADES := NewROStrings(StrList,True); end; destructor TPresupuestosClienteBusinessProcessorRules.Destroy; @@ -1498,11 +1510,6 @@ begin inherited; end; -procedure TPresupuestosClienteBusinessProcessorRules.CALIDADES_OnChange(Sender: TObject); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteCALIDADES] := TStringList(Sender).Text; -end; - procedure TPresupuestosClienteBusinessProcessorRules.FORMA_PAGO_OnChange(Sender: TObject); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteFORMA_PAGO] := TStringList(Sender).Text; @@ -1523,32 +1530,9 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteINCIDENCIAS] := TStringList(Sender).Text; end; -function TPresupuestosClienteBusinessProcessorRules.GetCALIDADESValue: IROStrings; +procedure TPresupuestosClienteBusinessProcessorRules.CALIDADES_OnChange(Sender: TObject); begin - result := f_CALIDADES; - result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteCALIDADES]; -end; - -function TPresupuestosClienteBusinessProcessorRules.GetCALIDADESIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteCALIDADES]); -end; - -function TPresupuestosClienteBusinessProcessorRules.GetOldCALIDADESValue: IROStrings; -begin - result := NewROStrings(); - result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteCALIDADES]; -end; - -function TPresupuestosClienteBusinessProcessorRules.GetOldCALIDADESIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteCALIDADES]); -end; - -procedure TPresupuestosClienteBusinessProcessorRules.SetCALIDADESIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteCALIDADES] := Null; + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteCALIDADES] := TStringList(Sender).Text; end; function TPresupuestosClienteBusinessProcessorRules.GetIDValue: Integer; @@ -2810,6 +2794,65 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteTIPO_PRESUPUESTO] := Null; end; +function TPresupuestosClienteBusinessProcessorRules.GetCALIDADESValue: IROStrings; +begin + result := f_CALIDADES; + result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteCALIDADES]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetCALIDADESIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteCALIDADES]); +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldCALIDADESValue: IROStrings; +begin + result := NewROStrings(); + result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteCALIDADES]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldCALIDADESIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteCALIDADES]); +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetCALIDADESIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteCALIDADES] := Null; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetREFERENCIA_CLIENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA_CLIENTE]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetREFERENCIA_CLIENTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA_CLIENTE]); +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldREFERENCIA_CLIENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteREFERENCIA_CLIENTE]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldREFERENCIA_CLIENTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteREFERENCIA_CLIENTE]); +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetREFERENCIA_CLIENTEValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA_CLIENTE] := aValue; +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA_CLIENTE] := Null; +end; + { TCapitulosPresupuestoBusinessProcessorRules } constructor TCapitulosPresupuestoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); diff --git a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm index f30b5d8a..dc8ac39b 100644 --- a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm +++ b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm @@ -334,15 +334,14 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente item DatasetField = 'CALIDADES' TableField = 'CALIDADES' + end + item + DatasetField = 'REFERENCIA_CLIENTE' + TableField = 'REFERENCIA_CLIENTE' end> end> Name = 'PresupuestosCliente' Fields = < - item - Name = 'CALIDADES' - DataType = datMemo - DisplayLabel = 'Calidades' - end item Name = 'ID' DataType = datAutoInc @@ -562,6 +561,16 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente DataType = datString Size = 255 DictionaryEntry = 'PresupuestosCliente_TIPO_PRESUPUESTO' + end + item + Name = 'CALIDADES' + DataType = datMemo + DisplayLabel = 'Calidades' + end + item + Name = 'REFERENCIA_CLIENTE' + DataType = datString + Size = 255 end> end item @@ -877,17 +886,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente Commands = < item Params = < - item - Name = 'CALIDADES' - DataType = datMemo - Value = '' - end - item - Name = 'TIPO_PRESUPUESTO' - DataType = datString - Size = 255 - Value = '' - end item Name = 'ID' DataType = datAutoInc @@ -1052,6 +1050,23 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente Name = 'NO_VALORADO' DataType = datSmallInt Value = '' + end + item + Name = 'TIPO_PRESUPUESTO' + DataType = datString + Size = 255 + Value = '' + end + item + Name = 'CALIDADES' + DataType = datMemo + Value = '' + end + item + Name = 'REFERENCIA_CLIENTE' + DataType = datString + Size = 255 + Value = '' end> Statements = < item @@ -1067,16 +1082,17 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente 'TO, IMPORTE_DESCUENTO, BASE_IMPONIBLE, ID_TIPO_IVA, IVA, IMPORTE' + '_IVA,'#10' RE, IMPORTE_RE, RECARGO_EQUIVALENCIA, IMPORTE_TOTAL, ' + 'ID_FORMA_PAGO, ID_TIENDA, ID_VENDEDOR,'#10' ID_CONTRATO, NO_VALO' + - 'RADO, TIPO_PRESUPUESTO, CALIDADES)'#10' VALUES'#10' (:ID,'#10' :FECH' + - 'A_PRESUPUESTO, :FECHA_VIGENCIA, :FECHA_DECISION, :REFERENCIA,'#10' ' + - ' :SITUACION, :ID_CLIENTE, :ID_DIRECCION, :PERSONA_CONTACTO,'#10' ' + - ' :FORMA_PAGO, :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS,'#10' ' + - ' :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP, :USUARIO, :IMPORTE_N' + - 'ETO, :IMPORTE_PORTE,'#10' :DESCUENTO, :IMPORTE_DESCUENTO, :BASE_' + - 'IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA,'#10' :RE, :IMPORTE_' + - 'RE, :RECARGO_EQUIVALENCIA, :IMPORTE_TOTAL, :ID_FORMA_PAGO, :ID_T' + - 'IENDA, :ID_VENDEDOR,'#10' :ID_CONTRATO, :NO_VALORADO, :TIPO_PRES' + - 'UPUESTO, :CALIDADES)'#10' '#10#10#10#10#10 + 'RADO, TIPO_PRESUPUESTO, CALIDADES, REFERENCIA_CLIENTE)'#10' VALUES'#10 + + ' (:ID,'#10' :FECHA_PRESUPUESTO, :FECHA_VIGENCIA, :FECHA_DECIS' + + 'ION, :REFERENCIA,'#10' :SITUACION, :ID_CLIENTE, :ID_DIRECCION, :' + + 'PERSONA_CONTACTO,'#10' :FORMA_PAGO, :PLAZO_ENTREGA, :OBSERVACION' + + 'ES, :INCIDENCIAS,'#10' :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP, ' + + ':USUARIO, :IMPORTE_NETO, :IMPORTE_PORTE,'#10' :DESCUENTO, :IMPOR' + + 'TE_DESCUENTO, :BASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA,' + + #10' :RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA, :IMPORTE_TOTAL, :' + + 'ID_FORMA_PAGO, :ID_TIENDA, :ID_VENDEDOR,'#10' :ID_CONTRATO, :NO_' + + 'VALORADO, :TIPO_PRESUPUESTO, :CALIDADES, :REFERENCIA_CLIENTE)'#10' ' + + ' '#10#10#10#10#10 StatementType = stSQL ColumnMappings = <> end> @@ -1104,17 +1120,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente end item Params = < - item - Name = 'CALIDADES' - DataType = datMemo - Value = '' - end - item - Name = 'TIPO_PRESUPUESTO' - DataType = datString - Size = 255 - Value = '' - end item Name = 'ID' DataType = datInteger @@ -1279,6 +1284,23 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente DataType = datSmallInt Value = '' end + item + Name = 'TIPO_PRESUPUESTO' + DataType = datString + Size = 255 + Value = '' + end + item + Name = 'CALIDADES' + DataType = datMemo + Value = '' + end + item + Name = 'REFERENCIA_CLIENTE' + DataType = datString + Size = 255 + Value = '' + end item Name = 'OLD_ID' Value = '' @@ -1308,7 +1330,8 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente ' ID_TIENDA = :ID_TIENDA,'#10' ID_VENDEDOR = :ID_VENDEDOR,'#10' ' + 'ID_CONTRATO = :ID_CONTRATO,'#10' NO_VALORADO = :NO_VALORADO,'#10' ' + 'TIPO_PRESUPUESTO = :TIPO_PRESUPUESTO,'#10' CALIDADES = :CALIDADES' + - #10' WHERE'#10' (ID = :OLD_ID)'#10#10 + ','#10' REFERENCIA_CLIENTE = :REFERENCIA_CLIENTE'#10' WHERE'#10' (ID =' + + ' :OLD_ID)'#10#10 StatementType = stSQL ColumnMappings = <> end> diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm index a5df7838..9a98b7b7 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm @@ -11,12 +11,14 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente end inherited cxGridViewVISIBLE2: TcxGridDBColumn [4] Visible = True - Width = 51 + BestFitMaxWidth = 40 + Width = 40 end inherited cxGridViewVISIBLE: TcxGridDBColumn [5] Caption = #191'Valorado?' Visible = True - Width = 51 + BestFitMaxWidth = 40 + Width = 40 end inherited cxGridViewID_ARTICULO: TcxGridDBColumn [6] VisibleForCustomization = False diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm index 9469dfad..ec475b2a 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm @@ -20,7 +20,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente 555) object edtFechaPresupuesto: TcxDBDateEdit Left = 103 - Top = 55 + Top = 82 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_PRESUPUESTO' DataBinding.DataSource = DADataSource @@ -38,7 +38,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 1 + TabOrder = 2 Width = 187 end object memObservaciones: TcxDBMemo @@ -59,7 +59,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 12 + TabOrder = 13 Height = 245 Width = 793 end @@ -90,7 +90,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente end object cbFormaPago: TcxDBLookupComboBox Left = 103 - Top = 136 + Top = 163 DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataSource = DADataSource Properties.KeyFieldNames = 'ID' @@ -115,21 +115,21 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 6 + TabOrder = 7 Width = 122 end object bFormasPago: TButton Left = 270 - Top = 136 + Top = 163 Width = 132 Height = 21 Caption = 'Ver las formas de pago...' - TabOrder = 7 + TabOrder = 8 OnClick = bFormasPagoClick end object edtFechaDecision: TcxDBDateEdit Left = 295 - Top = 82 + Top = 109 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_DECISION' DataBinding.DataSource = DADataSource @@ -146,12 +146,12 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 4 + TabOrder = 5 Width = 260 end object edtFechaVigencia: TcxDBDateEdit Left = 103 - Top = 82 + Top = 109 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_VIGENCIA' DataBinding.DataSource = DADataSource @@ -172,12 +172,12 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 3 + TabOrder = 4 Width = 260 end object cbSituacion: TcxDBImageComboBox Left = 103 - Top = 109 + Top = 136 DataBinding.DataField = 'SITUACION' DataBinding.DataSource = DADataSource Properties.ImmediatePost = True @@ -203,7 +203,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 5 + TabOrder = 6 Width = 260 end inline frViewDatosYSeleccionClientePresupuesto1: TfrViewDatosYSeleccionClientePresupuesto @@ -217,7 +217,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente Font.Name = 'Tahoma' Font.Style = [] ParentFont = False - TabOrder = 11 + TabOrder = 12 ReadOnly = False ExplicitLeft = 432 ExplicitTop = 28 @@ -264,7 +264,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente end object memFormaPago: TcxDBMemo Left = 22 - Top = 220 + Top = 247 Anchors = [akLeft, akTop, akRight, akBottom] DataBinding.DataField = 'FORMA_PAGO' DataBinding.DataSource = DADataSource @@ -280,13 +280,13 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 9 + TabOrder = 10 Height = 44 Width = 475 end object memPlazoEntrega: TcxDBMemo Left = 22 - Top = 348 + Top = 365 Anchors = [akLeft, akTop, akRight, akBottom] DataBinding.DataField = 'PLAZO_ENTREGA' DataBinding.DataSource = DADataSource @@ -302,13 +302,13 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 10 + TabOrder = 11 Height = 100 Width = 396 end object cbVendedor: TcxDBLookupComboBox Left = 103 - Top = 163 + Top = 190 DataBinding.DataField = 'ID_VENDEDOR' DataBinding.DataSource = DADataSource Properties.KeyFieldNames = 'ID' @@ -333,12 +333,12 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 8 + TabOrder = 9 Width = 27 end object cbTipoPresupuesto: TcxDBComboBox Left = 289 - Top = 55 + Top = 82 DataBinding.DataField = 'TIPO_PRESUPUESTO' DataBinding.DataSource = DADataSource Properties.DropDownListStyle = lsFixedList @@ -353,9 +353,31 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 2 + TabOrder = 3 Width = 186 end + object edtRef_cliente: TcxDBTextEdit + Left = 103 + Top = 55 + Anchors = [akLeft, akTop, akRight] + AutoSize = False + DataBinding.DataField = 'REFERENCIA_CLIENTE' + DataBinding.DataSource = DADataSource + ParentFont = False + Properties.ReadOnly = False + Properties.UseLeftAlignmentOnEditing = False + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.HotTrack = False + Style.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 1 + Height = 21 + Width = 204 + end object dxLayoutControl1Group_Root: TdxLayoutGroup ShowCaption = False Hidden = True @@ -381,21 +403,31 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente object dxLayoutControl1Group11: TdxLayoutGroup ShowCaption = False Hidden = True - LayoutDirection = ldHorizontal ShowBorder = False - object dxLayoutControl1Item2: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'Fecha presup.:' - Control = edtFechaPresupuesto + object dxLayoutControl1Item13: TdxLayoutItem + Caption = 'Ref. contenido:' + Control = edtRef_cliente ControlOptions.ShowBorder = False end - object dxLayoutControl1Item12: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'Tipo presup.:' - Control = cbTipoPresupuesto - ControlOptions.ShowBorder = False + object dxLayoutControl1Group12: TdxLayoutGroup + ShowCaption = False + Hidden = True + LayoutDirection = ldHorizontal + ShowBorder = False + object dxLayoutControl1Item2: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahClient + Caption = 'Fecha presup.:' + Control = edtFechaPresupuesto + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item12: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahClient + Caption = 'Tipo presup.:' + Control = cbTipoPresupuesto + ControlOptions.ShowBorder = False + end end end object dxLayoutControl1Group10: TdxLayoutGroup diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas index c5ac23dc..3968a8ad 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas @@ -69,6 +69,9 @@ type dxLayoutControl1Item12: TdxLayoutItem; cbTipoPresupuesto: TcxDBComboBox; dxLayoutControl1Group11: TdxLayoutGroup; + dxLayoutControl1Item13: TdxLayoutItem; + edtRef_cliente: TcxDBTextEdit; + dxLayoutControl1Group12: TdxLayoutGroup; procedure CustomViewCreate(Sender: TObject); procedure CustomViewDestroy(Sender: TObject); procedure bFormasPagoClick(Sender: TObject); diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm index 7624b0db..3f96f18c 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm @@ -70,6 +70,10 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente BestFitMaxWidth = 25 Width = 65 end + object cxGridViewColumn1: TcxGridDBColumn + Caption = 'Ref. contenido' + DataBinding.FieldName = 'REFERENCIA_CLIENTE' + end object cxGridViewTIPO: TcxGridDBColumn DataBinding.FieldName = 'TIPO_PRESUPUESTO' BestFitMaxWidth = 25 diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas index bfa4a2da..898a1204 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas @@ -46,6 +46,7 @@ type cxGridViewINCIDENCIAS: TcxGridDBColumn; cxStyleRECHAZADO: TcxStyle; cxGridViewTIPO: TcxGridDBColumn; + cxGridViewColumn1: TcxGridDBColumn; procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel); procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; diff --git a/Source/Modulos/Relaciones/Presupuestos de cliente - Contratos de cliente/uGenerarContratosCliUtils.pas b/Source/Modulos/Relaciones/Presupuestos de cliente - Contratos de cliente/uGenerarContratosCliUtils.pas index d0e142c5..dab2b327 100644 --- a/Source/Modulos/Relaciones/Presupuestos de cliente - Contratos de cliente/uGenerarContratosCliUtils.pas +++ b/Source/Modulos/Relaciones/Presupuestos de cliente - Contratos de cliente/uGenerarContratosCliUtils.pas @@ -124,6 +124,7 @@ begin AContrato.RE := APresupuesto.RE; AContrato.IMPORTE_RE := APresupuesto.IMPORTE_RE; AContrato.TIPO_CONTRATO := APresupuesto.TIPO_PRESUPUESTO; + AContrato.REFERENCIA_CLIENTE := APresupuesto.REFERENCIA_CLIENTE; end; procedure CopiarDetallesAContrato( diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr index fe9dc527..7491af2b 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -128,16 +128,16 @@ uses schFamiliasServer_Intf in '..\Modulos\Familias\Model\schFamiliasServer_Intf.pas', schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas', schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas', - schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas', - schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas', schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas', schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas', - schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas', - schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas', schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas', 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'; + 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', + 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 fbe038ba..34a12acb 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -1,294 +1,296 @@ - + - - {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 - - - FalseTrueFalseTrueFalse2580FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.5.8.0FactuGES (Servidor)2.5.8.0miércoles, 13 de noviembre de 2013 13:58 - 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 - - - - - - - - -
RptEtiquetasContacto
- TDataModule - - -
srvContactos
- TDARemoteService - - - - - -
RptContratosCliente
- - -
srvContratosCliente
- TDataAbstractService - - - - - -
RptFacturasCliente
- TDataModule - - -
srvFacturasCliente
- TDataAbstractService - - - - - -
RptFacturasProveedor
- TDataModule - - -
srvFacturasProveedor
- TDataAbstractService - - - - - - - - -
srvGestorDocumentos
- TDataAbstractService - - -
srvGestorInformes
- TDataAbstractService - - - - -
srvHistoricoMovimientos
- TDataAbstractService - - - - -
srvInventario
- TDataAbstractService - - - - - -
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 + + +FalseTrueFalseTrueFalse2590FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.5.9.0FactuGES (Servidor)2.5.9.0lunes, 17 de noviembre de 2014 15:57 + + + 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 + + + + + + + + +
RptEtiquetasContacto
+ TDataModule + + +
srvContactos
+ TDARemoteService + + + + + +
RptContratosCliente
+ + +
srvContratosCliente
+ TDataAbstractService + + + + + +
RptFacturasCliente
+ TDataModule + + +
srvFacturasCliente
+ TDataAbstractService + + + + + +
RptFacturasProveedor
+ TDataModule + + +
srvFacturasProveedor
+ TDataAbstractService + + + + + + + + +
srvGestorDocumentos
+ TDataAbstractService + + +
srvGestorInformes
+ TDataAbstractService + + + + +
srvHistoricoMovimientos
+ TDataAbstractService + + + + +
srvInventario
+ TDataAbstractService + + + + + +
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
+ + + + + + + + + +