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

Se adaptan las clases de negocio para que al elgir un cliente para un documento que no tenga asociado forma de pago ni IVA, no nos quite la forma de pago e IVA asignada por defecto a partir de la empresa

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@782 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-11-27 09:35:45 +00:00
parent 9d9f5c543e
commit 73c51d688e
4 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas
View File

@ -235,7 +235,8 @@ begin
DataTable.Edit; DataTable.Edit;
ID_CLIENTE := FCliente.ID; ID_CLIENTE := FCliente.ID;
ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO; if FCliente.ID_FORMA_PAGO > 0 then
ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO;
//DESCUENTO := FCliente.DESCUENTO; //No esta activado el descuento general para los albaranes //DESCUENTO := FCliente.DESCUENTO; //No esta activado el descuento general para los albaranes
DataTable.Post; //Muy importante ya que es necesario hacer un post de la cabecera antes de añadir detalles DataTable.Post; //Muy importante ya que es necesario hacer un post de la cabecera antes de añadir detalles

6
Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas
View File

@ -304,8 +304,10 @@ begin
CODIGO_POSTAL := FCliente.CODIGO_POSTAL; CODIGO_POSTAL := FCliente.CODIGO_POSTAL;
PROVINCIA := FCliente.PROVINCIA; PROVINCIA := FCliente.PROVINCIA;
POBLACION := FCliente.POBLACION; POBLACION := FCliente.POBLACION;
ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO; if FCliente.ID_FORMA_PAGO > 0 then
ID_TIPO_IVA := FCliente.ID_TIPO_IVA; ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO;
if FCliente.ID_TIPO_IVA > 0 then
ID_TIPO_IVA := FCliente.ID_TIPO_IVA;
RECARGO_EQUIVALENCIA := FCliente.RECARGO_EQUIVALENCIA; RECARGO_EQUIVALENCIA := FCliente.RECARGO_EQUIVALENCIA;
DESCUENTO := FCliente.DESCUENTO; DESCUENTO := FCliente.DESCUENTO;
Post; Post;

6
Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas
View File

@ -319,8 +319,10 @@ begin
CODIGO_POSTAL := FProveedor.CODIGO_POSTAL; CODIGO_POSTAL := FProveedor.CODIGO_POSTAL;
PROVINCIA := FProveedor.PROVINCIA; PROVINCIA := FProveedor.PROVINCIA;
POBLACION := FProveedor.POBLACION; POBLACION := FProveedor.POBLACION;
ID_FORMA_PAGO := FProveedor.ID_FORMA_PAGO; if FProveedor.ID_FORMA_PAGO > 0 then
ID_TIPO_IVA := FProveedor.ID_TIPO_IVA; ID_FORMA_PAGO := FProveedor.ID_FORMA_PAGO;
if FProveedor.ID_TIPO_IVA > 0 then
ID_TIPO_IVA := FProveedor.ID_TIPO_IVA;
// RECARGO_EQUIVALENCIA := FProveedor.RECARGO_EQUIVALENCIA; // RECARGO_EQUIVALENCIA := FProveedor.RECARGO_EQUIVALENCIA;
Post; Post;

3
Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas
View File

@ -250,7 +250,8 @@ begin
DataTable.Edit; DataTable.Edit;
ID_CLIENTE := FCliente.ID; ID_CLIENTE := FCliente.ID;
ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO; if FCliente.ID_FORMA_PAGO > 0 then
ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO;
DESCUENTO := FCliente.DESCUENTO; DESCUENTO := FCliente.DESCUENTO;
DataTable.Post; //Muy importante ya que es necesario hacer un post de la cabecera antes de añadir detalles DataTable.Post; //Muy importante ya que es necesario hacer un post de la cabecera antes de añadir detalles