From d4278f3e508f54060d6cae2099da8b4d6fb22d9e Mon Sep 17 00:00:00 2001 From: roberto Date: Fri, 31 Oct 2008 18:16:49 +0000 Subject: [PATCH] Arreglo generar de reports, begintracsaction y rollbacktransaccion, ademas de arreglos de orden de columnas git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@719 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- Source/Base/Base.res | Bin 384 -> 4748 bytes Source/Base/Utiles/uReferenciasUtils.pas | 9 +++- Source/Cliente/FactuGES.res | Bin 172184 -> 171984 bytes .../Reports/uRptAlbaranesCliente_Server.pas | 27 +++++------ .../Reports/uRptWordAlbaranCliente.pas | 33 +++++++------ .../Reports/uRptEtiquetasContacto_Server.pas | 1 - .../Reports/uRptFichasEmpleado_Server.pas | 6 +-- .../Reports/uRptFacturasCliente_Server.pas | 38 +++++++-------- .../Reports/uRptWordFacturaCliente.pas | 37 +++++++------- .../Reports/uRptFacturasProveedor_Server.pas | 4 +- .../Reports/uRptPedidosProveedor_Server.pas | 31 ++++++------ .../Reports/uRptWordPedidoProveedor.pas | 33 +++++++------ .../uRptPresupuestosCliente_Server.pas | 45 +++++++++--------- .../uRptWordCertificadoTrabajo_Server.pas | 33 +++++++------ .../Reports/uRptWordPresupuestoCliente.pas | 33 +++++++------ .../Reports/uRptRecibosCliente_Server.pas | 28 ++++++----- .../Reports/uRptRecibosProveedor_Server.pas | 4 +- Source/Servidor/FactuGES_Server.RES | Bin 23512 -> 23212 bytes 18 files changed, 193 insertions(+), 169 deletions(-) diff --git a/Source/Base/Base.res b/Source/Base/Base.res index 8b251f312bcccec5485024f6fe8d80e1cdf25746..1641339fcc482e7e3492d1b45813a86619622c33 100644 GIT binary patch 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 delta 11 ScmeBCZD5|Duvteife`=|>;pCc diff --git a/Source/Base/Utiles/uReferenciasUtils.pas b/Source/Base/Utiles/uReferenciasUtils.pas index b5d41354..05b2d92d 100644 --- a/Source/Base/Utiles/uReferenciasUtils.pas +++ b/Source/Base/Utiles/uReferenciasUtils.pas @@ -17,16 +17,21 @@ uses function CompararReferencias(const ARef1, ARef2 : String) : Integer; var Aux1, Aux2 : String; + AuxInt1, AuxInt2: Double; Rpl : Char; begin Rpl := ' '; Aux1 := StrReplaceButChars(ARef1, AnsiDecDigits, Rpl); Aux1 := StrRemoveChars(Aux1, AnsiWhiteSpace); Aux2 := StrReplaceButChars(ARef2, AnsiDecDigits, Rpl); - Aux2 := StrRemoveChars(Aux2, AnsiWhiteSpace); + Aux2 := StrRemoveChars(Aux2, AnsiWhiteSpace); if StrIsDigit(Aux1) and StrIsDigit(Aux2) then - Result := VarCompare(StrToIntSafe(Aux1), StrToIntSafe(Aux2)) + begin + AuxInt1 := StrToFloatSafe(Aux1); + AuxInt2 := StrToFloatSafe(Aux2); + Result := VarCompare(AuxInt1, AuxInt2) + end else Result := VarCompare(Aux1, Aux2) end; diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index 885c5563a39b95e46967a3bf84929d5b3c194e67..6fc88ef0699317021415be1bb3385db4c81edc9a 100644 GIT binary patch delta 101 zcmbPnkn6&Ju7(!IEldaIDt%yNU{GLSVEF%E0EmGcATVIy;sG;�SRdkLEIYh_Em~ oLDq&v(5NUhPVh9=B^28TZr}`#-~#L0 z_iRiu^JdDI?SXX(Ri=hAo08x}?TI_%t?38X;LQ(ItbTWY1CI3KHR6UTQ z^-)eBgG!YE3oUqkojUiT?m)Ni_FgILv3&h=(HM~oh3x|{j0ZVK(!Nr6W6Grxr y>l5K%M4r!gg(+>4FxcKt!=quWoSYO-K6yG+=^|b(uaAhWeZ88~R?Dg5McQBDRyGX) diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas index f81f75a3..dee5da5d 100644 --- a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas +++ b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas @@ -107,15 +107,12 @@ var i: Integer; begin Result := Binary.Create; - //FConnection.BeginTransaction; <--- Creo que no va a hacer falta. - try //Vamos generando todos y cada uno de los albaranes recibidos for i := 0 to AListaID.Count - 1 do _GenerarAlbaran(AListaID.Items[i]); frxReport.PreviewPages.SaveToStream(Result); finally - //FConnection.RollbackTransaction; <--- Creo que no va a hacer falta. end; end; @@ -125,8 +122,6 @@ var i: Integer; begin Result := Binary.Create; - //FConnection.BeginTransaction; <--- Creo que no va a hacer falta. - try //Vamos generando todos y cada uno de los presupuestos recibidos for i := 0 to ListaID.Count - 1 do @@ -135,23 +130,27 @@ begin frxPDFExport1.Stream := Result; frxReport.Export(frxPDFExport1) finally - //FConnection.RollbackTransaction; <--- Creo que no va a hacer falta. end; end; procedure TRptAlbaranesCliente._GenerarAlbaran(const AID: Integer); begin - tbl_Cabecera.Active := False; - tbl_Detalles.Active := False; + FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" + try + tbl_Cabecera.Active := False; + tbl_Detalles.Active := False; - tbl_Cabecera.ParamByName('ID').AsInteger := AID; - tbl_Detalles.ParamByName('ID_ALBARAN').AsInteger := AID; + tbl_Cabecera.ParamByName('ID').AsInteger := AID; + tbl_Detalles.ParamByName('ID_ALBARAN').AsInteger := AID; - tbl_Cabecera.Active := True; - tbl_Detalles.Active := True; + tbl_Cabecera.Active := True; + tbl_Detalles.Active := True; - frxReport.LoadFromFile(DarRutaInformes + rptInforme, True); - frxReport.PrepareReport(False); + frxReport.LoadFromFile(DarRutaInformes + rptInforme, True); + frxReport.PrepareReport(False); + finally + FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" + end; end; function TRptAlbaranesCliente.GenerarEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary; diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptWordAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Reports/uRptWordAlbaranCliente.pas index bf728288..ff4cbe1f 100644 --- a/Source/Modulos/Albaranes de cliente/Reports/uRptWordAlbaranCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Reports/uRptWordAlbaranCliente.pas @@ -229,22 +229,27 @@ procedure TRptWordAlbaranCliente._GenerarAlbaran(const AID: String); var ACopiaPlantilla : String; begin - tbl_Cabecera.ParamByName('ID').AsString := AID; - tbl_Detalles.ParamByName('ID_ALBARAN').AsString := AID; - - tbl_Cabecera.Active := True; - tbl_Detalles.Active := True; - - FCodigoAlbaran := AID; - - ACopiaPlantilla := DarFicheroTemporal; - CopiarFichero(FPlantilla, ACopiaPlantilla); - FPlantilla := ACopiaPlantilla; + FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" try - if RecuperarEmpresa(tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger, tbl_Empresa) then - Generar; + tbl_Cabecera.ParamByName('ID').AsString := AID; + tbl_Detalles.ParamByName('ID_ALBARAN').AsString := AID; + + tbl_Cabecera.Active := True; + tbl_Detalles.Active := True; + + FCodigoAlbaran := AID; + + ACopiaPlantilla := DarFicheroTemporal; + CopiarFichero(FPlantilla, ACopiaPlantilla); + FPlantilla := ACopiaPlantilla; + try + if RecuperarEmpresa(tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger, tbl_Empresa) then + Generar; + finally + SysUtils.DeleteFile(ACopiaPlantilla); + end; finally - SysUtils.DeleteFile(ACopiaPlantilla); + FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" end; end; diff --git a/Source/Modulos/Contactos/Reports/uRptEtiquetasContacto_Server.pas b/Source/Modulos/Contactos/Reports/uRptEtiquetasContacto_Server.pas index b82986d0..7786460b 100644 --- a/Source/Modulos/Contactos/Reports/uRptEtiquetasContacto_Server.pas +++ b/Source/Modulos/Contactos/Reports/uRptEtiquetasContacto_Server.pas @@ -66,7 +66,6 @@ var begin Result := Binary.Create; - FConnection.BeginTransaction; AStream := TMemoryStream.Create; diff --git a/Source/Modulos/Contactos/Reports/uRptFichasEmpleado_Server.pas b/Source/Modulos/Contactos/Reports/uRptFichasEmpleado_Server.pas index 5b78434f..0e441e38 100644 --- a/Source/Modulos/Contactos/Reports/uRptFichasEmpleado_Server.pas +++ b/Source/Modulos/Contactos/Reports/uRptFichasEmpleado_Server.pas @@ -64,8 +64,6 @@ var i: Integer; begin Result := Binary.Create; - - //FConnection.BeginTransaction; <--- Creo que no va a hacer falta. try //Vamos generando todos y cada uno de las fichas de empleado for i := 0 to ListaID.Count - 1 do @@ -73,7 +71,6 @@ begin frxReport.PreviewPages.SaveToStream(Result); finally - //FConnection.RollbackTransaction; <--- Creo que no va a hacer falta. end; end; @@ -83,7 +80,7 @@ var dsMaster: IDADataset; begin AStream := TMemoryStream.Create; - + FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" try dsMaster := schReport.NewDataset(FConnection, ds_InformeFichaEmpleado, ['ID'], [ID]); @@ -95,6 +92,7 @@ begin frxReport.PrepareReport(False); finally + FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" AStream.Free; dsMaster := Nil; end; diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas index f4147466..f6558711 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas +++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas @@ -139,8 +139,6 @@ var i: Integer; begin Result := Binary.Create; - //FConnection.BeginTransaction; <--- Creo que no va a hacer falta. - try //Vamos generando todos y cada una de las facturas recibidas for i := 0 to ListaID.Count - 1 do @@ -148,7 +146,6 @@ begin frxReport.PreviewPages.SaveToStream(Result); finally - //FConnection.RollbackTransaction; <--- Creo que no va a hacer falta. end; end; @@ -158,8 +155,6 @@ var i: Integer; begin Result := Binary.Create; - //FConnection.BeginTransaction; <--- Creo que no va a hacer falta. - try //Vamos generando todos y cada una de las facturas recibidas for i := 0 to ListaID.Count - 1 do @@ -168,7 +163,6 @@ begin frxPDFExport1.Stream := Result; frxReport.Export(frxPDFExport1) finally - //FConnection.RollbackTransaction; <--- Creo que no va a hacer falta. end; end; @@ -177,7 +171,6 @@ var ATipoInforme: String; begin - //DESGLOSADO POR CLIENTE EN ESTE INFORME NO SE DESGLOSARÁ POR CLIENTE if Desglosado then ATipoInforme := rptInformeIVADesglosado @@ -240,20 +233,25 @@ end; procedure TRptFacturasCliente._GenerarFactura(const ID: Integer); begin - tbl_Cabecera.Active := False; - tbl_Detalles.Active := False; - tbl_Vencimientos.Active := False; + FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" + try + tbl_Cabecera.Active := False; + tbl_Detalles.Active := False; + tbl_Vencimientos.Active := False; - tbl_Cabecera.ParamByName('ID').AsInteger := ID; - tbl_Detalles.ParamByName('ID_FACTURA').AsInteger := ID; - tbl_Vencimientos.ParamByName('ID_FACTURA').AsInteger := ID; + tbl_Cabecera.ParamByName('ID').AsInteger := ID; + tbl_Detalles.ParamByName('ID_FACTURA').AsInteger := ID; + tbl_Vencimientos.ParamByName('ID_FACTURA').AsInteger := ID; - tbl_Cabecera.Active := True; - tbl_Detalles.Active := True; - tbl_Vencimientos.Active := True; + tbl_Cabecera.Active := True; + tbl_Detalles.Active := True; + tbl_Vencimientos.Active := True; - frxReport.LoadFromFile(DarRutaInformes + rptFacturaCliente, True); - frxReport.PrepareReport(False); + frxReport.LoadFromFile(DarRutaInformes + rptFacturaCliente, True); + frxReport.PrepareReport(False); + finally + FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" + end; end; function TRptFacturasCliente._GenerarInforme(const TipoInforme: String; @@ -265,7 +263,7 @@ var begin Result := Binary.Create; - //FConnection.BeginTransaction; <--- Creo que no va a hacer falta. + FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" try @@ -342,7 +340,7 @@ begin frxReport.PreviewPages.SaveToStream(Result); finally - //FConnection.RollbackTransaction; <--- Creo que no va a hacer falta. + FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" end; end; diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas index 3619bcdc..6aee2f1c 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas +++ b/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas @@ -352,26 +352,31 @@ procedure TRptWordFacturaCliente._GenerarFactura(const AID: String); var ACopiaPlantilla : String; begin - tbl_Cabecera.ParamByName('ID').AsString := AID; - tbl_Detalles.ParamByName('ID_FACTURA').AsString := AID; - tbl_Vencimientos.ParamByName('ID_FACTURA').AsString := AID; + FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" + try + tbl_Cabecera.ParamByName('ID').AsString := AID; + tbl_Detalles.ParamByName('ID_FACTURA').AsString := AID; + tbl_Vencimientos.ParamByName('ID_FACTURA').AsString := AID; - tbl_Cabecera.Active := True; - tbl_Detalles.Active := True; - tbl_Vencimientos.Active := True; + tbl_Cabecera.Active := True; + tbl_Detalles.Active := True; + tbl_Vencimientos.Active := True; - FCodigoFactura := AID; + FCodigoFactura := AID; - if RecuperarEmpresa(tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger, tbl_Empresa) then - begin - ACopiaPlantilla := DarFicheroTemporal; - CopiarFichero(FPlantilla, ACopiaPlantilla); - FPlantilla := ACopiaPlantilla; - try - Generar; - finally - SysUtils.DeleteFile(ACopiaPlantilla); + if RecuperarEmpresa(tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger, tbl_Empresa) then + begin + ACopiaPlantilla := DarFicheroTemporal; + CopiarFichero(FPlantilla, ACopiaPlantilla); + FPlantilla := ACopiaPlantilla; + try + Generar; + finally + SysUtils.DeleteFile(ACopiaPlantilla); + end; end; + finally + FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" end; end; diff --git a/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.pas b/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.pas index 199780e3..8ee56d5f 100644 --- a/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.pas +++ b/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.pas @@ -195,7 +195,7 @@ var begin Result := Binary.Create; - //FConnection.BeginTransaction; <--- Creo que no va a hacer falta. + FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" try @@ -272,7 +272,7 @@ begin frxReport.PreviewPages.SaveToStream(Result); finally - //FConnection.RollbackTransaction; <--- Creo que no va a hacer falta. + FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" end; end; diff --git a/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.pas b/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.pas index 79388cb9..1a60acd1 100644 --- a/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.pas +++ b/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.pas @@ -154,8 +154,6 @@ begin Result := Binary.Create; FImprimirPrecio := ImprimirPrecio; FImprimirRefProveedor := ImprimirRefProveedor; - - //FConnection.BeginTransaction; <--- Creo que no va a hacer falta. try //Vamos generando todos y cada uno de los pedidos recibidos for i := 0 to ListaID.Count - 1 do @@ -163,7 +161,6 @@ begin frxReport.PreviewPages.SaveToStream(Result); finally - //FConnection.RollbackTransaction; <--- Creo que no va a hacer falta. end; end; @@ -176,7 +173,7 @@ var begin Result := Binary.Create; - //FConnection.BeginTransaction; <--- Creo que no va a hacer falta. + FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" try @@ -253,23 +250,28 @@ begin frxReport.PreviewPages.SaveToStream(Result); finally - //FConnection.RollbackTransaction; <--- Creo que no va a hacer falta. + FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" end; end; procedure TRptPedidosProveedor._GenerarPedido(const ID: Integer); begin - tbl_Cabecera.Active := False; - tbl_Detalles.Active := False; + FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" + try + tbl_Cabecera.Active := False; + tbl_Detalles.Active := False; - tbl_Cabecera.ParamByName('ID').AsInteger := ID; - tbl_Detalles.ParamByName('ID_PEDIDO').AsInteger := ID; + tbl_Cabecera.ParamByName('ID').AsInteger := ID; + tbl_Detalles.ParamByName('ID_PEDIDO').AsInteger := ID; - tbl_Cabecera.Active := True; - tbl_Detalles.Active := True; + tbl_Cabecera.Active := True; + tbl_Detalles.Active := True; - frxReport.LoadFromFile(DarRutaInformes + rptInforme, True); - frxReport.PrepareReport(False); + frxReport.LoadFromFile(DarRutaInformes + rptInforme, True); + frxReport.PrepareReport(False); + finally + FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" + end; end; function TRptPedidosProveedor.GenerarPedidoEnPDF( @@ -281,8 +283,6 @@ begin Result := Binary.Create; FImprimirPrecio := ImprimirPrecio; FImprimirRefProveedor := ImprimirRefProveedor; - - //FConnection.BeginTransaction; <--- Creo que no va a hacer falta. try //Vamos generando todos y cada uno de los albaranes recibidos for i := 0 to ListaID.Count - 1 do @@ -291,7 +291,6 @@ begin frxPDFExport1.Stream := Result; frxReport.Export(frxPDFExport1) finally - //FConnection.RollbackTransaction; <--- Creo que no va a hacer falta. end; end; diff --git a/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.pas b/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.pas index 72ccb14f..2e6e9618 100644 --- a/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.pas +++ b/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.pas @@ -247,24 +247,29 @@ procedure TRptWordPedidoProveedor._GenerarPedido(const AID: String); var ACopiaPlantilla : String; begin - tbl_Cabecera.ParamByName('ID').AsString := AID; - tbl_Detalles.ParamByName('ID_PEDIDO').AsString := AID; + FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" + try + tbl_Cabecera.ParamByName('ID').AsString := AID; + tbl_Detalles.ParamByName('ID_PEDIDO').AsString := AID; - tbl_Cabecera.Active := True; - tbl_Detalles.Active := True; + tbl_Cabecera.Active := True; + tbl_Detalles.Active := True; - FCodigoPedido := AID; + FCodigoPedido := AID; - if RecuperarEmpresa(tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger, tbl_Empresa) then - begin - ACopiaPlantilla := DarFicheroTemporal; - CopiarFichero(FPlantilla, ACopiaPlantilla); - FPlantilla := ACopiaPlantilla; - try - Generar; - finally - SysUtils.DeleteFile(ACopiaPlantilla); + if RecuperarEmpresa(tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger, tbl_Empresa) then + begin + ACopiaPlantilla := DarFicheroTemporal; + CopiarFichero(FPlantilla, ACopiaPlantilla); + FPlantilla := ACopiaPlantilla; + try + Generar; + finally + SysUtils.DeleteFile(ACopiaPlantilla); + end; end; + finally + FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" end; end; diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas index ff9d6252..1017705d 100644 --- a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas +++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas @@ -125,8 +125,6 @@ var i: Integer; begin Result := Binary.Create; - //FConnection.BeginTransaction; <--- Creo que no va a hacer falta. - try //Vamos generando todos y cada uno de los presupuestos recibidos for i := 0 to ListaID.Count - 1 do @@ -135,7 +133,6 @@ begin frxPDFExport1.Stream := Result; frxReport.Export(frxPDFExport1) finally - //FConnection.RollbackTransaction; <--- Creo que no va a hacer falta. end; end; @@ -162,8 +159,6 @@ var i: Integer; begin Result := Binary.Create; - //FConnection.BeginTransaction; <--- Creo que no va a hacer falta. - try //Vamos generando todos y cada uno de los presupuestos recibidos for i := 0 to ListaID.Count - 1 do @@ -171,7 +166,6 @@ begin frxReport.PreviewPages.SaveToStream(Result); finally - //FConnection.RollbackTransaction; <--- Creo que no va a hacer falta. end; end; @@ -184,7 +178,7 @@ var begin Result := Binary.Create; - //FConnection.BeginTransaction; <--- Creo que no va a hacer falta. + FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" try @@ -261,29 +255,34 @@ begin frxReport.PreviewPages.SaveToStream(Result); finally - //FConnection.RollbackTransaction; <--- Creo que no va a hacer falta. + FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" end; end; procedure TRptPresupuestosCliente._GenerarPresupuesto(const AID: Integer); begin - tbl_Cabecera.Active := False; - tbl_Capitulos.Active := False; - tbl_Detalles.Active := False; - tbl_Resumen.Active := False; - - tbl_Cabecera.ParamByName('ID').AsInteger := AID; - tbl_Capitulos.ParamByName('ID_PRESUPUESTO').AsInteger := AID; - tbl_Detalles.ParamByName('ID_PRESUPUESTO').AsInteger := AID; - tbl_Resumen.ParamByName('ID_PRESUPUESTO').AsInteger := AID; + FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" + try + tbl_Cabecera.Active := False; + tbl_Capitulos.Active := False; + tbl_Detalles.Active := False; + tbl_Resumen.Active := False; - tbl_Cabecera.Active := True; - tbl_Capitulos.Active := True; - tbl_Detalles.Active := True; - tbl_Resumen.Active := True; + tbl_Cabecera.ParamByName('ID').AsInteger := AID; + tbl_Capitulos.ParamByName('ID_PRESUPUESTO').AsInteger := AID; + tbl_Detalles.ParamByName('ID_PRESUPUESTO').AsInteger := AID; + tbl_Resumen.ParamByName('ID_PRESUPUESTO').AsInteger := AID; - frxReport.LoadFromFile(DarRutaInformes + rptInforme, True); - frxReport.PrepareReport(False); + tbl_Cabecera.Active := True; + tbl_Capitulos.Active := True; + tbl_Detalles.Active := True; + tbl_Resumen.Active := True; + + frxReport.LoadFromFile(DarRutaInformes + rptInforme, True); + frxReport.PrepareReport(False); + finally + FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" + end; 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 d115f327..e938cad3 100644 --- a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordCertificadoTrabajo_Server.pas +++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordCertificadoTrabajo_Server.pas @@ -187,24 +187,29 @@ procedure TRptWordCertificadoTrabajo._GenerarCertificado(const AID: Integer); var ACopiaPlantilla: string; begin - tbl_Cabecera.ParamByName('ID').AsInteger := AID; - tbl_Capitulos.ParamByName('ID_PRESUPUESTO').AsInteger := AID; + FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" + try + tbl_Cabecera.ParamByName('ID').AsInteger := AID; + tbl_Capitulos.ParamByName('ID_PRESUPUESTO').AsInteger := AID; - tbl_Cabecera.Active := True; - tbl_Capitulos.Active := True; + tbl_Cabecera.Active := True; + tbl_Capitulos.Active := True; - FCodigoPresupuesto := AID; + FCodigoPresupuesto := AID; - if RecuperarEmpresa(tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger, tbl_Empresa) then - begin - ACopiaPlantilla := DarFicheroTemporal; - CopiarFichero(FPlantilla, ACopiaPlantilla); - FPlantilla := ACopiaPlantilla; - try - Generar; - finally - SysUtils.DeleteFile(ACopiaPlantilla); + if RecuperarEmpresa(tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger, tbl_Empresa) then + begin + ACopiaPlantilla := DarFicheroTemporal; + CopiarFichero(FPlantilla, ACopiaPlantilla); + FPlantilla := ACopiaPlantilla; + try + Generar; + finally + SysUtils.DeleteFile(ACopiaPlantilla); + end; end; + finally + FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" end; end; diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas index fe51ce72..8bab7848 100644 --- a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas @@ -498,24 +498,29 @@ procedure TRptWordPresupuestoCliente._GenerarPresupuesto(const AID: String); var ACopiaPlantilla: string; begin - tbl_Cabecera.ParamByName('ID').AsString := AID; - tbl_Detalles.ParamByName('ID_PRESUPUESTO').AsString := AID; + FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" + try + tbl_Cabecera.ParamByName('ID').AsString := AID; + tbl_Detalles.ParamByName('ID_PRESUPUESTO').AsString := AID; - tbl_Cabecera.Active := True; - tbl_Detalles.Active := True; + tbl_Cabecera.Active := True; + tbl_Detalles.Active := True; - FCodigoPresupuesto := AID; + FCodigoPresupuesto := AID; - if RecuperarEmpresa(tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger, tbl_Empresa) then - begin - ACopiaPlantilla := DarFicheroTemporal; - CopiarFichero(FPlantilla, ACopiaPlantilla); - FPlantilla := ACopiaPlantilla; - try - Generar; - finally - SysUtils.DeleteFile(ACopiaPlantilla); + if RecuperarEmpresa(tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger, tbl_Empresa) then + begin + ACopiaPlantilla := DarFicheroTemporal; + CopiarFichero(FPlantilla, ACopiaPlantilla); + FPlantilla := ACopiaPlantilla; + try + Generar; + finally + SysUtils.DeleteFile(ACopiaPlantilla); + end; end; + finally + FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" end; end; diff --git a/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.pas b/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.pas index 8ab54f51..0b0095bd 100644 --- a/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.pas +++ b/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.pas @@ -78,15 +78,12 @@ var i: Integer; begin Result := Binary.Create; - - //FConnection.BeginTransaction; <--- Creo que no va a hacer falta. try //Vamos generando todos y cada uno de los albaranes recibidos for i := 0 to ListaID.Count - 1 do _GenerarRecibo(ListaID.Items[i]); frxReport.PreviewPages.SaveToStream(Result); finally - //FConnection.RollbackTransaction; <--- Creo que no va a hacer falta. end; end; @@ -150,7 +147,7 @@ var begin Result := Binary.Create; - //FConnection.BeginTransaction; <--- Creo que no va a hacer falta. + FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" try @@ -226,24 +223,29 @@ begin frxReport.PreviewPages.SaveToStream(Result); finally - //FConnection.RollbackTransaction; <--- Creo que no va a hacer falta. + FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" end; end; procedure TRptRecibosCliente._GenerarRecibo(const ID: Integer); begin - tbl_Cabecera.Active := False; - tbl_Compensados.Active := False; + FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" + try + tbl_Cabecera.Active := False; + tbl_Compensados.Active := False; - tbl_Cabecera.ParamByName('ID').AsInteger := ID; - tbl_Compensados.ParamByName('ID_RECIBO').AsInteger := ID; + tbl_Cabecera.ParamByName('ID').AsInteger := ID; + tbl_Compensados.ParamByName('ID_RECIBO').AsInteger := ID; - tbl_Cabecera.Active := True; - tbl_Compensados.Active := True; + tbl_Cabecera.Active := True; + tbl_Compensados.Active := True; - frxReport.LoadFromFile(DarRutaInformes + rptInforme, True); - frxReport.PrepareReport(False); + frxReport.LoadFromFile(DarRutaInformes + rptInforme, True); + frxReport.PrepareReport(False); + finally + FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" + end; end; end. diff --git a/Source/Modulos/Recibos de proveedor/Reports/uRptRecibosProveedor_Server.pas b/Source/Modulos/Recibos de proveedor/Reports/uRptRecibosProveedor_Server.pas index e8dd19d1..d3c31629 100644 --- a/Source/Modulos/Recibos de proveedor/Reports/uRptRecibosProveedor_Server.pas +++ b/Source/Modulos/Recibos de proveedor/Reports/uRptRecibosProveedor_Server.pas @@ -130,7 +130,7 @@ var begin Result := Binary.Create; - //FConnection.BeginTransaction; <--- Creo que no va a hacer falta. + FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" try @@ -206,7 +206,7 @@ begin frxReport.PreviewPages.SaveToStream(Result); finally - //FConnection.RollbackTransaction; <--- Creo que no va a hacer falta. + FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" end; end; diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index b8be5fa29c6dc2a8ff84df849d279503f43adaae..a4f770bffb37ef80f5838f7361ab6233e68a811d 100644 GIT binary patch delta 115 zcmcbyopH@p#tnBOm^Ls@z84_}qW(pAh_Em)GN1xJ#>r8UN=&a9Cf7xZO@0z-F!@fD z33DEU`eglRS;<_6Ooo>XMGVOd`3yM>sSL#oIt&U7MhupdW1}@W4H=9Xtbo{La(}cZ E08*bFe*gdg delta 412 zcmZ3pmGQ=Q#tnBOnC>u5z84_}qW(pAh%hiPGN1x0rpZx}N=#x*lj|bIe3gLmj10~U z`3$)X1q_J{c?^{den2{xAr-Do3#`VCA(J5oDCz>l#SF;|ML>Q5LkW<~2kHWY$rB@u z>meq30>w&zDvN-0B2XWynQCAYeSq@mU|Ep;1wflYW~MV_0ChqD#AbxL5TJ@gh7_Q_ zTp(S