diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index 58f42674..9237feb0 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -54,58 +54,58 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
TForm
diff --git a/Source/Base/Base.res b/Source/Base/Base.res
index 8b251f31..1641339f 100644
Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ
diff --git a/Source/GUIBase/uViewDetallesBase.dfm b/Source/GUIBase/uViewDetallesBase.dfm
index ff1cdc6c..b33acca0 100644
--- a/Source/GUIBase/uViewDetallesBase.dfm
+++ b/Source/GUIBase/uViewDetallesBase.dfm
@@ -1,5 +1,5 @@
inherited frViewDetallesBase: TfrViewDetallesBase
- Width = 586
+ Width = 451
Height = 304
Align = alClient
OnCreate = CustomViewCreate
@@ -9,7 +9,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
object ToolBar1: TToolBar
Left = 0
Top = 0
- Width = 586
+ Width = 451
Height = 73
AutoSize = True
ButtonWidth = 141
@@ -25,7 +25,6 @@ inherited frViewDetallesBase: TfrViewDetallesBase
TabOrder = 0
Transparent = True
Visible = False
- ExplicitWidth = 451
object ToolButton1: TToolButton
Left = 0
Top = 0
@@ -150,7 +149,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
object cxGrid: TcxGrid
Left = 0
Top = 99
- Width = 586
+ Width = 451
Height = 205
Align = alClient
Font.Charset = DEFAULT_CHARSET
@@ -162,7 +161,6 @@ inherited frViewDetallesBase: TfrViewDetallesBase
TabOrder = 1
LookAndFeel.Kind = lfStandard
LookAndFeel.NativeStyle = True
- ExplicitWidth = 451
object cxGridView: TcxGridDBTableView
OnKeyDown = cxGridViewKeyDown
NavigatorButtons.ConfirmDelete = False
@@ -346,11 +344,10 @@ inherited frViewDetallesBase: TfrViewDetallesBase
object TBXDock1: TTBXDock
Left = 0
Top = 73
- Width = 586
+ Width = 451
Height = 26
BackgroundOnToolbars = False
UseParentBackground = True
- ExplicitWidth = 451
object TBXToolbar1: TTBXToolbar
Left = 0
Top = 0
@@ -973,7 +970,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
Color = 552923887
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
- Font.Height = -15
+ Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
end
@@ -982,7 +979,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
Color = clWindow
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
- Font.Height = -15
+ Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
end
diff --git a/Source/GUIBase/uViewDetallesBase.pas b/Source/GUIBase/uViewDetallesBase.pas
index e56839d8..54cb92a6 100644
--- a/Source/GUIBase/uViewDetallesBase.pas
+++ b/Source/GUIBase/uViewDetallesBase.pas
@@ -542,8 +542,7 @@ begin
_FocusedView.BeginUpdate;
end;
-function TfrViewDetallesBase.DarTipoConcepto(
- ARecord: TcxCustomGridRecord): string;
+function TfrViewDetallesBase.DarTipoConcepto(ARecord: TcxCustomGridRecord): string;
var
IndiceCol : Integer;
begin
@@ -738,6 +737,9 @@ var
ATipo : String;
begin
inherited;
+
+
+ AStyle := NIL;
if Assigned(AItem) then
begin
if Odd(ARecord.Index) then
@@ -746,9 +748,25 @@ begin
AStyle := cxStyle_NORMAL_IMPAR;
end;
- AStyle := NIL;
+
+
+
if Assigned(ARecord) then
begin
+
+ if ARecord.Values[3] = TIPO_DETALLE_TITULO then
+ AStyle := cxStyle_TITULO;
+
+ if ARecord.Values[3] = TIPO_DETALLE_TITULO_OPCIONAL then
+ AStyle := cxStyle_TITULO_OPCIONAL;
+
+ if ARecord.Values[3] = TIPO_DETALLE_SUBTOTAL then
+ AStyle := cxStyle_SUBTOTAL;
+
+ if ARecord.Values[3] = TIPO_DETALLE_DESCUENTO then
+ AStyle := cxStyle_DESCUENTO;
+
+{
ATipo := DarTipoConcepto(ARecord);
if ATipo = TIPO_DETALLE_TITULO then
@@ -762,7 +780,9 @@ begin
if ATipo = TIPO_DETALLE_DESCUENTO then
AStyle := cxStyle_DESCUENTO;
+}
end;
+
end;
function TfrViewDetallesBase.DarFuentePorDefecto(const ATipo: String): TFont;
diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
index 33d336b5..6a851d25 100644
--- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
+++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
@@ -466,29 +466,30 @@ object RptFacturasCliente: TRptFacturasCliente
Connection = 'IBX'
TargetTable = 'V_FACTURAS_CLIENTE'
SQL =
- 'select ID_EMPRESA,'#10'extract (month from fecha_factura) as MES,'#10'ca' +
- 'se'#10'when extract (month from fecha_factura) = 1 then '#39'ENERO - '#39' |' +
- '| extract (year from fecha_factura)'#10'when extract (month from fec' +
- 'ha_factura) = 2 then '#39'FEBRERO - '#39' || extract (year from fecha_fa' +
- 'ctura)'#10'when extract (month from fecha_factura) = 3 then '#39'MARZO -' +
- ' '#39' || extract (year from fecha_factura)'#10'when extract (month from' +
- ' fecha_factura) = 4 then '#39'ABRIL - '#39' || extract (year from fecha_' +
- 'factura)'#10'when extract (month from fecha_factura) = 5 then '#39'MAYO ' +
- '- '#39' || extract (year from fecha_factura)'#10'when extract (month fro' +
- 'm fecha_factura) = 6 then '#39'JUNIO - '#39' || extract (year from fecha' +
- '_factura)'#10'when extract (month from fecha_factura) = 7 then '#39'JULI' +
- 'O - '#39' || extract (year from fecha_factura)'#10'when extract (month f' +
- 'rom fecha_factura) = 8 then '#39'AGOSTO - '#39' || extract (year from fe' +
- 'cha_factura)'#10'when extract (month from fecha_factura) = 9 then '#39'S' +
- 'EPTIEMBRE - '#39' || extract (year from fecha_factura)'#10'when extract ' +
- '(month from fecha_factura) = 10 then '#39'OCTUBRE - '#39' || extract (ye' +
- 'ar from fecha_factura)'#10'when extract (month from fecha_factura) =' +
- ' 11 then '#39'NOVIEMBRE - '#39' || extract (year from fecha_factura)'#10'whe' +
- 'n extract (month from fecha_factura) = 12 then '#39'DICIEMBRE - '#39' ||' +
- ' extract (year from fecha_factura)'#10'end as TITULO,'#10'REFERENCIA, I' +
- 'D_CLIENTE, NOMBRE, SITUACION, NIF_CIF, FECHA_FACTURA, BASE_IMPON' +
- 'IBLE, IMPORTE_IVA, IMPORTE_TOTAL'#10#10'from V_facturas_cliente'#10'where ' +
- '{where}'#10'order by FECHA_FACTURA'#10#10
+ 'select ID_EMPRESA,'#10'extract (year from fecha_factura) as ANO,'#10'ext' +
+ 'ract (month from fecha_factura) as MES,'#10'case'#10'when extract (month' +
+ ' from fecha_factura) = 1 then '#39'ENERO - '#39' || extract (year from f' +
+ 'echa_factura)'#10'when extract (month from fecha_factura) = 2 then '#39 +
+ 'FEBRERO - '#39' || extract (year from fecha_factura)'#10'when extract (m' +
+ 'onth from fecha_factura) = 3 then '#39'MARZO - '#39' || extract (year fr' +
+ 'om fecha_factura)'#10'when extract (month from fecha_factura) = 4 th' +
+ 'en '#39'ABRIL - '#39' || extract (year from fecha_factura)'#10'when extract ' +
+ '(month from fecha_factura) = 5 then '#39'MAYO - '#39' || extract (year f' +
+ 'rom fecha_factura)'#10'when extract (month from fecha_factura) = 6 t' +
+ 'hen '#39'JUNIO - '#39' || extract (year from fecha_factura)'#10'when extract' +
+ ' (month from fecha_factura) = 7 then '#39'JULIO - '#39' || extract (year' +
+ ' from fecha_factura)'#10'when extract (month from fecha_factura) = 8' +
+ ' then '#39'AGOSTO - '#39' || extract (year from fecha_factura)'#10'when extr' +
+ 'act (month from fecha_factura) = 9 then '#39'SEPTIEMBRE - '#39' || extra' +
+ 'ct (year from fecha_factura)'#10'when extract (month from fecha_fact' +
+ 'ura) = 10 then '#39'OCTUBRE - '#39' || extract (year from fecha_factura)' +
+ #10'when extract (month from fecha_factura) = 11 then '#39'NOVIEMBRE - ' +
+ #39' || extract (year from fecha_factura)'#10'when extract (month from ' +
+ 'fecha_factura) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' +
+ 'cha_factura)'#10'end as TITULO,'#10'REFERENCIA, ID_CLIENTE, NOMBRE, SIT' +
+ 'UACION, NIF_CIF, FECHA_FACTURA, BASE_IMPONIBLE, IMPORTE_IVA, IMP' +
+ 'ORTE_TOTAL'#10#10'from V_facturas_cliente'#10'where {where}'#10'order by ANO, ' +
+ 'MES, NOMBRE'#10#10
StatementType = stSQL
ColumnMappings = <
item
@@ -540,6 +541,11 @@ object RptFacturasCliente: TRptFacturasCliente
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
+ end
+ item
+ DatasetField = 'ANO'
+ TableField = ''
+ SQLOrigin = 'ANO'
end>
end>
Name = 'InformeListadoFacturas'
@@ -548,6 +554,10 @@ object RptFacturasCliente: TRptFacturasCliente
Name = 'ID_EMPRESA'
DataType = datInteger
end
+ item
+ Name = 'ANO'
+ DataType = datSmallInt
+ end
item
Name = 'MES'
DataType = datSmallInt
diff --git a/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm b/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm
index f3203512..9fe9a405 100644
--- a/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm
+++ b/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm
@@ -421,29 +421,30 @@ object RptFacturasProveedor: TRptFacturasProveedor
Connection = 'IBX'
TargetTable = 'V_FACTURAS_PROVEEDOR'
SQL =
- 'select ID_EMPRESA,'#10'extract (month from fecha_factura) as MES,'#10'ca' +
- 'se'#10'when extract (month from fecha_factura) = 1 then '#39'ENERO - '#39' |' +
- '| extract (year from fecha_factura)'#10'when extract (month from fec' +
- 'ha_factura) = 2 then '#39'FEBRERO - '#39' || extract (year from fecha_fa' +
- 'ctura)'#10'when extract (month from fecha_factura) = 3 then '#39'MARZO -' +
- ' '#39' || extract (year from fecha_factura)'#10'when extract (month from' +
- ' fecha_factura) = 4 then '#39'ABRIL - '#39' || extract (year from fecha_' +
- 'factura)'#10'when extract (month from fecha_factura) = 5 then '#39'MAYO ' +
- '- '#39' || extract (year from fecha_factura)'#10'when extract (month fro' +
- 'm fecha_factura) = 6 then '#39'JUNIO - '#39' || extract (year from fecha' +
- '_factura)'#10'when extract (month from fecha_factura) = 7 then '#39'JULI' +
- 'O - '#39' || extract (year from fecha_factura)'#10'when extract (month f' +
- 'rom fecha_factura) = 8 then '#39'AGOSTO - '#39' || extract (year from fe' +
- 'cha_factura)'#10'when extract (month from fecha_factura) = 9 then '#39'S' +
- 'EPTIEMBRE - '#39' || extract (year from fecha_factura)'#10'when extract ' +
- '(month from fecha_factura) = 10 then '#39'OCTUBRE - '#39' || extract (ye' +
- 'ar from fecha_factura)'#10'when extract (month from fecha_factura) =' +
- ' 11 then '#39'NOVIEMBRE - '#39' || extract (year from fecha_factura)'#10'whe' +
- 'n extract (month from fecha_factura) = 12 then '#39'DICIEMBRE - '#39' ||' +
- ' extract (year from fecha_factura)'#10'end as TITULO,'#10'REFERENCIA, I' +
- 'D_PROVEEDOR, NOMBRE, SITUACION, NIF_CIF, FECHA_FACTURA, BASE_IMP' +
- 'ONIBLE, IMPORTE_IVA, IMPORTE_TOTAL'#10#10'from V_facturas_proveedor'#10'wh' +
- 'ere {where}'#10'order by FECHA_FACTURA'#10#10
+ 'select ID_EMPRESA,'#10'extract (year from fecha_factura) as ANO,'#10'ext' +
+ 'ract (month from fecha_factura) as MES,'#10'case'#10'when extract (month' +
+ ' from fecha_factura) = 1 then '#39'ENERO - '#39' || extract (year from f' +
+ 'echa_factura)'#10'when extract (month from fecha_factura) = 2 then '#39 +
+ 'FEBRERO - '#39' || extract (year from fecha_factura)'#10'when extract (m' +
+ 'onth from fecha_factura) = 3 then '#39'MARZO - '#39' || extract (year fr' +
+ 'om fecha_factura)'#10'when extract (month from fecha_factura) = 4 th' +
+ 'en '#39'ABRIL - '#39' || extract (year from fecha_factura)'#10'when extract ' +
+ '(month from fecha_factura) = 5 then '#39'MAYO - '#39' || extract (year f' +
+ 'rom fecha_factura)'#10'when extract (month from fecha_factura) = 6 t' +
+ 'hen '#39'JUNIO - '#39' || extract (year from fecha_factura)'#10'when extract' +
+ ' (month from fecha_factura) = 7 then '#39'JULIO - '#39' || extract (year' +
+ ' from fecha_factura)'#10'when extract (month from fecha_factura) = 8' +
+ ' then '#39'AGOSTO - '#39' || extract (year from fecha_factura)'#10'when extr' +
+ 'act (month from fecha_factura) = 9 then '#39'SEPTIEMBRE - '#39' || extra' +
+ 'ct (year from fecha_factura)'#10'when extract (month from fecha_fact' +
+ 'ura) = 10 then '#39'OCTUBRE - '#39' || extract (year from fecha_factura)' +
+ #10'when extract (month from fecha_factura) = 11 then '#39'NOVIEMBRE - ' +
+ #39' || extract (year from fecha_factura)'#10'when extract (month from ' +
+ 'fecha_factura) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' +
+ 'cha_factura)'#10'end as TITULO,'#10'REFERENCIA, ID_PROVEEDOR, NOMBRE, S' +
+ 'ITUACION, NIF_CIF, FECHA_FACTURA, BASE_IMPONIBLE, IMPORTE_IVA, I' +
+ 'MPORTE_TOTAL'#10#10'from V_facturas_proveedor'#10'where {where}'#10'order by A' +
+ 'NO, MES, NOMBRE'#10#10
StatementType = stSQL
ColumnMappings = <
item
@@ -495,6 +496,11 @@ object RptFacturasProveedor: TRptFacturasProveedor
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
+ end
+ item
+ DatasetField = 'ANO'
+ TableField = ''
+ SQLOrigin = 'ANO'
end>
end>
Name = 'InformeListadoFacturas'
@@ -503,6 +509,10 @@ object RptFacturasProveedor: TRptFacturasProveedor
Name = 'ID_EMPRESA'
DataType = datInteger
end
+ item
+ Name = 'ANO'
+ DataType = datSmallInt
+ end
item
Name = 'MES'
DataType = datSmallInt
diff --git a/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm b/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm
index 9d881b0a..39794fe5 100644
--- a/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm
+++ b/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm
@@ -21,29 +21,29 @@ object RptPedidosProveedor: TRptPedidosProveedor
TargetTable = 'V_PEDIDOS_PROVEEDOR'
Name = 'IBX'
SQL =
- #10' '#10'select ID_EMPRESA,'#10'extract (month from fecha_pedido) as MES,' +
- #10'case'#10'when extract (month from fecha_pedido) = 1 then '#39'ENERO - '#39 +
- ' || extract (year from fecha_pedido)'#10'when extract (month from fe' +
- 'cha_pedido) = 2 then '#39'FEBRERO - '#39' || extract (year from fecha_pe' +
- 'dido)'#10'when extract (month from fecha_pedido) = 3 then '#39'MARZO - '#39 +
- ' || extract (year from fecha_pedido)'#10'when extract (month from fe' +
- 'cha_pedido) = 4 then '#39'ABRIL - '#39' || extract (year from fecha_pedi' +
- 'do)'#10'when extract (month from fecha_pedido) = 5 then '#39'MAYO - '#39' ||' +
- ' extract (year from fecha_pedido)'#10'when extract (month from fecha' +
- '_pedido) = 6 then '#39'JUNIO - '#39' || extract (year from fecha_pedido)' +
- #10'when extract (month from fecha_pedido) = 7 then '#39'JULIO - '#39' || e' +
- 'xtract (year from fecha_pedido)'#10'when extract (month from fecha_p' +
- 'edido) = 8 then '#39'AGOSTO - '#39' || extract (year from fecha_pedido)'#10 +
- 'when extract (month from fecha_pedido) = 9 then '#39'SEPTIEMBRE - '#39' ' +
- '|| extract (year from fecha_pedido)'#10'when extract (month from fec' +
- 'ha_pedido) = 10 then '#39'OCTUBRE - '#39' || extract (year from fecha_pe' +
- 'dido)'#10'when extract (month from fecha_pedido) = 11 then '#39'NOVIEMBR' +
- 'E - '#39' || extract (year from fecha_pedido)'#10'when extract (month fr' +
- 'om fecha_pedido) = 12 then '#39'DICIEMBRE - '#39' || extract (year from ' +
- 'fecha_pedido)'#10'end as TITULO,'#10'REFERENCIA, ID_PROVEEDOR, NOMBRE, ' +
- 'SITUACION, fecha_pedido, FECHA_CONFIRMACION, FECHA_ENTREGA, IMPO' +
- 'RTE_TOTAL'#10#10'from V_PEDIDOS_PROVEEDOR'#10'where {where}'#10'order by FECHA' +
- '_PEDIDO'#10
+ #10' '#10'select ID_EMPRESA,'#10'extract (year from fecha_pedido) as ANO,'#10 +
+ 'extract (month from fecha_pedido) as MES,'#10'case'#10'when extract (mon' +
+ 'th from fecha_pedido) = 1 then '#39'ENERO - '#39' || extract (year from ' +
+ 'fecha_pedido)'#10'when extract (month from fecha_pedido) = 2 then '#39'F' +
+ 'EBRERO - '#39' || extract (year from fecha_pedido)'#10'when extract (mon' +
+ 'th from fecha_pedido) = 3 then '#39'MARZO - '#39' || extract (year from ' +
+ 'fecha_pedido)'#10'when extract (month from fecha_pedido) = 4 then '#39'A' +
+ 'BRIL - '#39' || extract (year from fecha_pedido)'#10'when extract (month' +
+ ' from fecha_pedido) = 5 then '#39'MAYO - '#39' || extract (year from fec' +
+ 'ha_pedido)'#10'when extract (month from fecha_pedido) = 6 then '#39'JUNI' +
+ 'O - '#39' || extract (year from fecha_pedido)'#10'when extract (month fr' +
+ 'om fecha_pedido) = 7 then '#39'JULIO - '#39' || extract (year from fecha' +
+ '_pedido)'#10'when extract (month from fecha_pedido) = 8 then '#39'AGOSTO' +
+ ' - '#39' || extract (year from fecha_pedido)'#10'when extract (month fro' +
+ 'm fecha_pedido) = 9 then '#39'SEPTIEMBRE - '#39' || extract (year from f' +
+ 'echa_pedido)'#10'when extract (month from fecha_pedido) = 10 then '#39'O' +
+ 'CTUBRE - '#39' || extract (year from fecha_pedido)'#10'when extract (mon' +
+ 'th from fecha_pedido) = 11 then '#39'NOVIEMBRE - '#39' || extract (year ' +
+ 'from fecha_pedido)'#10'when extract (month from fecha_pedido) = 12 t' +
+ 'hen '#39'DICIEMBRE - '#39' || extract (year from fecha_pedido)'#10'end as TI' +
+ 'TULO,'#10'REFERENCIA, ID_PROVEEDOR, NOMBRE, SITUACION, fecha_pedido' +
+ ', FECHA_CONFIRMACION, FECHA_ENTREGA, IMPORTE_TOTAL'#10#10'from V_PEDID' +
+ 'OS_PROVEEDOR'#10'where {where}'#10'order by ANO, MES, NOMBRE'#10
StatementType = stSQL
ColumnMappings = <
item
@@ -91,6 +91,11 @@ object RptPedidosProveedor: TRptPedidosProveedor
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
+ end
+ item
+ DatasetField = 'ANO'
+ TableField = ''
+ SQLOrigin = 'ANO'
end>
end>
Name = 'InformeListadoPedidos'
@@ -99,6 +104,10 @@ object RptPedidosProveedor: TRptPedidosProveedor
Name = 'ID_EMPRESA'
DataType = datInteger
end
+ item
+ Name = 'ANO'
+ DataType = datSmallInt
+ end
item
Name = 'MES'
DataType = datSmallInt
diff --git a/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.pas b/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.pas
index 61fc1e39..a426f22d 100644
--- a/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.pas
+++ b/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.pas
@@ -60,11 +60,11 @@ type
cabeceraCODIGO_POSTAL: TIBStringField;
cabeceraENTREGAR_A: TIBStringField;
frxPDFExport1: TfrxPDFExport;
- schReport: TDASchema;
- DataDictionary: TDADataDictionary;
frxDBInformeListadoPedidos: TfrxDBDataset;
DADSInformeListadoPedidos: TDADataSource;
tbl_InformeListadoPedidos: TDAMemDataTable;
+ schReport: TDASchema;
+ DataDictionary: TDADataDictionary;
procedure DataModuleCreate(Sender: TObject);
procedure frxReportGetValue(const VarName: string; var Value: Variant);
private
diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm
index 7bb635df..565a0842 100644
--- a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm
+++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm
@@ -49,31 +49,31 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
TargetTable = 'V_PRESUPUESTOS_CLIENTE'
Name = 'IBX'
SQL =
- 'select ID_EMPRESA,'#10'extract (month from fecha_presupuesto) as MES' +
- ','#10'case'#10'when extract (month from fecha_presupuesto) = 1 then '#39'ENE' +
- 'RO - '#39' || extract (year from fecha_presupuesto)'#10'when extract (mo' +
- 'nth from fecha_presupuesto) = 2 then '#39'FEBRERO - '#39' || extract (ye' +
+ 'select ID_EMPRESA,'#10'extract (year from fecha_presupuesto) as ANO,' +
+ #10'extract (month from fecha_presupuesto) as MES,'#10'case'#10'when extrac' +
+ 't (month from fecha_presupuesto) = 1 then '#39'ENERO - '#39' || extract ' +
+ '(year from fecha_presupuesto)'#10'when extract (month from fecha_pre' +
+ 'supuesto) = 2 then '#39'FEBRERO - '#39' || extract (year from fecha_pres' +
+ 'upuesto)'#10'when extract (month from fecha_presupuesto) = 3 then '#39'M' +
+ 'ARZO - '#39' || extract (year from fecha_presupuesto)'#10'when extract (' +
+ 'month from fecha_presupuesto) = 4 then '#39'ABRIL - '#39' || extract (ye' +
'ar from fecha_presupuesto)'#10'when extract (month from fecha_presup' +
- 'uesto) = 3 then '#39'MARZO - '#39' || extract (year from fecha_presupues' +
- 'to)'#10'when extract (month from fecha_presupuesto) = 4 then '#39'ABRIL ' +
- '- '#39' || extract (year from fecha_presupuesto)'#10'when extract (month' +
- ' from fecha_presupuesto) = 5 then '#39'MAYO - '#39' || extract (year fro' +
+ 'uesto) = 5 then '#39'MAYO - '#39' || extract (year from fecha_presupuest' +
+ 'o)'#10'when extract (month from fecha_presupuesto) = 6 then '#39'JUNIO -' +
+ ' '#39' || extract (year from fecha_presupuesto)'#10'when extract (month ' +
+ 'from fecha_presupuesto) = 7 then '#39'JULIO - '#39' || extract (year fro' +
'm fecha_presupuesto)'#10'when extract (month from fecha_presupuesto)' +
- ' = 6 then '#39'JUNIO - '#39' || extract (year from fecha_presupuesto)'#10'wh' +
- 'en extract (month from fecha_presupuesto) = 7 then '#39'JULIO - '#39' ||' +
- ' extract (year from fecha_presupuesto)'#10'when extract (month from ' +
- 'fecha_presupuesto) = 8 then '#39'AGOSTO - '#39' || extract (year from fe' +
- 'cha_presupuesto)'#10'when extract (month from fecha_presupuesto) = 9' +
- ' then '#39'SEPTIEMBRE - '#39' || extract (year from fecha_presupuesto)'#10'w' +
- 'hen extract (month from fecha_presupuesto) = 10 then '#39'OCTUBRE - ' +
- #39' || extract (year from fecha_presupuesto)'#10'when extract (month f' +
- 'rom fecha_presupuesto) = 11 then '#39'NOVIEMBRE - '#39' || extract (year' +
+ ' = 8 then '#39'AGOSTO - '#39' || extract (year from fecha_presupuesto)'#10'w' +
+ 'hen extract (month from fecha_presupuesto) = 9 then '#39'SEPTIEMBRE ' +
+ '- '#39' || extract (year from fecha_presupuesto)'#10'when extract (month' +
+ ' from fecha_presupuesto) = 10 then '#39'OCTUBRE - '#39' || extract (year' +
' from fecha_presupuesto)'#10'when extract (month from fecha_presupue' +
- 'sto) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fecha_presup' +
- 'uesto)'#10'end as TITULO,'#10'REFERENCIA, ID_CLIENTE, NOMBRE, SITUACION' +
- ', NIF_CIF, FECHA_PRESUPUESTO, FECHA_DECISION, FACTURA, IMPORTE_T' +
- 'OTAL'#10#10'from V_presupuestos_cliente'#10'where {where}'#10'order by FECHA_P' +
- 'RESUPUESTO'#10
+ 'sto) = 11 then '#39'NOVIEMBRE - '#39' || extract (year from fecha_presup' +
+ 'uesto)'#10'when extract (month from fecha_presupuesto) = 12 then '#39'DI' +
+ 'CIEMBRE - '#39' || extract (year from fecha_presupuesto)'#10'end as TITU' +
+ 'LO,'#10'REFERENCIA, ID_CLIENTE, NOMBRE, SITUACION, NIF_CIF, FECHA_P' +
+ 'RESUPUESTO, FECHA_DECISION, FACTURA, IMPORTE_TOTAL'#10#10'from V_presu' +
+ 'puestos_cliente'#10'where {where}'#10'order by ANO, MES, NOMBRE'#10
StatementType = stSQL
ColumnMappings = <
item
@@ -125,6 +125,11 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
+ end
+ item
+ DatasetField = 'ANO'
+ TableField = ''
+ SQLOrigin = 'ANO'
end>
end>
Name = 'InformeListadoPresupuestos'
@@ -133,6 +138,10 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
Name = 'ID_EMPRESA'
DataType = datInteger
end
+ item
+ Name = 'ANO'
+ DataType = datSmallInt
+ end
item
Name = 'MES'
DataType = datSmallInt
diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas
index 5144894a..870d3775 100644
--- a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas
+++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas
@@ -76,11 +76,11 @@ type
DAMemDataTable1: TDAMemDataTable;
DAMemDataTable2: TDAMemDataTable;
frxPDFExport1: TfrxPDFExport;
- schReport: TDASchema;
- DataDictionary: TDADataDictionary;
DADSInformeListadoPresupuestos: TDADataSource;
tbl_InformeListadoPresupuestos: TDAMemDataTable;
frxDBInformeListadoPresupuestos: TfrxDBDataset;
+ schReport: TDASchema;
+ DataDictionary: TDADataDictionary;
procedure DataModuleCreate(Sender: TObject);
private
FConnection: IDAConnection;
diff --git a/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm b/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm
index 8d68b236..8a053ed7 100644
--- a/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm
+++ b/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm
@@ -260,31 +260,32 @@ object RptRecibosCliente: TRptRecibosCliente
TargetTable = 'V_recibos_cliente'
Name = 'IBX'
SQL =
- 'select ID_EMPRESA,'#10'extract (month from fecha_vencimiento) as MES' +
- ','#10'case'#10'when extract (month from fecha_vencimiento) = 1 then '#39'ENE' +
- 'RO - '#39' || extract (year from fecha_vencimiento)'#10'when extract (mo' +
- 'nth from fecha_vencimiento) = 2 then '#39'FEBRERO - '#39' || extract (ye' +
+ 'select ID_EMPRESA,'#10'extract (year from fecha_vencimiento) as ANO,' +
+ #10'extract (month from fecha_vencimiento) as MES,'#10'case'#10'when extrac' +
+ 't (month from fecha_vencimiento) = 1 then '#39'ENERO - '#39' || extract ' +
+ '(year from fecha_vencimiento)'#10'when extract (month from fecha_ven' +
+ 'cimiento) = 2 then '#39'FEBRERO - '#39' || extract (year from fecha_venc' +
+ 'imiento)'#10'when extract (month from fecha_vencimiento) = 3 then '#39'M' +
+ 'ARZO - '#39' || extract (year from fecha_vencimiento)'#10'when extract (' +
+ 'month from fecha_vencimiento) = 4 then '#39'ABRIL - '#39' || extract (ye' +
'ar from fecha_vencimiento)'#10'when extract (month from fecha_vencim' +
- 'iento) = 3 then '#39'MARZO - '#39' || extract (year from fecha_vencimien' +
- 'to)'#10'when extract (month from fecha_vencimiento) = 4 then '#39'ABRIL ' +
- '- '#39' || extract (year from fecha_vencimiento)'#10'when extract (month' +
- ' from fecha_vencimiento) = 5 then '#39'MAYO - '#39' || extract (year fro' +
+ 'iento) = 5 then '#39'MAYO - '#39' || extract (year from fecha_vencimient' +
+ 'o)'#10'when extract (month from fecha_vencimiento) = 6 then '#39'JUNIO -' +
+ ' '#39' || extract (year from fecha_vencimiento)'#10'when extract (month ' +
+ 'from fecha_vencimiento) = 7 then '#39'JULIO - '#39' || extract (year fro' +
'm fecha_vencimiento)'#10'when extract (month from fecha_vencimiento)' +
- ' = 6 then '#39'JUNIO - '#39' || extract (year from fecha_vencimiento)'#10'wh' +
- 'en extract (month from fecha_vencimiento) = 7 then '#39'JULIO - '#39' ||' +
- ' extract (year from fecha_vencimiento)'#10'when extract (month from ' +
- 'fecha_vencimiento) = 8 then '#39'AGOSTO - '#39' || extract (year from fe' +
- 'cha_vencimiento)'#10'when extract (month from fecha_vencimiento) = 9' +
- ' then '#39'SEPTIEMBRE - '#39' || extract (year from fecha_vencimiento)'#10'w' +
- 'hen extract (month from fecha_vencimiento) = 10 then '#39'OCTUBRE - ' +
- #39' || extract (year from fecha_vencimiento)'#10'when extract (month f' +
- 'rom fecha_vencimiento) = 11 then '#39'NOVIEMBRE - '#39' || extract (year' +
+ ' = 8 then '#39'AGOSTO - '#39' || extract (year from fecha_vencimiento)'#10'w' +
+ 'hen extract (month from fecha_vencimiento) = 9 then '#39'SEPTIEMBRE ' +
+ '- '#39' || extract (year from fecha_vencimiento)'#10'when extract (month' +
+ ' from fecha_vencimiento) = 10 then '#39'OCTUBRE - '#39' || extract (year' +
' from fecha_vencimiento)'#10'when extract (month from fecha_vencimie' +
- 'nto) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fecha_vencim' +
- 'iento)'#10'end as TITULO,'#10'REFERENCIA, ID_CLIENTE, NOMBRE_CLIENTE, S' +
- 'ITUACION, NIF_CIF_CLIENTE, fecha_vencimiento, FECHA_EMISION,'#10'IMP' +
- 'ORTE_TOTAL'#10#10'from V_recibos_cliente'#10'where {where}'#10'order by FECHA_' +
- 'VENCIMIENTO'#10#10
+ 'nto) = 11 then '#39'NOVIEMBRE - '#39' || extract (year from fecha_vencim' +
+ 'iento)'#10'when extract (month from fecha_vencimiento) = 12 then '#39'DI' +
+ 'CIEMBRE - '#39' || extract (year from fecha_vencimiento)'#10'end as TITU' +
+ 'LO,'#10'REFERENCIA, ID_CLIENTE, NOMBRE_CLIENTE, SITUACION, NIF_CIF_' +
+ 'CLIENTE, fecha_vencimiento, FECHA_EMISION,'#10'IMPORTE_TOTAL'#10#10'from V' +
+ '_recibos_cliente'#10'where {where}'#10'order by ANO, MES, NOMBRE_CLIENTE' +
+ #10#10
StatementType = stSQL
ColumnMappings = <
item
@@ -330,6 +331,10 @@ object RptRecibosCliente: TRptRecibosCliente
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
+ end
+ item
+ DatasetField = 'ANO'
+ TableField = 'ANO'
end>
end>
Name = 'InformeListadoRecibos'
@@ -338,6 +343,10 @@ object RptRecibosCliente: TRptRecibosCliente
Name = 'ID_EMPRESA'
DataType = datInteger
end
+ item
+ Name = 'ANO'
+ DataType = datSmallInt
+ end
item
Name = 'MES'
DataType = datSmallInt
diff --git a/Source/Modulos/Recibos de proveedor/Reports/uRptRecibosProveedor_Server.dfm b/Source/Modulos/Recibos de proveedor/Reports/uRptRecibosProveedor_Server.dfm
index b1f0360c..1493917d 100644
--- a/Source/Modulos/Recibos de proveedor/Reports/uRptRecibosProveedor_Server.dfm
+++ b/Source/Modulos/Recibos de proveedor/Reports/uRptRecibosProveedor_Server.dfm
@@ -260,31 +260,32 @@ object RptRecibosProveedor: TRptRecibosProveedor
TargetTable = 'V_recibos_proveedor'
Name = 'IBX'
SQL =
- 'select ID_EMPRESA,'#10'extract (month from fecha_vencimiento) as MES' +
- ','#10'case'#10'when extract (month from fecha_vencimiento) = 1 then '#39'ENE' +
- 'RO - '#39' || extract (year from fecha_vencimiento)'#10'when extract (mo' +
- 'nth from fecha_vencimiento) = 2 then '#39'FEBRERO - '#39' || extract (ye' +
+ 'select ID_EMPRESA,'#10'extract (year from fecha_vencimiento) as ANO,' +
+ #10'extract (month from fecha_vencimiento) as MES,'#10'case'#10'when extrac' +
+ 't (month from fecha_vencimiento) = 1 then '#39'ENERO - '#39' || extract ' +
+ '(year from fecha_vencimiento)'#10'when extract (month from fecha_ven' +
+ 'cimiento) = 2 then '#39'FEBRERO - '#39' || extract (year from fecha_venc' +
+ 'imiento)'#10'when extract (month from fecha_vencimiento) = 3 then '#39'M' +
+ 'ARZO - '#39' || extract (year from fecha_vencimiento)'#10'when extract (' +
+ 'month from fecha_vencimiento) = 4 then '#39'ABRIL - '#39' || extract (ye' +
'ar from fecha_vencimiento)'#10'when extract (month from fecha_vencim' +
- 'iento) = 3 then '#39'MARZO - '#39' || extract (year from fecha_vencimien' +
- 'to)'#10'when extract (month from fecha_vencimiento) = 4 then '#39'ABRIL ' +
- '- '#39' || extract (year from fecha_vencimiento)'#10'when extract (month' +
- ' from fecha_vencimiento) = 5 then '#39'MAYO - '#39' || extract (year fro' +
+ 'iento) = 5 then '#39'MAYO - '#39' || extract (year from fecha_vencimient' +
+ 'o)'#10'when extract (month from fecha_vencimiento) = 6 then '#39'JUNIO -' +
+ ' '#39' || extract (year from fecha_vencimiento)'#10'when extract (month ' +
+ 'from fecha_vencimiento) = 7 then '#39'JULIO - '#39' || extract (year fro' +
'm fecha_vencimiento)'#10'when extract (month from fecha_vencimiento)' +
- ' = 6 then '#39'JUNIO - '#39' || extract (year from fecha_vencimiento)'#10'wh' +
- 'en extract (month from fecha_vencimiento) = 7 then '#39'JULIO - '#39' ||' +
- ' extract (year from fecha_vencimiento)'#10'when extract (month from ' +
- 'fecha_vencimiento) = 8 then '#39'AGOSTO - '#39' || extract (year from fe' +
- 'cha_vencimiento)'#10'when extract (month from fecha_vencimiento) = 9' +
- ' then '#39'SEPTIEMBRE - '#39' || extract (year from fecha_vencimiento)'#10'w' +
- 'hen extract (month from fecha_vencimiento) = 10 then '#39'OCTUBRE - ' +
- #39' || extract (year from fecha_vencimiento)'#10'when extract (month f' +
- 'rom fecha_vencimiento) = 11 then '#39'NOVIEMBRE - '#39' || extract (year' +
+ ' = 8 then '#39'AGOSTO - '#39' || extract (year from fecha_vencimiento)'#10'w' +
+ 'hen extract (month from fecha_vencimiento) = 9 then '#39'SEPTIEMBRE ' +
+ '- '#39' || extract (year from fecha_vencimiento)'#10'when extract (month' +
+ ' from fecha_vencimiento) = 10 then '#39'OCTUBRE - '#39' || extract (year' +
' from fecha_vencimiento)'#10'when extract (month from fecha_vencimie' +
- 'nto) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fecha_vencim' +
- 'iento)'#10'end as TITULO,'#10'REFERENCIA, ID_PROVEEDOR, NOMBRE_PROVEEDO' +
- 'R, SITUACION, NIF_CIF_PROVEEDOR, fecha_vencimiento, FECHA_EMISIO' +
- 'N,'#10'IMPORTE_TOTAL'#10#10'from V_recibos_proveedor'#10'where {where}'#10'order b' +
- 'y FECHA_VENCIMIENTO'#10#10
+ 'nto) = 11 then '#39'NOVIEMBRE - '#39' || extract (year from fecha_vencim' +
+ 'iento)'#10'when extract (month from fecha_vencimiento) = 12 then '#39'DI' +
+ 'CIEMBRE - '#39' || extract (year from fecha_vencimiento)'#10'end as TITU' +
+ 'LO,'#10'REFERENCIA, ID_PROVEEDOR, NOMBRE_PROVEEDOR, SITUACION, NIF_' +
+ 'CIF_PROVEEDOR, fecha_vencimiento, FECHA_EMISION,'#10'IMPORTE_TOTAL'#10#10 +
+ 'from V_recibos_proveedor'#10'where {where}'#10'order by ANO, MES, NOMBRE' +
+ '_PROVEEDOR'#10#10
StatementType = stSQL
ColumnMappings = <
item
@@ -330,6 +331,10 @@ object RptRecibosProveedor: TRptRecibosProveedor
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
+ end
+ item
+ DatasetField = 'ANO'
+ TableField = 'ANO'
end>
end>
Name = 'InformeListadoRecibos'
@@ -338,6 +343,10 @@ object RptRecibosProveedor: TRptRecibosProveedor
Name = 'ID_EMPRESA'
DataType = datInteger
end
+ item
+ Name = 'ANO'
+ DataType = datSmallInt
+ end
item
Name = 'MES'
DataType = datSmallInt
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index 6a98ca97..91c34285 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -1,323 +1,323 @@
-
+
-
- {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/standaloneTrueFalse1460FalseFalseFalseFalseFalse308212521.4.6.01.4.6.0martes, 11 de noviembre de 2008 20:02FactuGES_Server.dpr
-
-
-
-
- MainSource
-
-
-
-
-
-
- TDARemoteService
-
-
-
- TDataModule
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDARemoteService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
- TDataAbstractService
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- 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_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/standaloneTrueFalse1460FalseFalseFalseFalseFalse308212521.4.6.01.4.6.0martes, 11 de noviembre de 2008 20:02FactuGES_Server.dpr
+
+
+
+
+ MainSource
+
+
+
+
+
+
+ TDARemoteService
+
+
+
+ TDataModule
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDARemoteService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TDataAbstractService
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TFrame
+
+
+
+ TFrame
+
+
+
+ TForm
+
+
+
+ TFrame
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+ TDataModule
+
+
+
+
+
+
+
+
+
+
+
+
+
+