Versión 1.9.2

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1051 0c75b7a4-871f-7646-8a2f-f78d34cc349f

Build/Installer.fbpInf

@@ -6,7 +6,7 @@
   <propertysets/>
   <variables>
     <project_path>
-      <![CDATA[C:\Codigo Tecsitel]]>
+      <![CDATA[C:\Codigo tecsitel]]>
     </project_path>
   </variables>
   <properties>

Database/scripts/factuges.sql

@@ -742,7 +742,8 @@ CREATE TABLE FACTURAS_PROVEEDOR (
     ID_TIPO_IVA           TIPO_ID,
     RECARGO_EQUIVALENCIA  TIPO_BOOLEANO,
 	  DATOS_BANCARIOS		    VARCHAR(255),
-	  FECHA_VENCIMIENTO     DATE
+	  FECHA_VENCIMIENTO     DATE,
+    FECHA_RECEPCION       DATE
 );
 
 CREATE TABLE FACTURAS_PROVEEDOR_DETALLES (
@@ -2144,6 +2145,7 @@ CREATE VIEW V_FACTURAS_PROVEEDOR(
     TIPO,
     REFERENCIA_PROVEEDOR,
     FECHA_FACTURA,
+    FECHA_RECEPCION,
     FECHA_VENCIMIENTO,
     SITUACION,
     BASE_IMPONIBLE,
@@ -2178,6 +2180,7 @@ SELECT FACTURAS_PROVEEDOR.ID,
   CASE WHEN (FACTURAS_PROVEEDOR.IMPORTE_TOTAL < 0) THEN 'A' ELSE 'F' END AS TIPO,
   FACTURAS_PROVEEDOR.REFERENCIA_PROVEEDOR,
   FACTURAS_PROVEEDOR.FECHA_FACTURA,
+  FACTURAS_PROVEEDOR.FECHA_RECEPCION,
   FACTURAS_PROVEEDOR.FECHA_VENCIMIENTO,  
   TRIM(V_FAC_PRO_SITUACION.SITUACION),
   FACTURAS_PROVEEDOR.BASE_IMPONIBLE,

Source/Base/Utiles/uEMailUtils.pas

@@ -234,7 +234,6 @@ begin
 
         { ... the Body: }
         lpszNoteText := PChar(FMailText);
-
         lpszMessageType := nil;
         lpszDateReceived := nil;
         lpszConversationID := nil;
@@ -248,7 +247,6 @@ begin
         Sender.ulEIDSize := 0;
         Sender.lpEntryID := nil;
         lpOriginator := @Sender;
-
         PRecip := Recipients;
 
         { We have multiple recipients: (MAPI_TO)
@@ -377,6 +375,7 @@ begin
      }
     if FShowDialog then
       MError := MapiSendMail(0, AppHandle, MapiMessage, MAPI_DIALOG or MAPI_LOGON_UI or MAPI_NEW_SESSION, 0)
+//      MError := MapiSendMail(0, AppHandle, MapiMessage, MAPI_SIMPLE_EXPLICIT, 0)
     else
       MError := MapiSendMail(0, AppHandle, MapiMessage, 0, 0);
 

Source/Cliente/FactuGES.dproj

@@ -53,7 +53,7 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>VCLApplication</Borland.ProjectType>
     <BorlandProject>
-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">9</VersionInfo><VersionInfo Name="Release">1</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">1.9.1.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.9.1.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">9</VersionInfo><VersionInfo Name="Release">2</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">1.9.2.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.9.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>

Source/Cliente/FactuGES.rc

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

Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm

@@ -14,12 +14,12 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
     Top = 84
   end
   object rda_FacturasProveedor: TDARemoteDataAdapter
+    DataStreamer = Bin2DataStreamer
     GetSchemaCall.RemoteService = RORemoteService
     GetDataCall.RemoteService = RORemoteService
     UpdateDataCall.RemoteService = RORemoteService
     GetScriptsCall.RemoteService = RORemoteService
     RemoteService = RORemoteService
-    DataStreamer = Bin2DataStreamer
     Left = 51
     Top = 151
   end
@@ -66,6 +66,10 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
         DisplayLabel = 'Fecha de las factura'
         DictionaryEntry = 'FacturasProveedor_FECHA_FACTURA'
       end
+      item
+        Name = 'FECHA_RECEPCION'
+        DataType = datDateTime
+      end
       item
         Name = 'FECHA_VENCIMIENTO'
         DataType = datDateTime
@@ -243,8 +247,6 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]
     RemoteDataAdapter = rda_FacturasProveedor
-    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
-    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
     LogicalName = 'FacturasProveedor'
     IndexDefs = <>
     Left = 208
@@ -363,8 +365,6 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
     MasterSource = ds_FacturasProveedor
     MasterFields = 'ID'
     DetailFields = 'ID_FACTURA'
-    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
-    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
     LogicalName = 'FacturasProveedor_Detalles'
     IndexDefs = <>
     Left = 368
@@ -431,8 +431,6 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
     MasterSource = ds_FacturasProveedor
     MasterFields = 'ID'
     DetailFields = 'ID_FACTURA'
-    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
-    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
     LogicalName = 'FacturasProveedor_Pedidos'
     IndexDefs = <>
     Left = 368
@@ -455,8 +453,6 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]
     RemoteDataAdapter = rda_FacturasProveedor
-    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
-    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
     LogicalName = 'ListaAnosFacturas'
     IndexDefs = <>
     Left = 208

Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas

@@ -3,16 +3,16 @@ unit schFacturasProveedorClient_Intf;
 interface
 
 uses
