RES: [delphi-br] ToolBar 2

[Vinicius da Silva Pinto]

Valeu mesmo Claudiney, muito obrigado.

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de Claudiney Cogo
Enviada em: terça-feira, 9 de junho de 2009 23:35
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] ToolBar 2


Na ToolBar existem três propriedades relacionadas a imagem do botão
(ImageLists): DisabledImages, HotImages e Images.



Coloque no seu form três ImageLists, uma para cada uma dessas opções.
Ligue-as nas propriedades da ToolBar. Coloque em cada uma delas as imagens
que quiser usar. Em DisabledImages coloque as imagens para quando o botão
estiver desabilitado. Em HotImages, as imagens para quando o mouse estiver
passando sobre o botão. E em Images as imagens normais dos botões.



Depois de criadas as listas de imagens e ligadas a Toolbar, vá em cada botão
e selecione a imagem a ser utilizada na propriedade ImageIndex. Selecionando
a imagem da posição 1 por exemplo, o botão utilizará a imagem 1 das três
ImageLists, como habilitado, desabilitado e hotimage.



Lembrando que você deve usar imagens BMP ou ICO. E ser for ícones (ICO) no
máximo TrueColor (24 bits).  A ImageList tem problemas com imagens 32 bits
com AlphaChannel. Existem na net alguns códigos que fazem ela aceitar essas
imagens, mas nunca testei nenhum deles. Mas pode valer a pena, pois esses
ícones são muito mais atraentes (Windows Vista e Windows 7)



É só fazer a combinação que achar melhor.



Abraço.



  _

Claudiney Cogo
N2 Sistemas e Soluções em Informática
Av. São Paulo, 172 - 15º Andar - Sala 1505
Fone/Fax: (44) 3029-6053 - Maringá - Paraná
 <http://www.n2solutions.com.br/> www.n2solutions.com.br
 <http://www.nfe.n2solutions.com.br/> www.nfe.n2solutions.com.br
 <http://www.studion2.com.br/> www.studion2.com.br



De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Vinicius da Silva Pinto
Enviada em: terça-feira, 9 de junho de 2009 14:40
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] ToolBar 2








Aproveitando a pergunta do amigo Marcelo, gostaria de saber como faço pra
colocar uma imagem em um ToolButton?

Já procurei, já apanhei e não consegui.

Alguem pode me dar uma ajuda???

Vinicius





__ Informação do NOD32 IMON 4142 (20090609) __

Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br



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





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

[delphi-br] ToolBar 2

[Vinicius da Silva Pinto]

Aproveitando a pergunta do amigo Marcelo, gostaria de saber como faço pra
colocar uma imagem em um ToolButton?

Já procurei, já apanhei e não consegui.

Alguem pode me dar uma ajuda???

Vinicius

RES: [delphi-br] Problema com ApplyUpdates(0)

[Vinicius da Silva Pinto]

Segue o Generator:
SET TERM ^ ;
CREATE TRIGGER GEN_CDEVENTO FOR BDEVENTOS
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
 NEW.CDEVENTO = GEN_ID(GEN_CDEVENTO, 1);
END
^
SET TERM ; ^

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de Daniel Sobrinho Laporte
Enviada em: sexta-feira, 5 de junho de 2009 09:12
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Problema com ApplyUpdates(0)


Vinicius seu Generator está sendo implementado via triggers (Before Insert)?


2009/6/5 Vinicius da Silva Pinto 

>
>
> Pessoal, estou utilizando D7, SQLconnection, DataSetProvider e
> ClienteDataSet.
> Minha tabela possui um generator.
> Quando estou incluindo, abro a tabela, dou um append, atualizo os campos,
> dou um Post e um ApplyUpdates(0).
> Se eu consultar os campos atualizados, blz, mais se eu for consultar o
> numero do meu generator, ele esta com 0.
> eu tenho que dar um Close e um Open, ai o número aparece.
>
> Tem algum parametro para colocar no SQLconnection para logo apos o Apply o
> número gerado pelo
> generator ficar disponivel para ser utilizado???
>
> Vinicius
>
> Obrigado.
>
>
>



--
Daniel Sobrinho Laporte
Analista de Sistemas e Desenvolvedor Delphi + Firebird.
Colunista e Editor Técnico ClubeDelphi - DevMedia.


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





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

[delphi-br] Problema com ApplyUpdates(0)

[Vinicius da Silva Pinto]

Pessoal, estou utilizando D7, SQLconnection, DataSetProvider e ClienteDataSet.
Minha tabela possui um generator.
Quando estou incluindo, abro a tabela, dou um append, atualizo os campos, dou 
um Post e um ApplyUpdates(0).
Se eu consultar os campos atualizados, blz, mais se eu for consultar o numero 
do meu generator, ele esta com 0.
eu tenho que dar um Close e um Open, ai o número aparece.

Tem algum parametro para colocar no SQLconnection para logo apos o Apply o 
número gerado pelo 
generator ficar disponivel para ser utilizado???

Vinicius

Obrigado.

RES: [delphi-br] Re: Pegar o ID do registro incluído.

[Vinicius da Silva Pinto]

Crie um SQLDataSet1 no seu DataModule;

Coloque no campo CommandText "SELECT GEN_ID(GEN_, 1)  FROM "

Na sua aplicação quando quiser saber o ID é só chamar o SQL;

Dm.SqlDataSet1.Open;

WidAtual := Dm.SqlDataSet1GEN_ID.AsInteger;

Dm.SqlDataSet1.Close;

Sua variavel WidAtual (deve ser declarada como INTEGER) vai conter o último
ID de sua tabela.

Vinicius


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de Paulo Coutinho
Enviada em: sexta-feira, 29 de maio de 2009 01:29
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Re: Pegar o ID do registro incluído.


Ninguém tem uma solução para isto?

2009/5/27 Paulo Coutinho 

> Olá,
>
> Alguém já conseguiu uma solução para pegar o ID do registro incluído com o
> DBX?
>
> --
> Atenciosamente,
> Paulo Coutinho.
> Blog: www.prsolucoes.com/blog
> Site: www.prsolucoes.com
> Msn:  pa...@prsolucoes.com
>



--
Atenciosamente,
Paulo Coutinho.
Blog: www.prsolucoes.com/blog
Site: www.prsolucoes.com
Msn:  pa...@prsolucoes.com


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





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

RES: RES: RES: [delphi-br] Ajuda com stored procedure

[Vinicius da Silva Pinto]

A tabela servicos é composta pelo numero do pedido e o codigo do estoque,
não teria como dar chave duplicada.

O estoque tem chave única e a tabela servicos tem chave composta (pedido +
estoque).

O que eu não entendo é que rodando na mão (via IBExpert), passando o último
número do pedido, não dá erro nenhum.

Já olhei o meu DataModule e a tabela servicos está indexada pelos campos
Pedido e Estoque.

Ideias???

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de Ricardo César Cardoso
Enviada em: quinta-feira, 28 de maio de 2009 13:20
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: RES: [delphi-br] Ajuda com stored procedure


Por algum motivo, a aplicação está tentando usar a mesma chave primária para
um novo registro. dos parâmetros da procedure, qual deles é o wPedido? Qual
é a chave primária da tabela relacionada?

[]'s
Ricardo.

1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.

2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor
compreendida.

3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!

--- Em qui, 28/5/09, Vinicius da Silva Pinto 
escreveu:

De: Vinicius da Silva Pinto 
Assunto: RES: RES: [delphi-br] Ajuda com stored procedure
Para: delphi-br@yahoogrupos.com.br
Data: Quinta-feira, 28 de Maio de 2009, 11:43

















  Ricardo, do seu jeito não consegui... mais olhando outras apostilas
que

tenho eu resolvi em parte, explico melhor.



A procedure ficou assim:



SET TERM ^ ;

CREATE PROCEDURE INCL_SERVICOS (

wcdevento integer)

as

declare variable wcodest integer;

declare variable wvalor numeric(12,2) ;

BEGIN

FOR select CDESTOQUE, VALORVENDA from BDESTOQUE WHERE INCLUIPACOTE = 'S'

INTO :WCODEST, :WVALOR

DO

BEGIN

INSERT into servicosevento (CDEVENTO, CDESTOQUE, VALORCOBRADO, QTDE,

DATAPEDIDO, CONFIRMADO)

values (:WcdEvento, :WCODEST, :WVALOR, 100, 'Now', 'S');

END



END^

SET TERM ; ^



Eu agora estou com outro problema . precisando de ajuda novamente...



Utilizando o IBExpert, mandando executar esta procedure, passo como

parametro um número de pedido válido,

e ela inclui todos os itens do estoque no arquivo certinho... todos eles.



Agora, dentro da minha aplicação, quando eu termino de incluir um pedido,

guardo o numero do pedido em uma variável, fecho o CDS,

Abro o CDS, o pedido está gravado normalmente, ai eu mando executar a

procedure desta forma:



Dm.SP_InclServicos. Params[0] .AsInteger := Wpedido;

Dm.SP_InclServicos. ExecProc;



Estou recebendo mensagens de erro dizendo que esta havendo violação de

chave.



Alguem sabe porque



-Mensagem original -

De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br]Em

nome de Ricardo César Cardoso

Enviada em: quinta-feira, 28 de maio de 2009 09:04

Para: delphi...@yahoogrup os.com.br

Assunto: Re: RES: [delphi-br] Ajuda com stored procedure



Bom dia Vinícius!



Ainda estou pesquisando a respeito, mas tenta modificar essa tua SP para o

seguinte e me diz o que deu (acerto ou erro e mensagem):



{ INÍCIO COPY/PASTE }

CREATE PROCEDURE INCL_SERVICOS(

  wcdEvento Integer)AS

DECLARE VARIAVLE numEvento INTEGER;

BEGIN

  numEvento = wcdEvento;



  INSERT INTO TBservicos(

    cdestoque,

    cdevento,

    valorcobrado,

    qtde,

    datapedido,

    confirmado

  )

  VALUES IN(

    SELECT cdestoque, :numEvento, valorvenda, 100, Now, 'S'

    FROM bdestoque

    WHERE incluipacote = 'S'

  );

END

{ FINAL COPY/PASTE }



Atte,

Ricardo.



1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.



2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor

compreendida.



3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!



--- Em qui, 28/5/09, Vinicius da Silva Pinto 

escreveu:



Valeu Ricardo, eu postei tbm no grupo Firebase, mais não obtive nenhuma



resposta.



Já pesquisei bastante, tenho muito material impresso e alguns livros sobre o



assunto.



É que em todo material que tenho, não faz referencia a incluir uma variavel



junto com um select na inclusão,



e todas as mexidas que eu dou sempre dá erro, por isso recorri a lista.



segue a procedure que estou tentando criar:



CREATE PROCEDURE INCL_SERVICOS (WcdEvento Integer) as



BEGIN



INSERT into TBservicos (CDESTOQUE, CDEVENTO, VALORCOBRADO, QTDE, DATAPEDIDO,



CONFIRMADO)



values in (select CDESTOQUE, :WcdEvento, VALORVENDA, 100, Now, 'S'



from bdestoque where INCLUIPACOTE = 'S');



Já tentei sem o IN, já tentei com a variavel entre aspas e sem o :



O programa esta rodando pois estou fazendo a inclusão na mão, até que



consiga resolver este problema.



Peço desculpa ao pessoal da lista por ter enviado duas vezes o mesmo pedido



de ajuda.



Um abraço a todos.



Veja quais são os assuntos do momento no Yahoo! +Buscad

RES: RES: [delphi-br] Ajuda com stored procedure

[Vinicius da Silva Pinto]

Ricardo, do seu jeito não consegui... mais olhando outras apostilas que
tenho eu resolvi em parte, explico melhor.

A procedure ficou assim:

SET TERM ^ ;
CREATE PROCEDURE INCL_SERVICOS (
wcdevento integer)
as
declare variable wcodest integer;
declare variable wvalor numeric(12,2);
BEGIN
FOR select CDESTOQUE, VALORVENDA from BDESTOQUE WHERE INCLUIPACOTE = 'S'
INTO :WCODEST, :WVALOR
DO
BEGIN
INSERT into servicosevento (CDEVENTO, CDESTOQUE, VALORCOBRADO, QTDE,
DATAPEDIDO, CONFIRMADO)
values (:WcdEvento, :WCODEST, :WVALOR, 100, 'Now', 'S');
END

END^
SET TERM ; ^


Eu agora estou com outro problema. precisando de ajuda novamente...

Utilizando o IBExpert, mandando executar esta procedure, passo como
parametro um número de pedido válido,
e ela inclui todos os itens do estoque no arquivo certinho... todos eles.

Agora, dentro da minha aplicação, quando eu termino de incluir um pedido,
guardo o numero do pedido em uma variável, fecho o CDS,
Abro o CDS, o pedido está gravado normalmente, ai eu mando executar a
procedure desta forma:

Dm.SP_InclServicos.Params[0].AsInteger := Wpedido;
Dm.SP_InclServicos.ExecProc;

Estou recebendo mensagens de erro dizendo que esta havendo violação de
chave.

Alguem sabe porque



-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de Ricardo César Cardoso
Enviada em: quinta-feira, 28 de maio de 2009 09:04
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Ajuda com stored procedure


Bom dia Vinícius!

Ainda estou pesquisando a respeito, mas tenta modificar essa tua SP para o
seguinte e me diz o que deu (acerto ou erro e mensagem):

{ INÍCIO COPY/PASTE }
CREATE PROCEDURE INCL_SERVICOS(
  wcdEvento Integer)AS
DECLARE VARIAVLE numEvento INTEGER;
BEGIN
  numEvento = wcdEvento;

  INSERT INTO TBservicos(
    cdestoque,
    cdevento,
    valorcobrado,
    qtde,
    datapedido,
    confirmado
  )
  VALUES IN(
    SELECT cdestoque, :numEvento, valorvenda, 100, Now, 'S'
    FROM bdestoque
    WHERE incluipacote = 'S'
  );
END
{ FINAL COPY/PASTE }

Atte,
Ricardo.

1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.

2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor
compreendida.

3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!

--- Em qui, 28/5/09, Vinicius da Silva Pinto 
escreveu:













Valeu Ricardo, eu postei tbm no grupo Firebase, mais não obtive nenhuma

resposta.

Já pesquisei bastante, tenho muito material impresso e alguns livros sobre o

assunto.

É que em todo material que tenho, não faz referencia a incluir uma variavel

junto com um select na inclusão,

e todas as mexidas que eu dou sempre dá erro, por isso recorri a lista.

segue a procedure que estou tentando criar:



CREATE PROCEDURE INCL_SERVICOS (WcdEvento Integer) as

BEGIN

INSERT into TBservicos (CDESTOQUE, CDEVENTO, VALORCOBRADO, QTDE, DATAPEDIDO,

CONFIRMADO)

values in (select CDESTOQUE, :WcdEvento, VALORVENDA, 100, Now, 'S'

from bdestoque where INCLUIPACOTE = 'S');



Já tentei sem o IN, já tentei com a variavel entre aspas e sem o :



O programa esta rodando pois estou fazendo a inclusão na mão, até que

consiga resolver este problema.



Peço desculpa ao pessoal da lista por ter enviado duas vezes o mesmo pedido

de ajuda.



Um abraço a todos.



















  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

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





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

RES: [delphi-br] Ajuda com stored procedure

[Vinicius da Silva Pinto]

Valeu Ricardo, eu postei tbm no grupo Firebase, mais não obtive nenhuma
resposta.
Já pesquisei bastante, tenho muito material impresso e alguns livros sobre o
assunto.
É que em todo material que tenho, não faz referencia a incluir uma variavel
junto com um select na inclusão,
e todas as mexidas que eu dou sempre dá erro, por isso recorri a lista.
segue a procedure que estou tentando criar:

CREATE PROCEDURE INCL_SERVICOS (WcdEvento Integer) as
BEGIN
INSERT into TBservicos (CDESTOQUE, CDEVENTO, VALORCOBRADO, QTDE, DATAPEDIDO,
CONFIRMADO)
values in (select CDESTOQUE, :WcdEvento, VALORVENDA, 100, Now, 'S'
from bdestoque where INCLUIPACOTE = 'S');

Já tentei sem o IN, já tentei com a variavel entre aspas e sem o :

O programa esta rodando pois estou fazendo a inclusão na mão, até que
consiga resolver este problema.

Peço desculpa ao pessoal da lista por ter enviado duas vezes o mesmo pedido
de ajuda.

Um abraço a todos.


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de Ricardo César Cardoso
Enviada em: quarta-feira, 27 de maio de 2009 22:05
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Ajuda com stored procedure


Vinícius, acho que perdi a sua dúvida original... Sobre o que seria?
Dependendo do que for, é como o Jackson já disse. Uma pesquisada ou um post
na Firebase-BR pode resolver.

Na boa... se é pra ficar com flame, melhor nem responder. Eu na maioria das
vezes acabo fazendo pesquisa pra ajudar a galera, mas por que isso me serve
também de aprendizado e motivação.

Mandar um comentário até vá lá... mas depois disso é meio improdutivo. As
vezes também cometo meus deslizes, mas tenho tentado me policiar quanto a
isso.

Já me estrepei umas duas vezes respondendo coisas que sabia na ponta da
língua. Pois vi que a minha solução não era a melhor possível.

[]'s
Ricardo.

1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.

2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor
compreendida.

3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!



















  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

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





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

RES: [delphi-br] Ajuca com storage

[Vinicius da Silva Pinto]

Obrigado ao Jackson e ao Rubem Rocha por encher a caixa postal dos colegas
com respostas que não ajudam em nada a quem precisa.

Quando alguem posta alguma dúvida, é porque tem necessidade e as vezes um
pouco de pressa pra resolver.

Sei que tem muita gente ocupada, mais não é o caso de vcs dois,
pois tiveram tempo de sobra pra responder uma coisa que não perguntei
(se já tinham recebido a minha mensagem e se eu tinha escrito corretamente).

Quanto ao erro de digitação ou grafia, não sou o primeiro nem o último.

Vinicius.

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de Rubem Rocha
Enviada em: quarta-feira, 27 de maio de 2009 15:26
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Ajuca com storage
Prioridade: Alta


Isso mesmo. E outra coisa, sua dúvida é sobre STORED procedures e não
‘STORAGE procedures’.

Sds.



De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Jackson Gomes - Tools&Comps
Enviada em: quarta-feira, 27 de maio de 2009 14:15
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Ajuca com storage





pq a falta de paciencia meu amigo? já mandou essa pergunta 2 dias atrás...
se
ninguem respondeu ainda, pode ser que ninguém saiba ou ainda não tiveram
tempo...

tente a lista de Firebird/Interbase





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





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

[delphi-br] Ajuca com storage

[Vinicius da Silva Pinto]

Pessoal, alguem pode me dar uma ajudinha na montagem desta procedure.

Eu preciso que ao ser incluido um determinado serviço, eu pego os dados de
uma tabela (estoque) e
incluo na tabela servicos, só para os registros que tenha 'S' no campo
incluipacote, e incluiria tbm
a variavel que contenha o numero do pedido, seria +- assim:


SET TERM ^ ;
CREATE PROCEDURE INCL_SERVICOS (WcdEvento Integer)
as
BEGIN
INSERT into TBservicos (CDESTOQUE, CDEVENTO, VALORCOBRADO, QTDE, DATAPEDIDO,
CONFIRMADO)
values in (select CDESTOQUE, :WcdEvento, VALORVENDA, 100, Now, 'S' from
bdestoque where INCLUIPACOTE = 'S');
END^
SET TERM ; ^

Esta dando erro na linha que tem VALUES.

Agradeço qualquer ajuda.


Vinicius

RES: [delphi-br] Ref. Conexão Sistema Pizzaria

[Vinicius da Silva Pinto]

GoGlobal. com ele vc não mexe em nada no seu sistema.é barato, só
precisa de internete nos pontos... mais nada.

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de Omar Marques
Enviada em: terça-feira, 26 de maio de 2009 08:49
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Ref. Conexão Sistema Pizzaria


Opa, bom dia/tarde, amigos(as),

Diante de uma situação nova, resolvi pedir auxílio aos nobres colegas.

Estou com um cliente que deseja montar uma pizzaria (central), e ela tera
5 ou 6 filiais. Estas filiais, não terão fachada ou grande investimento
externo,
mas dentro delas, haverá uma cozinha industrial e os pedidos serão
preparados lá.

Ele quer que haja comunicação entre a central (captadora dos pedidos) e o
computador
de qualquer uma das filiais, podendo o pedido solicitado na central, ser
impresso
na impressora da filial, daí o pizzaiolo da filial faz o pedido, o
motoqueiro
entrega, e então,ele dá um comando no sistema e envia um retorno para o
sistema
de pizza na central informando de que o pedido foi entregue com sucesso.

Agora, pergunto aos nobres,

Como poderia ser esta comunicação (desculpem o off), mas devido a isto,
possivelmente
terei de adaptar meu sistema de pizzaria, porisso pergunto.

Linha privada? Link ? Meu sistema é feito em Delphi e se não fosse este
detalhe da
comunicação remota que tem de haver, eles já poderiam utilizá-lo.

