Fórum Nota Fiscal no Rave Report. Alguém pode me ajudar? #412095
29/01/2012
0
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
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
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)