Se adaptan los detalles para que puedan ser las cantidades decimales

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@644 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-09-30 10:07:29 +00:00
parent 634ecb82b8
commit f6773e2e7e
7 changed files with 78 additions and 68 deletions

View File

@ -330,7 +330,7 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
end
item
Name = 'CANTIDAD'
DataType = datInteger
DataType = datFloat
Alignment = taRightJustify
DictionaryEntry = 'CANTIDAD'
end
@ -399,7 +399,7 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
end
item
Name = 'CANTIDAD'
DataType = datInteger
DataType = datFloat
Alignment = taRightJustify
DictionaryEntry = 'CANTIDAD'
end

View File

@ -3,15 +3,15 @@ unit schPedidosProveedorClient_Intf;
interface
uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
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_PedidosProveedor = '{8C7AFC57-4E9B-41B1-B1CE-118FA2D7F3FB}';
RID_PedidosProveedor_Detalles = '{4B38181F-5E28-4B75-B25B-8BC05C23F91F}';
RID_PedidosProveedor_Articulos_Pendientes = '{82C98F5E-B55B-48E6-9C40-EC793DB43206}';
RID_PedidosProveedor = '{4CB69ADB-F44A-4A75-85F7-9979348A5A4F}';
RID_PedidosProveedor_Detalles = '{10828B55-F8E8-4748-A031-675BE16BE268}';
RID_PedidosProveedor_Articulos_Pendientes = '{A5CBDE98-7F16-45C9-A42D-51E06CFB3F01}';
{ Data table names }
nme_PedidosProveedor = 'PedidosProveedor';
@ -157,7 +157,7 @@ const
type
{ IPedidosProveedor }
IPedidosProveedor = interface(IDAStronglyTypedDataTable)
['{1E1C751D-BCCB-4D25-879A-BB0F0F023104}']
['{662D38EC-3CAA-4034-8A93-F8BEDFCDEFB0}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -403,7 +403,7 @@ type
end;
{ TPedidosProveedorDataTableRules }
TPedidosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor)
TPedidosProveedorDataTableRules = class(TDADataTableRules, IPedidosProveedor)
private
f_OBSERVACIONES: IROStrings;
f_INCIDENCIAS: IROStrings;
@ -660,7 +660,7 @@ type
{ IPedidosProveedor_Detalles }
IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{988BCD06-417B-46FC-8622-59B50138FFCB}']
['{DC9CA387-5FEC-48F1-AA50-3C235D7DDEDE}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -682,8 +682,8 @@ type
procedure SetCONCEPTOValue(const aValue: String);
function GetCONCEPTOIsNull: Boolean;
procedure SetCONCEPTOIsNull(const aValue: Boolean);
function GetCANTIDADValue: Integer;
procedure SetCANTIDADValue(const aValue: Integer);
function GetCANTIDADValue: Float;
procedure SetCANTIDADValue(const aValue: Float);
function GetCANTIDADIsNull: Boolean;
procedure SetCANTIDADIsNull(const aValue: Boolean);
function GetUNIDAD_MEDIDAValue: String;
@ -739,7 +739,7 @@ type
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDAD: Float 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;
@ -764,7 +764,7 @@ type
end;
{ TPedidosProveedor_DetallesDataTableRules }
TPedidosProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor_Detalles)
TPedidosProveedor_DetallesDataTableRules = class(TDADataTableRules, IPedidosProveedor_Detalles)
private
protected
{ Property getters and setters }
@ -788,8 +788,8 @@ type
procedure SetCONCEPTOValue(const aValue: String); virtual;
function GetCONCEPTOIsNull: Boolean; virtual;
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
function GetCANTIDADValue: Integer; virtual;
procedure SetCANTIDADValue(const aValue: Integer); virtual;
function GetCANTIDADValue: Float; virtual;
procedure SetCANTIDADValue(const aValue: Float); virtual;
function GetCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetUNIDAD_MEDIDAValue: String; virtual;
@ -844,7 +844,7 @@ type
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDAD: Float 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;
@ -875,7 +875,7 @@ type
{ IPedidosProveedor_Articulos_Pendientes }
IPedidosProveedor_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
['{31F1F705-E8AB-4569-8AEC-C57A05BC3507}']
['{DA816701-F81A-4BAB-A93D-AF4D96E5F977}']
{ Property getters and setters }
function GetID_PEDIDOValue: Integer;
procedure SetID_PEDIDOValue(const aValue: Integer);
@ -893,8 +893,8 @@ type
procedure SetCONCEPTOValue(const aValue: String);
function GetCONCEPTOIsNull: Boolean;
procedure SetCONCEPTOIsNull(const aValue: Boolean);
function GetCANTIDADValue: Integer;
procedure SetCANTIDADValue(const aValue: Integer);
function GetCANTIDADValue: Float;
procedure SetCANTIDADValue(const aValue: Float);
function GetCANTIDADIsNull: Boolean;
procedure SetCANTIDADIsNull(const aValue: Boolean);
function GetREFERENCIA_PROVEEDORValue: String;
@ -912,14 +912,14 @@ type
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
end;
{ TPedidosProveedor_Articulos_PendientesDataTableRules }
TPedidosProveedor_Articulos_PendientesDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor_Articulos_Pendientes)
TPedidosProveedor_Articulos_PendientesDataTableRules = class(TDADataTableRules, IPedidosProveedor_Articulos_Pendientes)
private
protected
{ Property getters and setters }
@ -939,8 +939,8 @@ type
procedure SetCONCEPTOValue(const aValue: String); virtual;
function GetCONCEPTOIsNull: Boolean; virtual;
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
function GetCANTIDADValue: Integer; virtual;
procedure SetCANTIDADValue(const aValue: Integer); virtual;
function GetCANTIDADValue: Float; virtual;
procedure SetCANTIDADValue(const aValue: Float); virtual;
function GetCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_PROVEEDORValue: String; virtual;
@ -957,7 +957,7 @@ type
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
@ -1952,14 +1952,14 @@ begin
DataTable.Fields[idx_PedidosProveedor_DetallesCONCEPTO].AsVariant := Null;
end;
function TPedidosProveedor_DetallesDataTableRules.GetCANTIDADValue: Integer;
function TPedidosProveedor_DetallesDataTableRules.GetCANTIDADValue: Float;
begin
result := DataTable.Fields[idx_PedidosProveedor_DetallesCANTIDAD].AsInteger;
result := DataTable.Fields[idx_PedidosProveedor_DetallesCANTIDAD].AsFloat;
end;
procedure TPedidosProveedor_DetallesDataTableRules.SetCANTIDADValue(const aValue: Integer);
procedure TPedidosProveedor_DetallesDataTableRules.SetCANTIDADValue(const aValue: Float);
begin
DataTable.Fields[idx_PedidosProveedor_DetallesCANTIDAD].AsInteger := aValue;
DataTable.Fields[idx_PedidosProveedor_DetallesCANTIDAD].AsFloat := aValue;
end;
function TPedidosProveedor_DetallesDataTableRules.GetCANTIDADIsNull: boolean;
@ -2279,14 +2279,14 @@ begin
DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesCONCEPTO].AsVariant := Null;
end;
function TPedidosProveedor_Articulos_PendientesDataTableRules.GetCANTIDADValue: Integer;
function TPedidosProveedor_Articulos_PendientesDataTableRules.GetCANTIDADValue: Float;
begin
result := DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesCANTIDAD].AsInteger;
result := DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesCANTIDAD].AsFloat;
end;
procedure TPedidosProveedor_Articulos_PendientesDataTableRules.SetCANTIDADValue(const aValue: Integer);
procedure TPedidosProveedor_Articulos_PendientesDataTableRules.SetCANTIDADValue(const aValue: Float);
begin
DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesCANTIDAD].AsInteger := aValue;
DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesCANTIDAD].AsFloat := aValue;
end;
function TPedidosProveedor_Articulos_PendientesDataTableRules.GetCANTIDADIsNull: boolean;