Alguém já teve esta questão em seus "cadernos" ? Qual mais viável
financeiramente ?
Usar MSN para dizer que o pedido foi entregue ?

E preciso que a tecnologia de comunicação entre os 2 computadores, eu possa
trabalhar
com ela no Delphi, pois precisarei imprimir remotamente na impressora, e
também
o pessoal da filial vai ter de nos dar um retorno sobre o andamento do
pedido,
pois só há uma centra. captadora de pedidos.

Qualquer orientação, experiência, será muito bem-vinda.

O cliente quer saber qual tecnologia de comunicação vai usar/valores/ se meu
sistema suporta-a, etc.

Abraços, companheiros "Delphianos"

;)




Omar M. Haddad
Analista de Sistemas


  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

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





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

[delphi-br] Ajuda em Storage Procedure

[Vinicius da Silva Pinto]

Pessoal, alguem pode me dar uma ajudinha na montagem destra procedure.

Eu preciso que ao ser incluido um determinado serviço, eu pego os dados de
uma tabela (estoque) e
incluo na tabela servicos, só para os registros que tenha 'S' no campo
incluipacote, e incluiria tbm
a variavel que contenha o numero do pedido, seria +- assim:


SET TERM ^ ;
CREATE PROCEDURE INCL_SERVICOS (WcdEvento Integer)
as
BEGIN
INSERT into TBservicos (CDESTOQUE, CDEVENTO, VALORCOBRADO, QTDE, DATAPEDIDO,
CONFIRMADO)
values in (select CDESTOQUE, :WcdEvento, VALORVENDA, 100, Now, 'S' from
bdestoque where INCLUIPACOTE = 'S');
END^
SET TERM ; ^



Deu pra entender???

Estou utilizando D7, InterBase6.5

[delphi-br] LoadParamsFromIniFile - Problemas

[Vinicius da Silva Pinto]

Pessoal, preciso de mais algumas informações...

Devido a mudança do SO e de máquina, os parametros de conexão com o banco
vão variar.

Criei um arquivo .INI com os parametros de conexão, até ai tudo bem...

mais não consigo fazer conexão utilizando LoadParamsFromIniFile, só um a um,
alguem pode me dizer pq???


procedure TFrmDm.SQLCbanco01BeforeConnect(Sender: TObject);
begin
  SQLCbanco01.Params.Clear;
  SQLCbanco01.LoadParamsFromIniFile('C:\SGBD\Sonhos.ini');

**   não funciona com o LoadParams.

Tenho que colocar um a um.


  SQLCbanco01.Params.Add('Database=10.10.1.33:c:\sgbd\banco01.gdb');
  SQLCbanco01.Params.Add('User_Name=sysdba');
  SQLCbanco01.Params.Add('Password=masterkey');
  SQLCbanco01.Params.Add('DriverName=Interbase');
  SQLCbanco01.Params.Add('RoleName=RoleName');
  SQLCbanco01.Params.Add('ServerCharSet=WIN1252');
  SQLCbanco01.Params.Add('SQLDialect=3');
  SQLCbanco01.Params.Add('ErrorResourceFile=');
  SQLCbanco01.Params.Add('LocaleCode=');
  SQLCbanco01.Params.Add('BlobSize=-1');
  SQLCbanco01.Params.Add('CommitRetain=False');
  SQLCbanco01.Params.Add('WaitOnLocks=True');
  SQLCbanco01.Params.Add('Interbase TransIsolation=ReadCommited');
  SQLCbanco01.Params.Add('Trim Char=False');


Alguem sabe me dizer se tem algum motivo para só funcionar assim???

Vinicius

RES: RES: [delphi-br] Firebird no Vista

[Vinicius da Silva Pinto]

Problema Resolvido:

Obrigado a todos que deram opiniões e sugestões, foi tirando um pouco de
cada uma que cheguei a solução.

O Vista Home, tem seus problemas... apanhando agente consegue contornalos.

Só funcionou depois que instalei como aplicação e não como serviço, não sei
pq??

O nome do servidor o Vista Home não aceita por NOME, só aceita se for por
IP.

MINHAMAQUINA:C:\SGBD\BANCO01.FDB  --> Erro, não reconhece

10.10.1.33:C:\SGBD\BANCO01.FDB  --> Aceitou.

Nos testes, instalei o INTERBASE e não deu problema nenhum, criei e abri
banco.gdb sem problema.

Mais uma vez agradeço a todos.

Wanderlei, vou fazer uma experiencia com o virtualbox para futuros
problemas...

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de Wanderlei - Yahoo
Enviada em: quarta-feira, 20 de maio de 2009 13:10
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Firebird no Vista


Boa tarde Vinicius

Tenta desabilitar a segurança de usuário do Vista.
E caso ainda não funcione (se precisar urgente) , instala uma máquina
virtual Windows XP usando o Virtual Box (http://www.virtualbox.org/)


Valeu




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

RES: [delphi-br] Firebird no Vista

[Vinicius da Silva Pinto]

Já tentei de tudo... eu crio o banco, mais não me conecto.

Instalei o InterBase, que veio com o CD do Delphi7, consigo criar banco o me
conectar...

Só que o banco do Cliente foi criado com FireBird 2.05.13206.

Quanto tento abrir, recebo uma mensagem dizendo que o tamanho do banco é
grande...

O pior é que tenho que apresentar alterações que fiz no banco que esta no
meu micro no laptop e não tenho como desinstalar o Vista pra colocar o XP.

To no mato sem cachorro e não tem nenhum gato por perto.



-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de Alisson
Enviada em: quarta-feira, 20 de maio de 2009 10:15
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Firebird no Vista


No Windows Vista você sempre deve colocar o nome do servidor ao acessar o
BD, mesmo que seja em máquina local. Ex.:
servidor:c:\meusistema\meubanco.fdb. Talvez possar ser isso.

__
Faça ligações para outros computadores com o novo Yahoo! Messenger
http://br.beta.messenger.yahoo.com/




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

RES: [delphi-br] Firebird no Vista

[Vinicius da Silva Pinto]

Amigos, outra coisa que eu não mencionei...

No painel de controle, no icone do Firebird, ele mostra que o serviço esta
sendo executado (The firebird service is running)

Mais se eu for no Gerenciador de tarefas, o FBGUARD.EXE e o FBSERVER.EXE não
aparecem na lista.

Tem explicação??

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de Vinicius da Silva Pinto
Enviada em: quarta-feira, 20 de maio de 2009 08:02
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Firebird no Vista


Amigos, preciso de uma dica, já procurei nas mensagens antigas da lista e no
google, mais não consegui achar uma solução.

instalei o FireBird 2.0 no laptop que esta com Vista Home.

A instalação foi concluida, depois instalei o IBExpert trial que baixei da
HKsoftware.

Quando vou criar um banco novo, estou recebendo a seguinte mensagem:

"unsuccessful execution caused by an unavailable resource. unavailable
database."

Já desinstalei, desmarqui a opção que altera a GDS32.DLL e sempre o mesmo
erro.

Alguem tem alguma dica a ser usada na hora da instalação?

Tenho que fazer algo diferente??

Obrigado a quem puder colaborar comigo..

Vinicius






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

[delphi-br] Firebird no Vista

[Vinicius da Silva Pinto]

Amigos, preciso de uma dica, já procurei nas mensagens antigas da lista e no
google, mais não consegui achar uma solução.

instalei o FireBird 2.0 no laptop que esta com Vista Home.

A instalação foi concluida, depois instalei o IBExpert trial que baixei da
HKsoftware.

Quando vou criar um banco novo, estou recebendo a seguinte mensagem:

"unsuccessful execution caused by an unavailable resource. unavailable
database."

Já desinstalei, desmarqui a opção que altera a GDS32.DLL e sempre o mesmo
erro.

Alguem tem alguma dica a ser usada na hora da instalação?

Tenho que fazer algo diferente??

Obrigado a quem puder colaborar comigo..

Vinicius

RES: RES: [delphi-br] Ajuda....

[Vinicius da Silva Pinto]

Ricardo, obrigado pela grande ajuda confesso que estava olhando e não
estava conseguindo ver o erro tão grosseiro que era colocar o DATASET.
Valeu pela ajuda, perdi muito tempo por falta de atenção obrigado a vc e
a todos que ajudaram de alguma forma.

Vinicius

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de Ricardo César Cardoso
Enviada em: segunda-feira, 18 de maio de 2009 15:34
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Ajuda


Pode ser que o Yahoo acabou desconfigurando a mensagem, por isso apareceram
os espaços em branco.

[]'s
Ricardo.

"Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!"

--- Em seg, 18/5/09, Vinicius da Silva Pinto 
escreveu:

De: Vinicius da Silva Pinto 
Assunto: RES: [delphi-br] Ajuda
Para: delphi-br@yahoogrupos.com.br
Data: Segunda-feira, 18 de Maio de 2009, 15:23



  

Não entendi, pq os espaços em branco?



-Mensagem original -

De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br]Em

nome de Claudiney Cogo

Enviada em: segunda-feira, 18 de maio de 2009 15:15

Para: delphi...@yahoogrup os.com.br

Assunto: RES: [delphi-br] Ajuda



Dê uma olhada nessas linhas:



FrmDm.SimpleDataSet 1.Params[ 0].AsInteger := 1;

FrmDm.SimpleDataSet 1.Params[ 1].AsDate := MCevento.Date;



Não seria correto assim?



FrmDm.SimpleDataSet 1.DataSet.Params[ 0].AsInteger := 1;

FrmDm.SimpleDataSet 1.DataSet.Params[ 1].AsDate := MCevento.Date;



Abraço



_



Claudiney Cogo

N2 Sistemas e Soluções em Informática

Av. São Paulo, 172 - 15º Andar - Sala 1505

Fone/Fax: (44) 3029-6053 - Maringá - Paraná

 <http://www.n2soluti ons.com.br/> www.n2solutions. com.br

 <http://www.nfe. n2solutions. com.br/> www.nfe.n2solutions .com.br

 <http://www.studion2 .com.br/> www.studion2. com.br



De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br] Em

nome de Vinicius da Silva Pinto

Enviada em: segunda-feira, 18 de maio de 2009 09:15

Para: delphi...@yahoogrup os.com.br

Assunto: [delphi-br] Ajuda



Amigos, estou tendo um problema com um SimpleDataSet e não descubro o erro:



Em uma determinado momento do sistema eu faço uma consulta por data e tudo

corre muito bem, como neste exemplo abaixo:



FrmDm.SdsCadEventos 1.Close;

FrmDm.SdsCadEventos 1.DataSet. CommandText := 'SELECT CDEVENTO FROM

BDEVENTOS WHERE DATAEVENTO = :WDATA';

FrmDm.SdsCadEventos 1.DataSet. Params[0] .AsDate := MCevento.Date;

FrmDm.SdsCadEventos 1.Open;



Em outra hora preciso selecionar por empresa tambem, ai que estou tendo o

problema



Estou recebendo esta mensagem de erro: "List Index out off Bounds (0)"



Como se os parametros não foram definidos



Juro que não estou enxergando o erro ou se tenho que fazer algo diferente..



FrmDm.SimpleDataSet 1.Close;



FrmDm.SimpleDataSet 1.DataSet. CommandText := 'select CDEVENTO from

BDEVENTOS WHERE CDEMPRESA = :WEMP and DATAEVENTO = :WDATA';



FrmDm.SimpleDataSet 1.Params[ 0].AsInteger := 1;

<<<<<--- -- pelo log, o erro é nesta linha



FrmDm.SimpleDataSet 1.Params[ 1].AsDate := MCevento.Date;



FrmDm.SimpleDataSet 1.Open;



Agradeço qualquer dica ou ajuda...



Vinicius



__ Informação do NOD32 IMON 4082 (20090518) __



Esta mensagem foi verificada pelo NOD32 sistema antivírus

http://www.eset. com.br



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



 - - --



--

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





























  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

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





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

RES: [delphi-br] Ajuda....

[Vinicius da Silva Pinto]

Não entendi, pq os espaços em branco?

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de Claudiney Cogo
Enviada em: segunda-feira, 18 de maio de 2009 15:15
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Ajuda


Dê uma olhada nessas linhas:



FrmDm.SimpleDataSet 1.Params[ 0].AsInteger := 1;
FrmDm.SimpleDataSet 1.Params[ 1].AsDate := MCevento.Date;



Não seria correto assim?



FrmDm.SimpleDataSet 1.DataSet.Params[ 0].AsInteger := 1;
FrmDm.SimpleDataSet 1.DataSet.Params[ 1].AsDate := MCevento.Date;



Abraço



  _

Claudiney Cogo
N2 Sistemas e Soluções em Informática
Av. São Paulo, 172 - 15º Andar - Sala 1505
Fone/Fax: (44) 3029-6053 - Maringá - Paraná
 <http://www.n2solutions.com.br/> www.n2solutions.com.br
 <http://www.nfe.n2solutions.com.br/> www.nfe.n2solutions.com.br
 <http://www.studion2.com.br/> www.studion2.com.br



De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Vinicius da Silva Pinto
Enviada em: segunda-feira, 18 de maio de 2009 09:15
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Ajuda








Amigos, estou tendo um problema com um SimpleDataSet e não descubro o erro:

Em uma determinado momento do sistema eu faço uma consulta por data e tudo
corre muito bem, como neste exemplo abaixo:

FrmDm.SdsCadEventos1.Close;
FrmDm.SdsCadEventos1.DataSet.CommandText := 'SELECT CDEVENTO FROM
BDEVENTOS WHERE DATAEVENTO = :WDATA';
FrmDm.SdsCadEventos1.DataSet.Params[0].AsDate := MCevento.Date;
FrmDm.SdsCadEventos1.Open;

Em outra hora preciso selecionar por empresa tambem, ai que estou tendo o
problema

Estou recebendo esta mensagem de erro: "List Index out off Bounds (0)"

Como se os parametros não foram definidos

Juro que não estou enxergando o erro ou se tenho que fazer algo diferente..

FrmDm.SimpleDataSet1.Close;

FrmDm.SimpleDataSet1.DataSet.CommandText := 'select CDEVENTO from
BDEVENTOS WHERE CDEMPRESA = :WEMP and DATAEVENTO = :WDATA';

FrmDm.SimpleDataSet1.Params[0].AsInteger := 1;
<<<<<- pelo log, o erro é nesta linha

FrmDm.SimpleDataSet1.Params[1].AsDate := MCevento.Date;

FrmDm.SimpleDataSet1.Open;

Agradeço qualquer dica ou ajuda...

Vinicius





__ Informação do NOD32 IMON 4082 (20090518) __

Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br



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





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

RES: [delphi-br] Ajuda....

[Vinicius da Silva Pinto]

Já, só muda o display do erro, dizendo que o campo não existe.

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de leite romano
Enviada em: segunda-feira, 18 de maio de 2009 12:34
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Ajuda


ja tentou Utilizar paramByName

--- Em seg, 18/5/09, Vinicius da Silva Pinto 
escreveu:


De: Vinicius da Silva Pinto 
Assunto: [delphi-br] Ajuda
Para: delphi-br@yahoogrupos.com.br
Data: Segunda-feira, 18 de Maio de 2009, 9:14








Amigos, estou tendo um problema com um SimpleDataSet e não descubro o erro:

Em uma determinado momento do sistema eu faço uma consulta por data e tudo
corre muito bem, como neste exemplo abaixo:

FrmDm.SdsCadEventos 1.Close;
FrmDm.SdsCadEventos 1.DataSet. CommandText := 'SELECT CDEVENTO FROM
BDEVENTOS WHERE DATAEVENTO = :WDATA';
FrmDm.SdsCadEventos 1.DataSet. Params[0] .AsDate := MCevento.Date;
FrmDm.SdsCadEventos 1.Open;

Em outra hora preciso selecionar por empresa tambem, ai que estou tendo o
problema

Estou recebendo esta mensagem de erro: "List Index out off Bounds (0)"

Como se os parametros não foram definidos

Juro que não estou enxergando o erro ou se tenho que fazer algo diferente..

FrmDm.SimpleDataSet 1.Close;

FrmDm.SimpleDataSet 1.DataSet. CommandText := 'select CDEVENTO from
BDEVENTOS WHERE CDEMPRESA = :WEMP and DATAEVENTO = :WDATA';

FrmDm.SimpleDataSet 1.Params[ 0].AsInteger := 1;
<<<<<--- -- pelo log, o erro é nesta linha

FrmDm.SimpleDataSet 1.Params[ 1].AsDate := MCevento.Date;

FrmDm.SimpleDataSet 1.Open;

Agradeço qualquer dica ou ajuda...

Vinicius

















  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

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





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

[delphi-br] Ajuda....

[Vinicius da Silva Pinto]

Amigos, estou tendo um problema com um SimpleDataSet e não descubro o erro:

Em uma determinado momento do sistema eu faço uma consulta por data e tudo
corre muito bem, como neste exemplo abaixo:

  FrmDm.SdsCadEventos1.Close;
  FrmDm.SdsCadEventos1.DataSet.CommandText := 'SELECT CDEVENTO FROM
BDEVENTOS WHERE DATAEVENTO = :WDATA';
  FrmDm.SdsCadEventos1.DataSet.Params[0].AsDate := MCevento.Date;
  FrmDm.SdsCadEventos1.Open;


Em outra hora preciso selecionar por empresa tambem, ai que estou tendo o
problema

Estou recebendo esta mensagem de erro: "List Index out off Bounds (0)"

Como se os parametros não foram definidos

Juro que não estou enxergando o erro ou se tenho que fazer algo diferente..

  FrmDm.SimpleDataSet1.Close;

  FrmDm.SimpleDataSet1.DataSet.CommandText := 'select CDEVENTO from
BDEVENTOS WHERE CDEMPRESA = :WEMP and DATAEVENTO = :WDATA';

  FrmDm.SimpleDataSet1.Params[0].AsInteger := 1;
<-  pelo log, o erro é nesta linha

  FrmDm.SimpleDataSet1.Params[1].AsDate := MCevento.Date;

  FrmDm.SimpleDataSet1.Open;


Agradeço qualquer dica ou ajuda...

Vinicius

[delphi-br] Dica pra chave primaria

[Vinicius da Silva Pinto]

Amigos, estou precisando de algumas dicas de como reinicializar uma chave.

O problema é o seguinte.

Tenho um arquivo de processos e contratos, a numeração deles era sequencial,
só que o cliente quer mudar pra ANO+sequencial e que no inicio do ano seja
reinicializado.

Até ai tudo bem, eu setei o generator para 2009, nos teste tudo bem, o
primeiro processo ficou com o numero 20090001 e segue tudo normal.

Agora eu pergunto, qual seria oa melhor forma de reinicializar ele em
01/01/2010, quando o primeiro processo entrar, comparar datas e
reinicializar?
Fazer um contador a parte? Estou com algumas ideias mais ainda não achei uma
realmente confiavel, pois em alguns teste que fiz o contador foi
reinicializado duas vezes causando erro.

Vcs podem me dar alguma ideia

Agradeço qualquer dica. (Uso D7 e InterBase)

Vinicius.

RES: [delphi-br] Consultoria...

[Vinicius da Silva Pinto]

Obrigado Marcos, vlw pelo esclarecimento

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de Marcos Bernardo
Enviada em: quarta-feira, 6 de maio de 2009 16:38
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Consultoria...


eu  acredito que nem um nem outro..
melhor coisa.. seria.. utilizar o dbx
(SqlDataSet+DataSetProvider+ClientDataSet) ou IBQuery+DSP+CDS) pode ser
tbm... ja que utiliza componentes IBX,
 e na opção PacketRecord do ClientDataSet colocar uns 50 ou 100
com isso ao invez de quando voce abrir o cds... ele traz pouco registro e so
ira busca na base quando
solicitado, claro, que se voce unir isso a algum critéio de busca, seria
melhor ainda... ok

Faça alguns teste... e veja a velocidade e a navegação... entre registros...
isso eh simples... ;-))

abraço
Marcos Bernardo

2009/5/6 Vinicius da Silva Pinto 

>
>
> Amigos, gostaria de tirar umas dúvidas e aprender mais um pouco...
>
> Tenho um form com os Dados de um Cliente, bastante dados... a tabela tem
> aproximadamente 50.000.
>
> O que é menos pesado para um Banco de Dados (no meu caso tenho clientes
com
> InterBase e FireBird):
>
> Um DBnavigator apontando para uma IBtable, ou o mesmo apontando para um
> SimpleDataSet (com select * from arquivo)???
>
> É que eu já utilizei bastante a paleta do InterBase e poucas vezes
recursos
> do dbExpress, mais não tive como saber tecnicamente qual dos dois é mais
> light para o BD processar.
>
> Alguem já fez alguns testes para ver performance???
>
> Obrigado.
>
>
>



--
Marcos A. de A. Bernardo
xmarcos@gmail.com
11 - 9462-2657
http://bagus.cathonegocios.com.br


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





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

[delphi-br] Consultoria...

[Vinicius da Silva Pinto]

Amigos, gostaria de tirar umas dúvidas e aprender mais um pouco...

Tenho um form com os Dados de um Cliente, bastante dados... a tabela tem
aproximadamente 50.000.

