Se arregla el informe de factura re tecsitel mantenimiento para que no salga el log de la iso, además de otros cambios varios solicitados por maribel

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@827 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2009-01-08 12:49:50 +00:00
parent 9ec61ad297
commit 12b6d74334
5 changed files with 328 additions and 330 deletions

Binary file not shown.

Binary file not shown.

File diff suppressed because one or more lines are too long

View File

@ -207,9 +207,9 @@ begin
FWordApp.Application.ActiveWindow.ActivePane.View.SeekView := wdSeekCurrentPageHeader; FWordApp.Application.ActiveWindow.ActivePane.View.SeekView := wdSeekCurrentPageHeader;
if (FieldByName('TIPO').AsString = 'F') then if (FieldByName('TIPO').AsString = 'F') then
ReplaceBookmark('CodigoFacturaCab', 'FACTURA ' + FieldByName('REFERENCIA').AsString) ReplaceBookmark('CodigoFacturaCab', FieldByName('REFERENCIA').AsString)
else else
ReplaceBookmark('CodigoFacturaCab', 'ABONO ' + FieldByName('REFERENCIA').AsString); ReplaceBookmark('CodigoFacturaCab', FieldByName('REFERENCIA').AsString);
ReplaceBookmark('FechaFacturaCab', FieldByName('FECHA_FACTURA').AsString); ReplaceBookmark('FechaFacturaCab', FieldByName('FECHA_FACTURA').AsString);
tbl_Vencimientos.First; tbl_Vencimientos.First;

View File

@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>