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

Informes word nuevos azacan

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1070 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2013-02-25 17:54:13 +00:00
parent 407224517e
commit 7f1b0e9c19
4 changed files with 30 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Source/Informes/3/AlbaranCliente.rdx Normal file
View File

Binary file not shown.

BIN
Source/Informes/3/Presupuesto.rdx
View File

Binary file not shown.

3
Source/Modulos/Albaranes de cliente/Reports/uRptWordAlbaranCliente.pas
View File

@ -155,6 +155,8 @@ begin
ReplaceBookmark('ImporteTotal', FieldByName('IMPORTETOTAL').DisplayText);
}
if (tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger <> 3) then
begin
ReplaceBookmark('NombreEmpresa', tbl_Empresa.FieldByName('NOMBRE').AsString);
ReplaceBookmark('CifEmpresa', tbl_Empresa.FieldByName('NIF_CIF').AsString);
ReplaceBookmark('DireccionEmpresa',
@ -165,6 +167,7 @@ begin
ReplaceBookmark('CorreoEmpresa', tbl_Empresa.FieldByName('EMAIL_1').AsString);
end;
end;
end;
procedure TRptWordAlbaranCliente.RellenarDatosDetalle;
var

9
Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas
View File

@ -116,7 +116,6 @@ begin
FWordApp.SaveActiveDocAs(FNombreFichero);
try
if (tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger <> 3) then
if not RellenarPortada then
RaiseError('Se producido un error al generar la portada del informe en MS Word.');
@ -319,7 +318,6 @@ begin
ReplaceBookmark('TelefonoEmpresaPortada', tbl_Empresa.FieldByName('TELEFONO_1').AsString);
ReplaceBookmark('FaxEmpresaPortada', tbl_Empresa.FieldByName('FAX').AsString);
ReplaceBookmark('CorreoEmpresaPortada', tbl_Empresa.FieldByName('EMAIL_1').AsString);
end;
ReplaceBookmark('NombreEmpresa', tbl_Empresa.FieldByName('NOMBRE').AsString);
ReplaceBookmark('CifEmpresa', tbl_Empresa.FieldByName('NIF_CIF').AsString);
@ -328,8 +326,6 @@ begin
tbl_Empresa.FieldByName('CODIGO_POSTAL').AsString, tbl_Empresa.FieldByName('POBLACION').AsString]));
ReplaceBookmark('TelefonoEmpresa', tbl_Empresa.FieldByName('TELEFONO_1').AsString);
if (tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger <> 3) then
begin
ReplaceBookmark('FaxEmpresa', tbl_Empresa.FieldByName('FAX').AsString);
ReplaceBookmark('CorreoEmpresa', tbl_Empresa.FieldByName('EMAIL_1').AsString);
ReplaceBookmark('NombreEmpresaFirma', tbl_Empresa.FieldByName('NOMBRE').AsString);
@ -444,18 +440,23 @@ begin
---------------------------- }
with FDocumento, tbl_Cabecera do
begin
if (tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger <> 3) then
begin
ReplaceBookmark('CodigoPresupuestoPortada', FieldByName('REFERENCIA').AsString);
ReplaceBookmark('FechaPresupuestoPortada', FieldByName('FECHA_PRESUPUESTO').AsString);
ReplaceBookmark('NombreClientePortada', FieldByName('NOMBRE').AsString);
if not EsCadenaVacia(FieldByName('PERSONA_CONTACTO').AsString) then
ReplaceBookmark('PersonaContactoClientePortada', 'A la atención de: ' + FieldByName('PERSONA_CONTACTO').AsString);
end;
Texto := FieldByName('PORTADA').AsString;
NombreFichero := DarFicheroTemporal;
EscribirEnFichero(NombreFichero, Texto);
FWordApp.InsertFile(NombreFichero, 'TextoPortada');
SysUtils.DeleteFile(NombreFichero);
end;
Result := True;
end;