diff --git a/Build/BuildRoberto.fbl5 b/Build/BuildRoberto.fbl5 index cb01c6a5..172a9a85 100644 Binary files a/Build/BuildRoberto.fbl5 and b/Build/BuildRoberto.fbl5 differ diff --git a/Database/FACTUGES.FDB b/Database/FACTUGES.FDB index a5c09d3b..ed0af68d 100644 Binary files a/Database/FACTUGES.FDB and b/Database/FACTUGES.FDB differ diff --git a/Source/Modulos/Inventario/Controller/View/uIEditorEntradaSalidaArticulos.pas b/Source/Modulos/Inventario/Controller/View/uIEditorEntradaSalidaArticulos.pas index 3d3ec4ac..7432cc42 100644 --- a/Source/Modulos/Inventario/Controller/View/uIEditorEntradaSalidaArticulos.pas +++ b/Source/Modulos/Inventario/Controller/View/uIEditorEntradaSalidaArticulos.pas @@ -3,7 +3,7 @@ unit uIEditorEntradaSalidaArticulos; interface uses - uEditorDBItem, uBizInventario, uInventarioController; + uEditorDBItem, uBizInventario, uInventarioController, uBizPedidosProveedor; type IEditorEntradaSalidaArticulos = interface(IEditorDBItem) @@ -20,6 +20,10 @@ type procedure SetController (const Value : IInventarioController); property Controller : IInventarioController read GetController write SetController; + function GetPedidoProveedor: IBizPedidoProveedor; + procedure SetPedidoProveedor(const Value: IBizPedidoProveedor); + property PedidoProveedor: IBizPedidoProveedor read GetPedidoProveedor write SetPedidoProveedor; + function getResultadoModalOK: Boolean; property ResultadoModalOK: Boolean read getResultadoModalOK; end; diff --git a/Source/Modulos/Inventario/Controller/uInventarioController.pas b/Source/Modulos/Inventario/Controller/uInventarioController.pas index 3bca067b..b8f0ff24 100644 --- a/Source/Modulos/Inventario/Controller/uInventarioController.pas +++ b/Source/Modulos/Inventario/Controller/uInventarioController.pas @@ -16,26 +16,24 @@ type function Eliminar(AInventario : IBizInventario; Todos: Boolean; ApplyUpdates: Boolean): Boolean; function Trasladar(AInventario : IBizInventario; Todos: Boolean): Boolean; - procedure RecibirArticulos(Const APedido: IBizPedidoProveedor; Const CodigoAlmacenDes: Integer); overload; - procedure RecibirPedidos(Const CodigoAlmacenDes: Integer); +// procedure RecibirArticulos(Const APedido: IBizPedidoProveedor; Const CodigoAlmacenDes: Integer); overload; +// procedure RecibirPedidos(Const CodigoAlmacenDes: Integer); procedure Reservar(AInventario : IBizInventario); function Liberar(AInventario : IBizInventario): Boolean; procedure VerTodos(AInventario: IBizInventario); - - function BuscarTodos: IBizInventario; function Buscar(const ID_ALMACEN: Integer): IBizInventario; function ExtraerSeleccionados(AArticulos: IBizInventario) : IBizInventario; procedure Anadir(AArticulos, AInventario : IBizInventario); - function Ver(AArticulos: IBizInventario; AInventario : IBizInventario): Boolean; + function Ver(AArticulos: IBizInventario; AInventario : IBizInventario; APedido: IBizPedidoProveedor = Nil): Boolean; function Guardar(AArticulos : IBizInventario; const FechaMovimiento: TDateTime; const CausaMovimiento: String): Boolean; procedure EntradaArticulosLibre(AInventario: IBizInventario; Const CodigoAlmacenDestino: Integer); procedure SalidaArticulosLibre(AInventario: IBizInventario; Const CodigoAlmacenOrigen: Integer); procedure TrasladarArticulosLibre(AInventario: IBizInventario; Const CodigoAlmacenOrigen: Integer; Const CodigoAlmacenDestino: Integer); - function EntradaPedido(AInventario: IBizInventario; Const CodigoAlmacenDestino: Integer; ADetalles: IDAStronglyTypedDataTable; var ADetallesFinal: IBizInventario): Boolean; + function EntradaPedido(AInventario: IBizInventario; APedido: IBizPedidoProveedor; ADetalles: IDAStronglyTypedDataTable; var ADetallesFinal: IBizInventario): Boolean; function SalidaAlbaran(AInventario: IBizInventario; Const CodigoAlmacenOrigen: Integer; ADetalles: IDAStronglyTypedDataTable): Boolean; function GetAlmacenesController: IAlmacenesController; @@ -61,8 +59,7 @@ type function Reservar(AInventario : IBizInventario; Todos: Boolean; Const APedido: IBizPedidoCliente): Boolean; overload; function Liberar(AInventario : IBizInventario; Todos: Boolean): Boolean; overload; - - function EntradaSalidaArticulos(AArticulos, AInventario : IBizInventario): Boolean; overload; + function EntradaSalidaArticulos(AArticulos, AInventario : IBizInventario; APedido: IBizPedidoProveedor = Nil): Boolean; overload; procedure Copiar(AArticulos: IBizInventario; ADetalles: IDAStronglyTypedDataTable; AInventario: IBizInventario); overload; function GuardarMovimientos(AArticulos : IBizInventario; const FechaMovimiento: TDateTime; const CausaMovimiento: String): Boolean; @@ -94,9 +91,9 @@ type function Trasladar(AInventario : IBizInventario; Todos: Boolean): Boolean; - procedure RecibirArticulos(Const APedido: IBizPedidoProveedor; Const CodigoAlmacenDes: Integer); overload; +// procedure RecibirArticulos(Const APedido: IBizPedidoProveedor; Const CodigoAlmacenDes: Integer); overload; - procedure RecibirPedidos(Const CodigoAlmacenDes: Integer); +// procedure RecibirPedidos(Const CodigoAlmacenDes: Integer); function Buscar(const ID_ALMACEN: Integer): IBizInventario; function BuscarTodos: IBizInventario; @@ -109,16 +106,15 @@ type procedure EntradaArticulosLibre(AInventario: IBizInventario; Const CodigoAlmacenDestino: Integer); procedure SalidaArticulosLibre(AInventario: IBizInventario; Const CodigoAlmacenOrigen: Integer); procedure TrasladarArticulosLibre(AInventario: IBizInventario; Const CodigoAlmacenOrigen: Integer; Const CodigoAlmacenDestino: Integer); - function EntradaPedido(AInventario: IBizInventario; Const CodigoAlmacenDestino: Integer; ADetalles: IDAStronglyTypedDataTable; var ADetallesFinal: IBizInventario): Boolean; + function EntradaPedido(AInventario: IBizInventario; APedido: IBizPedidoProveedor; ADetalles: IDAStronglyTypedDataTable; var ADetallesFinal: IBizInventario): Boolean; function SalidaAlbaran(AInventario: IBizInventario; Const CodigoAlmacenOrigen: Integer; ADetalles: IDAStronglyTypedDataTable): Boolean; - function Ver(AArticulos: IBizInventario; AInventario : IBizInventario): Boolean; + function Ver(AArticulos: IBizInventario; AInventario : IBizInventario; APedido: IBizPedidoProveedor = Nil): Boolean; function Guardar(AArticulos : IBizInventario; const FechaMovimiento: TDateTime; const CausaMovimiento: String): Boolean; function Liberar(AInventario : IBizInventario): Boolean; overload; procedure Reservar(AInventario : IBizInventario); overload; - procedure VerTodos(AInventario: IBizInventario); @@ -411,7 +407,7 @@ begin end; end; -function TInventarioController.Ver(AArticulos: IBizInventario; AInventario: IBizInventario): Boolean; +function TInventarioController.Ver(AArticulos: IBizInventario; AInventario: IBizInventario; APedido: IBizPedidoProveedor = Nil): Boolean; var AEditor : IEditorEntradaSalidaArticulos; begin @@ -425,6 +421,8 @@ begin Controller := Self; //OJO ORDEN MUY IMPORTANTE Articulos := AArticulos; Inventario := AInventario; + if Assigned(APedido) then + PedidoProveedor := APedido; end; finally HideHourglassCursor; @@ -509,7 +507,7 @@ begin end; } -function TInventarioController.EntradaSalidaArticulos(AArticulos, AInventario : IBizInventario): Boolean; +function TInventarioController.EntradaSalidaArticulos(AArticulos, AInventario : IBizInventario; APedido: IBizPedidoProveedor = Nil): Boolean; begin Result := False; if not Assigned(AArticulos) then @@ -518,15 +516,15 @@ begin if not AArticulos.DataTable.Active then AArticulos.DataTable.Active := True; - Result := Ver(AArticulos, AInventario); + Result := Ver(AArticulos, AInventario, APedido); end; -procedure TInventarioController.RecibirArticulos(const APedido: IBizPedidoProveedor; const CodigoAlmacenDes: Integer); +{procedure TInventarioController.RecibirArticulos(const APedido: IBizPedidoProveedor; const CodigoAlmacenDes: Integer); {var - AArticulos: IBizInventario;} + AArticulos: IBizInventario; // ADetalles: IBizDetallesPedidoProveedor; begin -{ + try if APedido.DataTable.FieldByName(fld_PedidosProveedorID_ALMACEN).IsNull then begin @@ -554,7 +552,7 @@ begin AArticulos.ID_ALMACEN := APedido.ID_ALMACEN; if not APedido.DataTable.FieldByName(fld_PedidosProveedorID).IsNull then AArticulos.ID_PEDIDO_PROVEEDOR := APedido.ID; - AArticulos.ID_ARTICULO := APedido.Detalles.ID_ARTICULO; + AArticulos.ID_ARTICULO := APedido.Detalles.ID_ARTICULO; AArticulos.REFERENCIA_CLIENTE := APedido.Detalles.REFERENCIA; AArticulos.REFERENCIA_PROVEEDOR := APedido.Detalles.REFERENCIA_PROVEEDOR; AArticulos.DESCRIPCION := APedido.Detalles.CONCEPTO; @@ -571,8 +569,7 @@ begin finally AArticulos := Nil; end; -} -end; +end;} procedure TInventarioController.EntradaArticulosLibre(AInventario: IBizInventario; const CodigoAlmacenDestino: Integer); var @@ -591,7 +588,7 @@ begin end; end; -function TInventarioController.EntradaPedido(AInventario: IBizInventario; const CodigoAlmacenDestino: Integer; ADetalles: IDAStronglyTypedDataTable; var ADetallesFinal: IBizInventario): Boolean; +function TInventarioController.EntradaPedido(AInventario: IBizInventario; APedido: IBizPedidoProveedor; ADetalles: IDAStronglyTypedDataTable; var ADetallesFinal: IBizInventario): Boolean; var AArticulos: IBizInventario; begin @@ -601,13 +598,13 @@ begin //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 AArticulos.TipoMovimiento := tEntradaPedidoProveedor; - AArticulos.IDAlmacenDestino := CodigoAlmacenDestino; + AArticulos.IDAlmacenDestino := APedido.ID_ALMACEN; //Inicializamos los articulos a hacer salida con los dados por parametro Copiar(AArticulos, ADetalles, AInventario); ADetallesFinal:= AArticulos; - Result := EntradaSalidaArticulos(AArticulos, AInventario); + Result := EntradaSalidaArticulos(AArticulos, AInventario, APedido); end; procedure TInventarioController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); @@ -616,7 +613,7 @@ begin // end; -procedure TInventarioController.RecibirPedidos(const CodigoAlmacenDes: Integer); +{procedure TInventarioController.RecibirPedidos(const CodigoAlmacenDes: Integer); var APedido: IBizPedidoProveedor; begin @@ -631,7 +628,7 @@ begin APedido := Nil; end; -end; +end;} procedure TInventarioController.Reservar(AInventario : IBizInventario); var diff --git a/Source/Modulos/Inventario/Views/uEditorElegirArticulosAlmacen.dfm b/Source/Modulos/Inventario/Views/uEditorElegirArticulosAlmacen.dfm index ac096110..390fbfad 100644 --- a/Source/Modulos/Inventario/Views/uEditorElegirArticulosAlmacen.dfm +++ b/Source/Modulos/Inventario/Views/uEditorElegirArticulosAlmacen.dfm @@ -55,7 +55,7 @@ inherited fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen inherited tbxMain: TTBXToolbar Align = alLeft DockPos = -6 - ExplicitWidth = 117 + ExplicitWidth = 275 inherited TBXItem2: TTBXItem Visible = False end @@ -70,12 +70,12 @@ inherited fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen end end inherited tbxFiltro: TTBXToolbar - Left = 117 + Left = 275 Top = 23 Align = alLeft DockPos = 101 DockRow = 1 - ExplicitLeft = 117 + ExplicitLeft = 275 ExplicitTop = 23 inherited TBXItem34: TTBXItem Action = actQuitarFiltro2 @@ -88,7 +88,6 @@ inherited fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen inherited StatusBar: TJvStatusBar Width = 656 Visible = False - ExplicitTop = 527 ExplicitWidth = 656 end inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4] @@ -140,11 +139,18 @@ inherited fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen ExplicitHeight = 336 inherited cxGrid: TcxGrid Width = 656 - Height = 336 + Height = 208 RootLevelOptions.DetailTabsPosition = dtpNone ExplicitWidth = 656 - ExplicitHeight = 336 + ExplicitHeight = 208 inherited cxGridView: TcxGridDBTableView + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Position = spFooter + Column = frViewInventario1.cxGridViewCOSTE_UNIDADES + end> DataController.Summary.FooterSummaryItems = < item Format = '0 art'#237'culos' @@ -157,6 +163,56 @@ inherited fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen end> end end + inherited frViewFiltroBase1: TfrViewFiltroBase + Width = 656 + ExplicitWidth = 656 + inherited TBXDock1: TTBXDock + Width = 656 + ExplicitWidth = 656 + inherited TBXDockablePanel1: TTBXDockablePanel + ExplicitWidth = 656 + inherited dxLayoutControl1: TdxLayoutControl + Width = 652 + ExplicitWidth = 652 + inherited txtFiltroTodo: TcxTextEdit + ExplicitWidth = 273 + Width = 273 + end + inherited edtFechaIniFiltro: TcxDateEdit + ExplicitWidth = 121 + Width = 121 + end + inherited edtFechaFinFiltro: TcxDateEdit + Left = 403 + ExplicitLeft = 403 + ExplicitWidth = 121 + Width = 121 + end + end + inherited TBXAlignmentPanel1: TTBXAlignmentPanel + Width = 652 + ExplicitWidth = 652 + inherited tbxBotones: TTBXToolbar + Width = 642 + ExplicitWidth = 642 + end + end + end + end + end + inherited pnlAgrupaciones: TTBXDockablePanel + Top = 310 + ExplicitTop = 310 + ExplicitWidth = 656 + inherited TBXAlignmentPanel1: TTBXAlignmentPanel + Width = 656 + ExplicitWidth = 656 + inherited TBXToolbar1: TTBXToolbar + Width = 646 + ExplicitWidth = 646 + end + end + end inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinterLink: TdxGridReportLink BuiltInReportLink = True @@ -170,10 +226,18 @@ inherited fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen Index = 0 end> end + inherited dxPrintStyleManager1: TdxPrintStyleManager + inherited dxPrintStyleManager1Style1: TdxPSPrintStyle + BuiltInStyle = True + end + end end inherited EditorActionList: TActionList [9] Left = 112 Top = 192 + inherited actRecibirPedido: TAction + Visible = False + end inherited actTrasladar: TAction Visible = False end diff --git a/Source/Modulos/Inventario/Views/uEditorEntradaSalidaArticulos.dfm b/Source/Modulos/Inventario/Views/uEditorEntradaSalidaArticulos.dfm index 1fee1230..557ef6b7 100644 --- a/Source/Modulos/Inventario/Views/uEditorEntradaSalidaArticulos.dfm +++ b/Source/Modulos/Inventario/Views/uEditorEntradaSalidaArticulos.dfm @@ -9,9 +9,7 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader Caption = 'Entrada de art'#237'culos en almac'#233'n' - ExplicitWidth = 652 inherited Image1: TImage - Left = 625 Picture.Data = { 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0000180806000000E0773DF80000000970485973000017120000171201679FD2 @@ -33,7 +31,6 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos end end inherited TBXDock: TTBXDock - ExplicitWidth = 652 inherited tbxMain: TTBXToolbar ExplicitWidth = 271 object TBXItem7: TTBXItem [16] @@ -53,12 +50,11 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos end end inherited pgPaginas: TPageControl - Top = 222 - Height = 315 + Top = 254 + Height = 283 MultiLine = True Visible = False ExplicitTop = 222 - ExplicitWidth = 652 ExplicitHeight = 315 inherited pagGeneral: TTabSheet ExplicitLeft = 4 @@ -78,9 +74,9 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos inline frViewListaArticulos: TfrViewEntradaSalidaArticulos [4] AlignWithMargins = True Left = 3 - Top = 225 + Top = 257 Width = 646 - Height = 309 + Height = 277 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -100,13 +96,13 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos ExplicitHeight = 309 inherited cxGrid: TcxGrid Left = 5 - Top = 5 + Top = 107 Width = 636 - Height = 301 + Height = 141 ExplicitLeft = 5 - ExplicitTop = 5 + ExplicitTop = 107 ExplicitWidth = 636 - ExplicitHeight = 301 + ExplicitHeight = 173 inherited cxGridView: TcxGridDBTableView OptionsCustomize.ColumnsQuickCustomization = False OptionsData.Editing = True @@ -127,6 +123,8 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos Properties.ReadOnly = True end inherited cxGridViewREFERENCIA_PROV: TcxGridDBColumn [4] + PropertiesClassName = 'TcxTextEditProperties' + Properties.ReadOnly = True end inherited cxGridViewDESCRIPCION: TcxGridDBColumn [5] Caption = 'Descripci'#243'n' @@ -138,9 +136,12 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos Caption = 'Cantidad' PropertiesClassName = 'TcxSpinEditProperties' Properties.CanEdit = True + Properties.ExceptionOnInvalidInput = False Properties.SpinButtons.Position = sbpVert Properties.SpinButtons.ShowFastButtons = False + Properties.UseCtrlIncrement = False Properties.ValidateOnEnter = True + Properties.OnGetValue = nil FooterAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify Styles.Content = frViewListaArticulos.cxStyleFiltered @@ -148,6 +149,7 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos inherited cxGridViewSTOCK: TcxGridDBColumn [7] PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taRightJustify + Properties.ReadOnly = True FooterAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify end @@ -166,8 +168,65 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos end end end + inherited frViewFiltroBase1: TfrViewFiltroBase + Left = 5 + Top = 5 + Width = 636 + ExplicitLeft = 5 + ExplicitTop = 5 + ExplicitWidth = 636 + inherited TBXDock1: TTBXDock + Width = 636 + ExplicitWidth = 636 + inherited TBXDockablePanel1: TTBXDockablePanel + ExplicitWidth = 636 + inherited dxLayoutControl1: TdxLayoutControl + Width = 632 + ExplicitWidth = 632 + inherited txtFiltroTodo: TcxTextEdit + ExplicitWidth = 273 + Width = 273 + end + inherited edtFechaIniFiltro: TcxDateEdit + ExplicitWidth = 121 + Width = 121 + end + inherited edtFechaFinFiltro: TcxDateEdit + Left = 391 + ExplicitLeft = 391 + ExplicitWidth = 121 + Width = 121 + end + end + inherited TBXAlignmentPanel1: TTBXAlignmentPanel + Width = 632 + ExplicitWidth = 632 + inherited tbxBotones: TTBXToolbar + Width = 622 + ExplicitWidth = 622 + end + end + end + end + end + inherited pnlAgrupaciones: TTBXDockablePanel + Left = 5 + Top = 248 + ExplicitLeft = 5 + ExplicitTop = 280 + ExplicitWidth = 636 + inherited TBXAlignmentPanel1: TTBXAlignmentPanel + Width = 636 + ExplicitWidth = 636 + inherited TBXToolbar1: TTBXToolbar + Width = 626 + ExplicitWidth = 626 + end + end + end inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinterLink: TdxGridReportLink + ReportDocument.CreationDate = 39253.501954571760000000 BuiltInReportLink = True end end @@ -179,11 +238,16 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos Index = 0 end> end + inherited dxPrintStyleManager1: TdxPrintStyleManager + inherited dxPrintStyleManager1Style1: TdxPSPrintStyle + BuiltInStyle = True + end + end end object ToolBar1: TToolBar [5] AlignWithMargins = True Left = 5 - Top = 192 + Top = 224 Width = 642 Height = 30 Margins.Left = 5 @@ -202,6 +266,7 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos ShowHint = True TabOrder = 5 Transparent = True + ExplicitTop = 192 object ToolButton1: TToolButton Left = 0 Top = 2 @@ -233,10 +298,10 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos Left = 0 Top = 76 Width = 652 - Height = 114 + Height = 146 object pnlMovimiento: TTBXDockablePanel Left = 0 - Top = 57 + Top = 89 Align = alTop Caption = 'Filtrar' CaptionRotation = dpcrAlwaysVert @@ -249,6 +314,7 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos ShowCaptionWhenDocked = False SupportedDocks = [dkStandardDock, dkMultiDock] TabOrder = 0 + Visible = False DesignSize = ( 648 53) @@ -299,7 +365,7 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 1 - Width = 850 + Width = 1837 end end object pnlEntradaPedido: TTBXDockablePanel @@ -308,7 +374,7 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos Align = alTop Caption = 'Filtrar' CaptionRotation = dpcrAlwaysVert - DockedHeight = 53 + DockedHeight = 85 DockMode = dmCannotFloat DockPos = 88 DockRow = 2 @@ -319,25 +385,97 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos TabOrder = 1 Visible = False object Label3: TLabel - Left = 266 + Left = 202 Top = 17 - Width = 36 + Width = 60 Height = 13 - Caption = 'Motivo:' + Caption = 'Ref. pedido:' end object Label4: TLabel Left = 8 Top = 17 - Width = 107 + Width = 85 Height = 13 - Caption = 'Fecha del movimiento:' + Caption = 'Fecha del pedido:' Color = 16054521 ParentColor = False end + object edtFechaPedido: TLabel + Left = 99 + Top = 17 + Width = 71 + Height = 13 + Caption = 'FechaPedido' + Color = 16054521 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + end + object edtReferenciaPedido: TLabel + Left = 268 + Top = 17 + Width = 99 + Height = 13 + Caption = 'ReferenciaPedido' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 8 + Top = 49 + Width = 47 + Height = 13 + Caption = 'Situaci'#243'n:' + Color = 16054521 + ParentColor = False + end + object edtSituacion: TLabel + Left = 99 + Top = 49 + Width = 52 + Height = 13 + Caption = 'Situacion' + Color = 16054521 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + end + object Label7: TLabel + Left = 202 + Top = 49 + Width = 54 + Height = 13 + Caption = 'Proveedor:' + end + object edtProveedor: TLabel + Left = 268 + Top = 49 + Width = 59 + Height = 13 + Caption = 'Proveedor' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [fsBold] + ParentFont = False + end end end inherited EditorActionList: TActionList [7] - Top = 80 + Top = 56 inherited actNuevo: TAction Visible = False end @@ -1720,7 +1858,7 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos end inherited dsDataTable: TDADataSource [11] Left = 56 - Top = 80 + Top = 56 end inherited JvAppRegistryStorage: TJvAppRegistryStorage [12] end diff --git a/Source/Modulos/Inventario/Views/uEditorEntradaSalidaArticulos.pas b/Source/Modulos/Inventario/Views/uEditorEntradaSalidaArticulos.pas index 22880640..1567247b 100644 --- a/Source/Modulos/Inventario/Views/uEditorEntradaSalidaArticulos.pas +++ b/Source/Modulos/Inventario/Views/uEditorEntradaSalidaArticulos.pas @@ -13,7 +13,7 @@ uses uIEditorEntradaSalidaArticulos, uInventarioController, JvExComCtrls, JvStatusBar, Grids, DBGrids, cxLabel, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCalendar, cxMemo, ToolWin, - dxLayoutControl, cxStyles, StdCtrls, Buttons, TBXDkPanels; + dxLayoutControl, cxStyles, StdCtrls, Buttons, TBXDkPanels, uBizPedidosProveedor; type TfEditorEntradaSalidaArticulos = class(TfEditorDBItem, IEditorEntradaSalidaArticulos) @@ -37,6 +37,12 @@ type Label3: TLabel; Label4: TLabel; TBXDockPaneles: TTBXDock; + edtFechaPedido: TLabel; + edtReferenciaPedido: TLabel; + Label6: TLabel; + edtSituacion: TLabel; + Label7: TLabel; + edtProveedor: TLabel; procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction); procedure actAnadirInventarioExecute(Sender: TObject); procedure actEliminarInventarioExecute(Sender: TObject); @@ -50,10 +56,13 @@ type FController : IInventarioController; FArticulos: IBizInventario; //Los artículos de entrada o salida FInventario: IBizInventario; //Para sacar el stock + FPedidoProveedor: IBizPedidoProveedor; function GetArticulos: IBizInventario; procedure SetArticulos(const Value: IBizInventario); function GetInventario: IBizInventario; procedure SetInventario(const Value: IBizInventario); + function GetPedidoProveedor: IBizPedidoProveedor; + procedure SetPedidoProveedor(const Value: IBizPedidoProveedor); function GetController : IInventarioController; procedure SetController (const Value : IInventarioController); function getResultadoModalOK: Boolean; @@ -66,6 +75,7 @@ type property Controller : IInventarioController read GetController write SetController; property Articulos: IBizInventario read GetArticulos write SetArticulos; property Inventario: IBizInventario read GetInventario write SetInventario; + property PedidoProveedor: IBizPedidoProveedor read GetPedidoProveedor write SetPedidoProveedor; property ResultadoModalOK: Boolean read getResultadoModalOK; constructor Create(AOwner: TComponent); override; procedure PonerTitulos(const ATitulo: string = ''); override; @@ -100,6 +110,11 @@ begin Result := FHayCambios; end; +function TfEditorEntradaSalidaArticulos.GetPedidoProveedor: IBizPedidoProveedor; +begin + Result := FPedidoProveedor; +end; + function TfEditorEntradaSalidaArticulos.getResultadoModalOK: Boolean; begin Result := FResultadoModalOK; @@ -147,6 +162,21 @@ begin FInventario := Value; end; +procedure TfEditorEntradaSalidaArticulos.SetPedidoProveedor(const Value: IBizPedidoProveedor); +begin + FPedidoProveedor := Value; + if Assigned(FPedidoProveedor) then + begin + edtFechaPedido.Caption := DateToStr(FPedidoProveedor.FECHA_PEDIDO); + edtReferenciaPedido.Caption := FPedidoProveedor.REFERENCIA; + edtSituacion.Caption := FPedidoProveedor.SITUACION; + edtProveedor.Caption := FPedidoProveedor.NOMBRE; + pnlEntradaPedido.Visible := True + end + else + pnlEntradaPedido.Visible := False; +end; + procedure TfEditorEntradaSalidaArticulos.actAnadirInventarioExecute(Sender: TObject); begin //Todos los cambios serán en caché hasta que el usuario decida guardar @@ -161,6 +191,7 @@ begin FController := Nil; FArticulos:= Nil; FInventario:= Nil; + FPedidoProveedor:= Nil; end; procedure TfEditorEntradaSalidaArticulos.FormShow(Sender: TObject); @@ -181,11 +212,16 @@ begin AAlmacenDestino.DataTable.Active := True; case FArticulos.TipoMovimiento of - tEntradaLibre, tEntradaPedidoProveedor : + tEntradaLibre : begin FTitulo := 'Entrada de artículos en el almacén "' + AAlmacenDestino.NOMBRE + '"'; actGuardarCerrar.Caption := 'Realizar la entrada de los artículos'; end; + tEntradaPedidoProveedor : + begin + FTitulo := 'Entrada por pedido de artículos, en el almacén "' + AAlmacenDestino.NOMBRE + '"'; + actGuardarCerrar.Caption := 'Realizar la entrada de los artículos'; + end; tSalidaLibre, tSalidaAlbaranCliente : begin FTitulo := 'Salida de artículos en el almacén "' + AAlmacenOrigen.NOMBRE + '"'; @@ -206,7 +242,6 @@ begin case FArticulos.TipoMovimiento of tEntradaLibre, tSalidaLibre, tTraslado : begin - pnlEntradaPedido.Visible := False; pnlMovimiento.Visible := True; eFechaMovimiento.Date := Date; actAnadirInventario.Enabled := True; @@ -217,14 +252,8 @@ begin end; tEntradaPedidoProveedor, tSalidaAlbaranCliente : begin - pnlMovimiento.Visible := False; - if (FArticulos.TipoMovimiento = tEntradaPedidoProveedor) then - begin - //pnlEntradaPedido.Visible := True;} - pnlEntradaPedido.Visible := False; - ToolBar1.Visible := False; - end; + ToolBar1.Visible := False; actAnadirInventario.Enabled := False; actAnadirInventario.Visible := False; diff --git a/Source/Modulos/Inventario/Views/uViewEntradaSalidaArticulos.dfm b/Source/Modulos/Inventario/Views/uViewEntradaSalidaArticulos.dfm index 2f700464..b8efb7f3 100644 --- a/Source/Modulos/Inventario/Views/uViewEntradaSalidaArticulos.dfm +++ b/Source/Modulos/Inventario/Views/uViewEntradaSalidaArticulos.dfm @@ -52,11 +52,37 @@ inherited frViewEntradaSalidaArticulos: TfrViewEntradaSalidaArticulos end end end + inherited frViewFiltroBase1: TfrViewFiltroBase + inherited TBXDock1: TTBXDock + inherited TBXDockablePanel1: TTBXDockablePanel + inherited dxLayoutControl1: TdxLayoutControl + inherited txtFiltroTodo: TcxTextEdit + ExplicitWidth = 273 + Width = 273 + end + inherited edtFechaIniFiltro: TcxDateEdit + ExplicitWidth = 121 + Width = 121 + end + inherited edtFechaFinFiltro: TcxDateEdit + ExplicitWidth = 121 + Width = 121 + end + end + end + end + end inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinterLink: TdxGridReportLink + ReportDocument.CreationDate = 39253.500748333330000000 BuiltInReportLink = True end end + inherited dxPrintStyleManager1: TdxPrintStyleManager + inherited dxPrintStyleManager1Style1: TdxPSPrintStyle + BuiltInStyle = True + end + end object DADataSourceAlmacenes: TDADataSource Left = 56 Top = 16 diff --git a/Source/Modulos/Inventario/Views/uViewEntradaSalidaArticulos.pas b/Source/Modulos/Inventario/Views/uViewEntradaSalidaArticulos.pas index 155ca278..440160bc 100644 --- a/Source/Modulos/Inventario/Views/uViewEntradaSalidaArticulos.pas +++ b/Source/Modulos/Inventario/Views/uViewEntradaSalidaArticulos.pas @@ -13,7 +13,8 @@ uses dxPrnDev, dxPSCompsProvider, dxPSFillPatterns, dxPSEdgePatterns, cxGridCustomPopupMenu, cxGridPopupMenu, dxPSCore, dxPScxCommon, dxPScxGridLnk, uAlmacenesController, uBizAlmacenes, TB2Item, TBX, TB2Dock, TB2Toolbar, - uDataModuleInventario, cxRichEdit, cxTextEdit; + uDataModuleInventario, cxRichEdit, cxTextEdit, dxPgsDlg, TBXDkPanels, + uViewFiltroBase; type IViewViewEntradaSalidaArticulos = interface(IViewGrid) diff --git a/Source/Modulos/Relaciones/Pedidos de proveedor - Albaranes de proveedor/uGenerarAlbaranesProvUtils.pas b/Source/Modulos/Relaciones/Pedidos de proveedor - Albaranes de proveedor/uGenerarAlbaranesProvUtils.pas index 2fd0a45f..62f56c34 100644 --- a/Source/Modulos/Relaciones/Pedidos de proveedor - Albaranes de proveedor/uGenerarAlbaranesProvUtils.pas +++ b/Source/Modulos/Relaciones/Pedidos de proveedor - Albaranes de proveedor/uGenerarAlbaranesProvUtils.pas @@ -297,7 +297,7 @@ begin Exit; // Aunque es un exit, se ejecuta la parte del finally antes de salir. end; - bGenerarAlbaran := AInventarioController.EntradaPedido(nil, APedido.ID_ALMACEN, AArticulosPendientes, AInventarioRecibido); + bGenerarAlbaran := AInventarioController.EntradaPedido(nil, APedido, AArticulosPendientes, AInventarioRecibido); except on E : Exception do ShowMessage(E.Message);