From 0ca1948d80404a05089317e6e5051bc87e87f3df Mon Sep 17 00:00:00 2001 From: david Date: Tue, 4 Mar 2008 19:03:51 +0000 Subject: [PATCH] Presupuestos: unidades de medida en los detalles. git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@333 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- Database/scripts/factuges.sql | 6 +- Source/Informes/InfPresupuestoCliente.fr3 | 4 +- .../Views/uViewDetallesArticulos.dfm | 142 ++++++++------- .../Views/uViewDetallesArticulos.pas | 74 +++++--- .../Data/uDataModulePresupuestosCliente.dfm | 11 ++ .../schPresupuestosClienteClient_Intf.pas | 59 ++++-- .../schPresupuestosClienteServer_Intf.pas | 51 +++++- .../uRptPresupuestosCliente_Server.dfm | 9 + .../Servidor/srvPresupuestosCliente_Impl.dfm | 63 +++++-- .../Views/PresupuestosCliente_view.dproj | 14 +- .../Views/PresupuestosCliente_view.res | Bin 4748 -> 384 bytes .../Views/uEditorPresupuestoCliente.dfm | 90 ++++------ .../Views/uViewDetallesPresupuestoCliente.dfm | 170 ++++++++++-------- 13 files changed, 438 insertions(+), 255 deletions(-) diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql index 11b3fd86..37a93d84 100644 --- a/Database/scripts/factuges.sql +++ b/Database/scripts/factuges.sql @@ -968,6 +968,7 @@ CREATE TABLE PRESUPUESTOS_CLIENTE_DETALLES ( ID_ARTICULO TIPO_ID, CONCEPTO TIPO_CONCEPTO, CANTIDAD INTEGER, + UNIDAD_MEDIDA VARCHAR(255), IMPORTE_UNIDAD TIPO_IMPORTE, DESCUENTO TIPO_PORCENTAJE, IMPORTE_PORTE TIPO_IMPORTE, @@ -2747,6 +2748,7 @@ returns ( referencia varchar(255), concepto varchar(2000), cantidad integer, + unidad_medida varchar(255), importe_unidad numeric(11,2), descuento float, importe_porte numeric(11,2), @@ -2758,7 +2760,7 @@ begin capitulo_actual = -1; ID_CAPITULO = -1; for select pre.id, pre.id_presupuesto, pre.posicion, pre.tipo_detalle, - pre.id_articulo, articulos.referencia, pre.concepto, pre.cantidad, + pre.id_articulo, articulos.referencia, pre.concepto, pre.cantidad, pre.unidad_medida, pre.importe_unidad, pre.descuento, pre.importe_porte, pre.importe_total, coalesce(pre.visible, 1) from presupuestos_cliente_detalles pre @@ -2766,7 +2768,7 @@ for select pre.id, pre.id_presupuesto, pre.posicion, pre.tipo_detalle, where pre.id_presupuesto = :AID order by pre.id_presupuesto, pre.posicion into :ID, :ID_PRESUPUESTO, :POSICION, :TIPO_DETALLE, :ID_ARTICULO, - :REFERENCIA, :CONCEPTO, :CANTIDAD, :IMPORTE_UNIDAD, :DESCUENTO, + :REFERENCIA, :CONCEPTO, :CANTIDAD, :UNIDAD_MEDIDA, :IMPORTE_UNIDAD, :DESCUENTO, :IMPORTE_PORTE, :IMPORTE_TOTAL, :VISIBLE do begin diff --git a/Source/Informes/InfPresupuestoCliente.fr3 b/Source/Informes/InfPresupuestoCliente.fr3 index f0e63e1b..d1389c58 100644 --- a/Source/Informes/InfPresupuestoCliente.fr3 +++ b/Source/Informes/InfPresupuestoCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -73,7 +73,7 @@ - + diff --git a/Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm b/Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm index ed7cdc49..4863f568 100644 --- a/Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm +++ b/Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm @@ -2,66 +2,32 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos ParentBiDiMode = False OnShow = CustomViewShow inherited ToolBar1: TToolBar - Height = 73 - ExplicitHeight = 73 - inherited ToolButton3: TToolButton + Height = 100 + ExplicitHeight = 100 + inherited ToolButton14: TToolButton Wrap = False end - inherited ToolButton4: TToolButton - Left = 278 - Top = 0 - ExplicitLeft = 278 - ExplicitTop = 0 - end - inherited ToolButton14: TToolButton - Left = 334 - Top = 0 - ExplicitLeft = 334 - ExplicitTop = 0 - end - inherited FontName: TJvFontComboBox + inherited ToolButton9: TToolButton [5] + Left = 121 Top = 22 + ExplicitLeft = 121 ExplicitTop = 22 end - inherited FontSize: TEdit + inherited FontName: TJvFontComboBox [6] + Left = 266 Top = 22 - Width = 42 + ExplicitLeft = 266 ExplicitTop = 22 - ExplicitWidth = 42 end inherited UpDown1: TUpDown - Left = 187 + Left = 411 Top = 22 Width = 17 - ExplicitLeft = 187 + ExplicitLeft = 411 ExplicitTop = 22 ExplicitWidth = 17 end inherited ToolButton13: TToolButton - Left = 204 - Top = 22 - ExplicitLeft = 204 - ExplicitTop = 22 - end - inherited ToolButton6: TToolButton - Left = 212 - Top = 22 - ExplicitLeft = 212 - ExplicitTop = 22 - end - inherited ToolButton7: TToolButton - Left = 278 - Top = 22 - ExplicitLeft = 278 - ExplicitTop = 22 - end - inherited ToolButton8: TToolButton - Left = 345 - Top = 22 - ExplicitLeft = 345 - ExplicitTop = 22 - end - inherited ToolButton12: TToolButton Left = 0 Top = 22 Wrap = True @@ -69,31 +35,61 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos ExplicitTop = 22 ExplicitHeight = 27 end - inherited ToolButton9: TToolButton + inherited ToolButton6: TToolButton Left = 0 Top = 49 ExplicitLeft = 0 ExplicitTop = 49 end - inherited ToolButton10: TToolButton - Left = 145 + inherited ToolButton7: TToolButton + Left = 66 Top = 49 - ExplicitLeft = 145 + ExplicitLeft = 66 ExplicitTop = 49 end - inherited ToolButton11: TToolButton - Left = 270 + inherited FontSize: TEdit [11] + Left = 133 Top = 49 - ExplicitLeft = 270 + Width = 42 + ExplicitLeft = 133 ExplicitTop = 49 + ExplicitWidth = 42 + end + inherited ToolButton11: TToolButton [12] + Left = 175 + Top = 49 + ExplicitLeft = 175 + ExplicitTop = 49 + end + inherited ToolButton12: TToolButton [13] + Left = 0 + Top = 49 + Wrap = True + ExplicitLeft = 0 + ExplicitTop = 49 + ExplicitHeight = 27 + end + inherited ToolButton10: TToolButton + Left = 0 + Top = 76 + ExplicitLeft = 0 + ExplicitTop = 76 + end + inherited ToolButton8: TToolButton [15] + Left = 125 + Top = 76 + ExplicitLeft = 125 + ExplicitTop = 76 end end inherited cxGrid: TcxGrid - Top = 99 - Height = 205 - ExplicitTop = 99 + Top = 126 + Height = 178 ExplicitHeight = 205 inherited cxGridView: TcxGridDBTableView + inherited cxGridViewTIPO: TcxGridDBColumn + Width = 69 + end object cxGridViewID_ARTICULO: TcxGridDBColumn [4] DataBinding.FieldName = 'ID_ARTICULO' Visible = False @@ -110,42 +106,56 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos Kind = bkEllipsis end> Properties.OnButtonClick = cxGridViewREFERENCIAPropertiesButtonClick - Width = 59 + BestFitMaxWidth = 50 + Width = 90 end object cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn [6] Caption = 'Ref. proveedor' DataBinding.FieldName = 'REFERENCIA_PROVEEDOR' PropertiesClassName = 'TcxTextEditProperties' - Width = 66 + BestFitMaxWidth = 50 + Width = 90 end inherited cxGridViewDESCRIPCION: TcxGridDBColumn - Width = 85 + Width = 298 end - object cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn [8] + inherited cxGridViewCANTIDAD: TcxGridDBColumn + BestFitMaxWidth = 50 + Width = 91 + end + object cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn [9] Caption = 'Unid. medida' PropertiesClassName = 'TcxComboBoxProperties' Properties.ImmediatePost = True Properties.ImmediateUpdateText = True - Properties.OnInitPopup = cxGridViewUNIDAD_MEDIDAPropertiesInitPopup - Visible = False - Options.CellMerging = True + Properties.PostPopupValueOnTab = True + BestFitMaxWidth = 50 Width = 60 end inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn - Width = 50 + BestFitMaxWidth = 50 + Width = 80 end inherited cxGridViewDESCUENTO: TcxGridDBColumn + BestFitMaxWidth = 50 HeaderAlignmentHorz = taRightJustify Width = 25 end + inherited cxGridViewIMPORTENETO: TcxGridDBColumn + BestFitMaxWidth = 50 + end + inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn + BestFitMaxWidth = 50 + end inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn - Width = 50 + BestFitMaxWidth = 50 + Width = 77 end end end inherited TBXDock1: TTBXDock - Top = 73 - ExplicitTop = 73 + Top = 100 + ExplicitWidth = 451 inherited TBXToolbar1: TTBXToolbar inherited TBXSubmenuItem1: TTBXSubmenuItem object TBXSeparatorItem8: TTBXSeparatorItem [4] diff --git a/Source/Modulos/Articulos/Views/uViewDetallesArticulos.pas b/Source/Modulos/Articulos/Views/uViewDetallesArticulos.pas index 2509d373..fd18a466 100644 --- a/Source/Modulos/Articulos/Views/uViewDetallesArticulos.pas +++ b/Source/Modulos/Articulos/Views/uViewDetallesArticulos.pas @@ -34,7 +34,6 @@ type procedure OnValidateReferencia(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); procedure OnValidateReferenciaProveedor(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); procedure CustomViewShow(Sender: TObject); - procedure cxGridViewUNIDAD_MEDIDAPropertiesInitPopup(Sender: TObject); procedure cxGridViewREFERENCIAPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure actBuscarArticuloExecute(Sender: TObject); @@ -42,6 +41,8 @@ type procedure actDetalleCopiarExecute(Sender: TObject); procedure actDetallePegarExecute(Sender: TObject); procedure actDetalleCortarExecute(Sender: TObject); + private + procedure RecuperarListaUnidadesMedida; protected procedure AnadirArticulosInterno; virtual; procedure RellenarArticulosInterno; virtual; @@ -92,6 +93,28 @@ end; procedure TfrViewDetallesArticulos.CustomViewShow(Sender: TObject); begin inherited; + + with DADataSource.DataTable do + begin + cxGridView.BeginUpdate; + try + if Assigned(FindField('UNIDAD_MEDIDA')) then + begin + cxGridViewUNIDAD_MEDIDA.DataBinding.FieldName := 'UNIDAD_MEDIDA'; + cxGridViewUNIDAD_MEDIDA.Visible := True; + cxGridViewUNIDAD_MEDIDA.VisibleForCustomization := True; + RecuperarListaUnidadesMedida; + end + else begin + cxGridViewUNIDAD_MEDIDA.DataBinding.FieldName := ''; + cxGridViewUNIDAD_MEDIDA.Visible := False; + cxGridViewUNIDAD_MEDIDA.VisibleForCustomization := False; + end; + finally + cxGridView.EndUpdate; + end; + end; + SeleccionarRowActual; end; @@ -102,31 +125,6 @@ begin actBuscarArticulo.Execute; end; -procedure TfrViewDetallesArticulos.cxGridViewUNIDAD_MEDIDAPropertiesInitPopup( - Sender: TObject); -var - AUnidController : IUnidadesMedidaController; -begin - inherited; - with TcxComboBoxProperties(cxGridViewUNIDAD_MEDIDA.Properties).Items do - begin - if (Count = 0) then - begin - ShowHourglassCursor; - BeginUpdate; - AUnidController := TUnidadesMedidaController.Create; - try - Clear; - AddStrings(AUnidController.DarListaUnidadesMedida); - finally - EndUpdate; - AUnidController := NIL; - HideHourglassCursor; - end; - end; - end; -end; - function TfrViewDetallesArticulos.EsTipoEditable( AItem: TcxCustomGridTableItem): Boolean; var @@ -186,6 +184,30 @@ begin end; end; +procedure TfrViewDetallesArticulos.RecuperarListaUnidadesMedida; +var + AUnidController : IUnidadesMedidaController; +begin + inherited; + with TcxComboBoxProperties(cxGridViewUNIDAD_MEDIDA.Properties).Items do + begin + if (Count = 0) then + begin + ShowHourglassCursor; + BeginUpdate; + AUnidController := TUnidadesMedidaController.Create; + try + Clear; + AddStrings(AUnidController.DarListaUnidadesMedida); + finally + EndUpdate; + AUnidController := NIL; + HideHourglassCursor; + end; + end; + end; +end; + procedure TfrViewDetallesArticulos.RellenarArticulosInterno; begin (Controller as IControllerDetallesArticulos).AnadirArticulos(Detalles, False); diff --git a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm index 326a15b5..618c1881 100644 --- a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm @@ -271,6 +271,13 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente Alignment = taRightJustify DictionaryEntry = 'PresupuestosCliente_Detalles_CANTIDAD' end + item + Name = 'UNIDAD_MEDIDA' + DataType = datString + Size = 255 + DisplayLabel = 'Unidad de medida' + DictionaryEntry = 'PresupuestosCliente_Detalles_UNIDAD_MEDIDA' + end item Name = 'IMPORTE_UNIDAD' DataType = datCurrency @@ -314,11 +321,15 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente Name = 'REFERENCIA' DataType = datString Size = 255 + DisplayLabel = 'PresupuestosCliente_Detalles_REFERENCIA' + DictionaryEntry = 'PresupuestosCliente_Detalles_REFERENCIA' end item Name = 'REFERENCIA_PROVEEDOR' DataType = datString Size = 255 + DisplayLabel = 'PresupuestosCliente_Detalles_REFERENCIA_PROVEEDOR' + DictionaryEntry = 'PresupuestosCliente_Detalles_REFERENCIA_PROVEEDOR' end> Params = <> MasterMappingMode = mmWhere diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas index 5e8ca2e6..0e6b11d9 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas +++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas @@ -9,8 +9,8 @@ const { Data table rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_PresupuestosCliente = '{94236A84-1D4D-4C03-8863-F1A5ABC6DE7E}'; - RID_PresupuestosCliente_Detalles = '{9FAA114D-94F9-4451-89F0-067F52ED606D}'; + RID_PresupuestosCliente = '{D3A7E867-7723-4779-B542-60D5E98F8E76}'; + RID_PresupuestosCliente_Detalles = '{6E3FCEDE-6365-4A46-A5C1-DD370767BDE4}'; { Data table names } nme_PresupuestosCliente = 'PresupuestosCliente'; @@ -85,6 +85,7 @@ const fld_PresupuestosCliente_DetallesTIPO_DETALLE = 'TIPO_DETALLE'; fld_PresupuestosCliente_DetallesCONCEPTO = 'CONCEPTO'; fld_PresupuestosCliente_DetallesCANTIDAD = 'CANTIDAD'; + fld_PresupuestosCliente_DetallesUNIDAD_MEDIDA = 'UNIDAD_MEDIDA'; fld_PresupuestosCliente_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD'; fld_PresupuestosCliente_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL'; fld_PresupuestosCliente_DetallesVISIBLE = 'VISIBLE'; @@ -101,19 +102,20 @@ const idx_PresupuestosCliente_DetallesTIPO_DETALLE = 3; idx_PresupuestosCliente_DetallesCONCEPTO = 4; idx_PresupuestosCliente_DetallesCANTIDAD = 5; - idx_PresupuestosCliente_DetallesIMPORTE_UNIDAD = 6; - idx_PresupuestosCliente_DetallesIMPORTE_TOTAL = 7; - idx_PresupuestosCliente_DetallesVISIBLE = 8; - idx_PresupuestosCliente_DetallesID_ARTICULO = 9; - idx_PresupuestosCliente_DetallesDESCUENTO = 10; - idx_PresupuestosCliente_DetallesIMPORTE_PORTE = 11; - idx_PresupuestosCliente_DetallesREFERENCIA = 12; - idx_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR = 13; + idx_PresupuestosCliente_DetallesUNIDAD_MEDIDA = 6; + idx_PresupuestosCliente_DetallesIMPORTE_UNIDAD = 7; + idx_PresupuestosCliente_DetallesIMPORTE_TOTAL = 8; + idx_PresupuestosCliente_DetallesVISIBLE = 9; + idx_PresupuestosCliente_DetallesID_ARTICULO = 10; + idx_PresupuestosCliente_DetallesDESCUENTO = 11; + idx_PresupuestosCliente_DetallesIMPORTE_PORTE = 12; + idx_PresupuestosCliente_DetallesREFERENCIA = 13; + idx_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR = 14; type { IPresupuestosCliente } IPresupuestosCliente = interface(IDAStronglyTypedDataTable) - ['{79249950-0D0F-48D8-8C75-C6FA49610190}'] + ['{1C22CC0C-D0FB-4720-8528-8455BBAFA3B0}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -484,7 +486,7 @@ type { IPresupuestosCliente_Detalles } IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{E028BA0A-DF1D-4E68-BAA8-5FE7F1E053F4}'] + ['{1EBF41FD-FA98-4313-B352-5903FF6C09AC}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -510,6 +512,10 @@ type procedure SetCANTIDADValue(const aValue: Integer); function GetCANTIDADIsNull: Boolean; procedure SetCANTIDADIsNull(const aValue: Boolean); + function GetUNIDAD_MEDIDAValue: String; + procedure SetUNIDAD_MEDIDAValue(const aValue: String); + function GetUNIDAD_MEDIDAIsNull: Boolean; + procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); function GetIMPORTE_UNIDADValue: Currency; procedure SetIMPORTE_UNIDADValue(const aValue: Currency); function GetIMPORTE_UNIDADIsNull: Boolean; @@ -557,6 +563,8 @@ type property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue; property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull; + property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue; + property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull; property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue; property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; @@ -604,6 +612,10 @@ type procedure SetCANTIDADValue(const aValue: Integer); virtual; function GetCANTIDADIsNull: Boolean; virtual; procedure SetCANTIDADIsNull(const aValue: Boolean); virtual; + function GetUNIDAD_MEDIDAValue: String; virtual; + procedure SetUNIDAD_MEDIDAValue(const aValue: String); virtual; + function GetUNIDAD_MEDIDAIsNull: Boolean; virtual; + procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); virtual; function GetIMPORTE_UNIDADValue: Currency; virtual; procedure SetIMPORTE_UNIDADValue(const aValue: Currency); virtual; function GetIMPORTE_UNIDADIsNull: Boolean; virtual; @@ -650,6 +662,8 @@ type property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue; property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull; + property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue; + property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull; property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue; property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; @@ -1457,6 +1471,27 @@ begin DataTable.Fields[idx_PresupuestosCliente_DetallesCANTIDAD].AsVariant := Null; end; +function TPresupuestosCliente_DetallesDataTableRules.GetUNIDAD_MEDIDAValue: String; +begin + result := DataTable.Fields[idx_PresupuestosCliente_DetallesUNIDAD_MEDIDA].AsString; +end; + +procedure TPresupuestosCliente_DetallesDataTableRules.SetUNIDAD_MEDIDAValue(const aValue: String); +begin + DataTable.Fields[idx_PresupuestosCliente_DetallesUNIDAD_MEDIDA].AsString := aValue; +end; + +function TPresupuestosCliente_DetallesDataTableRules.GetUNIDAD_MEDIDAIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosCliente_DetallesUNIDAD_MEDIDA].IsNull; +end; + +procedure TPresupuestosCliente_DetallesDataTableRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosCliente_DetallesUNIDAD_MEDIDA].AsVariant := Null; +end; + function TPresupuestosCliente_DetallesDataTableRules.GetIMPORTE_UNIDADValue: Currency; begin result := DataTable.Fields[idx_PresupuestosCliente_DetallesIMPORTE_UNIDAD].AsCurrency; diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas index 77e4fa9a..0804d5e4 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas +++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas @@ -9,13 +9,13 @@ const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_PresupuestosClienteDelta = '{29052B55-642A-49D3-B556-B60088C1133B}'; - RID_PresupuestosCliente_DetallesDelta = '{5223CE51-3EA9-4F61-BA3B-6D7B6718C52C}'; + RID_PresupuestosClienteDelta = '{DCB50BF3-1A19-4576-9518-052B46AA131D}'; + RID_PresupuestosCliente_DetallesDelta = '{7F662AE1-222D-4747-8A74-1B5A652617CD}'; type { IPresupuestosClienteDelta } IPresupuestosClienteDelta = interface(IPresupuestosCliente) - ['{29052B55-642A-49D3-B556-B60088C1133B}'] + ['{DCB50BF3-1A19-4576-9518-052B46AA131D}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -389,7 +389,7 @@ type { IPresupuestosCliente_DetallesDelta } IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles) - ['{5223CE51-3EA9-4F61-BA3B-6D7B6718C52C}'] + ['{7F662AE1-222D-4747-8A74-1B5A652617CD}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_PRESUPUESTOValue : Integer; @@ -397,6 +397,7 @@ type function GetOldTIPO_DETALLEValue : String; function GetOldCONCEPTOValue : String; function GetOldCANTIDADValue : Integer; + function GetOldUNIDAD_MEDIDAValue : String; function GetOldIMPORTE_UNIDADValue : Currency; function GetOldIMPORTE_TOTALValue : Currency; function GetOldVISIBLEValue : Integer; @@ -413,6 +414,7 @@ type property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue; property OldCONCEPTO : String read GetOldCONCEPTOValue; property OldCANTIDAD : Integer read GetOldCANTIDADValue; + property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue; property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldVISIBLE : Integer read GetOldVISIBLEValue; @@ -464,6 +466,12 @@ type function GetOldCANTIDADIsNull: Boolean; virtual; procedure SetCANTIDADValue(const aValue: Integer); virtual; procedure SetCANTIDADIsNull(const aValue: Boolean); virtual; + function GetUNIDAD_MEDIDAValue: String; virtual; + function GetUNIDAD_MEDIDAIsNull: Boolean; virtual; + function GetOldUNIDAD_MEDIDAValue: String; virtual; + function GetOldUNIDAD_MEDIDAIsNull: Boolean; virtual; + procedure SetUNIDAD_MEDIDAValue(const aValue: String); virtual; + procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); virtual; function GetIMPORTE_UNIDADValue: Currency; virtual; function GetIMPORTE_UNIDADIsNull: Boolean; virtual; function GetOldIMPORTE_UNIDADValue: Currency; virtual; @@ -538,6 +546,10 @@ type property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull; property OldCANTIDAD : Integer read GetOldCANTIDADValue; property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull; + property UNIDAD_MEDIDA : String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue; + property UNIDAD_MEDIDAIsNull : Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull; + property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue; + property OldUNIDAD_MEDIDAIsNull : Boolean read GetOldUNIDAD_MEDIDAIsNull; property IMPORTE_UNIDAD : Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue; property IMPORTE_UNIDADIsNull : Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue; @@ -1716,6 +1728,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesCANTIDAD] := Null; end; +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetUNIDAD_MEDIDAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesUNIDAD_MEDIDA]; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetUNIDAD_MEDIDAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesUNIDAD_MEDIDA]); +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldUNIDAD_MEDIDAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesUNIDAD_MEDIDA]; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldUNIDAD_MEDIDAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesUNIDAD_MEDIDA]); +end; + +procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetUNIDAD_MEDIDAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesUNIDAD_MEDIDA] := aValue; +end; + +procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesUNIDAD_MEDIDA] := Null; +end; + function TPresupuestosCliente_DetallesBusinessProcessorRules.GetIMPORTE_UNIDADValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesIMPORTE_UNIDAD]; diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm index 3019b099..1405f553 100644 --- a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm +++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm @@ -358,6 +358,10 @@ object RptPresupuestosCliente: TRptPresupuestosCliente item DatasetField = 'VISIBLE' TableField = 'VISIBLE' + end + item + DatasetField = 'UNIDAD_MEDIDA' + TableField = 'UNIDAD_MEDIDA' end> end> Name = 'Informe_Capitulos_Detalles' @@ -402,6 +406,11 @@ object RptPresupuestosCliente: TRptPresupuestosCliente Name = 'CANTIDAD' DataType = datInteger end + item + Name = 'UNIDAD_MEDIDA' + DataType = datString + Size = 255 + end item Name = 'IMPORTE_UNIDAD' DataType = datCurrency diff --git a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm index 8fafb847..f2b441ea 100644 --- a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm +++ b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm @@ -311,14 +311,15 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente 'E_DETALLES.ID_PRESUPUESTO,'#10' PRESUPUESTOS_CLIENTE_DETALLES.POS' + 'ICION, PRESUPUESTOS_CLIENTE_DETALLES.TIPO_DETALLE,'#10' PRESUPUES' + 'TOS_CLIENTE_DETALLES.CONCEPTO, PRESUPUESTOS_CLIENTE_DETALLES.CAN' + - 'TIDAD,'#10' PRESUPUESTOS_CLIENTE_DETALLES.IMPORTE_UNIDAD, PRESUPU' + - 'ESTOS_CLIENTE_DETALLES.IMPORTE_TOTAL,'#10' PRESUPUESTOS_CLIENTE_D' + - 'ETALLES.VISIBLE,'#10#10' PRESUPUESTOS_CLIENTE_DETALLES.ID_ARTICULO,' + - ' PRESUPUESTOS_CLIENTE_DETALLES.DESCUENTO,'#10' PRESUPUESTOS_CLIEN' + - 'TE_DETALLES.IMPORTE_PORTE, ARTICULOS.REFERENCIA, ARTICULOS.REFER' + - 'ENCIA_PROV as REFERENCIA_PROVEEDOR'#10#10'FROM PRESUPUESTOS_CLIENTE_DE' + - 'TALLES'#10'LEFT JOIN ARTICULOS ON PRESUPUESTOS_CLIENTE_DETALLES.ID_A' + - 'RTICULO = ARTICULOS.ID'#10'where {where}'#10'ORDER BY POSICION;'#10#10#10 + 'TIDAD,'#10' PRESUPUESTOS_CLIENTE_DETALLES.UNIDAD_MEDIDA,'#10' PRES' + + 'UPUESTOS_CLIENTE_DETALLES.IMPORTE_UNIDAD, PRESUPUESTOS_CLIENTE_D' + + 'ETALLES.IMPORTE_TOTAL,'#10' PRESUPUESTOS_CLIENTE_DETALLES.VISIBLE' + + ','#10#10' PRESUPUESTOS_CLIENTE_DETALLES.ID_ARTICULO, PRESUPUESTOS_C' + + 'LIENTE_DETALLES.DESCUENTO,'#10' PRESUPUESTOS_CLIENTE_DETALLES.IMP' + + 'ORTE_PORTE, ARTICULOS.REFERENCIA, ARTICULOS.REFERENCIA_PROV as R' + + 'EFERENCIA_PROVEEDOR'#10#10'FROM PRESUPUESTOS_CLIENTE_DETALLES'#10'LEFT JOI' + + 'N ARTICULOS ON PRESUPUESTOS_CLIENTE_DETALLES.ID_ARTICULO = ARTIC' + + 'ULOS.ID'#10'where {where}'#10'ORDER BY POSICION;'#10#10#10 StatementType = stSQL ColumnMappings = < item @@ -378,6 +379,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente DatasetField = 'REFERENCIA_PROVEEDOR' TableField = '' SQLOrigin = 'REFERENCIA_PROVEEDOR' + end + item + DatasetField = 'UNIDAD_MEDIDA' + TableField = 'UNIDAD_MEDIDA' end> end> Name = 'PresupuestosCliente_Detalles' @@ -417,6 +422,12 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente DataType = datInteger DictionaryEntry = 'PresupuestosCliente_Detalles_CANTIDAD' end + item + Name = 'UNIDAD_MEDIDA' + DataType = datString + Size = 255 + DictionaryEntry = 'PresupuestosCliente_Detalles_UNIDAD_MEDIDA' + end item Name = 'IMPORTE_UNIDAD' DataType = datCurrency @@ -451,11 +462,13 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente Name = 'REFERENCIA' DataType = datString Size = 255 + DictionaryEntry = 'PresupuestosCliente_Detalles_REFERENCIA' end item Name = 'REFERENCIA_PROVEEDOR' DataType = datString Size = 255 + DictionaryEntry = 'PresupuestosCliente_Detalles_REFERENCIA_PROVEEDOR' end> end> JoinDataTables = <> @@ -763,6 +776,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente end item Params = < + item + Name = 'UNIDAD_MEDIDA' + Value = '' + end item Name = 'ID' DataType = datAutoInc @@ -820,11 +837,12 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente TargetTable = 'PRESUPUESTOS_CLIENTE_DETALLES' SQL = 'INSERT'#10' INTO PRESUPUESTOS_CLIENTE_DETALLES'#10' (ID, ID_PRESUPUE' + - 'STO, POSICION, TIPO_DETALLE, CONCEPTO, CANTIDAD,'#10' IMPORTE_UN' + - 'IDAD, IMPORTE_TOTAL, VISIBLE, ID_ARTICULO, '#10' DESCUENTO, IMPO' + - 'RTE_PORTE)'#10' VALUES'#10' (:ID, :ID_PRESUPUESTO, :POSICION, :TIPO_' + - 'DETALLE, :CONCEPTO,'#10' :CANTIDAD, :IMPORTE_UNIDAD, :IMPORTE_TO' + - 'TAL, :VISIBLE, '#10' :ID_ARTICULO, :DESCUENTO, :IMPORTE_PORTE)'#10 + 'STO, POSICION, TIPO_DETALLE, CONCEPTO, CANTIDAD,'#10' UNIDAD_MED' + + 'IDA,'#10' IMPORTE_UNIDAD, IMPORTE_TOTAL, VISIBLE, ID_ARTICULO, '#10 + + ' DESCUENTO, IMPORTE_PORTE)'#10' VALUES'#10' (:ID, :ID_PRESUPUEST' + + 'O, :POSICION, :TIPO_DETALLE, :CONCEPTO,'#10' :CANTIDAD, :UNIDAD_' + + 'MEDIDA, :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE,'#10' :ID_ARTI' + + 'CULO, :DESCUENTO, :IMPORTE_PORTE)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -852,6 +870,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente end item Params = < + item + Name = 'UNIDAD_MEDIDA' + Value = '' + end item Name = 'ID' DataType = datAutoInc @@ -915,10 +937,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente 'UPDATE PRESUPUESTOS_CLIENTE_DETALLES'#10' SET '#10' ID = :ID,'#10' ID' + '_PRESUPUESTO = :ID_PRESUPUESTO, '#10' POSICION = :POSICION, '#10' ' + 'TIPO_DETALLE = :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' CA' + - 'NTIDAD = :CANTIDAD, '#10' IMPORTE_UNIDAD = :IMPORTE_UNIDAD, '#10' ' + - 'IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' VISIBLE = :VISIBLE, '#10' ID' + - '_ARTICULO = :ID_ARTICULO, '#10' DESCUENTO = :DESCUENTO, '#10' IMPO' + - 'RTE_PORTE = :IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID)'#10 + 'NTIDAD = :CANTIDAD, '#10' UNIDAD_MEDIDA = :UNIDAD_MEDIDA,'#10' IMP' + + 'ORTE_UNIDAD = :IMPORTE_UNIDAD, '#10' IMPORTE_TOTAL = :IMPORTE_TOT' + + 'AL, '#10' VISIBLE = :VISIBLE, '#10' ID_ARTICULO = :ID_ARTICULO, '#10' ' + + ' DESCUENTO = :DESCUENTO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE'#10' ' + + ' WHERE'#10' (ID = :OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -1215,6 +1238,12 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente Name = 'PresupuestosCliente_Detalles_REFERENCIA_PROVEEDOR' DataType = datString Size = 255 + end + item + Name = 'PresupuestosCliente_Detalles_UNIDAD_MEDIDA' + DataType = datString + Size = 255 + DisplayLabel = 'Unidad de medida' end> Left = 48 Top = 152 diff --git a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj index 2f541c53..913ee5ce 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj +++ b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj @@ -44,6 +44,10 @@ FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 + + + + Intraweb 8.0 Design Package for Borland Development Studio 2006 PresupuestosCliente_view.dpk @@ -52,11 +56,11 @@ MainSource - - - - - + + + + +
fEditorElegirArticulosPresupuestoCliente
TfEditorElegirArticulosPedidoCliente diff --git a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.res b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.res index 1641339fcc482e7e3492d1b45813a86619622c33..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch delta 11 ScmeBCZD5|Duvteife`=|>;pCc literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm index 84a9de91..82157543 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm @@ -183,37 +183,21 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente Height = 51 ExplicitWidth = 735 ExplicitHeight = 51 + inherited ToolButton2: TToolButton + ExplicitLeft = 165 + end inherited ToolButton3: TToolButton - Wrap = False + ExplicitLeft = 279 end - inherited ToolButton4: TToolButton - Left = 278 - Top = 0 - ExplicitLeft = 278 - ExplicitTop = 0 - end - inherited ToolButton14: TToolButton - Left = 334 - Top = 0 + inherited ToolButton9: TToolButton Wrap = False - ExplicitLeft = 334 - ExplicitTop = 0 end inherited FontName: TJvFontComboBox - Left = 399 - Top = 0 - ExplicitLeft = 399 - ExplicitTop = 0 - end - inherited FontSize: TEdit Left = 544 Top = 0 - Width = 72 ExplicitLeft = 544 - ExplicitTop = 0 - ExplicitWidth = 72 end - inherited ToolButton13: TToolButton [7] + inherited ToolButton13: TToolButton Left = 0 Top = 0 Wrap = True @@ -221,52 +205,56 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente ExplicitTop = 0 ExplicitHeight = 27 end - inherited UpDown1: TUpDown [8] + inherited ToolButton6: TToolButton Left = 0 Top = 27 ExplicitLeft = 0 ExplicitTop = 27 end - inherited ToolButton6: TToolButton - Left = 17 - Top = 27 - ExplicitLeft = 17 - ExplicitTop = 27 - end inherited ToolButton7: TToolButton - Left = 83 + Left = 66 Top = 27 - ExplicitLeft = 83 + ExplicitLeft = 66 ExplicitTop = 27 end - inherited ToolButton8: TToolButton - Left = 150 + inherited FontSize: TEdit + Left = 133 Top = 27 - ExplicitLeft = 150 + Width = 72 + ExplicitLeft = 133 ExplicitTop = 27 + ExplicitWidth = 72 end - inherited ToolButton12: TToolButton - Left = 233 + inherited UpDown1: TUpDown + Left = 205 Top = 27 - ExplicitLeft = 233 - ExplicitTop = 27 - end - inherited ToolButton9: TToolButton - Left = 241 - Top = 27 - ExplicitLeft = 241 - ExplicitTop = 27 - end - inherited ToolButton10: TToolButton - Left = 386 - Top = 27 - ExplicitLeft = 386 + ExplicitLeft = 205 ExplicitTop = 27 end inherited ToolButton11: TToolButton - Left = 511 + Left = 222 Top = 27 - ExplicitLeft = 511 + ExplicitLeft = 222 + ExplicitTop = 27 + end + inherited ToolButton12: TToolButton + Left = 363 + Top = 27 + Wrap = False + ExplicitLeft = 363 + ExplicitTop = 27 + ExplicitHeight = 22 + end + inherited ToolButton10: TToolButton + Left = 371 + Top = 27 + ExplicitLeft = 371 + ExplicitTop = 27 + end + inherited ToolButton8: TToolButton + Left = 496 + Top = 27 + ExplicitLeft = 496 ExplicitTop = 27 end end diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm index c5d0108c..bf5f5f48 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm @@ -1,94 +1,124 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente + Width = 669 inherited ToolBar1: TToolBar - Height = 95 - inherited ToolButton3: TToolButton [1] + Width = 669 + Height = 73 + inherited ToolButton4: TToolButton [1] Left = 109 - Wrap = False + Top = 0 ExplicitLeft = 109 + ExplicitTop = 0 end inherited ToolButton2: TToolButton [2] - Left = 164 - ExplicitLeft = 164 + Left = 165 end - inherited ToolButton12: TToolButton [3] - Left = 0 + inherited ToolButton3: TToolButton [3] + Left = 279 + Wrap = False + end + inherited ToolButton14: TToolButton + Left = 334 + Top = 0 + ExplicitLeft = 334 + ExplicitTop = 0 + end + inherited ToolButton9: TToolButton + Left = 399 Top = 0 Wrap = True - ExplicitLeft = 0 + ExplicitLeft = 399 ExplicitTop = 0 - ExplicitHeight = 27 end - inherited ToolButton4: TToolButton [4] - Top = 27 - ExplicitTop = 27 - end - inherited ToolButton14: TToolButton [5] - Top = 27 - Wrap = False - ExplicitTop = 27 - end - inherited ToolButton10: TToolButton [6] - Left = 121 - Top = 27 - Wrap = True - ExplicitLeft = 121 - ExplicitTop = 27 - end - inherited FontName: TJvFontComboBox [7] - Top = 49 - ExplicitTop = 49 - end - inherited UpDown1: TUpDown [8] - Left = 145 - Top = 49 - ExplicitLeft = 145 - ExplicitTop = 49 - end - inherited ToolButton6: TToolButton - Left = 162 - Top = 49 - ExplicitLeft = 162 - ExplicitTop = 49 - end - inherited ToolButton11: TToolButton [10] - Left = 228 - Top = 49 - Wrap = True - ExplicitLeft = 228 - ExplicitTop = 49 - end - inherited ToolButton9: TToolButton [11] + inherited FontName: TJvFontComboBox Left = 0 - Top = 71 ExplicitLeft = 0 - ExplicitTop = 71 end - inherited FontSize: TEdit [12] - Top = 71 - ExplicitTop = 71 + inherited ToolButton13: TToolButton [7] + Left = 145 + Wrap = False + ExplicitLeft = 145 + ExplicitHeight = 22 end - inherited ToolButton8: TToolButton [13] - Left = 187 - Top = 71 - ExplicitLeft = 187 - ExplicitTop = 71 + inherited ToolButton6: TToolButton [8] + Left = 153 + Top = 22 + ExplicitLeft = 153 + ExplicitTop = 22 end - inherited ToolButton13: TToolButton [14] - Left = 270 - Top = 71 - ExplicitLeft = 270 - ExplicitTop = 71 + inherited ToolButton7: TToolButton [9] + Left = 219 + Top = 22 + ExplicitLeft = 219 + ExplicitTop = 22 end - inherited ToolButton7: TToolButton [15] - Top = 71 - ExplicitTop = 71 + inherited FontSize: TEdit [10] + Left = 286 + Top = 22 + ExplicitLeft = 286 + ExplicitTop = 22 + end + inherited UpDown1: TUpDown [11] + Left = 328 + ExplicitLeft = 328 + end + inherited ToolButton11: TToolButton + Left = 345 + Top = 22 + ExplicitLeft = 345 + ExplicitTop = 22 + end + inherited ToolButton12: TToolButton + Top = 22 + ExplicitTop = 22 + end + inherited ToolButton10: TToolButton + Top = 49 + ExplicitTop = 49 + end + inherited ToolButton8: TToolButton + Top = 49 + ExplicitTop = 49 end end inherited cxGrid: TcxGrid - Top = 121 - Height = 183 + Top = 99 + Width = 669 + Height = 205 + ExplicitTop = 126 + ExplicitHeight = 178 + inherited cxGridView: TcxGridDBTableView + inherited cxGridViewTIPO: TcxGridDBColumn + Width = 75 + end + inherited cxGridViewREFERENCIA: TcxGridDBColumn + Width = 89 + end + inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn + Width = 82 + end + inherited cxGridViewDESCRIPCION: TcxGridDBColumn + Width = 315 + end + inherited cxGridViewCANTIDAD: TcxGridDBColumn + Width = 94 + end + inherited cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn + DataBinding.FieldName = 'UNIDAD_MEDIDA' + end + inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn + Width = 70 + end + inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn + Width = 69 + end + end end inherited TBXDock1: TTBXDock - Top = 95 + Top = 73 + Width = 669 + ExplicitTop = 100 + inherited TBXToolbar1: TTBXToolbar + ExplicitWidth = 669 + end end end