diff --git a/Source/ApplicationBase/Empresas/Model/schEmpresasClient_Intf.pas b/Source/ApplicationBase/Empresas/Model/schEmpresasClient_Intf.pas index 20948cc7..ec60f78e 100644 --- a/Source/ApplicationBase/Empresas/Model/schEmpresasClient_Intf.pas +++ b/Source/ApplicationBase/Empresas/Model/schEmpresasClient_Intf.pas @@ -9,8 +9,8 @@ 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_Empresas = '{A8F0968B-4560-4FD7-BE09-BEC55C3721E1}'; - RID_EmpresasDatosBanco = '{98CA76B7-E2D1-40CA-B5A4-B6F4B99E2B5B}'; + RID_Empresas = '{9B1E99A5-EF96-4942-8C46-7505F5501BB3}'; + RID_EmpresasDatosBanco = '{58EF2E5E-97CA-4654-87BD-C6DA7A2F911C}'; { Data table names } nme_Empresas = 'Empresas'; @@ -99,7 +99,7 @@ const type { IEmpresas } IEmpresas = interface(IDAStronglyTypedDataTable) - ['{550BD567-4A92-49E1-BC8B-2F778AF6F0F9}'] + ['{FADCCB5A-1903-4E8D-B84C-A0C0CFDE28B9}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -422,7 +422,7 @@ type { IEmpresasDatosBanco } IEmpresasDatosBanco = interface(IDAStronglyTypedDataTable) - ['{FFBC96B5-51B6-4442-B217-46FF792D7D5C}'] + ['{AEE9C7D1-61B3-470C-A774-1DB77C111243}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); diff --git a/Source/ApplicationBase/Empresas/Model/schEmpresasServer_Intf.pas b/Source/ApplicationBase/Empresas/Model/schEmpresasServer_Intf.pas index 04c6bd0e..96318264 100644 --- a/Source/ApplicationBase/Empresas/Model/schEmpresasServer_Intf.pas +++ b/Source/ApplicationBase/Empresas/Model/schEmpresasServer_Intf.pas @@ -9,13 +9,13 @@ 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_EmpresasDelta = '{2FA42162-1747-4229-9EFB-41D49D7A0177}'; - RID_EmpresasDatosBancoDelta = '{AF1B9412-6CE5-479C-A1E3-FEFDF3EE87A6}'; + RID_EmpresasDelta = '{BE38FBA7-1592-49D7-8ED6-C4C306CB7135}'; + RID_EmpresasDatosBancoDelta = '{8A887444-4C23-4E13-A100-30A02D336255}'; type { IEmpresasDelta } IEmpresasDelta = interface(IEmpresas) - ['{2FA42162-1747-4229-9EFB-41D49D7A0177}'] + ['{BE38FBA7-1592-49D7-8ED6-C4C306CB7135}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldNIF_CIFValue : String; @@ -339,7 +339,7 @@ type { IEmpresasDatosBancoDelta } IEmpresasDatosBancoDelta = interface(IEmpresasDatosBanco) - ['{AF1B9412-6CE5-479C-A1E3-FEFDF3EE87A6}'] + ['{8A887444-4C23-4E13-A100-30A02D336255}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index 81ec4e70..e9bc58a4 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -53,57 +53,57 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fConfigurarConexion
diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index ff9389b0..e821b8fd 100644 --- a/Source/Cliente/FactuGES.dproj +++ b/Source/Cliente/FactuGES.dproj @@ -54,11 +54,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse1300FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.3.0.0FactuGESFactuGES1.3.0.0 - - - - +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse1310FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.3.1.0FactuGESFactuGES1.3.1.0 diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc index aacd1482..eb3acba8 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 1,3,0,0 -PRODUCTVERSION 1,3,0,0 +FILEVERSION 1,3,1,0 +PRODUCTVERSION 1,3,1,0 FILEFLAGSMASK 0x3FL FILEFLAGS 0x00L FILEOS 0x40004L @@ -13,10 +13,10 @@ BEGIN BLOCK "0C0A04E4" BEGIN VALUE "CompanyName", "Rodax Software S.L.\0" - VALUE "FileVersion", "1.3.0.0\0" + VALUE "FileVersion", "1.3.1.0\0" VALUE "InternalName", "FactuGES\0" VALUE "ProductName", "FactuGES\0" - VALUE "ProductVersion", "1.3.0.0\0" + VALUE "ProductVersion", "1.3.1.0\0" END END BLOCK "VarFileInfo" diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index b0ca1d4f..dd627524 100644 Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptWordAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Reports/uRptWordAlbaranCliente.pas index e19d9b24..bf728288 100644 --- a/Source/Modulos/Albaranes de cliente/Reports/uRptWordAlbaranCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Reports/uRptWordAlbaranCliente.pas @@ -81,12 +81,12 @@ begin end; FDocumento := TWordDoc.CreateOpenDoc (FWordApp, FPlantilla); + FWordApp.SaveActiveDocAs(FNombreFichero); try if not RellenarInforme then RaiseError('Se producido un error al generar el informe en MS Word.'); - FDocumento.SaveAs(FNombreFichero); - FWordApp.CloseApp(wdDoNotSaveChanges); + FWordApp.CloseApp(wdSaveChanges); Result := True; finally FDocumento := NIL; diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas index 64b8b8ce..3619bcdc 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas +++ b/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas @@ -114,7 +114,7 @@ begin end; FDocumento := TWordDoc.CreateNewDoc(FWordApp, FPlantilla); - FWordApp.ScreenUpdating := False; + FWordApp.SaveActiveDocAs(FNombreFichero); try if not RellenarCabecera then RaiseError('Se producido un error al generar la cabecera en MS Word.'); @@ -122,8 +122,7 @@ begin if not RellenarInforme then RaiseError('Se producido un error al generar el informe en MS Word.'); - FDocumento.SaveAs(FNombreFichero); - FWordApp.CloseApp(wdDoNotSaveChanges); + FWordApp.CloseApp(wdSaveChanges); Result := True; finally FDocumento := NIL; diff --git a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.res b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.res index 1641339f..8b251f31 100644 Binary files a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.res and b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.res differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/View/uIEditorPedidosProveedorPreview.pas b/Source/Modulos/Pedidos a proveedor/Controller/View/uIEditorPedidosProveedorPreview.pas index fc17711c..5f820fe6 100644 --- a/Source/Modulos/Pedidos a proveedor/Controller/View/uIEditorPedidosProveedorPreview.pas +++ b/Source/Modulos/Pedidos a proveedor/Controller/View/uIEditorPedidosProveedorPreview.pas @@ -8,6 +8,13 @@ uses type IEditorPedidosProveedorPreview = interface(IEditorPreview) ['{9B638488-5156-4FDA-BD85-524DC1D6F6A6}'] + procedure SetVerPrecios(const Value: Boolean); + function GetVerPrecios: Boolean; + property VerPrecios : Boolean read GetVerPrecios write SetVerPrecios; + + function GetVerRefProveedor: Boolean; + procedure SetVerRefProveedor(const Value: Boolean); + property VerRefProveedor : Boolean read GetVerRefProveedor write SetVerRefProveedor; end; diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorReportController.pas b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorReportController.pas index e6c273ea..f2857c34 100644 --- a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorReportController.pas +++ b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorReportController.pas @@ -134,6 +134,8 @@ begin try AEditor.Controller := Self; AEditor.ListaID := AListaID; + AEditor.VerPrecios := VerPrecios; + AEditor.VerRefProveedor := VerRefProveedor; AEditor.Title := 'Pedido a proveedor - ' + AppFactuGES.EmpresaActiva.NOMBRE; AEditor.LoadFromStream(AStream); AEditor.Preview; diff --git a/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.dfm index 11b9f8ba..c24d4063 100644 --- a/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.dfm +++ b/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.dfm @@ -28,10 +28,10 @@ object RptWordPedidoProveedor: TRptWordPedidoProveedor 'N,'#10' V_PEDIDOS_PROVEEDOR.POBLACION AS POBLACION_ALMACEN,'#10' V_PED' + 'IDOS_PROVEEDOR.PROVINCIA AS PROVINCIA_ALMACEN,'#10' V_PEDIDOS_PROVE' + 'EDOR.CODIGO_POSTAL AS CODIGO_POSTAL_ALMACEN,'#10' V_PEDIDOS_PROVEED' + - 'OR.PERSONA_CONTACTO AS PERSONA_CONTACTO_ALMACEN'#10'FROM'#10' V_PEDIDOS' + - '_PROVEEDOR'#10' LEFT OUTER JOIN V_PROVEEDORES ON (V_PROVEEDORES.ID ' + - '= V_PEDIDOS_PROVEEDOR.ID_PROVEEDOR)'#10'WHERE V_PEDIDOS_PROVEEDOR.ID' + - ' = :ID'#10#10 + 'OR.PERSONA_CONTACTO AS PERSONA_CONTACTO_ALMACEN,'#10' V_PEDIDOS_PRO' + + 'VEEDOR.IMPORTE_TOTAL'#10'FROM'#10' V_PEDIDOS_PROVEEDOR'#10' LEFT OUTER JOI' + + 'N V_PROVEEDORES ON (V_PROVEEDORES.ID = V_PEDIDOS_PROVEEDOR.ID_PR' + + 'OVEEDOR)'#10'WHERE V_PEDIDOS_PROVEEDOR.ID = :ID'#10#10 StatementType = stSQL ColumnMappings = < item @@ -93,6 +93,10 @@ object RptWordPedidoProveedor: TRptWordPedidoProveedor item DatasetField = 'FECHA_ENTREGA' TableField = 'FECHA_ENTREGA' + end + item + DatasetField = 'IMPORTE_TOTAL' + TableField = 'IMPORTE_TOTAL' end> end> Name = 'Informe_Cabecera' @@ -166,6 +170,10 @@ object RptWordPedidoProveedor: TRptWordPedidoProveedor Name = 'PERSONA_CONTACTO_ALMACEN' DataType = datString Size = 255 + end + item + Name = 'IMPORTE_TOTAL' + DataType = datCurrency end> ReadOnly = True end @@ -395,6 +403,10 @@ object RptWordPedidoProveedor: TRptWordPedidoProveedor Name = 'PERSONA_CONTACTO_ALMACEN' DataType = datString Size = 255 + end + item + Name = 'IMPORTE_TOTAL' + DataType = datCurrency end> Params = < item diff --git a/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.pas b/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.pas index e01359a5..72ccb14f 100644 --- a/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.pas +++ b/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.pas @@ -23,15 +23,14 @@ type FDocumento : TWordDoc; FCodigoPedido : string; FNombreFichero : String; - FImportes : Boolean; - procedure InsertarConceptos(Tabla : Table); - function Generar : Boolean; + function Generar : Boolean; function RellenarDatosPedido : Boolean; function RellenarDatosDetalle : Boolean; - procedure _GenerarPedido(const AID: String); public + ImprimirPrecio : Boolean; + ImprimirRefProveedor : Boolean; function Exportar(Codigo, Fichero : String): Boolean; constructor Create (AOwner : TComponent); override; destructor Destroy; override; @@ -53,6 +52,8 @@ const constructor TRptWordPedidoProveedor.Create(AOwner: TComponent); begin inherited; + ImprimirPrecio := False; + ImprimirRefProveedor := False; FDocumento := NIL; FPlantilla := DarRutaInformes + rptInforme; end; @@ -97,7 +98,7 @@ begin end; FDocumento := TWordDoc.CreateNewDoc(FWordApp, FPlantilla); - FWordApp.ScreenUpdating := False; + FWordApp.SaveActiveDocAs(FNombreFichero); try if not RellenarDatosPedido then RaiseError('Se producido un error al generar la cabecera en MS Word.'); @@ -105,8 +106,7 @@ begin if not RellenarDatosDetalle then RaiseError('Se producido un error al generar el informe en MS Word.'); - FDocumento.SaveAs(FNombreFichero); - FWordApp.CloseApp(wdDoNotSaveChanges); + FWordApp.CloseApp(wdSaveChanges); Result := True; finally FDocumento := NIL; @@ -114,42 +114,6 @@ begin end; end; -procedure TRptWordPedidoProveedor.InsertarConceptos(Tabla : Table); -var - numRows, numCols, mergeSplit, shiftCells : OleVariant; - iContador : Integer; - TotalConceptos : Double; -begin - numRows := 2; - numCols := 1; - mergeSplit := False; - shiftCells := False; - iContador := 2; // Empezar en la 2ª fila de celdas. La primera es la - // cabecera de la tabla. - - with Tabla, tbl_Detalles do - begin - while not EOF do - begin - if FieldByName('TIPO_DETALLE').AsString <> 'Concepto' then - Break; - // Partir la celda actual en 2 filas de 1 columna. - Rows.Item(iContador).Cells.Split (numRows, numCols, mergesplit); - Cell(iContador, 1).Range.Text := FieldByName('CONCEPTO').AsString; - Cell(iContador, 2).Range.Text := FieldByName('CANTIDAD').AsString; - Cell(iContador, 3).Range.Text := FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_UNIDAD').AsFloat); - Cell(iContador, 4).Range.Text := FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_TOTAL').AsFloat); - TotalConceptos := TotalConceptos + FieldByName('IMPORTE_TOTAL').AsFloat; - Next; - Inc (iContador); - end; - // Borrar la fila vacía que sobra - Rows.Item(iContador).Cells.Delete(shiftCells); - Cell(iContador, 1).Range.Text := 'Total: ' + FormatFloat(DISPLAY_EUROS2, TotalConceptos); - AutoFitBehavior(wdAutoFitWindow); - end; -end; - function TRptWordPedidoProveedor.RellenarDatosDetalle : Boolean; var @@ -168,17 +132,19 @@ begin while not tbl_Detalles.EOF do begin Rows.Item (iRowCount).Cells.Split (numRows, numCols, mergesplit); - Cell(iRowCount, 1).Range.Text := FieldByName('REFERENCIA_PROVEEDOR').AsString; + if ImprimirRefProveedor then + Cell(iRowCount, 1).Range.Text := FieldByName('REFERENCIA_PROVEEDOR').AsString; + Cell(iRowCount, 2).Range.Text := FieldByName('REFERENCIA_FABRICANTE').AsString; Cell(iRowCount, 3).Range.Text := FieldByName('CONCEPTO').AsString; Cell(iRowCount, 4).Range.Text := FieldByName('CANTIDAD').AsString + ' ' + FieldByName('UNIDAD_MEDIDA').AsString; - if FImportes then + if ImprimirPrecio then Cell(iRowCount, 5).Range.Text := FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_UNIDAD').AsFloat) else Cell(iRowCount, 5).Range.Text := ''; - if FImportes then + if ImprimirPrecio then Cell(iRowCount, 6).Range.Text := FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_TOTAL').AsFloat) else Cell(iRowCount, 6).Range.Text := ''; @@ -257,7 +223,7 @@ begin ReplaceBookmark('PersonaContactoProveedor', FieldByName('PERSONA_CONTACTO').AsString); ReplaceBookmark('CodigoClienteProveedor', FieldByName('CODIGO_CLIENTE').AsString); - if FImportes then + if ImprimirPrecio then ReplaceBookmark('ImporteTotal', FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_TOTAL').AsFloat)) else ReplaceBookmark('ImporteTotal', ''); diff --git a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.pas b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.pas index e96f6ff3..3172164a 100644 --- a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.pas +++ b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.pas @@ -125,6 +125,8 @@ begin AFicheroTMP := DarFicheroTemporal; AReportGenerator := TRptWordPedidoProveedor.Create(nil); try + AReportGenerator.ImprimirPrecio := ImprimirPrecio; + AReportGenerator.ImprimirRefProveedor := ImprimirRefProveedor; if AReportGenerator.Exportar(IntToStr(ID), AFicheroTMP) then begin Result := Binary.Create; diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedorReport.dfm b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedorReport.dfm index 2e66d0b3..b53d4524 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedorReport.dfm +++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedorReport.dfm @@ -1,7 +1,6 @@ inherited fEditorPedidosProveedorPreview: TfEditorPedidosProveedorPreview Caption = 'Previsualizar el pedidos proveedor' - ExplicitWidth = 320 - ExplicitHeight = 240 + ExplicitHeight = 492 PixelsPerInch = 96 TextHeight = 13 inherited TBXDock: TTBXDock diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedorReport.pas b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedorReport.pas index 20c9d5ff..61e2a4af 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedorReport.pas +++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedorReport.pas @@ -17,9 +17,16 @@ type TBXItem58: TTBXItem; procedure actExportarRTFExecute(Sender: TObject); private + FVerPrecios : Boolean; + FVerRefProveedor : Boolean; + function GetVerPrecios: Boolean; + function GetVerRefProveedor: Boolean; + procedure SetVerPrecios(const Value: Boolean); + procedure SetVerRefProveedor(const Value: Boolean); { Private declarations } public - { Public declarations } + property VerPrecios : Boolean read GetVerPrecios write SetVerPrecios; + property VerRefProveedor : Boolean read GetVerRefProveedor write SetVerRefProveedor; end; @@ -40,9 +47,31 @@ begin raise Exception.Create('No se ha asignado el controlador necesario'); for I := 0 to ListaID.Count - 1 do - (Controller as IPedidosProveedorReportController).ExportToWord(ListaID[I]); - + (Controller as IPedidosProveedorReportController).ExportToWord(ListaID[I], '', + FVerPrecios, FVerRefProveedor); + ShowInfoMessage('El pedido se ha exportado correctamente.'); end; +function TfEditorPedidosProveedorPreview.GetVerPrecios: Boolean; +begin + Result := FVerPrecios; +end; + +function TfEditorPedidosProveedorPreview.GetVerRefProveedor: Boolean; +begin + Result := FVerRefProveedor; +end; + +procedure TfEditorPedidosProveedorPreview.SetVerPrecios(const Value: Boolean); +begin + FVerPrecios := Value; +end; + +procedure TfEditorPedidosProveedorPreview.SetVerRefProveedor( + const Value: Boolean); +begin + FVerRefProveedor := Value; +end; + end. diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordCertificadoTrabajo_Server.pas b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordCertificadoTrabajo_Server.pas index 0a291aa1..d115f327 100644 --- a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordCertificadoTrabajo_Server.pas +++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordCertificadoTrabajo_Server.pas @@ -106,17 +106,15 @@ begin end; FDocumento := TWordDoc.CreateNewDoc(FWordApp, FPlantilla); - FWordApp.ScreenUpdating := False; + FWordApp.SaveActiveDocAs(FNombreFichero); try if not RellenarInforme then RaiseError('Se producido un error al generar el informe en MS Word.'); - FDocumento.SaveAs(FNombreFichero); + FWordApp.CloseApp(wdSaveChanges); Result := True; finally - FDocumento.CloseDoc(wdDoNotSaveChanges); FDocumento := NIL; - FWordApp.CloseApp(wdDoNotSaveChanges); FWordApp := NIL; end; end; diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas index 218a493b..9dbbf3e4 100644 --- a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas @@ -109,7 +109,8 @@ begin end; FDocumento := TWordDoc.CreateNewDoc(FWordApp, FPlantilla); - FWordApp.ScreenUpdating := False; + FWordApp.SaveActiveDocAs(FNombreFichero); + try if not RellenarPortada then RaiseError('Se producido un error al generar la portada del informe en MS Word.'); @@ -129,8 +130,7 @@ begin FDocumento.Document.Tables.Item(FDocumento.Document.Tables.Count-1).Delete; end; - FDocumento.SaveAs(FNombreFichero); - FWordApp.CloseApp(wdDoNotSaveChanges); + FWordApp.CloseApp(wdSaveChanges); Result := True; finally FDocumento := NIL; diff --git a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.pas b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.pas index 8641a0fa..862faac0 100644 --- a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.pas +++ b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.pas @@ -43,7 +43,7 @@ implementation {$R *.dfm} uses - Dialogs, uSistemaFunc, + Dialogs, uSistemaFunc, uROClasses, {Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils, schPresupuestosClienteClient_Intf, uRestriccionesUsuarioUtils, uRptPresupuestosCliente_Server, @@ -135,10 +135,15 @@ begin AFicheroTMP := DarFicheroTemporal; AReportGenerator := TRptWordPresupuestoCliente.Create(nil); try - if AReportGenerator.Exportar(IntToStr(ID), AFicheroTMP) then - begin - Result := Binary.Create; - Result.LoadFromFile(AFicheroTMP); + try + if AReportGenerator.Exportar(IntToStr(ID), AFicheroTMP) then + begin + Result := Binary.Create; + Result.LoadFromFile(AFicheroTMP); + end; + except + on E: Exception do + RaiseError(E.Message); end; finally FreeAndNIL(AReportGenerator); diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index 34bba0f7..45676971 100644 Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr index ecb5b946..df148bcb 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -102,8 +102,6 @@ uses srvProvinciasPoblaciones_Impl in '..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas', uBizArticulosServer in '..\Modulos\Articulos\Model\uBizArticulosServer.pas', uBizEmpresasServer in '..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas', - schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas', - schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas', schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas', schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas', schAlmacenesClient_Intf in '..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas', @@ -129,7 +127,9 @@ uses schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas', schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas', schHistoricoMovimientosClient_Intf in '..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas', - schHistoricoMovimientosServer_Intf in '..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas'; + schHistoricoMovimientosServer_Intf in '..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas', + schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas', + schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas'; {$R *.res} {$R ..\Servicios\RODLFile.res} diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index 3257eaee..1cf44d3d 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -35,7 +35,7 @@ Delphi.Personality - FalseTrueFalse/standaloneTrueFalse1300FalseFalseFalseFalseFalse308212521.3.0.01.3.0.0viernes, 05 de septiembre de 2008 19:22FactuGES_Server.dpr + FalseTrueFalse/standaloneTrueFalse1310FalseFalseFalseFalseFalse308212521.3.1.01.3.1.0viernes, 05 de septiembre de 2008 19:22FactuGES_Server.dpr diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index 29719549..b72791a3 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 1,3,0,0 -PRODUCTVERSION 1,3,0,0 +FILEVERSION 1,3,1,0 +PRODUCTVERSION 1,3,1,0 FILEFLAGSMASK 0x3FL FILEFLAGS 0x00L FILEOS 0x40004L @@ -12,9 +12,9 @@ BEGIN BEGIN BLOCK "0C0A04E4" BEGIN - VALUE "FileVersion", "1.3.0.0\0" - VALUE "ProductVersion", "1.3.0.0\0" - VALUE "CompileDate", "lunes, 08 de septiembre de 2008 17:18\0" + VALUE "FileVersion", "1.3.1.0\0" + VALUE "ProductVersion", "1.3.1.0\0" + VALUE "CompileDate", "miércoles, 10 de septiembre de 2008 18:00\0" END END BLOCK "VarFileInfo"