From 04de5dd364f75f899cc6b08d9eebb8a4f4bc5709 Mon Sep 17 00:00:00 2001 From: roberto Date: Thu, 28 May 2015 16:37:55 +0000 Subject: [PATCH] Version 2.0.8 git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1114 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- Database/scripts/factuges.sql | 17 +-- Source/Cliente/FactuGES.dproj | 2 +- Source/Cliente/FactuGES.rc | 8 +- Source/Cliente/FactuGES.res | Bin 171984 -> 171984 bytes .../Data/uDataModuleFacturasCliente.dfm | 4 + .../Model/schFacturasClienteClient_Intf.pas | 47 ++++++-- .../Model/schFacturasClienteServer_Intf.pas | 55 ++++++++-- .../Model/uBizFacturasCliente.pas | 1 + .../Servidor/srvFacturasCliente_Impl.dfm | 44 +++++--- .../Views/uViewFacturaCliente.dfm | 100 ++++++++++++------ .../Views/uViewFacturaCliente.pas | 3 + .../Views/uViewFacturasCliente.dfm | 74 +++++++++++-- .../Views/uViewFacturasCliente.pas | 15 +-- Source/Servidor/FactuGES_Server.RES | Bin 23344 -> 23340 bytes Source/Servidor/FactuGES_Server.dpr | 6 +- Source/Servidor/FactuGES_Server.dproj | 2 +- Source/Servidor/FactuGES_Server.rc | 10 +- 17 files changed, 301 insertions(+), 87 deletions(-) diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql index 226c77f4..a1b1842c 100644 --- a/Database/scripts/factuges.sql +++ b/Database/scripts/factuges.sql @@ -660,7 +660,7 @@ CREATE TABLE FACTURAS_CLIENTE ( ID_EMPRESA TIPO_ID, REFERENCIA VARCHAR(255), FECHA_FACTURA DATE, - FECHA_VENCIMIENTO DATE, + FECHA_VENCIMIENTO DATE, FECHA_RETENCION DATE, BASE_IMPONIBLE TIPO_IMPORTE, DESCUENTO TIPO_PORCENTAJE, @@ -674,7 +674,7 @@ CREATE TABLE FACTURAS_CLIENTE ( ID_CLIENTE TIPO_ID, NIF_CIF VARCHAR(15), NOMBRE VARCHAR(255), - ID_DIRECCION TIPO_ID, + ID_DIRECCION TIPO_ID, CALLE VARCHAR(255), POBLACION VARCHAR(255), PROVINCIA VARCHAR(255), @@ -689,10 +689,12 @@ CREATE TABLE FACTURAS_CLIENTE ( RECARGO_EQUIVALENCIA TIPO_BOOLEANO, ID_COMISION_LIQUIDADA TIPO_ID, DATOS_BANCARIOS VARCHAR(255), - CLIENTE_FINAL VARCHAR(255), + CLIENTE_FINAL VARCHAR(255), RETENCION TIPO_PORCENTAJE, IMPORTE_RETENCION TIPO_IMPORTE, - CERTIFICADO_ISO TIPO_BOOLEANO + CERTIFICADO_ISO TIPO_BOOLEANO, + ID_PRESUPUESTO TIPO_ID, + FACTURA_WEB TIPO_BOOLEANO DEFAULT 0 NOT NULL ); CREATE TABLE FACTURAS_CLIENTE_DETALLES ( @@ -2103,7 +2105,8 @@ CREATE VIEW V_FACTURAS_CLIENTE( IMPORTE_RETENCION, CERTIFICADO_ISO, ID_PRESUPUESTO, - REFERENCIA_PRESUPUESTO) + REFERENCIA_PRESUPUESTO, + FACTURA_WEB) AS SELECT FACTURAS_CLIENTE.ID, FACTURAS_CLIENTE.ID_EMPRESA, @@ -2147,7 +2150,8 @@ SELECT FACTURAS_CLIENTE.ID, FACTURAS_CLIENTE.IMPORTE_RETENCION, FACTURAS_CLIENTE.CERTIFICADO_ISO, FACTURAS_CLIENTE.ID_PRESUPUESTO, - PRESUPUESTOS_CLIENTE.REFERENCIA as REFERENCIA_PRE + PRESUPUESTOS_CLIENTE.REFERENCIA as REFERENCIA_PRE, + FACTURAS_CLIENTE.FACTURA_WEB FROM V_FAC_CLI_SITUACION LEFT JOIN FACTURAS_CLIENTE ON (FACTURAS_CLIENTE.ID = V_FAC_CLI_SITUACION.ID_FACTURA) @@ -2160,6 +2164,7 @@ SELECT FACTURAS_CLIENTE.ID, ; + /* View: V_FACTURAS_PROVEEDOR */ CREATE VIEW V_FACTURAS_PROVEEDOR( ID, diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index 6606704d..e3f3c7d6 100644 --- a/Source/Cliente/FactuGES.dproj +++ b/Source/Cliente/FactuGES.dproj @@ -53,7 +53,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2070FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.0.7.0FactuGESFactuGES2.0.7.0FactuGES.dprFalse +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2080FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.0.8.0FactuGESFactuGES2.0.8.0FactuGES.dprFalse diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc index 8a075229..ee9415d2 100644 --- a/Source/Cliente/FactuGES.rc +++ b/Source/Cliente/FactuGES.rc @@ -1,7 +1,7 @@ MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Factuges.ico" 1 VERSIONINFO -FILEVERSION 2,0,7,0 -PRODUCTVERSION 2,0,7,0 +FILEVERSION 2,0,8,0 +PRODUCTVERSION 2,0,8,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.0.7.0\0" + VALUE "FileVersion", "2.0.8.0\0" VALUE "InternalName", "FactuGES\0" VALUE "ProductName", "FactuGES\0" - VALUE "ProductVersion", "2.0.7.0\0" + VALUE "ProductVersion", "2.0.8.0\0" END END BLOCK "VarFileInfo" diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index 796d1c3775f19115cc4030ca01fcc48a0fdbc227..dc4d1a55b3900c68d4c785d294ee83a42e1ab560 100644 GIT binary patch delta 42 wcmcbxpX Params = <> StreamingOptions = [soDisableEventsWhileStreaming] diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas index cb74d650..71d0ff1f 100644 --- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas +++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas @@ -9,9 +9,9 @@ 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_ListaAnosFacturas = '{16572AF4-9D62-43E1-82BE-070FD956E657}'; - RID_FacturasCliente = '{4F822E48-FDE7-401F-B607-FF5C03C42CFD}'; - RID_FacturasCliente_Detalles = '{C830455C-688C-4B62-8104-24B21CD60BFD}'; + RID_ListaAnosFacturas = '{B6420F5C-D91E-48CE-B5AE-1601C339BCFB}'; + RID_FacturasCliente = '{CFAF95F1-1417-4EFB-9434-9F6E72BEC0A2}'; + RID_FacturasCliente_Detalles = '{48E213DD-72ED-44BB-9E6F-FB5D350B50D4}'; { Data table names } nme_ListaAnosFacturas = 'ListaAnosFacturas'; @@ -68,6 +68,7 @@ const fld_FacturasClienteCERTIFICADO_ISO = 'CERTIFICADO_ISO'; fld_FacturasClienteID_PRESUPUESTO = 'ID_PRESUPUESTO'; fld_FacturasClienteREFERENCIA_PRESUPUESTO = 'REFERENCIA_PRESUPUESTO'; + fld_FacturasClienteFACTURA_WEB = 'FACTURA_WEB'; { FacturasCliente field indexes } idx_FacturasClienteID = 0; @@ -113,6 +114,7 @@ const idx_FacturasClienteCERTIFICADO_ISO = 40; idx_FacturasClienteID_PRESUPUESTO = 41; idx_FacturasClienteREFERENCIA_PRESUPUESTO = 42; + idx_FacturasClienteFACTURA_WEB = 43; { FacturasCliente_Detalles fields } fld_FacturasCliente_DetallesID = 'ID'; @@ -151,7 +153,7 @@ const type { IListaAnosFacturas } IListaAnosFacturas = interface(IDAStronglyTypedDataTable) - ['{609E2895-4415-41C7-93B4-0273A1C0D906}'] + ['{5CB55BC4-3F60-4960-A0CB-B487CC69AE87}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -186,7 +188,7 @@ type { IFacturasCliente } IFacturasCliente = interface(IDAStronglyTypedDataTable) - ['{1098D2D9-46DC-453C-8DF2-A159BCDB5401}'] + ['{DD0C6685-6F03-48F9-9628-0C1B2255F118}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -359,6 +361,10 @@ type procedure SetREFERENCIA_PRESUPUESTOValue(const aValue: String); function GetREFERENCIA_PRESUPUESTOIsNull: Boolean; procedure SetREFERENCIA_PRESUPUESTOIsNull(const aValue: Boolean); + function GetFACTURA_WEBValue: SmallInt; + procedure SetFACTURA_WEBValue(const aValue: SmallInt); + function GetFACTURA_WEBIsNull: Boolean; + procedure SetFACTURA_WEBIsNull(const aValue: Boolean); { Properties } @@ -448,6 +454,8 @@ type property ID_PRESUPUESTOIsNull: Boolean read GetID_PRESUPUESTOIsNull write SetID_PRESUPUESTOIsNull; property REFERENCIA_PRESUPUESTO: String read GetREFERENCIA_PRESUPUESTOValue write SetREFERENCIA_PRESUPUESTOValue; property REFERENCIA_PRESUPUESTOIsNull: Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull; + property FACTURA_WEB: SmallInt read GetFACTURA_WEBValue write SetFACTURA_WEBValue; + property FACTURA_WEBIsNull: Boolean read GetFACTURA_WEBIsNull write SetFACTURA_WEBIsNull; end; { TFacturasClienteDataTableRules } @@ -628,6 +636,10 @@ type procedure SetREFERENCIA_PRESUPUESTOValue(const aValue: String); virtual; function GetREFERENCIA_PRESUPUESTOIsNull: Boolean; virtual; procedure SetREFERENCIA_PRESUPUESTOIsNull(const aValue: Boolean); virtual; + function GetFACTURA_WEBValue: SmallInt; virtual; + procedure SetFACTURA_WEBValue(const aValue: SmallInt); virtual; + function GetFACTURA_WEBIsNull: Boolean; virtual; + procedure SetFACTURA_WEBIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; @@ -716,6 +728,8 @@ type property ID_PRESUPUESTOIsNull: Boolean read GetID_PRESUPUESTOIsNull write SetID_PRESUPUESTOIsNull; property REFERENCIA_PRESUPUESTO: String read GetREFERENCIA_PRESUPUESTOValue write SetREFERENCIA_PRESUPUESTOValue; property REFERENCIA_PRESUPUESTOIsNull: Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull; + property FACTURA_WEB: SmallInt read GetFACTURA_WEBValue write SetFACTURA_WEBValue; + property FACTURA_WEBIsNull: Boolean read GetFACTURA_WEBIsNull write SetFACTURA_WEBIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -725,7 +739,7 @@ type { IFacturasCliente_Detalles } IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{33EBA6E5-6C58-408A-8673-6D46447E3B8F}'] + ['{C6858DC1-BBDE-4EC0-93E6-E1D177191707}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1884,6 +1898,27 @@ begin DataTable.Fields[idx_FacturasClienteREFERENCIA_PRESUPUESTO].AsVariant := Null; end; +function TFacturasClienteDataTableRules.GetFACTURA_WEBValue: SmallInt; +begin + result := DataTable.Fields[idx_FacturasClienteFACTURA_WEB].AsSmallInt; +end; + +procedure TFacturasClienteDataTableRules.SetFACTURA_WEBValue(const aValue: SmallInt); +begin + DataTable.Fields[idx_FacturasClienteFACTURA_WEB].AsSmallInt := aValue; +end; + +function TFacturasClienteDataTableRules.GetFACTURA_WEBIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasClienteFACTURA_WEB].IsNull; +end; + +procedure TFacturasClienteDataTableRules.SetFACTURA_WEBIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasClienteFACTURA_WEB].AsVariant := Null; +end; + { TFacturasCliente_DetallesDataTableRules } constructor TFacturasCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable); diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas index f8875f86..ccd701ff 100644 --- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas +++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas @@ -9,14 +9,14 @@ const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_ListaAnosFacturasDelta = '{550EADCB-EE2C-4BA0-A501-40C59A395CE1}'; - RID_FacturasClienteDelta = '{09E87A98-15E6-4D62-8E4E-91005D037D1D}'; - RID_FacturasCliente_DetallesDelta = '{3E85AA5C-FE35-452C-9A31-E85D8D57F742}'; + RID_ListaAnosFacturasDelta = '{4545AB94-BA1A-498B-82CC-6BB34ACFBF86}'; + RID_FacturasClienteDelta = '{AB0BB13F-03DD-46A7-9C1E-82C075A9DE7B}'; + RID_FacturasCliente_DetallesDelta = '{3C02B67E-221C-403B-AE8D-FAD1AB3E0FCC}'; type { IListaAnosFacturasDelta } IListaAnosFacturasDelta = interface(IListaAnosFacturas) - ['{550EADCB-EE2C-4BA0-A501-40C59A395CE1}'] + ['{4545AB94-BA1A-498B-82CC-6BB34ACFBF86}'] { Property getters and setters } function GetOldANOValue : String; @@ -50,7 +50,7 @@ type { IFacturasClienteDelta } IFacturasClienteDelta = interface(IFacturasCliente) - ['{09E87A98-15E6-4D62-8E4E-91005D037D1D}'] + ['{AB0BB13F-03DD-46A7-9C1E-82C075A9DE7B}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -95,6 +95,7 @@ type function GetOldCERTIFICADO_ISOValue : SmallInt; function GetOldID_PRESUPUESTOValue : Integer; function GetOldREFERENCIA_PRESUPUESTOValue : String; + function GetOldFACTURA_WEBValue : SmallInt; { Properties } property OldID : Integer read GetOldIDValue; @@ -140,6 +141,7 @@ type property OldCERTIFICADO_ISO : SmallInt read GetOldCERTIFICADO_ISOValue; property OldID_PRESUPUESTO : Integer read GetOldID_PRESUPUESTOValue; property OldREFERENCIA_PRESUPUESTO : String read GetOldREFERENCIA_PRESUPUESTOValue; + property OldFACTURA_WEB : SmallInt read GetOldFACTURA_WEBValue; end; { TFacturasClienteBusinessProcessorRules } @@ -406,6 +408,12 @@ type function GetOldREFERENCIA_PRESUPUESTOIsNull: Boolean; virtual; procedure SetREFERENCIA_PRESUPUESTOValue(const aValue: String); virtual; procedure SetREFERENCIA_PRESUPUESTOIsNull(const aValue: Boolean); virtual; + function GetFACTURA_WEBValue: SmallInt; virtual; + function GetFACTURA_WEBIsNull: Boolean; virtual; + function GetOldFACTURA_WEBValue: SmallInt; virtual; + function GetOldFACTURA_WEBIsNull: Boolean; virtual; + procedure SetFACTURA_WEBValue(const aValue: SmallInt); virtual; + procedure SetFACTURA_WEBIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; @@ -580,6 +588,10 @@ type property REFERENCIA_PRESUPUESTOIsNull : Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull; property OldREFERENCIA_PRESUPUESTO : String read GetOldREFERENCIA_PRESUPUESTOValue; property OldREFERENCIA_PRESUPUESTOIsNull : Boolean read GetOldREFERENCIA_PRESUPUESTOIsNull; + property FACTURA_WEB : SmallInt read GetFACTURA_WEBValue write SetFACTURA_WEBValue; + property FACTURA_WEBIsNull : Boolean read GetFACTURA_WEBIsNull write SetFACTURA_WEBIsNull; + property OldFACTURA_WEB : SmallInt read GetOldFACTURA_WEBValue; + property OldFACTURA_WEBIsNull : Boolean read GetOldFACTURA_WEBIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -589,7 +601,7 @@ type { IFacturasCliente_DetallesDelta } IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles) - ['{3E85AA5C-FE35-452C-9A31-E85D8D57F742}'] + ['{3C02B67E-221C-403B-AE8D-FAD1AB3E0FCC}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_FACTURAValue : Integer; @@ -2189,6 +2201,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_PRESUPUESTO] := Null; end; +function TFacturasClienteBusinessProcessorRules.GetFACTURA_WEBValue: SmallInt; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFACTURA_WEB]; +end; + +function TFacturasClienteBusinessProcessorRules.GetFACTURA_WEBIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFACTURA_WEB]); +end; + +function TFacturasClienteBusinessProcessorRules.GetOldFACTURA_WEBValue: SmallInt; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteFACTURA_WEB]; +end; + +function TFacturasClienteBusinessProcessorRules.GetOldFACTURA_WEBIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteFACTURA_WEB]); +end; + +procedure TFacturasClienteBusinessProcessorRules.SetFACTURA_WEBValue(const aValue: SmallInt); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFACTURA_WEB] := aValue; +end; + +procedure TFacturasClienteBusinessProcessorRules.SetFACTURA_WEBIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFACTURA_WEB] := Null; +end; + { TFacturasCliente_DetallesBusinessProcessorRules } constructor TFacturasCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); diff --git a/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas index 20c4e673..299dd9e3 100644 --- a/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas +++ b/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas @@ -269,6 +269,7 @@ begin ID_TIPO_IVA := AppFactuGES.EmpresaActiva.ID_TIPO_IVA; RE := 0; SITUACION := CTE_PENDIENTE; + FACTURA_WEB := 0; end; procedure TBizFacturaCliente.IVAOnChange(Sender: TDACustomField); diff --git a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm index 91a8487c..8c7265af 100644 --- a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm +++ b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm @@ -219,6 +219,10 @@ object srvFacturasCliente: TsrvFacturasCliente item DatasetField = 'REFERENCIA_PRESUPUESTO' TableField = 'REFERENCIA_PRESUPUESTO' + end + item + DatasetField = 'FACTURA_WEB' + TableField = 'FACTURA_WEB' end> end> Name = 'FacturasCliente' @@ -446,6 +450,10 @@ object srvFacturasCliente: TsrvFacturasCliente Name = 'REFERENCIA_PRESUPUESTO' DataType = datString Size = 255 + end + item + Name = 'FACTURA_WEB' + DataType = datSmallInt end> end item @@ -1018,6 +1026,11 @@ object srvFacturasCliente: TsrvFacturasCliente Name = 'ID_PRESUPUESTO' DataType = datInteger Value = '' + end + item + Name = 'FACTURA_WEB' + DataType = datSmallInt + Value = '' end> Statements = < item @@ -1035,18 +1048,18 @@ object srvFacturasCliente: TsrvFacturasCliente 'IO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA,'#10' ID_TIPO_IVA' + ','#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' DATOS_BANCARIOS,'#10' ' + 'CLIENTE_FINAL,'#10' RETENCION,'#10' IMPORTE_RETENCION,'#10' CERTIFI' + - 'CADO_ISO,'#10' ID_PRESUPUESTO)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRES' + - 'A,'#10' :REFERENCIA,'#10' :FECHA_FACTURA,'#10' :FECHA_VENCIMIENTO,'#10 + - ' :FECHA_RETENCION,'#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :' + - 'IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' :RE,'#10' :IMP' + - 'ORTE_RE,'#10' :IMPORTE_TOTAL,'#10' :OBSERVACIONES,'#10' :ID_CLIENTE' + - ','#10' :NIF_CIF,'#10' :NOMBRE,'#10' :ID_DIRECCION,'#10' :CALLE,'#10' ' + - ':POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_POSTAL,'#10' :FECHA_ALTA,' + - #10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' :ID_FORMA_PAGO,'#10' ' + - ':RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,'#10' ' + - ':IMPORTE_PORTE,'#10' :DATOS_BANCARIOS,'#10' :CLIENTE_FINAL,'#10' :R' + - 'ETENCION,'#10' :IMPORTE_RETENCION,'#10' :CERTIFICADO_ISO,'#10' :ID_' + - 'PRESUPUESTO);'#10 + 'CADO_ISO,'#10' ID_PRESUPUESTO,'#10' FACTURA_WEB)'#10' VALUES ('#10' :I' + + 'D,'#10' :ID_EMPRESA,'#10' :REFERENCIA,'#10' :FECHA_FACTURA,'#10' :FE' + + 'CHA_VENCIMIENTO,'#10' :FECHA_RETENCION,'#10' :BASE_IMPONIBLE,'#10' ' + + ':DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10 + + ' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE_TOTAL,'#10' :OBSERVACIONES' + + ','#10' :ID_CLIENTE,'#10' :NIF_CIF,'#10' :NOMBRE,'#10' :ID_DIRECCION,' + + #10' :CALLE,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_POSTAL,' + + #10' :FECHA_ALTA,'#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' :ID' + + '_FORMA_PAGO,'#10' :RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' :I' + + 'MPORTE_NETO,'#10' :IMPORTE_PORTE,'#10' :DATOS_BANCARIOS,'#10' :CLIE' + + 'NTE_FINAL,'#10' :RETENCION,'#10' :IMPORTE_RETENCION,'#10' :CERTIFIC' + + 'ADO_ISO,'#10' :ID_PRESUPUESTO,'#10' :FACTURA_WEB);'#10 StatementType = stSQL ColumnMappings = <> end> @@ -1244,6 +1257,11 @@ object srvFacturasCliente: TsrvFacturasCliente DataType = datInteger Value = '' end + item + Name = 'FACTURA_WEB' + DataType = datSmallInt + Value = '' + end item Name = 'OLD_ID' Value = '' @@ -1272,7 +1290,7 @@ object srvFacturasCliente: TsrvFacturasCliente 'ANCARIOS,'#10' CLIENTE_FINAL = :CLIENTE_FINAL,'#10' RETENCION = :R' + 'ETENCION,'#10' IMPORTE_RETENCION = :IMPORTE_RETENCION,'#10' CERTIF' + 'ICADO_ISO = :CERTIFICADO_ISO,'#10' ID_PRESUPUESTO = :ID_PRESUPUES' + - 'TO'#10' WHERE'#10' (ID = :OLD_ID);'#10 + 'TO,'#10' FACTURA_WEB = :FACTURA_WEB'#10' WHERE'#10' (ID = :OLD_ID);'#10 StatementType = stSQL ColumnMappings = <> end> diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm index 5ff3fc45..68d7ba15 100644 --- a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm @@ -1,6 +1,6 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente - Width = 451 - Height = 304 + Width = 896 + Height = 553 Align = alClient OnCreate = CustomViewCreate OnDestroy = CustomViewDestroy @@ -9,19 +9,21 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente object dxLayoutControl1: TdxLayoutControl Left = 0 Top = 0 - Width = 451 - Height = 304 + Width = 896 + Height = 553 Align = alClient ParentBackground = True TabOrder = 0 TabStop = False AutoContentSizes = [acsWidth, acsHeight] LookAndFeel = dxLayoutOfficeLookAndFeel1 + ExplicitWidth = 451 + ExplicitHeight = 304 DesignSize = ( - 451 - 304) + 896 + 553) object Label1: TLabel - Left = 354 + Left = 488 Top = 193 Width = 311 Height = 26 @@ -98,7 +100,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' - TabOrder = 10 + TabOrder = 11 Height = 345 Width = 355 end @@ -136,16 +138,16 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' - TabOrder = 3 + TabOrder = 4 Width = 269 end object bFormasPago: TButton - Left = 172 + Left = 306 Top = 130 Width = 132 Height = 23 Caption = 'Ver las formas de pago...' - TabOrder = 4 + TabOrder = 5 OnClick = bFormasPagoClick end object cbCuentaBancaria: TcxDBComboBox @@ -167,11 +169,11 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - TabOrder = 6 + TabOrder = 7 Width = 165 end object cbClienteFinal: TcxDBTextEdit - Left = 354 + Left = 488 Top = 227 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'CLIENTE_FINAL' @@ -195,19 +197,19 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' - TabOrder = 8 + TabOrder = 9 Width = 339 end object bElegirClienteFinal: TButton - Left = 410 + Left = 840 Top = 225 Width = 23 Height = 25 Action = actElegirClienteFinal - TabOrder = 9 + TabOrder = 10 end inline frViewDatosYSeleccionClienteFacturaCliente1: TfrViewDatosYSeleccionClienteFacturaCliente - Left = 343 + Left = 477 Top = 30 Width = 505 Height = 138 @@ -217,9 +219,9 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente Font.Name = 'Tahoma' Font.Style = [] ParentFont = False - TabOrder = 7 + TabOrder = 8 ReadOnly = False - ExplicitLeft = 343 + ExplicitLeft = 477 ExplicitTop = 30 inherited dxLayoutControl1: TdxLayoutControl inherited edtlNombre: TcxDBTextEdit @@ -227,28 +229,32 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 224 + Width = 224 end inherited edtNIFCIF: TcxDBTextEdit - Left = 171 + Left = 284 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 171 + ExplicitLeft = 284 end inherited Button3: TBitBtn - Left = 82 - ExplicitLeft = 82 + Left = 195 + ExplicitLeft = 195 end inherited edtDireccion: TcxTextEdit Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 121 + Width = 121 end inherited Button4: TButton - Left = 251 - ExplicitLeft = 251 + Left = 364 + ExplicitLeft = 364 end end inherited ActionList1: TActionList @@ -287,7 +293,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' - TabOrder = 5 + TabOrder = 6 Width = 275 end object eCertificadoISO: TcxDBCheckBox @@ -308,7 +314,28 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente StyleHot.LookAndFeel.NativeStyle = True TabOrder = 2 Transparent = True - Width = 428 + Width = 125 + end + object eFacturaWeb: TcxDBCheckBox + Left = 153 + Top = 84 + Caption = 'Factura WEB' + DataBinding.DataField = 'FACTURA_WEB' + DataBinding.DataSource = DADataSource + Properties.ImmediatePost = True + Properties.ValueChecked = 1 + Properties.ValueUnchecked = 0 + 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 = 3 + Transparent = True + Width = 293 end object dxLayoutControl1Group_Root: TdxLayoutGroup ShowCaption = False @@ -337,10 +364,23 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente Control = edtFecha ControlOptions.ShowBorder = False end - object dxLayoutControl1Item11: TdxLayoutItem + object dxLayoutControl1Group10: TdxLayoutGroup ShowCaption = False - Control = eCertificadoISO - ControlOptions.ShowBorder = False + Hidden = True + LayoutDirection = ldHorizontal + ShowBorder = False + object dxLayoutControl1Item11: TdxLayoutItem + ShowCaption = False + Control = eCertificadoISO + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item12: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahClient + ShowCaption = False + Control = eFacturaWeb + ControlOptions.ShowBorder = False + end end object dxLayoutControl1Group6: TdxLayoutGroup Caption = 'Forma de pago' diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas index b7e0dfbf..b7824cf7 100644 --- a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas +++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas @@ -69,6 +69,9 @@ type dxLayoutControl1Group3: TdxLayoutGroup; dxLayoutControl1Item11: TdxLayoutItem; eCertificadoISO: TcxDBCheckBox; + dxLayoutControl1Item12: TdxLayoutItem; + eFacturaWeb: TcxDBCheckBox; + dxLayoutControl1Group10: TdxLayoutGroup; procedure bFormasPagoClick(Sender: TObject); procedure CustomViewDestroy(Sender: TObject); procedure CustomViewCreate(Sender: TObject); diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm index 06e24b3e..55e63f8c 100644 --- a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm @@ -8,6 +8,8 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente Height = 290 RootLevelOptions.DetailTabsPosition = dtpTop OnActiveTabChanged = cxGridActiveTabChanged + ExplicitLeft = 48 + ExplicitTop = 96 ExplicitWidth = 665 ExplicitHeight = 290 inherited cxGridView: TcxGridDBTableView @@ -22,6 +24,23 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente DataController.OnCompare = cxGridViewDataControllerCompare OptionsCustomize.ColumnHidingOnGrouping = False OptionsView.GroupFooters = gfAlwaysVisible + object cxGridViewWEB: TcxGridDBColumn + Caption = 'Web' + DataBinding.FieldName = 'FACTURA_WEB' + PropertiesClassName = 'TcxImageComboBoxProperties' + Properties.Images = GridPNGImageList + Properties.Items = < + item + Description = 'Factura Web' + ImageIndex = 2 + Value = 1 + end + item + Description = 'Factura Normal' + Value = 0 + end> + Properties.ShowDescriptions = False + end object cxGridViewTIPO: TcxGridDBColumn DataBinding.FieldName = 'TIPO' PropertiesClassName = 'TcxImageComboBoxProperties' @@ -154,6 +173,8 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente Description = 'ISO' Value = 1 end> + Visible = False + VisibleForCustomization = False end object cxGridViewREFERENCIA_PRESUPUESTO: TcxGridDBColumn Caption = 'Ref. presupuesto' @@ -163,6 +184,9 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente inherited cxGridLevel: TcxGridLevel Caption = 'Todas' end + object cxGridTiendaWEB: TcxGridLevel + Caption = 'Tienda Web' + end object cxGridPendientes: TcxGridLevel Caption = 'Pendientes' end @@ -198,32 +222,34 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente Width = 144 end inherited edtFechaFinFiltro: TcxDateEdit - Left = 209 + Left = 185 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 209 + ExplicitLeft = 185 ExplicitWidth = 273 Width = 273 end inherited eLista: TcxComboBox - Left = 468 + Left = 414 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 468 + ExplicitLeft = 414 ExplicitWidth = 97 Width = 97 end inherited eLista2: TcxComboBox - Left = 585 + Left = 518 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 585 + ExplicitLeft = 518 + ExplicitWidth = 207 + Width = 207 end end inherited TBXAlignmentPanel1: TTBXAlignmentPanel @@ -406,6 +432,42 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente 4E44AE426082} Name = 'PngImage1' Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 61000000097048597300000B1300000B1301009A9C18000003734944415478DA + 5D536D685B55187ECEBDB99FB9371F26CB92ACADE9D66E75DDA6D356A6881B82 + 6C32904DA63074B66EEA90CDFDEC3EF0D7500A4357D18A286D6163A820289BCC + 0A83EE872875FB51964E6AD79936ED9A6459BE939B9BDCE4DEEBA1B2317DE1E1 + 1C78CFFB9CE77DCE7909FE17472F7ED6EEF0048E36D5F8FE464509A5EACBD0ED + DB497DE9E0B71E73FBF04FEF4AF30F9F27F7375F5DBA244795F90F798FF350C8 + 25A8204D52327E455ABB89997B69CC2C1EB3513958DEE81646BB4CF183AF0F93 + EA03826D9FBC2AADEFDE7CCE15C8EF0BAB3D64B5732B54BE84941647AC30821B + A934A6E2A750486E876054EC8857FFDEBB5CEE9F1C7A565F21D83DBE635075E5 + 06DABD9DCCA3AE67D04A21D18C6ECAB8BA78067FDC791A7F67A7908C1F875D8E + 81E3BEB4D6284367164E6C3849768D7DD1BB208C4F74866795764F184165275A + DDCF839851F8A55770FD6E0197E782984EA4A06573407314D0AEC04DF6547A5A + 4EBF403A07EF8D2CE84B879E78EA30DABC15F8652F9C9C8FEA62B04AFE18B17C + 04130B04F3E93C6CBD9F220E946F8194FDE80A7E33420283E94CBA58F2B56F7A + 072DBE3928BC0889E321B2AF51834E60BEE0403449FD2B14815A3FD0B806948A + 60AA1236C8C359221C9BB6EB848510FE19ABDB4E83C536B0CC2A18D647D08C16 + 54AA26EAC51250BD492DEFA32B07520C436E5610300E8084DF9CB4133207A880 + 103A0F8BB3C092000813815EDB4D9DB4695181DEFC2325380ED44DB055111EAB + 036AE92D9035AF4FDACBA60EB85C802C03920628BF81F0E760D75F048A8F5382 + C7A879598A8B609A0978B95904C94658ECFE1CF1EF9918CF98DA2EA8EABF04A2 + 08B8AF52A201C034687100C89C070C9A2B95C19ACB5817BC8247ECB53095BDA3 + 6473DF54FF5CECAFB19A53249024DA070F7035C07792BEC46D20F73255F10695 + 5E072A1A78AB82273B0A10A52D0D67CF8EE748C7FBB70423BE185DCA26D6DBA2 + 408BB91510FF59DAB7053B71844A6F50050618D3845BE2B135E2B36AFEAE0BBF + 9F5DD7B7F2137B07FEEC4ECEDEB99CCFA4DAEAB64D2C16F0847F41F9EE26587A + 081C6120700E04A84F1EA76AF3A2F707D3E73B3039D4A63F18A6EEF7AEB53A74 + 32ACE5F22FD51A794E76C5A16522B4230E0A55E6969CB620AB5A4351C6F219F5 + 54F44248FBCF34DE8FDE23333B19ADFAB683AFED330A26388103E371A6ACAAF5 + 5D59653E9FFE744BECE1F3FF00F7B9639E6BE4CA2D0000000049454E44AE4260 + 82} + Name = 'PngImage2' + Background = clWindow end> Bitmap = {} end diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas index a11ee3c3..c28ab359 100644 --- a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas +++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas @@ -42,10 +42,7 @@ type cxGridViewCODIGO_POSTAL: TcxGridDBColumn; cxGridViewPOBLACION: TcxGridDBColumn; cxStylePagada: TcxStyle; - cxGridPendientes: TcxGridLevel; - cxGridParcial: TcxGridLevel; cxStyleAbono: TcxStyle; - cxGridPagadas: TcxGridLevel; cxGridViewREFERENCIA_COMISION: TcxGridDBColumn; cxStylePendientes: TcxStyle; cxStyleParciales: TcxStyle; @@ -60,6 +57,11 @@ type cxGridViewIMPORTE_RETENCION: TcxGridDBColumn; cxGridViewCERTIFICADO_ISO: TcxGridDBColumn; cxGridViewREFERENCIA_PRESUPUESTO: TcxGridDBColumn; + cxGridViewWEB: TcxGridDBColumn; + cxGridTiendaWEB: TcxGridLevel; + cxGridPendientes: TcxGridLevel; + cxGridParcial: TcxGridLevel; + cxGridPagadas: TcxGridLevel; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); @@ -168,9 +170,10 @@ begin FFiltro := AddFilterGrid(fboAnd); case cxGrid.ActiveLevel.Index of - 1 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PENDIENTE, CTE_PENDIENTE); - 2 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PARCIAMENTE_PAGADA, CTE_PARCIAMENTE_PAGADA); - 3 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PAGADA, CTE_PAGADA); + 1 : FFiltro.AddItem(cxGridViewWEB, foEqual, '1', '1'); + 2 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PENDIENTE, CTE_PENDIENTE); + 3 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PARCIAMENTE_PAGADA, CTE_PARCIAMENTE_PAGADA); + 4 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PAGADA, CTE_PAGADA); end; end; diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index a965d5c4d0b7ab13239f4042eb25d789221659c8..058f4f3baced84d09ce51ec17f8e77ae5250ead5 100644 GIT binary patch delta 139 zcmdn6jd9I3#tnBO7!4-hjgSYDe$_T Xs1Z=VA%iJctr>$AkZm;iX_PwvRuvz& diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr index 0eb77a34..4a4b3613 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -128,14 +128,14 @@ uses schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas', schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas', schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas', - schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas', - schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas', schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas', schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas', schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas', schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas', schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas', - schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas'; + schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas', + schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas', + schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas'; {$R *.res} {$R ..\Servicios\RODLFile.res} diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index 0fe4498b..cdd60e18 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -35,7 +35,7 @@ Delphi.Personality - FalseTrueFalse/standaloneTrueFalse2070FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.0.7.0FactuGES Servidor2.0.7.0viernes, 06 de junio de 2014 10:17 + FalseTrueFalse/standaloneTrueFalse2080FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.0.8.0FactuGES Servidor2.0.8.0martes, 17 de febrero de 2015 16:12 ExpressPrinting System by Developer Express Inc. FactuGES_Server.dpr diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index a6c40973..9c39f4db 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -1,7 +1,7 @@ MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Servidor.ico" 1 VERSIONINFO -FILEVERSION 2,0,7,0 -PRODUCTVERSION 2,0,7,0 +FILEVERSION 2,0,8,0 +PRODUCTVERSION 2,0,8,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.0.7.0\0" + VALUE "FileVersion", "2.0.8.0\0" VALUE "ProductName", "FactuGES Servidor\0" - VALUE "ProductVersion", "2.0.7.0\0" - VALUE "CompileDate", "martes, 17 de febrero de 2015 16:12\0" + VALUE "ProductVersion", "2.0.8.0\0" + VALUE "CompileDate", "jueves, 28 de mayo de 2015 13:23\0" END END BLOCK "VarFileInfo"