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

Presupuestos: unidades de medida en los detalles.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@333 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-03-04 19:03:51 +00:00
parent c83c0e21dd
commit 0ca1948d80
13 changed files with 438 additions and 255 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Database/scripts/factuges.sql
View File

@ -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

4
Source/Informes/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

142
Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm
View File

@ -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]

74
Source/Modulos/Articulos/Views/uViewDetallesArticulos.pas
View File

@ -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);

11
Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm
View File

@ -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

59
Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas
View File

@ -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;

51
Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas
View File

@ -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];

9
Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm
View File

@ -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

63
Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
View File

@ -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 = '<unknown>'
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

14
Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj
View File

@ -44,6 +44,10 @@
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl">Intraweb 8.0 Design Package for Borland Development Studio 2006</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">PresupuestosCliente_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
@ -52,11 +56,11 @@
<DelphiCompile Include="PresupuestosCliente_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Articulos_view.dcp" />
<DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\PresupuestosCliente_controller.dcp" />
<DCCReference Include="..\PresupuestosCliente_model.dcp" />
<DCCReference Include="..\..\..\Servidor\Articulos_view.dcp" />
<DCCReference Include="..\..\..\Servidor\Base.dcp" />
<DCCReference Include="..\..\..\Servidor\GUIBase.dcp" />
<DCCReference Include="..\..\..\Servidor\PresupuestosCliente_controller.dcp" />
<DCCReference Include="..\..\..\Servidor\PresupuestosCliente_model.dcp" />
<DCCReference Include="uEditorElegirArticulosPresupuestoCliente.pas">
<Form>fEditorElegirArticulosPresupuestoCliente</Form>
<DesignClass>TfEditorElegirArticulosPedidoCliente</DesignClass>

BIN
Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.res
View File

Binary file not shown.

90
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm
View File

@ -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

170
Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm
View File

@ -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