-  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, schBase_Intf, 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 = '{B75825C2-3B8D-4DF1-AF22-024910F5FBD9}';
+  RID_ListaAnosFacturas = '{94FBDA60-1B7A-4466-BCB5-A78D474F0270}';
-  RID_FacturasProveedor = '{44FD4DE6-500F-4F58-A58C-97CF98028CD2}';
+  RID_FacturasProveedor = '{757861F8-67CC-46FA-A3A3-094DF0532D43}';
-  RID_FacturasProveedor_Detalles = '{1CB49BE9-8421-4FD5-80E8-12FFC6360422}';
+  RID_FacturasProveedor_Detalles = '{26D28A28-EDBA-4AF9-8516-96BC332BF817}';
-  RID_FacturasProveedor_Pedidos = '{961FA245-B4B9-478F-8B57-34025D5C9EEB}';
+  RID_FacturasProveedor_Pedidos = '{F267AF62-2197-4F19-A71E-E511CE687790}';
 
   { Data table names }
   nme_ListaAnosFacturas = 'ListaAnosFacturas';
@@ -33,6 +33,7 @@ const
   fld_FacturasProveedorTIPO = 'TIPO';
   fld_FacturasProveedorREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
   fld_FacturasProveedorFECHA_FACTURA = 'FECHA_FACTURA';
+  fld_FacturasProveedorFECHA_RECEPCION = 'FECHA_RECEPCION';
   fld_FacturasProveedorFECHA_VENCIMIENTO = 'FECHA_VENCIMIENTO';
   fld_FacturasProveedorSITUACION = 'SITUACION';
   fld_FacturasProveedorBASE_IMPONIBLE = 'BASE_IMPONIBLE';
@@ -68,33 +69,34 @@ const
   idx_FacturasProveedorTIPO = 3;
   idx_FacturasProveedorREFERENCIA_PROVEEDOR = 4;
   idx_FacturasProveedorFECHA_FACTURA = 5;
-  idx_FacturasProveedorFECHA_VENCIMIENTO = 6;
+  idx_FacturasProveedorFECHA_RECEPCION = 6;
-  idx_FacturasProveedorSITUACION = 7;
+  idx_FacturasProveedorFECHA_VENCIMIENTO = 7;
-  idx_FacturasProveedorBASE_IMPONIBLE = 8;
+  idx_FacturasProveedorSITUACION = 8;
-  idx_FacturasProveedorDESCUENTO = 9;
+  idx_FacturasProveedorBASE_IMPONIBLE = 9;
-  idx_FacturasProveedorIMPORTE_DESCUENTO = 10;
+  idx_FacturasProveedorDESCUENTO = 10;
-  idx_FacturasProveedorIVA = 11;
+  idx_FacturasProveedorIMPORTE_DESCUENTO = 11;
-  idx_FacturasProveedorIMPORTE_IVA = 12;
+  idx_FacturasProveedorIVA = 12;
-  idx_FacturasProveedorRE = 13;
+  idx_FacturasProveedorIMPORTE_IVA = 13;
-  idx_FacturasProveedorIMPORTE_RE = 14;
+  idx_FacturasProveedorRE = 14;
-  idx_FacturasProveedorIMPORTE_TOTAL = 15;
+  idx_FacturasProveedorIMPORTE_RE = 15;
-  idx_FacturasProveedorOBSERVACIONES = 16;
+  idx_FacturasProveedorIMPORTE_TOTAL = 16;
-  idx_FacturasProveedorID_PROVEEDOR = 17;
+  idx_FacturasProveedorOBSERVACIONES = 17;
-  idx_FacturasProveedorNIF_CIF = 18;
+  idx_FacturasProveedorID_PROVEEDOR = 18;
-  idx_FacturasProveedorNOMBRE = 19;
+  idx_FacturasProveedorNIF_CIF = 19;
-  idx_FacturasProveedorCALLE = 20;
+  idx_FacturasProveedorNOMBRE = 20;
-  idx_FacturasProveedorPOBLACION = 21;
+  idx_FacturasProveedorCALLE = 21;
-  idx_FacturasProveedorPROVINCIA = 22;
+  idx_FacturasProveedorPOBLACION = 22;
-  idx_FacturasProveedorCODIGO_POSTAL = 23;
+  idx_FacturasProveedorPROVINCIA = 23;
-  idx_FacturasProveedorFECHA_ALTA = 24;
+  idx_FacturasProveedorCODIGO_POSTAL = 24;
-  idx_FacturasProveedorFECHA_MODIFICACION = 25;
+  idx_FacturasProveedorFECHA_ALTA = 25;
-  idx_FacturasProveedorUSUARIO = 26;
+  idx_FacturasProveedorFECHA_MODIFICACION = 26;
-  idx_FacturasProveedorID_FORMA_PAGO = 27;
+  idx_FacturasProveedorUSUARIO = 27;
-  idx_FacturasProveedorRECARGO_EQUIVALENCIA = 28;
+  idx_FacturasProveedorID_FORMA_PAGO = 28;
-  idx_FacturasProveedorID_TIPO_IVA = 29;
+  idx_FacturasProveedorRECARGO_EQUIVALENCIA = 29;
-  idx_FacturasProveedorIMPORTE_NETO = 30;
+  idx_FacturasProveedorID_TIPO_IVA = 30;
-  idx_FacturasProveedorIMPORTE_PORTE = 31;
+  idx_FacturasProveedorIMPORTE_NETO = 31;
-  idx_FacturasProveedorDATOS_BANCARIOS = 32;
+  idx_FacturasProveedorIMPORTE_PORTE = 32;
+  idx_FacturasProveedorDATOS_BANCARIOS = 33;
 
   { FacturasProveedor_Detalles fields }
   fld_FacturasProveedor_DetallesID = 'ID';
@@ -153,7 +155,7 @@ const
 type
   { IListaAnosFacturas }
   IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
-  ['{CB673572-AD31-405A-9EF0-0FC870012A4E}']
+  ['{B70A8975-7F23-4972-9368-BFE726B5E26A}']
     { Property getters and setters }
     function GetANOValue: String;
     procedure SetANOValue(const aValue: String);