View File

@ -9,14 +9,14 @@ 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_PedidosProveedorDelta = '{9FBBD63F-B676-4988-808C-958F184692D7}';
RID_PedidosProveedor_DetallesDelta = '{FAC4BAF7-A40E-4569-95E0-F0DED9DE3BFC}';
RID_PedidosProveedor_Articulos_PendientesDelta = '{A7CF42B4-398C-4C58-B11C-4FC1E691EEC1}';
RID_PedidosProveedorDelta = '{8408B177-CF20-4F20-81E0-C05E43FECA8A}';
RID_PedidosProveedor_DetallesDelta = '{01EDC541-A23C-4981-BC41-F2352465DC6E}';
RID_PedidosProveedor_Articulos_PendientesDelta = '{96EE04BA-6E41-482F-BBAA-D3888AAF2BB0}';
type
{ IPedidosProveedorDelta }
IPedidosProveedorDelta = interface(IPedidosProveedor)
['{9FBBD63F-B676-4988-808C-958F184692D7}']
['{8408B177-CF20-4F20-81E0-C05E43FECA8A}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -520,14 +520,14 @@ type
{ IPedidosProveedor_DetallesDelta }
IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles)
['{FAC4BAF7-A40E-4569-95E0-F0DED9DE3BFC}']
['{01EDC541-A23C-4981-BC41-F2352465DC6E}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PEDIDOValue : Integer;
function GetOldPOSICIONValue : Integer;
function GetOldTIPO_DETALLEValue : String;
function GetOldCONCEPTOValue : String;
function GetOldCANTIDADValue : Integer;
function GetOldCANTIDADValue : Float;
function GetOldUNIDAD_MEDIDAValue : String;
function GetOldIMPORTE_UNIDADValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency;
@ -545,7 +545,7 @@ type
property OldPOSICION : Integer read GetOldPOSICIONValue;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldCANTIDAD : Float read GetOldCANTIDADValue;
property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
@ -593,11 +593,11 @@ type
function GetOldCONCEPTOIsNull: Boolean; virtual;
procedure SetCONCEPTOValue(const aValue: String); virtual;
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
function GetCANTIDADValue: Integer; virtual;
function GetCANTIDADValue: Float; virtual;
function GetCANTIDADIsNull: Boolean; virtual;
function GetOldCANTIDADValue: Integer; virtual;
function GetOldCANTIDADValue: Float; virtual;
function GetOldCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADValue(const aValue: Integer); virtual;
procedure SetCANTIDADValue(const aValue: Float); virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetUNIDAD_MEDIDAValue: String; virtual;
function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
@ -681,9 +681,9 @@ type
property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull;
property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDAD : Float read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldCANTIDAD : Float 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;
@ -734,13 +734,13 @@ type
{ IPedidosProveedor_Articulos_PendientesDelta }
IPedidosProveedor_Articulos_PendientesDelta = interface(IPedidosProveedor_Articulos_Pendientes)
['{A7CF42B4-398C-4C58-B11C-4FC1E691EEC1}']
['{96EE04BA-6E41-482F-BBAA-D3888AAF2BB0}']
{ Property getters and setters }
function GetOldID_PEDIDOValue : Integer;
function GetOldREFERENCIAValue : String;
function GetOldID_ARTICULOValue : Integer;
function GetOldCONCEPTOValue : String;
function GetOldCANTIDADValue : Integer;
function GetOldCANTIDADValue : Float;
function GetOldREFERENCIA_PROVEEDORValue : String;
{ Properties }
@ -748,7 +748,7 @@ type
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldCANTIDAD : Float read GetOldCANTIDADValue;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
end;
@ -781,11 +781,11 @@ type
function GetOldCONCEPTOIsNull: Boolean; virtual;
procedure SetCONCEPTOValue(const aValue: String); virtual;
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
function GetCANTIDADValue: Integer; virtual;
function GetCANTIDADValue: Float; virtual;
function GetCANTIDADIsNull: Boolean; virtual;
function GetOldCANTIDADValue: Integer; virtual;
function GetOldCANTIDADValue: Float; virtual;
function GetOldCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADValue(const aValue: Integer); virtual;
procedure SetCANTIDADValue(const aValue: Float); virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_PROVEEDORValue: String; virtual;
function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
@ -811,9 +811,9 @@ type
property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull;
property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDAD : Float read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldCANTIDAD : Float read GetOldCANTIDADValue;
property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull;
property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property REFERENCIA_PROVEEDORIsNull : Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
@ -2263,7 +2263,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesCONCEPTO] := Null;
end;
function TPedidosProveedor_DetallesBusinessProcessorRules.GetCANTIDADValue: Integer;
function TPedidosProveedor_DetallesBusinessProcessorRules.GetCANTIDADValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesCANTIDAD];
end;
@ -2273,7 +2273,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesCANTIDAD]);
end;
function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Integer;
function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesCANTIDAD];
end;
@ -2283,7 +2283,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesCANTIDAD]);
end;
procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer);
procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesCANTIDAD] := aValue;
end;
@ -2740,7 +2740,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCONCEPTO] := Null;
end;
function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetCANTIDADValue: Integer;
function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetCANTIDADValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCANTIDAD];
end;
@ -2750,7 +2750,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCANTIDAD]);
end;
function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldCANTIDADValue: Integer;
function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldCANTIDADValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesCANTIDAD];
end;
@ -2760,7 +2760,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesCANTIDAD]);
end;
procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer);
procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetCANTIDADValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCANTIDAD] := aValue;
end;

