From 9815b108c4636d0a1ed13d0133825f8dd5316b50 Mon Sep 17 00:00:00 2001 From: roberto Date: Fri, 9 Jan 2009 17:38:39 +0000 Subject: [PATCH] Se adaptan los controlladores para que los articulos sean comunes, los almacenes tambien, los historicos de movimientos tambien, las obras e inventario de obaras es lo unico que no es comun, aunque si se veran las reservas hechas para obras indistintamente de la empresa git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@832 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- Source/Base/Base.dproj | 104 +-- Source/Cliente/FactuGES.dproj | 2 +- Source/Cliente/FactuGES.rc | 8 +- Source/Cliente/FactuGES.res | Bin 171984 -> 172156 bytes .../Controller/uAlmacenesController.pas | 9 +- .../Almacenes/Servidor/srvAlmacenes_Impl.dfm | 9 +- .../Almacenes/Servidor/srvAlmacenes_Impl.pas | 3 +- .../Controller/uArticulosController.pas | 15 +- .../uHistoricoMovimientosController.pas | Bin 7169 -> 7270 bytes .../Views/uEditorHistoricoMovimientos.dfm | 16 +- .../Views/uEditorHistoricoMovimientos.pas | Bin 7796 -> 7742 bytes .../Controller/uInventarioController.pas | 36 +- .../Views/uEditorDetalleReservas.dfm | 20 +- .../Views/uEditorDetalleReservas.pas | 2 - .../Inventario/Views/uEditorInventario.dfm | 12 - .../Inventario/Views/uEditorInventario.pas | 2 - .../Inventario/Views/uViewDetalleReservas.dfm | 2 - .../Inventario/Views/uViewDetalleReservas.pas | 5 + Source/Servidor/FactuGES_Server.RES | Bin 23200 -> 23484 bytes Source/Servidor/FactuGES_Server.dproj | 638 +++++++++--------- Source/Servidor/FactuGES_Server.rc | 10 +- 21 files changed, 436 insertions(+), 457 deletions(-) diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index 9237feb0..8fcd652f 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -45,6 +45,8 @@ Package FalseTrueFalseLibreria base de FactuGESFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 + + Microsoft Office 2000 Sample Automation Server Wrapper Components Microsoft Office XP Sample Automation Server Wrapper Components Base.dpk @@ -54,58 +56,58 @@ MainSource + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
fConfigurarConexion
TForm diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index d2fc18f0..76cfee0f 100644 --- a/Source/Cliente/FactuGES.dproj +++ b/Source/Cliente/FactuGES.dproj @@ -54,7 +54,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse1500FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.5.0.0FactuGESFactuGES1.5.0.0 +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse1610FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.6.1.0FactuGESFactuGES1.6.1.0 diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc index b6c169a7..f3abdb49 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,5,0,0 -PRODUCTVERSION 1,5,0,0 +FILEVERSION 1,6,0,0 +PRODUCTVERSION 1,6,0,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.5.0.0\0" + VALUE "FileVersion", "1.6.0.0\0" VALUE "InternalName", "FactuGES\0" VALUE "ProductName", "FactuGES\0" - VALUE "ProductVersion", "1.5.0.0\0" + VALUE "ProductVersion", "1.6.0.0\0" END END BLOCK "VarFileInfo" diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index c95276f9dad7a94ece3fe2e67dc3383723206c05..c5f7659852da97680d311952cb36acb1cbb8583f 100644 GIT binary patch delta 502 zcmY+9PfG$(6vcn@QqxIdmM#aRzmV9bO+-==LO~n1p;DnzmROrsx-jqq1hdg`>j!8X zwQSk4b-TWUVE4^?CLMTl-zBZ# zQZa1&3`=yo)|u3c!ayN8m`*)8j@%&6{6Pa1d=FJ_Ddxu(=M*D`Si<2|!I8ZujVo^7XDQ*sf4>`0y4eV#_@kS0Bco^V-k%5OnK!AaPkwJnXgB3)>c`OVJObikd5V;d< z3=GV0UI!-w0}F$K0z_^F2Ll5uf(JB>jlsYGD#ypbz>eUlGQ=}*FgQ3sBsH8E7&sX` zJRrP|5C#S=hJ*yD#wiR8+zbs3P?a1YhcYmHU}RuW0Mh^e3ji^Y0|W*P2oHT=oc?Go zlb$Xs&?6uKqwT>wkfT|kGEe~^6)@d)9+NVo&h*52O!3p-%wtkvHD%CaFqkenpUHaq Oh51Y|P`=>;CT{@z=qo$` diff --git a/Source/Modulos/Almacenes/Controller/uAlmacenesController.pas b/Source/Modulos/Almacenes/Controller/uAlmacenesController.pas index f8cc2e52..0b517884 100644 --- a/Source/Modulos/Almacenes/Controller/uAlmacenesController.pas +++ b/Source/Modulos/Almacenes/Controller/uAlmacenesController.pas @@ -113,13 +113,15 @@ end;} function TAlmacenesController.Buscar(const ID: Integer): IBizAlmacen; begin Result := (FDataModule as IDataModuleAlmacenes).GetItem(ID); - FiltrarEmpresa(Result); +//Los almacenes serán comunes para todas las empresas. +// FiltrarEmpresa(Result); end; function TAlmacenesController.BuscarTodos: IBizAlmacen; begin Result := FDataModule.GetItems; - FiltrarEmpresa(Result); +//Los almacenes serán comunes para todas las empresas. +// FiltrarEmpresa(Result); end; constructor TAlmacenesController.Create; @@ -383,7 +385,8 @@ var AAlmacen : IBizAlmacen; begin AAlmacen := FDataModule.NewItem; - FiltrarEmpresa(AAlmacen); +//Los almacenes serán comunes para todas las empresas. +// FiltrarEmpresa(AAlmacen); AAlmacen.DataTable.Active := True; AAlmacen.Insert; Result := AAlmacen; diff --git a/Source/Modulos/Almacenes/Servidor/srvAlmacenes_Impl.dfm b/Source/Modulos/Almacenes/Servidor/srvAlmacenes_Impl.dfm index 017401f9..0bc5b8bf 100644 --- a/Source/Modulos/Almacenes/Servidor/srvAlmacenes_Impl.dfm +++ b/Source/Modulos/Almacenes/Servidor/srvAlmacenes_Impl.dfm @@ -113,12 +113,7 @@ object srvAlmacenes: TsrvAlmacenes Diagrams = Diagrams Datasets = < item - Params = < - item - Name = 'ID_EMPRESA' - Value = '' - ParamType = daptInput - end> + Params = <> Statements = < item Connection = 'IBX' @@ -128,7 +123,7 @@ object srvAlmacenes: TsrvAlmacenes Name = 'IBX' SQL = 'Select ID, NOMBRE'#10'from ALMACENES'#10'where TIPO_ALMACEN = '#39'ALMACEN'#39#10 + - 'and ID_EMPRESA = :ID_EMPRESA'#10'order by NOMBRE'#10#10 + 'order by NOMBRE'#10#10 StatementType = stSQL ColumnMappings = < item diff --git a/Source/Modulos/Almacenes/Servidor/srvAlmacenes_Impl.pas b/Source/Modulos/Almacenes/Servidor/srvAlmacenes_Impl.pas index 0318a0e8..1abaf9e8 100644 --- a/Source/Modulos/Almacenes/Servidor/srvAlmacenes_Impl.pas +++ b/Source/Modulos/Almacenes/Servidor/srvAlmacenes_Impl.pas @@ -79,7 +79,8 @@ begin AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName); try - dsData := ASchema.NewDataset(AConn, 'ListaAlmacenes', ['ID_EMPRESA'], [IntToStr(IDEmpresa)]); +//Los almacenes serán comunes para todas las empresas. + dsData := ASchema.NewDataset(AConn, 'ListaAlmacenes'); //, ['ID_EMPRESA'], [IntToStr(IDEmpresa)]); except RaiseError('No existe la tabla ALMACENES'); end; diff --git a/Source/Modulos/Articulos/Controller/uArticulosController.pas b/Source/Modulos/Articulos/Controller/uArticulosController.pas index 184a92d8..1ae4c614 100644 --- a/Source/Modulos/Articulos/Controller/uArticulosController.pas +++ b/Source/Modulos/Articulos/Controller/uArticulosController.pas @@ -147,7 +147,8 @@ begin // else // Result := (FDataModule as IDataModuleArticulos).GetItem(ID, AClienteID); - FiltrarEmpresa(Result); +//Los articulos serán comunes para todas las empresas. +// FiltrarEmpresa(Result); end; function TArticulosController.BuscarInventariables: IBizArticulo; @@ -247,7 +248,8 @@ end; function TArticulosController.BuscarTodos(ACliente: Integer): IBizArticulo; begin Result := FDataModule.GetItems(txArticulo); //ACliente); - FiltrarEmpresa(Result); +//Los articulos serán comunes para todas las empresas. +// FiltrarEmpresa(Result); end; function TArticulosController.BuscarTodos(ACliente: IBizCliente): IBizArticulo; @@ -289,13 +291,15 @@ end; function TArticulosController.BuscarTodosPorProveedor: IBizArticulo; begin Result := FDataModule.GetItems(txProveedor); - FiltrarEmpresa(Result); +//Los articulos serán comunes para todas las empresas. +// FiltrarEmpresa(Result); end; function TArticulosController.BuscarTodos: IBizArticulo; begin Result := FDataModule.GetItems(txArticulo); - FiltrarEmpresa(Result); +//Los articulos serán comunes para todas las empresas. +// FiltrarEmpresa(Result); end; procedure TArticulosController.CalcularPrecioNeto(AArticulos: IBizArticulo); @@ -665,7 +669,8 @@ var AArticulo : IBizArticulo; begin AArticulo := FDataModule.NewItem; - FiltrarEmpresa(AArticulo); +//Los articulos serán comunes para todas las empresas. +// FiltrarEmpresa(AArticulo); AArticulo.DataTable.Active := True; AArticulo.Insert; Result := AArticulo; diff --git a/Source/Modulos/Historico de movimientos/Controller/uHistoricoMovimientosController.pas b/Source/Modulos/Historico de movimientos/Controller/uHistoricoMovimientosController.pas index 8a3d4dcb4be43d0328e07146665bac04f037d7a8..334961bf39cca730362ebebbd398b9e10ab6462d 100644 GIT binary patch delta 123 zcmZp)cxJI-2CtF6zE6I!LPlnBNq$jga=t=JszPplS!Ql#YF-IYqBynaVV**Aer{=A dYO#U>FPFalXx2&3Bp?0AJS#$N&HU diff --git a/Source/Modulos/Historico de movimientos/Views/uEditorHistoricoMovimientos.dfm b/Source/Modulos/Historico de movimientos/Views/uEditorHistoricoMovimientos.dfm index d1382baa..3533788a 100644 --- a/Source/Modulos/Historico de movimientos/Views/uEditorHistoricoMovimientos.dfm +++ b/Source/Modulos/Historico de movimientos/Views/uEditorHistoricoMovimientos.dfm @@ -137,7 +137,7 @@ inherited fEditorHistoricoMovimientos: TfEditorHistoricoMovimientos Width = 902 ExplicitWidth = 902 inherited tbxMain: TTBXToolbar - ExplicitWidth = 501 + ExplicitWidth = 606 end inherited tbxFiltro: TTBXToolbar ExplicitWidth = 269 @@ -240,6 +240,8 @@ inherited fEditorHistoricoMovimientos: TfEditorHistoricoMovimientos StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 383 + ExplicitWidth = 215 + Width = 215 end end inherited TBXAlignmentPanel1: TTBXAlignmentPanel @@ -310,18 +312,6 @@ inherited fEditorHistoricoMovimientos: TfEditorHistoricoMovimientos inherited actAnchoAuto: TAction ImageIndex = 27 end - object actExpandir: TAction - Category = 'Ver' - Caption = 'Expandir' - Visible = False - OnExecute = actExpandirExecute - end - object actContraer: TAction - Category = 'Ver' - Caption = 'Contraer' - Visible = False - OnExecute = actContraerExecute - end end inherited SmallImages: TPngImageList [5] PngImages = < diff --git a/Source/Modulos/Historico de movimientos/Views/uEditorHistoricoMovimientos.pas b/Source/Modulos/Historico de movimientos/Views/uEditorHistoricoMovimientos.pas index 56e562dd823537c665bf7f3240af7e20b8d2e218..96a87b4c358d4b29cd71277aa3c9d92e4d3bab18 100644 GIT binary patch delta 12 Tcmexjv(IM32IkGrnERvvDo_Q| delta 69 zcmdmI^TlSv24<7QY707^OM=am#CrlLtrekdls J`6zRx6aa6F7uEm( diff --git a/Source/Modulos/Inventario/Controller/uInventarioController.pas b/Source/Modulos/Inventario/Controller/uInventarioController.pas index fe2b9331..5eee3a06 100644 --- a/Source/Modulos/Inventario/Controller/uInventarioController.pas +++ b/Source/Modulos/Inventario/Controller/uInventarioController.pas @@ -158,6 +158,9 @@ uses uIEditorElegirArticulosAlmacen, uInventarioUtils, uIEditorDetalleReservas, schAlmacenesClient_Intf; +const + CTE_NULA = -1000; //No se utiliza ID_NULO porque en los albaranes de cliente se está asignando ID_NULO y esto ocasiona que se devuelvan tuplas + { TInventarioController } { @@ -197,19 +200,22 @@ end; function TInventarioController.Buscar(const ID_ALMACEN: Integer): IBizInventario; begin Result := (FDataModule as IDataModuleInventario).GetItems(ID_ALMACEN); - FiltrarEmpresa(Result); +//Los inventarios serán comunes +// FiltrarEmpresa(Result); end; function TInventarioController.BuscarDetalleReservas: IBizDetalleReservas; begin Result := FDataModule.GetDetalleReservas; - FiltrarEmpresa(Result); +//Los inventarios serán comunes +// FiltrarEmpresa(Result); end; function TInventarioController.BuscarTodos: IBizInventario; begin Result := FDataModule.GetItems; - FiltrarEmpresa(Result); +//Los inventarios serán comunes +// FiltrarEmpresa(Result); end; function TInventarioController.BuscarTodosAlmacenes: IBizInventario; @@ -444,7 +450,7 @@ function TInventarioController.ExtraerSeleccionados(AArticulos: IBizInventario): var ASeleccionados : IBizInventario; begin - ASeleccionados := (Self.Buscar(ID_NULO) as IBizInventario); + ASeleccionados := (Self.Buscar(CTE_NULA) as IBizInventario); CopyDataTableDA5(AArticulos.DataTable, ASeleccionados.DataTable, True); Result := ASeleccionados; end; @@ -584,7 +590,7 @@ end; function TInventarioController._Vacio: IBizInventario; begin - Result := Buscar(ID_NULO); + Result := Buscar(CTE_NULA); end; { @@ -666,7 +672,7 @@ begin Exit; end; - AArticulos := Buscar(ID_NULO); + AArticulos := Buscar(CTE_NULA); if not AArticulos.DataTable.Active then AArticulos.DataTable.Active := True; @@ -707,7 +713,7 @@ var AArticulos: IBizInventario; begin try - AArticulos := Buscar(ID_NULO); + AArticulos := Buscar(CTE_NULA); //Se queda en la clase de negocio para así todos y cada uno de los artículos que //se agreguen se asigne automáticamente el codigo de almacen destino en OnNewRecord @@ -723,7 +729,7 @@ function TInventarioController.EntradaPedido(AInventario: IBizInventario; APedid var AArticulos: IBizInventario; begin - AArticulos := Buscar(ID_NULO); + AArticulos := Buscar(CTE_NULA); //Se queda en la clase de negocio para así todos y cada uno de los artículos que //se agreguen se asigne automáticamente el codigo de almacen destino en OnNewRecord @@ -763,7 +769,7 @@ begin if (CodigoAlmacenOrigen <> CodigoAlmacenDestino) then begin try - AArticulos := Buscar(ID_NULO); + AArticulos := Buscar(CTE_NULA); //Se queda en la clase de negocio para así todos y cada uno de los artículos que //se agreguen se asigne automáticamente el codigo de almacen destino en OnNewRecord @@ -800,7 +806,7 @@ var begin try Result := False; - AArticulos := Buscar(ID_NULO); + AArticulos := Buscar(CTE_NULA); //Se queda en la clase de negocio para así todos y cada uno de los artículos que //se agreguen se asigne automáticamente el codigo de almacen destino en OnNewRecord @@ -820,7 +826,7 @@ var AArticulos: IBizInventario; begin try - AArticulos := Buscar(ID_NULO); + AArticulos := Buscar(CTE_NULA); //Se queda en la clase de negocio para así todos y cada uno de los artículos que //se agreguen se asigne automáticamente el codigo de almacen destino en OnNewRecord @@ -901,7 +907,7 @@ begin if (CodigoAlmacenOrigen <> CodigoAlmacenDestino) then begin try - AArticulos := Buscar(ID_NULO); + AArticulos := Buscar(CTE_NULA); //Se queda en la clase de negocio para así todos y cada uno de los artículos que //se agreguen se asigne automáticamente el codigo de almacen destino en OnNewRecord @@ -927,7 +933,7 @@ begin while not eof do begin //Preparamos el articulo a trasladar con la cantidad correspondiente - AArticulo := Buscar(ID_NULO); + AArticulo := Buscar(CTE_NULA); AArticulo.DataTable.Active := True; // DesconectarTabla(AArticulo.DataTable); AArticulo.Edit; @@ -1025,7 +1031,7 @@ var i: Integer; begin - AArticulosUnitarios := Buscar(ID_NULO); + AArticulosUnitarios := Buscar(CTE_NULA); if not AArticulosUnitarios.DataTable.Active then AArticulosUnitarios.DataTable.Active := True; @@ -1195,7 +1201,7 @@ begin //de entrada en el almacén destino if (AArticulos.TipoMovimiento = tTraslado) then begin - AArticulosTraslado := Buscar(ID_NULO); + AArticulosTraslado := Buscar(CTE_NULA); //Deshabilitamos el calculo de ID (RECID) para poderlo usar para la inserción de movimientos AArticulosTraslado.DataTable.OnCalcFields := DeshabilitarOnCalcFields; AArticulosTraslado.DataTable.Active := True; diff --git a/Source/Modulos/Inventario/Views/uEditorDetalleReservas.dfm b/Source/Modulos/Inventario/Views/uEditorDetalleReservas.dfm index c92ee603..2fbf8365 100644 --- a/Source/Modulos/Inventario/Views/uEditorDetalleReservas.dfm +++ b/Source/Modulos/Inventario/Views/uEditorDetalleReservas.dfm @@ -42,7 +42,7 @@ inherited fEditorDetalleReservas: TfEditorDetalleReservas Width = 669 ExplicitWidth = 669 inherited tbxMain: TTBXToolbar - ExplicitWidth = 501 + ExplicitWidth = 606 object TBXSeparatorItem84: TTBXSeparatorItem [6] end object TBXItem54: TTBXItem [7] @@ -124,7 +124,7 @@ inherited fEditorDetalleReservas: TfEditorDetalleReservas Width = 669 Height = 250 ExplicitWidth = 669 - ExplicitHeight = 291 + ExplicitHeight = 250 inherited cxGridView: TcxGridDBTableView DataController.Summary.FooterSummaryItems = < item @@ -174,6 +174,8 @@ inherited fEditorDetalleReservas: TfEditorDetalleReservas StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 273 + Width = 273 end inherited edtFechaIniFiltro: TcxDateEdit Style.LookAndFeel.SkinName = '' @@ -221,9 +223,7 @@ inherited fEditorDetalleReservas: TfEditorDetalleReservas end inherited pnlAlmacenes: TPanel Width = 669 - inherited cxListaAlmacenesObras: TcxComboBox - ExplicitWidth = 510 - end + ExplicitWidth = 669 end inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinterLink: TdxGridReportLink @@ -272,16 +272,6 @@ inherited fEditorDetalleReservas: TfEditorDetalleReservas inherited actAnchoAuto: TAction ImageIndex = 27 end - object actExpandir: TAction - Category = 'Ver' - Caption = 'Expandir' - Visible = False - end - object actContraer: TAction - Category = 'Ver' - Caption = 'Contraer' - Visible = False - end object actCancelarReserva: TAction Category = 'Reservas' Caption = 'Cancelar reserva' diff --git a/Source/Modulos/Inventario/Views/uEditorDetalleReservas.pas b/Source/Modulos/Inventario/Views/uEditorDetalleReservas.pas index 54854672..1a5c49aa 100644 --- a/Source/Modulos/Inventario/Views/uEditorDetalleReservas.pas +++ b/Source/Modulos/Inventario/Views/uEditorDetalleReservas.pas @@ -18,8 +18,6 @@ type TfEditorDetalleReservas = class(TfEditorGridBase, IEditorDetalleReservas) TBXSeparatorItem17: TTBXSeparatorItem; - actExpandir: TAction; - actContraer: TAction; frViewDetalleReservas1: TfrViewDetalleReservas; actCancelarReserva: TAction; actTrasladarReservados: TAction; diff --git a/Source/Modulos/Inventario/Views/uEditorInventario.dfm b/Source/Modulos/Inventario/Views/uEditorInventario.dfm index 2d732709..02edd72d 100644 --- a/Source/Modulos/Inventario/Views/uEditorInventario.dfm +++ b/Source/Modulos/Inventario/Views/uEditorInventario.dfm @@ -352,18 +352,6 @@ inherited fEditorInventario: TfEditorInventario OnExecute = actLiberarExecute OnUpdate = actLiberarUpdate end - object actExpandir: TAction - Category = 'Ver' - Caption = 'Expandir' - Visible = False - OnExecute = actExpandirExecute - end - object actContraer: TAction - Category = 'Ver' - Caption = 'Contraer' - Visible = False - OnExecute = actContraerExecute - end object actReservados: TAction Category = 'Logistica' Caption = 'Ver reservados' diff --git a/Source/Modulos/Inventario/Views/uEditorInventario.pas b/Source/Modulos/Inventario/Views/uEditorInventario.pas index cee74bf2..b90ab375 100644 --- a/Source/Modulos/Inventario/Views/uEditorInventario.pas +++ b/Source/Modulos/Inventario/Views/uEditorInventario.pas @@ -26,8 +26,6 @@ type rasladar1: TMenuItem; Liberar1: TMenuItem; Reservar1: TMenuItem; - actExpandir: TAction; - actContraer: TAction; frViewInventario1: TfrViewInventario; actReservados: TAction; TBXItem38: TTBXItem; diff --git a/Source/Modulos/Inventario/Views/uViewDetalleReservas.dfm b/Source/Modulos/Inventario/Views/uViewDetalleReservas.dfm index 7e4ef690..c5a45063 100644 --- a/Source/Modulos/Inventario/Views/uViewDetalleReservas.dfm +++ b/Source/Modulos/Inventario/Views/uViewDetalleReservas.dfm @@ -168,8 +168,6 @@ inherited frViewDetalleReservas: TfrViewDetalleReservas StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 383 - ExplicitWidth = 215 - Width = 215 end end end diff --git a/Source/Modulos/Inventario/Views/uViewDetalleReservas.pas b/Source/Modulos/Inventario/Views/uViewDetalleReservas.pas index e030c484..9bc4c31f 100644 --- a/Source/Modulos/Inventario/Views/uViewDetalleReservas.pas +++ b/Source/Modulos/Inventario/Views/uViewDetalleReservas.pas @@ -173,6 +173,11 @@ end; function TfrViewDetalleReservas.DarIDAlmacenObraSeleccionada: Variant; begin + Result := Null; + + if VarIsNull(cxListaAlmacenesObras.EditValue) then + Exit; + //INV_ALMACENES if Assigned(FAlmacenes) then Result := FAlmacenes.Values[cxListaAlmacenesObras.EditValue] diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index fceb465f48a0ce8d9aeaee5f19257f2a25ba5699..86958b84851607d32f0d10db15fd727daeb90f63 100644 GIT binary patch delta 542 zcmY*V%}T>S7@WkmR1wWZZC$?mqbA8dwiXTI6_^89MOzgaI?>%wuy#?dbeB{&XXp^UJYqwZXU1;B>u zYOY%bMoj0T%ZUOS4Z}?UMbnX+13iHcTYj}FHsQDBc_ljM>K?9}1bjp>rd3d}r7x=X zwXZN1I>)U15i?VFjHuVjf5{?TF1;%2er>dg MH7uhENa1h)0Y!gH+yDRo delta 283 zcmdn9opHfd#tkJASq1`JJPdHa$iT)RAi%)D$RNRx!3v_`JQfB9CI$rsh};Se1_ovX z52%BM!N342$H&0Hir}d-0L^4zSi(5@UW6PIkop&)r^gC383bUoJ(veFg#{`D6#!B! zjFY1xm6#qdOsd&3K%jOau`w> rTo@7=N`N#7WHFQiS!F<6%%H=d05rv7vTL+DyBUKOgCWqo(r9-85RoRA diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index 2f8a826a..824967ed 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -1,323 +1,323 @@ - + - - {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} - FactuGES_Server.dpr - Debug - AnyCPU - DCC32 - ..\..\Output\Debug\Servidor\FactuGES_Server.exe - vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100 - - - 7.0 - False - False - 0 - 3 - ..\..\Output\Release\Servidor - RELEASE - - - 7.0 - 3 - ..\..\Output\Debug\Servidor - DEBUG; - True - True - True - $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 - $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 - $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 - $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 - - - Delphi.Personality - - - FalseTrueFalse/standaloneTrueFalse1500FalseFalseFalseFalseFalse308212521.5.0.01.5.0.0miércoles, 07 de enero de 2009 10:01FactuGES_Server.dpr - - - - - MainSource - - - - - -
srvEmpresas
- TDARemoteService - - -
srvProvinciasPoblaciones_Impl
- TDataModule - - - - -
srvUsuarios
- TDataAbstractService - - - - - - - - -
RptAlbaranesCliente
- TDataModule - - -
RptWordAlbaranCliente
- TDataModule - - -
srvAlbaranesCliente
- TDataAbstractService - - - - - -
srvAlbaranesProveedor
- TDataAbstractService - - - - -
srvAlmacenes
- TDARemoteService - - - - - -
srvArticulos
- TDARemoteService - - - - - - - - -
RptEtiquetasContacto
- TDataModule - - -
RptFichasEmpleado
- TDataModule - - -
srvContactos
- TDARemoteService - - - - -
srvFabricantes
- TDataAbstractService - - - - - -
RptFacturasCliente
- TDataModule - - -
RptWordFacturaCliente
- TDataModule - - -
srvFacturasCliente
- TDataAbstractService - - - - - -
RptFacturasProveedor
- TDataModule - - -
srvFacturasProveedor
- TDataAbstractService - - - - -
srvFamilias
- TDataAbstractService - - - - -
srvFormasPago
- TDataAbstractService - - -
srvGestorDocumentos
- TDataAbstractService - - -
srvGestorInformes
- TDataAbstractService - - - - -
srvHistoricoMovimientos
- TDataAbstractService - - - - -
srvInventario
- TDataAbstractService - - - - - -
srvObras
- TDataAbstractService - - - - - -
RptPedidosProveedor
- TDataModule - - -
RptWordPedidoProveedor
- TDataModule - - -
srvPedidosProveedor
- TDataAbstractService - - - - - -
RptPresupuestosCliente
- TDataModule - - -
RptWordCertificadoTrabajo
- TDataModule - - -
RptWordPresupuestoCliente
- TDataModule - - -
srvPresupuestosCliente
- TDataAbstractService - - - - -
RptRecibosCliente
- TDataModule - - -
srvRecibosCliente
- TDataAbstractService - - - - -
RptRecibosProveedor
- TDataModule - - -
srvRecibosProveedor
- TDataAbstractService - - - - -
srvReferencias
- TDataAbstractService - - - - - -
srvRemesasCliente
- TDataAbstractService - - - - - -
srvRemesasProveedor
- TDataAbstractService - - - - -
srvTiposIVA
- TDataAbstractService - - - - -
srvUnidadesMedida
- TDataAbstractService - - - - -
srvConfiguracion
- TDataAbstractService - - -
frConexionBD
- TFrame - - -
frConfGeneral
- TFrame - - -
fConfiguracion
- TForm - - -
FrameConfiguracion
- TFrame - - -
srvLogin
- TDARemoteService - - -
fAcercaDe
- - -
dmServer
- TDataModule - - -
fServerForm
- - - - - - - - - - - + + {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} + FactuGES_Server.dpr + Debug + AnyCPU + DCC32 + ..\..\Output\Debug\Servidor\FactuGES_Server.exe + vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100 + + + 7.0 + False + False + 0 + 3 + ..\..\Output\Release\Servidor + RELEASE + + + 7.0 + 3 + ..\..\Output\Debug\Servidor + DEBUG; + True + True + True + $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 + $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 + $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 + $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 + + + Delphi.Personality + + +FalseTrueFalse/standaloneTrueFalse1610FalseFalseFalseFalseFalse308212521.6.1.01.6.1.0viernes, 09 de enero de 2009 17:27FactuGES_Server.dpr + + + + + MainSource + + + + + +
srvEmpresas
+ TDARemoteService + + +
srvProvinciasPoblaciones_Impl
+ TDataModule + + + + +
srvUsuarios
+ TDataAbstractService + + + + + + + + +
RptAlbaranesCliente
+ TDataModule + + +
RptWordAlbaranCliente
+ TDataModule + + +
srvAlbaranesCliente
+ TDataAbstractService + + + + + +
srvAlbaranesProveedor
+ TDataAbstractService + + + + +
srvAlmacenes
+ TDARemoteService + + + + + +
srvArticulos
+ TDARemoteService + + + + + + + + +
RptEtiquetasContacto
+ TDataModule + + +
RptFichasEmpleado
+ TDataModule + + +
srvContactos
+ TDARemoteService + + + + +
srvFabricantes
+ TDataAbstractService + + + + + +
RptFacturasCliente
+ TDataModule + + +
RptWordFacturaCliente
+ TDataModule + + +
srvFacturasCliente
+ TDataAbstractService + + + + + +
RptFacturasProveedor
+ TDataModule + + +
srvFacturasProveedor
+ TDataAbstractService + + + + +
srvFamilias
+ TDataAbstractService + + + + +
srvFormasPago
+ TDataAbstractService + + +
srvGestorDocumentos
+ TDataAbstractService + + +
srvGestorInformes
+ TDataAbstractService + + + + +
srvHistoricoMovimientos
+ TDataAbstractService + + + + +
srvInventario
+ TDataAbstractService + + + + + +
srvObras
+ TDataAbstractService + + + + + +
RptPedidosProveedor
+ TDataModule + + +
RptWordPedidoProveedor
+ TDataModule + + +
srvPedidosProveedor
+ TDataAbstractService + + + + + +
RptPresupuestosCliente
+ TDataModule + + +
RptWordCertificadoTrabajo
+ TDataModule + + +
RptWordPresupuestoCliente
+ TDataModule + + +
srvPresupuestosCliente
+ TDataAbstractService + + + + +
RptRecibosCliente
+ TDataModule + + +
srvRecibosCliente
+ TDataAbstractService + + + + +
RptRecibosProveedor
+ TDataModule + + +
srvRecibosProveedor
+ TDataAbstractService + + + + +
srvReferencias
+ TDataAbstractService + + + + + +
srvRemesasCliente
+ TDataAbstractService + + + + + +
srvRemesasProveedor
+ TDataAbstractService + + + + +
srvTiposIVA
+ TDataAbstractService + + + + +
srvUnidadesMedida
+ TDataAbstractService + + + + +
srvConfiguracion
+ TDataAbstractService + + +
frConexionBD
+ TFrame + + +
frConfGeneral
+ TFrame + + +
fConfiguracion
+ TForm + + +
FrameConfiguracion
+ TFrame + + +
srvLogin
+ TDARemoteService + + +
fAcercaDe
+ + +
dmServer
+ TDataModule + + +
fServerForm
+ + + + + + + + + + +