diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm index b99920d4..07277eef 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm +++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm @@ -7,7 +7,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor Position = poScreenCenter OnClose = CustomEditorClose ExplicitWidth = 796 - ExplicitHeight = 607 + ExplicitHeight = 600 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader @@ -101,6 +101,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor ExplicitWidth = 774 ExplicitHeight = 281 inherited eReferencia: TcxDBTextEdit + Properties.ReadOnly = True ExplicitWidth = 159 Width = 159 end @@ -197,15 +198,16 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor inherited ToolButton3: TToolButton Wrap = False end - inherited ToolButton4: TToolButton [3] + inherited ToolButton4: TToolButton Left = 278 Top = 0 ExplicitLeft = 278 ExplicitTop = 0 end - inherited ToolButton14: TToolButton [4] + inherited ToolButton14: TToolButton Left = 334 Top = 0 + Wrap = False ExplicitLeft = 334 ExplicitTop = 0 end @@ -215,61 +217,69 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor ExplicitLeft = 399 ExplicitTop = 0 end - inherited FontSize: TEdit [6] + inherited FontSize: TEdit Left = 544 Top = 0 - Width = 57 + Width = 72 ExplicitLeft = 544 ExplicitTop = 0 - ExplicitWidth = 57 + ExplicitWidth = 72 end - inherited UpDown1: TUpDown [7] - Left = 601 - Top = 0 - ExplicitLeft = 601 - ExplicitTop = 0 - end - inherited ToolButton13: TToolButton [8] - end - inherited ToolButton6: TToolButton [9] + inherited ToolButton13: TToolButton [7] Left = 0 + Top = 0 + Wrap = True ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitHeight = 27 end - inherited ToolButton7: TToolButton [10] - Left = 66 - Top = 30 - ExplicitLeft = 66 - ExplicitTop = 30 + inherited UpDown1: TUpDown [8] + Left = 0 + Top = 27 + ExplicitLeft = 0 + ExplicitTop = 27 end - inherited ToolButton8: TToolButton [11] - Left = 133 - Top = 30 - ExplicitLeft = 133 - ExplicitTop = 30 + inherited ToolButton6: TToolButton + Left = 17 + Top = 27 + ExplicitLeft = 17 + ExplicitTop = 27 end - inherited ToolButton12: TToolButton [12] - Left = 216 - Top = 30 - ExplicitLeft = 216 - ExplicitTop = 30 + inherited ToolButton7: TToolButton + Left = 83 + Top = 27 + ExplicitLeft = 83 + 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 inherited ToolButton9: TToolButton - Left = 224 - Top = 30 - ExplicitLeft = 224 - ExplicitTop = 30 + Left = 241 + Top = 27 + ExplicitLeft = 241 + ExplicitTop = 27 end - inherited ToolButton10: TToolButton [14] - Left = 369 - Top = 30 - ExplicitLeft = 369 - ExplicitTop = 30 + inherited ToolButton10: TToolButton + Left = 386 + Top = 27 + ExplicitLeft = 386 + ExplicitTop = 27 end - inherited ToolButton11: TToolButton [15] - Left = 494 - Top = 30 - ExplicitLeft = 494 - ExplicitTop = 30 + inherited ToolButton11: TToolButton + Left = 511 + Top = 27 + ExplicitLeft = 511 + ExplicitTop = 27 end end inherited cxGrid: TcxGrid @@ -283,9 +293,10 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor inherited TBXDock1: TTBXDock Top = 51 Width = 774 - ExplicitWidth = 780 + ExplicitTop = 51 + ExplicitWidth = 774 inherited TBXToolbar1: TTBXToolbar - ExplicitWidth = 626 + ExplicitWidth = 702 end end end diff --git a/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm b/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm index 7aa18f8f..fcbdf2f9 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm +++ b/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm @@ -1,6 +1,6 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor - Width = 743 - Height = 303 + Width = 451 + Height = 304 Align = alClient OnCreate = CustomViewCreate OnDestroy = CustomViewDestroy @@ -9,18 +9,16 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor object dxLayoutControl1: TdxLayoutControl Left = 0 Top = 0 - Width = 743 - Height = 303 + Width = 451 + Height = 304 Align = alClient ParentBackground = True TabOrder = 0 AutoContentSizes = [acsWidth, acsHeight] LookAndFeel = dxLayoutOfficeLookAndFeel1 - ExplicitWidth = 451 - ExplicitHeight = 304 DesignSize = ( - 743 - 303) + 451 + 304) object eReferencia: TcxDBTextEdit Left = 136 Top = 30 @@ -86,7 +84,6 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor Top = 111 DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataSource = DADataSource - Properties.ListOptions.SyncMode = True Properties.ImmediatePost = True Properties.KeyFieldNames = 'ID' Properties.ListColumns = < @@ -95,7 +92,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor end> Properties.ListOptions.GridLines = glNone Properties.ListOptions.ShowHeader = False - Properties.ListOptions.SyncMode = True + Properties.ListOptions.SyncMode = True Properties.ListSource = dsFormaPago Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D @@ -114,7 +111,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor Width = 78 end object bFormasPago: TButton - Left = 216 + Left = 162 Top = 111 Width = 132 Height = 23 @@ -143,7 +140,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor Width = 158 end inline frViewProveedorFactura: TfrViewDatosYSeleccionProveedor - Left = 376 + Left = 322 Top = 30 Width = 350 Height = 202 @@ -155,7 +152,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor ParentFont = False TabOrder = 6 ReadOnly = False - ExplicitLeft = 376 + ExplicitLeft = 322 ExplicitTop = 30 inherited dxLayoutControl1: TdxLayoutControl inherited edtNIFCIF: TcxDBTextEdit @@ -175,12 +172,12 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor Width = 327 end inherited edtCodigoPostal: TcxDBTextEdit - Left = 253 - ExplicitLeft = 253 + Left = 203 + ExplicitLeft = 203 end inherited Button3: TBitBtn - Left = 137 - ExplicitLeft = 137 + Left = 87 + ExplicitLeft = 87 end end end diff --git a/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas index ef29f3b2..4049ac4f 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas +++ b/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas @@ -132,9 +132,6 @@ begin dsFormaPago.DataTable := FFormasPago.DataTable; 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 begin dxLayoutControl1Item2.Caption := 'Fecha del abono:';