Painel de líderes

oi meu sistema ja emite nfe a muito tempo. so que todos os nossos clientes sao simples. pegamos um que é lucro real. e estou apanhando para alimentar os dados do icms. pelo que o contador nos informou é: - se o produto tem icms o valor base de calculo e o valor total do produto - pegar a parcela do icms e coloca em picms - calcular o valor do icms e colocar em vicms - no total da nota na tag Total.ICMSTot colocar vBC = o total de produtos que tenha icms (total é a quantidade * preco unitario) vICMS = o total calculado do valor do icms vProd = o valor total de todos os produtosvNF := totalprodutos - totalDescontos;// - self.editdescontogeral.valor; total.ICMSTot.vDesc := totalDescontos; total.ICMSTot.vIPI := totalipi; Total.ICMSTot.vTotTrib := icmstotal;

Não tenho mas segue abaixo o trecho de código onde adiciono as cidades pra você usar como exemplo: // Verifica se o municipio de carregamento já foi adicionado iIndex := -1; iCodCid := StrToIntDef(qryCTe.FieldByName('CMUNINI').AsString,0); for i := 0 to Ide.infMunCarrega.Count - 1 do begin if ( Ide.infMunCarrega.Items[i].cMunCarrega = iCodCid ) then begin iIndex := i; Break; end; end; // Se o município ainda não foi adicionado, adiciona if ( iIndex < 0 ) then begin with Ide.infMunCarrega.Add do begin cMunCarrega := iCodCid; xMunCarrega := qryCTe.FieldByName('XMUNINI').AsString; end; end; // Verifica se o municipio de descarregamento já foi adicionado iIndex := -1; iCodCid := StrToIntDef(qryCTe.FieldByName('CMUNFIM').AsString,0); for i := 0 to infDoc.infMunDescarga.Count - 1 do begin if ( infDoc.infMunDescarga.Items[i].cMunDescarga = iCodCid ) then begin iIndex := i; Break; end; end; // Se o município ainda não foi adicionado, adiciona if ( iIndex < 0 ) then begin with infDoc.infMunDescarga.Add do begin cMunDescarga := iCodCid; xMunDescarga := qryCTe.FieldByName('XMUNFIM').AsString; infCTe.Add.chCTe := qryCTe.FieldByName('CTE_CHAVE').AsString; end; end else begin // Se o municipio já foi adicionado, adiciona apenas a chave do cte infDoc.infMunDescarga.Items[iIndex].infCTe.Add.chCTe := qryCTe.FieldByName('CTE_CHAVE').AsString; end;