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

Se arregla el recuperar los datos de recepción del pedido que no los recuperaba bien

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@487 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-07-31 15:08:05 +00:00
parent 6e9f338139
commit e6a54cde42
11 changed files with 465 additions and 376 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Database/scripts/factuges.sql
View File

@ -2666,6 +2666,7 @@ CREATE VIEW V_PEDIDOS_PROVEEDOR(
FECHA_CONFIRMACION, FECHA_CONFIRMACION,
FECHA_ENTREGA, FECHA_ENTREGA,
ID_ALMACEN, ID_ALMACEN,
TIPO_ALMACEN,
NOMBRE_ALMACEN, NOMBRE_ALMACEN,
ID_OBRA, ID_OBRA,
NOMBRE_OBRA, NOMBRE_OBRA,
@ -2697,7 +2698,7 @@ SELECT
PEDIDOS_PROVEEDOR.ID, PEDIDOS_PROVEEDOR.ID,
PEDIDOS_PROVEEDOR.ID_EMPRESA, PEDIDOS_PROVEEDOR.ID_EMPRESA,
PEDIDOS_PROVEEDOR.ID_PROVEEDOR, PEDIDOS_PROVEEDOR.ID_PROVEEDOR,
CONTACTOS.NOMBRE, V_PROVEEDORES.NOMBRE,
PEDIDOS_PROVEEDOR.REFERENCIA, PEDIDOS_PROVEEDOR.REFERENCIA,
TRIM(V_PED_PROV_SITUACION.SITUACION), TRIM(V_PED_PROV_SITUACION.SITUACION),
PEDIDOS_PROVEEDOR.FECHA_ENVIO, PEDIDOS_PROVEEDOR.FECHA_ENVIO,
@ -2705,6 +2706,7 @@ SELECT
PEDIDOS_PROVEEDOR.FECHA_CONFIRMACION, PEDIDOS_PROVEEDOR.FECHA_CONFIRMACION,
PEDIDOS_PROVEEDOR.FECHA_ENTREGA, PEDIDOS_PROVEEDOR.FECHA_ENTREGA,
PEDIDOS_PROVEEDOR.ID_ALMACEN, PEDIDOS_PROVEEDOR.ID_ALMACEN,
ALMACENES.TIPO_ALMACEN,
ALMACENES.NOMBRE AS NOMBRE_ALMACEN, ALMACENES.NOMBRE AS NOMBRE_ALMACEN,
PEDIDOS_PROVEEDOR.ID_OBRA, PEDIDOS_PROVEEDOR.ID_OBRA,
OBRAS.NOMBRE AS NOMBRE_OBRA, OBRAS.NOMBRE AS NOMBRE_OBRA,
@ -2733,15 +2735,14 @@ SELECT
PEDIDOS_PROVEEDOR.ID_FORMA_PAGO PEDIDOS_PROVEEDOR.ID_FORMA_PAGO
FROM FROM
PEDIDOS_PROVEEDOR 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 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 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) LEFT OUTER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = PEDIDOS_PROVEEDOR.ID_PEDIDO_CLIENTE)
; ;
/* View: V_PRESUPUESTOS_CLIENTE */ /* View: V_PRESUPUESTOS_CLIENTE */
CREATE VIEW V_PRESUPUESTOS_CLIENTE( CREATE VIEW V_PRESUPUESTOS_CLIENTE(
ID, ID,

6
Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm
View File

@ -97,6 +97,12 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
DisplayLabel = 'PedidosProveedor_ID_ALMACEN' DisplayLabel = 'PedidosProveedor_ID_ALMACEN'
DictionaryEntry = 'PedidosProveedor_ID_ALMACEN' DictionaryEntry = 'PedidosProveedor_ID_ALMACEN'
end end
item
Name = 'TIPO_ALMACEN'
DataType = datString
Size = 10
ServerAutoRefresh = True
end
item item
Name = 'NOMBRE_ALMACEN' Name = 'NOMBRE_ALMACEN'
DataType = datString DataType = datString

107
Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas
View File

@ -3,15 +3,15 @@ unit schPedidosProveedorClient_Intf;
interface interface
uses uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_PedidosProveedor = '{7262F144-AFC8-4C3F-BDB1-7DCA530FA007}'; RID_PedidosProveedor = '{599AF7BA-7502-49F5-B736-1B5F681C521B}';
RID_PedidosProveedor_Detalles = '{42853D51-F307-4A55-8733-7E97B1BBE2C5}'; RID_PedidosProveedor_Detalles = '{F98729C4-7CD8-4B99-9C6E-337A04485DC8}';
RID_PedidosProveedor_Articulos_Pendientes = '{29ECEF41-2FBF-4B35-95F8-2814C683C0BE}'; RID_PedidosProveedor_Articulos_Pendientes = '{146C079F-89AF-4606-B3A8-D99D14CB3A80}';
{ Data table names } { Data table names }
nme_PedidosProveedor = 'PedidosProveedor'; nme_PedidosProveedor = 'PedidosProveedor';
@ -30,6 +30,7 @@ const
fld_PedidosProveedorFECHA_CONFIRMACION = 'FECHA_CONFIRMACION'; fld_PedidosProveedorFECHA_CONFIRMACION = 'FECHA_CONFIRMACION';
fld_PedidosProveedorFECHA_ENTREGA = 'FECHA_ENTREGA'; fld_PedidosProveedorFECHA_ENTREGA = 'FECHA_ENTREGA';
fld_PedidosProveedorID_ALMACEN = 'ID_ALMACEN'; fld_PedidosProveedorID_ALMACEN = 'ID_ALMACEN';
fld_PedidosProveedorTIPO_ALMACEN = 'TIPO_ALMACEN';
fld_PedidosProveedorNOMBRE_ALMACEN = 'NOMBRE_ALMACEN'; fld_PedidosProveedorNOMBRE_ALMACEN = 'NOMBRE_ALMACEN';
fld_PedidosProveedorID_OBRA = 'ID_OBRA'; fld_PedidosProveedorID_OBRA = 'ID_OBRA';
fld_PedidosProveedorNOMBRE_OBRA = 'NOMBRE_OBRA'; fld_PedidosProveedorNOMBRE_OBRA = 'NOMBRE_OBRA';
@ -69,32 +70,33 @@ const
idx_PedidosProveedorFECHA_CONFIRMACION = 8; idx_PedidosProveedorFECHA_CONFIRMACION = 8;
idx_PedidosProveedorFECHA_ENTREGA = 9; idx_PedidosProveedorFECHA_ENTREGA = 9;
idx_PedidosProveedorID_ALMACEN = 10; idx_PedidosProveedorID_ALMACEN = 10;
idx_PedidosProveedorNOMBRE_ALMACEN = 11; idx_PedidosProveedorTIPO_ALMACEN = 11;
idx_PedidosProveedorID_OBRA = 12; idx_PedidosProveedorNOMBRE_ALMACEN = 12;
idx_PedidosProveedorNOMBRE_OBRA = 13; idx_PedidosProveedorID_OBRA = 13;
idx_PedidosProveedorOBSERVACIONES = 14; idx_PedidosProveedorNOMBRE_OBRA = 14;
idx_PedidosProveedorIMPORTE_TOTAL = 15; idx_PedidosProveedorOBSERVACIONES = 15;
idx_PedidosProveedorINCIDENCIAS = 16; idx_PedidosProveedorIMPORTE_TOTAL = 16;
idx_PedidosProveedorINCIDENCIAS_ACTIVAS = 17; idx_PedidosProveedorINCIDENCIAS = 17;
idx_PedidosProveedorCALLE = 18; idx_PedidosProveedorINCIDENCIAS_ACTIVAS = 18;
idx_PedidosProveedorPOBLACION = 19; idx_PedidosProveedorCALLE = 19;
idx_PedidosProveedorPROVINCIA = 20; idx_PedidosProveedorPOBLACION = 20;
idx_PedidosProveedorCODIGO_POSTAL = 21; idx_PedidosProveedorPROVINCIA = 21;
idx_PedidosProveedorPERSONA_CONTACTO = 22; idx_PedidosProveedorCODIGO_POSTAL = 22;
idx_PedidosProveedorTELEFONO = 23; idx_PedidosProveedorPERSONA_CONTACTO = 23;
idx_PedidosProveedorFECHA_ALTA = 24; idx_PedidosProveedorTELEFONO = 24;
idx_PedidosProveedorFECHA_MODIFICACION = 25; idx_PedidosProveedorFECHA_ALTA = 25;
idx_PedidosProveedorUSUARIO = 26; idx_PedidosProveedorFECHA_MODIFICACION = 26;
idx_PedidosProveedorID_PEDIDO_CLIENTE = 27; idx_PedidosProveedorUSUARIO = 27;
idx_PedidosProveedorREF_PED_CLIENTE = 28; idx_PedidosProveedorID_PEDIDO_CLIENTE = 28;
idx_PedidosProveedorIMPORTE_NETO = 29; idx_PedidosProveedorREF_PED_CLIENTE = 29;
idx_PedidosProveedorIMPORTE_PORTE = 30; idx_PedidosProveedorIMPORTE_NETO = 30;
idx_PedidosProveedorDESCUENTO = 31; idx_PedidosProveedorIMPORTE_PORTE = 31;
idx_PedidosProveedorIMPORTE_DESCUENTO = 32; idx_PedidosProveedorDESCUENTO = 32;
idx_PedidosProveedorBASE_IMPONIBLE = 33; idx_PedidosProveedorIMPORTE_DESCUENTO = 33;
idx_PedidosProveedorIVA = 34; idx_PedidosProveedorBASE_IMPONIBLE = 34;
idx_PedidosProveedorIMPORTE_IVA = 35; idx_PedidosProveedorIVA = 35;
idx_PedidosProveedorID_FORMA_PAGO = 36; idx_PedidosProveedorIMPORTE_IVA = 36;
idx_PedidosProveedorID_FORMA_PAGO = 37;
{ PedidosProveedor_Detalles fields } { PedidosProveedor_Detalles fields }
fld_PedidosProveedor_DetallesID = 'ID'; fld_PedidosProveedor_DetallesID = 'ID';
@ -151,7 +153,7 @@ const
type type
{ IPedidosProveedor } { IPedidosProveedor }
IPedidosProveedor = interface(IDAStronglyTypedDataTable) IPedidosProveedor = interface(IDAStronglyTypedDataTable)
['{C7AA3400-0782-43E4-A8E0-1D46A319FE67}'] ['{D72E5C27-F27B-4AD2-AE47-2D27ED1F51D6}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -197,6 +199,10 @@ type
procedure SetID_ALMACENValue(const aValue: Integer); procedure SetID_ALMACENValue(const aValue: Integer);
function GetID_ALMACENIsNull: Boolean; function GetID_ALMACENIsNull: Boolean;
procedure SetID_ALMACENIsNull(const aValue: 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; function GetNOMBRE_ALMACENValue: String;
procedure SetNOMBRE_ALMACENValue(const aValue: String); procedure SetNOMBRE_ALMACENValue(const aValue: String);
function GetNOMBRE_ALMACENIsNull: Boolean; function GetNOMBRE_ALMACENIsNull: Boolean;
@ -324,6 +330,8 @@ type
property FECHA_ENTREGAIsNull: Boolean read GetFECHA_ENTREGAIsNull write SetFECHA_ENTREGAIsNull; property FECHA_ENTREGAIsNull: Boolean read GetFECHA_ENTREGAIsNull write SetFECHA_ENTREGAIsNull;
property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue; property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue;
property ID_ALMACENIsNull: Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull; 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_ALMACEN: String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue;
property NOMBRE_ALMACENIsNull: Boolean read GetNOMBRE_ALMACENIsNull write SetNOMBRE_ALMACENIsNull; property NOMBRE_ALMACENIsNull: Boolean read GetNOMBRE_ALMACENIsNull write SetNOMBRE_ALMACENIsNull;
property ID_OBRA: Integer read GetID_OBRAValue write SetID_OBRAValue; property ID_OBRA: Integer read GetID_OBRAValue write SetID_OBRAValue;
@ -379,7 +387,7 @@ type
end; end;
{ TPedidosProveedorDataTableRules } { TPedidosProveedorDataTableRules }
TPedidosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor) TPedidosProveedorDataTableRules = class(TDADataTableRules, IPedidosProveedor)
private private
f_OBSERVACIONES: IROStrings; f_OBSERVACIONES: IROStrings;
f_INCIDENCIAS: IROStrings; f_INCIDENCIAS: IROStrings;
@ -431,6 +439,10 @@ type
procedure SetID_ALMACENValue(const aValue: Integer); virtual; procedure SetID_ALMACENValue(const aValue: Integer); virtual;
function GetID_ALMACENIsNull: Boolean; virtual; function GetID_ALMACENIsNull: Boolean; virtual;
procedure SetID_ALMACENIsNull(const aValue: 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; function GetNOMBRE_ALMACENValue: String; virtual;
procedure SetNOMBRE_ALMACENValue(const aValue: String); virtual; procedure SetNOMBRE_ALMACENValue(const aValue: String); virtual;
function GetNOMBRE_ALMACENIsNull: Boolean; virtual; function GetNOMBRE_ALMACENIsNull: Boolean; virtual;
@ -557,6 +569,8 @@ type
property FECHA_ENTREGAIsNull: Boolean read GetFECHA_ENTREGAIsNull write SetFECHA_ENTREGAIsNull; property FECHA_ENTREGAIsNull: Boolean read GetFECHA_ENTREGAIsNull write SetFECHA_ENTREGAIsNull;
property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue; property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue;
property ID_ALMACENIsNull: Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull; 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_ALMACEN: String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue;
property NOMBRE_ALMACENIsNull: Boolean read GetNOMBRE_ALMACENIsNull write SetNOMBRE_ALMACENIsNull; property NOMBRE_ALMACENIsNull: Boolean read GetNOMBRE_ALMACENIsNull write SetNOMBRE_ALMACENIsNull;
property ID_OBRA: Integer read GetID_OBRAValue write SetID_OBRAValue; property ID_OBRA: Integer read GetID_OBRAValue write SetID_OBRAValue;
@ -618,7 +632,7 @@ type
{ IPedidosProveedor_Detalles } { IPedidosProveedor_Detalles }
IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable) IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{D2228AB6-71FA-4D37-BC2B-CC8C876D874A}'] ['{20E26A43-B9D9-44F5-85B4-D11AC9EA78BE}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -722,7 +736,7 @@ type
end; end;
{ TPedidosProveedor_DetallesDataTableRules } { TPedidosProveedor_DetallesDataTableRules }
TPedidosProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor_Detalles) TPedidosProveedor_DetallesDataTableRules = class(TDADataTableRules, IPedidosProveedor_Detalles)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -833,7 +847,7 @@ type
{ IPedidosProveedor_Articulos_Pendientes } { IPedidosProveedor_Articulos_Pendientes }
IPedidosProveedor_Articulos_Pendientes = interface(IDAStronglyTypedDataTable) IPedidosProveedor_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
['{75AEDA92-EDCE-4DB4-B6D5-842A0CB0089C}'] ['{6C7587FF-FB34-477D-84C9-8382A0705353}']
{ Property getters and setters } { Property getters and setters }
function GetID_PEDIDOValue: Integer; function GetID_PEDIDOValue: Integer;
procedure SetID_PEDIDOValue(const aValue: Integer); procedure SetID_PEDIDOValue(const aValue: Integer);
@ -877,7 +891,7 @@ type
end; end;
{ TPedidosProveedor_Articulos_PendientesDataTableRules } { TPedidosProveedor_Articulos_PendientesDataTableRules }
TPedidosProveedor_Articulos_PendientesDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor_Articulos_Pendientes) TPedidosProveedor_Articulos_PendientesDataTableRules = class(TDADataTableRules, IPedidosProveedor_Articulos_Pendientes)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1192,6 +1206,27 @@ begin
DataTable.Fields[idx_PedidosProveedorID_ALMACEN].AsVariant := Null; DataTable.Fields[idx_PedidosProveedorID_ALMACEN].AsVariant := Null;
end; 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; function TPedidosProveedorDataTableRules.GetNOMBRE_ALMACENValue: String;
begin begin
result := DataTable.Fields[idx_PedidosProveedorNOMBRE_ALMACEN].AsString; result := DataTable.Fields[idx_PedidosProveedorNOMBRE_ALMACEN].AsString;

55
Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas
View File

@ -9,14 +9,14 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_PedidosProveedorDelta = '{9F7A7FAB-A180-489C-84CF-53D88D983493}'; RID_PedidosProveedorDelta = '{B7B1B554-12BE-4C48-A002-61F716BE5D31}';
RID_PedidosProveedor_DetallesDelta = '{64CB7A14-E112-4098-8E88-9FC36AD11C6A}'; RID_PedidosProveedor_DetallesDelta = '{C27A7AED-50CA-47C7-879D-F6B74CA059E0}';
RID_PedidosProveedor_Articulos_PendientesDelta = '{EACFA00B-DB63-4873-AC25-DED6C2914365}'; RID_PedidosProveedor_Articulos_PendientesDelta = '{8C3B4D6F-607A-4665-942C-A4CEEC17ED74}';
type type
{ IPedidosProveedorDelta } { IPedidosProveedorDelta }
IPedidosProveedorDelta = interface(IPedidosProveedor) IPedidosProveedorDelta = interface(IPedidosProveedor)
['{9F7A7FAB-A180-489C-84CF-53D88D983493}'] ['{B7B1B554-12BE-4C48-A002-61F716BE5D31}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -29,6 +29,7 @@ type
function GetOldFECHA_CONFIRMACIONValue : DateTime; function GetOldFECHA_CONFIRMACIONValue : DateTime;
function GetOldFECHA_ENTREGAValue : DateTime; function GetOldFECHA_ENTREGAValue : DateTime;
function GetOldID_ALMACENValue : Integer; function GetOldID_ALMACENValue : Integer;
function GetOldTIPO_ALMACENValue : String;
function GetOldNOMBRE_ALMACENValue : String; function GetOldNOMBRE_ALMACENValue : String;
function GetOldID_OBRAValue : Integer; function GetOldID_OBRAValue : Integer;
function GetOldNOMBRE_OBRAValue : String; function GetOldNOMBRE_OBRAValue : String;
@ -68,6 +69,7 @@ type
property OldFECHA_CONFIRMACION : DateTime read GetOldFECHA_CONFIRMACIONValue; property OldFECHA_CONFIRMACION : DateTime read GetOldFECHA_CONFIRMACIONValue;
property OldFECHA_ENTREGA : DateTime read GetOldFECHA_ENTREGAValue; property OldFECHA_ENTREGA : DateTime read GetOldFECHA_ENTREGAValue;
property OldID_ALMACEN : Integer read GetOldID_ALMACENValue; property OldID_ALMACEN : Integer read GetOldID_ALMACENValue;
property OldTIPO_ALMACEN : String read GetOldTIPO_ALMACENValue;
property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue; property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue;
property OldID_OBRA : Integer read GetOldID_OBRAValue; property OldID_OBRA : Integer read GetOldID_OBRAValue;
property OldNOMBRE_OBRA : String read GetOldNOMBRE_OBRAValue; property OldNOMBRE_OBRA : String read GetOldNOMBRE_OBRAValue;
@ -171,6 +173,12 @@ type
function GetOldID_ALMACENIsNull: Boolean; virtual; function GetOldID_ALMACENIsNull: Boolean; virtual;
procedure SetID_ALMACENValue(const aValue: Integer); virtual; procedure SetID_ALMACENValue(const aValue: Integer); virtual;
procedure SetID_ALMACENIsNull(const aValue: Boolean); 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_ALMACENValue: String; virtual;
function GetNOMBRE_ALMACENIsNull: Boolean; virtual; function GetNOMBRE_ALMACENIsNull: Boolean; virtual;
function GetOldNOMBRE_ALMACENValue: String; virtual; function GetOldNOMBRE_ALMACENValue: String; virtual;
@ -371,6 +379,10 @@ type
property ID_ALMACENIsNull : Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull; property ID_ALMACENIsNull : Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull;
property OldID_ALMACEN : Integer read GetOldID_ALMACENValue; property OldID_ALMACEN : Integer read GetOldID_ALMACENValue;
property OldID_ALMACENIsNull : Boolean read GetOldID_ALMACENIsNull; 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_ALMACEN : String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue;
property NOMBRE_ALMACENIsNull : Boolean read GetNOMBRE_ALMACENIsNull write SetNOMBRE_ALMACENIsNull; property NOMBRE_ALMACENIsNull : Boolean read GetNOMBRE_ALMACENIsNull write SetNOMBRE_ALMACENIsNull;
property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue; property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue;
@ -484,7 +496,7 @@ type
{ IPedidosProveedor_DetallesDelta } { IPedidosProveedor_DetallesDelta }
IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles) IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles)
['{64CB7A14-E112-4098-8E88-9FC36AD11C6A}'] ['{C27A7AED-50CA-47C7-879D-F6B74CA059E0}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PEDIDOValue : Integer; function GetOldID_PEDIDOValue : Integer;
@ -698,7 +710,7 @@ type
{ IPedidosProveedor_Articulos_PendientesDelta } { IPedidosProveedor_Articulos_PendientesDelta }
IPedidosProveedor_Articulos_PendientesDelta = interface(IPedidosProveedor_Articulos_Pendientes) IPedidosProveedor_Articulos_PendientesDelta = interface(IPedidosProveedor_Articulos_Pendientes)
['{EACFA00B-DB63-4873-AC25-DED6C2914365}'] ['{8C3B4D6F-607A-4665-942C-A4CEEC17ED74}']
{ Property getters and setters } { Property getters and setters }
function GetOldID_PEDIDOValue : Integer; function GetOldID_PEDIDOValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
@ -1167,6 +1179,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_ALMACEN] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_ALMACEN] := Null;
end; 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; function TPedidosProveedorBusinessProcessorRules.GetNOMBRE_ALMACENValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE_ALMACEN]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE_ALMACEN];

