Pesquisar na Comunidade

bom dia. tenho uma rotina de emissão de boleto onde: 1 - consulto a tabela de boleto 2 - dentro de um laço de repetição, mando as informações para o ACBrBoleto e salvo em PDF 4 - faço a impressão de todos os boletos 5 - por fim, faço o envio do PDF por e-mail os PDF são salvos separadamente, cada um com sua numeração, mas as informações (valor, cliente, etc) do primeiro boleto são repetidas para os demais. eu quero salvar um PDF para cada boleto. alguém já passou por isso? estou fazendo algo errado? tem alguma solução? desde já agradeço.

Boa tarde meus "amigos" rs Quando carrego o componente de CTe que possui mais de um documento anterior e mando visualizar ele pega apenas o primeiro documento anterior e repete no restante, se estiver errado me corrija, eu fiz o seguinte para dar certo o que eu entendi que foi colocado os [i, ii, iii] errado, eu queria saber se posso fazer isso que vai estar tudo tranquilo, belezinha Unit ACBrCTeDACTEFRDM procedure TdmACBrCTeFR.CarregaDocumentoAnterior; // Adicionado por NCC - 04/04/2014 for i := 0 to CTe.infCTeNorm.docAnt.emiDocAnt.Count - 1 do begin with CTe.infCTeNorm.docAnt.emiDocAnt.Items do begin {$ELSE} // for i := 0 to CTe.infCTeNorm.emiDocAnt.Count - 1 do // begin // with CTe.infCTeNorm.emiDocAnt.Items do // begin {$ENDIF} for ii := 0 to idDocAnt.Count - 1 do begin for iii := 0 to idDocAnt.Items[ii].idDocAntPap.Count-1 do begin with idDocAnt.Items[ii].idDocAntPap.Items[iii] do begin Append; FieldByName('CNPJCPF').AsString:=CNPJCPF; FieldByName('xNome').AsString:=xNome; FieldByName('UF').AsString:=UF; case tpDoc of daCTRC: FieldByName('Tipo').AsString:='CTRC'; daCTAC: FieldByName('Tipo').AsString:='CTAC'; daACT: FieldByName('Tipo').AsString:='ACT'; daNF7: FieldByName('Tipo').AsString:='NF 7'; daNF27: FieldByName('Tipo').AsString:='NF 27'; daCAN: FieldByName('Tipo').AsString:='CAN'; daCTMC: FieldByName('Tipo').AsString:='CTMC'; daATRE: FieldByName('Tipo').AsString:='ATRE'; daDTA: FieldByName('Tipo').AsString:='DTA'; daCAI: FieldByName('Tipo').AsString:='CAI'; daCCPI: FieldByName('Tipo').AsString:='CCPI'; daCA: FieldByName('Tipo').AsString:='CA'; daTIF: FieldByName('Tipo').AsString:='TIF'; daOutros: FieldByName('Tipo').AsString:='OUTROS'; end; //TEste Toan // FieldByName('Serie').AsString:=idDocAnt.Items.idDocAntPap.Items[ii].serie; // FieldByName('nDoc').AsString:=intToStr(idDocAnt.Items.idDocAntPap.Items[ii].nDoc); // FieldByName('dEmi').AsString:=FormatDateTime('dd/mm/yyyy',idDocAnt.Items.idDocAntPap.Items[ii].dEmi); FieldByName('Serie').AsString:=idDocAnt.Items[ii].idDocAntPap.Items[iii].serie; FieldByName('nDoc').AsString:=intToStr(idDocAnt.Items[ii].idDocAntPap.Items[iii].nDoc); FieldByName('dEmi').AsString:=FormatDateTime('dd/mm/yyyy',idDocAnt.Items[ii].idDocAntPap.Items[iii].dEmi); end; post;