View File

@ -21,6 +21,7 @@
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" />
<Projects Include="..\Inventario\Controller\Inventario_controller.dproj" />
<Projects Include="..\Inventario\Data\Inventario_data.dproj" />
<Projects Include="..\Inventario\Views\Inventario_view.dproj" />
<Projects Include="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" />
<Projects Include="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" />
@ -271,14 +272,23 @@
<Target Name="PresupuestosCliente_view:Make">
<MSBuild Projects="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="Inventario_data">
<MSBuild Projects="..\Inventario\Data\Inventario_data.dproj" Targets="" />
</Target>
<Target Name="Inventario_data:Clean">
<MSBuild Projects="..\Inventario\Data\Inventario_data.dproj" Targets="Clean" />
</Target>
<Target Name="Inventario_data:Make">
<MSBuild Projects="..\Inventario\Data\Inventario_data.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;PedidosProveedor_model;PedidosProveedor_data;PedidosProveedor_controller;PedidosProveedor_view;PedidosProveedor_plugin;AlbaranesProveedor_controller;Inventario_controller;PedProv_AlbProv_relation;FacturasProveedor_controller;PedProv_FacProv_relation;AlbaranesProveedor_data;AlbaranesCliente_data;FactuGES;FactuGES_Server;AlbaranesProveedor_view;AlbaranesProveedor_model;Inventario_view;PresupuestosCliente_view" />
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;PedidosProveedor_model;PedidosProveedor_data;PedidosProveedor_controller;PedidosProveedor_view;PedidosProveedor_plugin;AlbaranesProveedor_controller;Inventario_controller;PedProv_AlbProv_relation;FacturasProveedor_controller;PedProv_FacProv_relation;AlbaranesProveedor_data;AlbaranesCliente_data;FactuGES;FactuGES_Server;AlbaranesProveedor_view;AlbaranesProveedor_model;Inventario_view;PresupuestosCliente_view;Inventario_data" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosProveedor_model:Clean;PedidosProveedor_data:Clean;PedidosProveedor_controller:Clean;PedidosProveedor_view:Clean;PedidosProveedor_plugin:Clean;AlbaranesProveedor_controller:Clean;Inventario_controller:Clean;PedProv_AlbProv_relation:Clean;FacturasProveedor_controller:Clean;PedProv_FacProv_relation:Clean;AlbaranesProveedor_data:Clean;AlbaranesCliente_data:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesProveedor_view:Clean;AlbaranesProveedor_model:Clean;Inventario_view:Clean;PresupuestosCliente_view:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosProveedor_model:Clean;PedidosProveedor_data:Clean;PedidosProveedor_controller:Clean;PedidosProveedor_view:Clean;PedidosProveedor_plugin:Clean;AlbaranesProveedor_controller:Clean;Inventario_controller:Clean;PedProv_AlbProv_relation:Clean;FacturasProveedor_controller:Clean;PedProv_FacProv_relation:Clean;AlbaranesProveedor_data:Clean;AlbaranesCliente_data:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesProveedor_view:Clean;AlbaranesProveedor_model:Clean;Inventario_view:Clean;PresupuestosCliente_view:Clean;Inventario_data:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PedidosProveedor_model:Make;PedidosProveedor_data:Make;PedidosProveedor_controller:Make;PedidosProveedor_view:Make;PedidosProveedor_plugin:Make;AlbaranesProveedor_controller:Make;Inventario_controller:Make;PedProv_AlbProv_relation:Make;FacturasProveedor_controller:Make;PedProv_FacProv_relation:Make;AlbaranesProveedor_data:Make;AlbaranesCliente_data:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesProveedor_view:Make;AlbaranesProveedor_model:Make;Inventario_view:Make;PresupuestosCliente_view:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PedidosProveedor_model:Make;PedidosProveedor_data:Make;PedidosProveedor_controller:Make;PedidosProveedor_view:Make;PedidosProveedor_plugin:Make;AlbaranesProveedor_controller:Make;Inventario_controller:Make;PedProv_AlbProv_relation:Make;FacturasProveedor_controller:Make;PedProv_FacProv_relation:Make;AlbaranesProveedor_data:Make;AlbaranesCliente_data:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesProveedor_view:Make;AlbaranesProveedor_model:Make;Inventario_view:Make;PresupuestosCliente_view:Make;Inventario_data:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