@@ -188,7 +190,7 @@ type
 
   { IFacturasProveedor }
   IFacturasProveedor = interface(IDAStronglyTypedDataTable)
-  ['{20CB371E-32B4-45B7-B925-7DAF93C6F093}']
+  ['{F772B3DA-3DD4-4EF7-B92E-A308271EA1EB}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -214,6 +216,10 @@ type
     procedure SetFECHA_FACTURAValue(const aValue: DateTime);
     function GetFECHA_FACTURAIsNull: Boolean;
     procedure SetFECHA_FACTURAIsNull(const aValue: Boolean);
+    function GetFECHA_RECEPCIONValue: DateTime;
+    procedure SetFECHA_RECEPCIONValue(const aValue: DateTime);
+    function GetFECHA_RECEPCIONIsNull: Boolean;
+    procedure SetFECHA_RECEPCIONIsNull(const aValue: Boolean);
     function GetFECHA_VENCIMIENTOValue: DateTime;
     procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
     function GetFECHA_VENCIMIENTOIsNull: Boolean;
@@ -336,6 +342,8 @@ type
     property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
     property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
     property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
+    property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue;
+    property FECHA_RECEPCIONIsNull: Boolean read GetFECHA_RECEPCIONIsNull write SetFECHA_RECEPCIONIsNull;
     property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
     property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull;
     property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
@@ -423,6 +431,10 @@ type
     procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
     function GetFECHA_FACTURAIsNull: Boolean; virtual;
     procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual;
+    function GetFECHA_RECEPCIONValue: DateTime; virtual;
+    procedure SetFECHA_RECEPCIONValue(const aValue: DateTime); virtual;
+    function GetFECHA_RECEPCIONIsNull: Boolean; virtual;
+    procedure SetFECHA_RECEPCIONIsNull(const aValue: Boolean); virtual;
     function GetFECHA_VENCIMIENTOValue: DateTime; virtual;
     procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual;
     function GetFECHA_VENCIMIENTOIsNull: Boolean; virtual;
@@ -544,6 +556,8 @@ type
     property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
     property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
     property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
+    property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue;
+    property FECHA_RECEPCIONIsNull: Boolean read GetFECHA_RECEPCIONIsNull write SetFECHA_RECEPCIONIsNull;
     property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
     property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull;
     property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
@@ -607,7 +621,7 @@ type
 
   { IFacturasProveedor_Detalles }
   IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{AE1A2F3E-33E1-4593-A397-EF5B9520D17E}']
+  ['{190BF84D-B95F-44CC-852D-EA525387744E}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -822,7 +836,7 @@ type
 
   { IFacturasProveedor_Pedidos }
   IFacturasProveedor_Pedidos = interface(IDAStronglyTypedDataTable)
-  ['{00E2CBCC-20FA-40E8-A713-06794CC6A2B1}']
+  ['{F3D2B69B-D69B-48F2-B9CC-142E86840B12}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1112,6 +1126,27 @@ begin
     DataTable.Fields[idx_FacturasProveedorFECHA_FACTURA].AsVariant := Null;
 end;
 
+function TFacturasProveedorDataTableRules.GetFECHA_RECEPCIONValue: DateTime;
+begin
+  result := DataTable.Fields[idx_FacturasProveedorFECHA_RECEPCION].AsDateTime;
+end;
+
+procedure TFacturasProveedorDataTableRules.SetFECHA_RECEPCIONValue(const aValue: DateTime);
+begin
+  DataTable.Fields[idx_FacturasProveedorFECHA_RECEPCION].AsDateTime := aValue;
+end;
+
+function TFacturasProveedorDataTableRules.GetFECHA_RECEPCIONIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_FacturasProveedorFECHA_RECEPCION].IsNull;
+end;
+
+procedure TFacturasProveedorDataTableRules.SetFECHA_RECEPCIONIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_FacturasProveedorFECHA_RECEPCION].AsVariant := Null;
+end;
+
 function TFacturasProveedorDataTableRules.GetFECHA_VENCIMIENTOValue: DateTime;
 begin
   result := DataTable.Fields[idx_FacturasProveedorFECHA_VENCIMIENTO].AsDateTime;

Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas

@@ -9,15 +9,15 @@ 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 = '{EC0C9C41-F75A-44AF-9563-C1BF7C94797E}';
+  RID_ListaAnosFacturasDelta = '{99DA85D3-EA9A-41E6-A66E-FF1D2AB9AE8B}';
-  RID_FacturasProveedorDelta = '{E6CC20F4-E176-4296-8598-60A05EE8A3BA}';
+  RID_FacturasProveedorDelta = '{58681BDC-4147-4339-BACB-501CA5E4487D}';
-  RID_FacturasProveedor_DetallesDelta = '{F1E67867-CD3F-4CAD-A9E2-103852351589}';
+  RID_FacturasProveedor_DetallesDelta = '{BBB8B4C0-752D-4319-8893-B5C08B88658F}';
-  RID_FacturasProveedor_PedidosDelta = '{F8DF3A8E-57BE-4D89-AA51-C60A1A6845F0}';
+  RID_FacturasProveedor_PedidosDelta = '{085BF081-2B43-4D0F-8B97-B03EB67DC5F2}';
 
 type
   { IListaAnosFacturasDelta }
   IListaAnosFacturasDelta = interface(IListaAnosFacturas)
-  ['{EC0C9C41-F75A-44AF-9563-C1BF7C94797E}']
+  ['{99DA85D3-EA9A-41E6-A66E-FF1D2AB9AE8B}']
     { Property getters and setters }
     function GetOldANOValue : String;
 
@@ -51,7 +51,7 @@ type
 
   { IFacturasProveedorDelta }
   IFacturasProveedorDelta = interface(IFacturasProveedor)
-  ['{E6CC20F4-E176-4296-8598-60A05EE8A3BA}']
+  ['{58681BDC-4147-4339-BACB-501CA5E4487D}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -59,6 +59,7 @@ type
     function GetOldTIPOValue : String;
     function GetOldREFERENCIA_PROVEEDORValue : String;
     function GetOldFECHA_FACTURAValue : DateTime;
+    function GetOldFECHA_RECEPCIONValue : DateTime;
     function GetOldFECHA_VENCIMIENTOValue : DateTime;
     function GetOldSITUACIONValue : String;
     function GetOldBASE_IMPONIBLEValue : Currency;
@@ -94,6 +95,7 @@ type
     property OldTIPO : String read GetOldTIPOValue;
     property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
     property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
+    property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue;
     property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
     property OldSITUACION : String read GetOldSITUACIONValue;
     property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue;
@@ -166,6 +168,12 @@ type
     function GetOldFECHA_FACTURAIsNull: Boolean; virtual;
     procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
     procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual;
+    function GetFECHA_RECEPCIONValue: DateTime; virtual;
+    function GetFECHA_RECEPCIONIsNull: Boolean; virtual;
+    function GetOldFECHA_RECEPCIONValue: DateTime; virtual;
+    function GetOldFECHA_RECEPCIONIsNull: Boolean; virtual;
+    procedure SetFECHA_RECEPCIONValue(const aValue: DateTime); virtual;
+    procedure SetFECHA_RECEPCIONIsNull(const aValue: Boolean); virtual;
     function GetFECHA_VENCIMIENTOValue: DateTime; virtual;
     function GetFECHA_VENCIMIENTOIsNull: Boolean; virtual;
     function GetOldFECHA_VENCIMIENTOValue: DateTime; virtual;
@@ -353,6 +361,10 @@ type
     property FECHA_FACTURAIsNull : Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
     property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
     property OldFECHA_FACTURAIsNull : Boolean read GetOldFECHA_FACTURAIsNull;
+    property FECHA_RECEPCION : DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue;
+    property FECHA_RECEPCIONIsNull : Boolean read GetFECHA_RECEPCIONIsNull write SetFECHA_RECEPCIONIsNull;
+    property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue;
+    property OldFECHA_RECEPCIONIsNull : Boolean read GetOldFECHA_RECEPCIONIsNull;
     property FECHA_VENCIMIENTO : DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
     property FECHA_VENCIMIENTOIsNull : Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull;
     property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
@@ -470,7 +482,7 @@ type
 
   { IFacturasProveedor_DetallesDelta }
   IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
-  ['{F1E67867-CD3F-4CAD-A9E2-103852351589}']
+  ['{BBB8B4C0-752D-4319-8893-B5C08B88658F}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_FACTURAValue : Integer;
@@ -684,7 +696,7 @@ type
 
   { IFacturasProveedor_PedidosDelta }
   IFacturasProveedor_PedidosDelta = interface(IFacturasProveedor_Pedidos)
-  ['{F8DF3A8E-57BE-4D89-AA51-C60A1A6845F0}']
+  ['{085BF081-2B43-4D0F-8B97-B03EB67DC5F2}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_FACTURAValue : Integer;
@@ -1044,6 +1056,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorFECHA_FACTURA] := Null;
 end;
 
+function TFacturasProveedorBusinessProcessorRules.GetFECHA_RECEPCIONValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorFECHA_RECEPCION];
+end;
+
+function TFacturasProveedorBusinessProcessorRules.GetFECHA_RECEPCIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorFECHA_RECEPCION]);
+end;
+
+function TFacturasProveedorBusinessProcessorRules.GetOldFECHA_RECEPCIONValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorFECHA_RECEPCION];
+end;
+
+function TFacturasProveedorBusinessProcessorRules.GetOldFECHA_RECEPCIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorFECHA_RECEPCION]);
+end;
+
+procedure TFacturasProveedorBusinessProcessorRules.SetFECHA_RECEPCIONValue(const aValue: DateTime);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorFECHA_RECEPCION] := aValue;
+end;
+
+procedure TFacturasProveedorBusinessProcessorRules.SetFECHA_RECEPCIONIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorFECHA_RECEPCION] := Null;
+end;
+
 function TFacturasProveedorBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorFECHA_VENCIMIENTO];

Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas

