Se arregla el recuperar los datos de recepción del pedido que no los recuperaba bien
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@487 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
parent
6e9f338139
commit
e6a54cde42
@ -2666,6 +2666,7 @@ CREATE VIEW V_PEDIDOS_PROVEEDOR(
|
||||
FECHA_CONFIRMACION,
|
||||
FECHA_ENTREGA,
|
||||
ID_ALMACEN,
|
||||
TIPO_ALMACEN,
|
||||
NOMBRE_ALMACEN,
|
||||
ID_OBRA,
|
||||
NOMBRE_OBRA,
|
||||
@ -2697,7 +2698,7 @@ SELECT
|
||||
PEDIDOS_PROVEEDOR.ID,
|
||||
PEDIDOS_PROVEEDOR.ID_EMPRESA,
|
||||
PEDIDOS_PROVEEDOR.ID_PROVEEDOR,
|
||||
CONTACTOS.NOMBRE,
|
||||
V_PROVEEDORES.NOMBRE,
|
||||
PEDIDOS_PROVEEDOR.REFERENCIA,
|
||||
TRIM(V_PED_PROV_SITUACION.SITUACION),
|
||||
PEDIDOS_PROVEEDOR.FECHA_ENVIO,
|
||||
@ -2705,6 +2706,7 @@ SELECT
|
||||
PEDIDOS_PROVEEDOR.FECHA_CONFIRMACION,
|
||||
PEDIDOS_PROVEEDOR.FECHA_ENTREGA,
|
||||
PEDIDOS_PROVEEDOR.ID_ALMACEN,
|
||||
ALMACENES.TIPO_ALMACEN,
|
||||
ALMACENES.NOMBRE AS NOMBRE_ALMACEN,
|
||||
PEDIDOS_PROVEEDOR.ID_OBRA,
|
||||
OBRAS.NOMBRE AS NOMBRE_OBRA,
|
||||
@ -2733,15 +2735,14 @@ SELECT
|
||||
PEDIDOS_PROVEEDOR.ID_FORMA_PAGO
|
||||
FROM
|
||||
PEDIDOS_PROVEEDOR
|
||||
INNER JOIN CONTACTOS ON (CONTACTOS.ID = PEDIDOS_PROVEEDOR.ID_PROVEEDOR)
|
||||
INNER JOIN V_PROVEEDORES ON (PEDIDOS_PROVEEDOR.ID_PROVEEDOR = V_PROVEEDORES.ID)
|
||||
LEFT OUTER JOIN V_PED_PROV_SITUACION ON (V_PED_PROV_SITUACION.ID_PEDIDO = PEDIDOS_PROVEEDOR.ID)
|
||||
LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = PEDIDOS_PROVEEDOR.ID_ALMACEN)
|
||||
LEFT OUTER JOIN ALMACENES AS OBRAS ON (OBRAS.ID = PEDIDOS_PROVEEDOR.ID_OBRA)
|
||||
LEFT OUTER JOIN ALMACENES OBRAS ON (OBRAS.ID = PEDIDOS_PROVEEDOR.ID_OBRA)
|
||||
LEFT OUTER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = PEDIDOS_PROVEEDOR.ID_PEDIDO_CLIENTE)
|
||||
;
|
||||
|
||||
|
||||
|
||||
/* View: V_PRESUPUESTOS_CLIENTE */
|
||||
CREATE VIEW V_PRESUPUESTOS_CLIENTE(
|
||||
ID,
|
||||
|
||||
@ -97,6 +97,12 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
|
||||
DisplayLabel = 'PedidosProveedor_ID_ALMACEN'
|
||||
DictionaryEntry = 'PedidosProveedor_ID_ALMACEN'
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_ALMACEN'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
ServerAutoRefresh = True
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_ALMACEN'
|
||||
DataType = datString
|
||||
|
||||
@ -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 = '{7262F144-AFC8-4C3F-BDB1-7DCA530FA007}';
|
||||
RID_PedidosProveedor_Detalles = '{42853D51-F307-4A55-8733-7E97B1BBE2C5}';
|
||||
RID_PedidosProveedor_Articulos_Pendientes = '{29ECEF41-2FBF-4B35-95F8-2814C683C0BE}';
|
||||
RID_PedidosProveedor = '{599AF7BA-7502-49F5-B736-1B5F681C521B}';
|
||||
RID_PedidosProveedor_Detalles = '{F98729C4-7CD8-4B99-9C6E-337A04485DC8}';
|
||||
RID_PedidosProveedor_Articulos_Pendientes = '{146C079F-89AF-4606-B3A8-D99D14CB3A80}';
|
||||
|
||||
{ Data table names }
|
||||
nme_PedidosProveedor = 'PedidosProveedor';
|
||||
@ -30,6 +30,7 @@ const
|
||||
fld_PedidosProveedorFECHA_CONFIRMACION = 'FECHA_CONFIRMACION';
|
||||
fld_PedidosProveedorFECHA_ENTREGA = 'FECHA_ENTREGA';
|
||||
fld_PedidosProveedorID_ALMACEN = 'ID_ALMACEN';
|
||||
fld_PedidosProveedorTIPO_ALMACEN = 'TIPO_ALMACEN';
|
||||
fld_PedidosProveedorNOMBRE_ALMACEN = 'NOMBRE_ALMACEN';
|
||||
fld_PedidosProveedorID_OBRA = 'ID_OBRA';
|
||||
fld_PedidosProveedorNOMBRE_OBRA = 'NOMBRE_OBRA';
|
||||
@ -69,32 +70,33 @@ const
|
||||
idx_PedidosProveedorFECHA_CONFIRMACION = 8;
|
||||
idx_PedidosProveedorFECHA_ENTREGA = 9;
|
||||
idx_PedidosProveedorID_ALMACEN = 10;
|
||||
idx_PedidosProveedorNOMBRE_ALMACEN = 11;
|
||||
idx_PedidosProveedorID_OBRA = 12;
|
||||
idx_PedidosProveedorNOMBRE_OBRA = 13;
|
||||
idx_PedidosProveedorOBSERVACIONES = 14;
|
||||
idx_PedidosProveedorIMPORTE_TOTAL = 15;
|
||||
idx_PedidosProveedorINCIDENCIAS = 16;
|
||||
idx_PedidosProveedorINCIDENCIAS_ACTIVAS = 17;
|
||||
idx_PedidosProveedorCALLE = 18;
|
||||
idx_PedidosProveedorPOBLACION = 19;
|
||||
idx_PedidosProveedorPROVINCIA = 20;
|
||||
idx_PedidosProveedorCODIGO_POSTAL = 21;
|
||||
idx_PedidosProveedorPERSONA_CONTACTO = 22;
|
||||
idx_PedidosProveedorTELEFONO = 23;
|
||||
idx_PedidosProveedorFECHA_ALTA = 24;
|
||||
idx_PedidosProveedorFECHA_MODIFICACION = 25;
|
||||
idx_PedidosProveedorUSUARIO = 26;
|
||||
idx_PedidosProveedorID_PEDIDO_CLIENTE = 27;
|
||||
idx_PedidosProveedorREF_PED_CLIENTE = 28;
|
||||
idx_PedidosProveedorIMPORTE_NETO = 29;
|
||||
idx_PedidosProveedorIMPORTE_PORTE = 30;
|
||||
idx_PedidosProveedorDESCUENTO = 31;
|
||||
idx_PedidosProveedorIMPORTE_DESCUENTO = 32;
|
||||
idx_PedidosProveedorBASE_IMPONIBLE = 33;
|
||||
idx_PedidosProveedorIVA = 34;
|
||||
idx_PedidosProveedorIMPORTE_IVA = 35;
|
||||
idx_PedidosProveedorID_FORMA_PAGO = 36;
|
||||
idx_PedidosProveedorTIPO_ALMACEN = 11;
|
||||
idx_PedidosProveedorNOMBRE_ALMACEN = 12;
|
||||
idx_PedidosProveedorID_OBRA = 13;
|
||||
idx_PedidosProveedorNOMBRE_OBRA = 14;
|
||||
idx_PedidosProveedorOBSERVACIONES = 15;
|
||||
idx_PedidosProveedorIMPORTE_TOTAL = 16;
|
||||
idx_PedidosProveedorINCIDENCIAS = 17;
|
||||
idx_PedidosProveedorINCIDENCIAS_ACTIVAS = 18;
|
||||
idx_PedidosProveedorCALLE = 19;
|
||||
idx_PedidosProveedorPOBLACION = 20;
|
||||
idx_PedidosProveedorPROVINCIA = 21;
|
||||
idx_PedidosProveedorCODIGO_POSTAL = 22;
|
||||
idx_PedidosProveedorPERSONA_CONTACTO = 23;
|
||||
idx_PedidosProveedorTELEFONO = 24;
|
||||
idx_PedidosProveedorFECHA_ALTA = 25;
|
||||
idx_PedidosProveedorFECHA_MODIFICACION = 26;
|
||||
idx_PedidosProveedorUSUARIO = 27;
|
||||
idx_PedidosProveedorID_PEDIDO_CLIENTE = 28;
|
||||
idx_PedidosProveedorREF_PED_CLIENTE = 29;
|
||||
idx_PedidosProveedorIMPORTE_NETO = 30;
|
||||
idx_PedidosProveedorIMPORTE_PORTE = 31;
|
||||
idx_PedidosProveedorDESCUENTO = 32;
|
||||
idx_PedidosProveedorIMPORTE_DESCUENTO = 33;
|
||||
idx_PedidosProveedorBASE_IMPONIBLE = 34;
|
||||
idx_PedidosProveedorIVA = 35;
|
||||
idx_PedidosProveedorIMPORTE_IVA = 36;
|
||||
idx_PedidosProveedorID_FORMA_PAGO = 37;
|
||||
|
||||
{ PedidosProveedor_Detalles fields }
|
||||
fld_PedidosProveedor_DetallesID = 'ID';
|
||||
@ -151,7 +153,7 @@ const
|
||||
type
|
||||
{ IPedidosProveedor }
|
||||
IPedidosProveedor = interface(IDAStronglyTypedDataTable)
|
||||
['{C7AA3400-0782-43E4-A8E0-1D46A319FE67}']
|
||||
['{D72E5C27-F27B-4AD2-AE47-2D27ED1F51D6}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -197,6 +199,10 @@ type
|
||||
procedure SetID_ALMACENValue(const aValue: Integer);
|
||||
function GetID_ALMACENIsNull: Boolean;
|
||||
procedure SetID_ALMACENIsNull(const aValue: Boolean);
|
||||
function GetTIPO_ALMACENValue: String;
|
||||
procedure SetTIPO_ALMACENValue(const aValue: String);
|
||||
function GetTIPO_ALMACENIsNull: Boolean;
|
||||
procedure SetTIPO_ALMACENIsNull(const aValue: Boolean);
|
||||
function GetNOMBRE_ALMACENValue: String;
|
||||
procedure SetNOMBRE_ALMACENValue(const aValue: String);
|
||||
function GetNOMBRE_ALMACENIsNull: Boolean;
|
||||
@ -324,6 +330,8 @@ type
|
||||
property FECHA_ENTREGAIsNull: Boolean read GetFECHA_ENTREGAIsNull write SetFECHA_ENTREGAIsNull;
|
||||
property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue;
|
||||
property ID_ALMACENIsNull: Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull;
|
||||
property TIPO_ALMACEN: String read GetTIPO_ALMACENValue write SetTIPO_ALMACENValue;
|
||||
property TIPO_ALMACENIsNull: Boolean read GetTIPO_ALMACENIsNull write SetTIPO_ALMACENIsNull;
|
||||
property NOMBRE_ALMACEN: String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue;
|
||||
property NOMBRE_ALMACENIsNull: Boolean read GetNOMBRE_ALMACENIsNull write SetNOMBRE_ALMACENIsNull;
|
||||
property ID_OBRA: Integer read GetID_OBRAValue write SetID_OBRAValue;
|
||||
@ -379,7 +387,7 @@ type
|
||||
end;
|
||||
|
||||
{ TPedidosProveedorDataTableRules }
|
||||
TPedidosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor)
|
||||
TPedidosProveedorDataTableRules = class(TDADataTableRules, IPedidosProveedor)
|
||||
private
|
||||
f_OBSERVACIONES: IROStrings;
|
||||
f_INCIDENCIAS: IROStrings;
|
||||
@ -431,6 +439,10 @@ type
|
||||
procedure SetID_ALMACENValue(const aValue: Integer); virtual;
|
||||
function GetID_ALMACENIsNull: Boolean; virtual;
|
||||
procedure SetID_ALMACENIsNull(const aValue: Boolean); virtual;
|
||||
function GetTIPO_ALMACENValue: String; virtual;
|
||||
procedure SetTIPO_ALMACENValue(const aValue: String); virtual;
|
||||
function GetTIPO_ALMACENIsNull: Boolean; virtual;
|
||||
procedure SetTIPO_ALMACENIsNull(const aValue: Boolean); virtual;
|
||||
function GetNOMBRE_ALMACENValue: String; virtual;
|
||||
procedure SetNOMBRE_ALMACENValue(const aValue: String); virtual;
|
||||
function GetNOMBRE_ALMACENIsNull: Boolean; virtual;
|
||||
@ -557,6 +569,8 @@ type
|
||||
property FECHA_ENTREGAIsNull: Boolean read GetFECHA_ENTREGAIsNull write SetFECHA_ENTREGAIsNull;
|
||||
property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue;
|
||||
property ID_ALMACENIsNull: Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull;
|
||||
property TIPO_ALMACEN: String read GetTIPO_ALMACENValue write SetTIPO_ALMACENValue;
|
||||
property TIPO_ALMACENIsNull: Boolean read GetTIPO_ALMACENIsNull write SetTIPO_ALMACENIsNull;
|
||||
property NOMBRE_ALMACEN: String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue;
|
||||
property NOMBRE_ALMACENIsNull: Boolean read GetNOMBRE_ALMACENIsNull write SetNOMBRE_ALMACENIsNull;
|
||||
property ID_OBRA: Integer read GetID_OBRAValue write SetID_OBRAValue;
|
||||
@ -618,7 +632,7 @@ type
|
||||
|
||||
{ IPedidosProveedor_Detalles }
|
||||
IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{D2228AB6-71FA-4D37-BC2B-CC8C876D874A}']
|
||||
['{20E26A43-B9D9-44F5-85B4-D11AC9EA78BE}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -722,7 +736,7 @@ type
|
||||
end;
|
||||
|
||||
{ TPedidosProveedor_DetallesDataTableRules }
|
||||
TPedidosProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor_Detalles)
|
||||
TPedidosProveedor_DetallesDataTableRules = class(TDADataTableRules, IPedidosProveedor_Detalles)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -833,7 +847,7 @@ type
|
||||
|
||||
{ IPedidosProveedor_Articulos_Pendientes }
|
||||
IPedidosProveedor_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
|
||||
['{75AEDA92-EDCE-4DB4-B6D5-842A0CB0089C}']
|
||||
['{6C7587FF-FB34-477D-84C9-8382A0705353}']
|
||||
{ Property getters and setters }
|
||||
function GetID_PEDIDOValue: Integer;
|
||||
procedure SetID_PEDIDOValue(const aValue: Integer);
|
||||
@ -877,7 +891,7 @@ type
|
||||
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 }
|
||||
@ -1192,6 +1206,27 @@ begin
|
||||
DataTable.Fields[idx_PedidosProveedorID_ALMACEN].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TPedidosProveedorDataTableRules.GetTIPO_ALMACENValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidosProveedorTIPO_ALMACEN].AsString;
|
||||
end;
|
||||
|
||||
procedure TPedidosProveedorDataTableRules.SetTIPO_ALMACENValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_PedidosProveedorTIPO_ALMACEN].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TPedidosProveedorDataTableRules.GetTIPO_ALMACENIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidosProveedorTIPO_ALMACEN].IsNull;
|
||||
end;
|
||||
|
||||
procedure TPedidosProveedorDataTableRules.SetTIPO_ALMACENIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_PedidosProveedorTIPO_ALMACEN].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TPedidosProveedorDataTableRules.GetNOMBRE_ALMACENValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidosProveedorNOMBRE_ALMACEN].AsString;
|
||||
|
||||
@ -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 = '{9F7A7FAB-A180-489C-84CF-53D88D983493}';
|
||||
RID_PedidosProveedor_DetallesDelta = '{64CB7A14-E112-4098-8E88-9FC36AD11C6A}';
|
||||
RID_PedidosProveedor_Articulos_PendientesDelta = '{EACFA00B-DB63-4873-AC25-DED6C2914365}';
|
||||
RID_PedidosProveedorDelta = '{B7B1B554-12BE-4C48-A002-61F716BE5D31}';
|
||||
RID_PedidosProveedor_DetallesDelta = '{C27A7AED-50CA-47C7-879D-F6B74CA059E0}';
|
||||
RID_PedidosProveedor_Articulos_PendientesDelta = '{8C3B4D6F-607A-4665-942C-A4CEEC17ED74}';
|
||||
|
||||
type
|
||||
{ IPedidosProveedorDelta }
|
||||
IPedidosProveedorDelta = interface(IPedidosProveedor)
|
||||
['{9F7A7FAB-A180-489C-84CF-53D88D983493}']
|
||||
['{B7B1B554-12BE-4C48-A002-61F716BE5D31}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -29,6 +29,7 @@ type
|
||||
function GetOldFECHA_CONFIRMACIONValue : DateTime;
|
||||
function GetOldFECHA_ENTREGAValue : DateTime;
|
||||
function GetOldID_ALMACENValue : Integer;
|
||||
function GetOldTIPO_ALMACENValue : String;
|
||||
function GetOldNOMBRE_ALMACENValue : String;
|
||||
function GetOldID_OBRAValue : Integer;
|
||||
function GetOldNOMBRE_OBRAValue : String;
|
||||
@ -68,6 +69,7 @@ type
|
||||
property OldFECHA_CONFIRMACION : DateTime read GetOldFECHA_CONFIRMACIONValue;
|
||||
property OldFECHA_ENTREGA : DateTime read GetOldFECHA_ENTREGAValue;
|
||||
property OldID_ALMACEN : Integer read GetOldID_ALMACENValue;
|
||||
property OldTIPO_ALMACEN : String read GetOldTIPO_ALMACENValue;
|
||||
property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue;
|
||||
property OldID_OBRA : Integer read GetOldID_OBRAValue;
|
||||
property OldNOMBRE_OBRA : String read GetOldNOMBRE_OBRAValue;
|
||||
@ -171,6 +173,12 @@ type
|
||||
function GetOldID_ALMACENIsNull: Boolean; virtual;
|
||||
procedure SetID_ALMACENValue(const aValue: Integer); virtual;
|
||||
procedure SetID_ALMACENIsNull(const aValue: Boolean); virtual;
|
||||
function GetTIPO_ALMACENValue: String; virtual;
|
||||
function GetTIPO_ALMACENIsNull: Boolean; virtual;
|
||||
function GetOldTIPO_ALMACENValue: String; virtual;
|
||||
function GetOldTIPO_ALMACENIsNull: Boolean; virtual;
|
||||
procedure SetTIPO_ALMACENValue(const aValue: String); virtual;
|
||||
procedure SetTIPO_ALMACENIsNull(const aValue: Boolean); virtual;
|
||||
function GetNOMBRE_ALMACENValue: String; virtual;
|
||||
function GetNOMBRE_ALMACENIsNull: Boolean; virtual;
|
||||
function GetOldNOMBRE_ALMACENValue: String; virtual;
|
||||
@ -371,6 +379,10 @@ type
|
||||
property ID_ALMACENIsNull : Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull;
|
||||
property OldID_ALMACEN : Integer read GetOldID_ALMACENValue;
|
||||
property OldID_ALMACENIsNull : Boolean read GetOldID_ALMACENIsNull;
|
||||
property TIPO_ALMACEN : String read GetTIPO_ALMACENValue write SetTIPO_ALMACENValue;
|
||||
property TIPO_ALMACENIsNull : Boolean read GetTIPO_ALMACENIsNull write SetTIPO_ALMACENIsNull;
|
||||
property OldTIPO_ALMACEN : String read GetOldTIPO_ALMACENValue;
|
||||
property OldTIPO_ALMACENIsNull : Boolean read GetOldTIPO_ALMACENIsNull;
|
||||
property NOMBRE_ALMACEN : String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue;
|
||||
property NOMBRE_ALMACENIsNull : Boolean read GetNOMBRE_ALMACENIsNull write SetNOMBRE_ALMACENIsNull;
|
||||
property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue;
|
||||
@ -484,7 +496,7 @@ type
|
||||
|
||||
{ IPedidosProveedor_DetallesDelta }
|
||||
IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles)
|
||||
['{64CB7A14-E112-4098-8E88-9FC36AD11C6A}']
|
||||
['{C27A7AED-50CA-47C7-879D-F6B74CA059E0}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_PEDIDOValue : Integer;
|
||||
@ -698,7 +710,7 @@ type
|
||||
|
||||
{ IPedidosProveedor_Articulos_PendientesDelta }
|
||||
IPedidosProveedor_Articulos_PendientesDelta = interface(IPedidosProveedor_Articulos_Pendientes)
|
||||
['{EACFA00B-DB63-4873-AC25-DED6C2914365}']
|
||||
['{8C3B4D6F-607A-4665-942C-A4CEEC17ED74}']
|
||||
{ Property getters and setters }
|
||||
function GetOldID_PEDIDOValue : Integer;
|
||||
function GetOldREFERENCIAValue : String;
|
||||
@ -1167,6 +1179,37 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_ALMACEN] := Null;
|
||||
end;
|
||||
|
||||
function TPedidosProveedorBusinessProcessorRules.GetTIPO_ALMACENValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorTIPO_ALMACEN];
|
||||
end;
|
||||
|
||||
function TPedidosProveedorBusinessProcessorRules.GetTIPO_ALMACENIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorTIPO_ALMACEN]);
|
||||
end;
|
||||
|
||||
function TPedidosProveedorBusinessProcessorRules.GetOldTIPO_ALMACENValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorTIPO_ALMACEN];
|
||||
end;
|
||||
|
||||
function TPedidosProveedorBusinessProcessorRules.GetOldTIPO_ALMACENIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorTIPO_ALMACEN]);
|
||||
end;
|
||||
|
||||
procedure TPedidosProveedorBusinessProcessorRules.SetTIPO_ALMACENValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorTIPO_ALMACEN] := aValue;
|
||||
end;
|
||||
|
||||
procedure TPedidosProveedorBusinessProcessorRules.SetTIPO_ALMACENIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorTIPO_ALMACEN] := Null;
|
||||
end;
|
||||
|
||||
function TPedidosProveedorBusinessProcessorRules.GetNOMBRE_ALMACENValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE_ALMACEN];
|
||||
|
||||
@ -168,6 +168,10 @@ object srvPedidosProveedor: TsrvPedidosProveedor
|
||||
item
|
||||
DatasetField = 'ID_FORMA_PAGO'
|
||||
TableField = 'ID_FORMA_PAGO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'TIPO_ALMACEN'
|
||||
TableField = 'TIPO_ALMACEN'
|
||||
end>
|
||||
end>
|
||||
Name = 'PedidosProveedor'
|
||||
@ -234,6 +238,12 @@ object srvPedidosProveedor: TsrvPedidosProveedor
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PedidosProveedor_ID_ALMACEN'
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_ALMACEN'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
ServerAutoRefresh = True
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_ALMACEN'
|
||||
DataType = datString
|
||||
|
||||
@ -109,16 +109,16 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
|
||||
ExplicitLeft = 278
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited FontName: TJvFontComboBox
|
||||
inherited ToolButton14: TToolButton [4]
|
||||
Left = 334
|
||||
Top = 0
|
||||
ExplicitLeft = 334
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton14: TToolButton
|
||||
Left = 479
|
||||
inherited FontName: TJvFontComboBox [5]
|
||||
Left = 399
|
||||
Top = 0
|
||||
ExplicitLeft = 479
|
||||
ExplicitLeft = 399
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited FontSize: TEdit
|
||||
@ -129,7 +129,13 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 134
|
||||
end
|
||||
inherited ToolButton13: TToolButton [7]
|
||||
inherited UpDown1: TUpDown
|
||||
Left = 678
|
||||
Top = 0
|
||||
ExplicitLeft = 678
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton13: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
Wrap = True
|
||||
@ -137,55 +143,47 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
|
||||
ExplicitTop = 0
|
||||
ExplicitHeight = 27
|
||||
end
|
||||
inherited UpDown1: TUpDown [8]
|
||||
inherited ToolButton6: TToolButton [9]
|
||||
Left = 0
|
||||
Top = 27
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton11: TToolButton
|
||||
Left = 17
|
||||
inherited ToolButton7: TToolButton [10]
|
||||
Left = 66
|
||||
Top = 27
|
||||
ExplicitLeft = 17
|
||||
ExplicitLeft = 66
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton12: TToolButton
|
||||
Left = 158
|
||||
inherited ToolButton8: TToolButton [11]
|
||||
Left = 133
|
||||
Top = 27
|
||||
Wrap = False
|
||||
ExplicitLeft = 158
|
||||
ExplicitLeft = 133
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton12: TToolButton [12]
|
||||
Left = 216
|
||||
Top = 27
|
||||
ExplicitLeft = 216
|
||||
ExplicitTop = 27
|
||||
ExplicitHeight = 22
|
||||
end
|
||||
inherited ToolButton9: TToolButton
|
||||
Left = 166
|
||||
inherited ToolButton9: TToolButton [13]
|
||||
Left = 224
|
||||
Top = 27
|
||||
ExplicitLeft = 166
|
||||
ExplicitLeft = 224
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton10: TToolButton
|
||||
Left = 311
|
||||
inherited ToolButton10: TToolButton [14]
|
||||
Left = 369
|
||||
Top = 27
|
||||
ExplicitLeft = 311
|
||||
ExplicitLeft = 369
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton6: TToolButton
|
||||
Left = 436
|
||||
inherited ToolButton11: TToolButton [15]
|
||||
Left = 494
|
||||
Top = 27
|
||||
ExplicitLeft = 436
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
Left = 502
|
||||
Top = 27
|
||||
Wrap = False
|
||||
ExplicitLeft = 502
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton8: TToolButton
|
||||
Left = 569
|
||||
Top = 27
|
||||
ExplicitLeft = 569
|
||||
ExplicitLeft = 494
|
||||
ExplicitTop = 27
|
||||
end
|
||||
end
|
||||
|
||||
@ -86,7 +86,7 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uEditorRegistryUtils, uCustomView, uEditorElegirPersonaContactoPedido;
|
||||
uEditorRegistryUtils, uCustomView, uEditorElegirPersonaContactoPedido, uInventarioController;
|
||||
|
||||
procedure TfrViewDireccionEntregaPedidoProv.actListaAlmacenesExecute(Sender: TObject);
|
||||
begin
|
||||
@ -115,11 +115,6 @@ begin
|
||||
FPedido.Edit;
|
||||
FPedido.ID_ALMACEN := 0;
|
||||
end;
|
||||
if (FPedido.ID_OBRA > 0) then
|
||||
begin
|
||||
FPedido.Edit;
|
||||
FPedido.ID_OBRA := 0;
|
||||
end;
|
||||
end;
|
||||
RefrescarDireccion;
|
||||
end;
|
||||
@ -284,9 +279,10 @@ begin
|
||||
if (FPedido.EsNuevo) then
|
||||
CambioDireccionAlmacen
|
||||
else begin
|
||||
if (FPedido.ID_ALMACEN >= 1) then
|
||||
if (FPedido.ID_ALMACEN > 0) then
|
||||
if FPedido.TIPO_ALMACEN = CTE_INV_ALMACEN then
|
||||
actListaAlmacenes.Checked := True
|
||||
else if (FPedido.ID_OBRA >= 1) then
|
||||
else
|
||||
actListaObras.Checked := True
|
||||
else
|
||||
actOtro.Checked := True;
|
||||
|
||||
Binary file not shown.
@ -124,10 +124,10 @@ uses
|
||||
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
|
||||
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
|
||||
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
|
||||
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
|
||||
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
|
||||
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
|
||||
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas';
|
||||
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
|
||||
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
|
||||
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas';
|
||||
|
||||
{$R *.res}
|
||||
{$R ..\Servicios\RODLFile.res}
|
||||
|
||||
@ -1,4 +1,4 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
|
||||
|
||||
@ -14,7 +14,7 @@ BEGIN
|
||||
BEGIN
|
||||
VALUE "FileVersion", "1.2.0.0\0"
|
||||
VALUE "ProductVersion", "1.2.0.0\0"
|
||||
VALUE "CompileDate", "miércoles, 30 de julio de 2008 18:17\0"
|
||||
VALUE "CompileDate", "jueves, 31 de julio de 2008 12:07\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Loading…
Reference in New Issue
Block a user