Jump to content
Fórum Script Brasil

lmroot

Membros
  • Content Count

    13
  • Joined

  • Last visited

Community Reputation

0 Neutro

About lmroot

  • Birthday 02/17/1979

Contatos

  • Website URL
    http://
  • ICQ
    0

Perfil

  • Location
    São Pedro
  1. Valeu Micheus, vou pesquisar essa função. Abraço. LMRoot.
  2. Bom dia pessoal. Eu estou usando o SQL 2000 Server aqui na empresa, tem uma tabela onde eu registro os meus pedidos de compra, nessa tabela eu tenho dois campos no formato datetime (datapedido, previsao), eu quero saber quantos dias o meu pedido de compra está atrasado como que eu posso fazer esse calculo na minha query? Exemplo: datapedido = 10/05/2008 previsao = 13/05/2008 hoje = 15/05/2008 dias em atraso = 2 Atenciosamente, LMRoot.
  3. Valeu Jhonas, funcionou, muito obrigado. Abraço.
  4. Bom dia caros colegas. No projeto que estou desenvolvendo eu tenho um filtro que compara duas datas (maskeditdata1, maskeditdata2), eu tenho que verificar se esses dois maskedit estão preenchidos como que eu posso fazer isso usando o comando IF? Obs. A propriedade EditMask está definida como 99/99/9999;1;_ Eu tentei o comando IF da maneira abaixo, mas não deu certo. Ex. If (trim(mkdata1.text) <> '') Then Begin comandos..... end; Quando eu debugo o código e para nesse IF ele me informa que a propriedade text é = ' / / ', alguém pode me ajudar a corrigir esse problema? Abraço.
  5. Você está querendo saber o MAC da placa de rede?
  6. Bom dia. Como que eu localizo o caminho do perfíl do usuário do windows (c:\document and ...\user1\desktop), na aplicação que eu desenvolvi tem uma opção para gerar um arquivo txt com os dados que o usário filtrou, atualmente estou gravando na unidade C:, mas eu gostaria de gravar diretamente no desktop do usuário, mas para isso eu tenho que descobrir o caminho para salvar como que eu posso fazer isso? Tem alguma variável de sistema que informa isso ao delphi (caminho := UserProfile;), eu executei o comando SET no prompt do DOS e retornou um variável de sistema chamada UserProfile com o caminho do perfíl do meu usuário de que maneira eu posso capturar essa informação? Abraço. LMRoot.
  7. Bom dia pessoal, depois de muito apanhar resolvi o problema, segue abaixo o código da Query, funcionando redondinha. Valeu pessoal. procedure TFConsEstPend.btPesquisaClick(Sender: TObject); Var TransfData : String; begin With FDATA.CORPOPED Do Begin SQL.Clear; SQL.Add('SELECT CODBASE, CODSIMILAR,' ); SQL.Add('(SELECT DETTECNICO1 FROM PRODUTOS WHERE CODPRODUTO = CODBASE) AS DESCRICAO, ISNULL(SUM(VENP),0) AS VENP,'); SQL.Add('(SELECT ESTCOMPROMETIDO FROM PRODUTOS WHERE CODPRODUTO = CODBASE) AS PENP,'); SQL.Add('(SELECT ESTOQUE FROM PRODUTOS WHERE CODPRODUTO = CODBASE) AS ESTP,'); SQL.Add('(SELECT ESTOQUE FROM [REMOTO].UNIMIL.DBO.PRODUTOS WHERE CODPRODUTO = CODBASE) AS ESTR,'); SQL.Add('(SELECT ESTCOMPROMETIDO FROM [REMOTO].UNIMIL.DBO.PRODUTOS WHERE CODPRODUTO = CODBASE) AS PENR,'); SQL.Add('ISNULL(SUM(VENR),0) AS VENR'); SQL.Add('FROM ('); SQL.Add('SELECT CODBASE, CODSIMILAR,'); SQL.Add('(SELECT DETTECNICO1 FROM PRODUTOS WHERE CODPRODUTO = CODBASE) AS DESCRICAO,'); SQL.Add(' VENP = CASE ORIGEM'); SQL.Add(' WHEN ''P'' THEN ISNULL(VENDAS,0)'); SQL.Add(' END,'); SQL.Add(' VENR = CASE ORIGEM'); SQL.Add(' WHEN ''R'' THEN ISNULL(VENDAS,0)'); SQL.Add(' END '); SQL.Add('FROM ( '); SQL.Add('SELECT CODBASE, CODSIMILAR, ISNULL(SUM(QTDE),0) AS VENDAS, ORIGEM = ''P'' FROM CORPOPED'); SQL.Add('LEFT JOIN CABPED ON CABPED.NUMPEDIDO = CORPOPED.NUMPEDIDO '); TransfData := FormatDateTime('YYYY/MM/DD', StrToDate (mkData1.Text)); SQL.Add('WHERE CABPED.EMISSAO >= ' + '''' + TransfData + '''' ); TransfData := FormatDateTime('YYYY/MM/DD', StrToDate (mkData2.Text)); SQL.Add('AND CABPED.EMISSAO <= ' + '''' + TransfData + '''' ); SQL.Add('GROUP BY CODBASE, CODSIMILAR '); SQL.Add('UNION ALL '); SQL.Add('SELECT * FROM OPENQUERY(REMOTO, ''SELECT CODBASE, CODSIMILAR, ISNULL(SUM(QTDE),0) AS VENDAS, '); SQL.Add('ORIGEM = ''''R'''' FROM CORPOPED '); SQL.Add('LEFT JOIN CABPED ON CABPED.NUMPEDIDO = CORPOPED.NUMPEDIDO '); TransfData := FormatDateTime('YYYY/MM/DD', StrToDate (mkData1.Text)); SQL.Add('WHERE CABPED.EMISSAO >= ''' + QuotedStr ( TransfData ) + ''' ' ); TransfData := FormatDateTime('YYYY/MM/DD', StrToDate (mkData2.Text)); SQL.Add('AND CABPED.EMISSAO <= ''' + QuotedStr ( TransfData ) + ''' ' ); SQL.Add('GROUP BY CODBASE, CODSIMILAR'); SQL.Add(''') '); SQL.Add(') AS R ' ); SQL.Add(') AS F '); SQL.Add('GROUP BY CODBASE, CODSIMILAR '); SQL.Add('ORDER BY CODBASE '); Open; End; end;
  8. Desculpa Micheus, esse código não está funcionando, a base que eu uso é sql server 2000.
  9. Pessoal segue abaixo o código inteiro. procedure TForm1.Button1Click(Sender: TObject); begin With Query1 Do Begin SQL.Clear; SQL.Add('SELECT CODBASE, CODSIMILAR,'); SQL.Add('(SELECT DETTECNICO1 FROM PRODUTOS WHERE CODPRODUTO = CODBASE) AS DESCRICAO, ISNULL(SUM(VENP),0) AS VENP,'); SQL.Add('(SELECT ESTCOMPROMETIDO FROM PRODUTOS WHERE CODPRODUTO = CODBASE) AS PENP,'); SQL.Add('(SELECT ESTOQUE FROM PRODUTOS WHERE CODPRODUTO = CODBASE) AS ESTP,'); SQL.Add('(SELECT ESTOQUE FROM [REMOTO].UNIMIL.DBO.PRODUTOS WHERE CODPRODUTO = CODBASE) AS ESTR,'); SQL.Add('(SELECT ESTCOMPROMETIDO FROM [REMOTO].UNIMIL.DBO.PRODUTOS WHERE CODPRODUTO = CODBASE) AS PENR,'); SQL.Add('ISNULL(SUM(VENR),0) AS VENR'); SQL.Add('FROM ('); SQL.Add('SELECT CODBASE, CODSIMILAR,'); SQL.Add('(SELECT DETTECNICO1 FROM PRODUTOS WHERE CODPRODUTO = CODBASE) AS DESCRICAO,'); SQL.Add('VENP = CASE ORIGEM'); SQL.Add('WHEN ''P'' THEN ISNULL(VENDAS,0)'); SQL.Add('END,'); SQL.Add('VENR = CASE ORIGEM'); SQL.Add('WHEN ''R'' THEN ISNULL(VENDAS,0)'); SQL.Add('END'); SQL.Add('FROM ('); SQL.Add('SELECT CODBASE, CODSIMILAR, ISNULL(SUM(QTDE),0) AS VENDAS, ORIGEM = ''P'' FROM CORPOPED'); SQL.Add('JOIN CABPED ON CABPED.NUMPEDIDO = CORPOPED.NUMPEDIDO'); SQL.Add('WHERE CABPED.EMISSAO >= ' + FormatDateTime('mm/dd/yyyy', StrToDate(mkData1.Text))); SQL.Add('AND CABPED.EMISSAO <= ' + FormatDateTime('mm/dd/yyyy', StrToDate(mkData2.Text))); SQL.Add('GROUP BY CODBASE, CODSIMILAR'); SQL.Add('UNION ALL'); SQL.Add('SELECT * FROM OPENQUERY(REMOTO, ''SELECT CODBASE, CODSIMILAR, ISNULL(SUM(QTDE),0) AS VENDAS,'); SQL.Add('ORIGEM = ''R'' FROM CORPOPED'); SQL.Add('JOIN CABPED ON CABPED.NUMPEDIDO = CORPOPED.NUMPEDIDO'); SQL.Add('WHERE CABPED.EMISSAO >= ' + FormatDateTime('mm/dd/yyyy', StrToDate(mkData1.Text))); SQL.Add('AND CABPED.EMISSAO <= ' + FormatDateTime('mm/dd/yyyy', StrToDate(mkData2.Text))); SQL.Add('GROUP BY CODBASE, CODSIMILAR'); SQL.Add(''')'); SQL.Add(') AS R'); SQL.Add(') AS F'); SQL.Add('GROUP BY CODBASE, CODSIMILAR'); SQL.Add('ORDER BY CODBASE'); Open; End; end;
  10. Bom dia pessoal, eu estou desenvolvendo um relatório que consulta uma BD remota, nessa pesquisa eu junto os dados da BD local + remota, e para isso estou usando OpenQuery, no query analyzer o consulta funciona perfeitamente, um detalhe eu tenho que passar uns parametros nessa pesquisa (data de inicio e data final). Como que eu posso fazer isso dentro do delphi pois usando o "SQL.add('Select...')" dá erro quando chega na linha que tem os parametros. Segue abaixo um trecho da consulta. SELECT CODBASE, CODSIMILAR, ISNULL(SUM(QTDE),0) AS VENDAS, ORIGEM = 'P' FROM CORPOPED JOIN CABPED ON CABPED.NUMPEDIDO = CORPOPED.NUMPEDIDO WHERE CABPED.EMISSAO >= '2007-10-30' AND CABPED.EMISSAO <= '2007-10-30' GROUP BY CODBASE, CODSIMILAR UNION ALL SELECT * FROM OPENQUERY(REMOTO, 'SELECT CODBASE, CODSIMILAR, ISNULL(SUM(QTDE),0) AS VENDAS, ORIGEM = ''R'' FROM CORPOPED JOIN CABPED ON CABPED.NUMPEDIDO = CORPOPED.NUMPEDIDO WHERE CABPED.EMISSAO >= ''2007-10-30'' AND CABPED.EMISSAO <= ''2007-10-30'' GROUP BY CODBASE, CODSIMILAR Valeu pessoal.
  11. Bom dia pessoal, meu sistema gera os orçamento em quick report, eu estou querendo gerar esses orçamentos em arquivo DOC para enviar via email e meus fornecedores responderem nesse mesmo arquivo, onde eu posso achar alguma documentação que explique sobre esse assunto. Obs,: estou usando Delphi 7 e SQLServer 2000 Att, LMRoot.
×
×
  • Create New...