From 56b18d02d7122c7de66552e0bef4ebecb107feba Mon Sep 17 00:00:00 2001 From: david Date: Thu, 9 Jul 2009 08:24:19 +0000 Subject: [PATCH] Repaso a mensajes de warnings y hints git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@959 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- Source/Base/Base.dproj | 102 +++++++++--------- Source/Base/Base.res | Bin 384 -> 4748 bytes .../Reports/uRptAlbaranesCliente_Server.dfm | 20 ++-- .../Reports/uRptAlbaranesCliente_Server.pas | 1 + .../Reports/uRptWordAlbaranCliente.pas | 8 +- .../Servidor/srvAlbaranesCliente_Impl.pas | 1 + .../Reports/uRptWordAlbaranProveedor.pas | 8 +- .../Reports/uRptWordFacturaCliente.pas | 23 ++-- .../Servidor/srvGestorDocumentos_Impl.pas | 1 + .../Reports/uRptWordPedidoProveedor.pas | 8 +- .../uRptWordCertificadoTrabajo_Server.dfm | 6 -- .../uRptWordCertificadoTrabajo_Server.pas | 4 +- Source/Servidor/FactuGES_Server.dproj | 4 + 13 files changed, 94 insertions(+), 92 deletions(-) diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index f4910a29..c93edcee 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -54,58 +54,58 @@ MainSource + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + +
fConfigurarConexion
TForm 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/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm index 6f6771fe..227cc64f 100644 --- a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm +++ b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm @@ -467,7 +467,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente Top = 16 end object frxReport: TfrxReport - Version = '4.3' + Version = '4.7.71' DotMatrixReport = False EngineOptions.DoublePass = True IniFile = '\Software\Fast Reports' @@ -564,6 +564,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente UserName = 'frxDBCabecera' CloseDataSource = False DataSource = DADSCabecera + BCDToCurrency = False Left = 264 Top = 16 end @@ -571,6 +572,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente UserName = 'frxDBDetalles' CloseDataSource = False DataSource = DADSDetalles + BCDToCurrency = False Left = 344 Top = 16 end @@ -876,8 +878,6 @@ object RptAlbaranesCliente: TRptAlbaranesCliente RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = DABin2DataStreamer1 - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'Informe_Cabecera' IndexDefs = <> Left = 264 @@ -945,8 +945,6 @@ object RptAlbaranesCliente: TRptAlbaranesCliente LocalSchema = schReport LocalDataStreamer = DABin2DataStreamer1 DetailFields = 'ID_ALBARAN' - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'Informe_Detalles' IndexDefs = <> Left = 344 @@ -956,13 +954,21 @@ object RptAlbaranesCliente: TRptAlbaranesCliente ShowDialog = False UseFileCache = True ShowProgress = False + OverwritePrompt = False PrintOptimized = True Outline = False + Background = False + HTMLTags = True Author = 'FactuGES' Subject = 'FactuGES' - Background = False Creator = 'FactuGES' - HTMLTags = True + ProtectionFlags = [ePrint, eModify, eCopy, eAnnot] + HideToolbar = False + HideMenubar = False + HideWindowUI = False + FitWindow = False + CenterWindow = False + PrintScaling = False Left = 344 Top = 304 end diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas index 96197419..4d1a9d9f 100644 --- a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas +++ b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas @@ -176,6 +176,7 @@ function TRptAlbaranesCliente.GenerarEtiquetas(const AID: Integer; withRefClient dsDetail: IDADataset; AStream: TMemoryStream;} begin + Result := NIL; { AStream := TMemoryStream.Create; Result := Binary.Create; diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptWordAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Reports/uRptWordAlbaranCliente.pas index 68a40cec..23fabbb0 100644 --- a/Source/Modulos/Albaranes de cliente/Reports/uRptWordAlbaranCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Reports/uRptWordAlbaranCliente.pas @@ -100,10 +100,10 @@ begin end; procedure TRptWordAlbaranCliente.RellenarDatosAlbaran; -var - FicheroTemporal : String; - LinkToFile, SaveWithDocument, _Range : OleVariant; - Imagen : InlineShape; +//var +// FicheroTemporal : String; +// LinkToFile, SaveWithDocument, _Range : OleVariant; +// Imagen : InlineShape; begin diff --git a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas index b5c0b8bc..56044c18 100644 --- a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas +++ b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas @@ -95,6 +95,7 @@ function TsrvAlbaranesCliente.GenerarInformeEtiquetas(const ID: Integer; const w //var // AReportGenerator : TRptAlbaranesCliente; begin + Result := NIL; { AReportGenerator := TRptAlbaranesCliente.Create(nil); try diff --git a/Source/Modulos/Albaranes de proveedor/Reports/uRptWordAlbaranProveedor.pas b/Source/Modulos/Albaranes de proveedor/Reports/uRptWordAlbaranProveedor.pas index fd7fbcac..f67f1488 100644 --- a/Source/Modulos/Albaranes de proveedor/Reports/uRptWordAlbaranProveedor.pas +++ b/Source/Modulos/Albaranes de proveedor/Reports/uRptWordAlbaranProveedor.pas @@ -82,8 +82,6 @@ begin end; function TRptWordAlbaranProveedor.Generar : Boolean; -var - Aux : OleVariant; begin FWordApp := TWordApp.Create (False, False); with FWordApp do @@ -171,9 +169,9 @@ end; function TRptWordAlbaranProveedor.RellenarDatosAlbaran : Boolean; var - DireccionEntrega, FicheroTemporal : String; - LinkToFile, SaveWithDocument, _Range : OleVariant; - Imagen : InlineShape; + DireccionEntrega : String; +// LinkToFile, SaveWithDocument, _Range : OleVariant; +// Imagen : InlineShape; begin diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas index 1d023dae..a1e57c44 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas +++ b/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas @@ -23,12 +23,12 @@ type FPlantilla : string; FWordApp : TWordApp; FDocumento : TWordDoc; - FNumCapitulos : Integer; +// FNumCapitulos : Integer; FCodigoFactura : string; FNombreFichero : String; FVerSello : Boolean; - function DarNumCapitulos : Integer; - procedure InsertarConceptos(Tabla : Table); +// function DarNumCapitulos : Integer; +// procedure InsertarConceptos(Tabla : Table); function Generar : Boolean; function RellenarCabecera : boolean; virtual; function RellenarInforme : boolean; virtual; @@ -58,7 +58,7 @@ begin FDocumento := NIL; end; -function TRptWordFacturaCliente.DarNumCapitulos: Integer; +{function TRptWordFacturaCliente.DarNumCapitulos: Integer; var AuxNumCapitulos : integer; begin @@ -72,7 +72,7 @@ begin end; tbl_Cabecera.First; Result := AuxNumCapitulos; -end; +end;} destructor TRptWordFacturaCliente.Destroy; begin @@ -104,8 +104,6 @@ begin end; function TRptWordFacturaCliente.Generar : Boolean; -var - Aux : OleVariant; begin FWordApp := TWordApp.Create (False, False); with FWordApp do @@ -131,7 +129,7 @@ begin end; end; -procedure TRptWordFacturaCliente.InsertarConceptos(Tabla : Table); +{procedure TRptWordFacturaCliente.InsertarConceptos(Tabla : Table); var numRows, numCols, mergeSplit, shiftCells : OleVariant; iContador : Integer; @@ -140,6 +138,7 @@ var AIndice: Integer; AText : String; begin + TotalConceptos := 0; numRows := 2; numCols := 1; mergeSplit := False; @@ -186,15 +185,15 @@ begin Cell(iContador, 1).Range.Text := 'Total: ' + FormatFloat(DISPLAY_EUROS2, TotalConceptos); AutoFitBehavior(wdAutoFitWindow); end; -end; +end;} function TRptWordFacturaCliente.RellenarCabecera: boolean; var NombreFichero, Texto, - FicheroTemporal : String; - LinkToFile, SaveWithDocument, _Range : OleVariant; - Imagen : InlineShape; +// FicheroTemporal : String; +// LinkToFile, SaveWithDocument, _Range : OleVariant; +// Imagen : InlineShape; _ShiftCells : OleVariant; ImporteAux : Double; Cadena : String; diff --git a/Source/Modulos/Gestion de documentos/Servidor/srvGestorDocumentos_Impl.pas b/Source/Modulos/Gestion de documentos/Servidor/srvGestorDocumentos_Impl.pas index 56d18c84..823358ab 100644 --- a/Source/Modulos/Gestion de documentos/Servidor/srvGestorDocumentos_Impl.pas +++ b/Source/Modulos/Gestion de documentos/Servidor/srvGestorDocumentos_Impl.pas @@ -75,6 +75,7 @@ var i: Integer; begin + Result := NIL; Ruta := DarRutaDocumentos; try case Almacen of diff --git a/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.pas b/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.pas index b384f0da..c71ea824 100644 --- a/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.pas +++ b/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.pas @@ -86,8 +86,6 @@ begin end; function TRptWordPedidoProveedor.Generar : Boolean; -var - Aux : OleVariant; begin FWordApp := TWordApp.Create (False, False); with FWordApp do @@ -178,9 +176,9 @@ end; function TRptWordPedidoProveedor.RellenarDatosPedido : Boolean; var - DireccionEntrega, FicheroTemporal : String; - LinkToFile, SaveWithDocument, _Range : OleVariant; - Imagen : InlineShape; + DireccionEntrega : String; +// LinkToFile, SaveWithDocument, _Range : OleVariant; +// Imagen : InlineShape; begin diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordCertificadoTrabajo_Server.dfm b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordCertificadoTrabajo_Server.dfm index 722dec99..39a2434f 100644 --- a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordCertificadoTrabajo_Server.dfm +++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordCertificadoTrabajo_Server.dfm @@ -485,8 +485,6 @@ object RptWordCertificadoTrabajo: TRptWordCertificadoTrabajo RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = DABin2DataStreamer - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'Informe_Cabecera' IndexDefs = <> Left = 168 @@ -540,8 +538,6 @@ object RptWordCertificadoTrabajo: TRptWordCertificadoTrabajo RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = DABin2DataStreamer - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'Informe_Capitulos' IndexDefs = <> Left = 264 @@ -559,8 +555,6 @@ object RptWordCertificadoTrabajo: TRptWordCertificadoTrabajo LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'Empresa' IndexDefs = <> Left = 168 diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordCertificadoTrabajo_Server.pas b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordCertificadoTrabajo_Server.pas index e938cad3..0141b52e 100644 --- a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordCertificadoTrabajo_Server.pas +++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordCertificadoTrabajo_Server.pas @@ -26,8 +26,8 @@ type private FConnection: IDAConnection; FImportes : Boolean; - FDesBonificacion : Variant; - FImpBonificacion : Double; +// FDesBonificacion : Variant; +// FImpBonificacion : Double; FPlantilla : string; FWordApp : TWordApp; FDocumento : TWordDoc; diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index c5fe7cc8..80060c14 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -36,6 +36,10 @@ FalseTrueFalse/standaloneTrueFalse1760FalseFalseFalseFalseFalse308212521.7.6.01.7.6.0martes, 05 de mayo de 2009 16:47 + + + + ExpressPrinting System by Developer Express Inc. FactuGES_Server.dpr