Se arregla la vista de contratos para que no aparezca la factura de cliente porque la relacion es al contrario la factura es la que tiene asociacion con el contrato.

Se arregla tambien el script para que al generar desde cero la bd no pete

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@439 f4e31baf-9722-1c47-927c-6f952f962d4b

Database/scripts/factuges.sql

@@ -890,6 +890,7 @@ CREATE TABLE FACTURAS_CLIENTE (
     IMPORTE_IVA            TIPO_IMPORTE,
     RE                     TIPO_PORCENTAJE,
     IMPORTE_RE             TIPO_IMPORTE,
+    
     IMPORTE_TOTAL          TIPO_IMPORTE,
     OBSERVACIONES          TIPO_NOTAS,
     ID_CLIENTE             TIPO_ID,
@@ -911,6 +912,7 @@ CREATE TABLE FACTURAS_CLIENTE (
     IGNORAR_CONTABILIDAD   SMALLINT,
     ID_TIENDA              TIPO_ID,
     FECHA_VENCIMIENTO      DATE,
+    ID_DIRECCION           TIPO_ID,    
     ID_CONTRATO            TIPO_ID
 );    
 
@@ -1186,18 +1188,6 @@ CREATE TABLE POBLACIONES (
     DESCRIPCION  	VARCHAR(255) NOT NULL
 );
 
-CREATE TABLE PRESUPUESTOS_PROPIEDADES (
-    ID           TIPO_ID NOT NULL,
-    DESCRIPCION  VARCHAR(50),
-    ID_PADRE     TIPO_ID
-);
-
-CREATE TABLE PRESUPUESTOS_VALORES (
-    ID            TIPO_ID NOT NULL,
-    ID_PROPIEDAD  TIPO_ID,
-    DESCRIPCION   TIPO_CONCEPTO
-);
-
 CREATE TABLE PRESUPUESTOS_CLIENTE_CAPITULOS (
     ID             TIPO_ID NOT NULL,
     POSICION       INTEGER,
@@ -4193,8 +4183,6 @@ ALTER TABLE POBLACIONES ADD CONSTRAINT PK_POBLACIONES PRIMARY KEY (ID);
 ALTER TABLE PRESUPUESTOS_PROPIEDADES ADD CONSTRAINT PK_PRESUPUESTOS_PROPIEDADES PRIMARY KEY (ID);
 ALTER TABLE PRESUPUESTOS_VALORES ADD CONSTRAINT PK_PRESUPUESTOS_VALORES PRIMARY KEY (ID);
 ALTER TABLE PRESUPUESTOS_CLIENTE_CAPITULOS ADD CONSTRAINT PK_PRESUPUESTOS_CLIENTE_CAPITUL PRIMARY KEY (ID);
-ALTER TABLE PRESUPUESTOS_VALORES ADD CONSTRAINT PK_PRESUPUESTOS_VALORES PRIMARY KEY (ID);
-ALTER TABLE PRESUPUESTOS_PROPIEDADES ADD CONSTRAINT PK_PRESUPUESTOS_PROPIEDADES PRIMARY KEY (ID);
 ALTER TABLE PRESUPUESTOS_CLIENTE ADD CONSTRAINT PK_PRESUPUESTOS_CLIENTE PRIMARY KEY (ID);
 ALTER TABLE PRESUPUESTOS_CLIENTE_DETALLES ADD CONSTRAINT PK_PRESUPUESTOS_CLIENTE_DETALLE PRIMARY KEY (ID);
 ALTER TABLE CONTRATOS_CLIENTE ADD CONSTRAINT PK_CONTRATOS_CLIENTE PRIMARY KEY (ID);

Source/Cliente/FactuGES.rc

@@ -1,7 +1,7 @@
 MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico"
 1 VERSIONINFO
-FILEVERSION 2,3,5,0
+FILEVERSION 2,3,6,0
-PRODUCTVERSION 2,3,5,0
+PRODUCTVERSION 2,3,6,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
          BLOCK "0C0A04E4"
          BEGIN
               VALUE "CompanyName", "Rodax Software S.L.\0"
-              VALUE "FileVersion", "2.3.5.0\0"
+              VALUE "FileVersion", "2.3.6.0\0"
               VALUE "InternalName", "FactuGES\0"
               VALUE "ProductName", "FactuGES\0"
-              VALUE "ProductVersion", "2.3.5.0\0"
+              VALUE "ProductVersion", "2.3.6.0\0"
          END
     END
     BLOCK "VarFileInfo"

Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.drc

@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Controller\ContratosCliente_controller.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfAA1.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfBAC.tmp */

Source/Modulos/Contratos de cliente/Data/ContratosCliente_data.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Data\uDataModuleContratosCliente.dfm */
 /* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Data\ContratosCliente_data.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA9F.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfBAA.tmp */

Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.drc

@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Model\ContratosCliente_model.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA9D.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfBA8.tmp */

Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas

@@ -3,7 +3,7 @@ unit schContratosClienteClient_Intf;
 interface
 
 uses
-  Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
 
 const
   { Data table rules ids
@@ -213,7 +213,7 @@ type
   end;
 
   { TValoresDataTableRules }
-  TValoresDataTableRules = class(TDADataTableRules, IValores)
+  TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores)
   private
   protected
     { Property getters and setters }
@@ -272,7 +272,7 @@ type
   end;
 
   { TPropiedadesDataTableRules }
-  TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades)
+  TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades)
   private
   protected
     { Property getters and setters }
