Archivado/LuisLeon_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se activa contacto en vista cliente final para poder modificarlo si quieren y que salga en el informe

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@178 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
roberto 2013-01-29 10:00:23 +00:00
parent 1c0a01ff61
commit 4b730a9966
3 changed files with 82 additions and 72 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

145
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm
View File

@ -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

3
Source/Modulos/Albaranes de proveedor/Views/uViewDatosYSeleccionClienteFinalAlbaran.dfm
View File

@ -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

6
Source/Modulos/Albaranes de proveedor/Views/uViewDatosYSeleccionClienteFinalAlbaran.pas
View File

@ -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