O que é menos pesado para um Banco de Dados (no meu caso tenho clientes com
InterBase e FireBird):

Um DBnavigator apontando para uma IBtable, ou o mesmo apontando para um
SimpleDataSet (com select * from arquivo)???

É que eu já utilizei bastante a paleta do InterBase e poucas vezes recursos
do dbExpress, mais não tive como saber tecnicamente qual dos dois é mais
light para o BD processar.

Alguem já fez alguns testes para ver performance???

Obrigado.

[delphi-br] Sugestão para Relatório

[Vinicius da Silva Pinto]

Bom dia a todos...

Galera, é o seguinte, tenho que imprimir um contrato de aproximadamente 8
folhas, sendo que neste contrato vão entrar vários itens do Banco de Dados.

Tipo, nome e todos os dados do contratado, os itens que ele adquirui para o
serviço, e outros detalhes que estão armazenados no BD que entrarão em
diversar partes do contrato.

Gostaria imensamente de opniões sobre o melhor meio deste contrato ser
confeccionado, ele pode variar de tamanho dependendo dos itens que o cliente
escolher, pode ser de 6 até 10 folhas.

Utilizo Delphi7 e ReportBuilder.

Hoje ele é feito em word e o pessoal do escritório coloca as informações nos
locais pré-determinado.

Se alguem já passou por isso ou se tem alguma ideia, eu aceito e testarei
todas.

Obrigado a todos.

Vinicius.

[delphi-br] FastReport (OFF)

[Vinicius da Silva Pinto]

Boa tarde a todos, alguem poderia me informar onde posso comprar aqui no
brasil o FastReport 4 Standard, só estou encontrando site lá de fora...
No site da fastreport indica a safsoft, e eu não sou de comprar produtos do
exterior, pois não sei se é uma boa.
Outra pergunta seria se vale mais a pena o FastReport 4 ou ReportBuilder?
(sem gerar polemica), trabalho com Delphi 7 e Interbase.
Agradeço.
Vinicius

[delphi-br] FastReport (OFF)

[Vinicius da Silva Pinto]

Bom dia a todos, alguem poderia me informar onde posso comprar aqui no
brasil o FastReport 4 Standard, só estou encontrando site lá de fora...
No site da fastreport indica a safsoft, e eu não sou de comprar produtos do
exterior, pois não sei se é uma boa.
Outra pergunta seria se vale mais a pena o FastReport 4 ou ReportBuilder?
(sem gerar polemica), trabalho com Delphi 7 e Interbase.
Agradeço.
Vinicius

RES: [delphi-br] Ajuca com SQL

[Vinicius da Silva Pinto]

Valeu mesmo Juliano e a todos que colaboraram comigo. funcionou que é
uma blz
Agradeço de coração, pois não tenho muita experiencia em SQL, não por
preguiça ou má vontade,
estava tentando varias combinações, talves daqui a uns meses eu conseguiria
chegar até esse ponto.
Um abraço a todos e com certeza voltarei com mais algumas dúvidas.

Vinicius S Pinto



Faz assim
select a.CDPEDIDO, a.VALOR,
(select coalesce(sum(b.ValorPgto) , 0)
from BDpagamentos b where b.cdpedido = a.cdpedido) VALOR_PAGO
from BDpedidos a group by a.CDpedido, a.Valor, VALOR_PAGO
having VALOR <> (select coalesce(sum(b.ValorPgto) , 0) from BDpagamentos b
where b.cdpedido = a.cdpedido)


Enjoy



De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Vinicius da Silva Pinto
Enviada em: quarta-feira, 1 de abril de 2009 09:54
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Ajuca com SQL



Isso que esta me deixando maluco, nesta situação:
select a.CDPEDIDO, a.VALOR, (select coalesce(sum(b.ValorPgto) , 0)
from BDpagamentos b where b.cdpedido = a.cdpedido) VALOR_PAGO
from BDpedidos a
group by a.CDpedido, a.Valor, VALOR_PAGO
o resultado são tres colunas, CDPEDIDO, VALOR e VALOR_PAGO

Mais se eu acrescento HAVING:
select a.CDPEDIDO, a.VALOR, (select coalesce(sum(b.ValorPgto) , 0)
from BDpagamentos b where b.cdpedido = a.cdpedido) VALOR_PAGO
from BDpedidos a
group by a.CDpedido, a.Valor, VALOR_PAGO
having VALOR <> VALOR_PAGO

me retorna o seguinte erro:
Column does not belong to referenced table.
Dynamic SQL Error.
SQL error code = -206.
Column unknown.
VALORGERAL.
At line 5, column 17.

é coisa de doido

-Mensagem original-
De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
[mailto:delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
]Em
nome de Vinicius da Silva Pinto
Enviada em: quarta-feira, 1 de abril de 2009 09:43
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
Assunto: RES: [delphi-br] Ajuca com SQL

Sim, ele reclama logo de cara do campo VALOR_PAGO, mesmo colocando HAVING

-Mensagem original-
De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
[mailto:delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
]Em
nome de Luciano Calenzani Simões
Enviada em: quarta-feira, 1 de abril de 2009 09:40
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
Assunto: RES: [delphi-br] Ajuca com SQL

Testou desta forma?

select CDPEDIDO, VALOR, (select coalesce(sum( ValorPgto) , 0)
from BDpagamentos where cdpedido = BDpedidos.cdpedido) VALOR_PAGO
from BDpedidos
where VALOR <> VALOR_PAGO

Luciano Calenzani Simões

____
De: Vinicius da Silva Pinto mailto:vinicius%40cnen.gov.br> >
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
Enviadas: Quarta-feira, 1 de Abril de 2009 9:26:09
Assunto: RES: RES: [delphi-br] Ajuca com SQL

Utilizando HEAVING, ele reclama do campo VALOR_PAGO

select a.CDPEDIDO, a.VALOR, (select coalesce(sum( b.ValorPgto) , 0)
from BDpagamentos b where b.cdpedido = a.cdpedido) VALOR_PAGO
from BDpedidos a
group by a.CDpedido, a.Valor
HAVING A.VALOR <> VALOR_PAGO

Retirando Group by e heavin, funciona que é uma beleza, mais traz tbm todos
os registros pagos integralmente.

Estou fazendo diversos testes utilizando o IBexpert em uma base INTERBASE
6.5

-Mensagem original -
De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br]Em
nome de José Roberto Marque
Enviada em: quarta-feira, 1 de abril de 2009 08:37
Para: delphi...@yahoogrup os.com.br
Assunto: Re: RES: [delphi-br] Ajuca com SQL

Complicado, hein, Vinicius.

Será que não é o HAVING ? Porque o LEFT OUTER JOIN vai retornar nulo se o
registro não existir. A dúvida que fica é como o HAVING trataria isso ...

--- Em qua, 1/4/09, Vinicius da Silva Pinto 
escreveu:

De: Vinicius da Silva Pinto 
Assunto: RES: [delphi-br] Ajuca com SQL
Para: delphi...@yahoogrup os.com.br
Data: Quarta-feira, 1 de Abril de 2009, 7:56

Grande Jose, olha, o resultado foi o mesmo, todas as duas opções
(a minha e

a sua com left outer join) deram o mesmo resultado.

estou fazendo teste com coalesce...

Vinicius

Tenta assim :

SELECT A.CDPEDIDO, A.DATAEVENTO, A.VALOR, SUM( G.VALORPAGTO )

FROM BDPEDIDOS A LEFT OUTER JOIN BDPAGAMENTOS G ON A.CDPEDIDO = G.CDPEDIDO

WHERE A.DATAEVENTO <= '01/04/2009'

GROUP BY CDPEDIDO, DATAEVENTO, VALOR

HAVING SUM(G.ValorPgto) < A.valor

Entendeu ?

Vê se funciona.

--- Em sex, 27/3/09, Vinicius da Silva Pinto 

escreveu:

De: Vinicius da Silva Pinto 

Assunto: [delphi-br] Ajuca com SQL

Para: delphi...@yahoogrup os.com.br

Data: Sexta-feira, 27 de Março de 2009, 15:33

Ve se alguem pode me ajudar, já quebrei a cabeça e não obtive o

resultado

satisfatório.

São duas tabelas, bem simples uma com os dados de um pedido com codigo,

nome.

RES: [delphi-br] Ajuca com SQL

[Vinicius da Silva Pinto]

Isso que esta me deixando maluco, nesta situação:
select a.CDPEDIDO, a.VALOR, (select coalesce(sum(b.ValorPgto) , 0)
from BDpagamentos b where b.cdpedido = a.cdpedido)  VALOR_PAGO
from BDpedidos a
group by a.CDpedido, a.Valor, VALOR_PAGO
o resultado são tres colunas, CDPEDIDO, VALOR e VALOR_PAGO

Mais se eu acrescento HAVING:
select a.CDPEDIDO, a.VALOR, (select coalesce(sum(b.ValorPgto) , 0)
from BDpagamentos b where b.cdpedido = a.cdpedido)  VALOR_PAGO
from BDpedidos a
group by a.CDpedido, a.Valor, VALOR_PAGO
having VALOR <> VALOR_PAGO

me retorna o seguinte erro:
Column does not belong to referenced table.
Dynamic SQL Error.
SQL error code = -206.
Column unknown.
VALORGERAL.
At line 5, column 17.


é coisa de doido

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de Vinicius da Silva Pinto
Enviada em: quarta-feira, 1 de abril de 2009 09:43
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Ajuca com SQL


Sim, ele reclama logo de cara do campo VALOR_PAGO, mesmo colocando HAVING

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de Luciano Calenzani Simões
Enviada em: quarta-feira, 1 de abril de 2009 09:40
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Ajuca com SQL


Testou desta forma?

select CDPEDIDO, VALOR, (select coalesce(sum( ValorPgto) , 0)
from BDpagamentos where cdpedido = BDpedidos.cdpedido) VALOR_PAGO
from BDpedidos
where VALOR <> VALOR_PAGO

 Luciano Calenzani Simões






____
De: Vinicius da Silva Pinto 
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 1 de Abril de 2009 9:26:09
Assunto: RES: RES: [delphi-br] Ajuca com SQL


Utilizando HEAVING, ele reclama do campo VALOR_PAGO

select a.CDPEDIDO, a.VALOR, (select coalesce(sum( b.ValorPgto) , 0)
from BDpagamentos b where b.cdpedido = a.cdpedido)  VALOR_PAGO
from BDpedidos a
group by a.CDpedido, a.Valor
HAVING A.VALOR <> VALOR_PAGO

Retirando Group by e heavin, funciona que é uma beleza, mais traz tbm todos
os registros pagos integralmente.

Estou fazendo diversos testes utilizando o IBexpert em uma base INTERBASE
6.5

-Mensagem original -
De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br]Em
nome de José Roberto Marque
Enviada em: quarta-feira, 1 de abril de 2009 08:37
Para: delphi...@yahoogrup os.com.br
Assunto: Re: RES: [delphi-br] Ajuca com SQL

Complicado, hein, Vinicius.

  Será que não é o HAVING ? Porque o LEFT OUTER JOIN vai retornar nulo se o
registro não existir.  A dúvida que fica é como o HAVING trataria isso ...

--- Em qua, 1/4/09, Vinicius da Silva Pinto 
escreveu:

De: Vinicius da Silva Pinto 
Assunto: RES: [delphi-br] Ajuca com SQL
Para: delphi...@yahoogrup os.com.br
Data: Quarta-feira, 1 de Abril de 2009, 7:56

Grande Jose, olha, o resultado foi o mesmo, todas as duas opções
(a minha e

a sua com left outer join) deram o mesmo resultado.

estou fazendo teste com coalesce...

Vinicius

Tenta assim :

 SELECT A.CDPEDIDO, A.DATAEVENTO, A.VALOR, SUM( G.VALORPAGTO )

 FROM BDPEDIDOS A LEFT OUTER JOIN BDPAGAMENTOS G ON A.CDPEDIDO = G.CDPEDIDO

 WHERE A.DATAEVENTO <= '01/04/2009'

GROUP BY CDPEDIDO, DATAEVENTO, VALOR

HAVING SUM(G.ValorPgto) < A.valor

Entendeu ?

Vê se funciona.

--- Em sex, 27/3/09, Vinicius da Silva Pinto 

escreveu:

De: Vinicius da Silva Pinto 

Assunto: [delphi-br] Ajuca com SQL

Para: delphi...@yahoogrup os.com.br

Data: Sexta-feira, 27 de Março de 2009, 15:33

Ve se alguem pode me ajudar, já quebrei a cabeça e não obtive o

resultado

satisfatório.

São duas tabelas, bem simples uma com os dados de um pedido com codigo,

nome...e ValorTotal.

Na outra tabela, a de pagamentos, só tem registro quando o cliente paga,

pode ser a vista ou parcelado.

As duas tabelas são unidas pelo campo CDpedido

O que eu quero é o seguinte... um relação de todos os pedidos que ainda não

pagaram o valor total.

Fiz a seguinte query:

SELECT A.CDPEDIDO, A.dataevento, A.valor AS VALORTOTAL, SUM(G.ValorPgto) AS

TOTALPAGO

FROM BDpedidos A, BDpagamentos G

WHERE G.CDpedido = A.CDpedido AND A.DATAEVENTO <= '01/04/2009'

GROUP BY CDPEDIDO, DATAEVENTO, VALOR

HAVING SUM(G.ValorPgto) < A.valor

Funciona, só que só aparecem os pedidos que já tiveram algum pagamento, os

registros que estão na

tabela principal que ainda não tiveram nenhum pagamento, não sai...

Pergunta . como faço para aparecer tbm os registros que não tiveram

pagamento.

Agradeço qualquer ajuda ou dica.

Vinicius

Veja quais são os assuntos do momento no Yahoo! +Buscados

http://br.maisbusca dos.yahoo. com

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

 - - --

--

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

Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbusca d

RES: [delphi-br] Ajuca com SQL

[Vinicius da Silva Pinto]

Sim, ele reclama logo de cara do campo VALOR_PAGO, mesmo colocando HAVING

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de Luciano Calenzani Simões
Enviada em: quarta-feira, 1 de abril de 2009 09:40
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Ajuca com SQL


Testou desta forma?

select CDPEDIDO, VALOR, (select coalesce(sum( ValorPgto) , 0)
from BDpagamentos where cdpedido = BDpedidos.cdpedido) VALOR_PAGO
from BDpedidos
where VALOR <> VALOR_PAGO

 Luciano Calenzani Simões






____
De: Vinicius da Silva Pinto 
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 1 de Abril de 2009 9:26:09
Assunto: RES: RES: [delphi-br] Ajuca com SQL


Utilizando HEAVING, ele reclama do campo VALOR_PAGO

select a.CDPEDIDO, a.VALOR, (select coalesce(sum( b.ValorPgto) , 0)
from BDpagamentos b where b.cdpedido = a.cdpedido)  VALOR_PAGO
from BDpedidos a
group by a.CDpedido, a.Valor
HAVING A.VALOR <> VALOR_PAGO

Retirando Group by e heavin, funciona que é uma beleza, mais traz tbm todos
os registros pagos integralmente.

Estou fazendo diversos testes utilizando o IBexpert em uma base INTERBASE
6.5

-Mensagem original -
De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br]Em
nome de José Roberto Marque
Enviada em: quarta-feira, 1 de abril de 2009 08:37
Para: delphi...@yahoogrup os.com.br
Assunto: Re: RES: [delphi-br] Ajuca com SQL

Complicado, hein, Vinicius.

  Será que não é o HAVING ? Porque o LEFT OUTER JOIN vai retornar nulo se o
registro não existir.  A dúvida que fica é como o HAVING trataria isso ...

--- Em qua, 1/4/09, Vinicius da Silva Pinto 
escreveu:

De: Vinicius da Silva Pinto 
Assunto: RES: [delphi-br] Ajuca com SQL
Para: delphi...@yahoogrup os.com.br
Data: Quarta-feira, 1 de Abril de 2009, 7:56

Grande Jose, olha, o resultado foi o mesmo, todas as duas opções
(a minha e

a sua com left outer join) deram o mesmo resultado.

estou fazendo teste com coalesce...

Vinicius

Tenta assim :

 SELECT A.CDPEDIDO, A.DATAEVENTO, A.VALOR, SUM( G.VALORPAGTO )

 FROM BDPEDIDOS A LEFT OUTER JOIN BDPAGAMENTOS G ON A.CDPEDIDO = G.CDPEDIDO

 WHERE A.DATAEVENTO <= '01/04/2009'

GROUP BY CDPEDIDO, DATAEVENTO, VALOR

HAVING SUM(G.ValorPgto) < A.valor

Entendeu ?

Vê se funciona.

--- Em sex, 27/3/09, Vinicius da Silva Pinto 

escreveu:

De: Vinicius da Silva Pinto 

Assunto: [delphi-br] Ajuca com SQL

Para: delphi...@yahoogrup os.com.br

Data: Sexta-feira, 27 de Março de 2009, 15:33

Ve se alguem pode me ajudar, já quebrei a cabeça e não obtive o

resultado

satisfatório.

São duas tabelas, bem simples uma com os dados de um pedido com codigo,

nome...e ValorTotal.

Na outra tabela, a de pagamentos, só tem registro quando o cliente paga,

pode ser a vista ou parcelado.

As duas tabelas são unidas pelo campo CDpedido

O que eu quero é o seguinte... um relação de todos os pedidos que ainda não

pagaram o valor total.

Fiz a seguinte query:

SELECT A.CDPEDIDO, A.dataevento, A.valor AS VALORTOTAL, SUM(G.ValorPgto) AS

TOTALPAGO

FROM BDpedidos A, BDpagamentos G

WHERE G.CDpedido = A.CDpedido AND A.DATAEVENTO <= '01/04/2009'

GROUP BY CDPEDIDO, DATAEVENTO, VALOR

HAVING SUM(G.ValorPgto) < A.valor

Funciona, só que só aparecem os pedidos que já tiveram algum pagamento, os

registros que estão na

tabela principal que ainda não tiveram nenhum pagamento, não sai...

Pergunta . como faço para aparecer tbm os registros que não tiveram

pagamento.

Agradeço qualquer ajuda ou dica.

Vinicius

Veja quais são os assuntos do momento no Yahoo! +Buscados

http://br.maisbusca dos.yahoo. com

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

 - - --

--

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

Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbusca dos.yahoo. com

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

 - - --

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





  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

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





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

RES: RES: [delphi-br] Ajuca com SQL

[Vinicius da Silva Pinto]

Utilizando HEAVING, ele reclama do campo VALOR_PAGO

select a.CDPEDIDO, a.VALOR, (select coalesce(sum(b.ValorPgto) , 0)
from BDpagamentos b where b.cdpedido = a.cdpedido)  VALOR_PAGO
from BDpedidos a
group by a.CDpedido, a.Valor
HAVING A.VALOR <> VALOR_PAGO

Retirando Group by e heavin, funciona que é uma beleza, mais traz tbm todos
os registros pagos integralmente.

Estou fazendo diversos testes utilizando o IBexpert em uma base INTERBASE
6.5

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de José Roberto Marque
Enviada em: quarta-feira, 1 de abril de 2009 08:37
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Ajuca com SQL


Complicado, hein, Vinicius.

  Será que não é o HAVING ? Porque o LEFT OUTER JOIN vai retornar nulo se o
registro não existir.  A dúvida que fica é como o HAVING trataria isso ...

--- Em qua, 1/4/09, Vinicius da Silva Pinto  escreveu:

De: Vinicius da Silva Pinto 
Assunto: RES: [delphi-br] Ajuca com SQL
Para: delphi-br@yahoogrupos.com.br
Data: Quarta-feira, 1 de Abril de 2009, 7:56












Grande Jose, olha, o resultado foi o mesmo, todas as duas opções
(a minha e

a sua com left outer join) deram o mesmo resultado.

estou fazendo teste com coalesce...



Vinicius



Tenta assim :



 SELECT A.CDPEDIDO, A.DATAEVENTO, A.VALOR, SUM( G.VALORPAGTO )

 FROM BDPEDIDOS A LEFT OUTER JOIN BDPAGAMENTOS G ON A.CDPEDIDO = G.CDPEDIDO

 WHERE A.DATAEVENTO <= '01/04/2009'



GROUP BY CDPEDIDO, DATAEVENTO, VALOR



HAVING SUM(G.ValorPgto) < A.valor



Entendeu ?



Vê se funciona.

--- Em sex, 27/3/09, Vinicius da Silva Pinto 

escreveu:



De: Vinicius da Silva Pinto 

Assunto: [delphi-br] Ajuca com SQL

Para: delphi...@yahoogrup os.com.br

Data: Sexta-feira, 27 de Março de 2009, 15:33



Ve se alguem pode me ajudar, já quebrei a cabeça e não obtive o

resultado

satisfatório.



São duas tabelas, bem simples uma com os dados de um pedido com codigo,

nome...e ValorTotal.



Na outra tabela, a de pagamentos, só tem registro quando o cliente paga,

pode ser a vista ou parcelado.



As duas tabelas são unidas pelo campo CDpedido

