Nota Fiscal no Rave Report. Alguém pode me ajudar?

Delphi

29/01/2012

No Rave Report, criei várias colunas na area de ITENS da Nota Fiscal... configuradas no DataField assim:
Param.Produto1 Param.VlUnit1
Param.Produto2... Param.VlUnit2...

No Delphi, no botão de visualização da NF pronta, coloquei o codigo, na parte de Itens:

//Impressão dos Itens/Produtos
IntNumeroItem := 1 ;
DmModuloDados1.SdsItensNF.Filter := Numero_Nota = +DmModuloDados1.SdsNotasFiscaisNumero_Nota.AsString;
DmModuloDados1.SdsItensNF.Filtered := True;
while not DmModuloDados1.SdsItensNF.Eof do
begin
strColuna[1] := Codigo+IntToStr(intNumeroItem);
strColuna[2] := Produto+IntToStr(intNumeroItem);
strColuna[3] := CLFiscal+IntToStr(intNumeroItem);
strColuna[4] := SituacaoTributo+IntToStr(intNumeroItem);
strColuna[5] := Unidade+IntToStr(intNumeroItem);
strColuna[6] := Quantidade+IntToStr(intNumeroItem);
strColuna[7] := ValorUnitario+IntToStr(intNumeroItem);
strColuna[8] := ValorTotal+IntToStr(intNumeroItem);
strColuna[9] := ICMS+IntToStr(intNumeroItem);
strColuna[10] := IPI+IntToStr(intNumeroItem);
strColuna[11] := ValorIPI+IntToStr(intNumeroItem);

DmRelatorios.RvRelatorios.SetParam(strColuna[1], DmModuloDados1.SdsItensNFCodigo.AsString);
DmRelatorios.RvRelatorios.SetParam(strColuna[2], DmModuloDados1.SdsItensNFProduto.AsString);
DmRelatorios.RvRelatorios.SetParam(strColuna[3], DmModuloDados1.SdsItensNFClassificacao_Fiscal.AsString);
DmRelatorios.RvRelatorios.SetParam(strColuna[4], DmModuloDados1.SdsItensNFSituacao_Tributaria.AsString);
DmRelatorios.RvRelatorios.SetParam(strColuna[5], DmModuloDados1.SdsItensNFUnidade_Medida.AsString);
DmRelatorios.RvRelatorios.SetParam(strColuna[6], DmModuloDados1.SdsItensNFQuantidade.AsString);
DmRelatorios.RvRelatorios.SetParam(strColuna[7], Format(%8.2f, [DmModuloDados1.SdsItensNFPreco_Unitario.AsFloat]));
DmRelatorios.RvRelatorios.SetParam(strColuna[8], Format(%10.2f, [DmModuloDados1.SdsItensNFValorTotal.AsFloat]));
DmRelatorios.RvRelatorios.SetParam(strColuna[9], Format(%5.2f, [DmModuloDados1.SdsItensNFICMS.AsFloat]));
DmRelatorios.RvRelatorios.SetParam(strColuna[10], Format(%5.2f, [DmModuloDados1.SdsItensNFIPI.AsFloat]));
DmRelatorios.RvRelatorios.SetParam(strColuna[11], Format(%8.2f, [DmModuloDados1.SdsItensNFValor_IPI.AsFloat]));
DmModuloDados1.SdsItensNF.Next;

Conclusão: A Nota Fiscal surge! O Valor Total dos itens mostra tudo certinho, mas só mostra o primeiro item. Alguém pode me ajudar? Uso o MySql
Célia Medeiros

Célia Medeiros

Curtidas 0
POSTAR