SHARE
TWEET

Untitled

a guest Jan 23rd, 2020 74 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. procedure TFrmVendaExpressa.DBGrid_ProdutosKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  2. begin
  3.   if Key = VK_F8 Then
  4.     NovoItemVenda
  5. end;
  6.  
  7. procedure TFrmVendaExpressa.ProcurarProduto(aProcurar: Boolean; strPesquisa: String);
  8. var
  9.   mProduto: String;
  10.   mCodigo: string;
  11. begin
  12.   mProduto        := '';
  13.   mCodigo         := '';
  14.   try
  15.     if aProcurar then
  16.     begin
  17.       if dbProcurarProduto.Execute then
  18.       begin
  19.         mProduto := dbProcurarProduto.ResultFieldAsString('REFERENCIA');
  20.         mCodigo  := dbProcurarProduto.ResultFieldAsString('CODIGO_BARRA');
  21.       end;
  22.     end
  23.     else
  24.     begin
  25.       mCodigo := strPesquisa;
  26.  
  27.       if cbbTipoPesquisa.ItemIndex = 0 then // CODIGO DE BARRA
  28.       begin
  29.         db_view_estoque.Close;
  30.         db_view_estoque.ParamByName('CODIGOBARRA').asString := mCodigo;
  31.         db_view_estoque.open;
  32.       end;
  33.  
  34.       if cbbTipoPesquisa.ItemIndex = 1 then // REFERENCIA
  35.       begin
  36.         db_view_estoque.Close;
  37.         db_view_estoque.ParamByName('REFERENCIA').asString := mProduto;
  38.         db_view_estoque.open;
  39.       end;
  40.  
  41.       mProduto := db_view_estoque.FieldByName('REFERENCIA').asString;
  42.       mCodigo  := db_view_estoque.FieldByName('CODIGO_BARRA').asString;
  43.     end;
  44.  
  45.     try
  46.  
  47.       If not(db_VendasItens.state in [dsEdit]) then
  48.         db_VendasItens.Edit;
  49.  
  50.       db_VendasItens.FieldByName('IDPRODUTO').AsInteger  := StrToInt(GetProdutoCampo(mProduto, 'CODIGO'));
  51.       db_VendasItens.FieldByName('PRODUTO').asString     := mProduto;
  52.       db_VendasItens.FieldByName('CODIGOBARRA').asString := mCodigo;
  53.  
  54.       if db_VendasItens.FieldByName('VLR_UNIT').AsFloat <= 0 then
  55.       begin
  56.         If not(db_VendasItens.state in [dsEdit]) then
  57.           db_VendasItens.Edit;
  58.         db_VendasItens.FieldByName('UND').asString       := db_view_estoque.FieldByName('UND').asString;
  59.         db_VendasItens.FieldByName('VLR_UNIT').AsFloat   := db_view_estoque.FieldByName('PRC_VENDA').AsFloat;
  60.         db_VendasItens.FieldByName('DESCRICAO').asString := db_view_estoque.FieldByName('DESCRICAO').asString;
  61.       end;
  62.  
  63.     finally
  64.       db_view_estoque.Close;
  65.     end;
  66.  
  67.   finally
  68.  
  69.     if db_VendasItens.FieldByName('VLR_UNIT').AsFloat > 0 then
  70.     begin
  71.       if (db_VendasItens.state in [dsEdit]) then
  72.         db_VendasItens.Post;
  73.     end;
  74.  
  75.   end;
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top