diff --git a/Database/VISTAS.SQL b/Database/VISTAS.SQL index 28cc580a..6292f470 100644 --- a/Database/VISTAS.SQL +++ b/Database/VISTAS.SQL @@ -517,6 +517,7 @@ CREATE VIEW V_RECIBOS_PROVEEDOR( IMPORTE, OTROS_GASTOS, IMPORTE_TOTAL, + REFERENCIA_FACTURA_PROV, FECHA_FACTURA, FORMA_PAGO_FACTURA, IMPORTE_FACTURA, @@ -540,7 +541,8 @@ SELECT RECIBOS_PROVEEDOR.ID, RECIBOS_PROVEEDOR.REFERENCIA, RECIBOS_PROVEEDOR.REF RECIBOS_PROVEEDOR.OBSERVACIONES, RECIBOS_PROVEEDOR.IMPORTE, RECIBOS_PROVEEDOR.OTROS_GASTOS, RECIBOS_PROVEEDOR.IMPORTE + RECIBOS_PROVEEDOR.OTROS_GASTOS, - FACTURAS_PROVEEDOR.FECHA_FACTURA, FORMAS_PAGO.DESCRIPCION, FACTURAS_PROVEEDOR.IMPORTE_TOTAL, + FACTURAS_PROVEEDOR.REFERENCIA_PROVEEDOR, FACTURAS_PROVEEDOR.FECHA_FACTURA, + FORMAS_PAGO.DESCRIPCION, FACTURAS_PROVEEDOR.IMPORTE_TOTAL, FACTURAS_PROVEEDOR.ID_EMPRESA, CONTACTOS.ID as ID_PROVEEDOR, CONTACTOS.NOMBRE, CONTACTOS.NIF_CIF, CONTACTOS_DATOS_BANCO.ENTIDAD, diff --git a/Output/Debug/Cliente/FactuGES.exe b/Output/Debug/Cliente/FactuGES.exe index 872bec1f..b7c2c13b 100644 Binary files a/Output/Debug/Cliente/FactuGES.exe and b/Output/Debug/Cliente/FactuGES.exe differ diff --git a/Output/Debug/Servidor/FactuGES_Server.exe b/Output/Debug/Servidor/FactuGES_Server.exe index 6a7bfa48..6de26f7a 100644 Binary files a/Output/Debug/Servidor/FactuGES_Server.exe and b/Output/Debug/Servidor/FactuGES_Server.exe differ diff --git a/Output/Debug/Servidor/Informes/InfRemesaProveedor.fr3 b/Output/Debug/Servidor/Informes/InfRemesaProveedor.fr3 index c6fa442b..76deaff1 100644 --- a/Output/Debug/Servidor/Informes/InfRemesaProveedor.fr3 +++ b/Output/Debug/Servidor/Informes/InfRemesaProveedor.fr3 @@ -1,60 +1,69 @@ - - - - - + + + + + - + - - + + - - - - - - - - - - + + + + + + + + + - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + - - - - - - - - + + + + + + + + + + + + + - - - - + + + + diff --git a/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm b/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm index e12e8a02..052b624b 100644 --- a/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm +++ b/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm @@ -380,6 +380,7 @@ object DataModuleRecibosProveedor: TDataModuleRecibosProveedor BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify + DictionaryEntry = 'RecibosProveedor_REFERENCIA_PROVEEDOR' InPrimaryKey = False Calculated = False Lookup = False @@ -416,6 +417,7 @@ object DataModuleRecibosProveedor: TDataModuleRecibosProveedor BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify + DictionaryEntry = 'RecibosProveedor_ID_REMESA' InPrimaryKey = False Calculated = False Lookup = False @@ -428,6 +430,7 @@ object DataModuleRecibosProveedor: TDataModuleRecibosProveedor BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify + DictionaryEntry = 'RecibosProveedor_REFERENCIA_REMESA' InPrimaryKey = False Calculated = False Lookup = False @@ -533,6 +536,20 @@ object DataModuleRecibosProveedor: TDataModuleRecibosProveedor Lookup = False LookupCache = False end + item + Name = 'REFERENCIA_FACTURA_PROV' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Ref. factura prov.' + Alignment = taLeftJustify + DictionaryEntry = 'RecibosProveedor_REFERENCIA_FACTURA_PROV' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end item Name = 'FORMA_PAGO_FACTURA' DataType = datString diff --git a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas index 5a5f4530..d0725855 100644 --- a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas +++ b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas @@ -9,9 +9,9 @@ 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_RecibosProveedor = '{807B18A0-18B1-4AA2-AD28-EB2C6F7355D4}'; - RID_RecibosProveedor_Refresh = '{1F7D595D-7CE8-4F30-A7AD-8DF53957939D}'; - RID_PagosProveedor = '{97FF686E-BBE3-490B-A127-DA9B5AF05917}'; + RID_RecibosProveedor = '{2FD8CE2A-3931-4327-8A27-7B090B6260DD}'; + RID_RecibosProveedor_Refresh = '{93C0F413-C971-469C-BD3A-6B4895AAB0F6}'; + RID_PagosProveedor = '{C13001E4-337A-4CAF-8ACF-25094F0F36FD}'; { Data table names } nme_RecibosProveedor = 'RecibosProveedor'; @@ -34,6 +34,7 @@ const fld_RecibosProveedorOTROS_GASTOS = 'OTROS_GASTOS'; fld_RecibosProveedorIMPORTE_TOTAL = 'IMPORTE_TOTAL'; fld_RecibosProveedorFECHA_FACTURA = 'FECHA_FACTURA'; + fld_RecibosProveedorREFERENCIA_FACTURA_PROV = 'REFERENCIA_FACTURA_PROV'; fld_RecibosProveedorFORMA_PAGO_FACTURA = 'FORMA_PAGO_FACTURA'; fld_RecibosProveedorIMPORTE_FACTURA = 'IMPORTE_FACTURA'; fld_RecibosProveedorID_PROVEEDOR = 'ID_PROVEEDOR'; @@ -64,19 +65,20 @@ const idx_RecibosProveedorOTROS_GASTOS = 12; idx_RecibosProveedorIMPORTE_TOTAL = 13; idx_RecibosProveedorFECHA_FACTURA = 14; - idx_RecibosProveedorFORMA_PAGO_FACTURA = 15; - idx_RecibosProveedorIMPORTE_FACTURA = 16; - idx_RecibosProveedorID_PROVEEDOR = 17; - idx_RecibosProveedorNOMBRE_PROVEEDOR = 18; - idx_RecibosProveedorNIF_CIF_PROVEEDOR = 19; - idx_RecibosProveedorENTIDAD_PROVEEDOR = 20; - idx_RecibosProveedorSUCURSAL_PROVEEDOR = 21; - idx_RecibosProveedorDC_PROVEEDOR = 22; - idx_RecibosProveedorCUENTA_PROVEEDOR = 23; - idx_RecibosProveedorID_EMPRESA = 24; - idx_RecibosProveedorFECHA_ALTA = 25; - idx_RecibosProveedorFECHA_MODIFICACION = 26; - idx_RecibosProveedorUSUARIO = 27; + idx_RecibosProveedorREFERENCIA_FACTURA_PROV = 15; + idx_RecibosProveedorFORMA_PAGO_FACTURA = 16; + idx_RecibosProveedorIMPORTE_FACTURA = 17; + idx_RecibosProveedorID_PROVEEDOR = 18; + idx_RecibosProveedorNOMBRE_PROVEEDOR = 19; + idx_RecibosProveedorNIF_CIF_PROVEEDOR = 20; + idx_RecibosProveedorENTIDAD_PROVEEDOR = 21; + idx_RecibosProveedorSUCURSAL_PROVEEDOR = 22; + idx_RecibosProveedorDC_PROVEEDOR = 23; + idx_RecibosProveedorCUENTA_PROVEEDOR = 24; + idx_RecibosProveedorID_EMPRESA = 25; + idx_RecibosProveedorFECHA_ALTA = 26; + idx_RecibosProveedorFECHA_MODIFICACION = 27; + idx_RecibosProveedorUSUARIO = 28; { RecibosProveedor_Refresh fields } fld_RecibosProveedor_RefreshID = 'ID'; @@ -94,6 +96,7 @@ const fld_RecibosProveedor_RefreshOTROS_GASTOS = 'OTROS_GASTOS'; fld_RecibosProveedor_RefreshIMPORTE_TOTAL = 'IMPORTE_TOTAL'; fld_RecibosProveedor_RefreshFECHA_FACTURA = 'FECHA_FACTURA'; + fld_RecibosProveedor_RefreshREFERENCIA_FACTURA_PROV = 'REFERENCIA_FACTURA_PROV'; fld_RecibosProveedor_RefreshFORMA_PAGO_FACTURA = 'FORMA_PAGO_FACTURA'; fld_RecibosProveedor_RefreshIMPORTE_FACTURA = 'IMPORTE_FACTURA'; fld_RecibosProveedor_RefreshID_PROVEEDOR = 'ID_PROVEEDOR'; @@ -124,19 +127,20 @@ const idx_RecibosProveedor_RefreshOTROS_GASTOS = 12; idx_RecibosProveedor_RefreshIMPORTE_TOTAL = 13; idx_RecibosProveedor_RefreshFECHA_FACTURA = 14; - idx_RecibosProveedor_RefreshFORMA_PAGO_FACTURA = 15; - idx_RecibosProveedor_RefreshIMPORTE_FACTURA = 16; - idx_RecibosProveedor_RefreshID_PROVEEDOR = 17; - idx_RecibosProveedor_RefreshNOMBRE_PROVEEDOR = 18; - idx_RecibosProveedor_RefreshNIF_CIF_PROVEEDOR = 19; - idx_RecibosProveedor_RefreshENTIDAD_PROVEEDOR = 20; - idx_RecibosProveedor_RefreshSUCURSAL_PROVEEDOR = 21; - idx_RecibosProveedor_RefreshDC_PROVEEDOR = 22; - idx_RecibosProveedor_RefreshCUENTA_PROVEEDOR = 23; - idx_RecibosProveedor_RefreshID_EMPRESA = 24; - idx_RecibosProveedor_RefreshFECHA_ALTA = 25; - idx_RecibosProveedor_RefreshFECHA_MODIFICACION = 26; - idx_RecibosProveedor_RefreshUSUARIO = 27; + idx_RecibosProveedor_RefreshREFERENCIA_FACTURA_PROV = 15; + idx_RecibosProveedor_RefreshFORMA_PAGO_FACTURA = 16; + idx_RecibosProveedor_RefreshIMPORTE_FACTURA = 17; + idx_RecibosProveedor_RefreshID_PROVEEDOR = 18; + idx_RecibosProveedor_RefreshNOMBRE_PROVEEDOR = 19; + idx_RecibosProveedor_RefreshNIF_CIF_PROVEEDOR = 20; + idx_RecibosProveedor_RefreshENTIDAD_PROVEEDOR = 21; + idx_RecibosProveedor_RefreshSUCURSAL_PROVEEDOR = 22; + idx_RecibosProveedor_RefreshDC_PROVEEDOR = 23; + idx_RecibosProveedor_RefreshCUENTA_PROVEEDOR = 24; + idx_RecibosProveedor_RefreshID_EMPRESA = 25; + idx_RecibosProveedor_RefreshFECHA_ALTA = 26; + idx_RecibosProveedor_RefreshFECHA_MODIFICACION = 27; + idx_RecibosProveedor_RefreshUSUARIO = 28; { PagosProveedor fields } fld_PagosProveedorID = 'ID'; @@ -169,7 +173,7 @@ const type { IRecibosProveedor } IRecibosProveedor = interface(IDAStronglyTypedDataTable) - ['{99BA6D6E-1ADC-4073-88CF-3F2D36511AA8}'] + ['{0CE8E633-6E52-482D-BB17-F2001AC7B6FE}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -201,6 +205,8 @@ type procedure SetIMPORTE_TOTALValue(const aValue: Currency); function GetFECHA_FACTURAValue: DateTime; procedure SetFECHA_FACTURAValue(const aValue: DateTime); + function GetREFERENCIA_FACTURA_PROVValue: String; + procedure SetREFERENCIA_FACTURA_PROVValue(const aValue: String); function GetFORMA_PAGO_FACTURAValue: String; procedure SetFORMA_PAGO_FACTURAValue(const aValue: String); function GetIMPORTE_FACTURAValue: Currency; @@ -245,6 +251,7 @@ type property OTROS_GASTOS: Currency read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue; property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue; + property REFERENCIA_FACTURA_PROV: String read GetREFERENCIA_FACTURA_PROVValue write SetREFERENCIA_FACTURA_PROVValue; property FORMA_PAGO_FACTURA: String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue; property IMPORTE_FACTURA: Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue; property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; @@ -295,6 +302,8 @@ type procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; function GetFECHA_FACTURAValue: DateTime; virtual; procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual; + function GetREFERENCIA_FACTURA_PROVValue: String; virtual; + procedure SetREFERENCIA_FACTURA_PROVValue(const aValue: String); virtual; function GetFORMA_PAGO_FACTURAValue: String; virtual; procedure SetFORMA_PAGO_FACTURAValue(const aValue: String); virtual; function GetIMPORTE_FACTURAValue: Currency; virtual; @@ -338,6 +347,7 @@ type property OTROS_GASTOS: Currency read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue; property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue; + property REFERENCIA_FACTURA_PROV: String read GetREFERENCIA_FACTURA_PROVValue write SetREFERENCIA_FACTURA_PROVValue; property FORMA_PAGO_FACTURA: String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue; property IMPORTE_FACTURA: Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue; property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; @@ -360,7 +370,7 @@ type { IRecibosProveedor_Refresh } IRecibosProveedor_Refresh = interface(IDAStronglyTypedDataTable) - ['{EDBDE565-F79D-4A6A-8D70-60F31438BCAD}'] + ['{233ADE04-FF94-41EE-BD3A-BDAE0997F3AC}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -392,6 +402,8 @@ type procedure SetIMPORTE_TOTALValue(const aValue: Currency); function GetFECHA_FACTURAValue: DateTime; procedure SetFECHA_FACTURAValue(const aValue: DateTime); + function GetREFERENCIA_FACTURA_PROVValue: String; + procedure SetREFERENCIA_FACTURA_PROVValue(const aValue: String); function GetFORMA_PAGO_FACTURAValue: String; procedure SetFORMA_PAGO_FACTURAValue(const aValue: String); function GetIMPORTE_FACTURAValue: Currency; @@ -436,6 +448,7 @@ type property OTROS_GASTOS: Currency read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue; property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue; + property REFERENCIA_FACTURA_PROV: String read GetREFERENCIA_FACTURA_PROVValue write SetREFERENCIA_FACTURA_PROVValue; property FORMA_PAGO_FACTURA: String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue; property IMPORTE_FACTURA: Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue; property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; @@ -486,6 +499,8 @@ type procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; function GetFECHA_FACTURAValue: DateTime; virtual; procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual; + function GetREFERENCIA_FACTURA_PROVValue: String; virtual; + procedure SetREFERENCIA_FACTURA_PROVValue(const aValue: String); virtual; function GetFORMA_PAGO_FACTURAValue: String; virtual; procedure SetFORMA_PAGO_FACTURAValue(const aValue: String); virtual; function GetIMPORTE_FACTURAValue: Currency; virtual; @@ -529,6 +544,7 @@ type property OTROS_GASTOS: Currency read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue; property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue; + property REFERENCIA_FACTURA_PROV: String read GetREFERENCIA_FACTURA_PROVValue write SetREFERENCIA_FACTURA_PROVValue; property FORMA_PAGO_FACTURA: String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue; property IMPORTE_FACTURA: Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue; property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; @@ -551,7 +567,7 @@ type { IPagosProveedor } IPagosProveedor = interface(IDAStronglyTypedDataTable) - ['{C80BF63F-80D2-4314-813F-8B4B676327C0}'] + ['{9CFCAC9F-4BF4-4D76-A613-413B38BC549C}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -809,6 +825,16 @@ begin DataTable.Fields[idx_RecibosProveedorFECHA_FACTURA].AsDateTime := aValue; end; +function TRecibosProveedorDataTableRules.GetREFERENCIA_FACTURA_PROVValue: String; +begin + result := DataTable.Fields[idx_RecibosProveedorREFERENCIA_FACTURA_PROV].AsString; +end; + +procedure TRecibosProveedorDataTableRules.SetREFERENCIA_FACTURA_PROVValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosProveedorREFERENCIA_FACTURA_PROV].AsString := aValue; +end; + function TRecibosProveedorDataTableRules.GetFORMA_PAGO_FACTURAValue: String; begin result := DataTable.Fields[idx_RecibosProveedorFORMA_PAGO_FACTURA].AsString; @@ -1101,6 +1127,16 @@ begin DataTable.Fields[idx_RecibosProveedor_RefreshFECHA_FACTURA].AsDateTime := aValue; end; +function TRecibosProveedor_RefreshDataTableRules.GetREFERENCIA_FACTURA_PROVValue: String; +begin + result := DataTable.Fields[idx_RecibosProveedor_RefreshREFERENCIA_FACTURA_PROV].AsString; +end; + +procedure TRecibosProveedor_RefreshDataTableRules.SetREFERENCIA_FACTURA_PROVValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosProveedor_RefreshREFERENCIA_FACTURA_PROV].AsString := aValue; +end; + function TRecibosProveedor_RefreshDataTableRules.GetFORMA_PAGO_FACTURAValue: String; begin result := DataTable.Fields[idx_RecibosProveedor_RefreshFORMA_PAGO_FACTURA].AsString; diff --git a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas index d679d2bf..1958c892 100644 --- a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas +++ b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas @@ -9,14 +9,14 @@ 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_RecibosProveedorDelta = '{D18482E7-4712-405B-949D-50EF9971E826}'; - RID_RecibosProveedor_RefreshDelta = '{E5A7D96D-DD67-458C-89D6-A82C366301D4}'; - RID_PagosProveedorDelta = '{A03A2B25-848C-486D-AA8E-476068191539}'; + RID_RecibosProveedorDelta = '{D758EEB0-54E0-464F-9706-C3B67B7B979B}'; + RID_RecibosProveedor_RefreshDelta = '{A892FE0C-5CDC-4ECA-BCA0-993A28E283E1}'; + RID_PagosProveedorDelta = '{DEFC89B6-401B-4DD7-9BDD-D060C059ACCB}'; type { IRecibosProveedorDelta } IRecibosProveedorDelta = interface(IRecibosProveedor) - ['{D18482E7-4712-405B-949D-50EF9971E826}'] + ['{D758EEB0-54E0-464F-9706-C3B67B7B979B}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldREFERENCIAValue : String; @@ -33,6 +33,7 @@ type function GetOldOTROS_GASTOSValue : Currency; function GetOldIMPORTE_TOTALValue : Currency; function GetOldFECHA_FACTURAValue : DateTime; + function GetOldREFERENCIA_FACTURA_PROVValue : String; function GetOldFORMA_PAGO_FACTURAValue : String; function GetOldIMPORTE_FACTURAValue : Currency; function GetOldID_PROVEEDORValue : Integer; @@ -63,6 +64,7 @@ type property OldOTROS_GASTOS : Currency read GetOldOTROS_GASTOSValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue; + property OldREFERENCIA_FACTURA_PROV : String read GetOldREFERENCIA_FACTURA_PROVValue; property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue; property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue; property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; @@ -128,6 +130,9 @@ type function GetFECHA_FACTURAValue: DateTime; virtual; function GetOldFECHA_FACTURAValue: DateTime; virtual; procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual; + function GetREFERENCIA_FACTURA_PROVValue: String; virtual; + function GetOldREFERENCIA_FACTURA_PROVValue: String; virtual; + procedure SetREFERENCIA_FACTURA_PROVValue(const aValue: String); virtual; function GetFORMA_PAGO_FACTURAValue: String; virtual; function GetOldFORMA_PAGO_FACTURAValue: String; virtual; procedure SetFORMA_PAGO_FACTURAValue(const aValue: String); virtual; @@ -199,6 +204,8 @@ type property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property FECHA_FACTURA : DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue; property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue; + property REFERENCIA_FACTURA_PROV : String read GetREFERENCIA_FACTURA_PROVValue write SetREFERENCIA_FACTURA_PROVValue; + property OldREFERENCIA_FACTURA_PROV : String read GetOldREFERENCIA_FACTURA_PROVValue; property FORMA_PAGO_FACTURA : String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue; property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue; property IMPORTE_FACTURA : Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue; @@ -234,7 +241,7 @@ type { IRecibosProveedor_RefreshDelta } IRecibosProveedor_RefreshDelta = interface(IRecibosProveedor_Refresh) - ['{E5A7D96D-DD67-458C-89D6-A82C366301D4}'] + ['{A892FE0C-5CDC-4ECA-BCA0-993A28E283E1}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldREFERENCIAValue : String; @@ -251,6 +258,7 @@ type function GetOldOTROS_GASTOSValue : Currency; function GetOldIMPORTE_TOTALValue : Currency; function GetOldFECHA_FACTURAValue : DateTime; + function GetOldREFERENCIA_FACTURA_PROVValue : String; function GetOldFORMA_PAGO_FACTURAValue : String; function GetOldIMPORTE_FACTURAValue : Currency; function GetOldID_PROVEEDORValue : Integer; @@ -281,6 +289,7 @@ type property OldOTROS_GASTOS : Currency read GetOldOTROS_GASTOSValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue; + property OldREFERENCIA_FACTURA_PROV : String read GetOldREFERENCIA_FACTURA_PROVValue; property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue; property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue; property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; @@ -346,6 +355,9 @@ type function GetFECHA_FACTURAValue: DateTime; virtual; function GetOldFECHA_FACTURAValue: DateTime; virtual; procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual; + function GetREFERENCIA_FACTURA_PROVValue: String; virtual; + function GetOldREFERENCIA_FACTURA_PROVValue: String; virtual; + procedure SetREFERENCIA_FACTURA_PROVValue(const aValue: String); virtual; function GetFORMA_PAGO_FACTURAValue: String; virtual; function GetOldFORMA_PAGO_FACTURAValue: String; virtual; procedure SetFORMA_PAGO_FACTURAValue(const aValue: String); virtual; @@ -417,6 +429,8 @@ type property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property FECHA_FACTURA : DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue; property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue; + property REFERENCIA_FACTURA_PROV : String read GetREFERENCIA_FACTURA_PROVValue write SetREFERENCIA_FACTURA_PROVValue; + property OldREFERENCIA_FACTURA_PROV : String read GetOldREFERENCIA_FACTURA_PROVValue; property FORMA_PAGO_FACTURA : String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue; property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue; property IMPORTE_FACTURA : Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue; @@ -452,7 +466,7 @@ type { IPagosProveedorDelta } IPagosProveedorDelta = interface(IPagosProveedor) - ['{A03A2B25-848C-486D-AA8E-476068191539}'] + ['{DEFC89B6-401B-4DD7-9BDD-D060C059ACCB}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBOValue : Integer; @@ -797,6 +811,21 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_FACTURA] := aValue; end; +function TRecibosProveedorBusinessProcessorRules.GetREFERENCIA_FACTURA_PROVValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_FACTURA_PROV]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldREFERENCIA_FACTURA_PROVValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorREFERENCIA_FACTURA_PROV]; +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetREFERENCIA_FACTURA_PROVValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_FACTURA_PROV] := aValue; +end; + function TRecibosProveedorBusinessProcessorRules.GetFORMA_PAGO_FACTURAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFORMA_PAGO_FACTURA]; @@ -1229,6 +1258,21 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshFECHA_FACTURA] := aValue; end; +function TRecibosProveedor_RefreshBusinessProcessorRules.GetREFERENCIA_FACTURA_PROVValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshREFERENCIA_FACTURA_PROV]; +end; + +function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldREFERENCIA_FACTURA_PROVValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshREFERENCIA_FACTURA_PROV]; +end; + +procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetREFERENCIA_FACTURA_PROVValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshREFERENCIA_FACTURA_PROV] := aValue; +end; + function TRecibosProveedor_RefreshBusinessProcessorRules.GetFORMA_PAGO_FACTURAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshFORMA_PAGO_FACTURA]; diff --git a/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm b/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm index 217e93c3..498c0834 100644 --- a/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm +++ b/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm @@ -26,12 +26,13 @@ object srvRecibosProveedor: TsrvRecibosProveedor ' SITUACION,'#10' ID_FACTURA,'#10' ID_REMESA,'#10' REFEREN' + 'CIA_REMESA,'#10' FECHA_EMISION,'#10' FECHA_VENCIMIENTO,'#10' ' + ' DESCRIPCION,'#10' OBSERVACIONES,'#10' IMPORTE,'#10' OTR' + - 'OS_GASTOS,'#10' IMPORTE_TOTAL,'#10' FECHA_FACTURA,'#10' FO' + - 'RMA_PAGO_FACTURA,'#10' IMPORTE_FACTURA,'#10' ID_PROVEEDOR,'#10' ' + - ' NOMBRE_PROVEEDOR,'#10' NIF_CIF_PROVEEDOR,'#10' ENTIDAD' + - '_PROVEEDOR,'#10' SUCURSAL_PROVEEDOR,'#10' DC_PROVEEDOR,'#10' ' + - ' CUENTA_PROVEEDOR,'#10' ID_EMPRESA,'#10' FECHA_ALTA,'#10' ' + - ' FECHA_MODIFICACION,'#10' USUARIO'#10#10'FROM V_RECIBOS_PROVEEDOR' + 'OS_GASTOS,'#10' IMPORTE_TOTAL,'#10' FECHA_FACTURA,'#10' RE' + + 'FERENCIA_FACTURA_PROV,'#10' FORMA_PAGO_FACTURA,'#10' IMPORTE' + + '_FACTURA,'#10' ID_PROVEEDOR,'#10' NOMBRE_PROVEEDOR,'#10' N' + + 'IF_CIF_PROVEEDOR,'#10' ENTIDAD_PROVEEDOR,'#10' SUCURSAL_PROV' + + 'EEDOR,'#10' DC_PROVEEDOR,'#10' CUENTA_PROVEEDOR,'#10' ID_E' + + 'MPRESA,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USU' + + 'ARIO'#10#10'FROM V_RECIBOS_PROVEEDOR' StatementType = stSQL ColumnMappings = < item @@ -145,6 +146,10 @@ object srvRecibosProveedor: TsrvRecibosProveedor item DatasetField = 'REFERENCIA_REMESA' TableField = 'REFERENCIA_REMESA' + end + item + DatasetField = 'REFERENCIA_FACTURA_PROV' + TableField = 'REFERENCIA_FACTURA_PROV' end> end> Name = 'RecibosProveedor' @@ -175,8 +180,7 @@ object srvRecibosProveedor: TsrvRecibosProveedor DataType = datString Size = 255 BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify + DictionaryEntry = 'RecibosProveedor_REFERENCIA_PROVEEDOR' InPrimaryKey = False Calculated = False Lookup = False @@ -207,8 +211,7 @@ object srvRecibosProveedor: TsrvRecibosProveedor Name = 'ID_REMESA' DataType = datInteger BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify + DictionaryEntry = 'RecibosProveedor_ID_REMESA' InPrimaryKey = False Calculated = False Lookup = False @@ -219,8 +222,7 @@ object srvRecibosProveedor: TsrvRecibosProveedor DataType = datString Size = 255 BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify + DictionaryEntry = 'RecibosProveedor_REFERENCIA_REMESA' InPrimaryKey = False Calculated = False Lookup = False @@ -308,6 +310,17 @@ object srvRecibosProveedor: TsrvRecibosProveedor Lookup = False LookupCache = False end + item + Name = 'REFERENCIA_FACTURA_PROV' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DictionaryEntry = 'RecibosProveedor_REFERENCIA_FACTURA_PROV' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end item Name = 'FORMA_PAGO_FACTURA' DataType = datString @@ -467,13 +480,13 @@ object srvRecibosProveedor: TsrvRecibosProveedor ' SITUACION,'#10' ID_FACTURA,'#10' ID_REMESA,'#10' REFEREN' + 'CIA_REMESA,'#10' FECHA_EMISION,'#10' FECHA_VENCIMIENTO,'#10' ' + ' DESCRIPCION,'#10' OBSERVACIONES,'#10' IMPORTE,'#10' OTR' + - 'OS_GASTOS,'#10' IMPORTE_TOTAL,'#10' FECHA_FACTURA,'#10' FO' + - 'RMA_PAGO_FACTURA,'#10' IMPORTE_FACTURA,'#10' ID_PROVEEDOR,'#10' ' + - ' NOMBRE_PROVEEDOR,'#10' NIF_CIF_PROVEEDOR,'#10' ENTIDAD' + - '_PROVEEDOR,'#10' SUCURSAL_PROVEEDOR,'#10' DC_PROVEEDOR,'#10' ' + - ' CUENTA_PROVEEDOR,'#10' ID_EMPRESA,'#10' FECHA_ALTA,'#10' ' + - ' FECHA_MODIFICACION,'#10' USUARIO'#10#10'FROM V_RECIBOS_PROVEEDOR'#10'W' + - 'HERE'#10' ID = :ID' + 'OS_GASTOS,'#10' IMPORTE_TOTAL,'#10' FECHA_FACTURA,'#10' RE' + + 'FERENCIA_FACTURA_PROV,'#10' FORMA_PAGO_FACTURA,'#10' IMPORTE' + + '_FACTURA,'#10' ID_PROVEEDOR,'#10' NOMBRE_PROVEEDOR,'#10' N' + + 'IF_CIF_PROVEEDOR,'#10' ENTIDAD_PROVEEDOR,'#10' SUCURSAL_PROV' + + 'EEDOR,'#10' DC_PROVEEDOR,'#10' CUENTA_PROVEEDOR,'#10' ID_E' + + 'MPRESA,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USU' + + 'ARIO'#10#10'FROM V_RECIBOS_PROVEEDOR'#10'WHERE'#10' ID = :ID' StatementType = stSQL ColumnMappings = < item @@ -587,6 +600,10 @@ object srvRecibosProveedor: TsrvRecibosProveedor item DatasetField = 'REFERENCIA_REMESA' TableField = 'REFERENCIA_REMESA' + end + item + DatasetField = 'REFERENCIA_FACTURA_PROV' + TableField = 'REFERENCIA_FACTURA_PROV' end> end> Name = 'RecibosProveedor_Refresh' @@ -750,6 +767,17 @@ object srvRecibosProveedor: TsrvRecibosProveedor Lookup = False LookupCache = False end + item + Name = 'REFERENCIA_FACTURA_PROV' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DictionaryEntry = 'RecibosProveedor_REFERENCIA_FACTURA_PROV' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end item Name = 'FORMA_PAGO_FACTURA' DataType = datString @@ -1959,6 +1987,41 @@ object srvRecibosProveedor: TsrvRecibosProveedor DisplayWidth = 0 DisplayLabel = 'USUARIO' Alignment = taLeftJustify + end + item + Name = 'RecibosProveedor_REFERENCIA_PROVEEDOR' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'REFERENCIA_PROVEEDOR' + Alignment = taLeftJustify + end + item + Name = 'RecibosProveedor_ID_REMESA' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'ID_REMESA' + Alignment = taLeftJustify + end + item + Name = 'RecibosProveedor_REFERENCIA_REMESA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'REFERENCIA_REMESA' + Alignment = taLeftJustify + end + item + Name = 'RecibosProveedor_REFERENCIA_FACTURA_PROV' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Ref. factura prov.' + Alignment = taLeftJustify end> Left = 48 Top = 152 diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm index 0206aaeb..5786ab94 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm +++ b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm @@ -3,6 +3,7 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor ClientHeight = 707 ClientWidth = 691 OnClose = CustomEditorClose + ExplicitTop = -110 ExplicitWidth = 699 ExplicitHeight = 741 PixelsPerInch = 96 @@ -62,7 +63,7 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor Left = 0 Top = 0 Width = 683 - Height = 337 + Height = 350 Align = alTop Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -73,102 +74,55 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor TabOrder = 0 ReadOnly = False ExplicitWidth = 683 - ExplicitHeight = 337 inherited dxLayoutControl1: TdxLayoutControl Width = 683 - Height = 337 ExplicitWidth = 683 ExplicitHeight = 337 - inherited Bevel1: TBevel - Width = 210 - ExplicitWidth = 210 - end - inherited eReferencia: TcxDBTextEdit - ExplicitWidth = 50 - Width = 50 - end - inherited eSituacion: TcxDBTextEdit - ExplicitWidth = 216 - Width = 216 - end - inherited edtFechaVencimiento: TcxDBDateEdit - ExplicitWidth = 216 - Width = 216 - end + DesignSize = ( + 683 + 350) inherited memObservaciones: TcxDBMemo - Left = 343 - ExplicitLeft = 343 - ExplicitWidth = 274 - Width = 274 - end - inherited eImporte: TcxDBCurrencyEdit - ExplicitWidth = 194 - Width = 194 + Left = 345 + ExplicitLeft = 345 end inherited eFechaEmision: TcxDBTextEdit - Left = 419 - ExplicitLeft = 419 - ExplicitWidth = 20 - Width = 20 + Left = 442 + ExplicitLeft = 442 end inherited eFormaPago: TcxDBTextEdit - Left = 419 - ExplicitLeft = 419 - ExplicitWidth = 42 - Width = 42 + Left = 442 + ExplicitLeft = 442 end inherited eImporteTotal: TcxDBCurrencyEdit - Left = 419 + Left = 442 Style.IsFontAssigned = True - ExplicitLeft = 419 - ExplicitWidth = 182 - Width = 182 + ExplicitLeft = 442 end inherited eNombreCliente: TcxDBTextEdit - Left = 419 - ExplicitLeft = 419 - ExplicitWidth = 171 - Width = 171 + Left = 442 + ExplicitLeft = 442 end inherited eNifCif: TcxDBTextEdit - Left = 419 - ExplicitLeft = 419 + Left = 442 + ExplicitLeft = 442 ExplicitWidth = 255 Width = 255 end inherited eEntidad: TcxDBTextEdit - Left = 419 - ExplicitLeft = 419 - ExplicitWidth = 90 - Width = 90 + Left = 442 + ExplicitLeft = 442 end inherited eSucursal: TcxDBTextEdit - Left = 541 - ExplicitLeft = 541 - ExplicitWidth = 75 - Width = 75 + Left = 545 + ExplicitLeft = 545 end inherited eDC: TcxDBTextEdit - Left = 628 - ExplicitLeft = 628 + Left = 611 + ExplicitLeft = 611 end inherited eCuenta: TcxDBTextEdit - Left = 419 - ExplicitLeft = 419 - ExplicitWidth = 83 - Width = 83 - end - inherited eRemesa: TcxDBTextEdit - ExplicitWidth = 113 - Width = 113 - end - inherited eOtrosGastos: TcxDBCurrencyEdit - ExplicitWidth = 111 - Width = 111 - end - inherited eImporteTotalRecibo: TcxCurrencyEdit - ExplicitWidth = 121 - Width = 121 + Left = 442 + ExplicitLeft = 442 end inherited edtFechaEmision: TcxDBDateEdit ExplicitWidth = 97 @@ -178,13 +132,17 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor ExplicitWidth = 129 Width = 129 end + inherited rReferenciaFacturaProv: TcxDBTextEdit + Left = 442 + ExplicitLeft = 442 + end end end inline frViewPagosProveedor1: TfrViewPagosProveedor Left = 0 - Top = 337 + Top = 350 Width = 683 - Height = 247 + Height = 234 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -199,7 +157,7 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor ExplicitHeight = 247 inherited dxLayoutControl1: TdxLayoutControl Width = 683 - Height = 247 + Height = 234 ExplicitWidth = 683 ExplicitHeight = 247 inherited ListaPagosProveedor: TcxGrid diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm index 022fd973..7db90413 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm +++ b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm @@ -1,21 +1,22 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor Width = 690 - Height = 343 + Height = 350 ExplicitWidth = 690 - ExplicitHeight = 343 + ExplicitHeight = 350 object dxLayoutControl1: TdxLayoutControl Left = 0 Top = 0 Width = 690 - Height = 343 + Height = 350 Align = alClient ParentBackground = True TabOrder = 0 AutoContentSizes = [acsWidth, acsHeight] LookAndFeel = dxLayoutOfficeLookAndFeel1 + ExplicitHeight = 343 DesignSize = ( 690 - 343) + 350) object Bevel1: TBevel Left = 136 Top = 270 @@ -98,8 +99,8 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor Width = 216 end object memObservaciones: TcxDBMemo - Left = 435 - Top = 272 + Left = 397 + Top = 299 Anchors = [akLeft, akTop, akRight, akBottom] DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataSource = DADataSource @@ -111,7 +112,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 18 + TabOrder = 19 Height = 49 Width = 274 end @@ -141,8 +142,8 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor Width = 194 end object eFechaEmision: TcxDBTextEdit - Left = 511 - Top = 30 + Left = 494 + Top = 57 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_FACTURA' DataBinding.DataSource = DADataSource @@ -163,12 +164,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 9 + TabOrder = 10 Width = 20 end object eFormaPago: TcxDBTextEdit - Left = 511 - Top = 57 + Left = 494 + Top = 84 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FORMA_PAGO_FACTURA' DataBinding.DataSource = DADataSource @@ -189,12 +190,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 10 + TabOrder = 11 Width = 42 end object eImporteTotal: TcxDBCurrencyEdit - Left = 511 - Top = 84 + Left = 494 + Top = 111 AutoSize = False DataBinding.DataField = 'IMPORTE_FACTURA' DataBinding.DataSource = DADataSource @@ -220,13 +221,13 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor StyleDisabled.TextColor = clWindowText StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 11 + TabOrder = 12 Height = 21 Width = 182 end object eNombreCliente: TcxDBTextEdit - Left = 511 - Top = 167 + Left = 494 + Top = 194 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'NOMBRE_PROVEEDOR' DataBinding.DataSource = DADataSource @@ -247,12 +248,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 13 + TabOrder = 14 Width = 171 end object eNifCif: TcxDBTextEdit - Left = 511 - Top = 140 + Left = 494 + Top = 167 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'NIF_CIF_PROVEEDOR' DataBinding.DataSource = DADataSource @@ -273,12 +274,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 12 + TabOrder = 13 Width = 147 end object eEntidad: TcxDBTextEdit - Left = 511 - Top = 194 + Left = 494 + Top = 221 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'ENTIDAD_PROVEEDOR' DataBinding.DataSource = DADataSource @@ -299,12 +300,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 14 + TabOrder = 15 Width = 90 end object eSucursal: TcxDBTextEdit - Left = 586 - Top = 194 + Left = 569 + Top = 221 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'SUCURSAL_PROVEEDOR' DataBinding.DataSource = DADataSource @@ -325,12 +326,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 15 + TabOrder = 16 Width = 75 end object eDC: TcxDBTextEdit - Left = 635 - Top = 194 + Left = 618 + Top = 221 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'DC_PROVEEDOR' DataBinding.DataSource = DADataSource @@ -351,12 +352,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 16 + TabOrder = 17 Width = 33 end object eCuenta: TcxDBTextEdit - Left = 511 - Top = 221 + Left = 494 + Top = 248 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'CUENTA_PROVEEDOR' DataBinding.DataSource = DADataSource @@ -377,7 +378,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 17 + TabOrder = 18 Width = 83 end object eRemesa: TcxDBTextEdit @@ -495,6 +496,32 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor TabOrder = 1 Width = 287 end + object rReferenciaFacturaProv: TcxDBTextEdit + Left = 494 + Top = 30 + Anchors = [akLeft, akTop, akRight] + DataBinding.DataField = 'REFERENCIA_FACTURA_PROV' + DataBinding.DataSource = DADataSource + Enabled = False + Properties.ReadOnly = False + Properties.ValidateOnEnter = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Color = clInfoBk + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + StyleDisabled.Color = clMenuBar + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 9 + Width = 157 + end object dxLayoutControl1Group_Root: TdxLayoutGroup ShowCaption = False Hidden = True @@ -581,6 +608,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor ShowBorder = False object dxLayoutControl1Group5: TdxLayoutGroup Caption = 'Datos de la factura' + object dxLayoutControl1Item21: TdxLayoutItem + Caption = 'Ref. factura prov.:' + Control = rReferenciaFacturaProv + ControlOptions.ShowBorder = False + end object dxLayoutControl1Item7: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahClient diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas index c4bae6c5..d74a5e28 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas +++ b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas @@ -73,6 +73,8 @@ type dxLayoutControl1Group3: TdxLayoutGroup; dxLayoutControl1Item20: TdxLayoutItem; eReferenciaProveedor: TcxDBTextEdit; + dxLayoutControl1Item21: TdxLayoutItem; + rReferenciaFacturaProv: TcxDBTextEdit; procedure eImportePropertiesEditValueChanged(Sender: TObject); private FRecibo : IBizRecibosProveedor; diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm index 7c233255..80390a0b 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm +++ b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm @@ -43,6 +43,10 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor DataBinding.FieldName = 'REFERENCIA_PROVEEDOR' Width = 47 end + object cxGridViewREFERENCIA_FACTURA_PROV: TcxGridDBColumn + Caption = 'Ref. factura prov.' + DataBinding.FieldName = 'REFERENCIA_FACTURA_PROV' + end object cxGridViewSITUACION: TcxGridDBColumn Caption = 'Situaci'#243'n' DataBinding.FieldName = 'SITUACION' diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.pas b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.pas index ff6f96ca..f4c81f77 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.pas +++ b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.pas @@ -48,6 +48,7 @@ type actProveedor: TAction; TBXItem2: TTBXItem; TBXSeparatorItem1: TTBXSeparatorItem; + cxGridViewREFERENCIA_FACTURA_PROV: TcxGridDBColumn; procedure cxGridViewICONOCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); diff --git a/Source/Modulos/Remesas de proveedor/Reports/uRptRemesasProveedor_Server.dfm b/Source/Modulos/Remesas de proveedor/Reports/uRptRemesasProveedor_Server.dfm index e5dfc6e6..ce33707f 100644 --- a/Source/Modulos/Remesas de proveedor/Reports/uRptRemesasProveedor_Server.dfm +++ b/Source/Modulos/Remesas de proveedor/Reports/uRptRemesasProveedor_Server.dfm @@ -525,14 +525,15 @@ object RptRemesasProveedor: TRptRemesasProveedor 'A_REMESA,'#10' V_RECIBOS_PROVEEDOR.FECHA_VENCIMIENTO,'#10' V_RECIB' + 'OS_PROVEEDOR.DESCRIPCION,'#10' V_RECIBOS_PROVEEDOR.OBSERVACIONES,' + #10' V_RECIBOS_PROVEEDOR.IMPORTE,'#10' V_RECIBOS_PROVEEDOR.FECHA_' + - 'FACTURA,'#10' V_RECIBOS_PROVEEDOR.FORMA_PAGO_FACTURA,'#10' V_RECIB' + - 'OS_PROVEEDOR.IMPORTE_FACTURA,'#10' V_RECIBOS_PROVEEDOR.ID_EMPRESA' + - ','#10' V_RECIBOS_PROVEEDOR.NOMBRE_PROVEEDOR,'#10' V_RECIBOS_PROVEE' + - 'DOR.NIF_CIF_PROVEEDOR,'#10' V_RECIBOS_PROVEEDOR.ENTIDAD_PROVEEDOR' + - ','#10' V_RECIBOS_PROVEEDOR.SUCURSAL_PROVEEDOR,'#10' V_RECIBOS_PROV' + - 'EEDOR.DC_PROVEEDOR,'#10' V_RECIBOS_PROVEEDOR.CUENTA_PROVEEDOR'#10#10#10'F' + - 'ROM V_RECIBOS_PROVEEDOR'#10'WHERE V_RECIBOS_PROVEEDOR.ID_REMESA = :I' + - 'D_REMESA'#10'ORDER BY FECHA_VENCIMIENTO' + 'FACTURA,'#10' V_RECIBOS_PROVEEDOR.REFERENCIA_FACTURA_PROV,'#10' V_' + + 'RECIBOS_PROVEEDOR.FORMA_PAGO_FACTURA,'#10' V_RECIBOS_PROVEEDOR.IM' + + 'PORTE_FACTURA,'#10' V_RECIBOS_PROVEEDOR.ID_EMPRESA,'#10' V_RECIBOS' + + '_PROVEEDOR.NOMBRE_PROVEEDOR,'#10' V_RECIBOS_PROVEEDOR.NIF_CIF_PRO' + + 'VEEDOR,'#10' V_RECIBOS_PROVEEDOR.ENTIDAD_PROVEEDOR,'#10' V_RECIBOS' + + '_PROVEEDOR.SUCURSAL_PROVEEDOR,'#10' V_RECIBOS_PROVEEDOR.DC_PROVEE' + + 'DOR,'#10' V_RECIBOS_PROVEEDOR.CUENTA_PROVEEDOR'#10#10#10'FROM V_RECIBOS_P' + + 'ROVEEDOR'#10'WHERE V_RECIBOS_PROVEEDOR.ID_REMESA = :ID_REMESA'#10'ORDER ' + + 'BY FECHA_VENCIMIENTO' StatementType = stSQL ColumnMappings = < item @@ -618,6 +619,10 @@ object RptRemesasProveedor: TRptRemesasProveedor item DatasetField = 'CUENTA_PROVEEDOR' TableField = 'CUENTA_PROVEEDOR' + end + item + DatasetField = 'REFERENCIA_FACTURA_PROV' + TableField = 'REFERENCIA_FACTURA_PROV' end> end> Name = 'Informe_Detalles' @@ -760,6 +765,18 @@ object RptRemesasProveedor: TRptRemesasProveedor Lookup = False LookupCache = False end + item + Name = 'REFERENCIA_FACTURA_PROV' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end item Name = 'FORMA_PAGO_FACTURA' DataType = datString @@ -890,7 +907,7 @@ object RptRemesasProveedor: TRptRemesasProveedor PreviewOptions.Zoom = 1.000000000000000000 PrintOptions.Printer = 'Default' ReportOptions.CreateDate = 37871.995398692100000000 - ReportOptions.LastChange = 39252.773046331020000000 + ReportOptions.LastChange = 39267.734660185180000000 ReportOptions.VersionBuild = '1' ReportOptions.VersionMajor = '12' ReportOptions.VersionMinor = '13' diff --git a/Source/Modulos/Remesas de proveedor/Reports/uRptRemesasProveedor_Server.pas b/Source/Modulos/Remesas de proveedor/Reports/uRptRemesasProveedor_Server.pas index 968897ab..a39a8caa 100644 --- a/Source/Modulos/Remesas de proveedor/Reports/uRptRemesasProveedor_Server.pas +++ b/Source/Modulos/Remesas de proveedor/Reports/uRptRemesasProveedor_Server.pas @@ -25,9 +25,9 @@ type frxChartObject1: TfrxChartObject; frxDBCabecera: TfrxDBDataset; frxDBDetalles: TfrxDBDataset; + frxReport: TfrxReport; schReport: TDASchema; DataDictionary: TDADataDictionary; - frxReport: TfrxReport; procedure DataModuleCreate(Sender: TObject); private FConnection: IDAConnection;