@@ -261,6 +261,7 @@ begin
   ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
   USUARIO := AppFactuGES.UsuarioActivo.UserName;
   FECHA_FACTURA := DateOf(Now);
+  FECHA_RECEPCION := DateOf(Now);  
   FECHA_VENCIMIENTO := DateOf(Now);
   ID_PROVEEDOR := ID_NULO;
   TIPO := CTE_TIPO_FACTURA;  

Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm

@@ -445,11 +445,11 @@ object RptFacturasProveedor: TRptFacturasProveedor
               '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, SITUACION, NIF_CIF, FECHA' +
-              '_FACTURA, FECHA_VENCIMIENTO, BASE_IMPONIBLE, IMPORTE_IVA, IMPORT' +
+              '_FACTURA, FECHA_RECEPCION, FECHA_VENCIMIENTO, BASE_IMPONIBLE, IM' +
-              'E_TOTAL,'#10'case'#10'when strlen(DATOS_BANCARIOS) = 0 then '#39'Sin cuenta ' +
+              'PORTE_IVA, IMPORTE_TOTAL,'#10'case'#10'when strlen(DATOS_BANCARIOS) = 0 ' +
-              'bancaria'#39#10'else DATOS_BANCARIOS'#10'end as DATOS_BANCARIOS'#10#10#10'from V_f' +
+              'then '#39'Sin cuenta bancaria'#39#10'else DATOS_BANCARIOS'#10'end as DATOS_BAN' +
-              'acturas_proveedor'#10'where {where}'#10'order by ANO, MES, fecha_vencimi' +
+              'CARIOS'#10#10#10'from V_facturas_proveedor'#10'where {where}'#10'order by ANO, M' +
-              'ento, DATOS_BANCARIOS, NOMBRE'#10#10
+              'ES, fecha_vencimiento, DATOS_BANCARIOS, NOMBRE'#10#10
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -514,6 +514,10 @@ object RptFacturasProveedor: TRptFacturasProveedor
               item
                 DatasetField = 'DATOS_BANCARIOS'
                 TableField = 'DATOS_BANCARIOS'
