procedure TFrmVendaExpressa.ProcurarProduto(aProcurar: Boolean; strPesquisa: String);
var
  mProduto: String;
  mCodigo: string;
begin
  mProduto        := '';
  mCodigo         := '';
  try
    if aProcurar then
    begin
      if dbProcurarProduto.Execute then
      begin
        mProduto := dbProcurarProduto.ResultFieldAsString('REFERENCIA');
        mCodigo  := dbProcurarProduto.ResultFieldAsString('CODIGO_BARRA');
      end;
    end
    else
    begin
      mCodigo := strPesquisa;

      if cbbTipoPesquisa.ItemIndex = 0 then // CODIGO DE BARRA
      begin
        db_view_estoque.Close;
        db_view_estoque.ParamByName('CODIGOBARRA').asString := mCodigo;
        db_view_estoque.open;
      end;

      if cbbTipoPesquisa.ItemIndex = 1 then // REFERENCIA
      begin
        db_view_estoque.Close;
        db_view_estoque.ParamByName('REFERENCIA').asString := mProduto;
        db_view_estoque.open;
      end;

      mProduto := db_view_estoque.FieldByName('REFERENCIA').asString;
      mCodigo  := db_view_estoque.FieldByName('CODIGO_BARRA').asString;
    end;

    try

      If not(db_VendasItens.state in [dsEdit]) then
        db_VendasItens.Edit;

      db_VendasItens.FieldByName('IDPRODUTO').AsInteger  := StrToInt(GetProdutoCampo(mProduto, 'CODIGO'));
      db_VendasItens.FieldByName('PRODUTO').asString     := mProduto;
      db_VendasItens.FieldByName('CODIGOBARRA').asString := mCodigo;

      if db_VendasItens.FieldByName('VLR_UNIT').AsFloat <= 0 then
      begin
        If not(db_VendasItens.state in [dsEdit]) then
          db_VendasItens.Edit;
        db_VendasItens.FieldByName('UND').asString       := db_view_estoque.FieldByName('UND').asString;
        db_VendasItens.FieldByName('VLR_UNIT').AsFloat   := db_view_estoque.FieldByName('PRC_VENDA').AsFloat;
        db_VendasItens.FieldByName('DESCRICAO').asString := db_view_estoque.FieldByName('DESCRICAO').asString;
      end;

    finally
      db_view_estoque.Close;
    end;

  finally

    if db_VendasItens.FieldByName('VLR_UNIT').AsFloat > 0 then
    begin
      if (db_VendasItens.state in [dsEdit]) then
        db_VendasItens.Post;
    end;

  end;
end;