From daee8834d5c2d8ffa60d9b9182583576bdaf5e08 Mon Sep 17 00:00:00 2001 From: david Date: Wed, 10 Sep 2008 16:49:09 +0000 Subject: [PATCH] =?UTF-8?q?Ticket=20#74=20->=20La=20exportaci=C3=B3n=20de?= =?UTF-8?q?=20un=20presupuesto=20a=20word=20falla=20en=20produccion,=20sin?= =?UTF-8?q?=20embargo=20en=20la=20VM=20no=20falla?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@583 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- .../Empresas/Model/schEmpresasClient_Intf.pas | 8 +- .../Empresas/Model/schEmpresasServer_Intf.pas | 8 +- Source/Base/Base.dproj | 102 +++++++++--------- Source/Cliente/FactuGES.dproj | 6 +- Source/Cliente/FactuGES.rc | 8 +- Source/Cliente/FactuGES.res | Bin 171984 -> 171984 bytes .../Reports/uRptWordAlbaranCliente.pas | 4 +- .../Reports/uRptWordFacturaCliente.pas | 5 +- .../Views/FacturasCliente_view.res | Bin 4748 -> 384 bytes .../View/uIEditorPedidosProveedorPreview.pas | 7 ++ .../uPedidosProveedorReportController.pas | 2 + .../Reports/uRptWordPedidoProveedor.dfm | 20 +++- .../Reports/uRptWordPedidoProveedor.pas | 60 +++-------- .../Servidor/srvPedidosProveedor_Impl.pas | 2 + .../Views/uEditorPedidosProveedorReport.dfm | 3 +- .../Views/uEditorPedidosProveedorReport.pas | 35 +++++- .../uRptWordCertificadoTrabajo_Server.pas | 6 +- .../Reports/uRptWordPresupuestoCliente.pas | 6 +- .../Servidor/srvPresupuestosCliente_Impl.pas | 15 ++- Source/Servidor/FactuGES_Server.RES | Bin 23208 -> 23216 bytes Source/Servidor/FactuGES_Server.dpr | 6 +- Source/Servidor/FactuGES_Server.dproj | 2 +- Source/Servidor/FactuGES_Server.rc | 10 +- 23 files changed, 165 insertions(+), 150 deletions(-) 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 b0ca1d4fde77344b40dce0a75bc5c69077564cda..dd627524ff0ad560f67f0255bc805ca892436fc8 100644 GIT binary patch delta 42 xcmcbxpX;pCc literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP 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 34bba0f775c19d0042cc39d701852cc31b5337e5..456769717f3cf09d03f4de5d51353a67ec45c442 100644 GIT binary patch delta 111 zcmZ3nm2m?Q-HBk_GWl+VJdpewVamzKz|6qNz`(#b**a2|QDkytq%z}&$+eO8jE0l< zMjCS)GUzcF0Od;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"