+              end
+              item
+                DatasetField = 'FECHA_RECEPCION'
+                TableField = 'FECHA_RECEPCION'
               end>
           end>
         Name = 'InformeListadoFacturasPendientes'
@@ -563,6 +567,10 @@ object RptFacturasProveedor: TRptFacturasProveedor
             Name = 'FECHA_FACTURA'
             DataType = datDateTime
           end
+          item
+            Name = 'FECHA_RECEPCION'
+            DataType = datDateTime
+          end
           item
             Name = 'FECHA_VENCIMIENTO'
             DataType = datDateTime
@@ -1688,47 +1696,63 @@ object RptFacturasProveedor: TRptFacturasProveedor
     PrintOptions.Printer = 'Por defecto'
     PrintOptions.PrintOnSheet = 0
     ReportOptions.CreateDate = 37800.807714351900000000
-    ReportOptions.LastChange = 40577.743050081020000000
+    ReportOptions.LastChange = 40751.452820069450000000
     ScriptLanguage = 'PascalScript'
     ScriptText.Strings = (
-      'procedure Chart1OnBeforePrint(Sender: TfrxComponent);'
+      'procedure mContinuaOnBeforePrint(Sender: TfrxComponent);'
       'begin'
-      
+      ' if Engine.FinalPass then'
-        '  if (<frxDBInformeListadoFacturasGrafComp."ANO1"> <> 0) then   ' +
+      '  begin'
-        ' '
+      '    if (<Page#> = <TotalPages#>) then'
-      
+      '    begin                      '
-        '     TLineSeries(Chart1.Series[0]).Title := '#39'Total Facturado '#39' +' +
+      '       mContinua.Visible := False;'
-        ' IntToStr(<frxDBInformeListadoFacturasGrafComp."ANO1">);'
+      '    end                 '
-      ''
+      '    else'
-      '  if (<frxDBInformeListadoFacturasGrafComp."ANO2"> <> 0) then'
+      '    begin                '
-      
+      '       mContinua.Visible := True;'
-        '     TLineSeries(Chart1.Series[1]).Title := '#39'Total Facturado '#39' +' +
+      '    end               '
-        ' IntToStr(<frxDBInformeListadoFacturasGrafComp."ANO2">)'
+      '  end;               '
-      '  else'
-      '    Chart1.Series[1].Active := False;      '
       'end;'
       ''
-      'procedure Memo16OnBeforePrint(Sender: TfrxComponent);'
+      'procedure Memo11OnBeforePrint(Sender: TfrxComponent);'
       'var'
-      ' Valor:Double;                            '
+      
+        '  ACadena : String;                                             ' +
+        '    '
       'begin'
       
-        '  Valor := SUM(<frxDBInformeListadoFacturasGrafComp."IMPORTE_TOT' +
+        '  ACadena :=  <frxDBInformeListadoFacturasPendResumen."DATOS_BAN' +
-        'AL1">) * 100;    '
+        'CARIOS">;                                            '
+      '  if Pos('#39'N'#186' de cuenta: '#39', ACadena) > 0 then'
+      '  begin'
+      '     Delete(ACadena, 1, 14);'
       
-        '  if (SUM(<frxDBInformeListadoFacturasGrafComp."IMPORTE_TOTAL">)' +
+        '     Memo11.Lines.Text := '#39' '#39' + ACadena;                        ' +
-        ' = 0) then'
+        '                                               '
-      '     Valor := 100 - Valor              '
+      '  end;'
-      '  else'
+      'end;'
-      
-        '     Valor := 100 - (Valor/SUM(<frxDBInformeListadoFacturasGrafC' +
-        'omp."IMPORTE_TOTAL">));              '
       ''
-      '  memo16.lines.add(FormatFloat('#39'#,##0.00 %'#39',Valor));'
+      'procedure Memo10OnBeforePrint(Sender: TfrxComponent);'
+      'var'
+      
+        '  ACadena : String;                                             ' +
+        '    '
+      'begin'
+      
+        '  ACadena :=  <frxDBInformeListadoFacturasPendientes."DATOS_BANC' +
+        'ARIOS">;                                            '
+      '  if Pos('#39'N'#186' de cuenta: '#39', ACadena) > 0 then'
+      '  begin'
+      '     Delete(ACadena, 1, 14);'
+      
+        '     Memo10.Lines.Text := '#39' '#39' + ACadena;                        ' +
+        '                                               '
+      '  end;'
       'end;'
       ''
       'begin'
-      'end.          ')
+      ''
+      'end.')
     ShowProgress = False
     StoreInDFM = False
     OnStartReport = 'frxReportOnStartReport'
@@ -1894,6 +1918,10 @@ object RptFacturasProveedor: TRptFacturasProveedor
         Name = 'FECHA_FACTURA'
         DataType = datDateTime
       end
+      item
+        Name = 'FECHA_RECEPCION'
+        DataType = datDateTime
+      end
       item
         Name = 'FECHA_VENCIMIENTO'
         DataType = datDateTime

Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm

@@ -179,6 +179,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor
               item
                 DatasetField = 'FECHA_VENCIMIENTO'
                 TableField = 'FECHA_VENCIMIENTO'
+              end
+              item
+                DatasetField = 'FECHA_RECEPCION'
+                TableField = 'FECHA_RECEPCION'
               end>
           end>
         Name = 'FacturasProveedor'
