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

Facturas de proveedor: la referencia la asigna el servidor y el usuario no puede escribirla.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@289 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-02-21 10:08:29 +00:00
parent 21dd01e1a5
commit e6f9cf0502
3 changed files with 71 additions and 66 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

103
Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm
View File

@ -7,7 +7,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Position = poScreenCenter Position = poScreenCenter
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 796 ExplicitWidth = 796
ExplicitHeight = 607 ExplicitHeight = 600
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -101,6 +101,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ExplicitWidth = 774 ExplicitWidth = 774
ExplicitHeight = 281 ExplicitHeight = 281
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Properties.ReadOnly = True
ExplicitWidth = 159 ExplicitWidth = 159
Width = 159 Width = 159
end end
@ -197,15 +198,16 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
inherited ToolButton3: TToolButton inherited ToolButton3: TToolButton
Wrap = False Wrap = False
end end
inherited ToolButton4: TToolButton [3] inherited ToolButton4: TToolButton
Left = 278 Left = 278
Top = 0 Top = 0
ExplicitLeft = 278 ExplicitLeft = 278
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton14: TToolButton [4] inherited ToolButton14: TToolButton
Left = 334 Left = 334
Top = 0 Top = 0
Wrap = False
ExplicitLeft = 334 ExplicitLeft = 334
ExplicitTop = 0 ExplicitTop = 0
end end
@ -215,61 +217,69 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ExplicitLeft = 399 ExplicitLeft = 399
ExplicitTop = 0 ExplicitTop = 0
end end
inherited FontSize: TEdit [6] inherited FontSize: TEdit
Left = 544 Left = 544
Top = 0 Top = 0
Width = 57 Width = 72
ExplicitLeft = 544 ExplicitLeft = 544
ExplicitTop = 0 ExplicitTop = 0
ExplicitWidth = 57 ExplicitWidth = 72
end end
inherited UpDown1: TUpDown [7] inherited ToolButton13: TToolButton [7]
Left = 601
Top = 0
ExplicitLeft = 601
ExplicitTop = 0
end
inherited ToolButton13: TToolButton [8]
end
inherited ToolButton6: TToolButton [9]
Left = 0 Left = 0
Top = 0
Wrap = True
ExplicitLeft = 0 ExplicitLeft = 0
ExplicitTop = 0
ExplicitHeight = 27
end end
inherited ToolButton7: TToolButton [10] inherited UpDown1: TUpDown [8]
Left = 66 Left = 0
Top = 30 Top = 27
ExplicitLeft = 66 ExplicitLeft = 0
ExplicitTop = 30 ExplicitTop = 27
end end
inherited ToolButton8: TToolButton [11] inherited ToolButton6: TToolButton
Left = 133 Left = 17
Top = 30 Top = 27
ExplicitLeft = 133 ExplicitLeft = 17
ExplicitTop = 30 ExplicitTop = 27
end end
inherited ToolButton12: TToolButton [12] inherited ToolButton7: TToolButton
Left = 216 Left = 83
Top = 30 Top = 27
ExplicitLeft = 216 ExplicitLeft = 83
ExplicitTop = 30 ExplicitTop = 27
end
inherited ToolButton8: TToolButton
Left = 150
Top = 27
ExplicitLeft = 150
ExplicitTop = 27
end
inherited ToolButton12: TToolButton
Left = 233
Top = 27
ExplicitLeft = 233
ExplicitTop = 27
end end
inherited ToolButton9: TToolButton inherited ToolButton9: TToolButton
Left = 224 Left = 241
Top = 30 Top = 27
ExplicitLeft = 224 ExplicitLeft = 241
ExplicitTop = 30 ExplicitTop = 27
end end
inherited ToolButton10: TToolButton [14] inherited ToolButton10: TToolButton
Left = 369 Left = 386
Top = 30 Top = 27
ExplicitLeft = 369 ExplicitLeft = 386
ExplicitTop = 30 ExplicitTop = 27
end end
inherited ToolButton11: TToolButton [15] inherited ToolButton11: TToolButton
Left = 494 Left = 511
Top = 30 Top = 27
ExplicitLeft = 494 ExplicitLeft = 511
ExplicitTop = 30 ExplicitTop = 27
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
@ -283,9 +293,10 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Top = 51 Top = 51
Width = 774 Width = 774
ExplicitWidth = 780 ExplicitTop = 51
ExplicitWidth = 774
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 626 ExplicitWidth = 702
end end
end end
end end

31
Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm
View File

@ -1,6 +1,6 @@
inherited frViewFacturaProveedor: TfrViewFacturaProveedor inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 743 Width = 451
Height = 303 Height = 304
Align = alClient Align = alClient
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
@ -9,18 +9,16 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 743 Width = 451
Height = 303 Height = 304
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 451
ExplicitHeight = 304
DesignSize = ( DesignSize = (
743 451
303) 304)
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 136 Left = 136
Top = 30 Top = 30
@ -86,7 +84,6 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Top = 111 Top = 111
DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.ListOptions.SyncMode = True
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.KeyFieldNames = 'ID' Properties.KeyFieldNames = 'ID'
Properties.ListColumns = < Properties.ListColumns = <
@ -95,7 +92,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
end> end>
Properties.ListOptions.GridLines = glNone Properties.ListOptions.GridLines = glNone
Properties.ListOptions.ShowHeader = False Properties.ListOptions.ShowHeader = False
Properties.ListOptions.SyncMode = True Properties.ListOptions.SyncMode = True
Properties.ListSource = dsFormaPago Properties.ListSource = dsFormaPago
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
@ -114,7 +111,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 78 Width = 78
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 216 Left = 162
Top = 111 Top = 111
Width = 132 Width = 132
Height = 23 Height = 23
@ -143,7 +140,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 158 Width = 158
end end
inline frViewProveedorFactura: TfrViewDatosYSeleccionProveedor inline frViewProveedorFactura: TfrViewDatosYSeleccionProveedor
Left = 376 Left = 322
Top = 30 Top = 30
Width = 350 Width = 350
Height = 202 Height = 202
@ -155,7 +152,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
ParentFont = False ParentFont = False
TabOrder = 6 TabOrder = 6
ReadOnly = False ReadOnly = False
ExplicitLeft = 376 ExplicitLeft = 322
ExplicitTop = 30 ExplicitTop = 30
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
@ -175,12 +172,12 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 327 Width = 327
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 253 Left = 203
ExplicitLeft = 253 ExplicitLeft = 203
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 137 Left = 87
ExplicitLeft = 137 ExplicitLeft = 87
end end
end end
end end

3
Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas
View File

@ -132,9 +132,6 @@ begin
dsFormaPago.DataTable := FFormasPago.DataTable; dsFormaPago.DataTable := FFormasPago.DataTable;
dsFormaPago.DataTable.Active := True; dsFormaPago.DataTable.Active := True;
//Solo se deshabilita al insertar, luego la referencia será modificable
eReferencia.Enabled := (FFactura.DataTable.State = dsInsert);
if FFactura.TIPO = CTE_TIPO_ABONO then if FFactura.TIPO = CTE_TIPO_ABONO then
begin begin
dxLayoutControl1Item2.Caption := 'Fecha del abono:'; dxLayoutControl1Item2.Caption := 'Fecha del abono:';