View File

@ -278,7 +278,7 @@ object RptPedidosProveedor: TRptPedidosProveedor
end
item
Name = 'CANTIDAD'
DataType = datInteger
DataType = datFloat
end
item
Name = 'UNIDAD_MEDIDA'
@ -680,7 +680,7 @@ object RptPedidosProveedor: TRptPedidosProveedor
end
item
Name = 'CANTIDAD'
DataType = datInteger
DataType = datFloat
end
item
Name = 'UNIDAD_MEDIDA'

View File

@ -296,7 +296,7 @@ object RptWordPedidoProveedor: TRptWordPedidoProveedor
end
item
Name = 'CANTIDAD'
DataType = datInteger
DataType = datFloat
end
item
Name = 'UNIDAD_MEDIDA'
@ -473,7 +473,7 @@ object RptWordPedidoProveedor: TRptWordPedidoProveedor
end
item
Name = 'CANTIDAD'
DataType = datInteger
DataType = datFloat
end
item
Name = 'UNIDAD_MEDIDA'

View File

@ -534,7 +534,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
end
item
Name = 'CANTIDAD'
DataType = datInteger
DataType = datFloat
DictionaryEntry = 'CANTIDAD'
end
item
@ -668,7 +668,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
end
item
Name = 'CANTIDAD'
DataType = datInteger
DataType = datFloat
DictionaryEntry = 'CANTIDAD'
end
item
@ -1455,7 +1455,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
end
item
Name = 'CANTIDAD'
DataType = datInteger
DataType = datFloat
Alignment = taRightJustify
end
item