[delphi-br] [Delphi - Br] forms em variáveis agora com a fun ção

Thu, 13 Apr 2006 10:43:38 -0700 

os formulários são de relatórios onde está em vermelho devia ser uma variável 
para funcionar com qualquer formulário tanto como vendas como orçamento

Public
 frm : Tform;

procedure TfrmSel.Sel (SelRel : string);
var
ordem, vop, vendedor : string;

begin
  if SelRel = 'Vendas' then
    begin
      ordem := 'VENDAID';
      vop := 'vendas';
      vendedor := 'REPRESENTANTEID';
    end

  else if SelRel = 'Orçamento' then
    begin
      ordem := 'ORCID';
      vop := 'orçamentos';
      vendedor := 'VENDEDORID';
    end;
  
   if aslCliente.Visible = true then
     begin
       if aslCliente.Text = '' then
         begin
           MessageDlg('Selecione um Cliente!',mtWarning,[mbOk],0);
           exit;
         end;

       try

       frmRelVendas.rlFiltro.show;
       frmRelVendas.rldFiltro.show;
       frmRelVendas.rldFiltro.Caption := 'Clientes';
       frmRelVendas.query.ParamByName('EMPRESAID').AsInteger := 
frmSAVendas.ASParam.Empresa.Id;
       frmRelVendas.query.SQL[6] := ' and (v.CLIENTEID = ' + aslCliente.Text + 
')';

       if frmSel.sOrdem <> '' then
         frmRelVendas.query.SQL[7] := 'order by ' + sOrdem
       else
         frmRelVendas.query.SQL[7] := 'order by ' + ordem;

       frmRelVendas.query.Open;
       if frmRelVendas.query.RecordCount > 0 then
         frmRelVendas.relat.Preview

       else
         begin
           MessageDlg('Não existe '+ vop + ' para este 
cliente!',mtWarning,[mbOk],0);
         end;

       finally
         frmRelVendas.query.Close;
         frmRelVendas:= nil;
       end;
     end
   else
     begin
       if aslvend.Text = '' then
         begin
           MessageDlg('Selecione um Vendedor!',mtWarning,[mbOk],0);
           exit;
         end;

       try
    
       frmRelVendas.rlFiltro.show;
       frmRelVendas.rldFiltro.show;
       frmRelVendas.rldFiltro.Caption := 'Vendedores';
       frmRelVendas.qrlVendas.ParamByName('EMPRESAID').AsInteger := 
frmSAVendas.ASParam.Empresa.Id;
       frmRelVendas.qrlVendas.SQL[6] := ' and (v.'+ vendedor +' = ' + 
aslVend.Text + ')';

       if frmSel.sOrdem <> '' then
         frmRelVendas.qrlVendas.SQL[7] := 'order by ' + frmSel.sOrdem
       else
         frmRelVendas.qrlVendas.SQL[7] := 'order by ' + ordem;

       frmRelVendas.qrlVendas.Open;
       if frmRelVendas.qrlVendas.RecordCount > 0 then
         frmRelVendas.relVendas.Preview
       else
         MessageDlg('Não existe '+ vop +' para este 
vendedor!',mtWarning,[mbOk],0);

       finally
         frmRelVendas.qrlVendas.Close;
         frmRelVendas := nil;
       end;
   end;




end;

[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

Responder a