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

Arreglo de fallo al asignar las referencias de las ordenes de devolucion

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@412 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-06-02 18:51:00 +00:00
parent c4b52abab1
commit c0649b21e9
4 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Source/Modulos/Albaranes de cliente/Model/uBizAlbaranClienteServer.pas
View File

@ -9,6 +9,9 @@ uses
const
BIZ_SERVER_ALBARAN_CLIENTE = 'Server.AlbaranCliente';
CTE_TIPO_ALBARAN = 'A';
CTE_TIPO_ALBARAN_DEV = 'D';
type
TBizAlbaranClienteServer = class(TAlbaranesClienteBusinessProcessorRules)
private
@ -76,7 +79,7 @@ function TBizAlbaranClienteServer.DarReferencia: String;
var
ACodigoReferencia : String;
begin
if (IMPORTE_TOTAL < 0) then
if (TIPO = CTE_TIPO_ALBARAN_DEV) then
ACodigoReferencia := REF_ALBARANES_DEV_CLIENTE
else
ACodigoReferencia := REF_ALBARANES_CLIENTE;
@ -93,7 +96,7 @@ function TBizAlbaranClienteServer.IncrementarReferencia: Boolean;
var
ACodigoReferencia : String;
begin
if (IMPORTE_TOTAL < 0) then
if (TIPO = CTE_TIPO_ALBARAN_DEV) then
ACodigoReferencia := REF_ALBARANES_DEV_CLIENTE
else
ACodigoReferencia := REF_ALBARANES_CLIENTE;

7
Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranProveedorServer.PAS
View File

@ -9,6 +9,9 @@ uses
const
BIZ_SERVER_ALBARAN_PROVEEDOR = 'Server.AlbaranProveedor';
CTE_TIPO_ALBARAN = 'A';
CTE_TIPO_ALBARAN_DEV = 'D';
type
TBizAlbaranProveedorServer = class(TFacturasClienteBusinessProcessorRules)
private
@ -76,7 +79,7 @@ function TBizAlbaranProveedorServer.DarReferencia: String;
var
ACodigoReferencia : String;
begin
if (IMPORTE_TOTAL < 0) then
if (TIPO = CTE_TIPO_ALBARAN_DEV) then
ACodigoReferencia := REF_ALBARANES_DEV_PROVEEDOR
else
ACodigoReferencia := REF_ALBARANES_PROVEEDOR;
@ -93,7 +96,7 @@ function TBizAlbaranProveedorServer.IncrementarReferencia: Boolean;
var
ACodigoReferencia : String;
begin
if (IMPORTE_TOTAL < 0) then
if (TIPO = CTE_TIPO_ALBARAN_DEV) then
ACodigoReferencia := REF_ALBARANES_DEV_PROVEEDOR
else
ACodigoReferencia := REF_ALBARANES_PROVEEDOR;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN
VALUE "FileVersion", "1.0.4.0\0"
VALUE "ProductVersion", "1.0.4.0\0"
VALUE "CompileDate", "lunes, 02 de junio de 2008 20:01\0"
VALUE "CompileDate", "lunes, 02 de junio de 2008 20:48\0"
END
END
BLOCK "VarFileInfo"