@@ -319,7 +319,7 @@ type
   end;
 
   { TListaAnosContratosDataTableRules }
-  TListaAnosContratosDataTableRules = class(TDADataTableRules, IListaAnosContratos)
+  TListaAnosContratosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosContratos)
   private
   protected
     { Property getters and setters }
@@ -584,7 +584,7 @@ type
   end;
 
   { TContratosClienteDataTableRules }
-  TContratosClienteDataTableRules = class(TDADataTableRules, IContratosCliente)
+  TContratosClienteDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente)
   private
     f_FORMA_PAGO: IROStrings;
     f_PLAZO_ENTREGA: IROStrings;
@@ -890,7 +890,7 @@ type
   end;
 
   { TCapitulosPresupuestoDataTableRules }
-  TCapitulosPresupuestoDataTableRules = class(TDADataTableRules, ICapitulosPresupuesto)
+  TCapitulosPresupuestoDataTableRules = class(TIntfObjectDADataTableRules, ICapitulosPresupuesto)
   private
   protected
     { Property getters and setters }
@@ -1039,7 +1039,7 @@ type
   end;
 
   { TContratosCliente_DetallesDataTableRules }
-  TContratosCliente_DetallesDataTableRules = class(TDADataTableRules, IContratosCliente_Detalles)
+  TContratosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente_Detalles)
   private
   protected
     { Property getters and setters }

Source/Modulos/Contratos de cliente/Plugin/ContratosCliente_plugin.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Plugin\uPluginContratosCliente.dfm */
 /* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Plugin\ContratosCliente_plugin.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfAE9.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfBF4.tmp */

Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.drc

@@ -25,4 +25,4 @@ END
 /* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Views\uEditorElegirArticulosContratoCliente.dfm */
 /* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Views\uEditorContratosClienteReport.dfm */
 /* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Views\ContratosCliente_view.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfAE7.tmp */
+/* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Views\ContratosCliente_view.drf */

Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm

@@ -101,13 +101,6 @@ inherited frViewContratosCliente: TfrViewContratosCliente
         HeaderAlignmentHorz = taRightJustify
         Width = 63
       end
-      object cxGridViewFACTURA: TcxGridDBColumn
-        Caption = 'Ref. factura'
-        DataBinding.FieldName = 'FACTURA'
-        Visible = False
-        BestFitMaxWidth = 25
-        Width = 25
-      end
     end
     inherited cxGridLevel: TcxGridLevel
       Caption = 'Todos'

Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas

@@ -28,7 +28,6 @@ type
     cxGridViewNOMBRE: TcxGridDBColumn;
     cxGridViewSITUACION: TcxGridDBColumn;
     cxGridViewFECHA_CONTRATO: TcxGridDBColumn;