@@ -219,6 +223,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor
             DataType = datDateTime
             DictionaryEntry = 'FacturasProveedor_FECHA_FACTURA'
           end
+          item
+            Name = 'FECHA_RECEPCION'
+            DataType = datDateTime
+          end
           item
             Name = 'FECHA_VENCIMIENTO'
             DataType = datDateTime
@@ -672,122 +680,167 @@ object srvFacturasProveedor: TsrvFacturasProveedor
           end
           item
             Name = 'ID_EMPRESA'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'REFERENCIA'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'REFERENCIA_PROVEEDOR'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'FECHA_FACTURA'
+            DataType = datDateTime
             Value = ''
           end
           item
             Name = 'BASE_IMPONIBLE'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'DESCUENTO'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'IMPORTE_DESCUENTO'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'IVA'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'IMPORTE_IVA'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'RE'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'IMPORTE_RE'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'IMPORTE_TOTAL'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'OBSERVACIONES'
+            DataType = datMemo
             Value = ''
           end
           item
             Name = 'ID_PROVEEDOR'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'NIF_CIF'
+            DataType = datString
+            Size = 15
             Value = ''
           end
           item
             Name = 'NOMBRE'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'CALLE'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'POBLACION'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'PROVINCIA'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'CODIGO_POSTAL'
+            DataType = datString
+            Size = 10
             Value = ''
           end
           item
             Name = 'FECHA_ALTA'
+            DataType = datDateTime
             Value = ''
           end
           item
             Name = 'FECHA_MODIFICACION'
+            DataType = datDateTime
             Value = ''
           end
           item
             Name = 'USUARIO'
+            DataType = datString
+            Size = 30
             Value = ''
           end
           item
             Name = 'ID_FORMA_PAGO'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'RECARGO_EQUIVALENCIA'
+            DataType = datSmallInt
             Value = ''
           end
           item
             Name = 'ID_TIPO_IVA'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'IMPORTE_NETO'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'IMPORTE_PORTE'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'DATOS_BANCARIOS'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'FECHA_VENCIMIENTO'
+            DataType = datDateTime
+            Value = ''
+          end
+          item
+            Name = 'FECHA_RECEPCION'
+            DataType = datDateTime
             Value = ''
           end>
         Statements = <
@@ -803,15 +856,15 @@ object srvFacturasProveedor: TsrvFacturasProveedor
               '  NOMBRE, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, '#10'     FECH' +
               'A_ALTA, FECHA_MODIFICACION, USUARIO, ID_FORMA_PAGO, '#10'     RECARG' +
               'O_EQUIVALENCIA, ID_TIPO_IVA, IMPORTE_NETO, IMPORTE_PORTE,'#10'     D' +
-              'ATOS_BANCARIOS, FECHA_VENCIMIENTO)'#10'  VALUES'#10'    (:ID, :ID_EMPRES' +
+              'ATOS_BANCARIOS, FECHA_VENCIMIENTO, FECHA_RECEPCION)'#10'  VALUES'#10'   ' +
-              'A, :REFERENCIA, :REFERENCIA_PROVEEDOR,'#10'     :FECHA_FACTURA, :BAS' +
+              ' (:ID, :ID_EMPRESA, :REFERENCIA, :REFERENCIA_PROVEEDOR,'#10'     :FE' +
-              'E_IMPONIBLE, :DESCUENTO,'#10'     :IMPORTE_DESCUENTO, :IVA, :IMPORTE' +
+              'CHA_FACTURA, :BASE_IMPONIBLE, :DESCUENTO,'#10'     :IMPORTE_DESCUENT' +
-              '_IVA, :RE, :IMPORTE_RE, '#10'     :IMPORTE_TOTAL, :OBSERVACIONES, :I' +
+              'O, :IVA, :IMPORTE_IVA, :RE, :IMPORTE_RE, '#10'     :IMPORTE_TOTAL, :' +
-              'D_PROVEEDOR, :NIF_CIF, '#10'     :NOMBRE, :CALLE, :POBLACION, :PROVI' +
+              'OBSERVACIONES, :ID_PROVEEDOR, :NIF_CIF, '#10'     :NOMBRE, :CALLE, :' +
-              'NCIA, :CODIGO_POSTAL, '#10'     :FECHA_ALTA, :FECHA_MODIFICACION, :U' +
+              'POBLACION, :PROVINCIA, :CODIGO_POSTAL, '#10'     :FECHA_ALTA, :FECHA' +
-              'SUARIO, :ID_FORMA_PAGO, '#10'     :RECARGO_EQUIVALENCIA, :ID_TIPO_IV' +
+              '_MODIFICACION, :USUARIO, :ID_FORMA_PAGO, '#10'     :RECARGO_EQUIVALE' +
-              'A, :IMPORTE_NETO, '#10'     :IMPORTE_PORTE, :DATOS_BANCARIOS, :FECHA' +
+              'NCIA, :ID_TIPO_IVA, :IMPORTE_NETO, '#10'     :IMPORTE_PORTE, :DATOS_' +
-              '_VENCIMIENTO)'#10'     '#10'     '#10#10
+              'BANCARIOS, :FECHA_VENCIMIENTO, :FECHA_RECEPCION)'#10'     '#10'     '#10#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -840,126 +893,172 @@ object srvFacturasProveedor: TsrvFacturasProveedor
         Params = <
           item
             Name = 'ID'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'ID_EMPRESA'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'REFERENCIA'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'REFERENCIA_PROVEEDOR'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'FECHA_FACTURA'
+            DataType = datDateTime
             Value = ''
           end
           item
             Name = 'BASE_IMPONIBLE'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'DESCUENTO'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'IMPORTE_DESCUENTO'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'IVA'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'IMPORTE_IVA'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'RE'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'IMPORTE_RE'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'IMPORTE_TOTAL'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'OBSERVACIONES'
