[firebase-br] Atirbui um valor à uma v=?iso-8859-1?q?ar=3D=3Fiso-8859-1=3Fq=3Fi=3DE1vel=5Freal=3D2C=5Fmas=5Fela?==?iso-8859-1?q?=5Fn=3DE3o=5Ffica=5Fcom=5Fo=5F?=

[Guilherme Vieira]

var
  oQueryNota, oQueryDetNota, oQueryMovEst, oQueryDetMovEst, oQueryCadCli, oQueryCadPro: TIBQuery;
  cMes, cAno, cDiasNoMes, cDataIni, cDataFim, cEstadoNF : string;
  lCarregaRegistro: boolean;
  vIPI_Isento, vIPI_Outras, vIPI_Normal, vICMS_Isento, vICMS_Outras, vICMS_Normal: real;
  vRedICM_Outras, vRedICM_Isento, vRedICMS: real;
  cValor: string;

begin

// antes disso tá carregando uma tabela temporária e as querys necessárias


  if ((LSIS1.ComparaString(FloatToStr(oQueryDetNota.FieldByName('pAliIPI').AsFloat), ['0'])) and (LSIS1.ComparaString(oQueryDetNota.FieldByName('cEspecie').AsString, ['P']))) or (LSIS1.ComparaString(oQueryDetNota.FieldByName('lCreIPIs').AsString, ['I'])) then
  begin
    while vIPI_Isento <> oQueryDetNota.FieldByName('TotalLiquido').AsFloat do
      vIPI_Isento := oQueryDetNota.FieldByName('vTotalLiquido').AsFloat;
  end
  else if LSIS1.ComparaString(oQueryDetNota.FieldByName('lCreIPIs').AsString, ['N']) then
    begin
      while vIPI_Normal <> oQueryDetNota.FieldByName('vIPI').AsFloat do
        vIPI_Normal := oQueryDetNota.FieldByName('vIPI').AsFloat;
  end
  else if LSIS1.ComparaString(oQueryDetNota.FieldByName('lCreIPIs').AsString, ['O']) then
  begin
    while vIPI_Outras <> oQueryDetNota.FieldByName('vIPI').AsFloat do
      vIPI_Outras := oQueryDetNota.FieldByName('vIPI').AsFloat;
  end;
end;

// se precisar de mais informações, gritae. Vlw...
// Como tá ae, agora, resolve meu problema.

--