O que eu quero é o seguinte... um relação de todos os pedidos que ainda não

pagaram o valor total.



Fiz a seguinte query:



SELECT A.CDPEDIDO, A.dataevento, A.valor AS VALORTOTAL, SUM(G.ValorPgto) AS

TOTALPAGO

FROM BDpedidos A, BDpagamentos G

WHERE G.CDpedido = A.CDpedido AND A.DATAEVENTO <= '01/04/2009'

GROUP BY CDPEDIDO, DATAEVENTO, VALOR

HAVING SUM(G.ValorPgto) < A.valor



Funciona, só que só aparecem os pedidos que já tiveram algum pagamento, os

registros que estão na

tabela principal que ainda não tiveram nenhum pagamento, não sai...



Pergunta . como faço para aparecer tbm os registros que não tiveram



pagamento.



Agradeço qualquer ajuda ou dica.



Vinicius



Veja quais são os assuntos do momento no Yahoo! +Buscados

http://br.maisbusca dos.yahoo. com



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



 - - --



--

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





























  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

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





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

RES: [delphi-br] Ajuca com SQL

[Vinicius da Silva Pinto]

Luciano, a sua funcionou:
select CDPEDIDO, VALOR from BDpedidos
where VALOR <> (select coalesce(sum(ValorPgto) , 0)
from BDpagamentos where cdpedido = BDpedidos.cdpedido)

Me retornou os numeros dos pedidos corretos, só que eu preciso que me
retorne tbm o montante já pago.
Quando eu coloco o SUM no primeiro select, volto a situação anterior.
O retorno deve ser tipo assim:

PEDIDO   VALORTOTAL   VALORPAGO
1500 200
3600
5400  50
6290 150
7450
8600
99   320 100

Eu consigo mais estou fazendo duas querys... em uma só tá dificil.




-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de Luciano Calenzani Simões
Enviada em: quarta-feira, 1 de abril de 2009 08:05
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Ajuca com SQL


Você tentou com a SQL que te passei?

select num_pedido from pedido
where vl_pedido <> (select coalesce(sum( vl_pagamento) , 0) from pagamento
where cd_pedido = pedido.cd_pedido)


 Luciano Calenzani Simões


  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

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





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

RES: [delphi-br] Ajuca com SQL

[Vinicius da Silva Pinto]

Grande Jose, olha, o resultado foi o mesmo, todas as duas opções (a minha e
a sua com left outer join) deram o mesmo resultado.
estou fazendo teste com coalesce...

Vinicius



Tenta assim :

 SELECT A.CDPEDIDO, A.DATAEVENTO, A.VALOR, SUM( G.VALORPAGTO )
 FROM BDPEDIDOS A LEFT OUTER JOIN BDPAGAMENTOS G ON A.CDPEDIDO = G.CDPEDIDO
 WHERE A.DATAEVENTO <= '01/04/2009'

GROUP BY CDPEDIDO, DATAEVENTO, VALOR

HAVING SUM(G.ValorPgto) < A.valor

Entendeu ?

Vê se funciona.
--- Em sex, 27/3/09, Vinicius da Silva Pinto 
escreveu:

De: Vinicius da Silva Pinto 
Assunto: [delphi-br] Ajuca com SQL
Para: delphi-br@yahoogrupos.com.br
Data: Sexta-feira, 27 de Março de 2009, 15:33

Ve se alguem pode me ajudar, já quebrei a cabeça e não obtive o
resultado
satisfatório.

São duas tabelas, bem simples uma com os dados de um pedido com codigo,
nome...e ValorTotal.

Na outra tabela, a de pagamentos, só tem registro quando o cliente paga,
pode ser a vista ou parcelado.

As duas tabelas são unidas pelo campo CDpedido
O que eu quero é o seguinte... um relação de todos os pedidos que ainda não
pagaram o valor total.

Fiz a seguinte query:

SELECT A.CDPEDIDO, A.dataevento, A.valor AS VALORTOTAL, SUM(G.ValorPgto) AS
TOTALPAGO
FROM BDpedidos A, BDpagamentos G
WHERE G.CDpedido = A.CDpedido AND A.DATAEVENTO <= '01/04/2009'
GROUP BY CDPEDIDO, DATAEVENTO, VALOR
HAVING SUM(G.ValorPgto) < A.valor

Funciona, só que só aparecem os pedidos que já tiveram algum pagamento, os
registros que estão na
tabela principal que ainda não tiveram nenhum pagamento, não sai...

Pergunta . como faço para aparecer tbm os registros que não tiveram

pagamento.

Agradeço qualquer ajuda ou dica.

Vinicius





























  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

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





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

[delphi-br] Ajuca com SQL

[Vinicius da Silva Pinto]

Ve se alguem pode me ajudar, já quebrei a cabeça e não obtive o resultado
satisfatório.

São duas tabelas, bem simples uma com os dados de um pedido com codigo,
nome...e ValorTotal.

Na outra tabela, a de pagamentos, só tem registro quando o cliente paga,
pode ser a vista ou parcelado.

As duas tabelas são unidas pelo campo CDpedido

O que eu quero é o seguinte... um relação de todos os pedidos que ainda não
pagaram o valor total.

Fiz a seguinte query:

SELECT A.CDPEDIDO, A.dataevento, A.valor AS VALORTOTAL, SUM(G.ValorPgto) AS
TOTALPAGO
FROM BDpedidos A, BDpagamentos G
WHERE G.CDpedido = A.CDpedido AND A.DATAEVENTO <= '01/04/2009'
GROUP BY CDPEDIDO, DATAEVENTO, VALOR
HAVING SUM(G.ValorPgto) < A.valor

Funciona, só que só aparecem os pedidos que já tiveram algum pagamento, os
registros que estão na
tabela principal que ainda não tiveram nenhum pagamento, não sai...

Pergunta. como faço para aparecer tbm os registros que não tiveram
pagamento.

Agradeço qualquer ajuda ou dica.

Vinicius

RES: [delphi-br] Mudar senha de usuario.

[Vinicius da Silva Pinto]

Não achei nada semelhante para o Banco Interbase..

O que tenho é o GSEC, funciona executado com WinExec...

Será que só tem esse jeito, ninguem conhece outra maneira que possa me
ajudar

Obrigado

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de Luciano Calenzani Simões
Enviada em: sexta-feira, 27 de março de 2009 08:29
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Mudar senha de usuario.


O controle se é o primeiro acesso terá de ser via uma tabela e para mudar a
senha do usuário no SGDB pode ser alterada via:
GRANT CONNECT TO "USUARIO" IDENTIFIED BY 'SENHA';

Isso usando SGDB Sybase. Pesquise sobre um comando semelhante no seu SGDB.



 Luciano Calenzani Simões


  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

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





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

RES: [delphi-br] Mudar senha de usuario.

[Vinicius da Silva Pinto]

A nivel de Banco de Dados...

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de Luciano Calenzani Simões
Enviada em: sexta-feira, 27 de março de 2009 08:02
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Mudar senha de usuario.


Você está falando de usuário a nível de sistema ou de banco de dados?

 Luciano Calenzani Simões


  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

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





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

RES: [delphi-br] Mudar senha de usuario.

[Vinicius da Silva Pinto]

Humberto, este sistema já peguei pronto, estou só melhorando... a conexão e
feita pelo IBdataBase .


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de humberto sales de oliveira
Enviada em: sexta-feira, 27 de março de 2009 00:02
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Mudar senha de usuario.


Quais os componentes para conexao vc usa para ligar o banco... talvez
possa te ajudar


Vinicius da Silva Pinto escreveu:
> Boa tarde a todos...
>
> Gostaria de saber se é possivel alterar a senha de cada usuário via
> programação.
>
> Cadastrei uns 20 usuarios para o sistema e coloquei a senha "teste" pra
todo
> mundo.
>
> Queria, assim que o usuário entrasse pela primeira vez com esta senha, eu
> pedisse para trocar.
>
> Eu consigo pegar o nome do usuario atravez da coluna CURRENT_USER, mais
não
> consigo pegar a senha.
>
> Alguem pode me dar uma ajuda...
>
> Obrigado.
>
>
>
>





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

RES: [delphi-br] Mudar senha de usuario.

[Vinicius da Silva Pinto]

Valeu pela dicas, eu tenho quase tudo pronto, a logica, a combinação de
caracteres pra montar a nova e tudo mais, só me falta o meio de alterar no
banco de dados depois que eu pegar a nova senha do usuario... Tentei
utilizando CURRENT_PASSWORD, mais não consegui...
Como vc grava a nova senha no BD?? Eu utilizo InterBase, Delphi7.
Obrigado.

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de Humberto Oliveira
Enviada em: quinta-feira, 26 de março de 2009 17:38
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Mudar senha de usuario.


Faz o controle em alguma tabela diferente do cadastro de usuários, e através
disso, você pode até solicitar alteração de senhas pelos usuários de tempo
em tempo.

O meu controle de login possui várias validações, vou citar poucos exemplos:

- Senha expira? Booleano
- Alterar senha no primeiro login? Booleano
- *Composição de senha*: Quantas letras maiúsculas? Quantos números? Quantos
caracteres? Numérico

E através destes controles, quando o usuário loga no sistema, eu verifico
tudo isso e vou combinando os valores e verifico se está tudo sob controle e
deixo logar, senão vou aplicando as mensagens necessárias em cada resposta
dos controles.

A implementação disso não é complicada, é só a forma de fazer. E existem
inúmeras formas de trabalhar isso. Dei apenas uma idéia de como iniciar.


2009/3/26 Vinicius da Silva Pinto 

>   Boa tarde a todos...
>
> Gostaria de saber se é possivel alterar a senha de cada usuário via
> programação.
>
> Cadastrei uns 20 usuarios para o sistema e coloquei a senha "teste" pra
> todo
> mundo.
>
> Queria, assim que o usuário entrasse pela primeira vez com esta senha, eu
> pedisse para trocar.
>
> Eu consigo pegar o nome do usuario atravez da coluna CURRENT_USER, mais
não
> consigo pegar a senha.
>
> Alguem pode me dar uma ajuda...
>
> Obrigado.
>
>
>


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





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

[delphi-br] Mudar senha de usuario.

[Vinicius da Silva Pinto]

Boa tarde a todos...

Gostaria de saber se é possivel alterar a senha de cada usuário via
programação.

Cadastrei uns 20 usuarios para o sistema e coloquei a senha "teste" pra todo
mundo.

Queria, assim que o usuário entrasse pela primeira vez com esta senha, eu
pedisse para trocar.

Eu consigo pegar o nome do usuario atravez da coluna CURRENT_USER, mais não
consigo pegar a senha.

Alguem pode me dar uma ajuda...

Obrigado.

[delphi-br] Ferramenta para administrar Usuarios e Roles

[Vinicius da Silva Pinto]

Alguem pode me indicar uma boa ferramenta para administrar Usuarios e Roles
que seja FREE.

Estou utilizando a LitoSoft UserAdmim mais fraquinha

Ou será que vale mais a pena adquirir o IBExpert completo???

Obrigado

Vinicius

RES: [delphi-br] Rave - inserir um bitmap do disco no relatorio

[Vinicius da Silva Pinto]

Na paleta STANDARD, Coloque um componente BITMAP e na propriedade FileLink é
só colocar o endereço do arquivo: '\\servidor\diretorio\arquivo.bmp'


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de humberto sales de oliveira
Enviada em: quarta-feira, 18 de março de 2009 22:35
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Rave - inserir um bitmap do disco no relatorio


Como faço para abrir em um component bitmap do rave um arquivo .BMP do
disco?




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

RES: [delphi-br] Uma pequena dica com Graficos

[Vinicius da Silva Pinto]

Ricardo, está ordenado certo, o gráfico em sí está corretíssimo, o meu
problema é na distribuição horizontal

Parece que ele pega o o código do primeiro produto (cod 1) e o último (cod
55) e coloca cada produto em uma posição correspondente ao seu valor.

Se no periodo selecionado eu só tiver vendito 4 produtos (Ex: 3,  6,   19,
45),
ele coloca as barras na posição correspondente ao valor do código do
produto, com as quantidades corretas
(a quantidade é representada pela altura do grafico).

Mais ou menos assim:
.
|
|
..|.|
..|.|
..|||
..|||
..|..|.||
_03_0619___45

Neste exemplo seria, 5 vendas para o produto 3, 1 venda para o produto 1, 3
vendas para o produto 19 e 7 vendas para o produto 45.

O grafico correto deveria ficar assim:


...|
...|
..||
..||
..|.|..|
..|.|..|
..|..|..|..|
_03_06_19_45

Deu pra entender mais ou menos???











-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de Ricardo César Cardoso
Enviada em: quinta-feira, 12 de março de 2009 14:22
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Uma pequena dica com Graficos


Ele está ordenando a legenda em ordem crescente e ignorando o valor? Ex:

Produto x Qtde (na Query)
03 x 1000
04 x 700
05 x 850
18 x 120
21 x 3000
22 x 500

Produto x Qtde (no Gráfico)
03 x 3000
04 x 1000
05 x 850
18 x 700
21 x 500
22 x 120

Seria isso?

Atte,
Ricardo.

"Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!"

--- Em qui, 12/3/09, Vinicius da Silva Pinto 
escreveu:

Utilizo D7 e InterBase



Estou utilizando uma query para montar o gráfico com 2 campos, 1-Codigo do

Produto, 2-Quantidade Vendida.



O gráfico esta funcionando, só que na legenda inferior, na qual mostra os

produtos,

como é um campo integer (não sei se tem algo a ver),

o gráfico fica distribuido de acordo com o código do

produto e não justificado com a quantidade.. . mais ou menos assim.



protudos->  03 04 0518  21 22   44

55  57



Já pesquisei, já fui no google, mais não consegui distribuir os códigos na

horizontal.. .



Os valores estão corretos, os grids laterais tambem... só não consigo fazer

uma distribuição

proporcional com a quantidades de códigos e o tamanho horizontal do grid..



Será que deu pra alguem entender???



Agradeço qualquer dica



Vinicius



  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

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





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

RES: [delphi-br] Relatorio Rave

[Vinicius da Silva Pinto]

Partindo do principio que o DataBand representa um registro impresso... ou
seja, o que vc coloca dentro do DataBand é impresso no tamanho que ele foi
definido, independente do que contenha, se figuras, se textos se vc
definir um DataBand com o tamanho da metade de uma folha, com certeza o
proximo registro irá ocupar a outra metade
É dificil sem ver o DataView que vc montou, mais eu imprimo boletins
escolar, que tem tamanho variável, quando a turma tem poucas matérias, sai
dois boletins por página, quando tem muitas, sai só um.. e eu defino o
boletim como se fosse a metade de uma página...verifique o tamanho do region
que vc definiu.
Não sei se deu pra vc entender o que expliquei... ou talvez exista uma outra
maneira...

Vinicius

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de Filippe Maymone
Enviada em: quinta-feira, 12 de março de 2009 13:29
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Relatorio Rave


Aumentando não adianta ... ele naum vai imprimir a outra metade ..



  - Original Message -
  From: berdam
  To: delphi-br@yahoogrupos.com.br
  Sent: Thursday, March 12, 2009 9:26 AM
  Subject: Re: [delphi-br] Relatorio Rave


  aumente o espaço do data band

  Filippe Maymone escreveu:
  >
  > Bom dia a todos,
  >
  > Estou tentando fazer uma situação n orave e não estou conseguindo.
  > É o seguinte: Tenho um relatorio no rave que ocupa metade de uma folha
A4.
  > É uma minuta de despacho e normalmente eu faço a impressão de uns 10
  > registro.
  > Hoje esta saindo cada registro em uma pagina, o que ocasiona o
  > desperdicio de papel.
  > Gostaria de saber como faço para imprimir um registro em uma metade e
  > o proximo registro, caso houver, na outra metade da pagina ???
  >
  > Abraços,
  >
  > Filippe Maymone
  >
  > [As partes desta mensagem que não continham texto foram removidas]
  >
  >

  --
  -
  Uberdam Cavaletti
  Formado em Tecnologia da informação - Unoesc - Xxe
  Pós graduado em Desenvolvimento Java - Unoesc - Xxe

  Acesse http://www.curricular.com.br/berdam
  Acesse http://passandoveneno.blogspot.com

  -




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





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

[delphi-br] Uma pequena dica com Graficos

[Vinicius da Silva Pinto]

Pessoal, preciso de uma pequena dica com graficos...
Utilizo D7 e InterBase

Estou utilizando uma query para montar o gráfico com 2 campos, 1-Codigo do
Produto, 2-Quantidade Vendida.

O gráfico esta funcionando, só que na legenda inferior, na qual mostra os
produtos,
como é um campo integer (não sei se tem algo a ver),
o gráfico fica distribuido de acordo com o código do
produto e não justificado com a quantidade... mais ou menos assim.


protudos->  03 04 0518  21 22   44
55  57


Já pesquisei, já fui no google, mais não consegui distribuir os códigos na
horizontal...

Os valores estão corretos, os grids laterais tambem... só não consigo fazer
uma distribuição
proporcional com a quantidades de códigos e o tamanho horizontal do grid..


Será que deu pra alguem entender???

Agradeço qualquer dica

Vinicius

RES: [delphi-br] Lista Aniversariantes em paradox

[Vinicius da Silva Pinto]

Vc já tem a solução, só faltava uns detalhes..
Extraia da data só o DIA e de um nome a este campo simples.

SELECT NOME_MEMBRO, EXTRACT (MONTH FROM DTNASC_MEMBRO) AS DIA_NIVERSARIO
FROM DB_MEMBROS
WHERE EXTRACT (MONTH FROM DTNASC_MEMBRO) = :DATAINICIAL

ORDER BY DTNASC_MEMBRO;



-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de Emanuel Coutinho
Enviada em: quinta-feira, 5 de março de 2009 18:52
Para: delphi-br@yahoogrupos.com.br
Assunto: Res: [delphi-br] Lista Aniversariantes em paradox


Olá Jefferson

Este texto abaixo é do Help do Delphi
Trata-se da função que extrai o mes de uma data

Returns the month of the year represented by a TDateTime value.

Unit

DateUtils

Category

date/time routines

function MonthOf(const AValue: TDateTime): Word;

Description

Call MonthOf to obtain the month of the year represented by a specified
TDateTime value. MonthOf returns a value between 1 and 12.

Note:MonthOf returns the same value as the MonthOfTheYear function.

 Emanuel Coutinho
Salvador-Ba-Brasil





De: Jeferson Oliveira 
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 5 de Março de 2009 15:17:43
Assunto: [delphi-br] Lista Aniversariantes em paradox


Boa tarde colegas da lista.

Gostaria de pedir auxilio dos amigos com relação a um pequeno problema
que estou tendo.
Preciso imprimir no Rave Reports a lista de aniversariantes do mes de um
cadastro de clientes.

Rave Reports e SQL funcionando mas não a contentendo, pois quando faço a
pesquisa por mes, por exemplo o usuario entra com o mes desejado em um edit
e o sql busca os nascidos naquele mes, ok funcionando, porem não consigo
desmenbrar a data, pois eu jogo o nome e a data de nascimento inteira do
cidadão num dbgrid.

Minha perguta é:  Como posso manipular o campo data de tal forma que
para o dbgrid seja enviado somente o dia do nascimento do cliente.
Cheguei a encontrar algo com o encode e decode date, mas nao consegui
implementar, pois ainda sou inesperiente em Delphi.


O que tenho programado no botao de pesquisa e na propriedade SQL do
query é isso respectivamente:

procedure Tfrmconsultaniver. BitBtn1Click( Sender: TObject);
begin
with datamodule1 do
qconsulta.Close
qconsulta.ParamByNa me('DATAINICIAL' ).AsInteger: =
strtoint(edit1. text)
qconsulta.Open
end;
end;

SELECT NOME_MEMBRO, DTNASC_MEMBRO FROM DB_MEMBROS
WHERE EXTRACT (MONTH FROM DTNASC_MEMBRO) = :DATAINICIAL

ORDER BY DTNASC_MEMBRO;

Toda e qualquer ajuda sera bem vinda.
Muito obrigado
Jeferson Oliveira.


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





  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

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





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

[delphi-br] ENC: Tamanho do BD FireBird... meio OFF

[Vinicius da Silva Pinto]

Pessoal, uma perguntinha técnica...

Migrei um BD do InterBase para o FireBird, utilizando Script para gerar os
dados a partir do InterBase.

Criei o Banco no FireBird com as mesmas caracteristicas do InterBase,
mudando apenas o Caracter Set que era None para WIN1252 com COLLATE.

Tudo as mil maravilhas, graças as excelentes dicas que obtive do colega
Ricardo César Cardoso, menbro da lista.

Só teve uma pergunta que ficou no ar, porque o Banco de Dados no FireBird
dobrou de tamanho??

Alguem tem alguma explicação para o fato, já que o Banco do InterBase já
está em produção a mais de 1 ano, com varios deletes, inclusões...

e o Banco do FireBird é zerado, novinho com os dados todos colocados em
ordem... bunitinnn...

Esta pergunta é só curiosidade...

Vinicius

RES: [delphi-br] Ajuda com Caracter sets