+            DataType = datMemo
             Value = ''
           end
           item
             Name = 'ID_PROVEEDOR'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'NIF_CIF'
+            DataType = datString
+            Size = 15
             Value = ''
           end
           item
             Name = 'NOMBRE'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'CALLE'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'POBLACION'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'PROVINCIA'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'CODIGO_POSTAL'
+            DataType = datString
+            Size = 10
             Value = ''
           end
           item
             Name = 'FECHA_ALTA'
+            DataType = datDateTime
             Value = ''
           end
           item
             Name = 'FECHA_MODIFICACION'
+            DataType = datDateTime
             Value = ''
           end
           item
             Name = 'USUARIO'
+            DataType = datString
+            Size = 30
             Value = ''
           end
           item
             Name = 'ID_FORMA_PAGO'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'RECARGO_EQUIVALENCIA'
+            DataType = datSmallInt
             Value = ''
           end
           item
             Name = 'ID_TIPO_IVA'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'IMPORTE_NETO'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'IMPORTE_PORTE'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'DATOS_BANCARIOS'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'FECHA_VENCIMIENTO'
+            DataType = datDateTime
+            Value = ''
+          end
+          item
+            Name = 'FECHA_RECEPCION'
+            DataType = datDateTime
             Value = ''
           end
           item
@@ -988,7 +1087,8 @@ object srvFacturasProveedor: TsrvFacturasProveedor
               'IVALENCIA = :RECARGO_EQUIVALENCIA, '#10'    ID_TIPO_IVA = :ID_TIPO_I' +
               'VA, '#10'    IMPORTE_NETO = :IMPORTE_NETO, '#10'    IMPORTE_PORTE = :IMP' +
               'ORTE_PORTE,'#10'    DATOS_BANCARIOS = :DATOS_BANCARIOS,'#10'    FECHA_VE' +
-              'NCIMIENTO = :FECHA_VENCIMIENTO'#10'  WHERE'#10'    (ID = :OLD_ID)'#10
+              'NCIMIENTO = :FECHA_VENCIMIENTO,'#10'    FECHA_RECEPCION = :FECHA_REC' +
+              'EPCION'#10'  WHERE'#10'    (ID = :OLD_ID)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>

Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm

@@ -1,5 +1,5 @@
 inherited frViewFacturaProveedor: TfrViewFacturaProveedor
-  Width = 687
+  Width = 451
   Height = 304
   Align = alClient
   OnCreate = CustomViewCreate
@@ -9,7 +9,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
   object dxLayoutControl1: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 687
+    Width = 451
     Height = 304
     Align = alClient
     ParentBackground = True
@@ -17,9 +17,8 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
     TabStop = False
     AutoContentSizes = [acsWidth, acsHeight]
     LookAndFeel = dxLayoutOfficeLookAndFeel1
-    ExplicitWidth = 451
     DesignSize = (
-      687
+      451
       304)
     object eReferencia: TcxDBTextEdit
       Left = 136
@@ -73,7 +72,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
     end
     object memObservaciones: TcxDBMemo
       Left = 22
-      Top = 242
+      Top = 269
       Anchors = [akLeft, akTop, akRight, akBottom]
       DataBinding.DataField = 'OBSERVACIONES'
       DataBinding.DataSource = DADataSource
@@ -89,13 +88,13 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
       StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 7
+      TabOrder = 8
       Height = 159
       Width = 301
     end
     object cbFormaPago: TcxDBLookupComboBox
       Left = 136
-      Top = 135
+      Top = 162
       DataBinding.DataField = 'ID_FORMA_PAGO'
       DataBinding.DataSource = DADataSource
       Properties.ImmediatePost = True
@@ -126,16 +125,16 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 3
+      TabOrder = 4
       Width = 78
     end
     object bFormasPago: TButton
-      Left = 204
+      Left = 162
-      Top = 135
+      Top = 162
       Width = 132
       Height = 23
       Caption = 'Ver las formas de pago...'
-      TabOrder = 4
+      TabOrder = 5
       OnClick = bFormasPagoClick
     end
     object eReferenciaProveedor: TcxDBTextEdit
@@ -163,7 +162,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
       Width = 158
     end
     inline frViewProveedorFactura: TfrViewDatosYSeleccionProveedor
-      Left = 364
+      Left = 322
       Top = 30
       Width = 350
       Height = 202
@@ -173,9 +172,9 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
       Font.Name = 'Tahoma'
       Font.Style = []
       ParentFont = False
-      TabOrder = 8
+      TabOrder = 9
       ReadOnly = False
-      ExplicitLeft = 364
+      ExplicitLeft = 322
       ExplicitTop = 30
       inherited dxLayoutControl1: TdxLayoutControl
         inherited edtlNombre: TcxDBTextEdit
@@ -217,22 +216,22 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
           Width = 327
         end
         inherited edtCodigoPostal: TcxDBTextEdit
-          Left = 209
+          Left = 203
           Style.LookAndFeel.SkinName = ''
           StyleDisabled.LookAndFeel.SkinName = ''
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
-          ExplicitLeft = 209
+          ExplicitLeft = 203
         end
         inherited Button3: TBitBtn
-          Left = 93
+          Left = 87
-          ExplicitLeft = 93
+          ExplicitLeft = 87
         end
       end
     end
     object cbCuentaBancaria: TcxDBComboBox
       Left = 136
-      Top = 191
+      Top = 218
       DataBinding.DataField = 'DATOS_BANCARIOS'
       DataBinding.DataSource = DADataSource
       Properties.DropDownListStyle = lsFixedList
@@ -249,12 +248,12 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
       StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 6
+      TabOrder = 7
       Width = 165
     end
     object edtFechaVencimiento: TcxDBDateEdit
       Left = 136
