diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm index df03432d..a04b2e05 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm +++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm @@ -147,6 +147,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor inherited pgPaginas: TPageControl Width = 759 Height = 454 + ActivePage = pagContenido TabOrder = 1 OnChanging = pgPaginasChanging ExplicitWidth = 759 @@ -207,18 +208,12 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor inherited FontSize: TEdit Left = 544 Top = 0 - Width = 58 + Width = 74 ExplicitLeft = 544 ExplicitTop = 0 - ExplicitWidth = 58 + ExplicitWidth = 74 end - inherited UpDown1: TUpDown - Left = 602 - Top = 0 - ExplicitLeft = 602 - ExplicitTop = 0 - end - inherited ToolButton13: TToolButton + inherited ToolButton13: TToolButton [7] Left = 0 Top = 0 Wrap = True @@ -226,47 +221,53 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor ExplicitTop = 0 ExplicitHeight = 27 end - inherited ToolButton6: TToolButton [9] + inherited UpDown1: TUpDown [8] Left = 0 Top = 27 ExplicitLeft = 0 ExplicitTop = 27 end - inherited ToolButton7: TToolButton [10] - Left = 66 + inherited ToolButton6: TToolButton [9] + Left = 17 Top = 27 - ExplicitLeft = 66 + ExplicitLeft = 17 + ExplicitTop = 27 + end + inherited ToolButton7: TToolButton [10] + Left = 83 + Top = 27 + ExplicitLeft = 83 ExplicitTop = 27 end inherited ToolButton8: TToolButton [11] - Left = 133 + Left = 150 Top = 27 - ExplicitLeft = 133 + ExplicitLeft = 150 ExplicitTop = 27 end inherited ToolButton12: TToolButton [12] - Left = 216 + Left = 233 Top = 27 - ExplicitLeft = 216 + ExplicitLeft = 233 ExplicitTop = 27 ExplicitHeight = 22 end inherited ToolButton9: TToolButton [13] - Left = 224 + Left = 241 Top = 27 - ExplicitLeft = 224 + ExplicitLeft = 241 ExplicitTop = 27 end inherited ToolButton10: TToolButton [14] - Left = 369 + Left = 386 Top = 27 - ExplicitLeft = 369 + ExplicitLeft = 386 ExplicitTop = 27 end inherited ToolButton11: TToolButton [15] - Left = 494 + Left = 511 Top = 27 - ExplicitLeft = 494 + ExplicitLeft = 511 ExplicitTop = 27 end end @@ -277,16 +278,11 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor ExplicitTop = 77 ExplicitWidth = 751 ExplicitHeight = 349 - inherited cxGridView: TcxGridDBTableView - inherited cxGridViewIMPORTENETO: TcxGridDBColumn - Options.Editing = True - end - end end inherited TBXDock1: TTBXDock Top = 51 Width = 751 - ExplicitTop = 46 + ExplicitTop = 51 ExplicitWidth = 751 inherited TBXToolbar1: TTBXToolbar ExplicitWidth = 745 diff --git a/Source/Modulos/Albaranes de proveedor/Views/uViewDetallesAlbaranProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Views/uViewDetallesAlbaranProveedor.dfm index acff774e..88b166eb 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uViewDetallesAlbaranProveedor.dfm +++ b/Source/Modulos/Albaranes de proveedor/Views/uViewDetallesAlbaranProveedor.dfm @@ -89,6 +89,7 @@ inherited frViewDetallesAlbaranProveedor: TfrViewDetallesAlbaranProveedor end> Properties.ReadOnly = True Properties.OnButtonClick = nil + Options.Editing = False end inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn Properties.Buttons = < @@ -99,6 +100,7 @@ inherited frViewDetallesAlbaranProveedor: TfrViewDetallesAlbaranProveedor end> Properties.ReadOnly = True Properties.OnButtonClick = nil + Options.Editing = False end inherited cxGridViewREFERENCIA_FABRICANTE: TcxGridDBColumn Properties.Buttons = < @@ -109,6 +111,7 @@ inherited frViewDetallesAlbaranProveedor: TfrViewDetallesAlbaranProveedor end> Properties.ReadOnly = True Properties.OnButtonClick = nil + Options.Editing = False end inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn Visible = False diff --git a/Source/Modulos/Facturas de proveedor/Controller/uDetallesFacturaProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uDetallesFacturaProveedorController.pas index 8f5a8d75..79c3477b 100644 --- a/Source/Modulos/Facturas de proveedor/Controller/uDetallesFacturaProveedorController.pas +++ b/Source/Modulos/Facturas de proveedor/Controller/uDetallesFacturaProveedorController.pas @@ -46,7 +46,8 @@ implementation { TDetallesFacturaProveedorController } uses uDAInterfaces, Variants, uDataModuleFacturasProveedor, uArticulosFacturaProveedorController, - uControllerDetallesBase, Dialogs, SysUtils, uDialogUtils, uCalculosUtils, schArticulosClient_Intf; + uControllerDetallesBase, Dialogs, SysUtils, uDialogUtils, uCalculosUtils, schArticulosClient_Intf, + schFacturasProveedorClient_Intf; procedure TDetallesFacturaProveedorController.ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); var @@ -150,7 +151,7 @@ begin AField := AArticulos.DataTable.FindField(fld_ArticulosREFERENCIA_FABR); if Assigned(AField) then - ADetalles.DataTable.FieldByName(fld_ArticulosREFERENCIA_FABR).AsVariant := AField.AsVariant; + ADetalles.DataTable.FieldByName(fld_FacturasProveedor_DetallesREFERENCIA_FABRICANTE).AsVariant := AField.AsVariant; end; procedure TDetallesFacturaProveedorController.ValidarCampos(DataTable: TDADataTable); diff --git a/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj b/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj index eceefbab..1a14131b 100644 --- a/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj +++ b/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj @@ -11,6 +11,7 @@ + @@ -191,14 +192,23 @@ + + + + + + + + + - + - + - + \ No newline at end of file diff --git a/Source/Modulos/Facturas de proveedor/Views/uViewDetallesFacturaProveedor.dfm b/Source/Modulos/Facturas de proveedor/Views/uViewDetallesFacturaProveedor.dfm index 43d0ddcc..befb7d49 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uViewDetallesFacturaProveedor.dfm +++ b/Source/Modulos/Facturas de proveedor/Views/uViewDetallesFacturaProveedor.dfm @@ -85,6 +85,7 @@ inherited frViewDetallesFacturaProveedor: TfrViewDetallesFacturaProveedor end> Properties.ReadOnly = True Properties.OnButtonClick = nil + Options.Editing = False end inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn Properties.Buttons = < @@ -95,6 +96,7 @@ inherited frViewDetallesFacturaProveedor: TfrViewDetallesFacturaProveedor end> Properties.ReadOnly = True Properties.OnButtonClick = nil + Options.Editing = False end inherited cxGridViewREFERENCIA_FABRICANTE: TcxGridDBColumn Properties.Buttons = < @@ -105,6 +107,7 @@ inherited frViewDetallesFacturaProveedor: TfrViewDetallesFacturaProveedor end> Properties.ReadOnly = True Properties.OnButtonClick = nil + Options.Editing = False end inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn Visible = False @@ -112,9 +115,7 @@ inherited frViewDetallesFacturaProveedor: TfrViewDetallesFacturaProveedor end inherited cxGridViewIMPORTENETO: TcxGridDBColumn Caption = 'Importe coste' - Properties.ReadOnly = False Visible = True - Options.Editing = True end end end diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm index a2560026..63fd455a 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm +++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm @@ -64,6 +64,7 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor inherited pgPaginas: TPageControl Width = 873 Height = 486 + ActivePage = pagContenido TabOrder = 1 OnChanging = pgPaginasChanging ExplicitWidth = 873 @@ -100,22 +101,10 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor Height = 51 ExplicitWidth = 865 ExplicitHeight = 51 - inherited ToolButton3: TToolButton + inherited ToolButton14: TToolButton Wrap = False end - inherited ToolButton4: TToolButton - Left = 278 - Top = 0 - ExplicitLeft = 278 - ExplicitTop = 0 - end - inherited ToolButton14: TToolButton [4] - Left = 334 - Top = 0 - ExplicitLeft = 334 - ExplicitTop = 0 - end - inherited FontName: TJvFontComboBox [5] + inherited FontName: TJvFontComboBox Left = 399 Top = 0 ExplicitLeft = 399 @@ -129,13 +118,7 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor ExplicitTop = 0 ExplicitWidth = 134 end - inherited UpDown1: TUpDown - Left = 678 - Top = 0 - ExplicitLeft = 678 - ExplicitTop = 0 - end - inherited ToolButton13: TToolButton + inherited ToolButton13: TToolButton [7] Left = 0 Top = 0 Wrap = True @@ -143,47 +126,54 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor ExplicitTop = 0 ExplicitHeight = 27 end - inherited ToolButton6: TToolButton [9] + inherited UpDown1: TUpDown [8] Left = 0 Top = 27 ExplicitLeft = 0 ExplicitTop = 27 end - inherited ToolButton7: TToolButton [10] - Left = 66 + inherited ToolButton6: TToolButton + Left = 17 Top = 27 - ExplicitLeft = 66 + ExplicitLeft = 17 ExplicitTop = 27 end - inherited ToolButton8: TToolButton [11] - Left = 133 + inherited ToolButton7: TToolButton + Left = 83 Top = 27 - ExplicitLeft = 133 + ExplicitLeft = 83 ExplicitTop = 27 end - inherited ToolButton12: TToolButton [12] - Left = 216 + inherited ToolButton8: TToolButton + Left = 150 Top = 27 - ExplicitLeft = 216 + ExplicitLeft = 150 + ExplicitTop = 27 + end + inherited ToolButton12: TToolButton + Left = 233 + Top = 27 + Wrap = False + ExplicitLeft = 233 ExplicitTop = 27 ExplicitHeight = 22 end - inherited ToolButton9: TToolButton [13] - Left = 224 + inherited ToolButton9: TToolButton + Left = 241 Top = 27 - ExplicitLeft = 224 + ExplicitLeft = 241 ExplicitTop = 27 end - inherited ToolButton10: TToolButton [14] - Left = 369 + inherited ToolButton10: TToolButton + Left = 386 Top = 27 - ExplicitLeft = 369 + ExplicitLeft = 386 ExplicitTop = 27 end - inherited ToolButton11: TToolButton [15] - Left = 494 + inherited ToolButton11: TToolButton + Left = 511 Top = 27 - ExplicitLeft = 494 + ExplicitLeft = 511 ExplicitTop = 27 end end @@ -195,9 +185,6 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor ExplicitWidth = 865 ExplicitHeight = 381 inherited cxGridView: TcxGridDBTableView - inherited cxGridViewIMPORTENETO: TcxGridDBColumn - Options.Editing = True - end end end inherited TBXDock1: TTBXDock diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewDetallesPedidoProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uViewDetallesPedidoProveedor.dfm index ad8b6567..f72d00b1 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uViewDetallesPedidoProveedor.dfm +++ b/Source/Modulos/Pedidos a proveedor/Views/uViewDetallesPedidoProveedor.dfm @@ -89,6 +89,7 @@ inherited frViewDetallesPedidoProveedor: TfrViewDetallesPedidoProveedor end> Properties.ReadOnly = True Properties.OnButtonClick = nil + Options.Editing = False end inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn Properties.Buttons = < @@ -99,6 +100,7 @@ inherited frViewDetallesPedidoProveedor: TfrViewDetallesPedidoProveedor end> Properties.ReadOnly = True Properties.OnButtonClick = nil + Options.Editing = False end inherited cxGridViewREFERENCIA_FABRICANTE: TcxGridDBColumn Properties.Buttons = < @@ -109,6 +111,7 @@ inherited frViewDetallesPedidoProveedor: TfrViewDetallesPedidoProveedor end> Properties.ReadOnly = True Properties.OnButtonClick = nil + Options.Editing = False end inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn Visible = False diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm index 9181b458..c9de8267 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm +++ b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm @@ -52,11 +52,15 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor object cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn Caption = 'Compensado' DataBinding.FieldName = 'ID_RECIBO_COMPENSADO' + Visible = False OnCustomDrawCell = cxGridViewID_RECIBO_COMPENSADOCustomDrawCell + VisibleForCustomization = False end object cxGridViewREFERENCIA_REC_COMPENSADO: TcxGridDBColumn Caption = 'Ref. recibo compensado' DataBinding.FieldName = 'REFERENCIA_REC_COMPENSADO' + Visible = False + VisibleForCustomization = False end object cxGridViewREFERENCIA_FACTURA_PROV: TcxGridDBColumn Caption = 'Ref. factura prov.' @@ -161,8 +165,8 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor Width = 531 ExplicitWidth = 531 inherited txtFiltroTodo: TcxTextEdit - ExplicitWidth = 434 - Width = 434 + ExplicitWidth = 491 + Width = 491 end inherited edtFechaIniFiltro: TcxDateEdit ExplicitWidth = 201 @@ -174,6 +178,10 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor ExplicitWidth = 216 Width = 216 end + inherited eLista: TcxComboBox + Left = 558 + ExplicitLeft = 558 + end end inherited TBXAlignmentPanel1: TTBXAlignmentPanel Width = 531 diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index d691937b..d4ba2654 100644 Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index b6e99f2a..a16b0cab 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -14,7 +14,7 @@ BEGIN BEGIN VALUE "FileVersion", "1.2.0.0\0" VALUE "ProductVersion", "1.2.0.0\0" - VALUE "CompileDate", "lunes, 04 de agosto de 2008 11:48\0" + VALUE "CompileDate", "lunes, 04 de agosto de 2008 15:56\0" END END BLOCK "VarFileInfo"