diff --git a/Database/Anterior/VISTAS.SQL b/Database/Anterior/VISTAS.SQL index df73a182..9470084c 100644 --- a/Database/Anterior/VISTAS.SQL +++ b/Database/Anterior/VISTAS.SQL @@ -446,7 +446,7 @@ SELECT ALBARANES_CLIENTE.REFERENCIA, ALBARANES_CLIENTE.REFERENCIA_CLIENTE, CASE WHEN (ALBARANES_CLIENTE.IMPORTE_TOTAL < 0) THEN 'D' ELSE 'A' END AS TIPO, - V_ALB_CLI_SITUACION.SITUACION, + TRIM(V_ALB_CLI_SITUACION.SITUACION), ALBARANES_CLIENTE.ID_ALMACEN, ALMACENES.NOMBRE AS NOMBRE_ALMACEN, ALBARANES_CLIENTE.ID_PEDIDO, @@ -490,8 +490,8 @@ FROM /*FACTURAS Y RECIBOS DE CLIENTE*/ DROP VIEW V_FACTURAS_CLIENTE; DROP VIEW V_FAC_CLI_SITUACION; -DROP VIEW V_REC_FAC_CLI_COBRADOS DROP VIEW V_RECIBOS_CLIENTE; +DROP VIEW V_REC_FAC_CLI_COBRADOS; DROP VIEW V_REC_FAC_CLI; DROP VIEW V_REC_CLI_SITUACION; DROP VIEW V_REC_CLI_COMPENSADOS; @@ -567,8 +567,8 @@ SELECT RECIBOS_CLIENTE.ID, RECIBOS_CLIENTE.REFERENCIA, CASE WHEN RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO IS NULL - THEN V_REC_CLI_SITUACION.SITUACION - ELSE RECIBO_COMPENSADO2.SITUACION + THEN TRIM(V_REC_CLI_SITUACION.SITUACION) + ELSE TRIM(RECIBO_COMPENSADO2.SITUACION) END, RECIBOS_CLIENTE.ID_FACTURA, RECIBOS_CLIENTE.ID_REMESA, REMESAS_CLIENTE.REFERENCIA as REFERENCIA_REMESA, @@ -614,7 +614,7 @@ AS SELECT RECIBOS_CLIENTE.ID_FACTURA, COUNT(V_REC_CLI_SITUACION.ID_RECIBO) FROM V_REC_CLI_SITUACION LEFT JOIN RECIBOS_CLIENTE ON (RECIBOS_CLIENTE.ID = V_REC_CLI_SITUACION.ID_RECIBO) -WHERE (V_REC_CLI_SITUACION.SITUACION = 'COBRADO') +WHERE (TRIM(V_REC_CLI_SITUACION.SITUACION) = 'COBRADO') GROUP BY RECIBOS_CLIENTE.ID_FACTURA ; @@ -680,7 +680,7 @@ SELECT FACTURAS_CLIENTE.ID, CASE WHEN (FACTURAS_CLIENTE.IMPORTE_TOTAL < 0) THEN 'A' ELSE 'F' END AS TIPO, FACTURAS_CLIENTE.ID_COMISION_LIQUIDADA, FACTURAS_CLIENTE.FECHA_FACTURA, - V_FAC_CLI_SITUACION.SITUACION, + TRIM(V_FAC_CLI_SITUACION.SITUACION), FACTURAS_CLIENTE.BASE_IMPONIBLE, FACTURAS_CLIENTE.DESCUENTO, FACTURAS_CLIENTE.IMPORTE_DESCUENTO, @@ -799,8 +799,8 @@ SELECT RECIBOS_PROVEEDOR.ID, RECIBOS_PROVEEDOR.REFERENCIA_PROVEEDOR, CASE WHEN RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO IS NULL - THEN V_REC_PRO_SITUACION.SITUACION - ELSE RECIBO_COMPENSADO2.SITUACION + THEN TRIM(V_REC_PRO_SITUACION.SITUACION) + ELSE TRIM(RECIBO_COMPENSADO2.SITUACION) END, RECIBOS_PROVEEDOR.ID_FACTURA, RECIBOS_PROVEEDOR.ID_REMESA, REMESAS_PROVEEDOR.REFERENCIA as REFERENCIA_REMESA, @@ -847,7 +847,7 @@ AS SELECT RECIBOS_PROVEEDOR.ID_FACTURA, COUNT(V_REC_PRO_SITUACION.ID_RECIBO) FROM V_REC_PRO_SITUACION LEFT JOIN RECIBOS_PROVEEDOR ON (RECIBOS_PROVEEDOR.ID = V_REC_PRO_SITUACION.ID_RECIBO) -WHERE (V_REC_PRO_SITUACION.SITUACION = 'PAGADO') +WHERE (TRIM(V_REC_PRO_SITUACION.SITUACION) = 'PAGADO') GROUP BY RECIBOS_PROVEEDOR.ID_FACTURA; @@ -912,7 +912,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, - V_FAC_PRO_SITUACION.SITUACION, + TRIM(V_FAC_PRO_SITUACION.SITUACION), FACTURAS_PROVEEDOR.BASE_IMPONIBLE, FACTURAS_PROVEEDOR.DESCUENTO, FACTURAS_PROVEEDOR.IMPORTE_DESCUENTO, @@ -1149,7 +1149,7 @@ SELECT PEDIDOS_PROVEEDOR.ID_PROVEEDOR, V_PROVEEDORES.NOMBRE, PEDIDOS_PROVEEDOR.REFERENCIA, - V_PED_PROV_SITUACION.SITUACION, + TRIM(V_PED_PROV_SITUACION.SITUACION), PEDIDOS_PROVEEDOR.FECHA_ENVIO, PEDIDOS_PROVEEDOR.FECHA_PEDIDO, PEDIDOS_PROVEEDOR.FECHA_CONFIRMACION, diff --git a/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm b/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm index 1671f680..9b00d423 100644 --- a/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm +++ b/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm @@ -69,9 +69,8 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor item Name = 'SITUACION' DataType = datString - Size = 255 - DisplayLabel = 'Situaci'#195#179'n' - DictionaryEntry = 'FacturasProveedor_SITUACION' + Size = 19 + DisplayLabel = 'Situaci'#243'n' end item Name = 'BASE_IMPONIBLE' @@ -157,14 +156,14 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor Name = 'CALLE' DataType = datString Size = 150 - DisplayLabel = 'Direcci'#195#179'n' + DisplayLabel = 'Direcci'#243'n' DictionaryEntry = 'FacturasProveedor_CALLE' end item Name = 'POBLACION' DataType = datString Size = 150 - DisplayLabel = 'Poblaci'#195#179'n' + DisplayLabel = 'Poblaci'#243'n' DictionaryEntry = 'FacturasProveedor_POBLACION' end item @@ -178,7 +177,7 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor Name = 'CODIGO_POSTAL' DataType = datString Size = 10 - DisplayLabel = 'C'#195#179'd. postal' + DisplayLabel = 'C'#243'd. postal' DictionaryEntry = 'FacturasProveedor_CODIGO_POSTAL' end item @@ -206,7 +205,7 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor item Name = 'RECARGO_EQUIVALENCIA' DataType = datSmallInt - DisplayLabel = #194#191'Con R.E.?' + DisplayLabel = #191'Con R.E.?' DictionaryEntry = 'FacturasProveedor_RECARGO_EQUIVALENCIA' end item @@ -264,7 +263,7 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor item Name = 'POSICION' DataType = datInteger - DisplayLabel = 'Posici'#195#179'n' + DisplayLabel = 'Posici'#243'n' DictionaryEntry = 'FacturasProveedor_Detalles_POSICION' end item @@ -304,7 +303,7 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor item Name = 'VISIBLE' DataType = datSmallInt - DisplayLabel = #194#191'Visible?' + DisplayLabel = #191'Visible?' DictionaryEntry = 'FacturasProveedor_Detalles_VISIBLE' end item diff --git a/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj b/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj index 8dca6622..041a04f0 100644 --- a/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj +++ b/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj @@ -9,9 +9,7 @@ - - @@ -133,32 +131,14 @@ - - - - - - - - - - - - - - - - - - - + - + - + \ No newline at end of file diff --git a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas index 9b52855e..5b5f1f4f 100644 --- a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas +++ b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas @@ -3,15 +3,15 @@ unit schFacturasProveedorClient_Intf; interface uses - Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, SysUtils, uROClasses, 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_DarReferencia = '{440AC6D1-9E17-40B6-9745-334B94B470ED}'; - RID_FacturasProveedor = '{92896B8F-23AC-4B75-AE17-F7C3EC6FD4AD}'; - RID_FacturasProveedor_Detalles = '{B6970553-C7DC-4FC5-B5C8-35C5B2F72F2C}'; + RID_DarReferencia = '{826E1F5B-DFC3-443B-805B-15E4AA3230F0}'; + RID_FacturasProveedor = '{30C7FC95-DE01-4C7E-B25E-20E5E04A22FA}'; + RID_FacturasProveedor_Detalles = '{C7D28D9D-3ADF-44EC-9DBE-0D0335BB8A68}'; { Data table names } nme_DarReferencia = 'DarReferencia'; @@ -125,7 +125,7 @@ const type { IDarReferencia } IDarReferencia = interface(IDAStronglyTypedDataTable) - ['{84AFFCF1-2652-4658-A6CE-FF7D6E77D4D5}'] + ['{B0A9E9AF-549D-4C33-B732-7EB4279EA307}'] { Property getters and setters } function GetVALORValue: String; procedure SetVALORValue(const aValue: String); @@ -139,7 +139,7 @@ type end; { TDarReferenciaDataTableRules } - TDarReferenciaDataTableRules = class(TIntfObjectDADataTableRules, IDarReferencia) + TDarReferenciaDataTableRules = class(TDADataTableRules, IDarReferencia) private protected { Property getters and setters } @@ -160,7 +160,7 @@ type { IFacturasProveedor } IFacturasProveedor = interface(IDAStronglyTypedDataTable) - ['{5DB10010-225C-48A2-8CA8-E39EB69144AA}'] + ['{3F3A19B3-F087-49DE-AA30-7F1FA3D42A26}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -353,7 +353,7 @@ type end; { TFacturasProveedorDataTableRules } - TFacturasProveedorDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor) + TFacturasProveedorDataTableRules = class(TDADataTableRules, IFacturasProveedor) private f_OBSERVACIONES: IROStrings; procedure OBSERVACIONES_OnChange(Sender: TObject); @@ -555,7 +555,7 @@ type { IFacturasProveedor_Detalles } IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable) - ['{E4877BEF-E6FF-4E94-9D41-E49DC0F8E5AB}'] + ['{EC5E7C3F-3C86-46DC-B3A4-767E65B3BC78}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -647,7 +647,7 @@ type end; { TFacturasProveedor_DetallesDataTableRules } - TFacturasProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor_Detalles) + TFacturasProveedor_DetallesDataTableRules = class(TDADataTableRules, IFacturasProveedor_Detalles) private protected { Property getters and setters } diff --git a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas index 9a794be3..ef86abd3 100644 --- a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas +++ b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_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_DarReferenciaDelta = '{6B3A9554-622A-4013-B80F-46FDFF0FC88C}'; - RID_FacturasProveedorDelta = '{44B6D1A4-7B8E-4BAF-8AD7-2923A742DE92}'; - RID_FacturasProveedor_DetallesDelta = '{C0ABF642-4C9B-42DC-9D40-5A3BE656B55C}'; + RID_DarReferenciaDelta = '{CFCEEBAB-2BF1-4B6A-9654-0B4C8759C4AB}'; + RID_FacturasProveedorDelta = '{B1A74B0E-6EED-46D2-A083-FB3DCE87EA6D}'; + RID_FacturasProveedor_DetallesDelta = '{DCDF70C0-FF75-44A1-9878-8B088A24A18A}'; type { IDarReferenciaDelta } IDarReferenciaDelta = interface(IDarReferencia) - ['{6B3A9554-622A-4013-B80F-46FDFF0FC88C}'] + ['{CFCEEBAB-2BF1-4B6A-9654-0B4C8759C4AB}'] { Property getters and setters } function GetOldVALORValue : String; @@ -50,7 +50,7 @@ type { IFacturasProveedorDelta } IFacturasProveedorDelta = interface(IFacturasProveedor) - ['{44B6D1A4-7B8E-4BAF-8AD7-2923A742DE92}'] + ['{B1A74B0E-6EED-46D2-A083-FB3DCE87EA6D}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -445,7 +445,7 @@ type { IFacturasProveedor_DetallesDelta } IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles) - ['{C0ABF642-4C9B-42DC-9D40-5A3BE656B55C}'] + ['{DCDF70C0-FF75-44A1-9878-8B088A24A18A}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_FACTURAValue : Integer; diff --git a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas index 97aff7d0..59bee3d6 100644 --- a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas +++ b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas @@ -70,6 +70,7 @@ type procedure REOnChange(Sender: TDACustomField); procedure OnNewRecord(Sender: TDADataTable); override; + public function EsNuevo : Boolean; procedure IniciarValoresFacturaNueva; @@ -254,7 +255,6 @@ end; procedure TBizFacturaProveedor.OnNewRecord(Sender: TDADataTable); begin inherited; - ID := GetRecNo; // -1, -2, -3... IniciarValoresFacturaNueva; end; diff --git a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm index 0b3dd2ea..45b79d8b 100644 --- a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm +++ b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm @@ -225,8 +225,8 @@ object srvFacturasProveedor: TsrvFacturasProveedor item Name = 'SITUACION' DataType = datString - Size = 255 - DictionaryEntry = 'FacturasProveedor_SITUACION' + Size = 19 + DisplayLabel = 'Situaci'#243'n' end item Name = 'BASE_IMPONIBLE' diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas index 79ccef81..229933ff 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas +++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas @@ -194,7 +194,7 @@ procedure TfEditorFacturaProveedor.frViewTotales1eIVAPropertiesValidate( begin inherited; Factura.Edit; - Factura.ID_TIPO_IVA := ((frViewTotales1.dsTiposIVA.DataTable) as IBizTipoIVA).ID; + Factura.ID_TIPO_IVA := FTiposIVA.ID; //((frViewTotales1.dsTiposIVA.DataTable) as IBizTipoIVA).ID; end; procedure TfEditorFacturaProveedor.frViewTotales1ePorteEditing(Sender: TObject; var CanEdit: Boolean); @@ -281,7 +281,7 @@ begin FFactura.DataTable.Edit; // Actualizar IVA y RE a partir del tipo de IVA del proveedor. - Factura.IVA := ((frViewTotales1.dsTiposIVA.DataTable) as IBizTipoIVA).IVA; + Factura.IVA := FTiposIVA.IVA; //((frViewTotales1.dsTiposIVA.DataTable) as IBizTipoIVA).IVA; // if FFactura.Proveedor.RECARGO_EQUIVALENCIA = 1 then // Factura.RE := ((frViewTotales1.dsTiposIVA.DataTable) as IBizTipoIVA).RE // else diff --git a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas index 7a1ecbe8..54f064e6 100644 --- a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas +++ b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas @@ -3,15 +3,15 @@ unit schRecibosProveedorClient_Intf; interface uses - Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, SysUtils, uROClasses, 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_RecibosCompensadosProv = '{EAA6135E-5EF6-4EFC-9B1C-02DA1C1A3D81}'; - RID_RecibosProveedor = '{1FD22CF1-33A3-46E7-B8E9-7856656F4A67}'; - RID_PagosProveedor = '{2F222DE7-BB99-4EB8-94E4-0B0229D35B42}'; + RID_RecibosCompensadosProv = '{C20FA67E-00AF-431D-B1C2-15B709411BFB}'; + RID_RecibosProveedor = '{FDD5DFD3-6416-4A13-98F9-66BDA473A4ED}'; + RID_PagosProveedor = '{E9D1C3DE-3EF4-417E-AD98-EBCB898DA155}'; { Data table names } nme_RecibosCompensadosProv = 'RecibosCompensadosProv'; @@ -181,7 +181,7 @@ const type { IRecibosCompensadosProv } IRecibosCompensadosProv = interface(IDAStronglyTypedDataTable) - ['{EBE24C03-4E7D-40A6-9952-BB014D9F6185}'] + ['{425DC91D-22EB-4D8C-9EFB-6CCCEC303DCE}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -375,7 +375,7 @@ type end; { TRecibosCompensadosProvDataTableRules } - TRecibosCompensadosProvDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCompensadosProv) + TRecibosCompensadosProvDataTableRules = class(TDADataTableRules, IRecibosCompensadosProv) private protected { Property getters and setters } @@ -576,7 +576,7 @@ type { IRecibosProveedor } IRecibosProveedor = interface(IDAStronglyTypedDataTable) - ['{8650C3B1-16DF-4F3B-A9E8-FD4C23B128AD}'] + ['{9F702C65-C284-46AB-A30E-C253173CFBCE}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -770,7 +770,7 @@ type end; { TRecibosProveedorDataTableRules } - TRecibosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IRecibosProveedor) + TRecibosProveedorDataTableRules = class(TDADataTableRules, IRecibosProveedor) private protected { Property getters and setters } @@ -971,7 +971,7 @@ type { IPagosProveedor } IPagosProveedor = interface(IDAStronglyTypedDataTable) - ['{341A818F-3B74-41CB-A905-269B48B1CD6F}'] + ['{D148FD3F-8593-481D-B8D2-27FDFA246E7B}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1051,7 +1051,7 @@ type end; { TPagosProveedorDataTableRules } - TPagosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IPagosProveedor) + TPagosProveedorDataTableRules = class(TDADataTableRules, IPagosProveedor) private protected { Property getters and setters } diff --git a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas index 25e2a086..d449a3cf 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_RecibosCompensadosProvDelta = '{1BF8059F-5381-4765-8B5A-251109CF804F}'; - RID_RecibosProveedorDelta = '{B134189D-C7D9-4781-9BEE-5C0EBE64025A}'; - RID_PagosProveedorDelta = '{9D89D1F1-4545-4E4C-ADEC-3A0846387899}'; + RID_RecibosCompensadosProvDelta = '{70FD873D-B8A4-48FF-91B4-78E5A8061DB7}'; + RID_RecibosProveedorDelta = '{960F5E67-31CD-44FB-A6DD-0FC4610157EC}'; + RID_PagosProveedorDelta = '{3955ECBE-60F2-47AB-AD32-7B878B1CA0C7}'; type { IRecibosCompensadosProvDelta } IRecibosCompensadosProvDelta = interface(IRecibosCompensadosProv) - ['{1BF8059F-5381-4765-8B5A-251109CF804F}'] + ['{70FD873D-B8A4-48FF-91B4-78E5A8061DB7}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer; @@ -410,7 +410,7 @@ type { IRecibosProveedorDelta } IRecibosProveedorDelta = interface(IRecibosProveedor) - ['{B134189D-C7D9-4781-9BEE-5C0EBE64025A}'] + ['{960F5E67-31CD-44FB-A6DD-0FC4610157EC}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer; @@ -804,7 +804,7 @@ type { IPagosProveedorDelta } IPagosProveedorDelta = interface(IPagosProveedor) - ['{9D89D1F1-4545-4E4C-ADEC-3A0846387899}'] + ['{3955ECBE-60F2-47AB-AD32-7B878B1CA0C7}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBOValue : Integer; diff --git a/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm b/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm index de32d286..2fc9cd0e 100644 --- a/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm +++ b/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm @@ -460,7 +460,7 @@ object srvRecibosProveedor: TsrvRecibosProveedor item Name = 'SITUACION' DataType = datString - Size = 9 + Size = 255 DictionaryEntry = 'RecibosProveedor_SITUACION' end item @@ -737,7 +737,8 @@ object srvRecibosProveedor: TsrvRecibosProveedor Params = < item Name = 'ID' - DataType = datInteger + DataType = datAutoInc + GeneratorName = 'GEN_RECIBOS_PROVEEDOR_ID' Value = '' ParamType = daptInput end @@ -926,7 +927,8 @@ object srvRecibosProveedor: TsrvRecibosProveedor Params = < item Name = 'ID' - DataType = datInteger + DataType = datAutoInc + GeneratorName = 'GEN_PAGOS_PROVEEDOR_ID' Value = '' ParamType = daptInput end @@ -1382,7 +1384,7 @@ object srvRecibosProveedor: TsrvRecibosProveedor item Name = 'RecibosProveedor_SITUACION' DataType = datString - Size = 9 + Size = 255 DisplayLabel = 'SITUACION' end item diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr index 165cd8b5..294ecb7f 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -69,8 +69,6 @@ uses schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas', schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas', srvRecibosProveedor_Impl in '..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas' {srvRecibosProveedor: TDataAbstractService}, - schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas', - schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas', uBizFacturasClienteServer in '..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas', srvFacturasProveedor_Impl in '..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas' {srvFacturasProveedor: TDataAbstractService}, srvAlbaranesProveedor_Impl in '..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas' {srvAlbaranesProveedor: TDataAbstractService}, @@ -82,6 +80,8 @@ uses schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas', uBizAlbaranProveedorServer in '..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS', uBizFacturasProveedorServer in '..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas', + schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas', + schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas', schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas', schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas'; diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index e8e6e45b..a5a67740 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -1,182 +1,186 @@ - + - - {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} - FactuGES_Server.dpr - Debug - AnyCPU - DCC32 - ..\..\Output\Debug\Servidor\FactuGES_Server.exe - - - 7.0 - False - False - 0 - 3 - ..\..\Output\Release\Servidor - RELEASE - - - 7.0 - 3 - ..\..\Output\Debug\Servidor - DEBUG; - True - - - Delphi.Personality - - - FalseTrueFalseTrueFalse3000FalseFalseFalseFalseFalse308212523.0.0.03.0.0.0domingo, 30 de septiembre de 2007 20:47 - RemObjects Pascal Script - RemObjects SDK 3.0 Integration - FactuGES_Server.dpr - - - - - MainSource - - - - -
srvEmpresas
- TDARemoteService - - - - - - - - - -
srvAlbaranesCliente
- TDataAbstractService - - - - - -
srvAlbaranesProveedor
- TDataAbstractService - - - - -
srvAlmacenes
- TDARemoteService - - - - - - - - - - - -
srvContactos
- TDARemoteService - - - - - -
srvFacturasCliente
- TDataAbstractService - - - - - -
srvFacturasProveedor
- TDataAbstractService - - - - - - - - - - - -
srvPedidosProveedor
- TDataAbstractService - - - - - -
RptPresupuestosCliente
- - -
srvPresupuestosCliente
- TDataAbstractService - - - - -
srvRecibosCliente
- TDataAbstractService - - - - -
srvRecibosProveedor
- TDataAbstractService - - - - - - - -
srvConfiguracion
- TDataAbstractService - - -
frConexionBD
- TFrame - - -
frConfGeneral
- TFrame - - -
fConfiguracion
- TForm - - -
FrameConfiguracion
- TFrame - - -
srvLogin
- TDARemoteService - - -
fAcercaDe
- - -
dmServer
- TDataModule - - -
fServerForm
- - - - - - - - - - + + {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} + FactuGES_Server.dpr + Debug + AnyCPU + DCC32 + ..\..\Output\Debug\Servidor\FactuGES_Server.exe + + + 7.0 + False + False + 0 + 3 + ..\..\Output\Release\Servidor + RELEASE + + + 7.0 + 3 + ..\..\Output\Debug\Servidor + DEBUG; + True + + + Delphi.Personality + + +FalseTrueFalseTrueFalse3000FalseFalseFalseFalseFalse308212523.0.0.03.0.0.0domingo, 30 de septiembre de 2007 20:47 + + + + + RemObjects Pascal Script - RemObjects SDK 3.0 Integration + FactuGES_Server.dpr + + + + + MainSource + + + + +
srvEmpresas
+ TDARemoteService + + + + + + + + + +
srvAlbaranesCliente
+ TDataAbstractService + + + + + +
srvAlbaranesProveedor
+ TDataAbstractService + + + + +
srvAlmacenes
+ TDARemoteService + + + + + + + + + + + +
srvContactos
+ TDARemoteService + + + + + +
srvFacturasCliente
+ TDataAbstractService + + + + + +
srvFacturasProveedor
+ TDataAbstractService + + + + + + + + + + + +
srvPedidosProveedor
+ TDataAbstractService + + + + + +
RptPresupuestosCliente
+ + +
srvPresupuestosCliente
+ TDataAbstractService + + + + +
srvRecibosCliente
+ TDataAbstractService + + + + +
srvRecibosProveedor
+ TDataAbstractService + + + + + + + +
srvConfiguracion
+ TDataAbstractService + + +
frConexionBD
+ TFrame + + +
frConfGeneral
+ TFrame + + +
fConfiguracion
+ TForm + + +
FrameConfiguracion
+ TFrame + + +
srvLogin
+ TDARemoteService + + +
fAcercaDe
+ + +
dmServer
+ TDataModule + + +
fServerForm
+ + + + + + + + + +