[Vinicius da Silva Pinto]

Ola Ricardo, olha, eu estou fazendo da maneira mais simples possivel, mesmo
pq o banco só tem 8 tabelas, mais tem bastantes registros.
Estou copiando registro a registro, eu criei um outro banco com caracter set
= none e migrei sem problemas, mais quando crio o banco corretamente com o
caracter set = win1250, aparece este erro
Não tentei por script, na verdade não sei como fazer um banco enxergar o
outro para rodar um script, agradeço se me der uma luz.

Um abraço.

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de Ricardo César Cardoso
Enviada em: quinta-feira, 5 de fevereiro de 2009 08:26
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Ajuda com Caracter sets


Olha Vinícius minha resposta não é a melhor, mas vou arriscar.

Não sei como vc fez com os dados, vc gerou um script com os dados do banco
antigo? Como vc está fazendo essa cópia?

Geralmente eu gero um script de inclusão dos dados e depois rodo esse script
no banco novo. Se é isso que vc está fazendo, tente uma estratégia mais
"burra": faça uma aplicação de "dump" que lê os dados de um banco e
simplesmente insere no outro, se isso for possível.

Não consultei os oráculos do saber (a.k.a. Google, Altavista, Cadê, entre
outros) a respeito. Pode ser que eles tenha respostas muito mais práticas e
inteligentes que as minhas.

[]'s
Ricardo.
_

"Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!"

--- Em qui, 5/2/09, Vinicius da Silva Pinto  escreveu:

Bom dia a todos, o problema é o seguinte: tem um banco de um cliente, que já
está em produção, mais estava apresentando alguns erros de indice, fora de
ordem com problemas em acentuação.

Verifiquei que o banco foi criado com CARACTER SET = NONE e sei que isto
gera uma série de problemas.

Solução, copiei as estruturas de todas as tabelas e criei um banco novo, com
CARACTER SET = WIN1250, sempre utilizei ele e não tive problemas. Só que na
hora que eu estou copiando os dados de uma tabela do banco antigo
pro banco novo, logo depois do primeiro registro aparece a seguinte
mensagem:

"arithmetic exception, numeri overflow, or string truncation. Cannot
transliterate character between character sets"

Alguem tem alguma sugestão pra me passar, qual a melhor maneira de eu
corrigir este problema no banco antigo?? tem alguma outra maneira de se
fazer isto??

Estou utilizando D7 e InterBase.

Aguardo qq resposta.

Vinicius



  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com




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

[delphi-br] Ajuda com Caracter sets

[Vinicius da Silva Pinto]

Bom dia a todos, o problema é o seguinte:
tem um banco de um cliente, que já está em produção, mais estava
apresentando alguns erros de indice, fora de ordem com problemas em
acentuação.
Verifiquei que o banco foi criado com CARACTER SET = NONE e sei que isto
gera uma série de problemas.
Solução, copiei as estruturas de todas as tabelas e criei um banco novo, com
CARACTER SET = WIN1250, sempre utilizei ele e não tive problemas.
Só que na hora que eu estou copiando os dados de uma tabela do banco antigo
pro banco novo, logo depois do primeiro registro aparece a seguinte
mensagem:
"arithmetic exception, numeri overflow, or string truncation. Cannot
transliterate character between character sets"
Alguem tem alguma sugestão pra me passar, qual a melhor maneira de eu
corrigir este problema no banco antigo?? tem alguma outra maneira de se
fazer isto??

Estou utilizando D7 e InterBase.

Aguardo qq resposta.

Vinicius

RES: [delphi-br] Duvidas com Impressão

[Vinicius da Silva Pinto]

Esta é uma parte de uma procedure que eu tenho que joga um recibinho direto
na impressora default do windows, sem perguntar nada a ninguem.
Pegue o exemplo e utilize a imaginação para fazer o que quiser no seu
relatorio.

[]´s

Vinicius S Pinto

procedure TDM2.ImprimeCapaPrinter;
var
   Wcol, Wlin, Wtot, Wdois: SmallInt;
   WtotPg: Currency;
Begin
  Wdois := 0;
  Printer.Orientation :=  poPortrait;
  with Printer do begin
   BeginDoc;
   Wcol := 300;
   Wlin := 250;
   Wtot := 120;
   Canvas.Pen.Width := 3;
   Canvas.Rectangle(0200, 0200, 2000, 2000);
   Canvas.Font.Name := 'Arial';
   Canvas.Font.Size := 14;
   Canvas.TextOut(Wcol, Wlin, 'Nº do PEDIDO: ' +
DM2.BDPEDIDOSCDPEDIDO.asString);
   Canvas.Font.Size := 12;
   Canvas.TextOut(Wcol + 850, Wlin, 'Data do Evento: ' +
DM2.BDPEDIDOSDATAEVENTO.asString);
   Canvas.MoveTo(0200, Wlin + 80);
   Canvas.LineTo(2000, Wlin + 80);
   Wlin := (Wlin + Wtot);
   Canvas.Font.Size := 10;
   Canvas.TextOut(Wcol, Wlin, 'Nome da Criança: ');
   Wlin := (Wlin + 70);
   Canvas.Font.Size := 14;
   Canvas.TextOut(Wcol + 150, Wlin, DM2.BDSERVICOSNOME.AsString);
   Wlin := (Wlin + 90);
   Canvas.TextOut(Wcol, Wlin, 'Valor a Receber:' +
FormatFloat('###,##0.00', DM2.BDPEDIDOSVALOR.AsCurrency - WtotPG));
   Wlin := (Wlin + 90);
   Canvas.TextOut(Wcol, Wlin, 'Valor Recebido:
R$___');
Enddoc;

end;

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de Eduardo Oliveira silva
Enviada em: terça-feira, 3 de fevereiro de 2009 16:22
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Duvidas com Impressão


Boa Noite,

Alguém sabe como eu posso enviar algo direto para impressora padrão
instalada no windows
sem que abra aquele telinha de impressão..
Ex:
Tenho um botão pra grava dados no banco e quando clicar quero imprimir um
comprovante diretamente na impressora.

valeu.

--
Eduardo de Oliveira
Fone: 8448-4117
msn: kad...@hotmail.com


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




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

RES: [delphi-br] Rave Reports - Totais de uma nota fis cal somente na última página

[Vinicius da Silva Pinto]

Vc vai ter que trabalhar com masterdetail, acho mais fácil crie 5
Bandas, as duas primeiras BAND, uma DATABAND e mais duas BAND.

Configura mais ou menos assim::

PageHeader: BandStyle - Selecione Body Header e First
ControllerBand - Detail

GroupHeader:BandStyle - Selecione Group Header e First
ControllerBand - Detail
GroupDataView - dvComOsSeuDados
GroupKey - Chave do seu arquivo
StartNewPage - True

Detail: DataView - dvComOsSeuDados

GroupFooter:BandStyle - Group Footer e First
ControllerBand - Detail
GroupDataView - dvComOsSeuDados
GroupKey - Chave do seu arquivo

ReportFooter:   BandStyle - Body Footer
ControllerBand: Detail


Na última BandStyle, coloque uma variavel do Rave (SUM ou CALC).


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de Leonardo Mascarenhas
Enviada em: terça-feira, 3 de fevereiro de 2009 10:27
Para: Delphi-br - Grupo de discução Yahoo
Assunto: [delphi-br] Rave Reports - Totais de uma nota fiscal somente na
última página


É isto

estou precisando exibir os totais somente na última página com o rave
reports e não consigo... alguem sabe como?

estou trabalhando em modo gráfico

obrigado





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

[delphi-br] Ajuda com SQL

[Vinicius da Silva Pinto]

Obrigado, tive que alterar alguns detalhes, não tem virgula antes de JOIN e
mudar o nome de alguns campos, mais funcionou 100%, valeu mesmo..
veja como ficou:

SELECT B.CDPRODUTO, C.DESCRICAO, COUNT(B.CDPRODUTO) AS QUANT, SUM(B.VALOR)
AS TOTAL
FROM BDPEDIDOS A JOIN BDSERVICOS B ON B.CDPEDIDO = A.CDPEDIDO
 JOIN TBPRODUTOS C ON C.CDPRODUTO = B.CDPRODUTO
WHERE EXTRACT(MONTH FROM A.DATAEVENTO) = 07
GROUP BY B.CDPRODUTO, C.DESCRICAO

Um forte abraço a todos da lista

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de omar l m rosa
Enviada em: terça-feira, 3 de fevereiro de 2009 08:15
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Transferir toda configuração do Delphi 6 e 7
para outra maquina/windows...


acho que deveria ser assim:


SELECT B.CDITEM, C.DESCRICAO, SUM(B.VALOR) AS TOTAL

FROM PEDIDOS A,
JOIN SERVICOS B
 ON B.CDPEDIDO = A.CDPEDIDO

JOIN TABSERVICO C
ON C.CDITEM = B.CDITEM


WHERE EXTRACT(MONTH FROM DATAPEDITO) = :MES

GROUP BY B.CDITEM, C.DESCRICAO






<º><.·´¯`·. <º><.·´¯`·. <º><.·´¯`·.
 Omar L. M. Rosa
<º><.·´¯`·. <º><.·´¯`·. <º><.·´¯`·.
   o...@conesul.inf.br



  - Original Message -
  From: Vinicius da Silva Pinto
  To: delphi-br@yahoogrupos.com.br
  Sent: Monday, February 02, 2009 8:31 PM
  Subject: RES: [delphi-br] Transferir toda configuração do Delphi 6 e 7
para outra maquina/windows...


  Boa tarde a todos, gostaria de uma ajuDa com uma query entre tres tabelas
e
  estou tendo alguns problemas, na verdade, estou meio enrolado...

  Tabela1
  CDPEDIDO DATAPEDIDO (outros campos)
  1 25/01/2009
  2 25/01/2009
  

  Tabela2
  CDPEDIDO CDITEM (outros campos)
  1 1
  1 5
  1 6
  2 1
  2 5
  

  Tabela3
  CDITEM DESCRICAO
  1 MESA
  2 CADEIRA
  3 LUMINARIA
  4 TELEFONE
  5 ESTOJO
  6 QQ

  Gostaria de um resultado que me desse o total de Itens vendidos em um
  7725determinado mes

  CDITEM DESCRICAO TOTAL
  1 MESA 2
  5 ESTOJO 2
  6 QQ 1

  O select que estou usando esta assim:

  SELECT B.CDITEM, C.DESCRICAO, B.VALOR AS TOTAL
  FROM PEDIDOS A,

  (SELECT CDITEM, SUM(VALOR) FROM SERVICOS GROUP BY CDITEM) B,


  TABSERVICO C,


  WHERE EXTRACT(MONTH FROM DATAPEDITO) = :MES AND B.CDPEDIDO = A.CDPEDIDO
AND
  C.CDITEM = B.CDITEM
  GROUP BY CDITEM DESCRICAO

  Já tentei assim, mais tbm não dá certo:

  Uso Delphi7 e InterBase.

  Agradeço antecipadamente qq ajuda.

  Vinicius

RES: [delphi-br] Transferir toda configuração do D elphi 6 e 7 para outra maquina/windows...

[Vinicius da Silva Pinto]

Boa tarde a todos, gostaria de uma ajuDa com uma query entre tres tabelas e
estou tendo alguns problemas, na verdade, estou meio enrolado...

Tabela1
CDPEDIDO DATAPEDIDO (outros campos)
   1 25/01/2009
   2 25/01/2009


Tabela2
CDPEDIDO CDITEM (outros campos)
   1   1
   1   5
   1   6
   2   1
   2   5


Tabela3
CDITEM DESCRICAO
   1MESA
   2CADEIRA
   3LUMINARIA
   4TELEFONE
   5ESTOJO
   6QQ

Gostaria de um resultado que me desse o total de Itens vendidos em um
7725determinado mes

 CDITEM DESCRICAO TOTAL
1MESA  2
5ESTOJO2
6QQ1


O select que estou usando esta assim:

SELECT B.CDITEM, C.DESCRICAO, B.VALOR AS TOTAL
FROM PEDIDOS A, (SELECT CDITEM, SUM(VALOR) FROM SERVICOS GROUP BY CDITEM) B,
TABSERVICO C,
WHERE EXTRACT(MONTH FROM DATAPEDITO) = :MES AND B.CDPEDIDO = A.CDPEDIDO AND
C.CDITEM = B.CDITEM
GROUP BY CDITEM DESCRICAO

Já tentei assim, mais tbm não dá certo:

Uso Delphi7 e InterBase.

Agradeço antecipadamente qq ajuda.

Vinicius

RES: [delphi-br] Erro sistema via rede - PDOXUSRS.LCK

[Vinicius da Silva Pinto]

O BDE TEM QUE TER A MESMA CONFIGURAÇÃO NAS TRES MAQUINAS, PRINCIPALMENTE O PATH

COLOQUE NOS PC1, PC2 E PC3 DATABASE---> CLIENTES ---> PATH: 
\\172.19.8.11\CLIENTES\DADOS

O seu problema estara resolvido.

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de nillgolv
Enviada em: terça-feira, 27 de janeiro de 2009 02:59
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Erro sistema via rede - PDOXUSRS.LCK


Vamos ver se consigo resolver isto, passando a informação por completo:

PC1 (SERVIDOR)
-
C:\WINDOS XP
D:\DRIVER CD-ROM
E:\CLIENTES\CLIENTE.EXE
E:\CLIENTES\DADOS (ARQUIVOS BANCO PARADOX)


PC2 (CLIENTES)
--
C:\WINDOS XP
E:\CLIENTES\CLIENTE.EXE


PC3 (CLIENTES)
--
C:\WINDOS XP
E:\CLIENTES\CLIENTE.EXE


CONFIG. DO BDE DAS MÁQUINAS CLIENTES (PC2, PC3)
--
DATABASE---> CLIENTES ---> PATH: \\172.19.8.11\CLIENTES\DADOS
CONFIGURATION ---> DRIVE\NATIVE\PARADOX\NET DIR: D:\CLIENTES\NetDir
LOCAL SHARE = TRUE


CONFIG. DO BDE DA MÁQUINA SERVIDOR (PC1)
---
DATABASE---> CLIENTES ---> PATH: E:\CLIENTES\DADOS
CONFIGURATION ---> DRIVE\NATIVE\PARADOX\NET DIR: C:\
LOCAL SHARE = TRUE


* BDE --> ESTÁ INSTALADO EM TODAS AS MÁQUINAS.
* O EXECUTÁVEL ESTÁ EM CADA MÁQUINA.
* SE ABRIR O EXECUTAVEL DA MÁQUINA SERVIDOR, APARECE O ARQUIVO PDOXUSRS.LCK.
* SEMPRE TENHO QUE DELETAR O ARQUIVO PDOXUSRS.LCK NA MÁQUINA SERVIDOR PARA 
ABRIR O EXECUTÁVEL NAS OUTRAS MÁQUINAS.


AQUI TERMINO E AGUARDO A INFORMAÇÃO PARA RESOLVER ESTE ERRO.

GRATO A TODOS PELA AJUDA

NILTON

=

Em 23/01/2009 02:20, nillgolv   escreveu:

Pessoal,

Tenho o PC1 com o sistema CLIENTES, onde o banco de dados esta no diretório 
D:\CLIENTES\DADOS
No PC2 acesso o sistema CLIENTES via rede, mas acontece o erro abaixo quando o 
sistema já está aberto no PC1.

Erro
-
Directory is controlled by other .NET file.
Directory: D:\CLIENTES\NETDIR\
File: \172.19.8.11\CLIENTES\DADOS\PDOXUSRS.LCK

Somente consigo abrir o sistema no PC2 se apago este arquivo "PDOXUSRS.LCK" que 
está no PC1, no diretório:
D:\CLIENTES\DADOS.

Grato


 








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

RES: [delphi-br] Erro sistema via rede - PDOXUSRS.LCK

[Vinicius da Silva Pinto]

Utilize o mesmo nome de endereço no BDE...de preferencia não use
mapeamentos faça o seguinte.

Na maquina 1, configure o bde com o path \\servidor\diretorio\diretorio.

na maquina 2, configure do mesmo jeito o path dentro do bde.

[]´s


> Pessoal,
>
> Tenho o PC1 com o sistema CLIENTES, onde o banco de dados esta no
diretório
> D:\CLIENTES\DADOS
> No PC2 acesso o sistema CLIENTES via rede, mas acontece o erro abaixo
> quando o sistema já está aberto no PC1.
>
> Erro
> -
> Directory is controlled by other .NET file.
> Directory: D:\CLIENTES\NETDIR\
> File: \172.19.8.11\CLIENTES\DADOS\PDOXUSRS.LCK
>
> Somente consigo abrir o sistema no PC2 se apago este arquivo
"PDOXUSRS.LCK"
> que está no PC1, no diretório:
> D:\CLIENTES\DADOS.
>
> Grato
>
>

RES: [delphi-br] Comprar ReportBuilder

[Vinicius da Silva Pinto]

Rafael, obrigado pela dica, eu já tinha entrado no site, mais nunca comprei
nada em site fora do País.
Me responda uma coisa, como foi a entrega?? Vi que posso passar o número do
meu cartão, se eu preencher o endereço correto eles mandam??
Obrigado por qq informação adicional.
Vinicius

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Rafael
Enviada em: terça-feira, 26 de agosto de 2008 12:37
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Comprar ReportBuilder


No próprio site do fabricante há a possibilidade de adquirir o produto.
http://www.digital-metaphors.com/

Aqui na empresa nós adquirimos diretamente do site do fabricante e foi um
processo que levou apenas um dia.



On 8/26/08, Vinicius da Silva Pinto <[EMAIL PROTECTED]> wrote:
>
>   Alguem da lista poderia me informar onde eu posso adquirir o
> ReportBuilder
> pra D7 sem ser na Katalogo Store???
> O atendimento deles é péssimo e demora uma eternidade pra responder os
> email
> e passar alguma informação.
> Agradeço.
>
>
>


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




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

[delphi-br] Comprar ReportBuilder

[Vinicius da Silva Pinto]

Alguem da lista poderia me informar onde eu posso adquirir o ReportBuilder
pra D7 sem ser na Katalogo Store???
O atendimento deles é péssimo e demora uma eternidade pra responder os email
e passar alguma informação.
Agradeço.

RES: [delphi-br] Paradox em rede

[Vinicius da Silva Pinto]

Gostaria de lembrar a todos que esta lista de discusão é sobre DELPHI, e
delphi trabalha com varios tipos de banco de dados, inclusive PARADOX.
Basta alguem pedir ajuda em PARADOX que tem uma meia duzia de espertos, que
talvez nem conheça a ferramenta, vai logo dizendo pro membro da lista
utilizar isso ou aquilo, sem sequer dar uma ajuda.
Se a usuário quer ajuda, vamos ajudar, depois sim, damos uma dica pra ele
mudar a ferramenta.
Omar, faça o seguinte, abra o BDEadministrator, crie um DataBases com um
nome qualquer, e aponte o PATH para a maquina servidora (de preferencia não
utilize letras no mapeamento tipo F: G:), aponte para a maquina da seguinte
forma: \\servidor\diretorio.
Faça isso em todas as maquinas, até mesmo na que vai ser o servidor.
Lembro que o BDE deve estar instalado em todas as maquinas.
Dependendo do tamanho da sua aplicação, PARADOX vai lhe atender muito bem...
Um abraço e qq dúvida pergunte e ignore certas mensagens de quem não quer te
ajudar, só dar palpite.


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Antonio Mateus
Enviada em: sexta-feira, 22 de agosto de 2008 11:44
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Paradox em rede


Use uma base dados SQL, você vai ganhar desempenho e agilidade na suas
transações de rede.

2008/8/22 omar l m rosa <[EMAIL PROTECTED]>

>   HI!
> Abandone esta idéia!
> Você vai perder os fios de cabelo de sua cabeça!
>
> Sem muito acesso vai tdo bem. É só estressar a base paradoidox que vai
tudo
> pro brejo
> Use alguma base de dados SQL!
>
> Bai!
>
> <º><.·´¯`·. <º><.·´¯`·. <º><.·´¯`·.
> Omar L. M. Rosa
> <º><.·´¯`·. <º><.·´¯`·. <º><.·´¯`·.
> [EMAIL PROTECTED] 
>
> - Original Message -
> From: Omar Marques
> To: delphi-br@yahoogrupos.com.br 
> Sent: Friday, August 22, 2008 11:03 AM
> Subject: [delphi-br] Paradox em rede
>
> Salve Delphianos
>
> Gostaria de saber quais seriam as orientações básicas para colocar um base
> Paradox em rede.
>
> Estou tentando, mas quando vou rodar a aplicação na máquina Cliente dá
> erro:
>
> "Network Initialization Error"
>
> Quais seriam os parâmetros no servidor (local share, caminho do alias,
etc)
> e os parâmetros nas estações clientes. ??
>
> Abraço a todos.
>
> Omar M. HaddadAnalista de Sistemas
>
> Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
> cara @ymail.com ou @rocketmail.com.
> http://br.new.mail.yahoo.com/addresses
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>



--
Antonio Mateus
Estudante de Sistemas de Informação 5º Periodo
FAL - Faculdade de Alagoas


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




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

[delphi-br] Off-Topic..... Go Global

[Vinicius da Silva Pinto]

Salve a todos.
Alguem da lista já utilizou ou esta utilizando o Go Global que possa me
passar algumas informações.
Baixei uma versão demo, recebi uma licença para 30dias mais ainda não
instalei.
Pretendo utilizar da seguinte forma... Banco Interbase e Delphi 7. Banco
fica na matrix e tem duas filiais.
Será que este software atendo como se fosse uma VPN??
Obrigado

[delphi-br] Interligar duas lojas via internet (Velox)

[Vinicius da Silva Pinto]

Salve galera...
Gostaria de obter de vcs algumas sugestões de qual seria o melhor meio de
interligar duas lojas utilizando a internet, neste caso especifico o cliente
tem banda larga (Velox).
A utilização de alugar uma LP está descartada devido ao preço.
Vou utilizar Interbase e Delphi7, os micros rodam XP Professional.
Agradeço qq sugestão, e se possível os pros e contras.
Um abraço a todos.

Vinicius S Pinto

[delphi-br] Gerador de Relatorios

[Vinicius da Silva Pinto]

Obrigado a todos que me deram varias dicas.
Fiquei mais interessado e instalei o FastReport.
Só que estou quebrando um pouco a cabeça... alguns recursos eu ainda não
descobri.
Alguem poderia me informar onde eu consigo alguma literatura sobre
FastReport?? (livro, apostila.. etc)
Obrigado.

[delphi-br] Gerador de Relatorios..

[Vinicius da Silva Pinto]

Salve a todos...
Alguem poderia me indicar um gerador de relatorios que seja similar ao
ReportBuilder,
onde eu posso comprar, se é free ou não...
pois estou tendo dificuldade de comprar o mesmo com o representante aqui no
Brasil.
É para ser utilizado com D7 e FB, não estou conseguindo tirar muito proveito
do Rave.

Agradeço qualquer dica e sugestão...

Vinicius.
Tel (21) 8816-2404

[delphi-br] Report Builder

[Vinicius da Silva Pinto]

Alguem poderima me passar o telefone ou o site onde eu possa comprar o
Report Builder para Delphi7 ??
de preferencia aqui no RJ.

Obrigado.

PS. Pode ser em pvt.

RES: [delphi-br] String em Negrito

[Vinicius da Silva Pinto]

Acho eu que sua solução é braçal... ou seja, vai ter que fazer na mão.
Quando vc usa um gerador de relatorio, vc esta sujeito aos limites do
gerador,
vc só tem o que ele te oferece.
Agora, se vc fizer o relatorio na mão, utilizando o comando printer...
desenhando o form e sabendo os caracteres de controle da sua impressora,
tudo fica facil.
Texto + CHR(xx) + CHR(negrito) + texto + chr(xx) + CHR(normal) 

Eu já fiz muito isso é cansativo... mais funciona.

[]´s

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Felipe Nunes
Enviada em: segunda-feira, 5 de novembro de 2007 13:35
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] String em Negrito


