diff --git a/Build/Installer.fbpInf b/Build/Installer.fbpInf
index 528efe61..da9b90ae 100644
--- a/Build/Installer.fbpInf
+++ b/Build/Installer.fbpInf
@@ -6,7 +6,7 @@
-
+
diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql
index 2a978924..fed98134 100644
--- a/Database/scripts/factuges.sql
+++ b/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,
diff --git a/Source/Base/Utiles/uEMailUtils.pas b/Source/Base/Utiles/uEMailUtils.pas
index 80299c57..a0093d26 100644
--- a/Source/Base/Utiles/uEMailUtils.pas
+++ b/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);
diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj
index def10699..90002743 100644
--- a/Source/Cliente/FactuGES.dproj
+++ b/Source/Cliente/FactuGES.dproj
@@ -53,7 +53,7 @@
Delphi.Personality
VCLApplication
-FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse1910FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.9.1.0FactuGESFactuGES1.9.1.0FactuGES.dprFalse
+FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse1920FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.9.2.0FactuGESFactuGES1.9.2.0FactuGES.dprFalse
diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc
index cc314f9c..7a033c63 100644
--- a/Source/Cliente/FactuGES.rc
+++ b/Source/Cliente/FactuGES.rc
@@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Factuges.ico"
1 VERSIONINFO
-FILEVERSION 1,9,1,0
-PRODUCTVERSION 1,9,1,0
+FILEVERSION 1,9,2,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"
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index fa056cd8..6ef651cf 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/Informes/1/InformeListadoFacturasProveedorPendientes.fr3 b/Source/Informes/1/InformeListadoFacturasProveedorPendientes.fr3
index 8b48839a..667693a2 100644
--- a/Source/Informes/1/InformeListadoFacturasProveedorPendientes.fr3
+++ b/Source/Informes/1/InformeListadoFacturasProveedorPendientes.fr3
@@ -1,55 +1,57 @@
-
+
-
-
-
-
-
-
+
+
+
+
+
+
-
+
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
-
-
-
+
+
+
-
+
-
-
+
+
-
-
-
+
+
+
-
-
+
+
diff --git a/Source/Informes/1/InformeListadoFacturasProveedorPendientesDesglosado.fr3 b/Source/Informes/1/InformeListadoFacturasProveedorPendientesDesglosado.fr3
index 66dbfd4d..e31733a6 100644
--- a/Source/Informes/1/InformeListadoFacturasProveedorPendientesDesglosado.fr3
+++ b/Source/Informes/1/InformeListadoFacturasProveedorPendientesDesglosado.fr3
@@ -1,58 +1,60 @@
-
+
-
-
-
-
-
-
+
+
+
+
+
+
-
-
+
+
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
-
-
-
+
+
+
-
-
+
+
-
-
-
+
+
+
-
-
+
+
-
+
diff --git a/Source/Informes/2/InformeListadoFacturasProveedorPendientes.fr3 b/Source/Informes/2/InformeListadoFacturasProveedorPendientes.fr3
index 08f01fe9..9a648ab8 100644
--- a/Source/Informes/2/InformeListadoFacturasProveedorPendientes.fr3
+++ b/Source/Informes/2/InformeListadoFacturasProveedorPendientes.fr3
@@ -1,55 +1,57 @@
-
+
-
-
-
-
-
-
+
+
+
+
+
+
-
-
+
+
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
-
-
-
+
+
+
-
-
+
+
-
-
-
+
+
+
-
-
+
+
diff --git a/Source/Informes/2/InformeListadoFacturasProveedorPendientesDesglosado.fr3 b/Source/Informes/2/InformeListadoFacturasProveedorPendientesDesglosado.fr3
index e43a37b7..6b061325 100644
--- a/Source/Informes/2/InformeListadoFacturasProveedorPendientesDesglosado.fr3
+++ b/Source/Informes/2/InformeListadoFacturasProveedorPendientesDesglosado.fr3
@@ -1,58 +1,60 @@
-
+
-
-
-
-
-
-
+
+
+
+
+
+
-
-
+
+
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
-
-
-
+
+
+
-
-
+
+
-
-
-
+
+
+
-
-
+
+
-
+
diff --git a/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm b/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm
index f55dfce0..8a953682 100644
--- a/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm
+++ b/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
diff --git a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas
index 5325152c..0d26a034 100644
--- a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas
+++ b/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_FacturasProveedor = '{44FD4DE6-500F-4F58-A58C-97CF98028CD2}';
- RID_FacturasProveedor_Detalles = '{1CB49BE9-8421-4FD5-80E8-12FFC6360422}';
- RID_FacturasProveedor_Pedidos = '{961FA245-B4B9-478F-8B57-34025D5C9EEB}';
+ RID_ListaAnosFacturas = '{94FBDA60-1B7A-4466-BCB5-A78D474F0270}';
+ RID_FacturasProveedor = '{757861F8-67CC-46FA-A3A3-094DF0532D43}';
+ RID_FacturasProveedor_Detalles = '{26D28A28-EDBA-4AF9-8516-96BC332BF817}';
+ 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_FacturasProveedorSITUACION = 7;
- idx_FacturasProveedorBASE_IMPONIBLE = 8;
- idx_FacturasProveedorDESCUENTO = 9;
- idx_FacturasProveedorIMPORTE_DESCUENTO = 10;
- idx_FacturasProveedorIVA = 11;
- idx_FacturasProveedorIMPORTE_IVA = 12;
- idx_FacturasProveedorRE = 13;
- idx_FacturasProveedorIMPORTE_RE = 14;
- idx_FacturasProveedorIMPORTE_TOTAL = 15;
- idx_FacturasProveedorOBSERVACIONES = 16;
- idx_FacturasProveedorID_PROVEEDOR = 17;
- idx_FacturasProveedorNIF_CIF = 18;
- idx_FacturasProveedorNOMBRE = 19;
- idx_FacturasProveedorCALLE = 20;
- idx_FacturasProveedorPOBLACION = 21;
- idx_FacturasProveedorPROVINCIA = 22;
- idx_FacturasProveedorCODIGO_POSTAL = 23;
- idx_FacturasProveedorFECHA_ALTA = 24;
- idx_FacturasProveedorFECHA_MODIFICACION = 25;
- idx_FacturasProveedorUSUARIO = 26;
- idx_FacturasProveedorID_FORMA_PAGO = 27;
- idx_FacturasProveedorRECARGO_EQUIVALENCIA = 28;
- idx_FacturasProveedorID_TIPO_IVA = 29;
- idx_FacturasProveedorIMPORTE_NETO = 30;
- idx_FacturasProveedorIMPORTE_PORTE = 31;
- idx_FacturasProveedorDATOS_BANCARIOS = 32;
+ idx_FacturasProveedorFECHA_RECEPCION = 6;
+ idx_FacturasProveedorFECHA_VENCIMIENTO = 7;
+ idx_FacturasProveedorSITUACION = 8;
+ idx_FacturasProveedorBASE_IMPONIBLE = 9;
+ idx_FacturasProveedorDESCUENTO = 10;
+ idx_FacturasProveedorIMPORTE_DESCUENTO = 11;
+ idx_FacturasProveedorIVA = 12;
+ idx_FacturasProveedorIMPORTE_IVA = 13;
+ idx_FacturasProveedorRE = 14;
+ idx_FacturasProveedorIMPORTE_RE = 15;
+ idx_FacturasProveedorIMPORTE_TOTAL = 16;
+ idx_FacturasProveedorOBSERVACIONES = 17;
+ idx_FacturasProveedorID_PROVEEDOR = 18;
+ idx_FacturasProveedorNIF_CIF = 19;
+ idx_FacturasProveedorNOMBRE = 20;
+ idx_FacturasProveedorCALLE = 21;
+ idx_FacturasProveedorPOBLACION = 22;
+ idx_FacturasProveedorPROVINCIA = 23;
+ idx_FacturasProveedorCODIGO_POSTAL = 24;
+ idx_FacturasProveedorFECHA_ALTA = 25;
+ idx_FacturasProveedorFECHA_MODIFICACION = 26;
+ idx_FacturasProveedorUSUARIO = 27;
+ idx_FacturasProveedorID_FORMA_PAGO = 28;
+ idx_FacturasProveedorRECARGO_EQUIVALENCIA = 29;
+ idx_FacturasProveedorID_TIPO_IVA = 30;
+ idx_FacturasProveedorIMPORTE_NETO = 31;
+ 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;
diff --git a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas
index e7e1285a..caa80e89 100644
--- a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas
+++ b/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_FacturasProveedorDelta = '{E6CC20F4-E176-4296-8598-60A05EE8A3BA}';
- RID_FacturasProveedor_DetallesDelta = '{F1E67867-CD3F-4CAD-A9E2-103852351589}';
- RID_FacturasProveedor_PedidosDelta = '{F8DF3A8E-57BE-4D89-AA51-C60A1A6845F0}';
+ RID_ListaAnosFacturasDelta = '{99DA85D3-EA9A-41E6-A66E-FF1D2AB9AE8B}';
+ RID_FacturasProveedorDelta = '{58681BDC-4147-4339-BACB-501CA5E4487D}';
+ RID_FacturasProveedor_DetallesDelta = '{BBB8B4C0-752D-4319-8893-B5C08B88658F}';
+ 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];
diff --git a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas
index 0a2546f2..68239e1b 100644
--- a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas
+++ b/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;
diff --git a/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm b/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm
index 8c754b33..72032332 100644
--- a/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm
+++ b/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' +
- 'E_TOTAL,'#10'case'#10'when strlen(DATOS_BANCARIOS) = 0 then '#39'Sin cuenta ' +
- 'bancaria'#39#10'else DATOS_BANCARIOS'#10'end as DATOS_BANCARIOS'#10#10#10'from V_f' +
- 'acturas_proveedor'#10'where {where}'#10'order by ANO, MES, fecha_vencimi' +
- 'ento, DATOS_BANCARIOS, NOMBRE'#10#10
+ '_FACTURA, FECHA_RECEPCION, FECHA_VENCIMIENTO, BASE_IMPONIBLE, IM' +
+ 'PORTE_IVA, IMPORTE_TOTAL,'#10'case'#10'when strlen(DATOS_BANCARIOS) = 0 ' +
+ 'then '#39'Sin cuenta bancaria'#39#10'else DATOS_BANCARIOS'#10'end as DATOS_BAN' +
+ 'CARIOS'#10#10#10'from V_facturas_proveedor'#10'where {where}'#10'order by ANO, M' +
+ '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 ( <> 0) then ' +
- ' '
-
- ' TLineSeries(Chart1.Series[0]).Title := '#39'Total Facturado '#39' +' +
- ' IntToStr();'
- ''
- ' if ( <> 0) then'
-
- ' TLineSeries(Chart1.Series[1]).Title := '#39'Total Facturado '#39' +' +
- ' IntToStr()'
- ' else'
- ' Chart1.Series[1].Active := False; '
+ ' if Engine.FinalPass then'
+ ' begin'
+ ' if ( = ) then'
+ ' begin '
+ ' mContinua.Visible := False;'
+ ' end '
+ ' else'
+ ' begin '
+ ' mContinua.Visible := True;'
+ ' end '
+ ' end; '
'end;'
''
- 'procedure Memo16OnBeforePrint(Sender: TfrxComponent);'
+ 'procedure Memo11OnBeforePrint(Sender: TfrxComponent);'
'var'
- ' Valor:Double; '
+
+ ' ACadena : String; ' +
+ ' '
'begin'
- ' Valor := SUM() * 100; '
+ ' ACadena := ; '
+ ' if Pos('#39'N'#186' de cuenta: '#39', ACadena) > 0 then'
+ ' begin'
+ ' Delete(ACadena, 1, 14);'
- ' if (SUM()' +
- ' = 0) then'
- ' Valor := 100 - Valor '
- ' else'
-
- ' Valor := 100 - (Valor/SUM()); '
+ ' Memo11.Lines.Text := '#39' '#39' + ACadena; ' +
+ ' '
+ ' end;'
+ 'end;'
''
- ' memo16.lines.add(FormatFloat('#39'#,##0.00 %'#39',Valor));'
+ 'procedure Memo10OnBeforePrint(Sender: TfrxComponent);'
+ 'var'
+
+ ' ACadena : String; ' +
+ ' '
+ 'begin'
+
+ ' ACadena := ; '
+ ' 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
diff --git a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm
index a6dd3196..559f9deb 100644
--- a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm
+++ b/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' +
- 'A, :REFERENCIA, :REFERENCIA_PROVEEDOR,'#10' :FECHA_FACTURA, :BAS' +
- 'E_IMPONIBLE, :DESCUENTO,'#10' :IMPORTE_DESCUENTO, :IVA, :IMPORTE' +
- '_IVA, :RE, :IMPORTE_RE, '#10' :IMPORTE_TOTAL, :OBSERVACIONES, :I' +
- 'D_PROVEEDOR, :NIF_CIF, '#10' :NOMBRE, :CALLE, :POBLACION, :PROVI' +
- 'NCIA, :CODIGO_POSTAL, '#10' :FECHA_ALTA, :FECHA_MODIFICACION, :U' +
- 'SUARIO, :ID_FORMA_PAGO, '#10' :RECARGO_EQUIVALENCIA, :ID_TIPO_IV' +
- 'A, :IMPORTE_NETO, '#10' :IMPORTE_PORTE, :DATOS_BANCARIOS, :FECHA' +
- '_VENCIMIENTO)'#10' '#10' '#10#10
+ 'ATOS_BANCARIOS, FECHA_VENCIMIENTO, FECHA_RECEPCION)'#10' VALUES'#10' ' +
+ ' (:ID, :ID_EMPRESA, :REFERENCIA, :REFERENCIA_PROVEEDOR,'#10' :FE' +
+ 'CHA_FACTURA, :BASE_IMPONIBLE, :DESCUENTO,'#10' :IMPORTE_DESCUENT' +
+ 'O, :IVA, :IMPORTE_IVA, :RE, :IMPORTE_RE, '#10' :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_EQUIVALE' +
+ 'NCIA, :ID_TIPO_IVA, :IMPORTE_NETO, '#10' :IMPORTE_PORTE, :DATOS_' +
+ '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>
diff --git a/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm b/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm
index 2c91f1e0..fa693884 100644
--- a/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm
+++ b/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
- Top = 135
+ Left = 162
+ 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
- ExplicitLeft = 93
+ Left = 87
+ 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'
diff --git a/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas
index 6cfb268a..9b308c9f 100644
--- a/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas
+++ b/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);
diff --git a/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm b/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm
index bf4624d1..82866e50 100644
--- a/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm
+++ b/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
diff --git a/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas
index f69ada53..b90e0791 100644
--- a/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas
+++ b/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);
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index c74b85dd..24f1934c 100644
Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ
diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index facbd158..8d15b2e1 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/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}
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index cce04961..a580dd97 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -35,7 +35,7 @@
Delphi.Personality
- FalseTrueFalse/standaloneTrueFalse1910FalseFalseFalseFalseFalse308212521.9.1.01.9.1.0jueves, 05 de mayo de 2011 16:36
+ FalseTrueFalse/standaloneTrueFalse1920FalseFalseFalseFalseFalse308212521.9.2.01.9.2.0miércoles, 27 de julio de 2011 11:21
ExpressPrinting System by Developer Express Inc.
FactuGES_Server.dpr
diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index d00e6ddc..77959914 100644
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/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
-PRODUCTVERSION 1,9,1,0
+FILEVERSION 1,9,2,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 "ProductVersion", "1.9.1.0\0"
- VALUE "CompileDate", "jueves, 05 de mayo de 2011 16:42\0"
+ VALUE "FileVersion", "1.9.2.0\0"
+ VALUE "ProductVersion", "1.9.2.0\0"
+ VALUE "CompileDate", "miércoles, 27 de julio de 2011 13:11\0"
END
END
BLOCK "VarFileInfo"