Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

TBXItem7.Visible := True;

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@498 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-08-04 12:04:45 +00:00
parent c9168aca5f
commit de1f75e4ca
3 changed files with 26 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Database/scripts/factuges.sql
View File

@ -1529,7 +1529,7 @@ MANO_OBRA,
PRECIO_PVP_TOTAL, PRECIO_PVP_TOTAL,
ID_ARTICULO) ID_ARTICULO)
AS AS
SELECT ARTICULOS.ID || 0 || ARTICULOS_PROVEEDORES.ID_PROVEEDOR, SELECT ARTICULOS.ID,
ARTICULOS.ID_EMPRESA, ARTICULOS.REFERENCIA, ARTICULOS.DESCRIPCION, ARTICULOS.ID_EMPRESA, ARTICULOS.REFERENCIA, ARTICULOS.DESCRIPCION,
ARTICULOS.UNIDAD_MEDIDA, ARTICULOS.FAMILIA, ARTICULOS.IMAGEN, ARTICULOS.UNIDAD_MEDIDA, ARTICULOS.FAMILIA, ARTICULOS.IMAGEN,
ARTICULOS.COMISIONABLE, ARTICULOS.FECHA_ALTA, ARTICULOS.COMISIONABLE, ARTICULOS.FECHA_ALTA,

40
Source/Modulos/Inventario/Views/uEditorEntradaSalidaArticulos.dfm
View File

@ -12,6 +12,7 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 773 Width = 773
Caption = 'Entrada de art'#237'culos en ' Caption = 'Entrada de art'#237'culos en '
ExplicitWidth = 773
inherited Image1: TImage inherited Image1: TImage
Left = 746 Left = 746
Picture.Data = { Picture.Data = {
@ -36,6 +37,7 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 773 Width = 773
ExplicitWidth = 773
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 164 ExplicitWidth = 164
object TBXItem7: TTBXItem [16] object TBXItem7: TTBXItem [16]
@ -63,11 +65,12 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
MultiLine = True MultiLine = True
Visible = False Visible = False
ExplicitTop = 257 ExplicitTop = 257
ExplicitWidth = 767
ExplicitHeight = 277 ExplicitHeight = 277
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 638 ExplicitWidth = 759
ExplicitHeight = 249 ExplicitHeight = 249
end end
end end
@ -79,6 +82,7 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
Width = 200 Width = 200
end> end>
ExplicitTop = 537 ExplicitTop = 537
ExplicitWidth = 773
end end
object ToolBar1: TToolBar [4] object ToolBar1: TToolBar [4]
AlignWithMargins = True AlignWithMargins = True
@ -102,7 +106,6 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
ShowHint = True ShowHint = True
TabOrder = 4 TabOrder = 4
Transparent = True Transparent = True
ExplicitWidth = 642
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -135,7 +138,6 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
Top = 76 Top = 76
Width = 773 Width = 773
Height = 146 Height = 146
ExplicitWidth = 652
object pnlMovimiento: TTBXDockablePanel object pnlMovimiento: TTBXDockablePanel
Left = 0 Left = 0
Top = 89 Top = 89
@ -206,7 +208,7 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1 TabOrder = 1
Height = 21 Height = 21
Width = 445 Width = 1086
end end
end end
object pnlEntradaPedido: TTBXDockablePanel object pnlEntradaPedido: TTBXDockablePanel
@ -337,39 +339,37 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
TabOrder = 6 TabOrder = 6
ReadOnly = False ReadOnly = False
ExplicitTop = 254 ExplicitTop = 254
ExplicitWidth = 652 ExplicitWidth = 773
ExplicitHeight = 283 ExplicitHeight = 283
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 757 Width = 757
Height = 139 Height = 139
ExplicitLeft = 8 ExplicitWidth = 757
ExplicitTop = 110
ExplicitWidth = 636
ExplicitHeight = 139 ExplicitHeight = 139
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 773 Width = 773
ExplicitWidth = 652 ExplicitWidth = 773
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 652 ExplicitWidth = 773
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 773 Width = 773
ExplicitWidth = 652 ExplicitWidth = 773
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 555 ExplicitWidth = 676
Width = 555 Width = 676
end end
inherited eLista: TcxComboBox inherited eLista: TcxComboBox
ExplicitWidth = 259 ExplicitWidth = 380
Width = 259 Width = 380
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 773 Width = 773
ExplicitWidth = 652 ExplicitWidth = 773
inherited tbxBotones: TTBXToolbar inherited tbxBotones: TTBXToolbar
Width = 763 Width = 763
ExplicitWidth = 642 ExplicitWidth = 763
end end
end end
end end
@ -377,13 +377,13 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Top = 257 Top = 257
ExplicitTop = 257 ExplicitTop = 257
ExplicitWidth = 652 ExplicitWidth = 773
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 773 Width = 773
ExplicitWidth = 652 ExplicitWidth = 773
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
Width = 763 Width = 763
ExplicitWidth = 642 ExplicitWidth = 763
end end
end end
end end

6
Source/Modulos/Inventario/Views/uEditorEntradaSalidaArticulos.pas
View File

@ -177,10 +177,14 @@ begin
edtReferenciaPedido.Caption := FPedidoProveedor.REFERENCIA; edtReferenciaPedido.Caption := FPedidoProveedor.REFERENCIA;
edtSituacion.Caption := FPedidoProveedor.SITUACION; edtSituacion.Caption := FPedidoProveedor.SITUACION;
edtProveedor.Caption := FPedidoProveedor.NOMBRE; edtProveedor.Caption := FPedidoProveedor.NOMBRE;
pnlEntradaPedido.Visible := True pnlEntradaPedido.Visible := True;
TBXItem7.Visible := True;
end end
else else
begin
pnlEntradaPedido.Visible := False; pnlEntradaPedido.Visible := False;
TBXItem7.Visible := False;
end;
end; end;
procedure TfEditorEntradaSalidaArticulos.actAnadirInventarioExecute(Sender: TObject); procedure TfEditorEntradaSalidaArticulos.actAnadirInventarioExecute(Sender: TObject);