É porque estou usando o Report Builder, e eu concateno varias strings, e uma
dessas strings eu keria que ela ficasse negrito, qndo mando imprimir eu faco
um campo do report builder receber essa string inteira.

faço o campo.caption := stringInteira (e dentro dessa string toda
concatenada tem uma frase que deveria estar em negrito)

exemplo:

dasafjklshdfhasdfhlkasjdhflkashdfklajshdlfhsdfhk +
dajsghdahsjkdhsahdkahskdhasjkhd + sdhasjhdjsh + adhsjhdas + aasjhgdashgdas

abraço

  _

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Eduardo Silva dos Santos
Enviada em: segunda-feira, 5 de novembro de 2007 11:27
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] String em Negrito



Faz... de mais detalhes ai porque tudo que vc postou ta muito vago.

Em 05/11/07, Felipe Nunes mailto:nunesfelipe%40yahoo.com.br>
yahoo.com.br> escreveu:
>
> Bom dia pessoal...
>
> Estou prescisando saber se consegui concatenar strings com negrito exemplo
>
>
> string 1 + negrito(string 2) + string 3
>
>
> intaum so preciso que a string 2 fique negrito..
>
>
> Abraço
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>

--
...
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: eduardo.drd@  gmail.com
Site: http://www.drdsiste  mas.com/
...

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






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



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

Links do Yahoo! Grupos

RES: [delphi-br] Report Bullder - como fazer isto?

[Vinicius da Silva Pinto]

Porque vc não utiliza uma TppVariable, pode ser utilizada quantas vc
quiser... pode ser declarada como String, Interger ou outra coisa... coloque
no rodape e no evento BeforePrint do TppFooterBand atribua os valores que vc
quiser a esta ou estas variaveis.

[]´s

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Moacir - GMail
Enviada em: quarta-feira, 31 de outubro de 2007 12:08
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Report Bullder - como fazer isto?


Use o evento onGetText do componente  que vc colocar no rodape para
imprimir as informações..


Eduardo Galvão escreveu:
> Hum.. será que com rodapé dá certo?
>
> O problema é que devem aparecer somente as observações
> da página, entende?
>
> Ou seja, se eu criar um agrupamento baseado em um campo, tudo
> bem, dá para fazer com um rodapé para este agrupamento.
>
> Acontece que as observações são aleatórias, quero isto:
>
> Página 1
>
> Registro 1... tem obs x
> Registro 2... tem obs y
> Registro 3... tem obs z
>
> Final da página 1 - obs x, y e z
>
> Página 2
>
> Registro 4... não tem obs
> Registro 5... tem obs xx
> Registro 6... tem obs yy
>
> Final da página 2 - obs xx e yy
>
> Saudações,
>
> Eduardo Paci Galvão
> Engenheiro Eletricista - UFMG 1990
> www.egalvao.com.br
>
>
> - Original Message -
> From: Elazar Dornelles Ceza
> To: delphi-br@yahoogrupos.com.br
> Sent: Wednesday, October 31, 2007 10:01 AM
> Subject: Res: [delphi-br] Report Bullder - como fazer isto?
>
>
> Ai voce usa a banda rodapé.
> mas vai aparecer em todas as páginas.
>
> - Mensagem original 
> De: Eduardo Galvão <[EMAIL PROTECTED]>
> Para: delphi-br@yahoogrupos.com.br
> Enviadas: Quarta-feira, 31 de Outubro de 2007 10:40:26
> Assunto: Re: [delphi-br] Report Bullder - como fazer isto?
>
> Oi,
>
>
>>> Você não conseguiria fazer usando um Sumary?
>>>
>
> Pelo que sei, no Report Builder o sumário aparecerá
> somente no final do relatório, eu preciso imprimir algo
> no final da página atual, entendeu?
>
> Saudações,
>
> Eduardo Paci Galvão
> Engenheiro Eletricista - UFMG 1990
> www.egalvao. com.br
>
> []s
>
> Em 30/10/07, Eduardo Galvão <[EMAIL PROTECTED] com.br> escreveu:
>
>> Pessoal,
>>
>> No Report Builder, tenho um relatório onde alguns registros
>> possuem uma observação associada.
>>
>> Eu quero que estas observações saiam no rodapé DA PÁGINA,
>> alguém teria alguma dica?
>>
>> Veja, no rodapé de um GRUPO, ou ainda no rodapé final do relatório,
>> eu consigo, mas no final da página é que está pegando..
>>
>> Saudações,
>>
>> Eduardo Paci Galvão
>> Engenheiro Eletricista - UFMG 1990
>> www.egalvao. com.br
>>
>> [As partes desta mensagem que não continham texto foram removidas]
>>
>>
>>
>>
>
>


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



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

Links do Yahoo! Grupos

[delphi-br] Email para clientes

[Vinicius da Silva Pinto]

Robson, desculpe só responder hoje, é que aqui no RJ a chuva me deixou 2
dias parado. (que bom).
No exemplo que lhe passei, estava utilizando D4.
Na palheta Internet utilizo os componentes NMPOP3 e NMSMTP.


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Robson
Enviada em: quinta-feira, 25 de outubro de 2007 11:59
Para: delphi-br@yahoogrupos.com.br
Assunto: Res: RES: [delphi-br] Email para clientes


Vinícius,
qual o componente q vc ta usando?
gostaria de incluir o envio de e-mail mas o naum achei qual o componente
para o WSMTP, qual o componemte e se naum for nativo do delphi qual o
fornecedor do mesmo.



Kaputz, Robson
Skype: kaputz_gri
"Keep the Dream Alive"



- Mensagem original 
De: Vinicius da Silva Pinto <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 23 de Outubro de 2007 18:49:23
Assunto: RES: [delphi-br] Email para clientes

Boa Tarde !!!

Tenho um cadastro de clientes c/ o campo email e gostaria de enviar um email
para todos os clientes da tabela c/ uma mensagem. Tem como ?

Uso o Delphi 5

Abraço

Doretto

