diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index 990c17d..7c12c06 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -53,58 +53,58 @@
MainSource
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
TForm
diff --git a/Source/Base/Base.res b/Source/Base/Base.res
index 8b251f3..1641339 100644
Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ
diff --git a/Source/Informes/InfPedidoCliente.fr3 b/Source/Informes/InfPedidoCliente.fr3
index 1f0f344..2456b86 100644
--- a/Source/Informes/InfPedidoCliente.fr3
+++ b/Source/Informes/InfPedidoCliente.fr3
@@ -1,5 +1,58 @@
-
+
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm
index bb268a1..713261f 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm
+++ b/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm
@@ -23,9 +23,9 @@ inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
end
inherited FontSize: TEdit
Top = 22
- Width = 202
+ Width = 218
ExplicitTop = 22
- ExplicitWidth = 202
+ ExplicitWidth = 218
end
inherited ToolButton13: TToolButton [7]
Left = 0
@@ -190,6 +190,7 @@ inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
Kind = bkEllipsis
end>
Properties.ReadOnly = True
+ Properties.OnButtonClick = cxGridViewCANTIDAD2PropertiesButtonClick
HeaderAlignmentHorz = taRightJustify
end
inherited cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn
diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.pas
index 9ffdcee..5624c6f 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.pas
+++ b/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.pas
@@ -37,6 +37,8 @@ type
procedure OnValidateReferencia_ART_REEMPLAZADO(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
+ procedure cxGridViewCANTIDAD2PropertiesButtonClick(Sender: TObject;
+ AButtonIndex: Integer);
protected
FAlbaran: IBizAlbaranCliente;
function GetAlbaran: IBizAlbaranCliente;
@@ -85,6 +87,13 @@ begin
inherited;
end;
+procedure TfrViewDetallesAlbaranCliente.cxGridViewCANTIDAD2PropertiesButtonClick(
+ Sender: TObject; AButtonIndex: Integer);
+begin
+ inherited;
+ (Controller as IDetallesAlbaranClienteController).ModificarCantidadColores(Detalles);
+end;
+
procedure TfrViewDetallesAlbaranCliente.cxGridViewREFERENCIA_ART_REEMPLAZADOPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
inherited;
diff --git a/Source/Modulos/Pedidos de cliente/Reports/uRptPedidosCliente_Server.dfm b/Source/Modulos/Pedidos de cliente/Reports/uRptPedidosCliente_Server.dfm
index 32f5ed1..8d36f1f 100644
--- a/Source/Modulos/Pedidos de cliente/Reports/uRptPedidosCliente_Server.dfm
+++ b/Source/Modulos/Pedidos de cliente/Reports/uRptPedidosCliente_Server.dfm
@@ -58,28 +58,26 @@ object RptPedidosCliente: TRptPedidosCliente
Statements = <
item
Connection = 'IBX'
+ TargetTable = 'PEDIDOS_CLIENTE'
SQL =
- 'SELECT'#10' V_ALBARANES_CLIENTE.ID, V_ALBARANES_CLIENTE.ID_EMPRESA,' +
- #10' V_ALBARANES_CLIENTE.ID_CLIENTE,'#10' V_ALBARANES_CLIENTE.FECHA_A' +
- 'LBARAN,'#10' V_ALBARANES_CLIENTE.REFERENCIA,'#10' V_ALBARANES_CLIENTE.' +
- 'REFERENCIA_CLIENTE,'#10' V_ALBARANES_CLIENTE.ID_PEDIDO,'#10' V_ALBARAN' +
- 'ES_CLIENTE.REF_PEDIDO,'#10' V_ALBARANES_CLIENTE.FORMA_PAGO,'#10' V_ALB' +
- 'ARANES_CLIENTE.DATOS_BANCARIOS,'#10' V_ALBARANES_CLIENTE.OBSERVACIO' +
- 'NES,'#10' V_ALBARANES_CLIENTE.IMPORTE_NETO,'#10' V_ALBARANES_CLIENTE.D' +
- 'ESCUENTO,'#10' V_ALBARANES_CLIENTE.IMPORTE_DESCUENTO,'#10' V_ALBARANES' +
- '_CLIENTE.DESCUENTO2,'#10' V_ALBARANES_CLIENTE.IMPORTE_DESCUENTO2,'#10' ' +
- ' V_ALBARANES_CLIENTE.IMPORTE_TOTAL,'#10' CONTACTOS.REFERENCIA as RE' +
- 'F_CLIENTE, CONTACTOS.NIF_CIF, CONTACTOS.NOMBRE,'#10' V_ALBARANES_CL' +
- 'IENTE.PERSONA_CONTACTO,'#10' COALESCE(CONTACTOS_DIRECCIONES.CALLE, ' +
- 'CONTACTOS.CALLE) AS CALLE,'#10' COALESCE(CONTACTOS_DIRECCIONES.POBL' +
- 'ACION, CONTACTOS.POBLACION) AS POBLACION,'#10' COALESCE(CONTACTOS_D' +
- 'IRECCIONES.PROVINCIA, CONTACTOS.PROVINCIA) AS PROVINCIA,'#10' COALE' +
- 'SCE(CONTACTOS_DIRECCIONES.CODIGO_POSTAL, CONTACTOS.CODIGO_POSTAL' +
- ') AS CODIGO_POSTAL'#10#10'FROM'#10' V_ALBARANES_CLIENTE'#10' INNER JOIN CONT' +
- 'ACTOS ON (CONTACTOS.ID = V_ALBARANES_CLIENTE.ID_CLIENTE)'#10' LEFT ' +
- 'OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID = ' +
- 'V_ALBARANES_CLIENTE.ID_DIRECCION)'#10'WHERE V_ALBARANES_CLIENTE.ID =' +
- ' :ID'#10#10
+ 'SELECT'#10' PEDIDOS_CLIENTE.ID, PEDIDOS_CLIENTE.ID_EMPRESA,'#10' PEDID' +
+ 'OS_CLIENTE.ID_CLIENTE,'#10' PEDIDOS_CLIENTE.FECHA_PEDIDO,'#10' PEDIDOS' +
+ '_CLIENTE.REFERENCIA,'#10' PEDIDOS_CLIENTE.REFERENCIA_CLIENTE,'#10' PED' +
+ 'IDOS_CLIENTE.DATOS_BANCARIOS,'#10' PEDIDOS_CLIENTE.OBSERVACIONES,'#10' ' +
+ ' PEDIDOS_CLIENTE.IMPORTE_NETO,'#10' PEDIDOS_CLIENTE.DESCUENTO,'#10' PE' +
+ 'DIDOS_CLIENTE.IMPORTE_DESCUENTO,'#10' PEDIDOS_CLIENTE.DESCUENTO2,'#10' ' +
+ ' PEDIDOS_CLIENTE.IMPORTE_DESCUENTO2,'#10' PEDIDOS_CLIENTE.IMPORTE_T' +
+ 'OTAL,'#10' CONTACTOS.REFERENCIA as REF_CLIENTE, CONTACTOS.NIF_CIF, ' +
+ 'CONTACTOS.NOMBRE,'#10' PEDIDOS_CLIENTE.PERSONA_CONTACTO,'#10' COALESCE' +
+ '(CONTACTOS_DIRECCIONES.CALLE, CONTACTOS.CALLE) AS CALLE,'#10' COALE' +
+ 'SCE(CONTACTOS_DIRECCIONES.POBLACION, CONTACTOS.POBLACION) AS POB' +
+ 'LACION,'#10' COALESCE(CONTACTOS_DIRECCIONES.PROVINCIA, CONTACTOS.PR' +
+ 'OVINCIA) AS PROVINCIA,'#10' COALESCE(CONTACTOS_DIRECCIONES.CODIGO_P' +
+ 'OSTAL, CONTACTOS.CODIGO_POSTAL) AS CODIGO_POSTAL'#10#10'FROM'#10' PEDIDOS' +
+ '_CLIENTE'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = PEDIDOS_CLIEN' +
+ 'TE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTA' +
+ 'CTOS_DIRECCIONES.ID = PEDIDOS_CLIENTE.ID_DIRECCION)'#10'WHERE PEDIDO' +
+ 'S_CLIENTE.ID = :ID'#10#10
StatementType = stSQL
ColumnMappings = <
item
@@ -126,18 +124,6 @@ object RptPedidosCliente: TRptPedidosCliente
DatasetField = 'ID_CLIENTE'
TableField = 'ID_CLIENTE'
end
- item
- DatasetField = 'FECHA_ALBARAN'
- TableField = 'FECHA_ALBARAN'
- end
- item
- DatasetField = 'ID_PEDIDO'
- TableField = 'ID_PEDIDO'
- end
- item
- DatasetField = 'REF_PEDIDO'
- TableField = 'REF_PEDIDO'
- end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
@@ -174,13 +160,13 @@ object RptPedidosCliente: TRptPedidosCliente
DatasetField = 'IMPORTE_DESCUENTO2'
TableField = 'IMPORTE_DESCUENTO2'
end
- item
- DatasetField = 'FORMA_PAGO'
- TableField = 'FORMA_PAGO'
- end
item
DatasetField = 'DATOS_BANCARIOS'
TableField = 'DATOS_BANCARIOS'
+ end
+ item
+ DatasetField = 'FECHA_PEDIDO'
+ TableField = 'FECHA_PEDIDO'
end>
end>
Name = 'Informe_Cabecera'
@@ -198,7 +184,7 @@ object RptPedidosCliente: TRptPedidosCliente
DataType = datInteger
end
item
- Name = 'FECHA_ALBARAN'
+ Name = 'FECHA_PEDIDO'
DataType = datDateTime
end
item
@@ -211,20 +197,6 @@ object RptPedidosCliente: TRptPedidosCliente
DataType = datString
Size = 255
end
- item
- Name = 'ID_PEDIDO'
- DataType = datInteger
- end
- item
- Name = 'REF_PEDIDO'
- DataType = datString
- Size = 255
- end
- item
- Name = 'FORMA_PAGO'
- DataType = datString
- Size = 255
- end
item
Name = 'DATOS_BANCARIOS'
DataType = datString
@@ -302,37 +274,31 @@ object RptPedidosCliente: TRptPedidosCliente
item
Params = <
item
- Name = 'ID_ALBARAN'
+ Name = 'ID_PEDIDO'
DataType = datInteger
- Value = '11'
- ParamType = daptInput
+ Value = ''
end>
Statements = <
item
Connection = 'IBX'
- TargetTable = 'ALBARANES_CLIENTE_DETALLES'
+ TargetTable = 'PEDIDOS_CLIENTE_DETALLES'
SQL =
- 'SELECT ALBARANES_CLIENTE_DETALLES.ID, ALBARANES_CLIENTE_DETALLES' +
- '.ID_ALBARAN,'#10' ALBARANES_CLIENTE_DETALLES.POSICION, ALBARAN' +
- 'ES_CLIENTE_DETALLES.TIPO_DETALLE,'#10' F_RTFTOTEXT(ALBARANES_C' +
- 'LIENTE_DETALLES.CONCEPTO) as CONCEPTO, ALBARANES_CLIENTE_DETALLE' +
- 'S.CANTIDAD,'#10' ALBARANES_CLIENTE_DETALLES.UNIDAD_MEDIDA,'#10' ' +
- ' ALBARANES_CLIENTE_DETALLES.IMPORTE_UNIDAD, ALBARANES_CLIENTE' +
- '_DETALLES.IMPORTE_TOTAL,'#10' ARTICULOS.REFERENCIA'#10'FROM ALBARA' +
- 'NES_CLIENTE_DETALLES'#10' LEFT JOIN ARTICULOS ON (ALBARANES_CLIE' +
- 'NTE_DETALLES.ID_ARTICULO = ARTICULOS.ID)'#10'WHERE'#10' ID_ALBARAN =' +
- ' :ID_ALBARAN AND (VISIBLE <> 0) AND {Where}'#10'ORDER BY ID_ALBARAN,' +
- ' POSICION'#10
+ 'SELECT PEDIDOS_CLIENTE_DETALLES.ID, PEDIDOS_CLIENTE_DETALLES.ID_' +
+ 'PEDIDO,'#10' PEDIDOS_CLIENTE_DETALLES.POSICION, PEDIDOS_CLIENT' +
+ 'E_DETALLES.TIPO_DETALLE,'#10' F_RTFTOTEXT(PEDIDOS_CLIENTE_DETA' +
+ 'LLES.CONCEPTO) as CONCEPTO, PEDIDOS_CLIENTE_DETALLES.CANTIDAD,'#10' ' +
+ ' PEDIDOS_CLIENTE_DETALLES.IMPORTE_UNIDAD, PEDIDOS_CLIENTE_D' +
+ 'ETALLES.IMPORTE_TOTAL,'#10' ARTICULOS.REFERENCIA'#10'FROM PEDIDOS_' +
+ 'CLIENTE_DETALLES'#10' LEFT JOIN ARTICULOS ON (PEDIDOS_CLIENTE_DE' +
+ 'TALLES.ID_ARTICULO = ARTICULOS.ID)'#10'WHERE'#10' ID_PEDIDO = :ID_PE' +
+ 'DIDO AND (VISIBLE <> 0) AND {Where}'#10'ORDER BY ID_PEDIDO, POSICION' +
+ #10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
- item
- DatasetField = 'ID_ALBARAN'
- TableField = 'ID_ALBARAN'
- end
item
DatasetField = 'POSICION'
TableField = 'POSICION'
@@ -349,10 +315,6 @@ object RptPedidosCliente: TRptPedidosCliente
DatasetField = 'CANTIDAD'
TableField = 'CANTIDAD'
end
- item
- DatasetField = 'UNIDAD_MEDIDA'
- TableField = 'UNIDAD_MEDIDA'
- end
item
DatasetField = 'IMPORTE_UNIDAD'
TableField = 'IMPORTE_UNIDAD'
@@ -365,6 +327,10 @@ object RptPedidosCliente: TRptPedidosCliente
DatasetField = 'REFERENCIA'
TableField = ''
SQLOrigin = 'REFERENCIA'
+ end
+ item
+ DatasetField = 'ID_PEDIDO'
+ TableField = 'ID_PEDIDO'
end>
end>
Name = 'Informe_Detalles'
@@ -374,7 +340,7 @@ object RptPedidosCliente: TRptPedidosCliente
DataType = datInteger
end
item
- Name = 'ID_ALBARAN'
+ Name = 'ID_PEDIDO'
DataType = datInteger
end
item
@@ -389,16 +355,11 @@ object RptPedidosCliente: TRptPedidosCliente
item
Name = 'CONCEPTO'
DataType = datString
- Size = 254
+ Size = 32765
end
item
Name = 'CANTIDAD'
- DataType = datFloat
- end
- item
- Name = 'UNIDAD_MEDIDA'
- DataType = datString
- Size = 255
+ DataType = datCurrency
end
item
Name = 'IMPORTE_UNIDAD'
@@ -424,21 +385,20 @@ object RptPedidosCliente: TRptPedidosCliente
Statements = <
item
Connection = 'IBX'
- TargetTable = 'ALBARANES_CLIENTE_DETALLES'
+ TargetTable = 'PEDIDOS_CLIENTE_DETALLES'
SQL =
- 'SELECT V_ALBARANES_CLIENTE.ID,'#10' CONTACTOS.REFERENCIA as REF_CLI' +
- 'ENTE, CONTACTOS.NIF_CIF, CONTACTOS.NOMBRE,'#10' V_ALBARANES_CLIENTE' +
- '.PERSONA_CONTACTO,'#10' CONTACTOS.CALLE AS CALLE_FISCAL,'#10' CONTACTO' +
- 'S_DIRECCIONES.CALLE AS CALLE_ENVIO,'#10' CONTACTOS.POBLACION AS POB' +
- 'LACION_FISCAL,'#10' CONTACTOS_DIRECCIONES.POBLACION AS POBLACION_EN' +
- 'VIO,'#10' CONTACTOS.PROVINCIA AS PROVINCIA_FISCAL,'#10' CONTACTOS_DIRE' +
- 'CCIONES.PROVINCIA AS PROVINCIA_ENVIO,'#10' CONTACTOS.CODIGO_POSTAL ' +
- 'AS CODIGO_POSTAL_FISCAL,'#10' CONTACTOS_DIRECCIONES.CODIGO_POSTAL A' +
- 'S CODIGO_POSTAL_ENVIO'#10#10'FROM'#10' V_ALBARANES_CLIENTE'#10' INNER JOIN C' +
- 'ONTACTOS ON (CONTACTOS.ID = V_ALBARANES_CLIENTE.ID_CLIENTE)'#10' LE' +
- 'FT OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID' +
- '_contacto = V_ALBARANES_CLIENTE.ID_cliente)'#10'WHERE V_ALBARANES_CL' +
- 'IENTE.ID = :ID'#10
+ 'SELECT PEDIDOS_CLIENTE.ID,'#10' CONTACTOS.REFERENCIA as REF_CLIENTE' +
+ ', CONTACTOS.NIF_CIF, CONTACTOS.NOMBRE,'#10' PEDIDOS_CLIENTE.PERSONA' +
+ '_CONTACTO,'#10' CONTACTOS.CALLE AS CALLE_FISCAL,'#10' CONTACTOS_DIRECC' +
+ 'IONES.CALLE AS CALLE_ENVIO,'#10' CONTACTOS.POBLACION AS POBLACION_F' +
+ 'ISCAL,'#10' CONTACTOS_DIRECCIONES.POBLACION AS POBLACION_ENVIO,'#10' C' +
+ 'ONTACTOS.PROVINCIA AS PROVINCIA_FISCAL,'#10' CONTACTOS_DIRECCIONES.' +
+ 'PROVINCIA AS PROVINCIA_ENVIO,'#10' CONTACTOS.CODIGO_POSTAL AS CODIG' +
+ 'O_POSTAL_FISCAL,'#10' CONTACTOS_DIRECCIONES.CODIGO_POSTAL AS CODIGO' +
+ '_POSTAL_ENVIO'#10#10'FROM'#10' PEDIDOS_CLIENTE'#10' INNER JOIN CONTACTOS ON ' +
+ '(CONTACTOS.ID = PEDIDOS_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CO' +
+ 'NTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID_contacto = PEDI' +
+ 'DOS_CLIENTE.ID_cliente)'#10'WHERE PEDIDOS_CLIENTE.ID = :ID'#10
StatementType = stSQL
ColumnMappings = <
item
@@ -841,7 +801,7 @@ object RptPedidosCliente: TRptPedidosCliente
DataType = datInteger
end
item
- Name = 'FECHA_ALBARAN'
+ Name = 'FECHA_PEDIDO'
DataType = datDateTime
end
item
@@ -854,20 +814,6 @@ object RptPedidosCliente: TRptPedidosCliente
DataType = datString
Size = 255
end
- item
- Name = 'ID_PEDIDO'
- DataType = datInteger
- end
- item
- Name = 'REF_PEDIDO'
- DataType = datString
- Size = 255
- end
- item
- Name = 'FORMA_PAGO'
- DataType = datString
- Size = 255
- end
item
Name = 'DATOS_BANCARIOS'
DataType = datString
@@ -966,7 +912,7 @@ object RptPedidosCliente: TRptPedidosCliente
DataType = datInteger
end
item
- Name = 'ID_ALBARAN'
+ Name = 'ID_PEDIDO'
DataType = datInteger
end
item
@@ -981,16 +927,11 @@ object RptPedidosCliente: TRptPedidosCliente
item
Name = 'CONCEPTO'
DataType = datString
- Size = 254
+ Size = 32765
end
item
Name = 'CANTIDAD'
- DataType = datFloat
- end
- item
- Name = 'UNIDAD_MEDIDA'
- DataType = datString
- Size = 255
+ DataType = datCurrency
end
item
Name = 'IMPORTE_UNIDAD'
@@ -1007,10 +948,9 @@ object RptPedidosCliente: TRptPedidosCliente
end>
Params = <
item
- Name = 'ID_ALBARAN'
+ Name = 'ID_PEDIDO'
DataType = datInteger
- Value = '11'
- ParamType = daptInput
+ Value = ''
end>
MasterParamsMappings.Strings = (
'ID_ALBARAN=ID')
@@ -1019,7 +959,6 @@ object RptPedidosCliente: TRptPedidosCliente
RemoteFetchEnabled = False
LocalSchema = schReport
LocalDataStreamer = DABin2DataStreamer1
- DetailFields = 'ID_ALBARAN'
LogicalName = 'Informe_Detalles'
IndexDefs = <>
Left = 344
diff --git a/Source/Modulos/Pedidos de cliente/Reports/uRptPedidosCliente_Server.pas b/Source/Modulos/Pedidos de cliente/Reports/uRptPedidosCliente_Server.pas
index d62e891..7df7d4c 100644
--- a/Source/Modulos/Pedidos de cliente/Reports/uRptPedidosCliente_Server.pas
+++ b/Source/Modulos/Pedidos de cliente/Reports/uRptPedidosCliente_Server.pas
@@ -60,10 +60,10 @@ type
tbl_Detalles: TDAMemDataTable;
frxPDFExport1: TfrxPDFExport;
DABin2DataStreamer1: TDABin2DataStreamer;
- schReport: TDASchema;
frxDBEtiquetas: TfrxDBDataset;
DADSEtiquetas: TDADataSource;
tbl_Etiquetas: TDAMemDataTable;
+ schReport: TDASchema;
procedure DataModuleCreate(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject);
private
@@ -156,8 +156,8 @@ begin
tbl_Cabecera.Active := False;
tbl_Detalles.Active := False;
-// tbl_Cabecera.ParamByName('ID').AsInteger := AID;
-// tbl_Detalles.ParamByName('ID_PEDIDO').AsInteger := AID;
+ tbl_Cabecera.ParamByName('ID').AsInteger := AID;
+ tbl_Detalles.ParamByName('ID_PEDIDO').AsInteger := AID;
tbl_Cabecera.Active := True;
tbl_Detalles.Active := True;
diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index 8a47c1e..fb6fca2 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -4,6 +4,7 @@ program FactuGES_Server;
uses
// ExceptionLog,
+ ExceptionLog,
uROComInit,
uROComboService,
Forms,
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index ae87e30..4193db8 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -1,347 +1,347 @@
-
+
-
- {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_d11;SpTBXLib_d11;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;cxExportD10;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;EUREKALOG;EUREKALOG_VER6
- True
- True
- True
- $(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;$(BDS)\lib\Debug
-
-
- Delphi.Personality
-
-
- FalseTrueFalse/standaloneTrueFalse1020FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.0.2.0FactuGES ServidorFactuGES Servidor1.0.2.0jueves, 18 de febrero de 2010 12:17FactuGES_Server.dpr
-
-
-
-
- MainSource
-
-
-
-
-
- TDARemoteService
-
-
-
- TDataModule
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDARemoteService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
- TDataAbstractService
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
- TFrame
-
-
-
- TFrame
-
-
-
- TForm
-
-
-
- TFrame
-
-
-
- TDARemoteService
-
-
-
-
-
-
- TDataModule
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+ {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_d11;SpTBXLib_d11;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;cxExportD10;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;EUREKALOG;EUREKALOG_VER6
+ True
+ True
+ True
+ $(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;$(BDS)\lib\Debug
+
+
+ Delphi.Personality
+
+
+FalseTrueFalse/standaloneTrueFalse1020FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.0.2.0FactuGES ServidorFactuGES Servidor1.0.2.0jueves, 18 de febrero de 2010 12:17FactuGES_Server.dpr
+
+
+
+
+ MainSource
+
+
+
+
+
+
+ TDARemoteService
+
+
+
+ TDataModule
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDARemoteService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TDataAbstractService
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TFrame
+
+
+
+ TFrame
+
+
+
+ TForm
+
+
+
+ TFrame
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+ TDataModule
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+