Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

poArreglo de recibos para que funcionen de forma autónoma sin necesidad de Facturas de (Segunda parte)

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@139 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2008-02-24 15:15:34 +00:00
parent 4ceb429099
commit ecdea708af
3 changed files with 44 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Database/scripts/factuges.sql
View File

@ -3355,7 +3355,7 @@ SELECT RECIBOS_CLIENTE.ID,
COALESCE(RECIBOS_CLIENTE.IMPORTE, 0) + COALESCE(RECIBOS_CLIENTE.OTROS_GASTOS, 0) + COALESCE(V_REC_CLI_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO, 0),
FACTURAS_CLIENTE.FECHA_FACTURA, FORMAS_PAGO.DESCRIPCION, FACTURAS_CLIENTE.IMPORTE_TOTAL,
FACTURAS_CLIENTE.ID_EMPRESA,
RECIBOS_CLIENTE.ID_EMPRESA,
CONTACTOS.ID as ID_CLIENTE, CONTACTOS.NOMBRE, CONTACTOS.NIF_CIF, CONTACTOS_DATOS_BANCO.ENTIDAD,
CONTACTOS_DATOS_BANCO.SUCURSAL, CONTACTOS_DATOS_BANCO.DC, CONTACTOS_DATOS_BANCO.CUENTA,

16
Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas
View File

@ -714,6 +714,21 @@ var
begin
Result := False;
if ARecibosCliente.EsNuevo then
begin
if ValidarReciboCliente(ARecibosCliente) then
begin
ShowHourglassCursor;
try
ARecibosCliente.DataTable.ApplyUpdates;
Result := True;
finally
HideHourglassCursor;
end;
end;
end
else
begin
ANuevoReciboCliente := NIL;
ImporteRestante := 0;
@ -746,6 +761,7 @@ begin
end;
end;
end;
end;
procedure TRecibosClienteController.ModificarPago(ARecibosCliente: IBizRecibosCliente);
var

6
Source/Modulos/Recibos de cliente/Model/uBizRecibosCliente.pas
View File

@ -109,7 +109,7 @@ implementation
{ TBizRecibosCliente }
uses
SysUtils, uDataTableUtils, schContactosClient_Intf;
SysUtils, uDataTableUtils, schContactosClient_Intf, uFactuGES_App, uBizEmpresasTiendas;
function TBizRecibosCliente.GetCliente: IBizCliente;
begin
@ -200,6 +200,10 @@ begin
FECHA_EMISION := Date;
IMPORTE := 0;
OTROS_GASTOS := 0;
ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
USUARIO := AppFactuGES.UsuarioActivo.UserName;
ID_TIENDA := CTE_ID_TODAS;
// TIENDA := CTE_TODAS;
end;
procedure TBizRecibosCliente.OnNewRecord(Sender: TDADataTable);