Jump to content
Fórum Script Brasil

Renatosky

Membros
  • Posts

    39
  • Joined

  • Last visited

About Renatosky

  • Birthday 10/10/1980

Contatos

Perfil

  • Gender
    Male
  • Location
    Goiás

Renatosky's Achievements

0

Reputation

  1. Pois é, o grande problema é esse, eu preciso agrupa-los... :wacko: tenho que usar outro caminho...
  2. Boa tarde Amigos, Criei uma consulta no access, e inclui o comando DISTINCT para remover as duplicidades, mas ele esta se aplicando a todos os campos, sendo que preciso somente aplicar o comando DISTINCT a apenas um campo da tabela pois quando o campo ESTENT.VALUNI é diferente ele duplica. alguém tem uma solução? Abaixo segue minha consulta. SELECT DISTINCT CADPROMAT.CODPROMAT, CADPROMAT.DESPROMAT, ESTOQUE.QTD, ESTOQUE.VALOR, CADPROMAT.ESTMIN, CADPROMAT.ESTMAX, GRUPO.DESGRU, GRUPO.CODGRU, ESTENT.VALUNI, CADPROMAT.BOX, CADPROMAT.DGBOX FROM ESTENT RIGHT JOIN ((CADPROMAT INNER JOIN ESTOQUE ON CADPROMAT.CODPROMAT=ESTOQUE.CODPROMAT) INNER JOIN GRUPO ON CADPROMAT.CODGRU=GRUPO.CODGRU) ON ESTENT.CODPROMAT=ESTOQUE.CODPROMAT GROUP BY CADPROMAT.CODPROMAT, CADPROMAT.DESPROMAT, ESTOQUE.QTD, ESTOQUE.VALOR, CADPROMAT.ESTMIN, CADPROMAT.ESTMAX, GRUPO.DESGRU, GRUPO.CODGRU, ESTENT.VALUNI, CADPROMAT.BOX, CADPROMAT.DGBOX; Obrigado.
  3. isso Otimo.. eu estava usando o For mas assim funcioniou perfeitamente.. já no caso do count com o distinct não funciona mesmo.;.. obrigado.
  4. O distinct nesta função é utilizado p/ resumir os resultados, sem ele os resultados seriam o triplo, e o fato de ter q contar os campos é p/ eu gravar em outro banco de dados tudo q foi encontrado dentro desta select, fiz um for e preciso saber quando parar por isso tenho q contar qtos registros foram encontrados. atenciosamente, RSA..
  5. Ola amigos, preciso contar quantos itens este select esta listando, mas parece q o count não funciona com o distinct, já fiz de tudo. Se alguém tiver alguma solução.. O banco q estou usando é o oracle 9i. valeu. SALDO1.Close; SALDO1.SQL.Clear; SALDO1.SQL.ADD('Select DISTINCT A.CODPROMAT,A.DESPROMAT,Sum(B.QTDVEN) AS TOTAL from'); SALDO1.SQL.ADD('CADPROMAT A,DETNOTFISVEN B,MESFISVEN C,MESROMCAR D'); SALDO1.SQL.ADD('where C.CODEMP=B.CODEMP AND C.CODEST=B.CODEST AND C.NUMNOTFIS=B.NUMNOTFIS AND'); SALDO1.SQL.ADD('D.CODEMP=C.CODEMP AND D.CODEST=C.CODEST AND D.NUMROMCAR=C.NUMROMCAR AND'); SALDO1.SQL.ADD('B.CODCLI=C.CODCLI AND B.CODPROMAT=A.CODPROMAT AND D.DATSAI='+#39+'31/12/9999'+#39+'AND'); SALDO1.SQL.ADD('C.INDFATMAN='+#39+'N'+#39+'AND C.INDIMP='+#39+'S'+#39+'AND C.INDNOTSAI='+#39+'S'+#39+'AND'); SALDO1.SQL.ADD('C.DATEMI<'+#39+maskedit1.text+#39+'AND C.INDRET='+#39+'N'+#39+'AND C.NUMNOTSAI='+#39+'0'+#39+'AND'); SALDO1.SQL.ADD('C.INDCAN='+#39+'N'+#39); SALDO1.SQL.ADD('GROUP BY A.CODPROMAT,A.DESPROMAT,A.INDMARPRO'); SALDO1.SQL.ADD('HAVING A.INDMARPRO='+#39+'S'+#39); SALDO1.Open;
  6. Tipo assim, Veio uma empresa aki oferecendo um software de folha de pagamento q é multibancos pode ser usado em qualquer banco de dados desde q seje sql, e foi desenvolvido em delphi, ai eu queria usar essa tecnica p/ desenvolver minhas aplicações. Se alguém souber como faz isso..
  7. Ola amigos, Gostaria de saber se tem como eu desenvolver uma aplicação com conexão via odbc q eu possa conectar em varios bancos de dados sem ter q mudar a minha aplicação, tipo: myslq, sqlserver, oracle etc.. colocando apenas as tabelas. Preciso de um exemplo de como faz isso, se é q isso é possivel. Obrigado.
  8. Axo q agora então o problema já não é mais nosso e sim da borland.. vou mandar esse problema p/ eles... valeu... problema sem solução....
  9. Por favor amigos e ajudem... precisando dessa solução... baixem o projeto nesse link: http://www.4shared.com/dir/5664434/b317bbc8/sharing.html valeu
  10. Ola amigos, estou aqui de novo com o mesmo problema mas agora vou mostrar detalhadamente como esta meu projeto e colocarei o link p/ quem quiser baixar e testar.. Na minha dll os codigos do meu form é o seguinte: unit UTESTE; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TTESTE = class(TForm) Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } public { Public declarations } end; procedure ShowSRF005( vApplicaton : Pointer); var TESTE: TTESTE; vOldApplication : TApplication; OldScreen: TScreen; implementation {$R *.dfm} procedure ShowSRF005( vApplicaton : Pointer); begin Application := TApplication(vApplicaton); Application.CreateForm(TTESTE, TESTE); TESTE.Show; end; procedure TTESTE.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := caFree; Self := nil; end; Initialization vOldApplication := Application; Finalization Application := vOldApplication; end. e library SRF005; { Important note about DLL memory management: ShareMem must be the first unit in your library's USES clause AND your project's (select Project-View Source) USES clause if your DLL exports any procedures or functions that pass strings as parameters or function results. This applies to all strings passed to and from your DLL--even those that are nested in records and classes. ShareMem is the interface unit to the BORLNDMM.DLL shared memory manager, which must be deployed along with your DLL. To avoid using BORLNDMM.DLL, pass string information using PChar or ShortString parameters. } uses SysUtils, Classes, UTESTE in 'UTESTE.pas' {TESTE}; {$R *.res} Exports ShowSRF005; end. No meu projeto .exe eu chamo meu form dll com esse comando: procedure TPrincipal.RMA1Click(Sender: TObject); var vProc : TOpenSRF005; begin vDll := LoadLibrary('SRF005.dll'); if vDLL <> 0 then begin @vProc := GetProcAddress(vDll, 'ShowSRF005'); if @vProc <> nil then begin vProc( Pointer(Application)); end; end; end; Link do projeto: http://www.4shared.com/dir/5664434/b317bbc8/sharing.html Se alguém quiser o projeto me passe o e-mail q eu envio os codigos para fazer testes e tentar-mos resolver esse grande problema.. Obrigado.
  11. O comando q eu usu p/ chamar a dll é o seguinte: procedure TPrincipal.ChegadaMateriaPrima1Click(Sender: TObject); var vProc : TOpenSRF002; begin vDll := LoadLibrary('SRF002.dll'); if vDLL <> 0 then begin @vProc := GetProcAddress(vDll, 'ShowSRF002'); if @vProc <> nil then begin vProc( Pointer(Application)); end; end; end; ai esta uma tela do sistema: se alguém quiser ver o fonte do projeto me mande um e-mail: [email protected] obrigado
  12. Ola amigo tentei mais essa dica e não funcionou... sera q é algum bug do delphi?? micheus você podia me passar o seu e-mail p/ eu te enviar o projeto ai você vai avaliar melhor o q pode estar acontecendo.. obrigado..
  13. Ola amigos, fiz uns testes e verifiquei ond esta o problema mas ainda não consegui resolver, eu fui na propriedade FormStyle e mudei ela p/: fsNormal, fsMDIForm e fsStayOnTop, nesses tres estilos a tecla tab funciona normalmente, mas quando eu mudo para o estilo fsMDIChild, q é o q eu preciso, a tecla tab praticamente para de funcionar, fica nula, usei todos os codigos q vocês me passaram anteriormente, mas não obtive sucesso. Se vocês tem uma ideia de q possa ser.. Obrigado.
  14. obrigado Jhonas a dll funcionou 100%... ela não tinha no meu delphi 2007 porque meu delphi q eu comprei é a versão professional e não vem essa dll so as versões enterprise e architet q vem... tópico resolvido.. obrigado novemente..
  15. Eu não tenho acesso daqui, mas confira o endereço que está neste tópico (ref. ActiveDelphi) Ola micheus, Obrigado pela dica mas aquela dica la eu ta tinha visto mas a dll la não sei se você reparou o nome dela é dbexpora.dll não a dbxora30.dll no tópico da pergunta esta um nome e o cara madou outra dll... mas obrigado se conseguir ela por favor me passe no meu e-mail. [email protected] obrigado..
×
×
  • Create New...