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

* Ticket #168 -> En el informe de facturas de cliente, al exportar a Word no hace caso de la pregunta del sello

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@790 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-12-01 17:56:01 +00:00
parent 9c42c97007
commit e136ba4c8f
8 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Resources/Firmas Tecsitel/Firma Tecsitel Mantenimiento.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 59 KiB

After

Width:  |  Height:  |  Size: 38 KiB

BIN
Resources/Firmas Tecsitel/Firma-Tecsitel-Mantenimient.gif
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 3.1 KiB

BIN
Resources/Firmas Tecsitel/Firma-Tecsitel-Mantenimiento.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 6.3 KiB

BIN
Resources/Firmas Tecsitel/Firma-Tecsitel-Mantenimiento.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.5 KiB

BIN
Source/Informes/1/FacturaCliente.rdx
View File

Binary file not shown.

BIN
Source/Informes/2/FacturaCliente.rdx
View File

Binary file not shown.

7
Source/Informes/2/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

6
Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas
View File

@ -26,6 +26,7 @@ type
FNumCapitulos : Integer;
FCodigoFactura : string;
FNombreFichero : String;
FVerSello : Boolean;
function DarNumCapitulos : Integer;
procedure InsertarConceptos(Tabla : Table);
function Generar : Boolean;
@ -91,6 +92,7 @@ begin
FNombreFichero := Fichero;
FCodigoFactura := Codigo;
FVerSello := VerSello;
_GenerarFactura(Codigo);
Result := True;
end;
@ -271,6 +273,10 @@ begin
ReplaceBookmark('CorreoEmpresa', tbl_Empresa.FieldByName('EMAIL_1').AsString);
ReplaceBookmark('DatosRegistroMercantil', tbl_Empresa.FieldByName('REGISTRO_MERCANTIL').AsString);
if not FVerSello then
ReplaceBookmark('Sello', '');
Close;
end;
Result := True;