diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql index 9b350562..bf0e8a8e 100644 --- a/Database/scripts/factuges.sql +++ b/Database/scripts/factuges.sql @@ -1307,7 +1307,8 @@ CREATE TABLE CONTRATOS_CLIENTE ( RECARGO_EQUIVALENCIA TIPO_BOOLEANO, RE TIPO_PORCENTAJE, IMPORTE_RE TIPO_IMPORTE, - TIPO_CONTRATO VARCHAR(255) + TIPO_CONTRATO VARCHAR(255), + CONDICIONES TIPO_NOTAS ); CREATE TABLE CONTRATOS_CLIENTE_DETALLES ( @@ -3711,7 +3712,7 @@ CREATE VIEW V_CONTRATOS_CLIENTE( NOMBRE_COMERCIAL_CLIENTE, NIF_CIF, NOMBRE, - ID_DIRECCION, + ID_DIRECCION, CALLE, POBLACION, PROVINCIA, @@ -3747,7 +3748,8 @@ CREATE VIEW V_CONTRATOS_CLIENTE( ID_VENDEDOR, VENDEDOR, PERSONA_CONTACTO, - TIPO_CONTRATO) + TIPO_CONTRATO, + CONDICIONES) AS SELECT CONTRATOS_CLIENTE.ID, /* CONTRATOS_CLIENTE.ID_EMPRESA,*/ @@ -3785,7 +3787,7 @@ SELECT CONTRATOS_CLIENTE.ID, CONTRATOS_CLIENTE.IMPORTE_NETO, CONTRATOS_CLIENTE.IMPORTE_PORTE, CONTRATOS_CLIENTE.ID_TIENDA, - COALESCE(EMPRESAS_TIENDAS.NOMBRE, 'Todas') AS TIENDA, + COALESCE(TIENDAS.NOMBRE, 'Todas') AS TIENDA, CONTRATOS_CLIENTE.BASE_IMPONIBLE, CONTRATOS_CLIENTE.DESCUENTO, CONTRATOS_CLIENTE.IMPORTE_DESCUENTO, @@ -3794,13 +3796,15 @@ SELECT CONTRATOS_CLIENTE.ID, CONTRATOS_CLIENTE.ID_VENDEDOR, CONTACTOS2.NOMBRE AS VENDEDOR, CONTRATOS_CLIENTE.PERSONA_CONTACTO, - CONTRATOS_CLIENTE.TIPO_CONTRATO + CONTRATOS_CLIENTE.TIPO_CONTRATO, + CONTRATOS_CLIENTE.CONDICIONES + FROM CONTRATOS_CLIENTE LEFT OUTER JOIN CONTACTOS ON (CONTACTOS.ID = CONTRATOS_CLIENTE.ID_CLIENTE) LEFT JOIN EMPRESAS_CONTACTOS ON (EMPRESAS_CONTACTOS.ID_CONTACTO = CONTACTOS.ID) LEFT OUTER JOIN CONTACTOS CONTACTOS2 ON (CONTRATOS_CLIENTE.ID_VENDEDOR = CONTACTOS2.ID) INNER JOIN CLIENTES_DATOS ON (CLIENTES_DATOS.ID_CLIENTE = CONTRATOS_CLIENTE.ID_CLIENTE) - LEFT JOIN EMPRESAS_TIENDAS ON (EMPRESAS_TIENDAS.ID = CONTRATOS_CLIENTE.ID_TIENDA) + LEFT JOIN TIENDAS ON (TIENDAS.ID = CONTRATOS_CLIENTE.ID_TIENDA) ; /* View: V_REC_CLI_COMPENSADOS */ diff --git a/Source/ApplicationBase/uFactuGES_App.pas b/Source/ApplicationBase/uFactuGES_App.pas index 2a155d3c..d3f86d91 100644 --- a/Source/ApplicationBase/uFactuGES_App.pas +++ b/Source/ApplicationBase/uFactuGES_App.pas @@ -37,8 +37,10 @@ type function GetConfiguracionController : IConfiguracionController; function GetFormaPagoDocumentos: String; function GetObservacionesDocumentos: String; + function GetCondicionesDocumentos: String; procedure SetFormaPagoDocumentos(const Value: String); procedure SetObservacionesDocumentos(const Value: String); + procedure SetCondicionesDocumentos(const Value: String); function GetLoadModulesEvent : TAppFactuGES_Event; procedure SetLoadModulesEvent (ALoadModulesEvent : TAppFactuGES_Event); @@ -84,6 +86,7 @@ type property Configuracion : IConfiguracionController read GetConfiguracionController; property FormaPagoDocumentos : String read GetFormaPagoDocumentos write SetFormaPagoDocumentos; property ObservacionesDocumentos : String read GetObservacionesDocumentos write SetObservacionesDocumentos; + property CondicionesDocumentos : String read GetCondicionesDocumentos write SetCondicionesDocumentos; end; @@ -97,6 +100,7 @@ type FConfiguracionController : IConfiguracionController; FFormaPagoDocumentos: String; FObservacionesDocumentos: String; + FcondicionesDocumentos: String; FAppSplashForm : IAppSplashForm; FHostManager : THostManager; @@ -121,8 +125,10 @@ type function GetConfiguracionController : IConfiguracionController; function GetFormaPagoDocumentos: String; function GetObservacionesDocumentos: String; + function GetCondicionesDocumentos: String; procedure SetFormaPagoDocumentos(const Value: String); procedure SetObservacionesDocumentos(const Value: String); + procedure SetCondicionesDocumentos(const Value: String); function GetLoadModulesEvent : TAppFactuGES_Event; procedure SetLoadModulesEvent (ALoadModulesEvent : TAppFactuGES_Event); @@ -182,6 +188,7 @@ type property Configuracion : IConfiguracionController read GetConfiguracionController; property FormaPagoDocumentos : String read GetFormaPagoDocumentos write SetFormaPagoDocumentos; property ObservacionesDocumentos : String read GetObservacionesDocumentos write SetObservacionesDocumentos; + property CondicionesDocumentos : String read GetCondicionesDocumentos write SetCondicionesDocumentos; end; var @@ -367,6 +374,11 @@ begin Result := uAppInfoUtils.GetAppVersion; end; +function TAppFactuGES.GetCondicionesDocumentos: String; +begin + Result := FCondicionesDocumentos; +end; + function TAppFactuGES.GetConfiguracionController: IConfiguracionController; begin Result := FConfiguracionController; @@ -541,6 +553,11 @@ begin FAppSplashForm := AAppSplashForm; end; +procedure TAppFactuGES.SetCondicionesDocumentos(const Value: String); +begin + FCondicionesDocumentos:= Value; +end; + procedure TAppFactuGES.SetLoadModulesEvent( ALoadModulesEvent: TAppFactuGES_Event); begin diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index 819ef9b7..8ebef391 100644 --- a/Source/Cliente/FactuGES.dproj +++ b/Source/Cliente/FactuGES.dproj @@ -52,18 +52,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2530FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.5.3.0FactuGESFactuGES2.5.3.0 - - - - - - - - - - - +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2550FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.5.5.0FactuGESFactuGES2.5.5.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 85ecd366..8ae30597 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,3,0 -PRODUCTVERSION 2,5,3,0 +FILEVERSION 2,5,5,0 +PRODUCTVERSION 2,5,5,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.3.0\0" + VALUE "FileVersion", "2.5.5.0\0" VALUE "InternalName", "FactuGES\0" VALUE "ProductName", "FactuGES\0" - VALUE "ProductVersion", "2.5.3.0\0" + VALUE "ProductVersion", "2.5.5.0\0" END END BLOCK "VarFileInfo" diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index f6fb879c..e376c1ba 100644 Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ diff --git a/Source/Informes/1/InfFacturaCliente.fr3 b/Source/Informes/1/InfFacturaCliente.fr3 index 1a638f8f..1c8c8859 100644 --- a/Source/Informes/1/InfFacturaCliente.fr3 +++ b/Source/Informes/1/InfFacturaCliente.fr3 @@ -1,9 +1,10 @@ - + - + + @@ -12,7 +13,7 @@ - + @@ -20,7 +21,7 @@ - + @@ -28,6 +29,7 @@ + @@ -51,11 +53,11 @@ - - - - + + + + diff --git a/Source/Informes/3/InfFacturaCliente.fr3 b/Source/Informes/3/InfFacturaCliente.fr3 index 1a638f8f..7dee9bf9 100644 --- a/Source/Informes/3/InfFacturaCliente.fr3 +++ b/Source/Informes/3/InfFacturaCliente.fr3 @@ -1,9 +1,10 @@ - + - + + @@ -12,7 +13,7 @@ - + @@ -20,7 +21,7 @@ - + @@ -28,6 +29,7 @@ + @@ -52,9 +54,9 @@ - - - + + + diff --git a/Source/Informes/InfContratoCliente.fr3 b/Source/Informes/InfContratoCliente.fr3 index 0742de91..293481bb 100644 --- a/Source/Informes/InfContratoCliente.fr3 +++ b/Source/Informes/InfContratoCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -13,16 +13,18 @@ - - - + + + + - - - + + + + @@ -68,7 +70,7 @@ - + diff --git a/Source/Informes/InfPresupuestoCliente.fr3 b/Source/Informes/InfPresupuestoCliente.fr3 index 065d0c36..e21542d3 100644 --- a/Source/Informes/InfPresupuestoCliente.fr3 +++ b/Source/Informes/InfPresupuestoCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -14,19 +14,21 @@ - - - - - + + + + + + - - - - - + + + + + + - + @@ -34,7 +36,7 @@ - + @@ -54,10 +56,10 @@ - + - + diff --git a/Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm b/Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm index 9d711ec5..181f4149 100644 --- a/Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm +++ b/Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm @@ -92,16 +92,20 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos Width = 480 end inherited cxGridViewCANTIDAD: TcxGridDBColumn + Properties.Alignment.Vert = taBottomJustify Width = 48 end inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn + Properties.Alignment.Vert = taBottomJustify Width = 68 end inherited cxGridViewDESCUENTO: TcxGridDBColumn + Properties.Alignment.Vert = taBottomJustify HeaderAlignmentHorz = taRightJustify Width = 29 end inherited cxGridViewIMPORTENETO: TcxGridDBColumn + Properties.Alignment.Vert = taBottomJustify Width = 56 end inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn @@ -111,6 +115,7 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos Width = 78 end inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn + Properties.Alignment.Vert = taBottomJustify Width = 58 end end diff --git a/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas b/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas index bef0524d..8f5dedb3 100644 --- a/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas +++ b/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas @@ -756,6 +756,7 @@ begin AContrato.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_COCINA)); AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_COCINA)); AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_COCINA)); + AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_COCINA)); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_C, 'MUEBLES DE COCINA ', False, AContrato.Detalles); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True, AContrato.Detalles); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'AUMENTO POR ', False, AContrato.Detalles); @@ -766,6 +767,7 @@ begin AContrato.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_ARMARIO)); AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ARMARIO)); AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_ARMARIO)); + AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_ARMARIO)); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_AF, 'FRENTE DE ARMARIO Nº ', False, AContrato.Detalles); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_AI, 'INTERIOR DE ARMARIO Nº ', False, AContrato.Detalles); end; @@ -775,6 +777,7 @@ begin AContrato.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_BANO)); AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_BANO)); AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_BANO)); + AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_BANO)); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_B, 'MUEBLE DE BAÑO Nº ', False, AContrato.Detalles); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True, AContrato.Detalles); end; @@ -784,6 +787,7 @@ begin AContrato.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_ELECTRODOMESTICO)); AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ELECTRODOMESTICO)); AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_ELECTRODOMESTICO)); + AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_ELECTRODOMESTICO)); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_E, 'ELECTRODOMÉSTICOS ', False, AContrato.Detalles); end; teObra: @@ -792,6 +796,7 @@ begin AContrato.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_OBRA)); AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_OBRA)); AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_OBRA)); + AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_OBRA)); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_O, 'OBRA ', False, AContrato.Detalles); end; teVarios: @@ -800,6 +805,7 @@ begin AContrato.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_VARIOS)); AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_VARIOS)); AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_VARIOS)); + AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_VARIOS)); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ', False, AContrato.Detalles); end; end; diff --git a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm index 94b2e10c..786f720b 100644 --- a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm +++ b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm @@ -320,6 +320,10 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente Size = 255 DisplayLabel = 'Tipo' DictionaryEntry = 'ContratosCliente_TIPO_CONTRATO' + end + item + Name = 'CONDICIONES' + DataType = datMemo 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 696e78e1..8957bb5d 100644 --- a/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas +++ b/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas @@ -9,13 +9,13 @@ 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 = '{A3223E5F-2D10-45AF-8361-05537914212E}'; - RID_Propiedades = '{506EF0BF-FB5A-4737-A7FD-09951FD2C7B8}'; - RID_ListaAnosContratos = '{578CAF17-79FA-448E-BDEE-1FC0F15EFC68}'; - RID_ContratosClienteBeneficios = '{6A8C9891-3518-459A-969C-5760CBFDA3D3}'; - RID_ContratosCliente = '{D4734C94-87F5-4A8B-A8FC-BBBF6121322C}'; - RID_TiposCapitulos = '{D2CDA279-9E7E-412A-901B-92F2F70555BA}'; - RID_ContratosCliente_Detalles = '{EA4FF513-3EDB-4F49-9025-2C5011436584}'; + RID_Valores = '{2A7F5B24-C4EF-4CAC-84A7-B08B15EF9800}'; + RID_Propiedades = '{F8E7B5B9-507C-4C56-B5E9-8E608B097D89}'; + RID_ListaAnosContratos = '{1395AD65-A076-4E6B-A38B-E97DD7EF440F}'; + RID_ContratosClienteBeneficios = '{AAE37D7A-37D3-4EBD-A74C-351C6F2C5266}'; + RID_ContratosCliente = '{8C594040-2BE6-4C03-9027-A3D0DAC74C82}'; + RID_TiposCapitulos = '{8276E8DA-EDAA-4FBF-9109-A96A2234CE9E}'; + RID_ContratosCliente_Detalles = '{2D7606E6-A13A-49D4-9520-8C7C1156CBD7}'; { Data table names } nme_Valores = 'Valores'; @@ -124,6 +124,7 @@ const fld_ContratosClienteVENDEDOR = 'VENDEDOR'; fld_ContratosClientePERSONA_CONTACTO = 'PERSONA_CONTACTO'; fld_ContratosClienteTIPO_CONTRATO = 'TIPO_CONTRATO'; + fld_ContratosClienteCONDICIONES = 'CONDICIONES'; { ContratosCliente field indexes } idx_ContratosClienteID = 0; @@ -171,6 +172,7 @@ const idx_ContratosClienteVENDEDOR = 42; idx_ContratosClientePERSONA_CONTACTO = 43; idx_ContratosClienteTIPO_CONTRATO = 44; + idx_ContratosClienteCONDICIONES = 45; { TiposCapitulos fields } fld_TiposCapitulosID = 'ID'; @@ -229,7 +231,7 @@ const type { IValores } IValores = interface(IDAStronglyTypedDataTable) - ['{C2EFDF3D-8F14-4A69-8754-E2384C48DC25}'] + ['{AA391BD6-AAF3-4DD2-B075-AE2234E80A89}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -288,7 +290,7 @@ type { IPropiedades } IPropiedades = interface(IDAStronglyTypedDataTable) - ['{75054379-E40C-4CD7-96C1-46C26308E523}'] + ['{23AECADA-9691-4879-8682-B6E356F94740}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -347,7 +349,7 @@ type { IListaAnosContratos } IListaAnosContratos = interface(IDAStronglyTypedDataTable) - ['{417E2367-4285-4DF4-9854-1E44C8A5008B}'] + ['{7301B623-1E33-4C34-B008-C34BF12FA616}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -382,7 +384,7 @@ type { IContratosClienteBeneficios } IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable) - ['{F9A3D0AB-50BF-4390-A1D7-228F020BF1BD}'] + ['{23C65272-1CFD-4C99-9E4E-6F50BEAD3B7C}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -537,7 +539,7 @@ type { IContratosCliente } IContratosCliente = interface(IDAStronglyTypedDataTable) - ['{135031F8-11AD-44F9-8712-F24C96C7D409}'] + ['{9AD6CC3E-D998-47A8-AADB-E4FD52CEDDFF}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -715,6 +717,9 @@ type procedure SetTIPO_CONTRATOValue(const aValue: String); function GetTIPO_CONTRATOIsNull: Boolean; procedure SetTIPO_CONTRATOIsNull(const aValue: Boolean); + function GetCONDICIONESValue: IROStrings; + function GetCONDICIONESIsNull: Boolean; + procedure SetCONDICIONESIsNull(const aValue: Boolean); { Properties } @@ -808,6 +813,8 @@ type property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; property TIPO_CONTRATO: String read GetTIPO_CONTRATOValue write SetTIPO_CONTRATOValue; property TIPO_CONTRATOIsNull: Boolean read GetTIPO_CONTRATOIsNull write SetTIPO_CONTRATOIsNull; + property CONDICIONES: IROStrings read GetCONDICIONESValue; + property CONDICIONESIsNull: Boolean read GetCONDICIONESIsNull write SetCONDICIONESIsNull; end; { TContratosClienteDataTableRules } @@ -817,10 +824,12 @@ type f_PLAZO_ENTREGA: IROStrings; f_OBSERVACIONES: IROStrings; f_INCIDENCIAS: IROStrings; + f_CONDICIONES: IROStrings; procedure FORMA_PAGO_OnChange(Sender: TObject); procedure PLAZO_ENTREGA_OnChange(Sender: TObject); procedure OBSERVACIONES_OnChange(Sender: TObject); procedure INCIDENCIAS_OnChange(Sender: TObject); + procedure CONDICIONES_OnChange(Sender: TObject); protected { Property getters and setters } function GetIDValue: Integer; virtual; @@ -999,6 +1008,9 @@ type procedure SetTIPO_CONTRATOValue(const aValue: String); virtual; function GetTIPO_CONTRATOIsNull: Boolean; virtual; procedure SetTIPO_CONTRATOIsNull(const aValue: Boolean); virtual; + function GetCONDICIONESValue: IROStrings; virtual; + function GetCONDICIONESIsNull: Boolean; virtual; + procedure SetCONDICIONESIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; @@ -1091,6 +1103,8 @@ type property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; property TIPO_CONTRATO: String read GetTIPO_CONTRATOValue write SetTIPO_CONTRATOValue; property TIPO_CONTRATOIsNull: Boolean read GetTIPO_CONTRATOIsNull write SetTIPO_CONTRATOIsNull; + property CONDICIONES: IROStrings read GetCONDICIONESValue; + property CONDICIONESIsNull: Boolean read GetCONDICIONESIsNull write SetCONDICIONESIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -1103,7 +1117,7 @@ type } { ITiposCapitulos } ITiposCapitulos = interface(IDAStronglyTypedDataTable) - ['{447F4E62-0CA7-42E6-A436-174E923F5865}'] + ['{BFABE088-8874-4BDE-BA13-A4037F709389}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1198,7 +1212,7 @@ type { IContratosCliente_Detalles } IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{642FAB02-5C40-4C1C-9F3D-010C305C3544}'] + ['{5A701D96-0AC5-47D4-BCBC-9A1A4B8622B2}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1875,6 +1889,10 @@ begin StrList := TStringList.Create; StrList.OnChange := INCIDENCIAS_OnChange; f_INCIDENCIAS := NewROStrings(StrList,True); + + StrList := TStringList.Create; + StrList.OnChange := CONDICIONES_OnChange; + f_CONDICIONES := NewROStrings(StrList,True); end; destructor TContratosClienteDataTableRules.Destroy; @@ -1902,6 +1920,11 @@ begin if DataTable.Editing then DataTable.Fields[idx_ContratosClienteINCIDENCIAS].AsVariant := TStringList(Sender).Text; end; +procedure TContratosClienteDataTableRules.CONDICIONES_OnChange(Sender: TObject); +begin + if DataTable.Editing then DataTable.Fields[idx_ContratosClienteCONDICIONES].AsVariant := TStringList(Sender).Text; +end; + function TContratosClienteDataTableRules.GetIDValue: Integer; begin result := DataTable.Fields[idx_ContratosClienteID].AsInteger; @@ -2831,6 +2854,23 @@ begin DataTable.Fields[idx_ContratosClienteTIPO_CONTRATO].AsVariant := Null; end; +function TContratosClienteDataTableRules.GetCONDICIONESValue: IROStrings; +begin + result := f_CONDICIONES; + result.Text := DataTable.Fields[idx_ContratosClienteCONDICIONES].AsString; +end; + +function TContratosClienteDataTableRules.GetCONDICIONESIsNull: boolean; +begin + result := DataTable.Fields[idx_ContratosClienteCONDICIONES].IsNull; +end; + +procedure TContratosClienteDataTableRules.SetCONDICIONESIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ContratosClienteCONDICIONES].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 1d41f0aa..f229d5dc 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 = '{ACD58DAA-F31F-4349-BA59-32F5BB5C3E5E}'; - RID_PropiedadesDelta = '{B5FFFD19-4935-4CB2-8987-1762AC2EDFA6}'; - RID_ListaAnosContratosDelta = '{D47F07C0-6EA3-47C0-9CAE-36FEAE8310C6}'; - RID_ContratosClienteBeneficiosDelta = '{432F7094-684F-436C-8BCF-CEF1FC9C4BA9}'; - RID_ContratosClienteDelta = '{689F7295-72C8-4658-A6B8-CF751A4F8E74}'; - RID_TiposCapitulosDelta = '{3D0913EE-324F-43C6-9F91-30143D154B25}'; - RID_ContratosCliente_DetallesDelta = '{BA05CF81-F011-4DC0-BCD5-065A91F1F4F1}'; + RID_ValoresDelta = '{BFD88912-FE88-468F-A484-70A3F0D4F4B1}'; + RID_PropiedadesDelta = '{41AC59EC-C092-48C0-9692-4DDFDD4DD96A}'; + RID_ListaAnosContratosDelta = '{207FEB34-67B0-49C5-9A68-B112947AEE94}'; + RID_ContratosClienteBeneficiosDelta = '{C9D17A9C-E90A-4A84-AC1B-7DDCC9E2E3C7}'; + RID_ContratosClienteDelta = '{22B8C14E-C907-45A6-8069-CA587DA68F0B}'; + RID_TiposCapitulosDelta = '{F59CAC54-3765-45A0-AF74-D39B5ABDF12B}'; + RID_ContratosCliente_DetallesDelta = '{C6E1AC80-D8CD-4971-AC82-3636D2C206D1}'; type { IValoresDelta } IValoresDelta = interface(IValores) - ['{ACD58DAA-F31F-4349-BA59-32F5BB5C3E5E}'] + ['{BFD88912-FE88-468F-A484-70A3F0D4F4B1}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_PROPIEDADValue : Integer; @@ -78,7 +78,7 @@ type { IPropiedadesDelta } IPropiedadesDelta = interface(IPropiedades) - ['{B5FFFD19-4935-4CB2-8987-1762AC2EDFA6}'] + ['{41AC59EC-C092-48C0-9692-4DDFDD4DD96A}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; @@ -136,7 +136,7 @@ type { IListaAnosContratosDelta } IListaAnosContratosDelta = interface(IListaAnosContratos) - ['{D47F07C0-6EA3-47C0-9CAE-36FEAE8310C6}'] + ['{207FEB34-67B0-49C5-9A68-B112947AEE94}'] { Property getters and setters } function GetOldANOValue : String; @@ -170,7 +170,7 @@ type { IContratosClienteBeneficiosDelta } IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios) - ['{432F7094-684F-436C-8BCF-CEF1FC9C4BA9}'] + ['{C9D17A9C-E90A-4A84-AC1B-7DDCC9E2E3C7}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldREFERENCIAValue : String; @@ -324,7 +324,7 @@ type { IContratosClienteDelta } IContratosClienteDelta = interface(IContratosCliente) - ['{689F7295-72C8-4658-A6B8-CF751A4F8E74}'] + ['{22B8C14E-C907-45A6-8069-CA587DA68F0B}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -371,6 +371,7 @@ type function GetOldVENDEDORValue : String; function GetOldPERSONA_CONTACTOValue : String; function GetOldTIPO_CONTRATOValue : String; + function GetOldCONDICIONESValue : IROStrings; { Properties } property OldID : Integer read GetOldIDValue; @@ -418,6 +419,7 @@ type property OldVENDEDOR : String read GetOldVENDEDORValue; property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; property OldTIPO_CONTRATO : String read GetOldTIPO_CONTRATOValue; + property OldCONDICIONES : IROStrings read GetOldCONDICIONESValue; end; { TContratosClienteBusinessProcessorRules } @@ -427,10 +429,12 @@ type f_PLAZO_ENTREGA: IROStrings; f_OBSERVACIONES: IROStrings; f_INCIDENCIAS: IROStrings; + f_CONDICIONES: IROStrings; procedure FORMA_PAGO_OnChange(Sender: TObject); procedure PLAZO_ENTREGA_OnChange(Sender: TObject); procedure OBSERVACIONES_OnChange(Sender: TObject); procedure INCIDENCIAS_OnChange(Sender: TObject); + procedure CONDICIONES_OnChange(Sender: TObject); protected { Property getters and setters } function GetIDValue: Integer; virtual; @@ -699,6 +703,11 @@ type function GetOldTIPO_CONTRATOIsNull: Boolean; virtual; procedure SetTIPO_CONTRATOValue(const aValue: String); virtual; procedure SetTIPO_CONTRATOIsNull(const aValue: Boolean); virtual; + function GetCONDICIONESValue: IROStrings; virtual; + function GetCONDICIONESIsNull: Boolean; virtual; + function GetOldCONDICIONESValue: IROStrings; virtual; + function GetOldCONDICIONESIsNull: Boolean; virtual; + procedure SetCONDICIONESIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; @@ -881,6 +890,10 @@ type property TIPO_CONTRATOIsNull : Boolean read GetTIPO_CONTRATOIsNull write SetTIPO_CONTRATOIsNull; property OldTIPO_CONTRATO : String read GetOldTIPO_CONTRATOValue; property OldTIPO_CONTRATOIsNull : Boolean read GetOldTIPO_CONTRATOIsNull; + property CONDICIONES : IROStrings read GetCONDICIONESValue; + property CONDICIONESIsNull : Boolean read GetCONDICIONESIsNull write SetCONDICIONESIsNull; + property OldCONDICIONES : IROStrings read GetOldCONDICIONESValue; + property OldCONDICIONESIsNull : Boolean read GetOldCONDICIONESIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -890,7 +903,7 @@ type { ITiposCapitulosDelta } ITiposCapitulosDelta = interface(ITiposCapitulos) - ['{3D0913EE-324F-43C6-9F91-30143D154B25}'] + ['{F59CAC54-3765-45A0-AF74-D39B5ABDF12B}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldPOSICIONValue : Integer; @@ -984,7 +997,7 @@ type { IContratosCliente_DetallesDelta } IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles) - ['{BA05CF81-F011-4DC0-BCD5-065A91F1F4F1}'] + ['{C6E1AC80-D8CD-4971-AC82-3636D2C206D1}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CONTRATOValue : Integer; @@ -1841,6 +1854,10 @@ begin StrList := TStringList.Create; StrList.OnChange := INCIDENCIAS_OnChange; f_INCIDENCIAS := NewROStrings(StrList,True); + + StrList := TStringList.Create; + StrList.OnChange := CONDICIONES_OnChange; + f_CONDICIONES := NewROStrings(StrList,True); end; destructor TContratosClienteBusinessProcessorRules.Destroy; @@ -1868,6 +1885,11 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteINCIDENCIAS] := TStringList(Sender).Text; end; +procedure TContratosClienteBusinessProcessorRules.CONDICIONES_OnChange(Sender: TObject); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCONDICIONES] := TStringList(Sender).Text; +end; + function TContratosClienteBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID]; @@ -3251,6 +3273,34 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteTIPO_CONTRATO] := Null; end; +function TContratosClienteBusinessProcessorRules.GetCONDICIONESValue: IROStrings; +begin + result := f_CONDICIONES; + result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCONDICIONES]; +end; + +function TContratosClienteBusinessProcessorRules.GetCONDICIONESIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCONDICIONES]); +end; + +function TContratosClienteBusinessProcessorRules.GetOldCONDICIONESValue: IROStrings; +begin + result := NewROStrings(); + result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteCONDICIONES]; +end; + +function TContratosClienteBusinessProcessorRules.GetOldCONDICIONESIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteCONDICIONES]); +end; + +procedure TContratosClienteBusinessProcessorRules.SetCONDICIONESIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCONDICIONES] := Null; +end; + { TTiposCapitulosBusinessProcessorRules } constructor TTiposCapitulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); diff --git a/Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas b/Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas index eb07e125..adee4824 100644 --- a/Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas +++ b/Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas @@ -269,6 +269,7 @@ begin Self.DataTable.FieldByName(fld_ContratosClienteFORMA_PAGO).AsString := AppFactuGES.FormaPagoDocumentos; Self.DataTable.FieldByName(fld_ContratosClienteOBSERVACIONES).AsString := AppFactuGES.ObservacionesDocumentos; + Self.DataTable.FieldByName(fld_ContratosClienteCONDICIONES).AsString := AppFactuGES.CondicionesDocumentos; AsignarVendedor; end; @@ -304,7 +305,6 @@ end; procedure TBizContratoCliente.OnNewRecord(Sender: TDADataTable); begin inherited; -// ID := GetRecNo; // -1, -2, -3... IniciarValoresContratoNuevo; end; diff --git a/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm b/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm index fa3f9a00..2d4f8da4 100644 --- a/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm +++ b/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm @@ -176,33 +176,6 @@ object RptContratosCliente: TRptContratosCliente DataType = datCurrency end> end - item - Params = < - item - Name = 'CODIGO' - Value = '' - end> - Statements = < - item - Connection = 'IBX' - ConnectionType = 'Interbase' - Default = True - Name = 'IBX' - SQL = 'SELECT VALOR_BLOB'#10'FROM CONFIGURACION'#10'WHERE CODIGO = :CODIGO'#10 - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'VALOR_BLOB' - TableField = 'VALOR_BLOB' - end> - end> - Name = 'Informe_Condiciones' - Fields = < - item - Name = 'VALOR_BLOB' - DataType = datBlob - end> - end item Params = < item @@ -230,8 +203,9 @@ object RptContratosCliente: TRptContratosCliente '.TELEFONO,'#10' V_CONTRATOS_CLIENTE.MOVIL,'#10' V_CONTRATOS_CLIENT' + 'E.IMPORTE_IVA, V_CONTRATOS_CLIENTE.IMPORTE_TOTAL,'#10' V_CONTRATO' + 'S_CLIENTE.PERSONA_CONTACTO,'#10' V_CONTRATOS_CLIENTE.VENDEDOR,'#10' ' + - ' V_CONTRATOS_CLIENTE.TIPO_CONTRATO'#10'FROM'#10' V_CONTRATOS_CLIENTE' + - #10'WHERE'#10' V_CONTRATOS_CLIENTE.ID = :ID'#10 + ' V_CONTRATOS_CLIENTE.TIPO_CONTRATO,'#10' V_CONTRATOS_CLIENTE.CON' + + 'DICIONES'#10'FROM'#10' V_CONTRATOS_CLIENTE'#10'WHERE'#10' V_CONTRATOS_CLIE' + + 'NTE.ID = :ID'#10 StatementType = stSQL ColumnMappings = < item @@ -353,6 +327,10 @@ object RptContratosCliente: TRptContratosCliente item DatasetField = 'TIPO_CONTRATO' TableField = 'TIPO_CONTRATO' + end + item + DatasetField = 'CONDICIONES' + TableField = 'CONDICIONES' end> end> Name = 'Informe_Cabecera' @@ -489,6 +467,10 @@ object RptContratosCliente: TRptContratosCliente Name = 'TIPO_CONTRATO' DataType = datString Size = 255 + end + item + Name = 'CONDICIONES' + DataType = datMemo end> ReadOnly = True end @@ -1035,7 +1017,7 @@ object RptContratosCliente: TRptContratosCliente PrintOptions.Printer = 'Por defecto' PrintOptions.PrintOnSheet = 0 ReportOptions.CreateDate = 39065.872423495400000000 - ReportOptions.LastChange = 41157.903052835650000000 + ReportOptions.LastChange = 41513.574229155090000000 ScriptLanguage = 'PascalScript' ShowProgress = False StoreInDFM = False @@ -1195,6 +1177,10 @@ object RptContratosCliente: TRptContratosCliente Name = 'TIPO_CONTRATO' DataType = datString Size = 255 + end + item + Name = 'CONDICIONES' + DataType = datMemo end> Params = < item @@ -1726,46 +1712,6 @@ object RptContratosCliente: TRptContratosCliente Left = 440 Top = 128 end - object frxDBCondiciones: TfrxDBDataset - UserName = 'frxDBCondiciones' - CloseDataSource = False - DataSource = DADSCondiciones - BCDToCurrency = False - Left = 352 - Top = 192 - end - object DADSCondiciones: TDADataSource - DataSet = tbl_Condiciones.Dataset - DataTable = tbl_Condiciones - Left = 352 - Top = 248 - end - object tbl_Condiciones: TDAMemDataTable - RemoteUpdatesOptions = [] - Fields = < - item - Name = 'VALOR_BLOB' - DataType = datBlob - end> - Params = < - item - Name = 'CODIGO' - Value = '' - end> - MasterMappingMode = mmWhere - MasterParamsMappings.Strings = ( - 'ID_PRESUPUESTO=ID') - LogChanges = False - StreamingOptions = [soDisableEventsWhileStreaming] - RemoteFetchEnabled = False - LocalSchema = schReport - LocalDataStreamer = DABin2DataStreamer1 - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moAllInOneFetch] - LogicalName = 'Informe_Condiciones' - IndexDefs = <> - Left = 352 - Top = 304 - end object tbl_DetallesArticulos: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < diff --git a/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.pas b/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.pas index 45036799..4a5254d1 100644 --- a/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.pas +++ b/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.pas @@ -64,9 +64,6 @@ type cabeceraPOBLACION: TIBStringField; cabeceraPROVINCIA: TIBStringField; cabeceraCODIGO_POSTAL: TIBStringField; - frxDBCondiciones: TfrxDBDataset; - DADSCondiciones: TDADataSource; - tbl_Condiciones: TDAMemDataTable; tbl_DetallesArticulos: TDAMemDataTable; DADSDetallesArticulos: TDADataSource; frxDBDetallesArticulos: TfrxDBDataset; @@ -403,7 +400,6 @@ begin tbl_Cabecera.Active := False; tbl_Capitulos.Active := False; tbl_Detalles.Active := False; - tbl_Condiciones.Active := False; FreeANDNIL(FListaNombresClientes); end; @@ -522,7 +518,6 @@ begin tbl_Cabecera.Active := False; tbl_Capitulos.Active := False; tbl_Detalles.Active := False; - tbl_Condiciones.Active := False; tbl_DetallesArticulos.Active := False; tbl_Cabecera.ParamByName('ID').AsInteger := AID; @@ -537,22 +532,6 @@ begin tbl_Capitulos.Active := True; tbl_Detalles.Active := True; - if (tbl_Cabecera.FieldByName('TIPO_CONTRATO').AsString = 'Cocina') then - tbl_Condiciones.ParamByName('CODIGO').AsString := 'CONDICIONES_COCINA' - else if (tbl_Cabecera.FieldByName('TIPO_CONTRATO').AsString = 'Baño') then - tbl_Condiciones.ParamByName('CODIGO').AsString := 'CONDICIONES_BANO' - else if (tbl_Cabecera.FieldByName('TIPO_CONTRATO').AsString = 'Armarios') then - tbl_Condiciones.ParamByName('CODIGO').AsString := 'CONDICIONES_ARMARIO' - else if (tbl_Cabecera.FieldByName('TIPO_CONTRATO').AsString = 'Electrodomésticos') then - tbl_Condiciones.ParamByName('CODIGO').AsString := 'CONDICIONES_ELECTRODOMESTICO' - else if (tbl_Cabecera.FieldByName('TIPO_CONTRATO').AsString = 'Obra') then - tbl_Condiciones.ParamByName('CODIGO').AsString := 'CONDICIONES_OBRA' - else if (tbl_Cabecera.FieldByName('TIPO_CONTRATO').AsString = 'Varios') then - tbl_Condiciones.ParamByName('CODIGO').AsString := 'CONDICIONES_VARIOS' - else - tbl_Condiciones.ParamByName('CODIGO').AsString := ''; - tbl_Condiciones.Active := True; - tbl_DetallesArticulos.Active := True; AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString); diff --git a/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm b/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm index cc7be6f8..a019f958 100644 --- a/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm +++ b/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm @@ -426,6 +426,10 @@ object srvContratosCliente: TsrvContratosCliente item DatasetField = 'TIPO_CONTRATO' TableField = 'TIPO_CONTRATO' + end + item + DatasetField = 'CONDICIONES' + TableField = 'CONDICIONES' end> end> Name = 'ContratosCliente' @@ -678,6 +682,10 @@ object srvContratosCliente: TsrvContratosCliente DataType = datString Size = 255 DictionaryEntry = 'ContratosCliente_TIPO_CONTRATO' + end + item + Name = 'CONDICIONES' + DataType = datMemo end> end item @@ -928,12 +936,259 @@ object srvContratosCliente: TsrvContratosCliente Commands = < item Params = < + item + Name = 'ID' + DataType = datAutoInc + GeneratorName = 'GEN_CONTRATOS_CLI_ID' + Value = '' + end + item + Name = 'ID_CLIENTE' + DataType = datInteger + Value = '' + end + item + Name = 'NIF_CIF' + DataType = datString + Size = 15 + Value = '' + end + item + Name = 'NOMBRE' + DataType = datString + Size = 255 + Value = '' + end + item + Name = 'ID_DIRECCION' + DataType = datInteger + Value = '' + end + item + Name = 'CALLE' + DataType = datString + Size = 255 + Value = '' + end + item + Name = 'POBLACION' + DataType = datString + Size = 255 + Value = '' + end + item + Name = 'PROVINCIA' + DataType = datString + Size = 255 + Value = '' + end + item + Name = 'CODIGO_POSTAL' + DataType = datString + Size = 10 + Value = '' + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + Value = '' + end + item + Name = 'FECHA_CONTRATO' + DataType = datDateTime + Value = '' + end + item + Name = 'SITUACION' + DataType = datString + Size = 255 + Value = '' + end + item + Name = 'FORMA_PAGO' + DataType = datMemo + Value = '' + end + item + Name = 'PLAZO_ENTREGA' + DataType = datMemo + Value = '' + end + item + Name = 'OBSERVACIONES' + DataType = datMemo + Value = '' + end + item + Name = 'INCIDENCIAS' + DataType = datMemo + Value = '' + end + item + Name = 'INCIDENCIAS_ACTIVAS' + DataType = datSmallInt + Value = '' + end + item + Name = 'USUARIO' + DataType = datString + Size = 30 + Value = '' + end + item + Name = 'IMPORTE_NETO' + DataType = datCurrency + Value = '' + end + item + Name = 'IMPORTE_PORTE' + DataType = datCurrency + Value = '' + end + item + Name = 'DESCUENTO' + DataType = datFloat + Value = '' + end + item + Name = 'IMPORTE_DESCUENTO' + DataType = datCurrency + Value = '' + end + item + Name = 'BASE_IMPONIBLE' + DataType = datCurrency + Value = '' + end + item + Name = 'ID_TIPO_IVA' + DataType = datInteger + Value = '' + end + item + Name = 'IVA' + DataType = datFloat + Value = '' + end + item + Name = 'IMPORTE_IVA' + DataType = datCurrency + Value = '' + end + item + Name = 'IMPORTE_TOTAL' + DataType = datCurrency + Value = '' + end + item + Name = 'ID_FORMA_PAGO' + DataType = datInteger + Value = '' + end + item + Name = 'ID_TIENDA' + DataType = datInteger + Value = '' + end + item + Name = 'ID_VENDEDOR' + DataType = datInteger + Value = '' + end + item + Name = 'PERSONA_CONTACTO' + DataType = datString + Size = 255 + Value = '' + end + item + Name = 'RE' + DataType = datFloat + Value = '' + end + item + Name = 'IMPORTE_RE' + DataType = datCurrency + Value = '' + end + item + Name = 'RECARGO_EQUIVALENCIA' + DataType = datSmallInt + Value = '' + end + item + Name = 'TELEFONO' + DataType = datString + Size = 25 + Value = '' + end + item + Name = 'MOVIL' + DataType = datString + Size = 25 + Value = '' + end item Name = 'TIPO_CONTRATO' DataType = datString Size = 255 Value = '' end + item + Name = 'CONDICIONES' + DataType = datMemo + Value = '' + end> + Statements = < + item + Connection = 'IBX' + Default = True + TargetTable = 'CONTRATOS_CLIENTE' + SQL = + 'INSERT'#10' INTO CONTRATOS_CLIENTE'#10' (ID, ID_CLIENTE, NIF_CIF, NO' + + 'MBRE, ID_DIRECCION, CALLE, POBLACION, PROVINCIA,'#10' CODIGO_POS' + + 'TAL, REFERENCIA, FECHA_CONTRATO, SITUACION, FORMA_PAGO,'#10' PLA' + + 'ZO_ENTREGA, OBSERVACIONES, INCIDENCIAS, INCIDENCIAS_ACTIVAS, FEC' + + 'HA_ALTA,'#10' USUARIO, IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO, I' + + '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' VALUES'#10' (:ID, :I' + + 'D_CLIENTE, :NIF_CIF, :NOMBRE, :ID_DIRECCION, :CALLE, :POBLACION,' + + ' :PROVINCIA,'#10' :CODIGO_POSTAL, :REFERENCIA, :FECHA_CONTRATO, ' + + ':SITUACION, :FORMA_PAGO,'#10' :PLAZO_ENTREGA, :OBSERVACIONES, :I' + + 'NCIDENCIAS, :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' :USUAR' + + 'IO, :IMPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENT' + + 'O,'#10' :BASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPO' + + 'RTE_TOTAL, :ID_FORMA_PAGO,'#10' :ID_TIENDA, :ID_VENDEDOR, :PERSO' + + 'NA_CONTACTO, :RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA,'#10' :TELE' + + 'FONO, :MOVIL, :TIPO_CONTRATO, :CONDICIONES)'#10#10 + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'Insert_ContratosCliente' + end + item + Params = < + item + Name = 'OLD_ID' + DataType = datAutoInc + Value = '0' + end> + Statements = < + item + Connection = 'IBX' + Default = True + TargetTable = 'CONTRATOS_CLIENTE' + SQL = 'DELETE '#10' FROM'#10' CONTRATOS_CLIENTE'#10' WHERE'#10' (ID = :OLD_ID)'#10 + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'Delete_ContratosCliente' + end + item + Params = < item Name = 'ID' DataType = datAutoInc @@ -1126,56 +1381,7 @@ object srvContratosCliente: TsrvContratosCliente DataType = datString Size = 25 Value = '' - end> - Statements = < - item - Connection = 'IBX' - Default = True - TargetTable = 'CONTRATOS_CLIENTE' - SQL = - 'INSERT'#10' INTO CONTRATOS_CLIENTE'#10' (ID, ID_CLIENTE, NIF_CIF, NO' + - 'MBRE, ID_DIRECCION, CALLE, POBLACION, PROVINCIA,'#10' CODIGO_POS' + - 'TAL, REFERENCIA, FECHA_CONTRATO, SITUACION, FORMA_PAGO,'#10' PLA' + - 'ZO_ENTREGA, OBSERVACIONES, INCIDENCIAS, INCIDENCIAS_ACTIVAS, FEC' + - 'HA_ALTA,'#10' USUARIO, IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO, I' + - '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)'#10' VALUES'#10' (:ID, :ID_CLIENTE, :N' + - 'IF_CIF, :NOMBRE, :ID_DIRECCION, :CALLE, :POBLACION, :PROVINCIA,'#10 + - ' :CODIGO_POSTAL, :REFERENCIA, :FECHA_CONTRATO, :SITUACION, :' + - 'FORMA_PAGO,'#10' :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS, :' + - 'INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' :USUARIO, :IMPORTE_' + - 'NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BASE' + - '_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :I' + - 'D_FORMA_PAGO,'#10' :ID_TIENDA, :ID_VENDEDOR, :PERSONA_CONTACTO, ' + - ':RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA,'#10' :TELEFONO, :MOVIL,' + - ' :TIPO_CONTRATO)'#10#10 - StatementType = stSQL - ColumnMappings = <> - end> - Name = 'Insert_ContratosCliente' - end - item - Params = < - item - Name = 'OLD_ID' - DataType = datAutoInc - Value = '0' - end> - Statements = < - item - Connection = 'IBX' - Default = True - TargetTable = 'CONTRATOS_CLIENTE' - SQL = 'DELETE '#10' FROM'#10' CONTRATOS_CLIENTE'#10' WHERE'#10' (ID = :OLD_ID)'#10 - StatementType = stSQL - ColumnMappings = <> - end> - Name = 'Delete_ContratosCliente' - end - item - Params = < + end item Name = 'TIPO_CONTRATO' DataType = datString @@ -1183,197 +1389,10 @@ object srvContratosCliente: TsrvContratosCliente Value = '' end item - Name = 'ID' - DataType = datInteger - Value = '' - end - item - Name = 'ID_CLIENTE' - DataType = datInteger - Value = '' - end - item - Name = 'NIF_CIF' - DataType = datString - Size = 15 - Value = '' - end - item - Name = 'NOMBRE' - DataType = datString - Size = 255 - Value = '' - end - item - Name = 'ID_DIRECCION' - DataType = datInteger - Value = '' - end - item - Name = 'CALLE' - DataType = datString - Size = 255 - Value = '' - end - item - Name = 'POBLACION' - DataType = datString - Size = 255 - Value = '' - end - item - Name = 'PROVINCIA' - DataType = datString - Size = 255 - Value = '' - end - item - Name = 'CODIGO_POSTAL' - DataType = datString - Size = 10 - Value = '' - end - item - Name = 'REFERENCIA' - DataType = datString - Size = 255 - Value = '' - end - item - Name = 'FECHA_CONTRATO' - DataType = datDateTime - Value = '' - end - item - Name = 'SITUACION' - DataType = datString - Size = 255 - Value = '' - end - item - Name = 'FORMA_PAGO' + Name = 'CONDICIONES' DataType = datMemo Value = '' end - item - Name = 'PLAZO_ENTREGA' - DataType = datMemo - Value = '' - end - item - Name = 'OBSERVACIONES' - DataType = datMemo - Value = '' - end - item - Name = 'INCIDENCIAS' - DataType = datMemo - Value = '' - end - item - Name = 'INCIDENCIAS_ACTIVAS' - DataType = datSmallInt - Value = '' - end - item - Name = 'USUARIO' - DataType = datString - Size = 30 - Value = '' - end - item - Name = 'IMPORTE_NETO' - DataType = datCurrency - Value = '' - end - item - Name = 'IMPORTE_PORTE' - DataType = datCurrency - Value = '' - end - item - Name = 'DESCUENTO' - DataType = datFloat - Value = '' - end - item - Name = 'IMPORTE_DESCUENTO' - DataType = datCurrency - Value = '' - end - item - Name = 'BASE_IMPONIBLE' - DataType = datCurrency - Value = '' - end - item - Name = 'ID_TIPO_IVA' - DataType = datInteger - Value = '' - end - item - Name = 'IVA' - DataType = datFloat - Value = '' - end - item - Name = 'IMPORTE_IVA' - DataType = datCurrency - Value = '' - end - item - Name = 'IMPORTE_TOTAL' - DataType = datCurrency - Value = '' - end - item - Name = 'ID_FORMA_PAGO' - DataType = datInteger - Value = '' - end - item - Name = 'ID_TIENDA' - DataType = datInteger - Value = '' - end - item - Name = 'ID_VENDEDOR' - DataType = datInteger - Value = '' - end - item - Name = 'PERSONA_CONTACTO' - DataType = datString - Size = 255 - Value = '' - end - item - Name = 'RE' - DataType = datFloat - Value = '' - end - item - Name = 'IMPORTE_RE' - DataType = datCurrency - Value = '' - end - item - Name = 'RECARGO_EQUIVALENCIA' - DataType = datSmallInt - Value = '' - end - item - Name = 'TELEFONO' - DataType = datString - Size = 25 - Value = '' - end - item - Name = 'MOVIL' - DataType = datString - Size = 25 - Value = '' - end item Name = 'OLD_ID' Value = '' @@ -1402,7 +1421,8 @@ object srvContratosCliente: TsrvContratosCliente 'TO = :PERSONA_CONTACTO,'#10' RE = :RE,'#10' IMPORTE_RE = :IMPORTE_' + 'RE,'#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10' TELEFO' + 'NO = :TELEFONO,'#10' MOVIL = :MOVIL,'#10' TIPO_CONTRATO = :TIPO_CO' + - 'NTRATO'#10' WHERE'#10' (ID = :OLD_ID)'#10#10 + 'NTRATO,'#10' CONDICIONES = :CONDICIONES'#10' WHERE'#10' (ID = :OLD_ID' + + ')'#10#10 StatementType = stSQL ColumnMappings = <> end> diff --git a/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm b/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm index 9a916038..ffdd80f0 100644 --- a/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm +++ b/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm @@ -2,19 +2,19 @@ inherited fEditorContratoCliente: TfEditorContratoCliente Left = 332 Top = 147 Caption = 'Nuevo contrato de cliente' - ClientHeight = 595 - ClientWidth = 845 + ClientHeight = 633 + ClientWidth = 872 OnClose = CustomEditorClose - ExplicitWidth = 853 - ExplicitHeight = 629 + ExplicitWidth = 880 + ExplicitHeight = 667 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader - Width = 845 + Width = 872 Caption = 'Nuevo contrato de cliente' - ExplicitWidth = 845 + ExplicitWidth = 872 inherited Image1: TImage - Left = 818 + Left = 845 Picture.Data = { 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0000180806000000E0773DF80000000970485973000017120000171201679FD2 @@ -126,8 +126,8 @@ inherited fEditorContratoCliente: TfEditorContratoCliente end end inherited TBXDock: TTBXDock - Width = 845 - ExplicitWidth = 845 + Width = 872 + ExplicitWidth = 872 inherited tbxMain: TTBXToolbar ExplicitWidth = 488 inherited TBXItem2: TTBXItem @@ -147,7 +147,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente end end inherited tbxMenu: TTBXToolbar - ExplicitWidth = 845 + ExplicitWidth = 872 object TBXSubmenuItem2: TTBXSubmenuItem [4] Caption = 'A&cciones' object TBXItem34: TTBXItem @@ -162,28 +162,28 @@ inherited fEditorContratoCliente: TfEditorContratoCliente end end inherited StatusBar: TJvStatusBar - Top = 576 - Width = 845 + Top = 614 + Width = 872 Panels = < item Width = 200 end> - ExplicitTop = 576 - ExplicitWidth = 845 + ExplicitTop = 614 + ExplicitWidth = 872 end inherited pgPaginas: TPageControl - Width = 839 - Height = 270 - ActivePage = pagContenido + Width = 866 + Height = 308 + ActivePage = pagCondiciones TabOrder = 1 OnChanging = pgPaginasChanging - ExplicitWidth = 839 - ExplicitHeight = 270 + ExplicitWidth = 866 + ExplicitHeight = 308 inherited pagGeneral: TTabSheet ExplicitLeft = 4 ExplicitTop = 24 - ExplicitWidth = 831 - ExplicitHeight = 242 + ExplicitWidth = 858 + ExplicitHeight = 280 end object pagContenido: TTabSheet Caption = 'Contenido' @@ -191,8 +191,8 @@ inherited fEditorContratoCliente: TfEditorContratoCliente inline frViewDetallesContratoCliente1: TfrViewDetallesContratoCliente Left = 0 Top = 0 - Width = 831 - Height = 242 + Width = 858 + Height = 280 Align = alClient BiDiMode = bdLeftToRight Font.Charset = DEFAULT_CHARSET @@ -204,12 +204,12 @@ inherited fEditorContratoCliente: TfEditorContratoCliente ParentFont = False TabOrder = 0 ReadOnly = False - ExplicitWidth = 831 - ExplicitHeight = 242 + ExplicitWidth = 858 + ExplicitHeight = 280 inherited ToolBar1: TToolBar - Width = 831 + Width = 858 Height = 24 - ExplicitWidth = 831 + ExplicitWidth = 858 ExplicitHeight = 24 inherited ToolButton4: TToolButton Wrap = False @@ -226,84 +226,84 @@ inherited fEditorContratoCliente: TfEditorContratoCliente ExplicitLeft = 368 ExplicitTop = 0 end - inherited UpDown1: TUpDown [6] + inherited FontSize: TEdit Left = 513 Top = 0 + Width = 90 ExplicitLeft = 513 ExplicitTop = 0 + ExplicitWidth = 90 end - inherited ToolButton13: TToolButton [7] - Left = 530 + inherited UpDown1: TUpDown + Left = 603 Top = 0 - ExplicitLeft = 530 + ExplicitLeft = 603 ExplicitTop = 0 end - inherited ToolButton6: TToolButton [8] - Left = 538 + inherited ToolButton13: TToolButton + Left = 620 Top = 0 - ExplicitLeft = 538 + ExplicitLeft = 620 ExplicitTop = 0 end - inherited ToolButton7: TToolButton [9] - Left = 572 + inherited ToolButton6: TToolButton + Left = 628 Top = 0 - ExplicitLeft = 572 + ExplicitLeft = 628 ExplicitTop = 0 end - inherited ToolButton8: TToolButton [10] - Left = 606 + inherited ToolButton7: TToolButton + Left = 662 Top = 0 - ExplicitLeft = 606 + ExplicitLeft = 662 ExplicitTop = 0 end - inherited ToolButton12: TToolButton [11] - Left = 640 + inherited ToolButton8: TToolButton + Left = 696 Top = 0 - ExplicitLeft = 640 + ExplicitLeft = 696 ExplicitTop = 0 end - inherited ToolButton9: TToolButton [12] - Left = 648 + inherited ToolButton12: TToolButton + Left = 730 Top = 0 - ExplicitLeft = 648 + ExplicitLeft = 730 ExplicitTop = 0 end - inherited ToolButton10: TToolButton [13] - Left = 682 + inherited ToolButton9: TToolButton + Left = 738 Top = 0 - ExplicitLeft = 682 + ExplicitLeft = 738 ExplicitTop = 0 end - inherited ToolButton11: TToolButton [14] - Left = 716 + inherited ToolButton10: TToolButton + Left = 772 Top = 0 - ExplicitLeft = 716 + ExplicitLeft = 772 ExplicitTop = 0 end - inherited FontSize: TEdit [15] - Left = 750 + inherited ToolButton11: TToolButton + Left = 806 Top = 0 - Width = 74 - ExplicitLeft = 750 + ExplicitLeft = 806 ExplicitTop = 0 - ExplicitWidth = 74 end end inherited cxGrid: TcxGrid Top = 50 - Width = 831 - Height = 192 + Width = 858 + Height = 230 ExplicitTop = 50 - ExplicitWidth = 831 - ExplicitHeight = 192 + ExplicitWidth = 858 + ExplicitHeight = 230 end inherited TBXDock1: TTBXDock Top = 24 - Width = 831 + Width = 858 ExplicitTop = 24 - ExplicitWidth = 831 + ExplicitWidth = 858 inherited TBXToolbar1: TTBXToolbar - ExplicitWidth = 663 + ExplicitWidth = 665 end end inherited cxLookupComboBox1: TcxLookupComboBox @@ -317,14 +317,59 @@ inherited fEditorContratoCliente: TfEditorContratoCliente end end end + object pagCondiciones: TTabSheet + Caption = 'Condiciones' + ImageIndex = 4 + object dxLayoutControl1: TdxLayoutControl + Left = 0 + Top = 0 + Width = 858 + Height = 280 + Align = alClient + TabOrder = 0 + TabStop = False + AutoContentSizes = [acsWidth, acsHeight] + object memCondiciones: TcxDBMemo + Left = 10 + Top = 10 + Align = alClient + DataBinding.DataField = 'CONDICIONES' + DataBinding.DataSource = dsDataTable + 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 = 0 + Height = 247 + Width = 799 + end + object dxLayoutControl1Group_Root: TdxLayoutGroup + ShowCaption = False + Hidden = True + ShowBorder = False + object dxLayoutControl1Item1: TdxLayoutItem + Control = memCondiciones + ControlOptions.ShowBorder = False + end + end + end + end object pagInicidencias: TTabSheet Caption = 'Incidencias' ImageIndex = 2 inline frViewIncidenciasCli: TfrViewIncidencias Left = 0 Top = 0 - Width = 831 - Height = 242 + Width = 858 + Height = 280 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -334,25 +379,25 @@ inherited fEditorContratoCliente: TfEditorContratoCliente ParentFont = False TabOrder = 0 ReadOnly = False - ExplicitWidth = 831 - ExplicitHeight = 242 + ExplicitWidth = 858 + ExplicitHeight = 280 inherited pnlSup: TPanel - Width = 831 - ExplicitWidth = 831 + Width = 858 + ExplicitWidth = 858 inherited eIncidenciaActiva: TcxDBCheckBox ExplicitHeight = 21 end end inherited GroupBox1: TGroupBox - Width = 831 - Height = 214 - ExplicitWidth = 831 - ExplicitHeight = 214 + Width = 858 + Height = 252 + ExplicitWidth = 858 + ExplicitHeight = 252 inherited eIncidencias: TcxDBMemo - ExplicitWidth = 827 - ExplicitHeight = 197 - Height = 197 - Width = 827 + ExplicitWidth = 854 + ExplicitHeight = 235 + Height = 235 + Width = 854 end end end @@ -363,8 +408,8 @@ inherited fEditorContratoCliente: TfEditorContratoCliente inline frViewDocumentosContratoCliente1: TfrViewDocumentosContratoCliente Left = 0 Top = 0 - Width = 831 - Height = 242 + Width = 858 + Height = 280 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -374,17 +419,17 @@ inherited fEditorContratoCliente: TfEditorContratoCliente ParentFont = False TabOrder = 0 ReadOnly = False - ExplicitWidth = 831 - ExplicitHeight = 242 + ExplicitWidth = 858 + ExplicitHeight = 280 inherited TBXDock: TTBXDock - Width = 831 - ExplicitWidth = 834 + Width = 858 + ExplicitWidth = 858 end inherited ListView1: TListView - Width = 831 - Height = 219 - ExplicitWidth = 834 - ExplicitHeight = 300 + Width = 858 + Height = 257 + ExplicitWidth = 858 + ExplicitHeight = 257 end inherited EditorActionList: TActionList Left = 8 @@ -394,17 +439,17 @@ inherited fEditorContratoCliente: TfEditorContratoCliente end end inherited PnlComentario: TPanel - Width = 845 - ExplicitWidth = 845 + Width = 872 + ExplicitWidth = 872 inherited lbComentario: TLabel - Width = 835 + Width = 862 Height = 25 end end inline frViewTotales1: TfrViewTotales [5] Left = 0 - Top = 382 - Width = 845 + Top = 420 + Width = 872 Height = 194 Align = alBottom Font.Charset = DEFAULT_CHARSET @@ -415,22 +460,22 @@ inherited fEditorContratoCliente: TfEditorContratoCliente ParentFont = False TabOrder = 5 ReadOnly = False - ExplicitTop = 382 - ExplicitWidth = 845 + ExplicitTop = 420 + ExplicitWidth = 872 ExplicitHeight = 194 inherited dxLayoutControl1: TdxLayoutControl - Width = 845 - ExplicitWidth = 845 + Width = 872 + ExplicitWidth = 872 inherited Bevel3: TBevel - Left = 416 + Left = 429 Height = 122 - ExplicitLeft = 416 + ExplicitLeft = 429 ExplicitHeight = 122 end inherited Bevel4: TBevel - Left = 528 + Left = 541 Width = 210 - ExplicitLeft = 528 + ExplicitLeft = 541 ExplicitWidth = 210 end inherited ImporteDto: TcxDBCurrencyEdit @@ -439,16 +484,16 @@ inherited fEditorContratoCliente: TfEditorContratoCliente Width = 93 end inherited ImporteIVA: TcxDBCurrencyEdit - Left = 599 + Left = 612 Style.IsFontAssigned = True - ExplicitLeft = 599 + ExplicitLeft = 612 ExplicitWidth = 137 Width = 137 end inherited ImporteTotal: TcxDBCurrencyEdit - Left = 529 + Left = 542 Style.IsFontAssigned = True - ExplicitLeft = 529 + ExplicitLeft = 542 ExplicitWidth = 137 Width = 137 end @@ -456,26 +501,26 @@ inherited fEditorContratoCliente: TfEditorContratoCliente Style.IsFontAssigned = True end inherited edtIVA: TcxDBSpinEdit - Left = 528 + Left = 541 Style.IsFontAssigned = True - ExplicitLeft = 528 + ExplicitLeft = 541 end inherited ImporteBase: TcxDBCurrencyEdit - Left = 528 + Left = 541 Style.IsFontAssigned = True - ExplicitLeft = 528 + ExplicitLeft = 541 ExplicitWidth = 92 Width = 92 end inherited edtRE: TcxDBSpinEdit - Left = 528 + Left = 541 Style.IsFontAssigned = True - ExplicitLeft = 528 + ExplicitLeft = 541 end inherited ImporteRE: TcxDBCurrencyEdit - Left = 599 + Left = 612 Style.IsFontAssigned = True - ExplicitLeft = 599 + ExplicitLeft = 612 ExplicitWidth = 56 Width = 56 end @@ -496,9 +541,9 @@ inherited fEditorContratoCliente: TfEditorContratoCliente Width = 81 end inherited bTiposIVA: TButton - Left = 268 + Left = 281 OnClick = frViewTotales1bTiposIVAClick - ExplicitLeft = 268 + ExplicitLeft = 281 end inherited cbRecargoEquivalencia: TcxDBCheckBox ExplicitWidth = 219 @@ -1864,6 +1909,8 @@ inherited fEditorContratoCliente: TfEditorContratoCliente Bitmap = {} end inherited EditorActionList: TActionList [9] + Left = 8 + Top = 80 object actEnviarPorEMail: TAction Category = 'Acciones' Caption = 'Enviar por e-mail...' @@ -1876,6 +1923,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente end end inherited dsDataTable: TDADataSource [10] + Top = 80 end inherited JvAppRegistryStorage: TJvAppRegistryStorage [11] end diff --git a/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.pas b/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.pas index 5f6e2f18..4af48867 100644 --- a/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.pas +++ b/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.pas @@ -19,7 +19,7 @@ uses uDAInterfaces, cxRichEdit, cxDBRichEdit, JvGIF, cxPC, uViewDocumentos, uViewDocumentosContratoCliente, uViewDatosYSeleccionClienteContrato, - cxLabel, uBizTiposIVA, uTiposIVAController; + cxLabel, uBizTiposIVA, uTiposIVAController, dxLayoutControl; type TfEditorContratoCliente = class(TfEditorDBItem, IEditorContratoCliente) @@ -38,6 +38,10 @@ type frViewDocumentosContratoCliente1: TfrViewDocumentosContratoCliente; frViewTotales1: TfrViewTotales; frViewDetallesContratoCliente1: TfrViewDetallesContratoCliente; + pagCondiciones: TTabSheet; + dxLayoutControl1: TdxLayoutControl; + dxLayoutControl1Item1: TdxLayoutItem; + memCondiciones: TcxDBMemo; procedure FormShow(Sender: TObject); procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction); diff --git a/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.pas b/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.pas index 9f6f5d90..27aee483 100644 --- a/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.pas +++ b/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.pas @@ -329,7 +329,8 @@ begin if (AItem.Index in [cxGridViewDESCUENTO.Index]) then begin IndiceCol := cxGridView.GetColumnByFieldName(CAMPO_TIPO).Index; - if (AItem.GridView.Items[IndiceCol].EditValue <> TIPO_DETALLE_DESCUENTO) then + if (AItem.GridView.Items[IndiceCol].EditValue <> TIPO_DETALLE_DESCUENTO) + and (AItem.GridView.Items[IndiceCol].EditValue <> TIPO_DETALLE_CONCEPTO) then Result := False end else if (AItem.Index in [cxGridViewPROPIEDAD.Index, cxGridViewTIPO_ARTICULO.Index]) then diff --git a/Source/Modulos/Facturas de cliente/Views/uViewDetallesFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Views/uViewDetallesFacturaCliente.pas index 6495d5b2..5feac147 100644 --- a/Source/Modulos/Facturas de cliente/Views/uViewDetallesFacturaCliente.pas +++ b/Source/Modulos/Facturas de cliente/Views/uViewDetallesFacturaCliente.pas @@ -70,7 +70,8 @@ begin if (AItem.Index in [cxGridViewDESCUENTO.Index]) then begin IndiceCol := cxGridView.GetColumnByFieldName(CAMPO_TIPO).Index; - if (AItem.GridView.Items[IndiceCol].EditValue <> TIPO_DETALLE_DESCUENTO) then + if (AItem.GridView.Items[IndiceCol].EditValue <> TIPO_DETALLE_DESCUENTO) + and (AItem.GridView.Items[IndiceCol].EditValue <> TIPO_DETALLE_CONCEPTO) then Result := False end else diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm index a5df7838..af0d39ce 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm @@ -2,6 +2,7 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente inherited cxGrid: TcxGrid inherited cxGridView: TcxGridDBTableView inherited cxGridViewTIPO: TcxGridDBColumn + Visible = True VisibleForCustomization = False end object cxGridViewTIPO_ARTICULO: TcxGridDBColumn [3] @@ -39,6 +40,7 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente Width = 383 end inherited cxGridViewCANTIDAD: TcxGridDBColumn [11] + Properties.Alignment.Vert = taBottomJustify VisibleForCustomization = False Width = 39 end diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas index 82c75ac9..c7d64a1b 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas @@ -369,9 +369,12 @@ begin if (AItem.Index in [cxGridViewDESCUENTO.Index]) then begin -// IndiceCol := cxGridView.GetColumnByFieldName(CAMPO_TIPO).Index; -// if (AItem.GridView.Items[IndiceCol].EditValue <> TIPO_DETALLE_DESCUENTO) then -// Result := False +//Esto es para que solo sea editable la columna dto en las lineas de tipo descuento (para hacer descuento por capitulo), +//además descuentos a nivel de lineas de detalle + IndiceCol := cxGridView.GetColumnByFieldName(CAMPO_TIPO).Index; + if (AItem.GridView.Items[IndiceCol].EditValue <> TIPO_DETALLE_DESCUENTO) + and (AItem.GridView.Items[IndiceCol].EditValue <> TIPO_DETALLE_CONCEPTO) then + Result := False end else if (AItem.Index in [cxGridViewPROPIEDAD.Index, cxGridViewTIPO_ARTICULO.Index]) then begin diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr index eeb8ae75..2a53c22d 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -127,8 +127,6 @@ uses schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas', schFamiliasClient_Intf in '..\Modulos\Familias\Model\schFamiliasClient_Intf.pas', schFamiliasServer_Intf in '..\Modulos\Familias\Model\schFamiliasServer_Intf.pas', - schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas', - schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_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', @@ -136,7 +134,9 @@ uses schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas', schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas', schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas', - schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_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'; {$R *.res} {$R ..\Servicios\RODLFile.res} diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index 97f4123f..5df51dd4 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -28,7 +28,7 @@ Delphi.Personality - FalseTrueFalseTrueFalse2530FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.5.3.0FactuGES (Servidor)2.5.3.0viernes, 17 de mayo de 2013 12:12 + FalseTrueFalseTrueFalse2550FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.5.5.0FactuGES (Servidor)2.5.5.0martes, 27 de agosto de 2013 11:43 File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found FactuGES_Server.dpr diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index 5c2e18d6..de7720b5 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -1,7 +1,7 @@ MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico" 1 VERSIONINFO -FILEVERSION 2,5,3,0 -PRODUCTVERSION 2,5,3,0 +FILEVERSION 2,5,5,0 +PRODUCTVERSION 2,5,5,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.3.0\0" + VALUE "FileVersion", "2.5.5.0\0" VALUE "ProductName", "FactuGES (Servidor)\0" - VALUE "ProductVersion", "2.5.3.0\0" - VALUE "CompileDate", "jueves, 11 de julio de 2013 16:49\0" + VALUE "ProductVersion", "2.5.5.0\0" + VALUE "CompileDate", "martes, 27 de agosto de 2013 13:55\0" END END BLOCK "VarFileInfo" diff --git a/Source/Servidor/FactuGES_Server.res b/Source/Servidor/FactuGES_Server.res index 25cce893..d20c8f4b 100644 Binary files a/Source/Servidor/FactuGES_Server.res and b/Source/Servidor/FactuGES_Server.res differ