Informes musaeda 2
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1131 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
parent
bacfa8b49f
commit
ca589394b1
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
@ -1,5 +1,5 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41737,4780466088" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin if (<Page#> = <TotalPages#>) then begin mContinua.Visible := False; end else begin mContinua.Visible := True; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365744E616D653D226672784442496E666F726D65495641436F6D706172617469766F4661637475726173436C692200010C3400000020446174615365744E616D653D226672784442496E666F726D65495641436F6D706172617469766F466163747572617350726F220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
|
||||
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="42450,5900417477" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin if (<Page#> = <TotalPages#>) then begin mContinua.Visible := False; end else begin mContinua.Visible := True; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365744E616D653D226672784442496E666F726D65495641436F6D706172617469766F4661637475726173436C692200010C3400000020446174615365744E616D653D226672784442496E666F726D65495641436F6D706172617469766F466163747572617350726F220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
|
||||
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
||||
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
||||
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
|
||||
@ -7,8 +7,7 @@
|
||||
<TfrxShapeView Name="Shape5" Left="513" Top="4" Width="495" Height="129" ShowHint="False" Color="13434828" Shape="skRoundRectangle"/>
|
||||
<TfrxMemoView Name="NombreCliente" Left="521,85807" Top="13" Width="478" Height="19" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO COMPARATIVO DE IVA REPERCUTIDO - SOPORTADO"/>
|
||||
<TfrxMemoView Name="Memo3" Left="521,85807" Top="34,89765" Width="478" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [<Date>] - Página [Page#] de [TotalPages#] [TextoParametros]"/>
|
||||
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="130" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
|
||||
<TfrxMemoView Name="DatosEmpresa" Left="82" Top="37" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="TECSITEL S.L. CIF: B81747396 C/ Buendía, 25 28053 MADRID Telf.: 91 507 56 92/63 Fax: 91 785 96 35 tecsitel@tecsitel.com"/>
|
||||
<TfrxMemoView Name="DatosEmpresa" Left="82" Top="37" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="TECSITEL S.L. CIF: B81747396 C/ Hierro, 33 1ª Plta Oficina 10. 28045 Madrid Telf: 91-507-56-92 / 63 Fax: 91-785-96-35 e-mail: tecsitel@tecsitel.com"/>
|
||||
</TfrxPageHeader>
|
||||
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="664" Width="1009,13451" PrintOnLastPage="False">
|
||||
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
|
||||
|
||||
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
Binary file not shown.
Binary file not shown.
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
@ -1,5 +1,5 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41737,4934834028" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin if (<Page#> = <TotalPages#>) then begin mContinua.Visible := False; end else begin mContinua.Visible := True; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365744E616D653D226672784442496E666F726D65495641436F6D706172617469766F4661637475726173436C692200010C3400000020446174615365744E616D653D226672784442496E666F726D65495641436F6D706172617469766F466163747572617350726F220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
|
||||
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="42450,6666910417" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin if (<Page#> = <TotalPages#>) then begin mContinua.Visible := False; end else begin mContinua.Visible := True; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365744E616D653D226672784442496E666F726D65495641436F6D706172617469766F4661637475726173436C692200010C3400000020446174615365744E616D653D226672784442496E666F726D65495641436F6D706172617469766F466163747572617350726F220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
|
||||
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
||||
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
||||
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
|
||||
@ -7,8 +7,7 @@
|
||||
<TfrxShapeView Name="Shape5" Left="513" Top="4" Width="495" Height="129" ShowHint="False" Color="13434828" Shape="skRoundRectangle"/>
|
||||
<TfrxMemoView Name="NombreCliente" Left="521,85807" Top="13" Width="478" Height="19" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO COMPARATIVO DE IVA REPERCUTIDO - SOPORTADO"/>
|
||||
<TfrxMemoView Name="Memo3" Left="521,85807" Top="34,89765" Width="478" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [<Date>] - Página [Page#] de [TotalPages#] [TextoParametros]"/>
|
||||
<TfrxMemoView Name="DatosEmpresa" Left="83" Top="38" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="TECSITEL MANTENIMIENTO S.L. CIF: B83122168 C/ Buendía, 25 28053 MADRID Telf.: 91 507 56 92/63 Fax: 91 785 96 35 tecsitel@tecsitel.com"/>
|
||||
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="130" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
|
||||
<TfrxMemoView Name="DatosEmpresa" Left="83" Top="38" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="TECSITEL MANTENIMIENTO S.L. CIF: B83122168 C/ Hierro, 33 1ª Plta Oficina 10. 28045 Madrid Telf: 91-507-56-92 / 63 Fax: 91-785-96-35 e-mail: tecsitel@tecsitel.com"/>
|
||||
</TfrxPageHeader>
|
||||
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="664" Width="1009,13451" PrintOnLastPage="False">
|
||||
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
|
||||
|
||||
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
Binary file not shown.
BIN
Source/Informes/4/AlbaranCliente.rdx
Normal file
BIN
Source/Informes/4/AlbaranCliente.rdx
Normal file
Binary file not shown.
BIN
Source/Informes/4/FacturaCliente.rdx
Normal file
BIN
Source/Informes/4/FacturaCliente.rdx
Normal file
Binary file not shown.
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
Binary file not shown.
@ -135,16 +135,23 @@ begin
|
||||
|
||||
with FDocumento, tbl_Cabecera do
|
||||
begin
|
||||
ReplaceBookmark('CodigoAlbaranCab', FieldByName('REFERENCIA').AsString);
|
||||
ReplaceBookmark('Referencia_Cliente', FieldByName('REFERENCIA_CLIENTE').AsString);
|
||||
ReplaceBookmark('FechaAlbaranCab', FieldByName('FECHA_ALBARAN').AsString);
|
||||
if BookmarkExists('CodigoAlbaranCab') then
|
||||
ReplaceBookmark('CodigoAlbaranCab', FieldByName('REFERENCIA').AsString);
|
||||
if BookmarkExists('Referencia_Cliente') then
|
||||
ReplaceBookmark('Referencia_Cliente', FieldByName('REFERENCIA_CLIENTE').AsString);
|
||||
if BookmarkExists('FechaAlbaranCab') then
|
||||
ReplaceBookmark('FechaAlbaranCab', FieldByName('FECHA_ALBARAN').AsString);
|
||||
|
||||
ReplaceBookmark('NombreClienteCab', FieldByName('NOMBRE').AsString);
|
||||
ReplaceBookmark('DireccionClienteCab', FieldByName('CALLE').AsString);
|
||||
ReplaceBookmark('PoblacionClienteCab',
|
||||
if BookmarkExists('NombreClienteCab') then
|
||||
ReplaceBookmark('NombreClienteCab', FieldByName('NOMBRE').AsString);
|
||||
if BookmarkExists('DireccionClienteCab') then
|
||||
ReplaceBookmark('DireccionClienteCab', FieldByName('CALLE').AsString);
|
||||
if BookmarkExists('PoblacionClienteCab') then
|
||||
ReplaceBookmark('PoblacionClienteCab',
|
||||
FieldByName('CODIGO_POSTAL').AsString + ' ' +
|
||||
FieldByName('POBLACION').AsString + ' ' + FieldByName('PROVINCIA').AsString);
|
||||
ReplaceBookmark('ContactoClienteCab', FieldByName('PERSONA_CONTACTO').AsString);
|
||||
if BookmarkExists('ContactoClienteCab') then
|
||||
ReplaceBookmark('ContactoClienteCab', FieldByName('PERSONA_CONTACTO').AsString);
|
||||
|
||||
{P571
|
||||
ReplaceBookmark('BaseImponible', FieldByName('BASEIMPONIBLE').DisplayText);
|
||||
@ -159,18 +166,21 @@ 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',
|
||||
if BookmarkExists('NombreEmpresa') then
|
||||
ReplaceBookmark('NombreEmpresa', tbl_Empresa.FieldByName('NOMBRE').AsString);
|
||||
if BookmarkExists('CifEmpresa') then
|
||||
ReplaceBookmark('CifEmpresa', tbl_Empresa.FieldByName('NIF_CIF').AsString);
|
||||
if BookmarkExists('DireccionEmpresa') then
|
||||
ReplaceBookmark('DireccionEmpresa',
|
||||
Format('%s. %s %s', [tbl_Empresa.FieldByName('CALLE').AsString,
|
||||
tbl_Empresa.FieldByName('CODIGO_POSTAL').AsString, tbl_Empresa.FieldByName('POBLACION').AsString]));
|
||||
ReplaceBookmark('TelefonoEmpresa', tbl_Empresa.FieldByName('TELEFONO_1').AsString);
|
||||
ReplaceBookmark('FaxEmpresa', tbl_Empresa.FieldByName('FAX').AsString);
|
||||
ReplaceBookmark('CorreoEmpresa', tbl_Empresa.FieldByName('EMAIL_1').AsString);
|
||||
if BookmarkExists('TelefonoEmpresa') then
|
||||
ReplaceBookmark('TelefonoEmpresa', tbl_Empresa.FieldByName('TELEFONO_1').AsString);
|
||||
if BookmarkExists('FaxEmpresa') then
|
||||
ReplaceBookmark('FaxEmpresa', tbl_Empresa.FieldByName('FAX').AsString);
|
||||
if BookmarkExists('CorreoEmpresa') then
|
||||
ReplaceBookmark('CorreoEmpresa', tbl_Empresa.FieldByName('EMAIL_1').AsString);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TRptWordAlbaranCliente.RellenarDatosDetalle;
|
||||
|
||||
@ -1,8 +1,8 @@
|
||||
object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
|
||||
OldCreateOrder = False
|
||||
OnCreate = DataModuleCreate
|
||||
Height = 262
|
||||
Width = 344
|
||||
Height = 375
|
||||
Width = 392
|
||||
object schReport: TDASchema
|
||||
ConnectionManager = dmServer.ConnectionManager
|
||||
DataDictionary = DataDictionary
|
||||
|
||||
@ -261,15 +261,28 @@ begin
|
||||
FDesBonificacion := Null;
|
||||
FImpBonificacion := FieldByName('IMPORTE_BONIFICACION').AsFloat;
|
||||
|
||||
ReplaceBookmark('CodigoPresupuestoCab', FieldByName('REFERENCIA').AsString);
|
||||
ReplaceBookmark('FechaPresupuestoCab', FieldByName('FECHA_PRESUPUESTO').AsString);
|
||||
ReplaceBookmark('NombreClienteCab', FieldByName('NOMBRE').AsString);
|
||||
ReplaceBookmark('DireccionClienteCab', FieldByName('CALLE').AsString);
|
||||
ReplaceBookmark('PoblacionClienteCab',
|
||||
if BookmarkExists('CodigoPresupuestoCab') then
|
||||
ReplaceBookmark('CodigoPresupuestoCab', FieldByName('REFERENCIA').AsString);
|
||||
|
||||
if BookmarkExists('FechaPresupuestoCab') then
|
||||
ReplaceBookmark('FechaPresupuestoCab', FieldByName('FECHA_PRESUPUESTO').AsString);
|
||||
|
||||
if BookmarkExists('NombreClienteCab') then
|
||||
ReplaceBookmark('NombreClienteCab', FieldByName('NOMBRE').AsString);
|
||||
|
||||
if BookmarkExists('DireccionClienteCab') then
|
||||
ReplaceBookmark('DireccionClienteCab', FieldByName('CALLE').AsString);
|
||||
|
||||
if BookmarkExists('PoblacionClienteCab') then
|
||||
ReplaceBookmark('PoblacionClienteCab',
|
||||
FieldByName('CODIGO_POSTAL').AsString + ' ' +
|
||||
FieldByName('POBLACION').AsString + ' ' + FieldByName('PROVINCIA').AsString);
|
||||
ReplaceBookmark('ContactoClienteCab', FieldByName('PERSONA_CONTACTO').AsString);
|
||||
ReplaceBookmark('NombreClienteFirma', FieldByName('NOMBRE').AsString);
|
||||
|
||||
if BookmarkExists('ContactoClienteCab') then
|
||||
ReplaceBookmark('ContactoClienteCab', FieldByName('PERSONA_CONTACTO').AsString);
|
||||
|
||||
if BookmarkExists('NombreClienteFirma') then
|
||||
ReplaceBookmark('NombreClienteFirma', FieldByName('NOMBRE').AsString);
|
||||
|
||||
//Solo para la empresa de tecsitel se debe elegir uno u otra firma
|
||||
//esto es un poco parche pero bueno
|
||||
@ -320,28 +333,28 @@ begin
|
||||
SysUtils.DeleteFile(NombreFichero);
|
||||
|
||||
|
||||
if (tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger <> 3) then
|
||||
begin
|
||||
ReplaceBookmark('NombreEmpresaPortada', tbl_Empresa.FieldByName('NOMBRE').AsString);
|
||||
ReplaceBookmark('DireccionEmpresaPortada',
|
||||
if BookmarkExists('NombreEmpresa') then
|
||||
ReplaceBookmark('NombreEmpresa', tbl_Empresa.FieldByName('NOMBRE').AsString);
|
||||
|
||||
if BookmarkExists('CifEmpresa') then
|
||||
ReplaceBookmark('CifEmpresa', tbl_Empresa.FieldByName('NIF_CIF').AsString);
|
||||
|
||||
if BookmarkExists('DireccionEmpresa') then
|
||||
ReplaceBookmark('DireccionEmpresa',
|
||||
Format('%s. %s %s', [tbl_Empresa.FieldByName('CALLE').AsString,
|
||||
tbl_Empresa.FieldByName('CODIGO_POSTAL').AsString, tbl_Empresa.FieldByName('POBLACION').AsString]));
|
||||
ReplaceBookmark('TelefonoEmpresaPortada', tbl_Empresa.FieldByName('TELEFONO_1').AsString);
|
||||
ReplaceBookmark('FaxEmpresaPortada', tbl_Empresa.FieldByName('FAX').AsString);
|
||||
ReplaceBookmark('CorreoEmpresaPortada', tbl_Empresa.FieldByName('EMAIL_1').AsString);
|
||||
|
||||
ReplaceBookmark('NombreEmpresa', tbl_Empresa.FieldByName('NOMBRE').AsString);
|
||||
ReplaceBookmark('CifEmpresa', tbl_Empresa.FieldByName('NIF_CIF').AsString);
|
||||
ReplaceBookmark('DireccionEmpresa',
|
||||
Format('%s. %s %s', [tbl_Empresa.FieldByName('CALLE').AsString,
|
||||
tbl_Empresa.FieldByName('CODIGO_POSTAL').AsString, tbl_Empresa.FieldByName('POBLACION').AsString]));
|
||||
ReplaceBookmark('TelefonoEmpresa', tbl_Empresa.FieldByName('TELEFONO_1').AsString);
|
||||
if BookmarkExists('TelefonoEmpresa') then
|
||||
ReplaceBookmark('TelefonoEmpresa', tbl_Empresa.FieldByName('TELEFONO_1').AsString);
|
||||
|
||||
ReplaceBookmark('FaxEmpresa', tbl_Empresa.FieldByName('FAX').AsString);
|
||||
ReplaceBookmark('CorreoEmpresa', tbl_Empresa.FieldByName('EMAIL_1').AsString);
|
||||
ReplaceBookmark('NombreEmpresaFirma', tbl_Empresa.FieldByName('NOMBRE').AsString);
|
||||
end;
|
||||
if BookmarkExists('FaxEmpresa') then
|
||||
ReplaceBookmark('FaxEmpresa', tbl_Empresa.FieldByName('FAX').AsString);
|
||||
|
||||
if BookmarkExists('CorreoEmpresa') then
|
||||
ReplaceBookmark('CorreoEmpresa', tbl_Empresa.FieldByName('EMAIL_1').AsString);
|
||||
|
||||
if BookmarkExists('NombreEmpresaFirma') then
|
||||
ReplaceBookmark('NombreEmpresaFirma', tbl_Empresa.FieldByName('NOMBRE').AsString);
|
||||
end;
|
||||
Result := True;
|
||||
end;
|
||||
@ -454,25 +467,54 @@ begin
|
||||
|
||||
with FDocumento, tbl_Cabecera do
|
||||
begin
|
||||
ReplaceBookmark('CodigoPresupuestoPortada', FieldByName('REFERENCIA').AsString);
|
||||
ReplaceBookmark('FechaPresupuestoPortada', FieldByName('FECHA_PRESUPUESTO').AsString);
|
||||
ReplaceBookmark('NombreClientePortada', FieldByName('NOMBRE').AsString);
|
||||
if BookmarkExists('CodigoPresupuestoPortada') then
|
||||
ReplaceBookmark('CodigoPresupuestoPortada', FieldByName('REFERENCIA').AsString);
|
||||
|
||||
if FDocumento.BookmarkExists('DireccionClientePortada') then
|
||||
if BookmarkExists('FechaPresupuestoPortada') then
|
||||
ReplaceBookmark('FechaPresupuestoPortada', FieldByName('FECHA_PRESUPUESTO').AsString);
|
||||
|
||||
if BookmarkExists('NombreClientePortada') then
|
||||
ReplaceBookmark('NombreClientePortada', FieldByName('NOMBRE').AsString);
|
||||
|
||||
if BookmarkExists('DireccionClientePortada') then
|
||||
ReplaceBookmark('DireccionClientePortada', FieldByName('CALLE').AsString);
|
||||
if FDocumento.BookmarkExists('PoblacionClientePortada') then
|
||||
|
||||
if BookmarkExists('PoblacionClientePortada') then
|
||||
ReplaceBookmark('PoblacionClientePortada',
|
||||
FieldByName('CODIGO_POSTAL').AsString + ' ' +
|
||||
FieldByName('POBLACION').AsString + ' ' + FieldByName('PROVINCIA').AsString);
|
||||
|
||||
if not EsCadenaVacia(FieldByName('PERSONA_CONTACTO').AsString) then
|
||||
ReplaceBookmark('PersonaContactoClientePortada', 'A la atención de: ' + FieldByName('PERSONA_CONTACTO').AsString);
|
||||
if BookmarkExists('PersonaContactoClientePortada') then
|
||||
ReplaceBookmark('PersonaContactoClientePortada', 'A la atención de: ' + FieldByName('PERSONA_CONTACTO').AsString);
|
||||
{
|
||||
if BookmarkExists('TextoPortada') then
|
||||
begin
|
||||
Texto := FieldByName('PORTADA').AsString;
|
||||
NombreFichero := DarFicheroTemporal;
|
||||
EscribirEnFichero(NombreFichero, Texto);
|
||||
// FDocumento.Bookmark['TextoPortada'].Select;
|
||||
// ReplaceBookmark('TextoPortada', FieldByName('PORTADA').AsString);
|
||||
// FWordApp.InsertFile(NombreFichero, 'TextoPortada');
|
||||
SysUtils.DeleteFile(NombreFichero);
|
||||
end;
|
||||
}
|
||||
if BookmarkExists('NombreEmpresaPortada') then
|
||||
ReplaceBookmark('NombreEmpresaPortada', tbl_Empresa.FieldByName('NOMBRE').AsString);
|
||||
|
||||
Texto := FieldByName('PORTADA').AsString;
|
||||
NombreFichero := DarFicheroTemporal;
|
||||
EscribirEnFichero(NombreFichero, Texto);
|
||||
FWordApp.InsertFile(NombreFichero, 'TextoPortada');
|
||||
SysUtils.DeleteFile(NombreFichero);
|
||||
if BookmarkExists('DireccionEmpresaPortada') then
|
||||
ReplaceBookmark('DireccionEmpresaPortada',
|
||||
Format('%s. %s %s', [tbl_Empresa.FieldByName('CALLE').AsString,
|
||||
tbl_Empresa.FieldByName('CODIGO_POSTAL').AsString, tbl_Empresa.FieldByName('POBLACION').AsString]));
|
||||
|
||||
if BookmarkExists('TelefonoEmpresaPortada') then
|
||||
ReplaceBookmark('TelefonoEmpresaPortada', tbl_Empresa.FieldByName('TELEFONO_1').AsString);
|
||||
|
||||
if BookmarkExists('FaxEmpresaPortada') then
|
||||
ReplaceBookmark('FaxEmpresaPortada', tbl_Empresa.FieldByName('FAX').AsString);
|
||||
|
||||
if BookmarkExists('CorreoEmpresaPortada') then
|
||||
ReplaceBookmark('CorreoEmpresaPortada', tbl_Empresa.FieldByName('EMAIL_1').AsString);
|
||||
|
||||
end;
|
||||
Result := True;
|
||||
|
||||
@ -38,6 +38,28 @@
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">3</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.1.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES Servidor</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.1.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 07 de marzo de 2016 13:00</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
|
||||
Loading…
Reference in New Issue
Block a user