-      Top = 164
+      Top = 191
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'FECHA_VENCIMIENTO'
       DataBinding.DataSource = DADataSource
@@ -274,9 +273,34 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
       StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 5
+      TabOrder = 6
       Width = 251
     end
+    object edtFechaRecepcion: TcxDBDateEdit
+      Left = 136
+      Top = 111
+      Anchors = [akLeft, akTop, akRight]
+      DataBinding.DataField = 'FECHA_RECEPCION'
+      DataBinding.DataSource = DADataSource
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
+      Style.Color = clInfoBk
+      Style.HotTrack = False
+      Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
+      Style.Shadow = False
+      Style.ButtonStyle = bts3D
+      Style.ButtonTransparency = ebtNone
+      Style.PopupBorderStyle = epbsFrame3D
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 3
+      Width = 158
+    end
     object dxLayoutControl1Group_Root: TdxLayoutGroup
       ShowCaption = False
       Hidden = True
@@ -307,6 +331,11 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
             Control = edtFecha
             ControlOptions.ShowBorder = False
           end
+          object dxLayoutControl1Item8: TdxLayoutItem
+            Caption = 'Fecha recepci'#243'n:'
+            Control = edtFechaRecepcion
+            ControlOptions.ShowBorder = False
+          end
         end
         object dxLayoutControl1Group7: TdxLayoutGroup
           Caption = 'Forma de pago'

Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas

@@ -55,6 +55,8 @@ type
     ledtFechaVencimiento: TdxLayoutItem;
     edtFechaVencimiento: TcxDBDateEdit;
     dxLayoutControl1Group8: TdxLayoutGroup;
+    dxLayoutControl1Item8: TdxLayoutItem;
+    edtFechaRecepcion: TcxDBDateEdit;
     procedure bFormasPagoClick(Sender: TObject);
     procedure CustomViewDestroy(Sender: TObject);
     procedure CustomViewCreate(Sender: TObject);

Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm

@@ -71,6 +71,10 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
         PropertiesClassName = 'TcxDateEditProperties'
         Width = 27
       end
+      object cxGridViewFECHA_RECEPCION: TcxGridDBColumn
+        Caption = 'Fecha recepci'#243'n'
+        DataBinding.FieldName = 'FECHA_RECEPCION'
+      end
       object cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn
         Caption = 'Fecha vto.'
         DataBinding.FieldName = 'FECHA_VENCIMIENTO'
@@ -186,22 +190,22 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
           Width = 229
         end
         inherited edtFechaFinFiltro: TcxDateEdit
-          Left = 333
+          Left = 230
           Style.LookAndFeel.SkinName = ''
           StyleDisabled.LookAndFeel.SkinName = ''
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
-          ExplicitLeft = 333
+          ExplicitLeft = 230
           ExplicitWidth = 188
           Width = 188
         end
         inherited eLista: TcxComboBox
-          Left = 558
+          Left = 388
           Style.LookAndFeel.SkinName = ''
           StyleDisabled.LookAndFeel.SkinName = ''
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
-          ExplicitLeft = 558
+          ExplicitLeft = 388
           ExplicitWidth = 215
           Width = 215
         end

Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas

@@ -13,7 +13,8 @@ uses
   cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGrid,
   cxImage, Grids, DBGrids, uBizFacturasProveedor, cxGridCustomPopupMenu,
   cxGridPopupMenu, cxCalendar, cxCurrencyEdit, uViewFiltroBase, TB2Item, TBX,
-  TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces;
+  TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, uCustomView,
+  uViewBase;
    
 type
   IViewFacturasProveedor = interface(IViewGrid)
@@ -56,6 +57,7 @@ type
     TBXSeparatorItem2: TTBXSeparatorItem;
     cxGridViewTIPO: TcxGridDBColumn;
     cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn;
+    cxGridViewFECHA_RECEPCION: TcxGridDBColumn;
     procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
       ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
       out AStyle: TcxStyle);

Source/Servidor/FactuGES_Server.dpr

@@ -117,8 +117,6 @@ uses
   uRptRecibosProveedor_Server in '..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas' {RptRecibosProveedor: TDataModule},
   schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
   schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
-  schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
-  schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
   schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
   schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
   schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
@@ -135,7 +133,9 @@ uses
   schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
   schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
   schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
-  schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas';
+  schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
+  schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
+  schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas';
 
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}

Source/Servidor/FactuGES_Server.dproj

@@ -35,7 +35,7 @@
 		<Borland.Personality>Delphi.Personality</Borland.Personality>
 		<Borland.ProjectType/>
 		<BorlandProject>
-			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">9</VersionInfo><VersionInfo Name="Release">1</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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.9.1.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.9.1.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 05 de mayo de 2011 16:36</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">9</VersionInfo><VersionInfo Name="Release">2</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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.9.2.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.9.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 27 de julio de 2011 11:21</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
 						<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
 					</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
 	</ProjectExtensions>

Source/Servidor/FactuGES_Server.rc

@@ -1,7 +1,7 @@
 MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Servidor.ico"
 1 VERSIONINFO
-FILEVERSION 1,9,1,0
+FILEVERSION 1,9,2,0
-PRODUCTVERSION 1,9,1,0
+PRODUCTVERSION 1,9,2,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -12,9 +12,9 @@ BEGIN
     BEGIN
          BLOCK "0C0A04E4"
          BEGIN
-              VALUE "FileVersion", "1.9.1.0\0"
+              VALUE "FileVersion", "1.9.2.0\0"
-              VALUE "ProductVersion", "1.9.1.0\0"
+              VALUE "ProductVersion", "1.9.2.0\0"
-              VALUE "CompileDate", "jueves, 05 de mayo de 2011 16:42\0"
+              VALUE "CompileDate", "miércoles, 27 de julio de 2011 13:11\0"
          END
     END
     BLOCK "VarFileInfo"