D590

  with qry1, SQL do
    begin
      Close;
      Clear;
      Add('SELECT * FROM C000087');
      Add('WHERE data_emissao BETWEEN :dtini AND :dtfin');
      Add('AND modelo = :mod');
      ParamByName('dtini').AsDate := StrToDate(mskInicial.Text);
      ParamByName('dtfin').AsDate := StrToDate(mskFinal.Text);
      ParamByName('mod').AsString := '22';
      Prepared := True;
      Open;
      FetchAll;
    end;

  with Fiscal.Bloco_D do
    begin
      while not(qry1.Eof) do
        begin

          with RegistroD500New do
            begin
              IND_OPER := tpEntradaAquisicao;
              IND_EMIT := edTerceiros;
              COD_PART := 'NFEF' + qry1.FieldByName('codfornecedor').AsString;
              COD_MOD  := '21';
              COD_SIT  := sdRegular;
              SER      := qry1.FieldByName('serie').AsString;
              SUB      := '02'; // colocar no sistema
              NUM_DOC  := qry1.FieldByName('numero').AsString;
              DT_DOC   := qry1.FieldByName('data_emissao').AsDateTime;
              DT_A_P   := qry1.FieldByName('data_emissao').AsDateTime;
              VL_DOC   := qry1.FieldByName('total_nota').AsFloat;
              VL_DESC  := qry1.FieldByName('desconto').AsFloat;
              VL_SERV  := qry1.FieldByName('total_nota').AsFloat;
              VL_SERV_NT := 0;
              VL_TERC    := 0;
              VL_DA      := qry1.FieldByName('outras').AsFloat;
              VL_BC_ICMS := qry1.FieldByName('base_icms').AsFloat;
              VL_ICMS    := qry1.FieldByName('valor_icms').AsFloat;
              COD_INF    := '';
              VL_PIS     := 0;
              VL_COFINS  := 0;
              COD_CTA    := '';
              TP_ASSINANTE := assComercialIndustrial;
            end;

          with RegistroD590New do
            begin
              CST_ICMS    := '051';//qry2.FieldByName('cst').AsString;
              CFOP        := qry1.FieldByName('cfop').AsString;
              ALIQ_ICMS   := 25.00; //qry2.FieldByName('icms_aliquota').AsFloat;
              VL_OPR      := qry1.FieldByName('total_nota').AsFloat;
              VL_BC_ICMS  := qry1.FieldByName('base_icms').AsFloat;
              VL_ICMS     := qry1.FieldByName('valor_icms').AsFloat;
              VL_BC_ICMS_ST := qry1.FieldByName('base_sub').AsFloat;
              VL_ICMS_ST    := qry1.FieldByName('valor_sub').AsFloat;
              VL_RED_BC     := 0;

              { SE A NOTA TEM OBS INFORMAR O CÓDIGO }
              if (qry1.FieldByName('obs1').AsString <> trim('')) or (qry1.FieldByName('obs2').AsString <> trim('')) or
                 (qry1.FieldByName('obs3').AsString <> trim('')) or (qry1.FieldByName('obs4').AsString <> trim('')) or
                 (qry1.FieldByName('obs5').AsString <> trim('')) or (qry1.FieldByName('obs6').AsString <> trim('')) or
                 (qry1.FieldByName('obs7').AsString <> trim('')) or (qry1.FieldByName('obs8').AsString <> trim('')) then
                    COD_OBS := 'E' +  copy(qry1.FieldByName('codigo').AsString,2,6);
            end;

          qry1.Next;
        end;
    end;