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 ExplicitHeight = 444
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 751 Width = 751
Height = 73 Height = 51
ExplicitWidth = 751 ExplicitWidth = 751
ExplicitHeight = 73 ExplicitHeight = 51
inherited ToolButton3: TToolButton inherited ToolButton3: TToolButton
Left = 109 Wrap = False
Top = 0
ExplicitLeft = 109
ExplicitTop = 0
end
inherited ToolButton12: TToolButton
Top = 0
ExplicitTop = 0
end
inherited ToolButton2: TToolButton
Top = 27
ExplicitTop = 27
end end
inherited ToolButton4: TToolButton inherited ToolButton4: TToolButton
Top = 27 Left = 278
ExplicitTop = 27 Top = 0
ExplicitLeft = 278
ExplicitTop = 0
end end
inherited ToolButton7: TToolButton inherited ToolButton14: TToolButton [4]
Top = 27 Left = 334
ExplicitTop = 27 Top = 0
ExplicitLeft = 334
ExplicitTop = 0
end end
inherited ToolButton6: TToolButton inherited FontName: TJvFontComboBox [5]
Top = 27 Left = 399
ExplicitTop = 27 Top = 0
ExplicitLeft = 399
ExplicitTop = 0
end end
inherited FontName: TJvFontComboBox inherited FontSize: TEdit
Top = 27 Left = 544
ExplicitTop = 27 Top = 0
Width = 122
ExplicitLeft = 544
ExplicitTop = 0
ExplicitWidth = 122
end end
inherited ToolButton14: TToolButton inherited UpDown1: TUpDown
Top = 27 Left = 666
Wrap = True Top = 0
ExplicitTop = 27 ExplicitLeft = 666
end ExplicitTop = 0
inherited ToolButton11: TToolButton
Left = 0
ExplicitLeft = 0
end end
inherited ToolButton13: TToolButton inherited ToolButton13: TToolButton
Left = 141 Left = 0
Wrap = False Top = 0
ExplicitLeft = 141 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 ExplicitHeight = 22
end end
inherited ToolButton9: TToolButton [11] inherited ToolButton9: TToolButton [13]
Left = 149 Left = 224
Top = 49 Top = 27
ExplicitLeft = 149 ExplicitLeft = 224
ExplicitTop = 49 ExplicitTop = 27
end end
inherited ToolButton8: TToolButton [12] inherited ToolButton10: TToolButton [14]
Left = 294 Left = 369
Top = 49 Top = 27
ExplicitLeft = 294 ExplicitLeft = 369
ExplicitTop = 49 ExplicitTop = 27
end end
inherited ToolButton10: TToolButton [13] inherited ToolButton11: TToolButton [15]
Left = 377 Left = 494
Top = 49 Top = 27
ExplicitLeft = 377 ExplicitLeft = 494
ExplicitTop = 49 ExplicitTop = 27
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
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 99 Top = 77
Width = 751 Width = 751
Height = 345 Height = 367
ExplicitWidth = 751 ExplicitWidth = 751
ExplicitHeight = 345 ExplicitHeight = 345
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Top = 73 Top = 51
Width = 751 Width = 751
ExplicitWidth = 751 ExplicitWidth = 751
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar

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

@ -343,7 +343,6 @@ inherited frViewDatosYSeleccionClienteFinalAlbaran: TfrViewDatosYSeleccionClient
object dxLayoutControl1Group5: TdxLayoutGroup object dxLayoutControl1Group5: TdxLayoutGroup
Enabled = False Enabled = False
ShowCaption = False ShowCaption = False
Visible = False
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
@ -358,7 +357,9 @@ inherited frViewDatosYSeleccionClienteFinalAlbaran: TfrViewDatosYSeleccionClient
object dxLayoutControl1Item6: TdxLayoutItem object dxLayoutControl1Item6: TdxLayoutItem
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
AlignHorz = ahRight AlignHorz = ahRight
Enabled = False
ShowCaption = False ShowCaption = False
Visible = False
Control = Button5 Control = Button5
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end

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

@ -343,9 +343,9 @@ begin
if not FCliente.DataTable.Active then if not FCliente.DataTable.Active then
FCliente.DataTable.Active := True; FCliente.DataTable.Active := True;
//Solo podremos establecer persona de contacto si se ha asignado un cliente //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 // if FCliente.ID > 0 then
edtPersonaContacto.Enabled := True; // edtPersonaContacto.Enabled := True;
ElegirDireccionCliente ElegirDireccionCliente
end end