-    cxGridViewFACTURA: TcxGridDBColumn;
     cxGridViewIMPORTE_TOTAL: TcxGridDBColumn;
     cxGridLevelPendientes: TcxGridLevel;
     cxGridLevelTerminados: TcxGridLevel;

Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas

@@ -3,7 +3,7 @@ unit schPresupuestosClienteClient_Intf;
 interface
 
 uses
-  Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
 
 const
   { Data table rules ids
@@ -211,7 +211,7 @@ type
   end;
 
   { TValoresDataTableRules }
-  TValoresDataTableRules = class(TDADataTableRules, IValores)
+  TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores)
   private
   protected
     { Property getters and setters }
@@ -270,7 +270,7 @@ type
   end;
 
   { TPropiedadesDataTableRules }
-  TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades)
+  TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades)
   private
   protected
     { Property getters and setters }
@@ -317,7 +317,7 @@ type
   end;
 
   { TListaAnosPresupuestosDataTableRules }
-  TListaAnosPresupuestosDataTableRules = class(TDADataTableRules, IListaAnosPresupuestos)
+  TListaAnosPresupuestosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosPresupuestos)
   private
   protected
     { Property getters and setters }
@@ -576,7 +576,7 @@ type
   end;
 
   { TPresupuestosClienteDataTableRules }
-  TPresupuestosClienteDataTableRules = class(TDADataTableRules, IPresupuestosCliente)
+  TPresupuestosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente)
   private
     f_FORMA_PAGO: IROStrings;
     f_PLAZO_ENTREGA: IROStrings;
@@ -873,7 +873,7 @@ type
   end;
 
   { TCapitulosPresupuestoDataTableRules }
-  TCapitulosPresupuestoDataTableRules = class(TDADataTableRules, ICapitulosPresupuesto)
+  TCapitulosPresupuestoDataTableRules = class(TIntfObjectDADataTableRules, ICapitulosPresupuesto)
   private
   protected
     { Property getters and setters }
@@ -1022,7 +1022,7 @@ type
   end;
 
   { TPresupuestosCliente_DetallesDataTableRules }
-  TPresupuestosCliente_DetallesDataTableRules = class(TDADataTableRules, IPresupuestosCliente_Detalles)
+  TPresupuestosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente_Detalles)
   private
   protected
     { Property getters and setters }

Source/Servidor/FactuGES_Server.dproj

@@ -1,4 +1,4 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
 	<PropertyGroup>
 		<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
@@ -29,8 +29,6 @@
 		<Borland.ProjectType/>
 		<BorlandProject>
 			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">3</VersionInfo><VersionInfo Name="Release">6</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.3.6.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.3.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 22 de septiembre de 2009 18:55</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-      
-      
 						<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dclfqb100.bpl">FastQueryBuilder 1.03</Excluded_Packages>
 						<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\JvUIBD11D.bpl">JVCL Unified Interbase Components</Excluded_Packages>
 					</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>

Source/Servidor/FactuGES_Server.rc

@@ -1,7 +1,7 @@
 MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico"
 1 VERSIONINFO
-FILEVERSION 2,3,5,0
+FILEVERSION 2,3,6,0
-PRODUCTVERSION 2,3,5,0
+PRODUCTVERSION 2,3,6,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
          BLOCK "0C0A04E4"
          BEGIN
               VALUE "CompanyName", "Rodax Software S.L.\0"
-              VALUE "FileVersion", "2.3.5.0\0"
+              VALUE "FileVersion", "2.3.6.0\0"
               VALUE "ProductName", "FactuGES (Servidor)\0"
-              VALUE "ProductVersion", "2.3.5.0\0"
+              VALUE "ProductVersion", "2.3.6.0\0"
-              VALUE "CompileDate", "martes, 22 de septiembre de 2009 18:55\0"
+              VALUE "CompileDate", "martes, 22 de septiembre de 2009 20:08\0"
          END
     END
     BLOCK "VarFileInfo"