ActiveDelphi

[Gustavo_Arndt]

Olá galera, estou tendo em um programa de emissão de nf-e, especificamente na impressão das Danfes.

Digamos que eu selecionei 3 notas para a impressão, o programa vai imprimir 3 vezes a primeira nota.

Segue abaixo o código utilizado.

Função que verifica as danfes selecionadas pelo usuário e as carrega em no dm.acbrnfe.notasfiscais

function TFrameDANFE.carregarImpressao: boolean;
var
vCDSTemp : TClientDataSet;
vStream : TStringStream;
vStrTMP : string;
begin
vCDSTemp := TClientDataSet.Create(self);
vStream := TStringStream.Create;
try
vCDSTemp.CloneCursor(CDSNFE,false);
dm.ACBrNFe.NotasFiscais.Clear;
vCDSTemp.First;
while not vCDSTemp.Eof do
begin
if vCDSTemp.FieldByName('CHECK_DANFE').AsInteger = 1 then
begin
vStrTMP := DM.getXMLByID(vCDSTemp.FieldByName('ID').AsInteger);
vStream.WriteString(vStrTMP);
dm.ACBrNFe.NotasFiscais.LoadFromStream(vStream);
setaCheckDanfe(vCDSTemp);
setaImpressoDanfe(vCDSTemp);
end;
vCDSTemp.Next;
end;
finally
vCDSTemp.Free;
vStream.Free;
end;
end;

após isso vem a seguinte procedure:

procedure TDM.imprimir_notas;
var
x : Integer;
begin
configurarDANFE;
for x := 0 to ACBrNFe.NotasFiscais.Count -1 do
begin
ACBrNFe.DANFE.TipoDANFE := ACBrNFe.NotasFiscais.Items[x].NFe.Ide.tpImp;
ACBrNFe.DANFE.ImprimirDANFE(ACBrNFe.NotasFiscais.Items[x].NFe);
end;
end;

Como podem ver, ela pega as notas que estão no acbrnfe.notasfiscais, setando o tipo de impressão e depois as imprime.
mas ali está o problema, mesmo setando no items qual nota imprimir ele seleciona sempre a primeira e não muda para a próxima na sequência, ou seja ali na linha do ACBrNFe.DANFE.ImprimirDANFE(ACBrNFe.NotasFiscais.Items[x].NFe) a nota continua a mesma....

Até pensei no fato de ser o componente da acbr mas mesmo atualizando-o não resolveu =\
Alguma sugestão?


Desde já agradeço a vocês.

Att Gustavo

[CENTURYINF]

ola,
apos imprimir a primeira nota, tente descarregar o componete
e depois carregar a proxima nota.

dm.ACBrNFe.NotasFiscais.Clear;

[Gustavo_Arndt]

[rafmattos]

se vc ja carregou todas as notas dentro do ACBR, não seria só vc dar o

[Gustavo_Arndt]

fiz o que você falou, mas mesmo assim continua imprimindo a mesma nota mais de uma vez...

Eu estava pensando se talvez o problema não fosse na hora de carregar as notas pra dentro do acbrnfe, mas não tenho certeza, pois pela depuração que fiz ele pega certo as notas e as adiciona para o componente.
Alguém sabe me informar se o uso do stringstream está correto?
Pois nunca havia mexido com esse objeto antes...

[rafmattos]

[rafmattos]

[Gustavo_Arndt]

também não deu muito certo
vou testar logo após a atribuição da nota ao componente...

qualquer avanço posto os resultados =)

[rafmattos]

[Gustavo_Arndt]

[mrocha2011]

O Servidor de Impressão do RDI Open NFe é totalmente feito em Delphi 7. Ele fica monitorando uma pasta que você configura e faz a impressão/envio de e-mail com o XML anexado.

E o melhor, o código é aberto.

opennfe.codeplex.com