diff --git a/Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas b/Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas index 025fc245..9aff3dac 100644 --- a/Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas +++ b/Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas @@ -31,7 +31,6 @@ uses const REF_FACTURAS_CLIENTE = 'REF_FACTURAS_CLIENTE'; - REF_ABONOS_CLIENTE = 'REF_ABONOS_CLIENTE'; CTE_TIPO_ABONO = 'A'; CTE_TIPO_FACTURA = 'F'; @@ -78,10 +77,8 @@ function TBizFacturasClienteServer.DarReferencia: String; var ATipo : String; begin - if TIPO = CTE_TIPO_FACTURA then - ATipo := REF_FACTURAS_CLIENTE - else - ATipo := REF_ABONOS_CLIENTE; + // Aunque sea un abono, la referencia es la misma que una factura + ATipo := REF_FACTURAS_CLIENTE; with TsrvReferencias.Create(NIL) do try @@ -95,10 +92,8 @@ function TBizFacturasClienteServer.IncrementarReferencia: Boolean; var ATipo : String; begin - if TIPO = CTE_TIPO_FACTURA then - ATipo := REF_FACTURAS_CLIENTE - else - ATipo := REF_ABONOS_CLIENTE; + // Aunque sea un abono, la referencia es la misma que una factura + ATipo := REF_FACTURAS_CLIENTE; with TsrvReferencias.Create(NIL) do try diff --git a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas index 81d19376..22ecd8e3 100644 --- a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas +++ b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas @@ -32,7 +32,6 @@ uses const REF_FACTURAS_PROVEEDOR = 'REF_FACTURAS_PROVEEDOR'; - REF_ABONOS_PROVEEDOR = 'REF_ABONOS_PROVEEDOR'; CTE_TIPO_ABONO = 'A'; CTE_TIPO_FACTURA = 'F'; @@ -78,10 +77,8 @@ function TBizFacturasProveedorServer.DarReferencia: String; var ATipo : String; begin - if TIPO = CTE_TIPO_FACTURA then - ATipo := REF_FACTURAS_PROVEEDOR - else - ATipo := REF_ABONOS_PROVEEDOR; + // Aunque sea un abono, la referencia es la misma que una factura + ATipo := REF_FACTURAS_PROVEEDOR; with TsrvReferencias.Create(NIL) do try @@ -95,10 +92,8 @@ function TBizFacturasProveedorServer.IncrementarReferencia: Boolean; var ATipo : String; begin - if TIPO = CTE_TIPO_FACTURA then - ATipo := REF_FACTURAS_PROVEEDOR - else - ATipo := REF_ABONOS_PROVEEDOR; + // Aunque sea un abono, la referencia es la misma que una factura + ATipo := REF_FACTURAS_PROVEEDOR; with TsrvReferencias.Create(NIL) do try