From 3e313a746910a519d634e5869c3e033035833a52 Mon Sep 17 00:00:00 2001 From: roberto Date: Wed, 8 Feb 2012 17:54:39 +0000 Subject: [PATCH] Tareas #794: SAcar en informe de facturas de proveedor un resumen por tipo de gasto como en el programa anterior Tareas #798: En el informe de listado de iva facturas proveedor ver el irpf Tareas #799: En las facturas de proveedor si se pone fecha de vencimiento que se genere un recibo con dicha fecha git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@41 93f398dd-4eb6-7a46-baf6-13f46f578da2 --- Source/Base/Base.dproj | 103 ++-- Source/Base/Base.res | Bin 384 -> 4748 bytes Source/Informes/InformeIVAProveedores.fr3 | 144 +++-- .../InformeIVAProveedoresDesglosado.fr3 | 158 +++-- .../InformeListadoFacturasRecibosCliente.fr3 | 10 +- .../uFacturasProveedorController.pas | 7 +- .../Model/schFacturasProveedorClient_Intf.pas | 32 +- .../Model/schFacturasProveedorServer_Intf.pas | 20 +- .../Model/uBizFacturasProveedor.pas | 4 +- .../Reports/uRptFacturasProveedor_Server.dfm | 165 ++++- .../Reports/uRptFacturasProveedor_Server.pas | 17 +- .../Servidor/srvFacturasProveedor_Impl.dfm | 35 +- .../Views/uViewFacturaProveedor.dfm | 67 +- .../Views/uViewFacturaProveedor.pas | 2 - .../Views/uViewFacturasProveedor.dfm | 3 + .../Views/uViewFacturasProveedor.pas | 6 +- Source/Servidor/FactuGES_Server.dproj | 581 +++++++++--------- 17 files changed, 782 insertions(+), 572 deletions(-) diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index 057ca2e..9d7f06c 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -44,6 +44,13 @@ Package FalseTrueFalseLibreria base de FactuGESFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 + + + + + + + VCL for the Web Design Package for CodeGear RAD Studio CodeGear WebSnap Components CodeGear SOAP Components @@ -58,55 +65,55 @@ 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/Informes/InformeIVAProveedores.fr3 b/Source/Informes/InformeIVAProveedores.fr3 index ac35cf7..c0e3435 100644 --- a/Source/Informes/InformeIVAProveedores.fr3 +++ b/Source/Informes/InformeIVAProveedores.fr3 @@ -1,71 +1,107 @@ - + - - - - - - + + + + + + - + - - - - - - + + + + + + - + - + + + + + - - - - - - - - - + + + + + + + + + + + + + - - - - - + + + + + + - - - + + - - - - - - - - + + + + + + + + + - - - - - - - - + + + + + + + + + - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Source/Informes/InformeIVAProveedoresDesglosado.fr3 b/Source/Informes/InformeIVAProveedoresDesglosado.fr3 index 89b86f1..ddb7dde 100644 --- a/Source/Informes/InformeIVAProveedoresDesglosado.fr3 +++ b/Source/Informes/InformeIVAProveedoresDesglosado.fr3 @@ -1,75 +1,111 @@ - + - - - - - - - + + + + + + + - + - - - - - - - - - - + + - - - - - - - - - + + + + + + + + + + + + + - - - - - + + + + + + - - - - - - - + + - - - - - - - - + + + + + + + + + - - - - - - - - + + + + + + + + + - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Source/Informes/InformeListadoFacturasRecibosCliente.fr3 b/Source/Informes/InformeListadoFacturasRecibosCliente.fr3 index 61b53e5..38b5e12 100644 --- a/Source/Informes/InformeListadoFacturasRecibosCliente.fr3 +++ b/Source/Informes/InformeListadoFacturasRecibosCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -47,7 +47,7 @@ - + @@ -55,9 +55,9 @@ - - - + + + diff --git a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas index 5037e8a..89e3b3e 100644 --- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas +++ b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas @@ -631,6 +631,7 @@ begin REFERENCIA := ''; //Para que se asigne una nueva SITUACION := CTE_PENDIENTE; //Una factura nueva debe estar pendiente FECHA_FACTURA := DateOf(Now); + FECHA_VENCIMIENTO := DateOf(Now); {$IFDEF CONTABILIDAD} ID_EJERCICIO := AppFactuGES.EjercicioActivo.ID; @@ -700,7 +701,7 @@ begin //De esta forma obligaremos siempre a tener un recibo asociado a la factura, //porque si la forma de pago no tiene plazos es obligatorio la fecha de vencimiento -{ with TFormasPagoController.Create do + with TFormasPagoController.Create do begin try AFormaPago := Buscar(AFactura.ID_FORMA_PAGO); @@ -713,7 +714,7 @@ begin Free; end; end; -} + //En caso de ser un Abono no podra tener un importe total positivo if (AFactura.TIPO = CTE_TIPO_ABONO) then if (AFactura.IMPORTE_TOTAL >= 0) then @@ -1260,8 +1261,6 @@ begin AFormasPagoController := TFormasPagoController.Create; AFormaPago := AFormasPagoController.Buscar(AFactura.ID_FORMA_PAGO); AFormaPago.DataTable.Active := True; - if AFormaPago.Plazos.RecordCount = 0 then - Exit; //No hay plazos en la forma de pago en la factura y por lo tanto no se generan recibos ARecibosProveedorController := TRecibosProveedorController.Create; //Eliminamos todos los recibos que tuviera la factura porque sabemos que todos diff --git a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas index d71d1a2..d1f3710 100644 --- a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas +++ b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas @@ -3,17 +3,17 @@ unit schFacturasProveedorClient_Intf; interface uses - Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; const { Data table rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_ListaAnosFacturas = '{C7DA1898-B917-4186-82B9-EF7F3688C121}'; - RID_FacturasProveedor_Contratos = '{3BA8F2FD-0730-4766-B593-D8B413B5905B}'; - RID_TiposFacturaProveedor = '{99A70923-CC81-401B-A06C-3AEFA31F1956}'; - RID_FacturasProveedor = '{703B7E51-6194-4F69-B9BC-849C4821B81B}'; - RID_FacturasProveedor_Detalles = '{355A9F5B-B76A-4ED7-AD99-723ECC24197E}'; + RID_ListaAnosFacturas = '{772E3A80-73F5-425A-8F80-2DA4BA6889CE}'; + RID_FacturasProveedor_Contratos = '{DE5C1077-9860-424E-895B-C6348ACCA4DB}'; + RID_TiposFacturaProveedor = '{67B410B2-667E-4EB4-B78D-CBD675A717BD}'; + RID_FacturasProveedor = '{D4BA7205-7758-40CB-934A-3DD2238AC1B1}'; + RID_FacturasProveedor_Detalles = '{01304CD4-713A-442B-A701-8B37BA847E7C}'; { Data table names } nme_ListaAnosFacturas = 'ListaAnosFacturas'; @@ -183,7 +183,7 @@ const type { IListaAnosFacturas } IListaAnosFacturas = interface(IDAStronglyTypedDataTable) - ['{39519A2A-11BC-4AFA-B812-3055340CAE84}'] + ['{B368FF8D-1FFD-47E0-AE16-C42B17DDFAA1}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -197,7 +197,7 @@ type end; { TListaAnosFacturasDataTableRules } - TListaAnosFacturasDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosFacturas) + TListaAnosFacturasDataTableRules = class(TDADataTableRules, IListaAnosFacturas) private protected { Property getters and setters } @@ -218,7 +218,7 @@ type { IFacturasProveedor_Contratos } IFacturasProveedor_Contratos = interface(IDAStronglyTypedDataTable) - ['{42B0326B-8965-4E74-AC91-64D82C5ABCAA}'] + ['{D2ECFD06-1A26-4A80-8334-1DF7DBB1824B}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -268,7 +268,7 @@ type end; { TFacturasProveedor_ContratosDataTableRules } - TFacturasProveedor_ContratosDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor_Contratos) + TFacturasProveedor_ContratosDataTableRules = class(TDADataTableRules, IFacturasProveedor_Contratos) private protected { Property getters and setters } @@ -325,7 +325,7 @@ type { ITiposFacturaProveedor } ITiposFacturaProveedor = interface(IDAStronglyTypedDataTable) - ['{940D609C-16AA-442E-84A1-6C0181D4F10D}'] + ['{C16445EE-8D36-4166-97C6-045FE267548E}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -345,7 +345,7 @@ type end; { TTiposFacturaProveedorDataTableRules } - TTiposFacturaProveedorDataTableRules = class(TIntfObjectDADataTableRules, ITiposFacturaProveedor) + TTiposFacturaProveedorDataTableRules = class(TDADataTableRules, ITiposFacturaProveedor) private protected { Property getters and setters } @@ -372,7 +372,7 @@ type { IFacturasProveedor } IFacturasProveedor = interface(IDAStronglyTypedDataTable) - ['{07C8CFF1-8C44-4C84-9171-83E0C9AF81FE}'] + ['{689FC1AA-5A56-4ABC-AFB2-984B5749E875}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -649,7 +649,7 @@ type end; { TFacturasProveedorDataTableRules } - TFacturasProveedorDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor) + TFacturasProveedorDataTableRules = class(TDADataTableRules, IFacturasProveedor) private f_OBSERVACIONES: IROStrings; procedure OBSERVACIONES_OnChange(Sender: TObject); @@ -935,7 +935,7 @@ type { IFacturasProveedor_Detalles } IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable) - ['{97EF127B-7478-45C9-B15F-832618C17F19}'] + ['{6001EDD7-2FD3-46B9-A5D4-7E90AD339EC0}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1027,7 +1027,7 @@ type end; { TFacturasProveedor_DetallesDataTableRules } - TFacturasProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor_Detalles) + TFacturasProveedor_DetallesDataTableRules = class(TDADataTableRules, IFacturasProveedor_Detalles) private protected { Property getters and setters } diff --git a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas index 51412b3..06985ac 100644 --- a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas +++ b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas @@ -9,16 +9,16 @@ const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_ListaAnosFacturasDelta = '{B5BAE581-991C-4B73-9455-984D9A5AB62B}'; - RID_FacturasProveedor_ContratosDelta = '{F3AA3D9B-47DB-4B66-914C-ADF42111EAFB}'; - RID_TiposFacturaProveedorDelta = '{72320F2D-F96B-42D2-8046-226C5F0CFF90}'; - RID_FacturasProveedorDelta = '{56EEC02F-6B35-4538-A885-E3FD6408F13B}'; - RID_FacturasProveedor_DetallesDelta = '{918408EE-23B5-4145-B189-D7B8CC62E7F6}'; + RID_ListaAnosFacturasDelta = '{5E2C03E7-40F8-4863-B08C-2946B58596A3}'; + RID_FacturasProveedor_ContratosDelta = '{62B5396F-4A08-443D-8B7F-974267E456A5}'; + RID_TiposFacturaProveedorDelta = '{EA8E5C49-5AE7-496F-B4FA-9680EAC18C03}'; + RID_FacturasProveedorDelta = '{64C30025-CE2E-4DDC-8684-E0E7B5552C00}'; + RID_FacturasProveedor_DetallesDelta = '{05C62271-95BD-4275-B16B-3E75CD24CB3F}'; type { IListaAnosFacturasDelta } IListaAnosFacturasDelta = interface(IListaAnosFacturas) - ['{B5BAE581-991C-4B73-9455-984D9A5AB62B}'] + ['{5E2C03E7-40F8-4863-B08C-2946B58596A3}'] { Property getters and setters } function GetOldANOValue : String; @@ -52,7 +52,7 @@ type { IFacturasProveedor_ContratosDelta } IFacturasProveedor_ContratosDelta = interface(IFacturasProveedor_Contratos) - ['{F3AA3D9B-47DB-4B66-914C-ADF42111EAFB}'] + ['{62B5396F-4A08-443D-8B7F-974267E456A5}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_FACTURAValue : Integer; @@ -158,7 +158,7 @@ type { ITiposFacturaProveedorDelta } ITiposFacturaProveedorDelta = interface(ITiposFacturaProveedor) - ['{72320F2D-F96B-42D2-8046-226C5F0CFF90}'] + ['{EA8E5C49-5AE7-496F-B4FA-9680EAC18C03}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; @@ -204,7 +204,7 @@ type { IFacturasProveedorDelta } IFacturasProveedorDelta = interface(IFacturasProveedor) - ['{56EEC02F-6B35-4538-A885-E3FD6408F13B}'] + ['{64C30025-CE2E-4DDC-8684-E0E7B5552C00}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -767,7 +767,7 @@ type { IFacturasProveedor_DetallesDelta } IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles) - ['{918408EE-23B5-4145-B189-D7B8CC62E7F6}'] + ['{05C62271-95BD-4275-B16B-3E75CD24CB3F}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_FACTURAValue : Integer; diff --git a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas index a7defa5..cfdb91a 100644 --- a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas +++ b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas @@ -14,6 +14,7 @@ const CTE_TIPO_FACTURA = 'F'; CTE_PENDIENTE = 'PENDIENTE'; + CTE_PARCIAMENTE_PAGADA = 'PARCIALMENTE PAGADA'; CTE_PAGADA = 'PAGADA'; type @@ -298,6 +299,7 @@ begin ID_EMPRESA := AppFactuGES.EmpresaActiva.ID; USUARIO := AppFactuGES.UsuarioActivo.UserName; FECHA_FACTURA := DateOf(Now); + FECHA_VENCIMIENTO := DateOf(Now); ID_PROVEEDOR := ID_NULO; TIPO := CTE_TIPO_FACTURA; @@ -305,7 +307,7 @@ begin ID_TIPO_IVA := AppFactuGES.EmpresaActiva.ID_TIPO_IVA; RE := 0; - SITUACION := CTE_PENDIENTE; +// SITUACION := CTE_PENDIENTE; ID_TIENDA := AppFactuGES.TiendaActiva.ID; TIENDA := AppFactuGES.TiendaActiva.NOMBRE; diff --git a/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm b/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm index d052396..97166e8 100644 --- a/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm +++ b/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm @@ -3,7 +3,7 @@ object RptFacturasProveedor: TRptFacturasProveedor OnCreate = DataModuleCreate OnDestroy = DataModuleDestroy Height = 405 - Width = 763 + Width = 837 object frxRichObject1: TfrxRichObject Left = 48 Top = 296 @@ -49,10 +49,11 @@ object RptFacturasProveedor: TRptFacturasProveedor 'select V_facturas_proveedor.ID_EMPRESA,'#10'contactos.REFERENCIA,'#10'co' + 'ntactos.nif_cif,'#10'contactos.poblacion,'#10'V_facturas_proveedor.NOMBR' + 'E,'#10'sum(V_facturas_proveedor.BASE_IMPONIBLE) as BASE_IMPONIBLE,'#10's' + - 'um(V_facturas_proveedor.IMPORTE_IVA) as IMPORTE_IVA,'#10'sum(V_factu' + - 'ras_proveedor.IMPORTE_TOTAL) AS IMPORTE_TOTAL'#10'from V_facturas_pr' + - 'oveedor'#10'left join contactos on (contactos.ID = V_facturas_provee' + - 'dor.ID_PROVEEDOR)'#10'group by 1,2,3,4,5'#10'order by 1,5,2,3,4'#10 + 'um(V_facturas_proveedor.IMPORTE_IRPF) as IMPORTE_IRPF,'#10'sum(V_fac' + + 'turas_proveedor.IMPORTE_IVA) as IMPORTE_IVA,'#10'sum(V_facturas_prov' + + 'eedor.IMPORTE_TOTAL) AS IMPORTE_TOTAL'#10'from V_facturas_proveedor'#10 + + 'left join contactos on (contactos.ID = V_facturas_proveedor.ID_P' + + 'ROVEEDOR)'#10'group by 1,2,3,4,5'#10'order by 1,5,2,3,4'#10 StatementType = stSQL ColumnMappings = < item @@ -86,6 +87,10 @@ object RptFacturasProveedor: TRptFacturasProveedor item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' + end + item + DatasetField = 'IMPORTE_IRPF' + TableField = 'IMPORTE_IRPF' end> end> Name = 'ListadoFacturasProveedorResumen' @@ -118,6 +123,10 @@ object RptFacturasProveedor: TRptFacturasProveedor Name = 'BASE_IMPONIBLE' DataType = datCurrency end + item + Name = 'IMPORTE_IRPF' + DataType = datCurrency + end item Name = 'IMPORTE_IVA' DataType = datCurrency @@ -156,9 +165,9 @@ object RptFacturasProveedor: TRptFacturasProveedor 'fecha_factura) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' + 'cha_factura)'#10'end as TITULO,'#10'REFERENCIA, REFERENCIA_PROVEEDOR, ID' + '_PROVEEDOR, REF_PROVEEDOR, NOMBRE, SITUACION, NIF_CIF,'#10'FECHA_FAC' + - 'TURA, FECHA_VENCIMIENTO, BASE_IMPONIBLE, IMPORTE_IVA, IMPORTE_TO' + - 'TAL'#10#10'from V_facturas_proveedor'#10'where {where}'#10'order by ANO, MES, ' + - 'FECHA_FACTURA, NOMBRE'#10#10 + 'TURA, FECHA_VENCIMIENTO, BASE_IMPONIBLE, IVA, IMPORTE_IVA, IRPF,' + + ' IMPORTE_IRPF, IMPORTE_TOTAL'#10#10'from V_facturas_proveedor'#10'where {w' + + 'here}'#10'order by ANO, MES, FECHA_FACTURA, NOMBRE'#10#10 StatementType = stSQL ColumnMappings = < item @@ -227,6 +236,18 @@ object RptFacturasProveedor: TRptFacturasProveedor item DatasetField = 'REF_PROVEEDOR' TableField = 'REF_PROVEEDOR' + end + item + DatasetField = 'IVA' + TableField = 'IVA' + end + item + DatasetField = 'IRPF' + TableField = 'IRPF' + end + item + DatasetField = 'IMPORTE_IRPF' + TableField = 'IMPORTE_IRPF' end> end> Name = 'ListadoFacturasProveedor' @@ -275,7 +296,7 @@ object RptFacturasProveedor: TRptFacturasProveedor item Name = 'SITUACION' DataType = datString - Size = 19 + Size = 255 end item Name = 'NIF_CIF' @@ -294,6 +315,90 @@ object RptFacturasProveedor: TRptFacturasProveedor Name = 'BASE_IMPONIBLE' DataType = datCurrency end + item + Name = 'IVA' + DataType = datFloat + end + item + Name = 'IMPORTE_IVA' + DataType = datCurrency + end + item + Name = 'IRPF' + DataType = datFloat + end + item + Name = 'IMPORTE_IRPF' + DataType = datCurrency + end + item + Name = 'IMPORTE_TOTAL' + DataType = datCurrency + end> + end + item + Params = <> + Statements = < + item + Connection = 'IBX' + ConnectionType = 'Interbase' + Default = True + TargetTable = 'v_facturas_proveedor' + SQL = + 'select V_facturas_proveedor.ID_EMPRESA,'#10'coalesce(T.DESCRIPCION, ' + + #39'Sin asignar'#39') as DESCRIPCION,'#10'sum(V_facturas_proveedor.BASE_IMP' + + 'ONIBLE) as BASE_IMPONIBLE,'#10'sum(V_facturas_proveedor.IMPORTE_IRPF' + + ') as IMPORTE_IRPF,'#10'sum(V_facturas_proveedor.IMPORTE_IVA) as IMPO' + + 'RTE_IVA,'#10'sum(V_facturas_proveedor.IMPORTE_TOTAL) AS IMPORTE_TOTA' + + 'L'#10'from V_facturas_proveedor'#10'left join tipos_factura_proveedor T ' + + 'on (T.ID = V_facturas_proveedor.ID_TIPO_FACTURA)'#10'group by 1,2'#10'or' + + 'der by 1,2'#10 + StatementType = stSQL + ColumnMappings = < + item + DatasetField = 'ID_EMPRESA' + TableField = 'ID_EMPRESA' + end + item + DatasetField = 'BASE_IMPONIBLE' + TableField = 'BASE_IMPONIBLE' + end + item + DatasetField = 'IMPORTE_IVA' + TableField = 'IMPORTE_IVA' + end + item + DatasetField = 'IMPORTE_TOTAL' + TableField = 'IMPORTE_TOTAL' + end + item + DatasetField = 'IMPORTE_IRPF' + TableField = 'IMPORTE_IRPF' + end + item + DatasetField = 'DESCRIPCION' + TableField = 'DESCRIPCION' + end> + end> + Name = 'ListadoFacturasProveedorTipoResumen' + Fields = < + item + Name = 'ID_EMPRESA' + DataType = datInteger + end + item + Name = 'DESCRIPCION' + DataType = datString + Size = 2000 + end + item + Name = 'BASE_IMPONIBLE' + DataType = datCurrency + end + item + Name = 'IMPORTE_IRPF' + DataType = datCurrency + end item Name = 'IMPORTE_IVA' DataType = datCurrency @@ -516,7 +621,7 @@ object RptFacturasProveedor: TRptFacturasProveedor PrintOptions.Printer = 'Por defecto' PrintOptions.PrintOnSheet = 0 ReportOptions.CreateDate = 37800.807714351900000000 - ReportOptions.LastChange = 40945.691024224540000000 + ReportOptions.LastChange = 40947.762142453710000000 ScriptLanguage = 'PascalScript' ShowProgress = False StoreInDFM = False @@ -571,7 +676,7 @@ object RptFacturasProveedor: TRptFacturasProveedor item Name = 'SITUACION' DataType = datString - Size = 19 + Size = 255 end item Name = 'NIF_CIF' @@ -590,10 +695,22 @@ object RptFacturasProveedor: TRptFacturasProveedor Name = 'BASE_IMPONIBLE' DataType = datCurrency end + item + Name = 'IVA' + DataType = datFloat + end item Name = 'IMPORTE_IVA' DataType = datCurrency end + item + Name = 'IRPF' + DataType = datFloat + end + item + Name = 'IMPORTE_IRPF' + DataType = datCurrency + end item Name = 'IMPORTE_TOTAL' DataType = datCurrency @@ -653,4 +770,30 @@ object RptFacturasProveedor: TRptFacturasProveedor Left = 648 Top = 136 end + object frxDBInformeListadoFacturasTipoResumen: TfrxDBDataset + UserName = 'frxDBInformeListadoFacturasTipoResumen' + CloseDataSource = True + DataSource = DADSInformeListadoFacturasTipoResumen + BCDToCurrency = False + Left = 648 + Top = 192 + end + object DADSInformeListadoFacturasTipoResumen: TDADataSource + DataSet = tbl_InformeListadoFacturasTipoResumen.Dataset + DataTable = tbl_InformeListadoFacturasTipoResumen + Left = 648 + Top = 248 + end + object tbl_InformeListadoFacturasTipoResumen: TDAMemDataTable + RemoteUpdatesOptions = [] + Fields = <> + Params = <> + MasterMappingMode = mmDataRequest + LogChanges = False + StreamingOptions = [soDisableEventsWhileStreaming] + RemoteFetchEnabled = False + IndexDefs = <> + Left = 648 + Top = 304 + end end diff --git a/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.pas b/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.pas index 3aa046d..cb58e7e 100644 --- a/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.pas +++ b/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.pas @@ -27,6 +27,9 @@ type frxDBInformeListadoFacturasResumen: TfrxDBDataset; DADSInformeListadoFacturasResumen: TDADataSource; tbl_InformeListadoFacturasResumen: TDAMemDataTable; + frxDBInformeListadoFacturasTipoResumen: TfrxDBDataset; + DADSInformeListadoFacturasTipoResumen: TDADataSource; + tbl_InformeListadoFacturasTipoResumen: TDAMemDataTable; schReport: TDASchema; DataDictionary: TDADataDictionary; procedure DataModuleCreate(Sender: TObject); @@ -73,6 +76,7 @@ const rptInformeListadoFactuasProveedorPendiente = 'InformeListadoFacturasProveedorPendientes.fr3'; rptInformeListadoFactuasProveedorPendienteDesglosado = 'InformeListadoFacturasProveedorPendientesDesglosado.fr3'; ds_InformeListadoFacturasResumen = 'ListadoFacturasProveedorResumen'; + ds_InformeListadoFacturasTipoResumen = 'ListadoFacturasProveedorTipoResumen'; { TRptFacturasProveedor } @@ -128,16 +132,24 @@ begin //Se prepara la tabla del listado resumen del informe if tbl_InformeListadoFacturasResumen.Active then tbl_InformeListadoFacturasResumen.Active := False; - dsMaster := schReport.NewDataset(FConnection, ds_InformeListadoFacturasResumen, [], [], False); PrepararTablaResumenInforme(dsMaster); - //Esto se hace para rellenar la tabla del datamodule que usa el informe. dsMaster.Open; AStream.Clear; Bin2DataStreamer.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1); Bin2DataStreamer.ReadDataset(AStream, tbl_InformeListadoFacturasResumen, TRUE, '', TRUE, TRUE); + if tbl_InformeListadoFacturasTipoResumen.Active then + tbl_InformeListadoFacturasTipoResumen.Active := False; + dsMaster := schReport.NewDataset(FConnection, ds_InformeListadoFacturasTipoResumen, [], [], False); + PrepararTablaResumenInforme(dsMaster); + //Esto se hace para rellenar la tabla del datamodule que usa el informe. + dsMaster.Open; + AStream.Clear; + Bin2DataStreamer.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1); + Bin2DataStreamer.ReadDataset(AStream, tbl_InformeListadoFacturasTipoResumen, TRUE, '', TRUE, TRUE); + //DESGLOSADO POR PROVEEDOR EN ESTE INFORME NO SE DESGLOSARÁ POR PROVEEDOR if FDesglosado then ATipoInforme := rptInformeIVADesglosado @@ -147,6 +159,7 @@ begin //Finalmente se abren las tablas del informe tbl_InformeListadoFacturas.Active := True; tbl_InformeListadoFacturasResumen.Active := True; + tbl_InformeListadoFacturasTipoResumen.Active := True; Result := _GenerarInforme(ATipoInforme); diff --git a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm index 4e9c0d9..96d427a 100644 --- a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm +++ b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm @@ -1008,12 +1008,6 @@ object srvFacturasProveedor: TsrvFacturasProveedor Name = 'ID_TIPO_FACTURA' DataType = datInteger Value = '' - end - item - Name = 'SITUACION' - DataType = datString - Size = 255 - Value = '' end> Statements = < item @@ -1029,16 +1023,16 @@ object srvFacturasProveedor: TsrvFacturasProveedor ', PROVINCIA, CODIGO_POSTAL, '#10' FECHA_ALTA, FECHA_MODIFICACION' + ', USUARIO, ID_FORMA_PAGO, '#10' RECARGO_EQUIVALENCIA, ID_TIPO_IV' + 'A, IMPORTE_NETO, IMPORTE_PORTE, IGNORAR_CONTABILIDAD,'#10' ID_TI' + - 'ENDA, ID_TIPO_FACTURA, SITUACION)'#10' VALUES'#10' (:ID, :ID_EMPRESA' + - ', :REFERENCIA, :REFERENCIA_PROVEEDOR,'#10' :FECHA_FACTURA, :FECH' + - 'A_VENCIMIENTO, :BASE_IMPONIBLE, :DESCUENTO,'#10' :IMPORTE_DESCUE' + - 'NTO, :IVA, :IMPORTE_IVA, :IRPF, :IMPORTE_IRPF,'#10' :RE, :IMPORT' + - 'E_RE, :IMPORTE_TOTAL, :OBSERVACIONES, :ID_PROVEEDOR, :NIF_CIF,'#10' ' + - ' :NOMBRE, :CALLE, :POBLACION, :PROVINCIA, :CODIGO_POSTAL, '#10' ' + - ' :FECHA_ALTA, :FECHA_MODIFICACION, :USUARIO, :ID_FORMA_PAGO, '#10 + - ' :RECARGO_EQUIVALENCIA, :ID_TIPO_IVA, :IMPORTE_NETO, '#10' :' + - 'IMPORTE_PORTE, :IGNORAR_CONTABILIDAD, :ID_TIENDA, :ID_TIPO_FACTU' + - 'RA, :SITUACION)'#10' '#10' '#10#10 + 'ENDA, ID_TIPO_FACTURA)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERENC' + + 'IA, :REFERENCIA_PROVEEDOR,'#10' :FECHA_FACTURA, :FECHA_VENCIMIEN' + + 'TO, :BASE_IMPONIBLE, :DESCUENTO,'#10' :IMPORTE_DESCUENTO, :IVA, ' + + ':IMPORTE_IVA, :IRPF, :IMPORTE_IRPF,'#10' :RE, :IMPORTE_RE, :IMPO' + + 'RTE_TOTAL, :OBSERVACIONES, :ID_PROVEEDOR, :NIF_CIF,'#10' :NOMBRE' + + ', :CALLE, :POBLACION, :PROVINCIA, :CODIGO_POSTAL, '#10' :FECHA_A' + + 'LTA, :FECHA_MODIFICACION, :USUARIO, :ID_FORMA_PAGO, '#10' :RECAR' + + 'GO_EQUIVALENCIA, :ID_TIPO_IVA, :IMPORTE_NETO, '#10' :IMPORTE_POR' + + 'TE, :IGNORAR_CONTABILIDAD, :ID_TIENDA, :ID_TIPO_FACTURA)'#10' '#10' ' + + ' '#10#10 StatementType = stSQL ColumnMappings = <> end> @@ -1249,12 +1243,6 @@ object srvFacturasProveedor: TsrvFacturasProveedor DataType = datInteger Value = '' end - item - Name = 'SITUACION' - DataType = datString - Size = 255 - Value = '' - end item Name = 'OLD_ID' Value = '' @@ -1283,8 +1271,7 @@ object srvFacturasProveedor: TsrvFacturasProveedor ', '#10' ID_TIPO_IVA = :ID_TIPO_IVA, '#10' IMPORTE_NETO = :IMPORTE_' + 'NETO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' IGNORAR_CONTABILI' + 'DAD = :IGNORAR_CONTABILIDAD,'#10' ID_TIENDA = :ID_TIENDA,'#10' ID_' + - 'TIPO_FACTURA = :ID_TIPO_FACTURA,'#10' SITUACION = :SITUACION'#10' WH' + - 'ERE'#10' (ID = :OLD_ID)'#10 + 'TIPO_FACTURA = :ID_TIPO_FACTURA'#10' WHERE'#10' (ID = :OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> diff --git a/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm b/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm index fe5149f..7981dbe 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm +++ b/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm @@ -1,6 +1,6 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor - Width = 740 - Height = 479 + Width = 451 + Height = 304 Align = alClient OnCreate = CustomViewCreate OnDestroy = CustomViewDestroy @@ -9,19 +9,17 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor object dxLayoutControl1: TdxLayoutControl Left = 0 Top = 0 - Width = 740 - Height = 479 + Width = 451 + Height = 304 Align = alClient ParentBackground = True TabOrder = 0 TabStop = False AutoContentSizes = [acsWidth, acsHeight] LookAndFeel = dxLayoutOfficeLookAndFeel1 - ExplicitWidth = 451 - ExplicitHeight = 304 DesignSize = ( - 740 - 479) + 451 + 304) object eReferencia: TcxDBTextEdit Left = 124 Top = 30 @@ -65,7 +63,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor end object cbFormaPago: TcxDBLookupComboBox Left = 124 - Top = 189 + Top = 162 DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataSource = DADataSource Properties.DropDownListStyle = lsFixedList @@ -93,16 +91,16 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 5 + TabOrder = 4 Width = 169 end object bFormasPago: TButton - Left = 246 - Top = 189 + Left = 150 + Top = 162 Width = 132 Height = 23 Caption = 'Ver las formas de pago...' - TabOrder = 6 + TabOrder = 5 OnClick = bFormasPagoClick end object eReferenciaProveedor: TcxDBTextEdit @@ -127,7 +125,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor end inline frViewTienda1: TfrViewTienda Left = 22 - Top = 269 + Top = 242 Width = 320 Height = 36 Enabled = False @@ -137,10 +135,10 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor Font.Name = 'Tahoma' Font.Style = [] ParentFont = False - TabOrder = 8 + TabOrder = 7 ReadOnly = False ExplicitLeft = 22 - ExplicitTop = 269 + ExplicitTop = 242 ExplicitWidth = 320 ExplicitHeight = 36 inherited dxLayoutControl1: TdxLayoutControl @@ -154,7 +152,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor end object edtFechaVencimiento: TcxDBDateEdit Left = 124 - Top = 218 + Top = 191 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_VENCIMIENTO' DataBinding.DataSource = DADataSource @@ -170,11 +168,11 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 7 + TabOrder = 6 Width = 158 end inline frViewProveedorFactura1: TfrViewProveedorFactura - Left = 406 + Left = 310 Top = 30 Width = 312 Height = 260 @@ -184,9 +182,9 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor Font.Name = 'Tahoma' Font.Style = [] ParentFont = False - TabOrder = 9 + TabOrder = 8 ReadOnly = False - ExplicitLeft = 406 + ExplicitLeft = 310 ExplicitTop = 30 ExplicitWidth = 312 ExplicitHeight = 260 @@ -233,7 +231,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor end inline frViewObservaciones1: TfrViewObservaciones Left = 22 - Top = 335 + Top = 320 Width = 521 Height = 228 Font.Charset = DEFAULT_CHARSET @@ -242,10 +240,10 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor Font.Name = 'Tahoma' Font.Style = [] ParentFont = False - TabOrder = 10 + TabOrder = 9 ReadOnly = False ExplicitLeft = 22 - ExplicitTop = 335 + ExplicitTop = 320 ExplicitHeight = 228 inherited memObservaciones: TcxDBMemo DataBinding.DataField = 'OBSERVACIONES' @@ -256,7 +254,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor end object cbTipoFactura: TcxDBLookupComboBox Left = 124 - Top = 138 + Top = 111 DataBinding.DataField = 'ID_TIPO_FACTURA' DataBinding.DataSource = DADataSource Properties.DropDownListStyle = lsFixedList @@ -284,20 +282,8 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 4 - Width = 209 - end - object edtSituacion: TcxDBComboBox - Left = 124 - Top = 111 - DataBinding.DataField = 'SITUACION' - DataBinding.DataSource = DADataSource - Properties.DropDownListStyle = lsFixedList - Properties.Items.Strings = ( - 'PENDIENTE' - 'PAGADA') TabOrder = 3 - Width = 121 + Width = 209 end object dxLayoutControl1Group_Root: TdxLayoutGroup ShowCaption = False @@ -334,11 +320,6 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor Control = edtFecha ControlOptions.ShowBorder = False end - object dxLayoutControl1Item9: TdxLayoutItem - Caption = 'Situaci'#243'n:' - Control = edtSituacion - ControlOptions.ShowBorder = False - end object dxLayoutControl1Item8: TdxLayoutItem Caption = 'Tipo operaci'#243'n:' Control = cbTipoFactura diff --git a/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas index 36fef2a..3398564 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas +++ b/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas @@ -63,8 +63,6 @@ type dxLayoutControl1Item8: TdxLayoutItem; cbTipoFactura: TcxDBLookupComboBox; dsTiposFactura: TDADataSource; - edtSituacion: TcxDBComboBox; - dxLayoutControl1Item9: TdxLayoutItem; procedure bFormasPagoClick(Sender: TObject); procedure CustomViewDestroy(Sender: TObject); procedure CustomViewCreate(Sender: TObject); diff --git a/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm b/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm index 04a430a..d6b415c 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm +++ b/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm @@ -198,6 +198,9 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor object cxGridPendientes: TcxGridLevel Caption = 'Pendientes' end + object cxGridParcial: TcxGridLevel + Caption = 'Parcialmente pagadas' + end object cxGridPagadas: TcxGridLevel Caption = 'Pagadas' end diff --git a/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas index 22dd43f..320e69e 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas +++ b/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas @@ -45,6 +45,7 @@ type cxGridViewPOBLACION: TcxGridDBColumn; cxStylePagada: TcxStyle; cxGridPendientes: TcxGridLevel; + cxGridParcial: TcxGridLevel; cxStyleAbono: TcxStyle; cxGridPagadas: TcxGridLevel; cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn; @@ -162,6 +163,7 @@ begin case cxGrid.ActiveLevel.Index of 1 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PENDIENTE, CTE_PENDIENTE); + 2 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PARCIAMENTE_PAGADA, CTE_PARCIAMENTE_PAGADA); 3 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PAGADA, CTE_PAGADA); end; end; @@ -204,7 +206,9 @@ begin if (ASituacion = CTE_PAGADA) then AStyle := cxStylePagada else if (ASituacion = CTE_PENDIENTE) then - AStyle := cxStylePendientes; + AStyle := cxStylePendientes + else if (ASituacion = CTE_PARCIAMENTE_PAGADA) then + AStyle := cxStyleParciales; IndiceCol := cxGridViewIMPORTE_TOTAL.Index; if (Pos('-', ARecord.DisplayTexts[IndiceCol]) > 0) then diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index f6a9bc1..1218f72 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -1,294 +1,295 @@ - + - - {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} - FactuGES_Server.dpr - Debug - AnyCPU - DCC32 - ..\..\Output\Debug\Servidor\FactuGES_Server.exe - - - 7.0 - False - False - 0 - 3 - ..\..\Output\Release\Servidor - RELEASE - - - 7.0 - 3 - ..\..\Output\Debug\Servidor - DEBUG; - True - - - Delphi.Personality - - - FalseTrueFalseTrueFalse2510FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.5.1.0FactuGES (Servidor)2.5.1.0martes, 07 de febrero de 2012 17:20 - File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found - FactuGES_Server.dpr - - - - - MainSource - - - - - -
srvEjercicios
- TDataAbstractService - - - - -
srvEmpresas
- TDARemoteService - - -
srvProvinciasPoblaciones
- TRORemoteDataModule - - - - - - - - - - - - -
srvAlbaranesCliente
- TDataAbstractService - - - - - -
srvAlbaranesProveedor
- TDataAbstractService - - - - -
srvAlmacenes
- TDARemoteService - - - - - - - - -
RptComisiones
- TDataModule - - -
srvComisiones
- TDataAbstractService - - - - - -
srvContabilidad
- TDataAbstractService - - - - - - - - -
RptEtiquetasContacto
- TDataModule - - -
srvContactos
- TDARemoteService - - - - - -
RptContratosCliente
- - -
srvContratosCliente
- TDataAbstractService - - - - - -
RptFacturasCliente
- TDataModule - - -
srvFacturasCliente
- TDataAbstractService - - - - - -
RptFacturasProveedor
- TDataModule - - -
srvFacturasProveedor
- TDataAbstractService - - - - - - - - -
srvGestorDocumentos
- TDataAbstractService - - -
srvGestorInformes
- TDataAbstractService - - - - -
srvHistoricoMovimientos
- TDataAbstractService - - - - -
srvInventario
- TDataAbstractService - - - - - -
srvPedidosProveedor
- TDataAbstractService - - - - - -
RptPresupuestosCliente
- - -
srvPresupuestosCliente
- TDataAbstractService - - - - - - -
RptRecibosCliente
- TDataModule - - -
srvRecibosCliente
- TDataAbstractService - - - - - - -
RptRecibosProveedor
- TDataModule - - -
srvRecibosProveedor
- TDataAbstractService - - - - -
srvReferencias
- TDataAbstractService - - - - - -
srvRemesasCliente
- TDataAbstractService - - - - - -
srvRemesasProveedor
- TDataAbstractService - - - - - - - -
srvUnidadesMedida
- TDataAbstractService - - - - -
srvConfiguracion
- TDataAbstractService - - -
frConexionBD
- TFrame - - -
frConfGeneral
- TFrame - - -
fConfiguracion
- TForm - - -
FrameConfiguracion
- TFrame - - -
srvLogin
- TDARemoteService - - -
fAcercaDe
- - -
dmServer
- TDataModule - - -
fServerForm
- - - - - - - - - - + + {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} + FactuGES_Server.dpr + Debug + AnyCPU + DCC32 + ..\..\Output\Debug\Servidor\FactuGES_Server.exe + + + 7.0 + False + False + 0 + 3 + ..\..\Output\Release\Servidor + RELEASE + + + 7.0 + 3 + ..\..\Output\Debug\Servidor + DEBUG; + True + + + Delphi.Personality + + +FalseTrueFalseTrueFalse2510FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.5.1.0FactuGES (Servidor)2.5.1.0martes, 07 de febrero de 2012 17:20 + + File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found + FactuGES_Server.dpr + + + + + MainSource + + + + + +
srvEjercicios
+ TDataAbstractService + + + + +
srvEmpresas
+ TDARemoteService + + +
srvProvinciasPoblaciones
+ TRORemoteDataModule + + + + + + + + + + + + +
srvAlbaranesCliente
+ TDataAbstractService + + + + + +
srvAlbaranesProveedor
+ TDataAbstractService + + + + +
srvAlmacenes
+ TDARemoteService + + + + + + + + +
RptComisiones
+ TDataModule + + +
srvComisiones
+ TDataAbstractService + + + + + +
srvContabilidad
+ TDataAbstractService + + + + + + + + +
RptEtiquetasContacto
+ TDataModule + + +
srvContactos
+ TDARemoteService + + + + + +
RptContratosCliente
+ + +
srvContratosCliente
+ TDataAbstractService + + + + + +
RptFacturasCliente
+ TDataModule + + +
srvFacturasCliente
+ TDataAbstractService + + + + + +
RptFacturasProveedor
+ TDataModule + + +
srvFacturasProveedor
+ TDataAbstractService + + + + + + + + +
srvGestorDocumentos
+ TDataAbstractService + + +
srvGestorInformes
+ TDataAbstractService + + + + +
srvHistoricoMovimientos
+ TDataAbstractService + + + + +
srvInventario
+ TDataAbstractService + + + + + +
srvPedidosProveedor
+ TDataAbstractService + + + + + +
RptPresupuestosCliente
+ + +
srvPresupuestosCliente
+ TDataAbstractService + + + + + + +
RptRecibosCliente
+ TDataModule + + +
srvRecibosCliente
+ TDataAbstractService + + + + + + +
RptRecibosProveedor
+ TDataModule + + +
srvRecibosProveedor
+ TDataAbstractService + + + + +
srvReferencias
+ TDataAbstractService + + + + + +
srvRemesasCliente
+ TDataAbstractService + + + + + +
srvRemesasProveedor
+ TDataAbstractService + + + + + + + +
srvUnidadesMedida
+ TDataAbstractService + + + + +
srvConfiguracion
+ TDataAbstractService + + +
frConexionBD
+ TFrame + + +
frConfGeneral
+ TFrame + + +
fConfiguracion
+ TForm + + +
FrameConfiguracion
+ TFrame + + +
srvLogin
+ TDARemoteService + + +
fAcercaDe
+ + +
dmServer
+ TDataModule + + +
fServerForm
+ + + + + + + + + +