Wsmtp.Connect;
if not Wsmtp.Connected then
raise Exception.Create( 'Erro de conexão');
with Wsmtp.PostMessage do begin
// E-mail do remetente
FromAddress := '[EMAIL PROTECTED] com.br';
// Nome do remetente
FromName := 'Vinicius da Silva';
// E-mail do destinatário
ToAddress.Clear;
ToCarbonCopy. Clear;
ArquivosComEmail. Open;
ArquivosComEmail. First;
ToAddress.Add('[EMAIL PROTECTED] gov.br');
ArquivosComEmail. Next;
while not ArquivosComEmail. Eof do begin
ToCarbonCopy. Add('email que esta no arquivo');
ArquivosComEmail. Next;
end;
Subject := 'escreva o que vc quiser: ' + WdataS;
// Corpo da mensagem
Body.Clear;
Body.Add('aqui vc coloca o texto da mensagem, pode ser um arquivo
txt');
// Se quiser, pode anexar arquivos...
Attachments. Add('c:\diretori o\arquivo. ext');
end;
Wsmtp.SendMail;
Wsmtp.Disconnect;

RES: [delphi-br] Email para clientes

[Vinicius da Silva Pinto]

Boa Tarde !!!

Tenho um cadastro de clientes c/ o campo email e gostaria de enviar um email
para todos os clientes da tabela c/ uma mensagem. Tem como ?

Uso o Delphi 5

Abraço

Doretto

Wsmtp.Connect;
if not Wsmtp.Connected then
   raise Exception.Create('Erro de conexão');
   with Wsmtp.PostMessage do begin
   // E-mail do remetente
   FromAddress := '[EMAIL PROTECTED]';
   // Nome do remetente
   FromName := 'Vinicius da Silva';
   // E-mail do destinatário
   ToAddress.Clear;
   ToCarbonCopy.Clear;
   ArquivosComEmail.Open;
   ArquivosComEmail.First;
   ToAddress.Add('[EMAIL PROTECTED]');
   ArquivosComEmail.Next;
   while not ArquivosComEmail.Eof do begin
   ToCarbonCopy.Add('email que esta no arquivo');
   ArquivosComEmail.Next;
end;
   Subject := 'escreva o que vc quiser: ' + WdataS;
   // Corpo da mensagem
   Body.Clear;
   Body.Add('aqui vc coloca o texto da mensagem, pode ser um arquivo
txt');
   // Se quiser, pode anexar arquivos...
   Attachments.Add('c:\diretorio\arquivo.ext');
   end;
Wsmtp.SendMail;
Wsmtp.Disconnect;

Assim funciona comigo

RES: [delphi-br] Duvida com query

[Vinicius da Silva Pinto]

Valeu, funcionou perfeitamente obrigado.

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Washington Tavares
Enviada em: segunda-feira, 22 de outubro de 2007 09:12
Para: delphi-br@yahoogrupos.com.br
Assunto: RE: [delphi-br] Duvida com query



Vinicius,

Faz assim:

Select sexo, count(*) from tabela group by sexo

com isso voce terá a quantidade dos sexos separados

Washington Tavares


To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Mon, 22 Oct
2007 10:02:10 -0300Subject: [delphi-br] Duvida com query




Alguem poderia me ajudar com uma query simples...Preciso contar quantos
homens e mulheres existem em um arquivo, campo sexo.Estou tentando usar
count(sexo = 'F') as TOTMmais esta dando erro.Alguem pode me dar uma
luz






_
Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver
offline. Conheça  o MSN Mobile!
http://mobile.live.com/signup/signup2.aspx?lc=pt-br

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



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

Links do Yahoo! Grupos

[delphi-br] Duvida com query

[Vinicius da Silva Pinto]

Alguem poderia me ajudar com uma query simples...

Preciso contar quantos homens e mulheres existem em um arquivo, campo sexo.

Estou tentando usar count(sexo = 'F') as TOTMmais esta dando erro.

Alguem pode me dar uma luz

[delphi-br] Delphi e Excell

[Vinicius da Silva Pinto]

Bom dia a todos.
Estou precisando de umas dicas e sugestões.
Um cliente me procurou e me pediu um sistema pequeno, um cadastro de
clientes e tipos de serviços que ele presta.
Só que ele quer que as tabelas sejam em excell, pois ele pretende
transportar essas tabelas para o Palm, laptop, micro de casa e do trabalho,
ou seja, essas tabelas irão pular feito pipoca pra lá e pra cá.
Eu tenho licença do D4 e D7 e nunca trabalhei com excell.
Minhas perguntas são:
Com qual das duas eu poderia ter um melhor rendimento e maior facilidade pra
desenvolver?
Preciso que algum componente externo?
Alguem poderia me passar umas dicas?
Obrigado por qq ajuda.

Vinicius S. Pinto
VSP Consultoria e Informática.
21 8816-2404

RES: [delphi-br] Usar XP como terminal de rede ?????

[Vinicius da Silva Pinto]

Blz Neto, não vejo problemas em usar W98, XP, BDE, Paradox... tudo tem seu
lado bom.
Pelos problemas que já passei, posso te dar uma dica que provavelmente ira
lhe ajudar.
O XP não reconhece mapeamento ao mesmo nivel que o W98 ou W2K... ou seja, se
vc mapear um drive, c:\y\z para letra F:
o W98 vai tratar com f:\y\z, agora no XP o primeiro diretorio ele
não considera e vê como F:\z.
Eu para compatibiliar tudo, em todas as maquinas não utilize mapeamento e
sim o caminho completo, ex:
\\nome-computador\y\z, faça isso em todas as configurações das
maquinas, e delete todos os PDOXUSRS.NET, e PARADOX.LCK de todas as maquinas
antes de abrir a primeira.


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Licerio Neto
Enviada em: terça-feira, 2 de outubro de 2007 23:20
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Usar XP como terminal de rede ?


Ola pessoal.. tenho um cliente q tem uma rede com 8 computadores
rodando sobre windows 98.. perfeitamente .. ate q ele colocou um
terminal com XP por conta da exirgencia de um soft... esta dando uns
erros na abertura de arquivos do meu programa feito em D7 com
Paradox... somente neste terminal XP... tem alguma configuracao de rede
diferenciada para este caso tanto a nivel de S.O. como a nivel de
BDE 

Grato pela ajuda

RES: [delphi-br] Emulador de impressora

[Vinicius da Silva Pinto]

Qual o gerador de relatorio que vc esta usando???
O QR tem preview na tela, o RB tbm.eu sempre faço correção na tela
utilizando o RB ou QR.

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Guionardo Furlan
Enviada em: quinta-feira, 20 de setembro de 2007 13:32
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Emulador de impressora


Acho que estamos falando de coisas diferentes.
A questão é:
* Estou desenvolvendo os relatórios do sistema
* Tenho uma impressora instalada aqui (HP 1020)
* Não quero gastar papel e toner com testes de layout
* Uma impressora virtual mostraria "na tela" o relatório, sem precisar
imprimir.
* O aplicativo do Office resolve o problema, embora eu gostaria de ter
uma solução open-source ou freeware.

Acho que agora ficou claro.

Em 20/09/07, Desenvolvimento (Anderson) <[EMAIL PROTECTED]> escreveu:
>
> ué... eu sempre faço isso... e dá certo comigo...
>  acho esse problema até simples demais... vc nunca tentou isso?
>
>  - Original Message -
>From: Guionardo Furlan
>To: delphi-br@yahoogrupos.com.br
>Sent: Thursday, September 20, 2007 9:37 AM
>Subject: Re: [delphi-br] Emulador de impressora
>
>
>  E o driver da lx300 mostra a visualização e trabalha offline?
>
>  Em 20/09/07, Desenvolvimento (Anderson) <[EMAIL PROTECTED]>
escreveu:
>
>  >
>> uai...
>> pq não adiciona uma impressora básica, como a lx300?
>>
>> eu sempre faço isso, e funfa legal!

--
Timeo hominem unius libri
Cogito ergo sum - Carpe diem

[]s
Guionardo Furlan
http://guionardo.blogspot.com


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

Links do Yahoo! Grupos

RES: [delphi-br] Ref. Report Builder

[Vinicius da Silva Pinto]

Eu costumo alterar as propriedades do ppReport, no PrinterReport altere o
tamanho do PaperHeight e do PaperWidth... isso resolve o meu problema...não
esqueca de colocar tbm Copies = 2.



-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Omar Marques
Enviada em: quinta-feira, 13 de setembro de 2007 12:28
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Ref. Report Builder



 Ola Delphianos,

Para os feras do Report Builder, por favor. Tem como em um relatório, que
geralmente usa só a metade da página,
eu dar algum comando para ele repetir o relatório no restante da página para
evitar de o usuário ter de imprimir
2 páginas com metade da folha em branco.

PS: Tem alguma lista sobre Report Builder. Não sei se tem alguma ou se
alguém tem alguma informação a respeito.

Abços.

Omar M. Haddad

Omar M. Haddad
Analista de Sistemas






  Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr.com.br/

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



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

Links do Yahoo! Grupos

RES: [delphi-br] Exemplo Paradox

[Vinicius da Silva Pinto]

Se esta pedindo USUARIO e SENHA, veja o programa fonte e tire esta linha de
comando.
Se estiver pedindo somente a senha, utilize qq uma dessas abaixo que abre qq
tabela em paradox.

Para PARADOX 7.0 -> "jIGGAe" ou "cupcdvum"

Para PARADOX 5.0 -> "jIGGAe" ou "cupcdvum"

Para PARADOX 4.0 (DOS) -> "nx66ppx"

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Filippe Maymone Informatica
Enviada em: quarta-feira, 13 de junho de 2007 21:32
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Exemplo Paradox
Prioridade: Alta


Galera,

Peguei um exemplo de um sistema com banco em paradox no site do Active
Delphi, eu queria o exemplos apenas tentar me ajudar em uma questão de
combobox que tem neste exemplo, pois so trabalho com Firebird e SQL.

So que quando rodo este exemplo ele me pede o Usuario e senha do
PAradox, qual é ??? Ja tentei SYSDBA e Masterkey igual do Firebird e nada...
como faço para o paradox ??

Obrigado

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



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

Links do Yahoo! Grupos

RES: [delphi-br] Ajuda com Report Builder

[Vinicius da Silva Pinto]

Bom dia, olha eu tenho um sistema que usa RB + D4 e não tenho problemas com
impressora matricial. Desenho os meus relatorios independente do tipo de
impressora, lógico que um boleto fica horrível quando é impresso em
matricial, mais imprime sem problemas.
Uma dica que lhe dou se quiser montar relatorios especificos para
impressoaras matricial é utilizar na hora de desenhar o relatório sómente
fonte Courier New e evites imagens e logotipos, o resto o gerenciador de
impressora do windows faz pra vc.


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de izaias_gomes
Enviada em: quinta-feira, 19 de abril de 2007 07:29
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Ajuda com Report Builder


  Bom dia a todos,

  Alguém sabe como faço para imprimir em impressora matricial com o
report builder.



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

Links do Yahoo! Grupos

RES: RES: [delphi-br] Mensagens duplicadas varias vezes (OFF)

[Vinicius da Silva Pinto]

Sr moderador me desculpe... mais pedir pra simplesmente deletar as
mensagens duplicadas pq não ira matar ninguem é a mesma coisa que pedir pra
se abaixar a cabeça quando se esta no meio de um tiroteio... pois assim vc
não morre.
Temos que tentar resolver o problema. Se é com o yahoo, entre em contato com
um nivel mais alto até chegar a alguem que realmente resolva o problema.
Se abaixar pra não levar tiro, não sair a noite pra não ser assaltado são
medidas paliativas... não vai resolver o meu problema.


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Eduardo Paci Galvão
Enviada em: quinta-feira, 29 de março de 2007 13:51
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Mensagens duplicadas varias vezes (OFF)


Olá,

>As mensagens não param de chegar repetidas, estão abarrotando minha caixa
>postal e minha paciencia para tar excluindo a todo momento,
>Sr, moderador faça alguma coisa!

O moderador não tem nada a ver com isto,
a meu ver, visto que está acontecendo
com outras listas tb.

É a 1a vez que ocorre isto em meses,
e apertar del não mata ninguém, convenhamos.

Saudações,
Eduardo Paci Galvão
Bacharel em Engenharia Elétrica - UFMG
Analista de Sistemas
www.egalvao.com.br



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

Links do Yahoo! Grupos

[delphi-br] Mensagens duplicadas varias vezes (OFF)

[Vinicius da Silva Pinto]

Ola a todos
De dois dias pra ca minha caixa postal tem recebido mensagens duplicadas, a
mesma mensagem aparece até 10 vezes com intervalos de 5, 10 e 30 minutos.
Será que é só comigo ou mais alguem está passando por esse problema???
Obrigado.

RES: [delphi-br] Instalar Delphi 4.0 no windows 2000

[Vinicius da Silva Pinto]

Então eu sou de outro planeta, pois tinha um 2000 prof, instalei minha copia
do D4 sem problemas, utilizei por meses, ai troquei reinstalei no XPprof que
minha maquina tinha dado pau, funcionou por semanas sem problemas, quando
consertei minha maquina, adquiri um W2K server e instalei tbm sem
problemas... será que sou especial?

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Eduardo Alves
Enviada em: segunda-feira, 15 de maio de 2006 12:35
Para: delphi-br@yahoogrupos.com.br
Assunto: RE: [delphi-br] Instalar Delphi 4.0 no windows 2000


Até onde eu sei o D4 só instala no Win98.

Como foi informado aqui na lista, vc tera q instalar no Win98 e depois
instalar o Win2000.

 
 
Eduardo Castro Alves
Analista de Sistemas

-Original Message-
From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On
Behalf Of Eduardo Silva dos Santos
Sent: segunda-feira, 15 de maio de 2006 10:38
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Instalar Delphi 4.0 no windows 2000

Logue com a senha do administrador e verifique qual o ultimo ServicePack 
instalado...
o ideal é o 4


- Original Message - 
From: "Vinicius da Silva Pinto" <[EMAIL PROTECTED]>
To: 
Sent: Monday, May 15, 2006 9:52 AM
Subject: RES: [delphi-br] Instalar Delphi 4.0 no windows 2000


> Vc esta com privilegios de administrador???
> Já instalei o D4 mais de uma vez no meu W2k e nunca tive problemas.
>
>
> -Mensagem original-
> De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
> nome de Ramon
> Enviada em: sexta-feira, 12 de maio de 2006 01:08
> Para: delphi-br@yahoogrupos.com.br
> Assunto: [delphi-br] Instalar Delphi 4.0 no windows 2000
>
>
> Bom dia a todos !!!
>
> Estou tentando instalar o Delphi 4.0 CS no windows 200o com sp4, mas
> não instala de jeito nenhum, dá um tal de erro de MERGE e não instala
> nada...
> Alguem tem idéia de como resolve isso ???
>
> o CD é original...
>
>
>
>
> -- 
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>
>
> Links do Yahoo! Grupos


[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]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
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 Termos do Serviço do Yahoo!.

RES: [delphi-br] Instalar Delphi 4.0 no windows 2000

[Vinicius da Silva Pinto]

Vc esta com privilegios de administrador???
Já instalei o D4 mais de uma vez no meu W2k e nunca tive problemas.


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Ramon
Enviada em: sexta-feira, 12 de maio de 2006 01:08
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Instalar Delphi 4.0 no windows 2000


Bom dia a todos !!!

Estou tentando instalar o Delphi 4.0 CS no windows 200o com sp4, mas
não instala de jeito nenhum, dá um tal de erro de MERGE e não instala
nada...
Alguem tem idéia de como resolve isso ???

o CD é original...








-- 
< 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]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
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 Termos do Serviço do Yahoo!.

RES: [delphi-br] Delphi 5 x Paradox

[Vinicius da Silva Pinto]

Muda o Indice da tabela para o indice que vc quer que apareça no dbgrid
Ex:. DM1.BDalunos.IndexFieldNames := 'CDaluno';

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Fernando Derkoski
Enviada em: quarta-feira, 26 de abril de 2006 17:22
Para: Delphi Br
Assunto: [delphi-br] Delphi 5 x Paradox


Caras tenho um sistema antigo que foi feito em delphi e em paradox

to tendo um problema quando eu incluo itens num grid ele nao coloca na ordem
q eu digitei e sim na ordem do código da tabela q q eu faço?


[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]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
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 Termos do Serviço do Yahoo!.

[delphi-br] InputBox

[Vinicius da Silva Pinto]

É possível alterar as propriedades de um InputBox para ele mascarar o edit,
tipo pedir uma senha
Tenho um form que faz isso, mais eu economizaria muitos bytes se pudesse
utilizar o InputBox.
Alguem tem alguma ideia

Vinicius







-- 
< 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 Termos do Serviço do Yahoo!.

RES: [delphi-br] Paradox

[Vinicius da Silva Pinto]

Cria normalmente como Currence  ($)... utilize o MaskEdit para mostrar com
quantas casas decimais vc quiser...
Não tem misterio nenhum..
Eu utilizo para calculos de porcentagem com até cinco casas decimais e não
tenho problema nenhum.

Vinicius

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Dimas Fernando
Enviada em: quinta-feira, 20 de abril de 2006 08:24
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Paradox


Bom dia pessoal...

Como posso criar um campo em uma tabela PARADOX, sendo Numerico 12,4
preciso poder informar a quantidade de casas após a virgula, qdo eu
crio o campo, sempre assume 2 casas apenas...

Obrigado


[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 Termos do Serviço do Yahoo!.

RES: RES: [delphi-br] Problema Impressão Matricial e m EPSON FX-2190

[Vinicius da Silva Pinto]

Inclua sempre ao final do relatorio um FF (Form Feed), que geralmente em
matriciais é o 0C
 WriteLn( ArqImp, #0C);
Isso força a impressao da última linha e pula a página.

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Julio Abdala
Enviada em: quarta-feira, 1 de fevereiro de 2006 19:51
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Problema Impressão Matricial em EPSON
FX-2190


está utilizando

AssignFile(ArqImp, 'LPT1');
Rewrite( ArqImp );
  WriteLn( ArqImp, 'TEXTO IMPRESSO' );
CloseFile( ArqImp );

  

  em alguns casos é o buffer maior da impressora que segura a impressão, é
necessário fechar o arquivo com o CloseFile, caso não dê certo tente salvar
o relatório em um arquivo e depois copiá-lo para a porta da impressora.

  veja se funciona.

  Abs.

  Júlio Abdala




Augustus Otávio Pinto <[EMAIL PROTECTED]> escreveu:
  Caro Julio.

A impressora esta ligada na porta paralela.

Grato.

Augustus

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Julio Abdala
Enviada em: terça-feira, 31 de janeiro de 2006 11:53
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Problema Impressão Matricial em EPSON FX-2190


esta impressora é usb?

  Júlio Abdala

Augustus Otávio Pinto <[EMAIL PROTECTED]> escreveu:
  Bom dia !!!

Tenho um programa que roda em uma rede de 03 estacoes W98, e utilizo
impressao matricial
usando as funcoes AssignFile() e WriteLn() para gravar direto para a porta
"LPT". Funcionava perfeitamente com impressoras Epson LX300, FX 1050, 2170,
2180, etc tanto localmente como
pela rede.
Acontece que o pessoal comprou uma Epson FX 2190 e agora não consigo mais
imprimir localmente.
Pela rede consigo mandar uma impressao, mas na maquina que a impressora esta
instalada não sai nada. Alguem teria alguma experiencia ou solucao para me
passar ?

Grato.

Augustus

--
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.375 / Virus Database: 267.14.23/243 - Release Date: 27/01/2006




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





Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE


-
  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 Termos do Serviço do
Yahoo!.





-
Yahoo! doce lar. Faça do Yahoo! sua homepage.

-
Yahoo! doce lar. Faça do Yahoo! sua homepage.

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





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



Links do Yahoo! Grupos








--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.375 / Virus Database: 267.14.23/243 - Release Date: 27/01/2006


--
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.375 / Virus Database: 267.14.23/243 - Release Date: 27/01/2006




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





Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE


-
  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 Termos do Serviço do
Yahoo!.





-
 Yahoo! doce lar. Faça do Yahoo! sua homepage.

-
 Yahoo! doce lar. Faça do Yahoo! sua homepage.

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



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



Links do Yahoo! Grupos









-- 
< 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

 

[delphi-br] Problema simples

[Vinicius da Silva Pinto]

Alguem pode me dar uma luz rapidinho... preciso executar um programa que le
uma porta serial de dentro do Delphi 4, mais estou tendo problemas com a
função que estou usando.
Alguem poderia me dizer qual a função mais adequada para esta tarefa???
Já pesquisei mais confesso que não encontrei muita coisa.
Agradeço a todos.
Vinicius.



-- 
< 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

 

RES: [delphi-br] Re: Funcao para escrever espaco - Duvida

[Vinicius da Silva Pinto]

Eu fiz essa, ve se te serve.

function StrBranco(Went: String; Wtam: SmallInt; Onde: SmallInt): String;
// Coloca brancos em um string na frente (1) ou atras (2)
var
   I: SmallInt;
   X: String;
   K: SmallInt;
begin
 X := '';
 if Onde = 1 then begin
for I := 1 to Wtam do
if Length(Went) >= I then
   X := (X + Copy(Went, I, 1))
else
X := (X + ' '); end

 else begin
K := Length(Trim(Went));
for I := 1 to (Wtam - K) do
X := (X + ' ');
X := (X + Trim(Went)); end;

 Result := X;
end;





-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de welson_avelar
Enviada em: sexta-feira, 2 de dezembro de 2005 20:56
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Re: Funcao para escrever espaco - Duvida


--- Em delphi-br@yahoogrupos.com.br, Welson Avelar escreveu
> Salve amigos da lista. Tudo na boa ?!
> Eu tou bem... espero que vocês também estejam.
>
> Bom, a minha dúvida é a seguinte:
> Preciso exportar um banco de dados em formato TXT.
> Acontece que tenho que alinhar as colunas dos campos
> da tabelas quando mandar pro arquivo, sacam ??
>
> Exemplo:
> NOMEENDERECO (...)
> Welson  Rua G(...)
>
> Tenho que fazer no esquema que mostrei aí em cima. Mas
> precisaria de uma função pra escrever esses espaços.
> Algo como "PreencheEspaco(5)". Aí ele escreveria 5
> espaços em branco.
> Coloquei esse nome (PreencheEspaco) apenas pra
> simbolizar. Quero saber se no Delphi tem alguma função
> pra isso. Tirar espaço ele tira, mas e escrever ??
>
>
> Um forte abraço à todos da lista. Até a vista.
>

[Welson] Olá amigos. Volto novamente aqui.
Vim pra agradecer à ajuda oferecida pelos amigos. Obrigado.
Quebraram-me um galhão... de verdade !!!

Um abraço à todos da lista. Até...






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



Links do Yahoo! Grupos









-- 
< 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

 

RES: [delphi-br] Como montar um sistema multi empresa

[Vinicius da Silva Pinto]

O mais simples e pratico é criar um campo CDempresa nas suas tabelas
principais, o usuario faz login e a partir dai vc tem acesso aos registros
da empresa.

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Cícero
Enviada em: sexta-feira, 25 de novembro de 2005 10:05
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Como montar um sistema multi empresa


Acho que se você tiver muitas empresas, pode criar uma tabela com dois
campos
codemp
nomeemp
usuario

na tela de login, depois que o cara digitou a senha, voce localiza a empresa
que o cara trabalha e move o codigo da empresa para uma variável que esteja
visivel em todos os formulários. Eu costumo criar um item na barra de status
e jogar essa variável para lá. Sempre que preciso saber com qual empresa o
sistema está rolando, eu pego este valor para fazer os selects por exemplo
select * from minha tabela where campoa=x and campob=y and
codempresa=status.text (nao me lembro a sintaxe mas a regra eh essa>

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Raphael Fonseca
Enviada em: sexta-feira, 25 de novembro de 2005 07:53
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Como montar um sistema multi empresa


Bom dia

Estou precisando montar no meu sistema uma opção em que o usuário na hora de
logar, selecione a empresa que ele quer trabalhar. Com isso, após a escolha
todos os lançamentos tem que ser direcionados a essa empresa.


Algum amigo poderia me ajudar com essa dúvida?
Teria algum exemplo que possa compartilhar comigo?

Desde já agradeço pela ajuda.

Raphael Fonseca

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



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



Links do Yahoo! Grupos









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



Links do Yahoo! Grupos










-- 
< 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

 

RES: [delphi-br] Baixa automatica alguem poderia me da r uma força????

[Vinicius da Silva Pinto]

Amigo, todo banco te da gratuitamente o layaout do arquivo de cobrança,
tanto o envio quanto o remessa, não existe nenhum campo que tenho o tamanho
variavel, todos tem um tamanho padrao que nunca varia.
Peça ao banco que lhe permitiu o acesso ao arquivo de remessa o layout do
mesmo e trabalhe em cima dele.
Os detalhes de cada campo podem variar muito pouco de banco pra banco pois
todos eles estao sob uma norma do Banco Central.

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de sandro cunha
Enviada em: sexta-feira, 18 de novembro de 2005 11:14
Para: Grupo Delphi
Assunto: [delphi-br] Baixa automatica alguem poderia me dar uma
força


Caros, Bom dia!!!
  Estou tentando montar uma baixa automatica para meu sistema (Compilação
delphi 7, BD Paradox). A baixa funciona assim: recebo um arquivo do banco, o
sistema detecta este arquivo e abre o mesmo, isto ja esta implementado e
funcionando, consigo ler alguns itens que necessito para fazer a baixa porem
outros não consigo ler.

  Neste arquivo são listados todos os pagamentos efetuados no banco em uma
determinada data.
  porem o o conjunto de caracteres que determina o valor do pagamento e a
data do mesmo esta formatado assim:

  060002
20210900141120051611200516112005

  Onde 2200(22,00) é o valor do pagamento e 16/11/2005 a data do pagamento,
sem problemas para encontrar a data, porém para o valor podem aumentar ou
diminuir o numero de casas.
  Pensei em eliminar os zeros a direita até chegar em um numero diferente de
zero que seria o inicio do valor. Mas como fazer 

  Um grande abraço a todos
  Sandro


-
 Yahoo! Acesso Grátis: Internet rápida e grátis.
Instale o discador agora!

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



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



Links do Yahoo! Grupos









-- 
< 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

 

RES: [delphi-br] Corrupção de Indices - PARADOX

[Vinicius da Silva Pinto]

Oi Leandro, provavelmente vc ira receber varias mensagens se aconselhando a
mudar de plataforma, dizendo que paradox é uma M... ou B..., mais poucos
irão realmente te ajudar.
Um monte de fatores pode corromper as suas tabelas, eu já tive problemas até
com placa de rede, pois toda atualização que partia de uma maquina corrompia
o meu BD.

Faça uma varredura no seu sistema, verifique cada ponto da sua rede.
Cuide com carinho cada atualizacao que vc faca nas suas tabelas.

Dependendo do tamanho do seu projeto, o Paradox pode ser uma excelente
ferramenta ou não.

Eu utilizo Paradox via BDE em alguns clientes e tenho muito poucos probemas,
e tbm tenho clientes com IB, FB e Clipper (ainda), tudo depende do tamanho
da sua aplicaçao.

O seu problama com indices é local, independe da ferramenta que vc está
usando.
Reveja o seu projeto, verifique cada maquina, olhe com carinho cada
configuração de todas as estações que provavelmente vc resolvera o seu
problema.

Se quiser, pode me contactar em pvt.

[]´s

Vinicius


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Leandro Carbonera
Enviada em: quinta-feira, 10 de novembro de 2005 14:14
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Corrupção de Indices - PARADOX


Salve listaestou precisando de uma ajuda com o Paradox. Eu tenho em
um cliente um rede de estações com windows 98 e um servidor com windows 2000
Pro, e meu sistema está rodando com com paradox, e de vez em quando os
indices das tabelas correompem sem mais nem menos. Alguem saberia me dizer
porque isto acontece, ou se existe alguma configuração do BDE que possa
diminuir esse problemas.



Att.

Leandro Carbonera
Suporte Técnico - RBR Informática

Fone: 54 343 1788
[EMAIL PROTECTED]
www.rbrinformatica.com.br






___
Yahoo! Acesso Grátis: Internet rápida e grátis.
Instale o discador agora!
http://br.acesso.yahoo.com/



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



Links do Yahoo! Grupos









-- 
< 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

 

RES: RES: [delphi-br] Mídia da Revista

[Vinicius da Silva Pinto]

Então eu sou o cara mais sortudo que existe, pois já trabalho com D4 a mais
de 5 anos e tem uns 3 com D4 e XP sem problema nenhum.

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Romario (Listas)
Enviada em: terça-feira, 8 de novembro de 2005 10:14
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Mídia da Revista


Na página da revista está escrito em negrito:

"O software Delphi 4 não funciona com Windows XP".

Link: http://www.ciadosoftware.com.br/produto.asp?produto=605

Valor da Revista:  R$ 12,90

Sds,

Romario




Renato Javaman escreveu:
> ih... comprei essa daí tb, só que tem um problem. disseram que realmente
houve um problema na hora de confeccionar os cds e distribuiram tudo com
defeito. Aí teve um outro conhecido meu que me disse que conseguiu outro cd
(peguei com ele..). Só que eu acho q a essa altura do campeonato eles já não
dão mais suporte pra esses casos.
>
> Elazar <[EMAIL PROTECTED]> escreveu:Gustavo
>
> bom; dia;
>
> estou com o mesmo problema. (parece que as pasta de instalacao do delphi
> estao com o lugares trocados...ta bem baguncado mesmo...
> eu ate tentei juntalas no hd, mas tb nao funcionou,,,esta faltando
> alguns arquivos)
>
> OBS. PC Expert ed. 29???
> Elazar
>
> -Mensagem original-
> De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
> Em nome de Gustavo Buttelli
> Enviada em: terça-feira, 8 de novembro de 2005 06:56
> Para: delphi-br@yahoogrupos.com.br
> Assunto: [delphi-br] Mídia da Revista
>
>
> Ai pessoal,
>
> A algum tempo atrás comprei a revista pc expert que veio com o delphi 4,
>
> mas nesta revista quando vou instalar o programa ele dá alguns erros na
> instalação, alguém sabe como eu instalo o desta revista ou onde eu posso
>
> encontrar para baixá-lo?
>
> Obrigado.
>
> Gustavo





___
Yahoo! Acesso Grátis: Internet rápida e grátis.
Instale o discador agora!
http://br.acesso.yahoo.com/



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



Links do Yahoo! Grupos









-- 
< 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

 

RES: [delphi-br] Problemas em Indices em Tabelas Paradox

[Vinicius da Silva Pinto]

O indice primario não tem nome...
Data.tbClientes.AddIndex('','Codigo',[ixPrimary],'Codigo');
assim funciona.
[]'s

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Wilson Valdevite
Enviada em: terça-feira, 19 de abril de 2005 17:55
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Problemas em Indices em Tabelas Paradox



Vinicius, desculpe a minha ignorancia no assunto, mas poderia verificar se a
sintaxe do comando addindex esta correta, pois achei o help do windows meio
confuso.

Data.tbClientes.AddIndex('ind_CliCodigo','Codigo',[ixPrimary],'Codigo');

na hora de compilar o programa roda mas ma hora de executar ocorre uma
excessão de "indice inválido"
  - Original Message -
  From: Vinicius da Silva Pinto
  To: delphi-br@yahoogrupos.com.br
  Sent: Monday, April 18, 2005 10:10 AM
  Subject: [delphi-br] Problemas em Indices em Tabelas Paradox


  Eduardo, segue uma rotina para indexar os arquivos paradox a partir de um
  arquivo contendo o nome do arquivo, nome do indice e uma campo lógico para
  indexação.
  Estrutura do arquivo:
  ARQUIVO  A20*
  NOMEINDICE   A70*
  INDEXAR  L

  Eu tenho um form com um dbgrid que utiliza este arquivo, marco os arquivos
a
  serem indexados pelo campo lógico e executo a rotina abaixo.
  Vc pode enfeitar o pavão, fazendo um form mais detalhado, com botoes para
  atualizar o arquivo de indices, fazer um relatório pra documentar, pode
  fazer o que quiser.
  Note que o primeiro registro para cada arquivo é o indice primario, os
  registros seguintes para o mesmo arquivo são referentes aos indices
  secundarios, não tendo limites.

  procedure TFRMindexar.BitBtn3Click(Sender: TObject);
  var
 Warquivo: String;
  begin
   BDindices.First;
   while not BDindices.Eof do begin
  if BDindices.FieldByName('Indexar').asBoolean = True then begin
 Try
TBLindices.TableName :=
  BDindices.FieldByName('Arquivo').asString;
TBLindices.IndexDefs.Clear;
TBLindices.AddIndex('
  ',BDindices.FieldByName('ChavePrimaria').asString,[ixPrimary, ixUnique]);
Warquivo := BDindices.FieldByName('Arquivo').asString;
BDindices.Next;

if BDindices.FieldByName('Arquivo').asString = Warquivo then
   while (BDindices.FieldByName('Arquivo').asString =
  Warquivo) and
 (not BDindices.Eof) do begin
 if
  Length(Trim(BDindices.FieldByName('NomeIndice').asString)) > 0 then
TBLindices.AddIndex('S'+IntToStr(BDindices.Recno
),
   BDindices.FieldByName('NomeIndice').a
sS
  tring,[ixCaseInsensitive]);
 BDindices.Next; end;
except
  ShowMessage('Não consegui criar indice para a tabela:
'
  +
   BDindices.FieldByName('Arquivo').asString
);
  end; // Try
end; // if
 end; // begin
   BDindices.Close;
   TBLindices.Close;
   ShowMessage('Todos os arquivos que foram marcados já estão
  indexados.');
   Application.Terminate;
  end;

  -Mensagem original-
  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
  nome de Eduardo Silva ®
  Enviada em: sexta-feira, 15 de abril de 2005 14:50
  Para: delphi-br@yahoogrupos.com.br
  Assunto: RES: [delphi-br] Problemas em Indices em Tabelas Paradox



  Eu uso uma rotina para recriar os índices na mão mesmo.

  Eu tb gosto muito do paradox, pra dizer a verdade ainda não peguei firme
em
  outro banco, então fico fazendo as coisas no paradox mesmo.

  Vc poderia me explicar como é esse lance seu de colocar os indices na
tabela
  ? Poderia me mandar as linhas pra eu ver como é ?

  Obrigado.




  --
  <<<<< 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] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:

São Paulo Rio de Janeiro Curitiba Porto Alegre Belo
Horizonte Brasília





--
  Links do Yahoo! Grupos

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

b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.





--


  No virus f

[delphi-br] Problemas em Indices em Tabelas Paradox

[Vinicius da Silva Pinto]

Eduardo, segue uma rotina para indexar os arquivos paradox a partir de um
arquivo contendo o nome do arquivo, nome do indice e uma campo lógico para
indexação.
Estrutura do arquivo:
ARQUIVO  A20*
NOMEINDICE   A70*
INDEXAR  L

Eu tenho um form com um dbgrid que utiliza este arquivo, marco os arquivos a
serem indexados pelo campo lógico e executo a rotina abaixo.
Vc pode enfeitar o pavão, fazendo um form mais detalhado, com botoes para
atualizar o arquivo de indices, fazer um relatório pra documentar, pode
fazer o que quiser.
Note que o primeiro registro para cada arquivo é o indice primario, os
registros seguintes para o mesmo arquivo são referentes aos indices
secundarios, não tendo limites.

procedure TFRMindexar.BitBtn3Click(Sender: TObject);
var
   Warquivo: String;
begin
 BDindices.First;
 while not BDindices.Eof do begin
if BDindices.FieldByName('Indexar').asBoolean = True then begin
   Try
  TBLindices.TableName :=
BDindices.FieldByName('Arquivo').asString;
  TBLindices.IndexDefs.Clear;
  TBLindices.AddIndex('
',BDindices.FieldByName('ChavePrimaria').asString,[ixPrimary, ixUnique]);
  Warquivo := BDindices.FieldByName('Arquivo').asString;
  BDindices.Next;

  if BDindices.FieldByName('Arquivo').asString = Warquivo then
 while (BDindices.FieldByName('Arquivo').asString =
Warquivo) and
   (not BDindices.Eof) do begin
   if
Length(Trim(BDindices.FieldByName('NomeIndice').asString)) > 0 then
  TBLindices.AddIndex('S'+IntToStr(BDindices.Recno),
 BDindices.FieldByName('NomeIndice').asS
tring,[ixCaseInsensitive]);
   BDindices.Next; end;
  except
ShowMessage('Não consegui criar indice para a tabela: '
+
 BDindices.FieldByName('Arquivo').asString);
end; // Try
  end; // if
   end; // begin
 BDindices.Close;
 TBLindices.Close;
 ShowMessage('Todos os arquivos que foram marcados já estão
indexados.');
 Application.Terminate;
end;

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Eduardo Silva ®
Enviada em: sexta-feira, 15 de abril de 2005 14:50
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Problemas em Indices em Tabelas Paradox



Eu uso uma rotina para recriar os índices na mão mesmo.

Eu tb gosto muito do paradox, pra dizer a verdade ainda não peguei firme em
outro banco, então fico fazendo as coisas no paradox mesmo.

Vc poderia me explicar como é esse lance seu de colocar os indices na tabela
? Poderia me mandar as linhas pra eu ver como é ?

Obrigado.




-- 
< 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] ou [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

 

RES: [delphi-br] Problemas em Indices em Tabelas Paradox

[Vinicius da Silva Pinto]

Eduardo, eu sou usuario assiduo do Paradox, pois tenho varios pequenos
clientes que não vejo a necessidade de instalar um Interbase, FireBird ou
outro Banco qq.
Problemas com indices pode ser qq coisa, até mesmo erro de programacao e de
projeto, forçar uma inclusao com appendrecord com chave duplicada as vezes
corrompo o banco e vc tem de remontar os indices, não estou dizendo que é o
seu caso... já tive problemas que levei uma semana pra descobri... era um
micro com uma placa de rede que não estava confiavel... toda vez que o
usuario daquele micro atualizava o banco ele corrompia uma tabela, fiz todos
os testes até que chutei trocando a placa de rede, e o problema parou.
Vai com calma, crie uma rotina para reindexar suas tabelas, se estiver em
rede, faça teste em cada maquina atualizando o banco via sua aplicação. Eu
tbm acho o Paradox 10, dependendo onde eu vou utiliza-lo.
Eu costumo criar uma tabela com os seguintes campos: arquivo, indice1,
indice2, indice3... até o indice10.
Quando dá problema, executo um programinha que deleta todos os *.px, *.xg0,
*.xg1, *.yg0 e *.yg1, e lendo a minha tabela de indices, vou montando todos
eles sem o menor problema. Funciona comigo em certos clientes, cada caso é
um caso.
[]´s

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Eduardo Silva ®
Enviada em: sexta-feira, 15 de abril de 2005 13:54
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Problemas em Indices em Tabelas Paradox



Não entendi o que vc quis dizer, mas se o seu banco de dados (paradox)
corrompeu, basta fazer uma rotina para recriar os índices que o banco volta
a funcionar normalmente.

Tenho sistemas em paradox e jamais perdi um dado sequer

Para ambientes monousuários, o paradox eu acho 10 (opinião minha), rápido de
trabalhar, fácil de mexer, e comigo poucas ou quase nenhuma vez eu tive
problema (monousuário).

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Wilson Valdevite
Enviada em: sexta-feira, 15 de abril de 2005 13:25
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Problemas em Indices em Tabelas Paradox



Mestres em Paradox, preciso de ajuda:

Tenho um sistema em paradox que geralmente é corrompido com erros de índice
o que impossibilita o acesso,  e outras vezes quando eu mando efetuar uma
cópia dele pelo database desktop ocorre erro desconhecido no sistema
operacional.

Será que pode ser um erro de programação ou o BDE pode estar corrompido? E o
mais estranho é que em 90% das vezes que pego o banco de dados corrompido em
meu micro consigo trabalhar normalmente.

Desde j á agradeço a colaboração

[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] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos











--
< 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] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos










-- 
< 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] ou [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

 

RES: [delphi-br] Desativar índice secundário

[Vinicius da Silva Pinto]

Tabela.IndexFieldNames := 'nome do indice primario ou secundario ou outros
indices que tiver');
Tabela.First;
[]'s

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Trama Paulista
Enviada em: quinta-feira, 14 de abril de 2005 18:24
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Desativar índice secundário



Desculpem... é Paradox,...


Magno Nascimento
__
Trama Paulista  .:sites   .:sistemas
4786-81679441-3165
  -Mensagem original-
  De: Francisco Thiago [mailto:[EMAIL PROTECTED]
  Enviada em: quinta-feira, 14 de abril de 2005 17:55
  Para: delphi-br@yahoogrupos.com.br
  Assunto: Re: [delphi-br] Desativar índice secundário


  Ajudaria se você nos dissesse o banco que usa :D

  Francisco Thiago de Almeida
  Enter&Plug Informática
  Divisão: Desenvolvimento e Banco de dados
  MSN: [EMAIL PROTECTED]
  Skype: enterplug_thiago

  - Original Message -
  From: "Trama Paulista" <[EMAIL PROTECTED]>
  To: 
  Sent: Thursday, April 14, 2005 4:38 PM
  Subject: [delphi-br] Desativar índice secundário



  Duvidinha besta...

  tenho uma tabela que contém uma chave primária e mais 1 índice secundário.
  Eu abro a tabela já setando o índice secundário para realizar algumas
  operações. Lá pelas tantas eu preciso fazer uma pesquisa e preciso usar a
  chave primária. Como faço para desativar o índice secundário e fazer com
que
  ele considere apenas a chave primária ???/


  'Desde já, obrigado


  Magno Nascimento
  __
  Trama Paulista  .:sites   .:sistemas
  4786-81679441-3165


  [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] ou [EMAIL PROTECTED]

  Links do Yahoo! Grupos













  --
  < 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] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:
  PUBLICIDADE





--
  Links do Yahoo! Grupos

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

b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.



[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] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos










-- 
< 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] ou [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

 

[delphi-br] Software de Backup

[Vinicius da Silva Pinto]

Alguem teria um dica de um software para backup em fita que fosse free?? 
E que se pudesse ter um bom controle dos arquivos bacapiados.


-- 
< 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] ou [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

 

RES: [delphi-br] Corrupt table/index header file

[Vinicius da Silva Pinto]

Delete os indices e abra a tabela normalmente, depois refaça os indices.
Os indices sao .px, .x?? e .y??
Nao delete os arquivos .DB ou .MB

-Mensagem original-
De: Evandro Araujo de Abreu [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 17 de março de 2005 08:49
Para: lista-delphi; zeoslib-br; Delphi-Total; Delphi-br; Delphi-ib
Assunto: [delphi-br] Corrupt table/index header file



Alguem ja mexeu com paradox, se sim estou tentando abrir uma tabela
no paradox e esta dando o seguinte erro:
Unable to open table - Corrupt table/index header file C:\arcserver\
ASobject.db

no aguardo

Evandro




-- 
< 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] ou [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

 

RES: [delphi-br] Perda de dados

[Vinicius da Silva Pinto]

Migrar não ira resolver o seu problema, o PARADOX tem seus defeitos, mais
culpa-lo por qualquer erro de desenvolvimento, falha na definição do projeto
é inaceitável.
Utilizo PARADOX em diversos clientes, como tbm utilizo IB e outros bancos.
Escolher o melhor banco, ou base de dados requer experiencia, não adianta
empurrar PARADOX para uma grande multinacional como tbm nao seria nada bom
colocar IB em uma pequena e simples videolocadora.
O seu problema se resolve em pesquisar pequenos detalhes, o PARADOX é muito
bom por ser simples, pratico e rápido (dependendo aonde se coloca).
Se vc migrar para uma Banco de Dados tipo FB ou IB, os seus problemas só vao
piorar, por que o erro nao está no banco e sim no desenvolvimento do sistema
que com certeza vc ira levar na migração.
Reveja os seus conceitos, rotinas, rede porque com certeza o seu problema
pode ser tudo, menos o PARADOX.
QQ coisa, estarei por aqui e sempre.
[]´s
Vinicius


-Mensagem original-
De: Cristiane Campanholo [mailto:[EMAIL PROTECTED]
Enviada em: sexta-feira, 11 de março de 2005 16:56
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Perda de dados



Pessoal!

Estou com um sério problema de perda de dados. Eu utilizo Paradox com Delphi
4 (vou migrar, não tive tempo de procurar os componentes que utilizo no D4
para o D7).

Por exemplo: meu cliente digita contas a receber (inclui), depois (outro
dia) faz o pagamento desta conta a receber (altera o registro). Em alguns
casos (aleatórios), a conta a receber volta a ficar em aberto, como se não
houvesse o pagamento (como se não tivesse a alterção). Note que, se no dia
que foi feita a alteração o relatório for impresso, imprime normal, com a
alteração correta. Alguns dias depois é que a tal conta aparece em aberto
novamente. Agluém já passou por isso? Sei que Paradox não é o melhor banco
de dados, mas sempre soube de perda de índices ou registros, mas nunca de
perda de alterações...

Se alguém puder me ajudar, agradeço muito.

Cristiane Campanholo



--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.7.1 - Release Date: 9/3/2005



--
< 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] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos










-- 
< 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] ou [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

 

RES: [delphi-br] Amigos Paradoxianos

[Vinicius da Silva Pinto]

Roda sim é só configurar direitinho.

-Mensagem original-
De: Campus [mailto:[EMAIL PROTECTED]
Enviada em: terça-feira, 1 de março de 2005 17:16
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Amigos Paradoxianos



Aqui roda.

- Original Message -
From: "info.Desenvolvimento" <[EMAIL PROTECTED]>
To: 
Sent: Tuesday, March 01, 2005 5:02 PM
Subject: [delphi-br] Amigos Paradoxianos



A todos os amigos paradoxianos estou enviando uma apostila FELIZ COM O
PARADOX feita por Daniel Pereira Guimarães, espero que ajude a todos pois me
ajudou e muito.
OBS: Com a chegado do Windows XP o Paradox não roda com Windows 98 sendo
Servidor, só roda ao contrário, mais uma vez deixo isso bem claro.


PAULO FERNANDES
PORTO ALEGRE RS





-- 
< 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] ou [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

 

RES: [delphi-br] Como faço para Calcular Digito pelo Modulo 11

[Vinicius da Silva Pinto]

Esta rotina calcula um o digito de um numero de até 43 posicoes (utilizo
para boleta)
Caso queira utilizala em um numero de digitos menor, retire do Wpeso da
esquerda pra direita.
Retorna só o digito.

function CalcDig11(Went: String): String;
var
   Wpeso: String;
   Wsoma: SmallInt;
   Wct: SmallInt;
begin
 Wpeso := '432987654329876543298765432987654329876543298765432';
 Wsoma := 0;
 For Wct := 1 to 43 do
 Wsoma := (Wsoma + (StrToInt(Copy(Went, Wct, 1)) *
StrToInt(Copy(Wpeso, Wct, 1;
 Wct := (Wsoma mod 11);
 if (Wct = 1) or (Wct = 10) or (Wct = 0) then
Result := '1'
 else
 Result := IntToStr(11 - Wct);
end;


Atenciosamente,Galera,

Como faço para calcular o dígito verificador pelo módulo 11

Atenciosamente,




Marcelo Carvalho

Programador Sênior

Santa Casa de Misericórdia de Porto Alegre

E-mail: [EMAIL PROTECTED]




-- 
< 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] ou [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

 

RES: [delphi-br] Gravar imagem no banco Paradox

[Vinicius da Silva Pinto]

Realmente ele fara só dois. escanear a foto e transferir... caso
contrario sera... escanear, salvar em disco, abrir o opendialog do delphi,
selecionar o diretorio, escolher o arquivo e transferir novamente pro banco
e gravar acho que sao umas seis ou sete operacoes.
[]'s

-Mensagem original-
De: Eduardo Silva ® [mailto:[EMAIL PROTECTED]
Enviada em: segunda-feira, 31 de janeiro de 2005 14:14
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Gravar imagem no banco Paradox



Vinicius, realmente era isso, ele não estava gravando as imagens jpg.

Vc já pesquisou a respeito e encontrou alguma solução, eu gostaria de gravar
em jpg.

O problema de copiar para a área de transferência é que nós teremos 2
trabalhos né.

Eu acredito que o usuário leigo não saberá trabalhar dessa forma e pedirá
uma solução melhor.

Vc não teria outra idéia ?

 -Mensagem original-
De: Vinicius da Silva Pinto [mailto:[EMAIL PROTECTED]
Enviada em: segunda-feira, 31 de janeiro de 2005 14:03
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Gravar imagem no banco Paradox


  Olha Eduardo, eu não vejo sentido vc gravar uma foto em um arquivo
separado
  e depois leva-la pra dentro do banco, vc está trabalhando dobrado e sem
  sentido.
  Uma coisa eu sei, o Delphi tem uns problemas com certos tipos de imagens
  gravadas, Tiff, Jpg, Mpeg.
  Não sei o padrao que vc está gravando, só sei que nao precisa.
  Agora, se vc recortar uma figura e manda-la pra area de transferencia, eu
  não sei ao certo em que formato ela fica, mais uma coisa eu te garanto,
  todos os programas que trabalham  com imagem conseguem ler numa boa,
  inclusive o Delphi, sem problemas.
  O que eu te aconselho é em vez de utilizar LOADFROMFILE use
  PasteFromClipboard, nunca vai dar problema.
  Apos gravar, de um POST na tabela e um REFRESH no form.
  Acho que funciona.

  []'s

  Vinicius

  -Mensagem original-
  De: Eduardo Silva ® [mailto:[EMAIL PROTECTED]
  Enviada em: segunda-feira, 31 de janeiro de 2005 13:33
  Para: delphi-br@yahoogrupos.com.br
  Assunto: RES: [delphi-br] Gravar imagem no banco Paradox



  Vinicius, o que ta acontecendo comigo é o seguinte:

  - eu carrego a foto e a jogo no dbImage:

 opdFoto.Execute;
 if opdFoto.FileName <> '' then
dbdtDS_FOTO.Picture.LoadFromFile(opdFoto.FileName);

  Dai eu gravo a tabela

  Só que quando eu vou ver se a foto foi gravada, nõa foi.

  Vc poderia me dar uma luz ?




  --
  <<<<< 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] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:








--
  Links do Yahoo! Grupos

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

b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.




[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] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos










-- 
<<<<< 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] ou [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

 

RES: [delphi-br] Gravar imagem no banco Paradox

[Vinicius da Silva Pinto]

Olha Eduardo, eu não vejo sentido vc gravar uma foto em um arquivo separado
e depois leva-la pra dentro do banco, vc está trabalhando dobrado e sem
sentido.
Uma coisa eu sei, o Delphi tem uns problemas com certos tipos de imagens
gravadas, Tiff, Jpg, Mpeg.
Não sei o padrao que vc está gravando, só sei que nao precisa.
Agora, se vc recortar uma figura e manda-la pra area de transferencia, eu
não sei ao certo em que formato ela fica, mais uma coisa eu te garanto,
todos os programas que trabalham  com imagem conseguem ler numa boa,
inclusive o Delphi, sem problemas.
O que eu te aconselho é em vez de utilizar LOADFROMFILE use
PasteFromClipboard, nunca vai dar problema.
Apos gravar, de um POST na tabela e um REFRESH no form.
Acho que funciona.

[]'s

Vinicius

-Mensagem original-
De: Eduardo Silva ® [mailto:[EMAIL PROTECTED]
Enviada em: segunda-feira, 31 de janeiro de 2005 13:33
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Gravar imagem no banco Paradox



Vinicius, o que ta acontecendo comigo é o seguinte:

- eu carrego a foto e a jogo no dbImage:

   opdFoto.Execute;
   if opdFoto.FileName <> '' then
  dbdtDS_FOTO.Picture.LoadFromFile(opdFoto.FileName);

Dai eu gravo a tabela

Só que quando eu vou ver se a foto foi gravada, nõa foi.

Vc poderia me dar uma luz ?




-- 
< 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] ou [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

 

RES: [delphi-br] Gravar imagem no banco Paradox

[Vinicius da Silva Pinto]

Ai vai minha rotina, testo tudo, inclusive o tamanho da foto para não ser
gravada com mais de 25k.
O usuario escaneia a foto, recorta e deixa na area de transferencia,
simples, depois é só clicar em um botao.
Esta rotina esta na propriedade onclick.

procedure TFRMalunos.BTfotoClick(Sender: TObject);
begin
  // caso o aluno ainda nao tenha registro, eu incluo.
  Try DM1.BDfotos.AppendRecord([DM1.BDalunosCDaluno.Value]); except end;

  DM1.BDfotos.Edit;
  // Aqui eu transfiro a foto da area de transferencia para o arquivo.
  DBIfotoAluno.PasteFromClipboard;
  // Verifico o tamanho da foto pra evitar gravar uma foto muito grande
  if (DM1.BDfotosFotoDoAluno.BlobSize > 25000) or
 (DM1.BDfotosFotoDoAluno.BlobSize = 0) then begin
 ShowMessage('Foto está mal escaneada, ficou muito grande ou vazia. Por
Favor, ' +
 'Scaneie a Foto com 75DPI e recorte do tamanho ideal.');
 DM1.BDfotos.Cancel; end;

end;





-Mensagem original-
De: Eduardo Silva ® [mailto:[EMAIL PROTECTED]
Enviada em: segunda-feira, 31 de janeiro de 2005 11:14
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Gravar imagem no banco Paradox



Vinicius, vc pode me dizer como faz para gravar a imagem no banco e como faz
para exibi-la no form quando esta consultando o mesmo ?
  -Mensagem original-
  De: Vinicius da Silva Pinto [mailto:[EMAIL PROTECTED]
  Enviada em: segunda-feira, 31 de janeiro de 2005 10:23
  Para: delphi-br@yahoogrupos.com.br
  Assunto: RES: [delphi-br] Gravar imagem no banco Paradox




-- 
<<<<< 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] ou [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