From f17665afb75ee5a411933ed116d808a0f00c650f Mon Sep 17 00:00:00 2001 From: roberto Date: Wed, 27 Jul 2011 16:11:36 +0000 Subject: [PATCH] =?UTF-8?q?Versi=C3=B3n=201.9.2?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1051 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- Build/Installer.fbpInf | 2 +- Database/scripts/factuges.sql | 5 +- Source/Base/Utiles/uEMailUtils.pas | 3 +- Source/Cliente/FactuGES.dproj | 2 +- Source/Cliente/FactuGES.rc | 8 +- Source/Cliente/FactuGES.res | Bin 171984 -> 171984 bytes ...ormeListadoFacturasProveedorPendientes.fr3 | 70 +++++----- ...oFacturasProveedorPendientesDesglosado.fr3 | 72 ++++++----- ...ormeListadoFacturasProveedorPendientes.fr3 | 70 +++++----- ...oFacturasProveedorPendientesDesglosado.fr3 | 72 ++++++----- .../Data/uDataModuleFacturasProveedor.dfm | 14 +- .../Model/schFacturasProveedorClient_Intf.pas | 107 ++++++++++------ .../Model/schFacturasProveedorServer_Intf.pas | 59 +++++++-- .../Model/uBizFacturasProveedor.pas | 1 + .../Reports/uRptFacturasProveedor_Server.dfm | 94 +++++++++----- .../Servidor/srvFacturasProveedor_Impl.dfm | 120 ++++++++++++++++-- .../Views/uViewFacturaProveedor.dfm | 73 +++++++---- .../Views/uViewFacturaProveedor.pas | 2 + .../Views/uViewFacturasProveedor.dfm | 12 +- .../Views/uViewFacturasProveedor.pas | 4 +- Source/Servidor/FactuGES_Server.RES | Bin 23200 -> 23208 bytes Source/Servidor/FactuGES_Server.dpr | 6 +- Source/Servidor/FactuGES_Server.dproj | 2 +- Source/Servidor/FactuGES_Server.rc | 10 +- 24 files changed, 529 insertions(+), 279 deletions(-) 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 fa056cd888c096f8609660f10e7dc1780ce4700d..6ef651cfdc67cc79991575b1a2ca051ccd521e96 100644 GIT binary patch delta 42 xcmcbxpXu4E+EA 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 c74b85ddd17e55517a703f759bd6ee6f70790012..24f1934c4dd1964aa789a422e2aaad6f225c0745 100644 GIT binary patch delta 145 zcmZ3mm2t&Z#tnBO7}rd`8zB!Q|3;W{GBI#6FfuSOFip0Olx5_a92u$1_-t}*q&=h2 zf?m;=caAYTEf evJ@zj36zJ47y(T%1VRNMHfFE_u_uQ|c>(}hULkq_ delta 119 zcmZ3nm2tsV#tnBO7?(`G8zB!Q|3;W{GBR*7FfuSOFiy6Plx1X^92u$1cyDrTq&=hI z;Xd3M5m2d}CvB3?>XlljEa20sg=p%m4rY 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"