Fórum ajuda com rave report #423571
13/09/2012
0
so que deveria fazer isso com o rave report, não estou conseguindo imprimir a carta de cobrança preenchida com alguuns dados relativo ao debito.
se tiverem um exemplo, ou um link para abaixar um fonte demo me ajudem
por favor, tirem esta corda de meu pescoço......
Edson Melo
Curtir tópico
+ 0Posts
14/09/2012
Bruno Leandro
Gostei + 0
14/09/2012
Paulo Freire
Gostei + 0
14/09/2012
Edson Melo
o problema e o seguinte tenho que montar uma mala direta aonde tenho que mandar uma carta de cobrança a cliente em atrazo, esta carta e composta de um cabecario uma tabela e mais um texto finalizando a correspondencia a primeira parte o cabecario e eo texto e a tabela coloco, mas apos a tabela tem um texto final e o local de assinatura com os dados do comerciom esta e a parte que não to conseguindo fazer. no meu projeto coloquei mais uma band para finalizar com o segundo texto, mas a tabela no meio não aparece.
acho que consegui explicar, fiz um outro projeto onde coloquei a tabela no final do texto, funcionou, so que tambem não pude incluir o local da aasinatura pois ele não permite colocar nada apos a tabela
Gostei + 0
14/09/2012
Edson Melo
neste exemplo abaixo nao tenho ideia de como montar varias cartas no mesmo arquivo, se puderem me ajudar
copia
tenho a seguinte codigo que monta um documento no word, apesar de alguns pontos que nao funcionam, esta ok
tenho um problema que nao consigo resolver. Tenho uma tabela que deveria ser montada no meio do documento,
so que o texto que deveria ser impresso apos a tabela, sai dentro da tabela, nao consegui um comando que
informa se ao sistema o fim da tabela para que eu posa inserir o final do texto ajudem me por favor
var i : integer;
MSWord : variant;
begin
MSWord:= CreateOleObject ('Word.Basic');
MSWord.Filenew;//inicia um novo documento
MSWord.AppShow;//mostra o word
MSWord.appmaximize;//Maximiza a janela do Word
// MSWord.insertpicture('.format.bmp');//Insere uma figura note que o ponto serve para dizer que esta no mesmo diretorio do programa
MSWord.Font('Times');//muda a fonte usada
MSWord.CenterPara;//coloca o texto no centro
MSWord.FontSize(14);//muda o tamanho da fonte
MSWord.bold;//coloca negrito
MSWord.underline;//sublina
MSWord.insert(#13+'CARTÃO SAÚDE CARAJÁS');//#13 serve para pular linha caso queira dar um tabulacao e colocar o caracter corespondente no caso #9
MSWord.insert(#13+'');//#13 serve para pular linha caso queira dar um tabulacao e colocar o caracter corespondente no caso #9
MSWord.leftPara;//coloca o texto no esquerda
MSWord.FontSize(12);//muda o tamanho da fonte
MSWord.insert(#13+#13'EDSON GARCIA DE MELO');//#13 serve para pular linha caso queira dar um tabulacao e colocar o caracter corespondente no caso #9
MSWord.insert(#13+'Nº CONTRATO 00000000');//#13 serve para pular linha caso queira dar um tabulacao e colocar o caracter corespondente no caso #9
MSWord.insert(#13+'Endereço : Rua Bairro : ');//#13 serve para pular linha caso queira dar um tabulacao e colocar o caracter corespondente no caso #9
MSWord.insert(#13+'');//#13 serve para pular linha caso queira dar um tabulacao colocar o caracter corespondente no caso #9
MSWord.FontSize(16);//muda o tamanho da fonte
MSWord.CenterPara;//coloca o texto no centro
MSWord.bold;//coloca negrito
MSWord.insert(#13+'Presado Associado do Cartão Carajás');//#13 serve para pular linha caso queira dar um tabulacao e colocar o caracter corespondente no caso #9
mSWord.insert(#13+'');//#13 serve para pular linha caso queira dar um tabulacao e colocar o caracter corespondente no caso #9
MSWord.RightPara;//coloca o texto no esquerda
MSWord.FontSize(14);//muda o tamanho da fonte
MSWord.bold(false);//tira o negrito
MSWord.insert(#13+' Comunicamos que seu Contrato de Adesão do Cartão Saúde Carajás efetuado');//#13 serve para pular linha caso queira dar um tabulacao e colocar o caracter corespondente no caso #9
MSWord.justifyPara;//coloca o texto no esquerda
MSWord.FontSize(14);//muda o tamanho da fonte
MSWord.insert(#13+'com nosso escritório, esta devidamente cadastrado, no entanto o mesmo encontra-se');//#13 serve para pular linha caso queira dar um tabulacao e colocar o caracter corespondente no caso #9
MSWord.insert(#13+'com (as) respectivas anuidade em aberto com o(s) seguintes vencimentos ');//#13 serve para pular linha caso queira dar um tabulacao e colocar o caracter corespondente no caso #9
MSWord.insert(#13+'');//#13 serve para pular linha caso queira dar um tabulacao e colocar o caracter corespondente no caso #9
MSWord.RightPara;//coloca o texto no esquerda
MSWord.FontSize(14);//muda o tamanho da fonte
MSWord.bold(false);//tira o negrito
// estas linhas abaixo seriam as linhas que deveriam estar apos a tabela
MSWord.insert(#13+' Caro associado do Cartão Saúde Carajás, informamos que os debitos abaixo');//#13 serve para pular linha caso queira dar um tabulacao e colocar o caracter corespondente no caso #9
MSWord.justifyPara;//coloca o texto no esquerda
MSWord.FontSize(14);//muda o tamanho da fonte
MSWord.insert(#13+'mencionados poderão ser negociados. Portanto estamos convidando a você associado');//#13 serve para pular linha caso queira dar um tabulacao e colocar o caracter corespondente no caso #9
MSWord.insert(#13+'a efetuar a liquidação de seu débito com o nosso escritório e receber seu cartão. Qual-');//#13 serve para pular linha caso queira dar um tabulacao e colocar o caracter corespondente no caso #9
MSWord.insert(#13+'quer duvida entre em contato');//#13 serve para pular linha caso queira dar um tabulacao e colocar o caracter corespondente no caso #9
MSWord.insert(#13+'');//#13 serve para pular linha caso queira dar um tabulacao e colocar o caracter corespondente no caso #9
MSWord.leftPara;//coloca o texto no esquerda
MSWord.FontSize(12);//muda o tamanho da fonte
MSWord.insert(#13+'Atenciosamente');//#13 serve para pular linha caso queira dar um tabulacao e colocar o caracter corespondente no caso #9
MSWord.insert(#13+'');//#13 serve para pular linha caso queira dar um tabulacao e colocar o caracter corespondente no caso #9
MSWord.FontSize(12);//muda o tamanho da fonte
MSWord.underline(false);//retira o sublinhado
MSWord.tableinserttable(NumColumns:=1, NumRows:=1); //Insere uma tabela com uma linha e uma coluna
MSWord.TableSelectTable; //seleciona a tabela inteira
MSWord.TableAutoFormat(Format:= 27); //usa a auto formatacao de tabelas do Word a vigesima para ser exato muda forma da tabela max 30
MSWord.startOfRow;//coloca o cursor piscando no comeco da linha
MSWord.leftPara;//coloca o texto na esquerda
MSWord.insert('Vencimento Dias de Atrazo Valor');// escreve
MSWord.nextcell;//vai para a Proxima Celula como nao existe ainda ele cria outra linha
MSWord.tableselectRow;// seleciona a linha atual
MSWord.tableSplitCells(NumColumns:=3, NumRows:=1);//divide a celula em 3 colunas e 1 linha
while not DM_DADOS.CDS_RECEBER.Eof do
begin
MSWord.insert(DateToStr(DM_DADOS.CDS_RECEBERDT_VENCIMENTO.AsDateTime));// escreve
MSWord.nextcell;//proxima celula
MSWord.insert(DifDias(DM_DADOS.CDS_RECEBERDT_VENCIMENTO.AsDateTime,Date));// escreve
MSWord.nextcell;//proxima celula
MSWord.insert(FloatToStrF(DM_DADOS.CDS_RECEBERVL_RECEBER.AsFloat,ffCurrency,18,2));// escreve
if not DM_DADOS.CDS_RECEBER.Eof then MSWord.nextcell;//proxima celula
DM_DADOS.CDS_RECEBER.Next;
end;
aqui iriam as linhas de texto que completaria o documento
Gostei + 0
14/09/2012
Bruno Leandro
Gostei + 0
14/09/2012
Edson Melo
mas vou tentar suas dica, não tinha pensado no rodape para imprimir a segunda parte voce me deu uma ideia
Gostei + 0
14/09/2012
Joel Rodrigues
Gostei + 0
15/09/2012
Edson Melo
bruno estou quase conseguindo, o texto que ficava como rodape estava em um segundo componente band retirei este texto, apaguei o 2 band e coloquei o texto na pagina fora do componente region, agora aparece em todas as folhas, mas tem um problema que não consigo resolver o cabeçario coloquei em no primeiro band, quando mando montar a carta o cabeçario so sai na primeira carta as outras paginas e impresso somente os dados do banco de dados e o rodape
me ajude com isto, e vamos aos poucos que chegarei ao fim
atenciosamente
edson garcia de melo
Gostei + 0
19/09/2012
Edson Melo
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)