Uecko/AbetoDesign_FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se arregla consumo de recursos por parte del log (el componente jvlog 3.32 no está bien deberia actualizarse al 3.36), tambien se arreglan informes de contratos a peticion de angelica

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@99 93f398dd-4eb6-7a46-baf6-13f46f578da2
This commit is contained in:
roberto 2014-05-26 17:23:07 +00:00
parent 1d408b47ea
commit e207419f71
7 changed files with 79 additions and 66 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

121
Database/scripts/factuges.sql
View File

@ -5455,34 +5455,35 @@ begin
begin
if (visible <> 0) then
begin
/*Escribimos capitulo anterior*/
if ((Importe_total > 0)
and ((ultimo_tipo_detalle = 'Descuento') or (ultimo_tipo_detalle = 'Subtotal'))) then
begin
Importe_aux = Importe_total;
id = id_aux;
posicion = posicion_aux;
tipo_detalle = tipo_detalle_aux;
tipo_articulo = tipo_articulo_aux;
concepto = concepto_aux;
importe_total = total_acumulado;
importe_descuento = importe_descuento_aux;
descuento = descuento_aux;
visible = 1;
valorado = 1;
suspend;
total_acumulado = 0.0;
importe_descuento_aux = 0.0;
descuento_aux = 0.0;
/*Inicializamos*/
ID_AUX = -1;
posicion_aux = -1;
concepto_aux = 'General';
tipo_detalle_aux = 'Titulo';
tipo_articulo_aux = 'NA';
importe_total = Importe_aux;
end
/*Escribimos capitulo anterior*/
if ((Importe_total > 0)
and ((ultimo_tipo_detalle = 'Descuento') or (ultimo_tipo_detalle = 'Subtotal'))) then
begin
Importe_aux = Importe_total;
id = id_aux;
posicion = posicion_aux;
tipo_detalle = tipo_detalle_aux;
tipo_articulo = tipo_articulo_aux;
concepto = concepto_aux;
importe_total = total_acumulado;
importe_descuento = importe_descuento_aux;
descuento = descuento_aux;
visible = 1;
valorado = 1;
suspend;
total_acumulado = 0.0;
importe_descuento_aux = 0.0;
descuento_aux = 0.0;
/*Inicializamos*/
ID_AUX = -1;
posicion_aux = -1;
concepto_aux = 'General';
tipo_detalle_aux = 'Titulo';
tipo_articulo_aux = 'NA';
importe_total = Importe_aux;
end
end
if (valorado <> 0) then
total_acumulado = total_acumulado + importe_total;
ultimo_tipo_detalle = tipo_detalle;
@ -5554,6 +5555,7 @@ begin
end
end
end
else if (TIPO = 'Contrato') then
begin
for select id, id_contrato, posicion, tipo_detalle, tipo_articulo, F_RTFTOTEXT(concepto) as concepto,
@ -5568,39 +5570,42 @@ begin
contador = contador + 1;
/*CONCEPTO*/
if ((visible <> 0) and (tipo_detalle = 'Concepto')) then
if (tipo_detalle = 'Concepto') then
begin
/*Escribimos capitulo anterior*/
if ((Importe_total > 0)
and ((ultimo_tipo_detalle = 'Descuento') or (ultimo_tipo_detalle = 'Subtotal'))) then
begin
Importe_aux = Importe_total;
id = id_aux;
posicion = posicion_aux;
tipo_detalle = tipo_detalle_aux;
tipo_articulo = tipo_articulo_aux;
concepto = concepto_aux;
importe_total = total_acumulado;
importe_descuento = importe_descuento_aux;
descuento = descuento_aux;
visible = 1;
valorado = 1;
suspend;
total_acumulado = 0.0;
importe_descuento_aux = 0.0;
descuento_aux = 0.0;
/*Inicializamos*/
ID_AUX = -1;
posicion_aux = -1;
concepto_aux = 'General';
tipo_detalle_aux = 'Titulo';
tipo_articulo_aux = 'NA';
importe_total = Importe_aux;
end
if (visible <> 0) then
begin
/*Escribimos capitulo anterior*/
if ((Importe_total > 0)
and ((ultimo_tipo_detalle = 'Descuento') or (ultimo_tipo_detalle = 'Subtotal'))) then
begin
Importe_aux = Importe_total;
id = id_aux;
posicion = posicion_aux;
tipo_detalle = tipo_detalle_aux;
tipo_articulo = tipo_articulo_aux;
concepto = concepto_aux;
importe_total = total_acumulado;
importe_descuento = importe_descuento_aux;
descuento = descuento_aux;
visible = 1;
valorado = 1;
suspend;
total_acumulado = 0.0;
importe_descuento_aux = 0.0;
descuento_aux = 0.0;
/*Inicializamos*/
ID_AUX = -1;
posicion_aux = -1;
concepto_aux = 'General';
tipo_detalle_aux = 'Titulo';
tipo_articulo_aux = 'NA';
importe_total = Importe_aux;
end
end
if (valorado <> 0) then
total_acumulado = total_acumulado + importe_total;
ultimo_tipo_detalle = tipo_detalle;
if (valorado <> 0) then
total_acumulado = total_acumulado + importe_total;
ultimo_tipo_detalle = tipo_detalle;
end
/*TITULO*/

4
Source/Base/uDMBase.pas
View File

@ -71,11 +71,13 @@ begin
if SysUtils.ForceDirectories(ALogFileName) then
begin
{SE COMENTA PORQUE TUESTA LA PARTE CLIENTE SI SE DESEA ARREGLAR ACTUALIZAR LAS JV de tecsitel
JvLogFile.Active := False;
JvLogFile.FileName := ALogFileName + 'ClientLog.txt';
JvLogFile.AutoSave := True;
JvLogFile.Active := True;
JvLogFile.Clear;
}
end
else
raise Exception.Create('Error al crear directorio para Log: ' + IntToStr(GetLastError));
@ -137,12 +139,14 @@ end;
procedure TdmBase.EscribirLog(const AMensaje: String);
begin
{
FEscribirLog.Acquire;
try
JvLogFile.Add(AMensaje);
finally
FEscribirLog.Release;
end;
}
end;
end.

4
Source/Informes/1/InfContratoCliente.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/2/InfContratoCliente.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/3/InfContratoCliente.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/4/InfContratoCliente.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Servidor/uDataModuleServer.pas
View File

@ -174,11 +174,13 @@ procedure TdmServer.IniciarLog;
begin
FEscribirLog := TCriticalSection.Create;
{SE COMENTA PORQUE TUESTA LA PARTE SERVIDORA SI SE DESEA ARREGLAR ACTUALIZAR LAS JV de tecsitel
JvLogFile1.Active := False;
JvLogFile1.FileName := ExtractFilePath(Application.ExeName) + 'ServerLog.txt';
JvLogFile1.AutoSave := True;
JvLogFile1.Active := True;
JvLogFile1.Clear;
}
end;
procedure TdmServer.DataModuleCreate(Sender: TObject);
@ -278,12 +280,14 @@ end;
procedure TdmServer.EscribirLog(const AMensaje: String);
begin
{
FEscribirLog.Acquire;
try
JvLogFile1.Add(AMensaje);
finally
FEscribirLog.Release;
end;
}
end;
procedure TdmServer.RefrescarConexion;