From 0170a41152a5eb4702aef8c3669ff2d4c5d61782 Mon Sep 17 00:00:00 2001 From: roberto Date: Tue, 18 Nov 2008 17:54:49 +0000 Subject: [PATCH] Se arregla el orden de los informes para que cuando salgan agrupados salgan bien git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@776 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- Source/Base/Base.dproj | 102 +-- Source/Base/Base.res | Bin 384 -> 4748 bytes Source/GUIBase/uViewDetallesBase.dfm | 15 +- Source/GUIBase/uViewDetallesBase.pas | 26 +- .../Reports/uRptFacturasCliente_Server.dfm | 56 +- .../Reports/uRptFacturasProveedor_Server.dfm | 56 +- .../Reports/uRptPedidosProveedor_Server.dfm | 55 +- .../Reports/uRptPedidosProveedor_Server.pas | 4 +- .../uRptPresupuestosCliente_Server.dfm | 53 +- .../uRptPresupuestosCliente_Server.pas | 4 +- .../Reports/uRptRecibosCliente_Server.dfm | 53 +- .../Reports/uRptRecibosProveedor_Server.dfm | 53 +- Source/Servidor/FactuGES_Server.dproj | 638 +++++++++--------- 13 files changed, 594 insertions(+), 521 deletions(-) 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 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fConfigurarConexion
TForm diff --git a/Source/Base/Base.res b/Source/Base/Base.res index 8b251f312bcccec5485024f6fe8d80e1cdf25746..1641339fcc482e7e3492d1b45813a86619622c33 100644 GIT binary patch literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP delta 11 ScmeBCZD5|Duvteife`=|>;pCc 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 - - - - - -
srvEmpresas
- TDARemoteService - - -
srvProvinciasPoblaciones_Impl
- TDataModule - - - - -
srvUsuarios
- TDataAbstractService - - - - - - - - -
RptAlbaranesCliente
- TDataModule - - -
RptWordAlbaranCliente
- TDataModule - - -
srvAlbaranesCliente
- TDataAbstractService - - - - - -
srvAlbaranesProveedor
- TDataAbstractService - - - - -
srvAlmacenes
- TDARemoteService - - - - - -
srvArticulos
- TDARemoteService - - - - - - - - -
RptEtiquetasContacto
- TDataModule - - -
RptFichasEmpleado
- TDataModule - - -
srvContactos
- TDARemoteService - - - - -
srvFabricantes
- TDataAbstractService - - - - - -
RptFacturasCliente
- TDataModule - - -
RptWordFacturaCliente
- TDataModule - - -
srvFacturasCliente
- TDataAbstractService - - - - - -
RptFacturasProveedor
- TDataModule - - -
srvFacturasProveedor
- TDataAbstractService - - - - -
srvFamilias
- TDataAbstractService - - - - -
srvFormasPago
- TDataAbstractService - - -
srvGestorDocumentos
- TDataAbstractService - - -
srvGestorInformes
- TDataAbstractService - - - - -
srvHistoricoMovimientos
- TDataAbstractService - - - - -
srvInventario
- TDataAbstractService - - - - - -
srvObras
- TDataAbstractService - - - - - -
RptPedidosProveedor
- TDataModule - - -
RptWordPedidoProveedor
- TDataModule - - -
srvPedidosProveedor
- TDataAbstractService - - - - - -
RptPresupuestosCliente
- TDataModule - - -
RptWordCertificadoTrabajo
- TDataModule - - -
RptWordPresupuestoCliente
- TDataModule - - -
srvPresupuestosCliente
- TDataAbstractService - - - - -
RptRecibosCliente
- TDataModule - - -
srvRecibosCliente
- TDataAbstractService - - - - -
RptRecibosProveedor
- TDataModule - - -
srvRecibosProveedor
- TDataAbstractService - - - - -
srvReferencias
- TDataAbstractService - - - - - -
srvRemesasCliente
- TDataAbstractService - - - - - -
srvRemesasProveedor
- TDataAbstractService - - - - -
srvTiposIVA
- TDataAbstractService - - - - -
srvUnidadesMedida
- TDataAbstractService - - - - -
srvConfiguracion
- TDataAbstractService - - -
frConexionBD
- TFrame - - -
frConfGeneral
- TFrame - - -
fConfiguracion
- TForm - - -
FrameConfiguracion
- TFrame - - -
srvLogin
- TDARemoteService - - -
fAcercaDe
- - -
dmServer
- TDataModule - - -
fServerForm
- - - - - - - - - - - + + {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} + FactuGES_Server.dpr + Debug + AnyCPU + DCC32 + ..\..\Output\Debug\Servidor\FactuGES_Server.exe + vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100 + + + 7.0 + False + False + 0 + 3 + ..\..\Output\Release\Servidor + RELEASE + + + 7.0 + 3 + ..\..\Output\Debug\Servidor + DEBUG; + True + True + True + $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 + $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 + $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 + $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 + + + Delphi.Personality + + +FalseTrueFalse/standaloneTrueFalse1460FalseFalseFalseFalseFalse308212521.4.6.01.4.6.0martes, 11 de noviembre de 2008 20:02FactuGES_Server.dpr + + + + + MainSource + + + + + +
srvEmpresas
+ TDARemoteService + + +
srvProvinciasPoblaciones_Impl
+ TDataModule + + + + +
srvUsuarios
+ TDataAbstractService + + + + + + + + +
RptAlbaranesCliente
+ TDataModule + + +
RptWordAlbaranCliente
+ TDataModule + + +
srvAlbaranesCliente
+ TDataAbstractService + + + + + +
srvAlbaranesProveedor
+ TDataAbstractService + + + + +
srvAlmacenes
+ TDARemoteService + + + + + +
srvArticulos
+ TDARemoteService + + + + + + + + +
RptEtiquetasContacto
+ TDataModule + + +
RptFichasEmpleado
+ TDataModule + + +
srvContactos
+ TDARemoteService + + + + +
srvFabricantes
+ TDataAbstractService + + + + + +
RptFacturasCliente
+ TDataModule + + +
RptWordFacturaCliente
+ TDataModule + + +
srvFacturasCliente
+ TDataAbstractService + + + + + +
RptFacturasProveedor
+ TDataModule + + +
srvFacturasProveedor
+ TDataAbstractService + + + + +
srvFamilias
+ TDataAbstractService + + + + +
srvFormasPago
+ TDataAbstractService + + +
srvGestorDocumentos
+ TDataAbstractService + + +
srvGestorInformes
+ TDataAbstractService + + + + +
srvHistoricoMovimientos
+ TDataAbstractService + + + + +
srvInventario
+ TDataAbstractService + + + + + +
srvObras
+ TDataAbstractService + + + + + +
RptPedidosProveedor
+ TDataModule + + +
RptWordPedidoProveedor
+ TDataModule + + +
srvPedidosProveedor
+ TDataAbstractService + + + + + +
RptPresupuestosCliente
+ TDataModule + + +
RptWordCertificadoTrabajo
+ TDataModule + + +
RptWordPresupuestoCliente
+ TDataModule + + +
srvPresupuestosCliente
+ TDataAbstractService + + + + +
RptRecibosCliente
+ TDataModule + + +
srvRecibosCliente
+ TDataAbstractService + + + + +
RptRecibosProveedor
+ TDataModule + + +
srvRecibosProveedor
+ TDataAbstractService + + + + +
srvReferencias
+ TDataAbstractService + + + + + +
srvRemesasCliente
+ TDataAbstractService + + + + + +
srvRemesasProveedor
+ TDataAbstractService + + + + +
srvTiposIVA
+ TDataAbstractService + + + + +
srvUnidadesMedida
+ TDataAbstractService + + + + +
srvConfiguracion
+ TDataAbstractService + + +
frConexionBD
+ TFrame + + +
frConfGeneral
+ TFrame + + +
fConfiguracion
+ TForm + + +
FrameConfiguracion
+ TFrame + + +
srvLogin
+ TDARemoteService + + +
fAcercaDe
+ + +
dmServer
+ TDataModule + + +
fServerForm
+ + + + + + + + + + +