Diniz
Novato
Registrado: Terça-Feira, 9 de Dezembro de 2003
Mensagens: 3
|
 Enviada: Seg Jan 14, 2008 7:23 pm Assunto: Delphi com documento word |
 |
|
Boa noite a todos....
Minha aplicação tem que gerar um contrato, até ai sem problema, mas neste contrato existem parcelas, estas podem ser 1, 2, 3, 4, 5......eu estou conseguindo gerar as parcelas, mas não estou conseguindo fazer com que elas fiquem uma embaixo da outra.
| Código: |
QtdLinha := 378;
Cont := 0;
while not FDM.CDS_Parcelas.Eof do
begin
FCadContrato.WordFont1.ConnectTo(FCadContrato.WordDocument.Content.Font);
FCadContrato.WordFont1.Bold:=1;
[/font][/size][/b][b][size="3"][font="Times New Roman"] inc(Cont);
if Cont > 1 then
begin
FCadContrato.WordDocument.Words.Item(QtdLinha).InsertAfter(#13);
FCadContrato.WordDocument.Words.Item(QtdLinha).Paragraphs;
end else
begin
FCadContrato.WordDocument.Words.Item(QtdLinha).Paragraphs;
FCadContrato.WordDocument.Words.Item(QtdLinha).InsertAfter(#13);
end;[/font][/size][/b]
[b][size="3"][font="Times New Roman"]
[b][size="3"] [/size][/b] Parcela := IntToStr(Cont)+') '+FormatCurr('###,##0.00', FDM.CDS_ParcelasVALOR.AsCurrency);[/font][/size][/b]
[b][size="3"][font="Times New Roman"] Parcela := Parcela + ' (' + Dinheiro_Extenso(FDM.CDS_ParcelasVALOR.AsCurrency) + ')';[/font][/size][/b]
[b][size="3"][font="Times New Roman"] if FDM.CDS_ParcelasOBS.AsString <> '' then
Parcela := Parcela + ', ' + FDM.CDS_ParcelasOBS.AsString + '.'
else
Parcela := Parcela + '.';[/font][/size][/b]
[b][size="3"][font="Times New Roman"]
[b][size="3"] [/size][/b] FCadContrato.WordDocument.Words.Item(QtdLinha).InsertAfter(Parcela);
[/font][/size][/b]
[b][size="3"][font="Times New Roman"]// TrocarString('{OBSParcela'+IntToStr(Cont)+'}', FDM.CDS_ParcelasOBS.AsString + '.', R);
FDM.CDS_Parcelas.Next;
end;
|
Grato
Rogério |
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
