From 39dba3aeedae84fc892c8f8c34f31cb9803f305f Mon Sep 17 00:00:00 2001 From: roberto Date: Thu, 10 Sep 2015 17:10:22 +0000 Subject: [PATCH] =?UTF-8?q?Cambios=20varios=20solicitados=20por=20Ana,=20r?= =?UTF-8?q?uni=C3=B3n=2010/09/2015?= 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.LuisLeon_FactuGES2/trunk@238 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2 --- .../Data/uDataModulePedidosCliente.dfm | 8 + .../Model/schPedidosClienteClient_Intf.pas | 150 +++- .../Model/schPedidosClienteServer_Intf.pas | 114 ++- .../Servidor/srvPedidosCliente_Impl.dfm | 54 +- .../Views/uEditorPresupuestoCliente.dfm | 92 +- .../uGenerarPedidosProvUtils.dfm | 2 +- .../uGenerarPedidosProvUtils.pas | 25 +- .../uGenerarPedidosCliUtils.pas | 14 +- Source/Servidor/FactuGES_Server.dpr | 6 +- Source/Servidor/FactuGES_Server.dproj | 841 +++++++++--------- 10 files changed, 749 insertions(+), 557 deletions(-) diff --git a/Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.dfm b/Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.dfm index 94c5497..c48c596 100644 --- a/Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.dfm +++ b/Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.dfm @@ -52,6 +52,10 @@ inherited DataModulePedidosCliente: TDataModulePedidosCliente Name = 'ID_PEDIDO' DataType = datInteger end + item + Name = 'POSICION' + DataType = datInteger + end item Name = 'ID_ARTICULO' DataType = datInteger @@ -516,6 +520,10 @@ inherited DataModulePedidosCliente: TDataModulePedidosCliente Name = 'ID_PEDIDO' DataType = datInteger end + item + Name = 'POSICION' + DataType = datInteger + end item Name = 'ID_ARTICULO' DataType = datInteger diff --git a/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas b/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas index d37e587..1aa5f50 100644 --- a/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas +++ b/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas @@ -3,19 +3,19 @@ unit schPedidosClienteClient_Intf; interface uses - Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, SysUtils, uROClasses, uDAInterfaces, 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_ListaAnosPedidos = '{57E38F40-4209-4C21-A6A2-4CBFC92C9A9B}'; - RID_PedidosProveedor = '{E17F71E9-18BD-4D5A-83E9-E421A471959E}'; - RID_PedidosCliente = '{A7063A47-B33F-4FD5-B8FE-16851A404499}'; - RID_PedidosCliente_Detalles = '{842D3A6D-39C7-499B-977B-F4694E093A72}'; - RID_PedidosCliente_Articulos_Pendientes = '{9085E133-78E7-4CF5-90C8-654047EDE772}'; - RID_PedidoCliente_ArticulosPendientesPedirAProv = '{4D977915-C5AD-47DE-92A5-C5EF9348E576}'; - RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulos = '{C2124682-6378-45C5-80BB-2F0D50364F47}'; + RID_ListaAnosPedidos = '{7F08C4EE-4DD3-424F-BF2B-03782FC2C921}'; + RID_PedidosProveedor = '{3AD30CEC-123C-4814-ABEE-7CBFEACC5046}'; + RID_PedidosCliente = '{3818AE6E-8880-4DA2-AFE7-3BA16B6ACDC9}'; + RID_PedidosCliente_Detalles = '{B5B584AB-7EDB-470F-BC37-CDC90F320865}'; + RID_PedidosCliente_Articulos_Pendientes = '{1463B127-D633-4CB1-B80C-2D1DC7D67D62}'; + RID_PedidoCliente_ArticulosPendientesPedirAProv = '{65EB3E68-A0F0-4D3E-B8B1-BE492B381E09}'; + RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulos = '{9E91A095-986F-4653-AFDD-DC35FD643A81}'; { Data table names } nme_ListaAnosPedidos = 'ListaAnosPedidos'; @@ -168,6 +168,7 @@ const { PedidoCliente_ArticulosPendientesPedirAProv fields } fld_PedidoCliente_ArticulosPendientesPedirAProvID_PEDIDO = 'ID_PEDIDO'; + fld_PedidoCliente_ArticulosPendientesPedirAProvPOSICION = 'POSICION'; fld_PedidoCliente_ArticulosPendientesPedirAProvID_ARTICULO = 'ID_ARTICULO'; fld_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE = 'CANT_PEDIDA_CLIENTE'; fld_PedidoCliente_ArticulosPendientesPedirAProvID_PROVEEDOR = 'ID_PROVEEDOR'; @@ -180,18 +181,20 @@ const { PedidoCliente_ArticulosPendientesPedirAProv field indexes } idx_PedidoCliente_ArticulosPendientesPedirAProvID_PEDIDO = 0; - idx_PedidoCliente_ArticulosPendientesPedirAProvID_ARTICULO = 1; - idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE = 2; - idx_PedidoCliente_ArticulosPendientesPedirAProvID_PROVEEDOR = 3; - idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR = 4; - idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PENDIENTE_PEDIR = 5; - idx_PedidoCliente_ArticulosPendientesPedirAProvCONCEPTO = 6; - idx_PedidoCliente_ArticulosPendientesPedirAProvIMPORTE_UNIDAD = 7; - idx_PedidoCliente_ArticulosPendientesPedirAProvDESCUENTO = 8; - idx_PedidoCliente_ArticulosPendientesPedirAProvIMPORTE_TOTAL = 9; + idx_PedidoCliente_ArticulosPendientesPedirAProvPOSICION = 1; + idx_PedidoCliente_ArticulosPendientesPedirAProvID_ARTICULO = 2; + idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE = 3; + idx_PedidoCliente_ArticulosPendientesPedirAProvID_PROVEEDOR = 4; + idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR = 5; + idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PENDIENTE_PEDIR = 6; + idx_PedidoCliente_ArticulosPendientesPedirAProvCONCEPTO = 7; + idx_PedidoCliente_ArticulosPendientesPedirAProvIMPORTE_UNIDAD = 8; + idx_PedidoCliente_ArticulosPendientesPedirAProvDESCUENTO = 9; + idx_PedidoCliente_ArticulosPendientesPedirAProvIMPORTE_TOTAL = 10; { PedidoCliente_ArticulosPendientesPedirAProvNoArticulos fields } fld_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosID_PEDIDO = 'ID_PEDIDO'; + fld_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosPOSICION = 'POSICION'; fld_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosID_ARTICULO = 'ID_ARTICULO'; fld_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosCANT_PEDIDA_CLIENTE = 'CANT_PEDIDA_CLIENTE'; fld_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosID_PROVEEDOR = 'ID_PROVEEDOR'; @@ -204,20 +207,21 @@ const { PedidoCliente_ArticulosPendientesPedirAProvNoArticulos field indexes } idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosID_PEDIDO = 0; - idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosID_ARTICULO = 1; - idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosCANT_PEDIDA_CLIENTE = 2; - idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosID_PROVEEDOR = 3; - idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosCANT_PEDIDA_PROVEEDOR = 4; - idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosCANT_PENDIENTE_PEDIR = 5; - idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosCONCEPTO = 6; - idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosIMPORTE_UNIDAD = 7; - idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosDESCUENTO = 8; - idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosIMPORTE_TOTAL = 9; + idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosPOSICION = 1; + idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosID_ARTICULO = 2; + idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosCANT_PEDIDA_CLIENTE = 3; + idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosID_PROVEEDOR = 4; + idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosCANT_PEDIDA_PROVEEDOR = 5; + idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosCANT_PENDIENTE_PEDIR = 6; + idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosCONCEPTO = 7; + idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosIMPORTE_UNIDAD = 8; + idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosDESCUENTO = 9; + idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosIMPORTE_TOTAL = 10; type { IListaAnosPedidos } IListaAnosPedidos = interface(IDAStronglyTypedDataTable) - ['{9CE512E4-30FF-4688-956F-87356DA1FDAC}'] + ['{02789823-2D71-4BEF-877E-81C3D47AF0DA}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -231,7 +235,7 @@ type end; { TListaAnosPedidosDataTableRules } - TListaAnosPedidosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosPedidos) + TListaAnosPedidosDataTableRules = class(TDADataTableRules, IListaAnosPedidos) private protected { Property getters and setters } @@ -252,7 +256,7 @@ type { IPedidosProveedor } IPedidosProveedor = interface(IDAStronglyTypedDataTable) - ['{329FF8B4-1166-44FF-85CF-BD690958C36B}'] + ['{AF236896-9645-4397-8A22-A52D507524C4}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -284,7 +288,7 @@ type end; { TPedidosProveedorDataTableRules } - TPedidosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor) + TPedidosProveedorDataTableRules = class(TDADataTableRules, IPedidosProveedor) private protected { Property getters and setters } @@ -323,7 +327,7 @@ type { IPedidosCliente } IPedidosCliente = interface(IDAStronglyTypedDataTable) - ['{AB9F7C4E-69D1-4114-8C3C-A8EB14B14E65}'] + ['{535A54FF-0C95-4C28-A2E2-BEF681F402AA}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -551,7 +555,7 @@ type end; { TPedidosClienteDataTableRules } - TPedidosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPedidosCliente) + TPedidosClienteDataTableRules = class(TDADataTableRules, IPedidosCliente) private f_OBSERVACIONES: IROStrings; f_INCIDENCIAS: IROStrings; @@ -790,7 +794,7 @@ type { IPedidosCliente_Detalles } IPedidosCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{36FF6340-0A76-400B-81E0-DD7B3BF042BB}'] + ['{C925A6AB-E18C-4CBD-A66E-2BE476B6E8A6}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -882,7 +886,7 @@ type end; { TPedidosCliente_DetallesDataTableRules } - TPedidosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPedidosCliente_Detalles) + TPedidosCliente_DetallesDataTableRules = class(TDADataTableRules, IPedidosCliente_Detalles) private protected { Property getters and setters } @@ -981,7 +985,7 @@ type { IPedidosCliente_Articulos_Pendientes } IPedidosCliente_Articulos_Pendientes = interface(IDAStronglyTypedDataTable) - ['{72542829-FC37-4176-A8CC-A65A23D54545}'] + ['{C382C4D3-A9E5-44D8-B146-7DC5F8BB14D7}'] { Property getters and setters } function GetID_ARTICULOValue: Integer; procedure SetID_ARTICULOValue(const aValue: Integer); @@ -1013,7 +1017,7 @@ type end; { TPedidosCliente_Articulos_PendientesDataTableRules } - TPedidosCliente_Articulos_PendientesDataTableRules = class(TIntfObjectDADataTableRules, IPedidosCliente_Articulos_Pendientes) + TPedidosCliente_Articulos_PendientesDataTableRules = class(TDADataTableRules, IPedidosCliente_Articulos_Pendientes) private protected { Property getters and setters } @@ -1052,12 +1056,16 @@ type { IPedidoCliente_ArticulosPendientesPedirAProv } IPedidoCliente_ArticulosPendientesPedirAProv = interface(IDAStronglyTypedDataTable) - ['{CEFCF45D-9A3C-4D1E-ACE6-B6CE2CBD5651}'] + ['{5A762AF0-6C9A-44C1-88B0-5C5E9FECFF7F}'] { Property getters and setters } function GetID_PEDIDOValue: Integer; procedure SetID_PEDIDOValue(const aValue: Integer); function GetID_PEDIDOIsNull: Boolean; procedure SetID_PEDIDOIsNull(const aValue: Boolean); + function GetPOSICIONValue: Integer; + procedure SetPOSICIONValue(const aValue: Integer); + function GetPOSICIONIsNull: Boolean; + procedure SetPOSICIONIsNull(const aValue: Boolean); function GetID_ARTICULOValue: Integer; procedure SetID_ARTICULOValue(const aValue: Integer); function GetID_ARTICULOIsNull: Boolean; @@ -1099,6 +1107,8 @@ type { Properties } property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; + property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue; + property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull; property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property CANT_PEDIDA_CLIENTE: Currency read GetCANT_PEDIDA_CLIENTEValue write SetCANT_PEDIDA_CLIENTEValue; @@ -1120,7 +1130,7 @@ type end; { TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules } - TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules = class(TIntfObjectDADataTableRules, IPedidoCliente_ArticulosPendientesPedirAProv) + TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules = class(TDADataTableRules, IPedidoCliente_ArticulosPendientesPedirAProv) private protected { Property getters and setters } @@ -1128,6 +1138,10 @@ type procedure SetID_PEDIDOValue(const aValue: Integer); virtual; function GetID_PEDIDOIsNull: Boolean; virtual; procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual; + function GetPOSICIONValue: Integer; virtual; + procedure SetPOSICIONValue(const aValue: Integer); virtual; + function GetPOSICIONIsNull: Boolean; virtual; + procedure SetPOSICIONIsNull(const aValue: Boolean); virtual; function GetID_ARTICULOValue: Integer; virtual; procedure SetID_ARTICULOValue(const aValue: Integer); virtual; function GetID_ARTICULOIsNull: Boolean; virtual; @@ -1168,6 +1182,8 @@ type { Properties } property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; + property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue; + property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull; property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property CANT_PEDIDA_CLIENTE: Currency read GetCANT_PEDIDA_CLIENTEValue write SetCANT_PEDIDA_CLIENTEValue; @@ -1195,12 +1211,16 @@ type { IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos } IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos = interface(IDAStronglyTypedDataTable) - ['{93124574-C569-4293-B712-CFDA4A1C605B}'] + ['{3BF2FB66-EEC0-4D8C-8D81-B92DF3C1C1AD}'] { Property getters and setters } function GetID_PEDIDOValue: Integer; procedure SetID_PEDIDOValue(const aValue: Integer); function GetID_PEDIDOIsNull: Boolean; procedure SetID_PEDIDOIsNull(const aValue: Boolean); + function GetPOSICIONValue: Integer; + procedure SetPOSICIONValue(const aValue: Integer); + function GetPOSICIONIsNull: Boolean; + procedure SetPOSICIONIsNull(const aValue: Boolean); function GetID_ARTICULOValue: Integer; procedure SetID_ARTICULOValue(const aValue: Integer); function GetID_ARTICULOIsNull: Boolean; @@ -1242,6 +1262,8 @@ type { Properties } property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; + property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue; + property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull; property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property CANT_PEDIDA_CLIENTE: Currency read GetCANT_PEDIDA_CLIENTEValue write SetCANT_PEDIDA_CLIENTEValue; @@ -1263,7 +1285,7 @@ type end; { TPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDataTableRules } - TPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDataTableRules = class(TIntfObjectDADataTableRules, IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos) + TPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDataTableRules = class(TDADataTableRules, IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos) private protected { Property getters and setters } @@ -1271,6 +1293,10 @@ type procedure SetID_PEDIDOValue(const aValue: Integer); virtual; function GetID_PEDIDOIsNull: Boolean; virtual; procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual; + function GetPOSICIONValue: Integer; virtual; + procedure SetPOSICIONValue(const aValue: Integer); virtual; + function GetPOSICIONIsNull: Boolean; virtual; + procedure SetPOSICIONIsNull(const aValue: Boolean); virtual; function GetID_ARTICULOValue: Integer; virtual; procedure SetID_ARTICULOValue(const aValue: Integer); virtual; function GetID_ARTICULOIsNull: Boolean; virtual; @@ -1311,6 +1337,8 @@ type { Properties } property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; + property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue; + property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull; property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property CANT_PEDIDA_CLIENTE: Currency read GetCANT_PEDIDA_CLIENTEValue write SetCANT_PEDIDA_CLIENTEValue; @@ -2704,6 +2732,27 @@ begin DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_PEDIDO].AsVariant := Null; end; +function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetPOSICIONValue: Integer; +begin + result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvPOSICION].AsInteger; +end; + +procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetPOSICIONValue(const aValue: Integer); +begin + DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvPOSICION].AsInteger := aValue; +end; + +function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetPOSICIONIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvPOSICION].IsNull; +end; + +procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetPOSICIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvPOSICION].AsVariant := Null; +end; + function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetID_ARTICULOValue: Integer; begin result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_ARTICULO].AsInteger; @@ -2926,6 +2975,27 @@ begin DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosID_PEDIDO].AsVariant := Null; end; +function TPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDataTableRules.GetPOSICIONValue: Integer; +begin + result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosPOSICION].AsInteger; +end; + +procedure TPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDataTableRules.SetPOSICIONValue(const aValue: Integer); +begin + DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosPOSICION].AsInteger := aValue; +end; + +function TPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDataTableRules.GetPOSICIONIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosPOSICION].IsNull; +end; + +procedure TPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDataTableRules.SetPOSICIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosPOSICION].AsVariant := Null; +end; + function TPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDataTableRules.GetID_ARTICULOValue: Integer; begin result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosID_ARTICULO].AsInteger; diff --git a/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteServer_Intf.pas b/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteServer_Intf.pas index bf599c6..94848db 100644 --- a/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteServer_Intf.pas +++ b/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteServer_Intf.pas @@ -9,18 +9,18 @@ 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_ListaAnosPedidosDelta = '{A85FEFDD-9A7C-438F-9690-03044F8ACE25}'; - RID_PedidosProveedorDelta = '{92119A47-4A3B-4239-A6FD-FA42299565C9}'; - RID_PedidosClienteDelta = '{5F7E7451-A6E4-4588-9573-318C392EA421}'; - RID_PedidosCliente_DetallesDelta = '{44A78022-BDEC-4494-B7B0-AC2FBF38D951}'; - RID_PedidosCliente_Articulos_PendientesDelta = '{A8B08724-6155-439A-BA38-9F81B63BDC60}'; - RID_PedidoCliente_ArticulosPendientesPedirAProvDelta = '{E02FB75F-400B-48F6-973F-AA16B32293D5}'; - RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta = '{5D2E579F-205B-4BE2-9ACC-C294ACF32F37}'; + RID_ListaAnosPedidosDelta = '{2A9F6811-8378-4F63-8F2F-65E1EC8FBFA6}'; + RID_PedidosProveedorDelta = '{F6BB4C65-CF9A-4DD3-A4A9-218BF96AA231}'; + RID_PedidosClienteDelta = '{5E14E396-2278-4E58-9E05-2187E20237DD}'; + RID_PedidosCliente_DetallesDelta = '{8BE084A3-2D4B-404D-9624-F4A5B4D0A3AD}'; + RID_PedidosCliente_Articulos_PendientesDelta = '{3202351E-CE35-40B7-B9F3-A9E8E82253A9}'; + RID_PedidoCliente_ArticulosPendientesPedirAProvDelta = '{708CDEE3-6D6D-45FA-9FB2-D65DC92F6999}'; + RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta = '{41CD6113-3662-4572-9A24-5246CD483138}'; type { IListaAnosPedidosDelta } IListaAnosPedidosDelta = interface(IListaAnosPedidos) - ['{A85FEFDD-9A7C-438F-9690-03044F8ACE25}'] + ['{2A9F6811-8378-4F63-8F2F-65E1EC8FBFA6}'] { Property getters and setters } function GetOldANOValue : String; @@ -54,7 +54,7 @@ type { IPedidosProveedorDelta } IPedidosProveedorDelta = interface(IPedidosProveedor) - ['{92119A47-4A3B-4239-A6FD-FA42299565C9}'] + ['{F6BB4C65-CF9A-4DD3-A4A9-218BF96AA231}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldREFERENCIAValue : String; @@ -124,7 +124,7 @@ type { IPedidosClienteDelta } IPedidosClienteDelta = interface(IPedidosCliente) - ['{5F7E7451-A6E4-4588-9573-318C392EA421}'] + ['{5E14E396-2278-4E58-9E05-2187E20237DD}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -592,7 +592,7 @@ type { IPedidosCliente_DetallesDelta } IPedidosCliente_DetallesDelta = interface(IPedidosCliente_Detalles) - ['{44A78022-BDEC-4494-B7B0-AC2FBF38D951}'] + ['{8BE084A3-2D4B-404D-9624-F4A5B4D0A3AD}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_PEDIDOValue : Integer; @@ -782,7 +782,7 @@ type { IPedidosCliente_Articulos_PendientesDelta } IPedidosCliente_Articulos_PendientesDelta = interface(IPedidosCliente_Articulos_Pendientes) - ['{A8B08724-6155-439A-BA38-9F81B63BDC60}'] + ['{3202351E-CE35-40B7-B9F3-A9E8E82253A9}'] { Property getters and setters } function GetOldID_ARTICULOValue : Integer; function GetOldCANTIDAD_PEDValue : Currency; @@ -852,9 +852,10 @@ type { IPedidoCliente_ArticulosPendientesPedirAProvDelta } IPedidoCliente_ArticulosPendientesPedirAProvDelta = interface(IPedidoCliente_ArticulosPendientesPedirAProv) - ['{E02FB75F-400B-48F6-973F-AA16B32293D5}'] + ['{708CDEE3-6D6D-45FA-9FB2-D65DC92F6999}'] { Property getters and setters } function GetOldID_PEDIDOValue : Integer; + function GetOldPOSICIONValue : Integer; function GetOldID_ARTICULOValue : Integer; function GetOldCANT_PEDIDA_CLIENTEValue : Currency; function GetOldID_PROVEEDORValue : Integer; @@ -867,6 +868,7 @@ type { Properties } property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue; + property OldPOSICION : Integer read GetOldPOSICIONValue; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; property OldCANT_PEDIDA_CLIENTE : Currency read GetOldCANT_PEDIDA_CLIENTEValue; property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; @@ -889,6 +891,12 @@ type function GetOldID_PEDIDOIsNull: Boolean; virtual; procedure SetID_PEDIDOValue(const aValue: Integer); virtual; procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual; + function GetPOSICIONValue: Integer; virtual; + function GetPOSICIONIsNull: Boolean; virtual; + function GetOldPOSICIONValue: Integer; virtual; + function GetOldPOSICIONIsNull: Boolean; virtual; + procedure SetPOSICIONValue(const aValue: Integer); virtual; + procedure SetPOSICIONIsNull(const aValue: Boolean); virtual; function GetID_ARTICULOValue: Integer; virtual; function GetID_ARTICULOIsNull: Boolean; virtual; function GetOldID_ARTICULOValue: Integer; virtual; @@ -949,6 +957,10 @@ type property ID_PEDIDOIsNull : Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue; property OldID_PEDIDOIsNull : Boolean read GetOldID_PEDIDOIsNull; + property POSICION : Integer read GetPOSICIONValue write SetPOSICIONValue; + property POSICIONIsNull : Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull; + property OldPOSICION : Integer read GetOldPOSICIONValue; + property OldPOSICIONIsNull : Boolean read GetOldPOSICIONIsNull; property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; @@ -994,9 +1006,10 @@ type { IPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta } IPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta = interface(IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos) - ['{5D2E579F-205B-4BE2-9ACC-C294ACF32F37}'] + ['{41CD6113-3662-4572-9A24-5246CD483138}'] { Property getters and setters } function GetOldID_PEDIDOValue : Integer; + function GetOldPOSICIONValue : Integer; function GetOldID_ARTICULOValue : Integer; function GetOldCANT_PEDIDA_CLIENTEValue : Currency; function GetOldID_PROVEEDORValue : Integer; @@ -1009,6 +1022,7 @@ type { Properties } property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue; + property OldPOSICION : Integer read GetOldPOSICIONValue; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; property OldCANT_PEDIDA_CLIENTE : Currency read GetOldCANT_PEDIDA_CLIENTEValue; property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; @@ -1031,6 +1045,12 @@ type function GetOldID_PEDIDOIsNull: Boolean; virtual; procedure SetID_PEDIDOValue(const aValue: Integer); virtual; procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual; + function GetPOSICIONValue: Integer; virtual; + function GetPOSICIONIsNull: Boolean; virtual; + function GetOldPOSICIONValue: Integer; virtual; + function GetOldPOSICIONIsNull: Boolean; virtual; + procedure SetPOSICIONValue(const aValue: Integer); virtual; + procedure SetPOSICIONIsNull(const aValue: Boolean); virtual; function GetID_ARTICULOValue: Integer; virtual; function GetID_ARTICULOIsNull: Boolean; virtual; function GetOldID_ARTICULOValue: Integer; virtual; @@ -1091,6 +1111,10 @@ type property ID_PEDIDOIsNull : Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue; property OldID_PEDIDOIsNull : Boolean read GetOldID_PEDIDOIsNull; + property POSICION : Integer read GetPOSICIONValue write SetPOSICIONValue; + property POSICIONIsNull : Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull; + property OldPOSICION : Integer read GetOldPOSICIONValue; + property OldPOSICIONIsNull : Boolean read GetOldPOSICIONIsNull; property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; @@ -3115,6 +3139,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvID_PEDIDO] := Null; end; +function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetPOSICIONValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvPOSICION]; +end; + +function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetPOSICIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvPOSICION]); +end; + +function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetOldPOSICIONValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvPOSICION]; +end; + +function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetOldPOSICIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvPOSICION]); +end; + +procedure TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.SetPOSICIONValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvPOSICION] := aValue; +end; + +procedure TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.SetPOSICIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvPOSICION] := Null; +end; + function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetID_ARTICULOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvID_ARTICULO]; @@ -3437,6 +3492,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosID_PEDIDO] := Null; end; +function TPedidoCliente_ArticulosPendientesPedirAProvNoArticulosBusinessProcessorRules.GetPOSICIONValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosPOSICION]; +end; + +function TPedidoCliente_ArticulosPendientesPedirAProvNoArticulosBusinessProcessorRules.GetPOSICIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosPOSICION]); +end; + +function TPedidoCliente_ArticulosPendientesPedirAProvNoArticulosBusinessProcessorRules.GetOldPOSICIONValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosPOSICION]; +end; + +function TPedidoCliente_ArticulosPendientesPedirAProvNoArticulosBusinessProcessorRules.GetOldPOSICIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosPOSICION]); +end; + +procedure TPedidoCliente_ArticulosPendientesPedirAProvNoArticulosBusinessProcessorRules.SetPOSICIONValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosPOSICION] := aValue; +end; + +procedure TPedidoCliente_ArticulosPendientesPedirAProvNoArticulosBusinessProcessorRules.SetPOSICIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosPOSICION] := Null; +end; + function TPedidoCliente_ArticulosPendientesPedirAProvNoArticulosBusinessProcessorRules.GetID_ARTICULOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosID_ARTICULO]; diff --git a/Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.dfm b/Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.dfm index 9adba30..d4bb08f 100644 --- a/Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.dfm +++ b/Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.dfm @@ -678,15 +678,16 @@ object srvPedidosCliente: TsrvPedidosCliente Connection = 'IBX' SQL = 'SELECT PEDIDOS_CLIENTE_DETALLES.id_pedido, PEDIDOS_CLIENTE_DETA' + - 'LLES.id_articulo,'#10'PEDIDOS_CLIENTE_DETALLES.CANTIDAD as CANT_PEDI' + - 'DA_CLIENTE, articulos.id_PROVEEDOR,'#10'0 as CANT_PEDIDA_PROVEEDOR, ' + - 'PEDIDOS_CLIENTE_DETALLES.CANTIDAD as CANT_PENDIENTE_PEDIR,'#10'PEDID' + - 'OS_CLIENTE_DETALLES.CONCEPTO,'#10'PEDIDOS_CLIENTE_DETALLES.importe_u' + - 'nidad, PEDIDOS_CLIENTE_DETALLES.descuento, PEDIDOS_CLIENTE_DETAL' + - 'LES.importe_total'#10#10'FROM PEDIDOS_CLIENTE_DETALLES'#10'left join artic' + - 'ulos on (articulos.id = PEDIDOS_CLIENTE_DETALLES.id_articulo)'#10'wh' + - 'ere id_pedido =:ID'#10'and PEDIDOS_CLIENTE_DETALLES.id_articulo is n' + - 'ot null'#10'order by ARTICULOS.ID_PROVEEDOR'#10#10#10#10#10#10 + 'LLES.POSICION, PEDIDOS_CLIENTE_DETALLES.id_articulo,'#10'PEDIDOS_CLI' + + 'ENTE_DETALLES.CANTIDAD as CANT_PEDIDA_CLIENTE, articulos.id_PROV' + + 'EEDOR,'#10'0 as CANT_PEDIDA_PROVEEDOR, PEDIDOS_CLIENTE_DETALLES.CANT' + + 'IDAD as CANT_PENDIENTE_PEDIR,'#10'PEDIDOS_CLIENTE_DETALLES.CONCEPTO,' + + #10'PEDIDOS_CLIENTE_DETALLES.importe_unidad, PEDIDOS_CLIENTE_DETALL' + + 'ES.descuento, PEDIDOS_CLIENTE_DETALLES.importe_total'#10#10'FROM PEDID' + + 'OS_CLIENTE_DETALLES'#10'left join articulos on (articulos.id = PEDID' + + 'OS_CLIENTE_DETALLES.id_articulo)'#10'where id_pedido =:ID'#10'and PEDIDO' + + 'S_CLIENTE_DETALLES.id_articulo is not null'#10'order by ARTICULOS.ID' + + '_PROVEEDOR, PEDIDOS_CLIENTE_DETALLES.POSICION'#10#10 StatementType = stSQL ColumnMappings = < item @@ -728,6 +729,10 @@ object srvPedidosCliente: TsrvPedidosCliente item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' + end + item + DatasetField = 'POSICION' + TableField = 'POSICION' end> end> Name = 'PedidoCliente_ArticulosPendientesPedirAProv' @@ -736,6 +741,10 @@ object srvPedidosCliente: TsrvPedidosCliente Name = 'ID_PEDIDO' DataType = datInteger end + item + Name = 'POSICION' + DataType = datInteger + end item Name = 'ID_ARTICULO' DataType = datInteger @@ -787,15 +796,16 @@ object srvPedidosCliente: TsrvPedidosCliente Connection = 'IBX' SQL = 'SELECT PEDIDOS_CLIENTE_DETALLES.id_pedido, PEDIDOS_CLIENTE_DETA' + - 'LLES.id_articulo,'#10'PEDIDOS_CLIENTE_DETALLES.CANTIDAD as CANT_PEDI' + - 'DA_CLIENTE, articulos.id_PROVEEDOR,'#10'0 as CANT_PEDIDA_PROVEEDOR, ' + - 'PEDIDOS_CLIENTE_DETALLES.CANTIDAD as CANT_PENDIENTE_PEDIR,'#10'PEDID' + - 'OS_CLIENTE_DETALLES.CONCEPTO,'#10'PEDIDOS_CLIENTE_DETALLES.importe_u' + - 'nidad, PEDIDOS_CLIENTE_DETALLES.descuento, PEDIDOS_CLIENTE_DETAL' + - 'LES.importe_total'#10#10'FROM PEDIDOS_CLIENTE_DETALLES'#10'left join artic' + - 'ulos on (articulos.id = PEDIDOS_CLIENTE_DETALLES.id_articulo)'#10'wh' + - 'ere id_pedido =:ID'#10'and PEDIDOS_CLIENTE_DETALLES.id_articulo is n' + - 'ull'#10'order by ARTICULOS.ID_PROVEEDOR'#10#10#10#10#10#10 + 'LLES.POSICION, PEDIDOS_CLIENTE_DETALLES.id_articulo,'#10'PEDIDOS_CLI' + + 'ENTE_DETALLES.CANTIDAD as CANT_PEDIDA_CLIENTE, articulos.id_PROV' + + 'EEDOR,'#10'0 as CANT_PEDIDA_PROVEEDOR, PEDIDOS_CLIENTE_DETALLES.CANT' + + 'IDAD as CANT_PENDIENTE_PEDIR,'#10'PEDIDOS_CLIENTE_DETALLES.CONCEPTO,' + + #10'PEDIDOS_CLIENTE_DETALLES.importe_unidad, PEDIDOS_CLIENTE_DETALL' + + 'ES.descuento, PEDIDOS_CLIENTE_DETALLES.importe_total'#10#10'FROM PEDID' + + 'OS_CLIENTE_DETALLES'#10'left join articulos on (articulos.id = PEDID' + + 'OS_CLIENTE_DETALLES.id_articulo)'#10'where id_pedido =:ID'#10'and PEDIDO' + + 'S_CLIENTE_DETALLES.id_articulo is null'#10'order by ARTICULOS.ID_PRO' + + 'VEEDOR, PEDIDOS_CLIENTE_DETALLES.POSICION'#10#10#10#10 StatementType = stSQL ColumnMappings = < item @@ -837,6 +847,10 @@ object srvPedidosCliente: TsrvPedidosCliente item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' + end + item + DatasetField = 'POSICION' + TableField = 'POSICION' end> end> Name = 'PedidoCliente_ArticulosPendientesPedirAProvNoArticulos' @@ -845,6 +859,10 @@ object srvPedidosCliente: TsrvPedidosCliente Name = 'ID_PEDIDO' DataType = datInteger end + item + Name = 'POSICION' + DataType = datInteger + end item Name = 'ID_ARTICULO' DataType = datInteger diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm index e8c9efc..a4b36f8 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm @@ -185,10 +185,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente object pagContenido: TTabSheet Caption = 'Contenido' ImageIndex = 1 - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 inline frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente Left = 0 Top = 0 @@ -209,103 +205,101 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente ExplicitHeight = 234 inherited ToolBar1: TToolBar Width = 750 - Height = 46 + Height = 73 ExplicitWidth = 750 - ExplicitHeight = 46 + ExplicitHeight = 73 inherited ToolButton3: TToolButton Wrap = False end inherited ToolButton4: TToolButton Left = 278 Top = 0 - Wrap = True ExplicitLeft = 278 ExplicitTop = 0 end inherited ToolButton14: TToolButton - Left = 0 - Wrap = False - ExplicitLeft = 0 + Left = 334 + Top = 0 + ExplicitLeft = 334 + ExplicitTop = 0 end inherited FontName: TJvFontComboBox - Left = 65 Top = 22 - ExplicitLeft = 65 ExplicitTop = 22 end inherited FontSize: TEdit - Left = 210 Top = 22 Width = 216 - ExplicitLeft = 210 ExplicitTop = 22 ExplicitWidth = 216 end inherited UpDown1: TUpDown - Left = 426 + Left = 361 Top = 22 - ExplicitLeft = 426 + ExplicitLeft = 361 ExplicitTop = 22 end inherited ToolButton13: TToolButton - Left = 443 + Left = 378 Top = 22 - ExplicitLeft = 443 + ExplicitLeft = 378 ExplicitTop = 22 end inherited ToolButton6: TToolButton - Left = 451 + Left = 386 Top = 22 - ExplicitLeft = 451 + ExplicitLeft = 386 ExplicitTop = 22 end inherited ToolButton7: TToolButton - Left = 517 + Left = 452 Top = 22 - ExplicitLeft = 517 + ExplicitLeft = 452 ExplicitTop = 22 end inherited ToolButton8: TToolButton - Left = 584 + Left = 519 Top = 22 - ExplicitLeft = 584 + ExplicitLeft = 519 ExplicitTop = 22 end inherited ToolButton12: TToolButton - Left = 667 + Left = 0 Top = 22 - ExplicitLeft = 667 + Wrap = True + ExplicitLeft = 0 ExplicitTop = 22 + ExplicitHeight = 27 end inherited ToolButton9: TToolButton - Left = 675 - Top = 22 - ExplicitLeft = 675 - ExplicitTop = 22 + Left = 0 + Top = 49 + ExplicitLeft = 0 + ExplicitTop = 49 end inherited ToolButton10: TToolButton - Left = 820 - Top = 22 - ExplicitLeft = 820 - ExplicitTop = 22 + Left = 145 + Top = 49 + ExplicitLeft = 145 + ExplicitTop = 49 end inherited ToolButton11: TToolButton - Left = 945 - Top = 22 - ExplicitLeft = 945 - ExplicitTop = 22 + Left = 270 + Top = 49 + ExplicitLeft = 270 + ExplicitTop = 49 end end inherited cxGrid: TcxGrid - Top = 72 + Top = 99 Width = 750 - Height = 162 + Height = 135 ExplicitTop = 77 ExplicitWidth = 750 ExplicitHeight = 157 end inherited TBXDock1: TTBXDock - Top = 46 + Top = 73 Width = 750 ExplicitTop = 51 ExplicitWidth = 750 @@ -328,10 +322,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente Caption = 'Portada' ImageIndex = 3 TabVisible = False - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object Panel1: TPanel Left = 0 Top = 0 @@ -389,10 +379,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente Caption = 'Memoria' ImageIndex = 4 TabVisible = False - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object Panel2: TPanel Left = 0 Top = 0 @@ -449,10 +435,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente object pagInicidencias: TTabSheet Caption = 'Incidencias' ImageIndex = 2 - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 inline frViewIncidenciasCli: TfrViewIncidencias Left = 0 Top = 0 @@ -791,7 +773,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente ExplicitLeft = 21 ExplicitTop = 29 ExplicitWidth = 277 - ExplicitHeight = 0 Width = 277 end inherited eDescripcionBonificacion: TcxDBTextEdit @@ -830,9 +811,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente inherited dxLayoutControl1Group10: TdxLayoutGroup Visible = False end - inherited dxLayoutControl1Item9: TdxLayoutItem - Visible = True - end end inherited dxLayoutControl1Group6: TdxLayoutGroup Visible = True diff --git a/Source/Modulos/Relaciones/Pedidos de cliente - Pedidos a proveedor/uGenerarPedidosProvUtils.dfm b/Source/Modulos/Relaciones/Pedidos de cliente - Pedidos a proveedor/uGenerarPedidosProvUtils.dfm index 421c8ad..c4034b9 100644 --- a/Source/Modulos/Relaciones/Pedidos de cliente - Pedidos a proveedor/uGenerarPedidosProvUtils.dfm +++ b/Source/Modulos/Relaciones/Pedidos de cliente - Pedidos a proveedor/uGenerarPedidosProvUtils.dfm @@ -308,7 +308,7 @@ object dmGenerarPedidosProv: TdmGenerarPedidosProv 0000001C0806000000720DDF94000000017352474200AECE1CE9000000046741 4D410000B18F0BFC6105000000206348524D00007A26000080840000FA000000 80E8000075300000EA6000003A98000017709CBA513C00000009704859730000 - 0AEA00000AEA0150CCEFBE000004CE49444154484BBDD67F50D3751CC7F12FE3 + 0AE900000AE901FD75CED3000004CE49444154484BBDD67F50D3751CC7F12FE3 57DA2576E41919D28F3941C656271A982C08952B03059193CC5444D24E44C008 8F08C323E48708D655C60F393DA5D3ABCCC34A0B4DB3E4C7F8A10213D94070FC DA2F366243FFE8FBEAF3FD22935F1B5B1771F7FD737BECF979BFF7191400CADA diff --git a/Source/Modulos/Relaciones/Pedidos de cliente - Pedidos a proveedor/uGenerarPedidosProvUtils.pas b/Source/Modulos/Relaciones/Pedidos de cliente - Pedidos a proveedor/uGenerarPedidosProvUtils.pas index b27f749..34767be 100644 --- a/Source/Modulos/Relaciones/Pedidos de cliente - Pedidos a proveedor/uGenerarPedidosProvUtils.pas +++ b/Source/Modulos/Relaciones/Pedidos de cliente - Pedidos a proveedor/uGenerarPedidosProvUtils.pas @@ -167,7 +167,8 @@ begin if Assigned(APedidoProv) and (AArticulosPend.ID_PROVEEDOR <> APedidoProv.ID_PROVEEDOR) then begin - AnadirLineasNoArticulos(AArticulosPendNoArticulos, APedidoProv.Detalles); +// AnadirLineasNoArticulos(AArticulosPendNoArticulos, APedidoProv.Detalles); + AArticulosPendNoArticulos.DataTable.First; //siempre que empezamos a rellenar un pedido hay que empezar el recorrido de las descripciones libres para irlas metiendo y conservar el orden APedidosProveedorController.Guardar(APedidoProv); ALista.Add(APedidoProv.REFERENCIA + ': ' + APedidoProv.NOMBRE); APedidoProv := NIL; @@ -192,6 +193,25 @@ begin //obligarle siempre a recalcular los detalles una sola vez ADetallesPedidosProvController.BeginUpdate(APedidoProv.Detalles); + //si la posicion de la lineas descripcion es menor que el articulo que vamos a añadir, añadimos primero la linea descripcion + while (not AArticulosPendNoArticulos.EOF) + and (AArticulosPend.POSICION > AArticulosPendNoArticulos.POSICION) do + begin + ADetallesPedidosProvController.Add(APedidoProv.Detalles, TIPO_DETALLE_CONCEPTO); + with APedidoProv.Detalles do + begin + Edit; + CONCEPTO := AArticulosPendNoArticulos.CONCEPTO; + CANTIDAD := AArticulosPendNoArticulos.CANT_PENDIENTE_PEDIR; +// IMPORTE_UNIDAD := AArticulosPendNoArticulos.IMPORTE_UNIDAD; +// IMPORTE_TOTAL := AArticulosPendNoArticulos.IMPORTE_TOTAL; +// DESCUENTO := AArticulosPendNoArticulos.DESCUENTO; +// IMPORTE_PORTE := AArticulosPendNoArticulos.IMPORTE_PORTE; + Post; + AArticulosPendNoArticulos.Next; + end; + end; + ADetallesPedidosProvController.Add(APedidoProv.Detalles, TIPO_DETALLE_CONCEPTO); ADetallesPedidosProvController.AnadirArticulo(APedidoProv.Detalles, AArticulosPend.ID_ARTICULO); with APedidoProv.Detalles do @@ -207,7 +227,8 @@ begin if Assigned(APedidoProv) then begin - AnadirLineasNoArticulos(AArticulosPendNoArticulos, APedidoProv.Detalles); +// AnadirLineasNoArticulos(AArticulosPendNoArticulos, APedidoProv.Detalles); + AArticulosPendNoArticulos.DataTable.First; //siempre que empezamos a rellenar un pedido hay que empezar el recorrido de las descripciones libres para irlas metiendo y conservar el orden APedidosProveedorController.Guardar(APedidoProv); ALista.Add(APedidoProv.REFERENCIA + ': ' + APedidoProv.NOMBRE); APedidoProv := NIL; diff --git a/Source/Modulos/Relaciones/Presupuestos de cliente - Pedidos de cliente/uGenerarPedidosCliUtils.pas b/Source/Modulos/Relaciones/Presupuestos de cliente - Pedidos de cliente/uGenerarPedidosCliUtils.pas index 1dc863a..5986edc 100644 --- a/Source/Modulos/Relaciones/Presupuestos de cliente - Pedidos de cliente/uGenerarPedidosCliUtils.pas +++ b/Source/Modulos/Relaciones/Presupuestos de cliente - Pedidos de cliente/uGenerarPedidosCliUtils.pas @@ -185,6 +185,9 @@ begin APedidoActual := APedidos; APedidosClienteController.RecuperarCliente(APedidoActual); APedidoActual.Cliente.DataTable.Active := True; + APedidoActual.Edit; + APedidoActual.REFERENCIA_CLIENTE := APedidoActual.REFERENCIA_CLIENTE + ' ' + AListaPresupuestos.REFERENCIA_CLIENTE; + APedidoActual.Post; end else begin // No hay pedido de ese cliente. Creo una nueva @@ -194,6 +197,7 @@ begin APresupuestosController.RecuperarCliente(AListaPresupuestos); AListaPresupuestos.Cliente.DataTable.Active := True; APedidos.Cliente := AListaPresupuestos.Cliente; + APedidos.REFERENCIA_CLIENTE := APedidos.REFERENCIA_CLIENTE + ' ' + AListaPresupuestos.REFERENCIA_CLIENTE; APedidoActual := APedidos; @@ -248,7 +252,9 @@ begin // Añado el contenido del albarán CopiarArticulosPresupuesto(AListaPresupuestos.Detalles, APedidoActual.Detalles); - APedidosClienteController.DetallesController.Add(APedidoActual.Detalles, TIPO_DETALLE_CONCEPTO); + //Ana pide quitar importe porte a nivel general ya que lo usa como articulo. + //Reunion 10/09/2015 +{ APedidosClienteController.DetallesController.Add(APedidoActual.Detalles, TIPO_DETALLE_CONCEPTO); with APedidoActual.Detalles do begin Edit; @@ -257,15 +263,19 @@ begin IMPORTE_UNIDAD := AListaPresupuestos.IMPORTE_PORTE; Post; end; +} + //Ana pide quitar subtotal de los presupuestos copiados + //Reunion 10/09/2015 // Añado el resumen - APedidosClienteController.DetallesController.Add(APedidoActual.Detalles, TIPO_DETALLE_SUBTOTAL); +{ APedidosClienteController.DetallesController.Add(APedidoActual.Detalles, TIPO_DETALLE_SUBTOTAL); with APedidoActual.Detalles do begin Edit; CONCEPTO := 'Total del presupuesto ' + AListaPresupuestos.REFERENCIA; Post; end; +} // end; //if not CopiarDetalles diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr index 6018e0a..a5e8641 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -166,12 +166,12 @@ uses schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas', schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas', schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas', - schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas', - schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas', schFacturasProformaClient_Intf in '..\Modulos\Facturas proforma\Model\schFacturasProformaClient_Intf.pas', schFacturasProformaServer_Intf in '..\Modulos\Facturas proforma\Model\schFacturasProformaServer_Intf.pas', schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas', - schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas'; + schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas', + schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas', + schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas'; {$R *.res} {$R ..\Servicios\RODLFile.res} diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index 80c4299..20789da 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -1,424 +1,425 @@ - + - - {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_D11R;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 - C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 - C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 - C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 - C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 - - - Delphi.Personality - - - FalseTrueFalse/standaloneTrueFalse4430FalseFalseFalseFalseFalse308212524.4.3.04.4.3.0martes, 10 de marzo de 2015 18:26 - ExpressPrinting System by Developer Express Inc. - FactuGES_Server.dprFalse - - - - - MainSource - - - - - -
srvEmpresas
- TDARemoteService - - -
srvProvinciasPoblaciones_Impl
- TDataModule - - - - -
srvUsuarios
- TDataAbstractService - - - - - - - - -
RptAlbaranesCliente
- TDataModule - - - TDataModule -
RptWordAlbaranCliente
- - -
srvAlbaranesCliente
- TDataAbstractService - - - - - -
RptAlbaranesProveedor
- TDataModule - - - TDataModule -
RptWordAlbaranProveedor
- - -
srvAlbaranesProveedor
- TDataAbstractService - - - - -
srvAlmacenes
- TDARemoteService - - - - - -
srvArticulos
- TDARemoteService - - - - - -
RptComisiones
- TDataModule - - -
srvComisiones
- TDataAbstractService - - - - - - - - - -
RptEtiquetasContacto
- TDataModule - - -
RptFichasEmpleado
- TDataModule - - -
srvContactos
- TDARemoteService - - - - -
srvFabricantes
- TDataAbstractService - - - - - -
RptFacturasCliente
- TDataModule - - - TDataModule -
RptWordFacturaCliente
- - -
srvFacturasCliente
- TDataAbstractService - - - - - -
RptFacturasProveedor
- TDataModule - - -
srvFacturasProveedor
- TDataAbstractService - - - - - -
RptFacturasProforma
- TDataModule - - -
srvFacturasProforma
- TDataAbstractService - - - - -
srvFamilias
- TDataAbstractService - - - - -
srvFormasPago
- TDataAbstractService - - -
srvGestorDocumentos
- TDataAbstractService - - -
srvGestorInformes
- TDataAbstractService - - - - -
srvHistoricoMovimientos
- TDataAbstractService - - - - -
srvImpresiones
- TDARemoteService - - -
srvInfMargenArticulo
- TDARemoteService - - - - -
srvInfVentasArticulo
- TDataAbstractService - - - - -
srvInformes
- TDataAbstractService - - - - -
srvInventario
- TDataAbstractService - - - - - -
srvObras
- TDataAbstractService - - - - - -
RptPedidosProveedor
- TDataModule - - - TDataModule -
RptWordPedidoProveedor
- - -
srvPedidosProveedor
- TDataAbstractService - - - - - -
RptPedidosCliente
- TDataModule - - -
srvPedidosCliente
- TDataAbstractService - - - - - -
RptPresupuestosCliente
- TDataModule - - - TDataModule -
RptWordCertificadoTrabajo
- - - TDataModule -
RptWordPresupuestoCliente
- - -
srvPresupuestosCliente
- TDataAbstractService - - - - -
RptRecibosCliente
- TDataModule - - -
srvRecibosCliente
- TDataAbstractService - - - - -
RptRecibosProveedor
- TDataModule - - -
srvRecibosProveedor
- TDataAbstractService - - - - -
srvReferencias
- TDataAbstractService - - -
srvRegistroCorreos
- TDataAbstractService - - - - - -
RptRemesasCliente
- TDataModule - - -
srvRemesasCliente
- TDataAbstractService - - - - - -
RptRemesasProveedor
- TDataModule - - -
srvRemesasProveedor
- TDataAbstractService - - - - - - - - - - -
srvTiendaWeb
- TDataAbstractService - - - - -
srvTiposIVA
- TDataAbstractService - - - - -
srvTiposDocumento
- TDataAbstractService - - - - -
srvUnidadesMedida
- TDataAbstractService - - - - -
srvConfiguracion
- TDataAbstractService - - -
frConexionBD
- TFrame - - -
frConexionOSC
- 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_D11R;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 + C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 + C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 + C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 + C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 + + + Delphi.Personality + + +FalseTrueFalse/standaloneTrueFalse4430FalseFalseFalseFalseFalse308212524.4.3.04.4.3.0martes, 10 de marzo de 2015 18:26 + + ExpressPrinting System by Developer Express Inc. + FactuGES_Server.dprFalse + + + + + MainSource + + + + + +
srvEmpresas
+ TDARemoteService + + +
srvProvinciasPoblaciones_Impl
+ TDataModule + + + + +
srvUsuarios
+ TDataAbstractService + + + + + + + + +
RptAlbaranesCliente
+ TDataModule + + + TDataModule +
RptWordAlbaranCliente
+ + +
srvAlbaranesCliente
+ TDataAbstractService + + + + + +
RptAlbaranesProveedor
+ TDataModule + + + TDataModule +
RptWordAlbaranProveedor
+ + +
srvAlbaranesProveedor
+ TDataAbstractService + + + + +
srvAlmacenes
+ TDARemoteService + + + + + +
srvArticulos
+ TDARemoteService + + + + + +
RptComisiones
+ TDataModule + + +
srvComisiones
+ TDataAbstractService + + + + + + + + + +
RptEtiquetasContacto
+ TDataModule + + +
RptFichasEmpleado
+ TDataModule + + +
srvContactos
+ TDARemoteService + + + + +
srvFabricantes
+ TDataAbstractService + + + + + +
RptFacturasCliente
+ TDataModule + + + TDataModule +
RptWordFacturaCliente
+ + +
srvFacturasCliente
+ TDataAbstractService + + + + + +
RptFacturasProveedor
+ TDataModule + + +
srvFacturasProveedor
+ TDataAbstractService + + + + + +
RptFacturasProforma
+ TDataModule + + +
srvFacturasProforma
+ TDataAbstractService + + + + +
srvFamilias
+ TDataAbstractService + + + + +
srvFormasPago
+ TDataAbstractService + + +
srvGestorDocumentos
+ TDataAbstractService + + +
srvGestorInformes
+ TDataAbstractService + + + + +
srvHistoricoMovimientos
+ TDataAbstractService + + + + +
srvImpresiones
+ TDARemoteService + + +
srvInfMargenArticulo
+ TDARemoteService + + + + +
srvInfVentasArticulo
+ TDataAbstractService + + + + +
srvInformes
+ TDataAbstractService + + + + +
srvInventario
+ TDataAbstractService + + + + + +
srvObras
+ TDataAbstractService + + + + + +
RptPedidosProveedor
+ TDataModule + + + TDataModule +
RptWordPedidoProveedor
+ + +
srvPedidosProveedor
+ TDataAbstractService + + + + + +
RptPedidosCliente
+ TDataModule + + +
srvPedidosCliente
+ TDataAbstractService + + + + + +
RptPresupuestosCliente
+ TDataModule + + + TDataModule +
RptWordCertificadoTrabajo
+ + + TDataModule +
RptWordPresupuestoCliente
+ + +
srvPresupuestosCliente
+ TDataAbstractService + + + + +
RptRecibosCliente
+ TDataModule + + +
srvRecibosCliente
+ TDataAbstractService + + + + +
RptRecibosProveedor
+ TDataModule + + +
srvRecibosProveedor
+ TDataAbstractService + + + + +
srvReferencias
+ TDataAbstractService + + +
srvRegistroCorreos
+ TDataAbstractService + + + + + +
RptRemesasCliente
+ TDataModule + + +
srvRemesasCliente
+ TDataAbstractService + + + + + +
RptRemesasProveedor
+ TDataModule + + +
srvRemesasProveedor
+ TDataAbstractService + + + + + + + + + + +
srvTiendaWeb
+ TDataAbstractService + + + + +
srvTiposIVA
+ TDataAbstractService + + + + +
srvTiposDocumento
+ TDataAbstractService + + + + +
srvUnidadesMedida
+ TDataAbstractService + + + + +
srvConfiguracion
+ TDataAbstractService + + +
frConexionBD
+ TFrame + + +
frConexionOSC
+ TFrame + + +
frConfGeneral
+ TFrame + + +
fConfiguracion
+ TForm + + +
FrameConfiguracion
+ TFrame + + +
srvLogin
+ TDARemoteService + + +
fAcercaDe
+ + +
dmServer
+ TDataModule + + +
fServerForm
+ + + + + + + + + + + +