10
Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm
View File

@ -168,6 +168,10 @@ object srvPedidosProveedor: TsrvPedidosProveedor
item item
DatasetField = 'ID_FORMA_PAGO' DatasetField = 'ID_FORMA_PAGO'
TableField = 'ID_FORMA_PAGO' TableField = 'ID_FORMA_PAGO'
end
item
DatasetField = 'TIPO_ALMACEN'
TableField = 'TIPO_ALMACEN'
end> end>
end> end>
Name = 'PedidosProveedor' Name = 'PedidosProveedor'
@ -234,6 +238,12 @@ object srvPedidosProveedor: TsrvPedidosProveedor
DataType = datInteger DataType = datInteger
DictionaryEntry = 'PedidosProveedor_ID_ALMACEN' DictionaryEntry = 'PedidosProveedor_ID_ALMACEN'
end end
item
Name = 'TIPO_ALMACEN'
DataType = datString
Size = 10
ServerAutoRefresh = True
end
item item
Name = 'NOMBRE_ALMACEN' Name = 'NOMBRE_ALMACEN'
DataType = datString DataType = datString

68
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm
View File

@ -109,16 +109,16 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
ExplicitLeft = 278 ExplicitLeft = 278
ExplicitTop = 0 ExplicitTop = 0
end end
inherited FontName: TJvFontComboBox inherited ToolButton14: TToolButton [4]
Left = 334 Left = 334
Top = 0 Top = 0
ExplicitLeft = 334 ExplicitLeft = 334
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton14: TToolButton inherited FontName: TJvFontComboBox [5]
Left = 479 Left = 399
Top = 0 Top = 0
ExplicitLeft = 479 ExplicitLeft = 399
ExplicitTop = 0 ExplicitTop = 0
end end
inherited FontSize: TEdit inherited FontSize: TEdit
@ -129,7 +129,13 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
ExplicitTop = 0 ExplicitTop = 0
ExplicitWidth = 134 ExplicitWidth = 134
end end
inherited ToolButton13: TToolButton [7] inherited UpDown1: TUpDown
Left = 678
Top = 0
ExplicitLeft = 678
ExplicitTop = 0
end
inherited ToolButton13: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
Wrap = True Wrap = True
@ -137,55 +143,47 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
ExplicitTop = 0 ExplicitTop = 0
ExplicitHeight = 27 ExplicitHeight = 27
end end
inherited UpDown1: TUpDown [8] inherited ToolButton6: TToolButton [9]
Left = 0 Left = 0
Top = 27 Top = 27
ExplicitLeft = 0 ExplicitLeft = 0
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton11: TToolButton inherited ToolButton7: TToolButton [10]
Left = 17 Left = 66
Top = 27 Top = 27
ExplicitLeft = 17 ExplicitLeft = 66
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton12: TToolButton inherited ToolButton8: TToolButton [11]
Left = 158 Left = 133
Top = 27 Top = 27
Wrap = False ExplicitLeft = 133
ExplicitLeft = 158 ExplicitTop = 27
end
inherited ToolButton12: TToolButton [12]
Left = 216
Top = 27
ExplicitLeft = 216
ExplicitTop = 27 ExplicitTop = 27
ExplicitHeight = 22 ExplicitHeight = 22
end end
inherited ToolButton9: TToolButton inherited ToolButton9: TToolButton [13]
Left = 166 Left = 224
Top = 27 Top = 27
ExplicitLeft = 166 ExplicitLeft = 224
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton10: TToolButton inherited ToolButton10: TToolButton [14]
Left = 311 Left = 369
Top = 27 Top = 27
ExplicitLeft = 311 ExplicitLeft = 369
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton6: TToolButton inherited ToolButton11: TToolButton [15]
Left = 436 Left = 494
Top = 27 Top = 27
ExplicitLeft = 436 ExplicitLeft = 494
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
ExplicitTop = 27 ExplicitTop = 27
end end
end end

