From e6a54cde42b503e6dd67a3f28e6b88e76ed8bffb Mon Sep 17 00:00:00 2001 From: roberto Date: Thu, 31 Jul 2008 15:08:05 +0000 Subject: [PATCH] =?UTF-8?q?Se=20arregla=20el=20recuperar=20los=20datos=20d?= =?UTF-8?q?e=20recepci=C3=B3n=20del=20pedido=20que=20no=20los=20recuperaba?= =?UTF-8?q?=20bien?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@487 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- Database/scripts/factuges.sql | 9 +- .../Data/uDataModulePedidosProveedor.dfm | 6 + .../Model/schPedidosProveedorClient_Intf.pas | 107 ++-- .../Model/schPedidosProveedorServer_Intf.pas | 55 +- .../Servidor/srvPedidosProveedor_Impl.dfm | 10 + .../Views/uEditorPedidoProveedor.dfm | 68 +-- .../Views/uViewDireccionEntregaPedidoProv.pas | 16 +- Source/Servidor/FactuGES_Server.RES | Bin 23208 -> 23200 bytes Source/Servidor/FactuGES_Server.dpr | 6 +- Source/Servidor/FactuGES_Server.dproj | 562 +++++++++--------- Source/Servidor/FactuGES_Server.rc | 2 +- 11 files changed, 465 insertions(+), 376 deletions(-) diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql index cc0de5b1..6ead80f0 100644 --- a/Database/scripts/factuges.sql +++ b/Database/scripts/factuges.sql @@ -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, diff --git a/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm index 02326590..c8132f44 100644 --- a/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm +++ b/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm @@ -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 diff --git a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas index 16ae9f09..9405b72c 100644 --- a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas +++ b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas @@ -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; diff --git a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas index 1344cd65..a70f5f89 100644 --- a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas +++ b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas @@ -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]; diff --git a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm index ef2b1cd4..aa15497f 100644 --- a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm +++ b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm @@ -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 diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm index a904031f..a2560026 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm +++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm @@ -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 diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.pas b/Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.pas index 4403b197..371d9d0f 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.pas +++ b/Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.pas @@ -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,10 +279,11 @@ begin if (FPedido.EsNuevo) then CambioDireccionAlmacen else begin - if (FPedido.ID_ALMACEN >= 1) then - actListaAlmacenes.Checked := True - else if (FPedido.ID_OBRA >= 1) then - actListaObras.Checked := True + if (FPedido.ID_ALMACEN > 0) then + if FPedido.TIPO_ALMACEN = CTE_INV_ALMACEN then + actListaAlmacenes.Checked := True + else + actListaObras.Checked := True else actOtro.Checked := True; end; diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index fa3a3b3e91d53e144b1015da9565404ff5c7e7bc..5675d5297f6b8b85cb07553f3e1a24438b84cd6b 100644 GIT binary patch delta 77 zcmZ3nm2tsV#tnBO7?(`G8zB!Q|3*YJvP_PQRAziIxi+$zIfX%K^6yAl;VgzyhE#?! fATDOmVNhT&W-y#=7^Ti`#9+l>z+gT(G0GhPQpgw8 delta 85 zcmZ3mm2t&Z#tnBO7}rd`8zB!Q|3*YJa!rnmRAziOxi+$zIg3Gc^6yAl$y|m^hL;RQ p49N`n3^@#`48;sO3 + - - {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} - FactuGES_Server.dpr - Debug - AnyCPU - DCC32 - ..\..\Output\Debug\Servidor\FactuGES_Server.exe - vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100 - - - 7.0 - False - False - 0 - 3 - ..\..\Output\Release\Servidor - RELEASE - - - 7.0 - 3 - ..\..\Output\Debug\Servidor - DEBUG; - True - True - True - $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 - $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 - $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 - $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 - - - Delphi.Personality - - - FalseTrueFalse/standaloneTrueFalse1200FalseFalseFalseFalseFalse308212521.2.0.01.2.0.0miércoles, 30 de julio de 2008 12:48FactuGES_Server.dpr - - - - - MainSource - - - - - -
srvEmpresas
- TDARemoteService - - - - - - - - - - - - -
RptAlbaranesCliente
- TDataModule - - -
RptWordAlbaranCliente
- TDataModule - - -
srvAlbaranesCliente
- TDataAbstractService - - - - - -
srvAlbaranesProveedor
- TDataAbstractService - - - - -
srvAlmacenes
- TDARemoteService - - - - - -
srvArticulos
- TDARemoteService - - - - - - - - -
RptEtiquetasContacto
- TDataModule - - -
RptFichasEmpleado
- TDataModule - - -
srvContactos
- TDARemoteService - - - - -
srvFabricantes
- TDataAbstractService - - - - - -
RptFacturasCliente
- TDataModule - - -
RptWordFacturaCliente
- TDataModule - - -
srvFacturasCliente
- TDataAbstractService - - - - - -
srvFacturasProveedor
- TDataAbstractService - - - - - - - - - - - -
srvHistoricoMovimientos
- TDataAbstractService - - - - -
srvInventario
- TDataAbstractService - - - - - - - - - -
RptPedidosProveedor
- TDataModule - - -
RptWordPedidoProveedor
- TDataModule - - -
srvPedidosProveedor
- TDataAbstractService - - - - - -
RptPresupuestosCliente
- - -
RptWordPresupuestoCliente
- TDataModule - - -
srvPresupuestosCliente
- TDataAbstractService - - - - -
RptRecibosCliente
- TDataModule - - -
srvRecibosCliente
- TDataAbstractService - - - - -
srvRecibosProveedor
- TDataAbstractService - - - - -
srvReferencias
- TDataAbstractService - - - - - -
srvRemesasCliente
- TDataAbstractService - - - - - -
srvRemesasProveedor
- TDataAbstractService - - - - - - - -
srvUnidadesMedida
- TDataAbstractService - - - - -
srvConfiguracion
- TDataAbstractService - - -
frConexionBD
- TFrame - - -
frConfGeneral
- TFrame - - -
fConfiguracion
- TForm - - -
FrameConfiguracion
- TFrame - - -
srvLogin
- TDARemoteService - - -
fAcercaDe
- - -
dmServer
- TDataModule - - -
fServerForm
- - - - - - - - - - - + + {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} + FactuGES_Server.dpr + Debug + AnyCPU + DCC32 + ..\..\Output\Debug\Servidor\FactuGES_Server.exe + vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100 + + + 7.0 + False + False + 0 + 3 + ..\..\Output\Release\Servidor + RELEASE + + + 7.0 + 3 + ..\..\Output\Debug\Servidor + DEBUG; + True + True + True + $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 + $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 + $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 + $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 + + + Delphi.Personality + + +FalseTrueFalse/standaloneTrueFalse1200FalseFalseFalseFalseFalse308212521.2.0.01.2.0.0miércoles, 30 de julio de 2008 12:48FactuGES_Server.dpr + + + + + MainSource + + + + + +
srvEmpresas
+ TDARemoteService + + + + + + + + + + + + +
RptAlbaranesCliente
+ TDataModule + + +
RptWordAlbaranCliente
+ TDataModule + + +
srvAlbaranesCliente
+ TDataAbstractService + + + + + +
srvAlbaranesProveedor
+ TDataAbstractService + + + + +
srvAlmacenes
+ TDARemoteService + + + + + +
srvArticulos
+ TDARemoteService + + + + + + + + +
RptEtiquetasContacto
+ TDataModule + + +
RptFichasEmpleado
+ TDataModule + + +
srvContactos
+ TDARemoteService + + + + +
srvFabricantes
+ TDataAbstractService + + + + + +
RptFacturasCliente
+ TDataModule + + +
RptWordFacturaCliente
+ TDataModule + + +
srvFacturasCliente
+ TDataAbstractService + + + + + +
srvFacturasProveedor
+ TDataAbstractService + + + + + + + + + + + +
srvHistoricoMovimientos
+ TDataAbstractService + + + + +
srvInventario
+ TDataAbstractService + + + + + + + + + +
RptPedidosProveedor
+ TDataModule + + +
RptWordPedidoProveedor
+ TDataModule + + +
srvPedidosProveedor
+ TDataAbstractService + + + + + +
RptPresupuestosCliente
+ + +
RptWordPresupuestoCliente
+ TDataModule + + +
srvPresupuestosCliente
+ TDataAbstractService + + + + +
RptRecibosCliente
+ TDataModule + + +
srvRecibosCliente
+ TDataAbstractService + + + + +
srvRecibosProveedor
+ TDataAbstractService + + + + +
srvReferencias
+ TDataAbstractService + + + + + +
srvRemesasCliente
+ TDataAbstractService + + + + + +
srvRemesasProveedor
+ TDataAbstractService + + + + + + + +
srvUnidadesMedida
+ TDataAbstractService + + + + +
srvConfiguracion
+ TDataAbstractService + + +
frConexionBD
+ TFrame + + +
frConfGeneral
+ TFrame + + +
fConfiguracion
+ TForm + + +
FrameConfiguracion
+ TFrame + + +
srvLogin
+ TDARemoteService + + +
fAcercaDe
+ + +
dmServer
+ TDataModule + + +
fServerForm
+ + + + + + + + + + +