diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm index b8d315a..3abf22d 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm +++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm @@ -186,96 +186,105 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor ExplicitHeight = 444 inherited ToolBar1: TToolBar Width = 751 - Height = 73 + Height = 51 ExplicitWidth = 751 - ExplicitHeight = 73 + ExplicitHeight = 51 inherited ToolButton3: TToolButton - Left = 109 - Top = 0 - ExplicitLeft = 109 - ExplicitTop = 0 - end - inherited ToolButton12: TToolButton - Top = 0 - ExplicitTop = 0 - end - inherited ToolButton2: TToolButton - Top = 27 - ExplicitTop = 27 + Wrap = False end inherited ToolButton4: TToolButton - Top = 27 - ExplicitTop = 27 + Left = 278 + Top = 0 + ExplicitLeft = 278 + ExplicitTop = 0 end - inherited ToolButton7: TToolButton - Top = 27 - ExplicitTop = 27 + inherited ToolButton14: TToolButton [4] + Left = 334 + Top = 0 + ExplicitLeft = 334 + ExplicitTop = 0 end - inherited ToolButton6: TToolButton - Top = 27 - ExplicitTop = 27 + inherited FontName: TJvFontComboBox [5] + Left = 399 + Top = 0 + ExplicitLeft = 399 + ExplicitTop = 0 end - inherited FontName: TJvFontComboBox - Top = 27 - ExplicitTop = 27 + inherited FontSize: TEdit + Left = 544 + Top = 0 + Width = 122 + ExplicitLeft = 544 + ExplicitTop = 0 + ExplicitWidth = 122 end - inherited ToolButton14: TToolButton - Top = 27 - Wrap = True - ExplicitTop = 27 - end - inherited ToolButton11: TToolButton - Left = 0 - ExplicitLeft = 0 + inherited UpDown1: TUpDown + Left = 666 + Top = 0 + ExplicitLeft = 666 + ExplicitTop = 0 end inherited ToolButton13: TToolButton - Left = 141 - Wrap = False - ExplicitLeft = 141 + Left = 0 + Top = 0 + Wrap = True + ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitHeight = 27 + end + inherited ToolButton6: TToolButton [9] + Left = 0 + Top = 27 + ExplicitLeft = 0 + ExplicitTop = 27 + end + inherited ToolButton7: TToolButton [10] + Left = 66 + Top = 27 + ExplicitLeft = 66 + ExplicitTop = 27 + end + inherited ToolButton8: TToolButton [11] + Left = 133 + Top = 27 + ExplicitLeft = 133 + ExplicitTop = 27 + end + inherited ToolButton12: TToolButton [12] + Left = 216 + Top = 27 + ExplicitLeft = 216 + ExplicitTop = 27 ExplicitHeight = 22 end - inherited ToolButton9: TToolButton [11] - Left = 149 - Top = 49 - ExplicitLeft = 149 - ExplicitTop = 49 + inherited ToolButton9: TToolButton [13] + Left = 224 + Top = 27 + ExplicitLeft = 224 + ExplicitTop = 27 end - inherited ToolButton8: TToolButton [12] - Left = 294 - Top = 49 - ExplicitLeft = 294 - ExplicitTop = 49 + inherited ToolButton10: TToolButton [14] + Left = 369 + Top = 27 + ExplicitLeft = 369 + ExplicitTop = 27 end - inherited ToolButton10: TToolButton [13] - Left = 377 - Top = 49 - ExplicitLeft = 377 - ExplicitTop = 49 - end - inherited UpDown1: TUpDown [14] - Left = 502 - Top = 49 - ExplicitLeft = 502 - ExplicitTop = 49 - end - inherited FontSize: TEdit [15] - Left = 519 - Top = 49 - Width = 122 - ExplicitLeft = 519 - ExplicitTop = 49 - ExplicitWidth = 122 + inherited ToolButton11: TToolButton [15] + Left = 494 + Top = 27 + ExplicitLeft = 494 + ExplicitTop = 27 end end inherited cxGrid: TcxGrid - Top = 99 + Top = 77 Width = 751 - Height = 345 + Height = 367 ExplicitWidth = 751 ExplicitHeight = 345 end inherited TBXDock1: TTBXDock - Top = 73 + Top = 51 Width = 751 ExplicitWidth = 751 inherited TBXToolbar1: TTBXToolbar diff --git a/Source/Modulos/Albaranes de proveedor/Views/uViewDatosYSeleccionClienteFinalAlbaran.dfm b/Source/Modulos/Albaranes de proveedor/Views/uViewDatosYSeleccionClienteFinalAlbaran.dfm index fcc98b5..217aa88 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uViewDatosYSeleccionClienteFinalAlbaran.dfm +++ b/Source/Modulos/Albaranes de proveedor/Views/uViewDatosYSeleccionClienteFinalAlbaran.dfm @@ -343,7 +343,6 @@ inherited frViewDatosYSeleccionClienteFinalAlbaran: TfrViewDatosYSeleccionClient object dxLayoutControl1Group5: TdxLayoutGroup Enabled = False ShowCaption = False - Visible = False Hidden = True LayoutDirection = ldHorizontal ShowBorder = False @@ -358,7 +357,9 @@ inherited frViewDatosYSeleccionClienteFinalAlbaran: TfrViewDatosYSeleccionClient object dxLayoutControl1Item6: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahRight + Enabled = False ShowCaption = False + Visible = False Control = Button5 ControlOptions.ShowBorder = False end diff --git a/Source/Modulos/Albaranes de proveedor/Views/uViewDatosYSeleccionClienteFinalAlbaran.pas b/Source/Modulos/Albaranes de proveedor/Views/uViewDatosYSeleccionClienteFinalAlbaran.pas index 92331ff..91c9bda 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uViewDatosYSeleccionClienteFinalAlbaran.pas +++ b/Source/Modulos/Albaranes de proveedor/Views/uViewDatosYSeleccionClienteFinalAlbaran.pas @@ -343,9 +343,9 @@ begin if not FCliente.DataTable.Active then FCliente.DataTable.Active := True; - //Solo podremos establecer persona de contacto si se ha asignado un cliente - if FCliente.ID > 0 then - edtPersonaContacto.Enabled := True; + //Solo podremos establecer persona de contacto si se ha asignado un cliente No se puede modificar el contacto nos viene de la ficha de cliente +// if FCliente.ID > 0 then +// edtPersonaContacto.Enabled := True; ElegirDireccionCliente end