12
Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.pas
View File

@ -86,7 +86,7 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
uEditorRegistryUtils, uCustomView, uEditorElegirPersonaContactoPedido; uEditorRegistryUtils, uCustomView, uEditorElegirPersonaContactoPedido, uInventarioController;
procedure TfrViewDireccionEntregaPedidoProv.actListaAlmacenesExecute(Sender: TObject); procedure TfrViewDireccionEntregaPedidoProv.actListaAlmacenesExecute(Sender: TObject);
begin begin
@ -115,11 +115,6 @@ begin
FPedido.Edit; FPedido.Edit;
FPedido.ID_ALMACEN := 0; FPedido.ID_ALMACEN := 0;
end; end;
if (FPedido.ID_OBRA > 0) then
begin
FPedido.Edit;
FPedido.ID_OBRA := 0;
end;
end; end;
RefrescarDireccion; RefrescarDireccion;
end; end;
@ -284,9 +279,10 @@ begin
if (FPedido.EsNuevo) then if (FPedido.EsNuevo) then
CambioDireccionAlmacen CambioDireccionAlmacen
else begin 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 actListaAlmacenes.Checked := True
else if (FPedido.ID_OBRA >= 1) then else
actListaObras.Checked := True actListaObras.Checked := True
else else
actOtro.Checked := True; actOtro.Checked := True;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -124,10 +124,10 @@ uses
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas', schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas', schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_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', 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 *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -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"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN BEGIN
VALUE "FileVersion", "1.2.0.0\0" VALUE "FileVersion", "1.2.0.0\0"
VALUE "ProductVersion", "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
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"