Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Facturas de cliente y proveedor: la referencia para abonos es la misma que una factura.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@268 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-02-07 22:06:07 +00:00
parent 11fda2e21e
commit 1ee166c21e
2 changed files with 8 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas
View File

@ -31,7 +31,6 @@ uses
const const
REF_FACTURAS_CLIENTE = 'REF_FACTURAS_CLIENTE'; REF_FACTURAS_CLIENTE = 'REF_FACTURAS_CLIENTE';
REF_ABONOS_CLIENTE = 'REF_ABONOS_CLIENTE';
CTE_TIPO_ABONO = 'A'; CTE_TIPO_ABONO = 'A';
CTE_TIPO_FACTURA = 'F'; CTE_TIPO_FACTURA = 'F';
@ -78,10 +77,8 @@ function TBizFacturasClienteServer.DarReferencia: String;
var var
ATipo : String; ATipo : String;
begin begin
if TIPO = CTE_TIPO_FACTURA then // Aunque sea un abono, la referencia es la misma que una factura
ATipo := REF_FACTURAS_CLIENTE ATipo := REF_FACTURAS_CLIENTE;
else
ATipo := REF_ABONOS_CLIENTE;
with TsrvReferencias.Create(NIL) do with TsrvReferencias.Create(NIL) do
try try
@ -95,10 +92,8 @@ function TBizFacturasClienteServer.IncrementarReferencia: Boolean;
var var
ATipo : String; ATipo : String;
begin begin
if TIPO = CTE_TIPO_FACTURA then // Aunque sea un abono, la referencia es la misma que una factura
ATipo := REF_FACTURAS_CLIENTE ATipo := REF_FACTURAS_CLIENTE;
else
ATipo := REF_ABONOS_CLIENTE;
with TsrvReferencias.Create(NIL) do with TsrvReferencias.Create(NIL) do
try try

13
Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas
View File

@ -32,7 +32,6 @@ uses
const const
REF_FACTURAS_PROVEEDOR = 'REF_FACTURAS_PROVEEDOR'; REF_FACTURAS_PROVEEDOR = 'REF_FACTURAS_PROVEEDOR';
REF_ABONOS_PROVEEDOR = 'REF_ABONOS_PROVEEDOR';
CTE_TIPO_ABONO = 'A'; CTE_TIPO_ABONO = 'A';
CTE_TIPO_FACTURA = 'F'; CTE_TIPO_FACTURA = 'F';
@ -78,10 +77,8 @@ function TBizFacturasProveedorServer.DarReferencia: String;
var var
ATipo : String; ATipo : String;
begin begin
if TIPO = CTE_TIPO_FACTURA then // Aunque sea un abono, la referencia es la misma que una factura
ATipo := REF_FACTURAS_PROVEEDOR ATipo := REF_FACTURAS_PROVEEDOR;
else
ATipo := REF_ABONOS_PROVEEDOR;
with TsrvReferencias.Create(NIL) do with TsrvReferencias.Create(NIL) do
try try
@ -95,10 +92,8 @@ function TBizFacturasProveedorServer.IncrementarReferencia: Boolean;
var var
ATipo : String; ATipo : String;
begin begin
if TIPO = CTE_TIPO_FACTURA then // Aunque sea un abono, la referencia es la misma que una factura
ATipo := REF_FACTURAS_PROVEEDOR ATipo := REF_FACTURAS_PROVEEDOR;
else
ATipo := REF_ABONOS_PROVEEDOR;
with TsrvReferencias.Create(NIL) do with TsrvReferencias.Create(NIL) do
try try