[delphi-br] Re: Exibir caracteres maiusculos e minusculos
Emerson, muito obrigado.
Esta função deixa somente o primeiro nome com letra maiscula e os
nomes restantes as primeiras letras permanecem miniusculas.
Mas o EduKobra postou uma função que faz perfeitamente isso.
Guarde-a para uma necessidade(muito valida).
Grande abraço.
José de Moura
function PrimeirasMaiusculas(mNome: string): string;
var
tam, pos1, pos2 : integer;
pal : string;
begin
tam := Length(mNome);
mNome := TrimRight(mNome) + ' ';
mNome := AnsiUpperCase(mNome);
while true do begin
pos1 := pos(' ',mNome) ;
if pos1 = 0 then
break;
pal := Copy(mNome,1,pos1) ;
pos2 := pos(pal, ' DA - DAS - DE - DO - DOS - E');
if pos2 > 0 then
pal := AnsiLowerCase (pal)
else
pal := Copy(pal,1,1) + AnsiLowerCase(Copy(pal,2,tam)) ;
result := result + pal ;
mNome := copy(mNome,pos1 + 1,tam)
end;
end;
--- Em delphi-br@yahoogrupos.com.br, Emerson Moreno <[EMAIL PROTECTED]>
escreveu
> Encontrei essa função já pronta. Veja se leh serve!
>
> function Maiuscula(Texto:String): String; {Converte a primeira
letra do
> texto especificado para maiuscula e as restantes para minuscula}
var OldStart:
> Integer; begin if Texto <> '' then begin Texto :=
> UpperCase(Copy(Texto,1,1))+LowerCase(Copy(Texto,2,Length
(Texto))); Result
> := Texto; end; end; function Padr(s:string;n:integer):string;
{alinha
> uma string à direita} begin
> Result:=Format('%'+IntToStr(n)+'.'+IntToStr(n)+'s',[s]); end;
>
>
> Em 21/12/05, jmourajr2000 <[EMAIL PROTECTED]> escreveu:
> >
> > Caros amigos, bom dia!
> >
> > Necessito implementar em um determinado TEdit a seguinte edição,
sendo:
> >
> > A primeira letra de cada nome em maiuscula e as outras letras em
> > minuscula.
> >
> > Exemplo:
> > nome digitado: nome exibido:
> >
> > eLio Dos sANtos Elio dos Santos
> > maRIA dA SILVA Maria da Silva
> > LuiS DE liMaLuis de Lima
> >
> > Consigo passar somente o primeiro caracter do primeiro nome, para
> > maiusculo e o restante todo em minusculo.
> >
> > Como posso driblar isso?
> >
> > Agradeço de ante-mão.
> >
> > Um Feliz Natal, muita Paz, Saúde e Esperança.
> >
> > Um grande abraço a todos.
> >
> > José de Moura
> >
> >
> >
> >
> >
> > --
> > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> >
> >
> >
> >
> >
> > *Yahoo! Grupos, um serviço oferecido por:* PUBLICIDADE
> >
> >
<http://br.rd.yahoo.com/SIG=12fotuan2/M=386470.7632849.8508174.236989
3/D=brclubs/S=2137111264:HM/Y=BR/EXP=1135174127/A=3135788/R=2/id=nosc
ript/SIG=12c39trgo/*http://ad.br.doubleclick.net/clk;22846485;1212006
6;a?http://www.hoteis.com>
> > --
> > *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! <http://br.yahoo.com/info/utos.html>.
> >
> >
>
>
> --
> []'s
>
> Emerson Moreno
> O grande sábio aprende por ensinar!
>
>
> [As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: RES: [delphi-br] Exibir caracteres maiusculos e minusculos
Edu funcionou legal. Muito Obrigado.
Grande abraço.
José de Moura
--- Em delphi-br@yahoogrupos.com.br, Eduardo Silva ® <[EMAIL PROTECTED]>
escreveu
> function PrimeirasMaiusculas(mNome: string): string;
> var
>tam, pos1, pos2 : integer;
>pal : string;
> begin
>tam := Length(mNome);
>mNome := TrimRight(mNome) + ' ';
>mNome := AnsiUpperCase(mNome);
>while true do
>begin
> pos1 := pos(' ',mNome) ;
> if pos1 = 0 then
> break;
> pal := Copy(mNome,1,pos1) ;
> pos2 := pos(pal, ' DA - DAS - DE - DO - DOS - E');
> if pos2 > 0 then
> pal := AnsiLowerCase (pal)
> else
> pal:= Copy(pal,1,1) + AnsiLowerCase(Copy(pal,2,tam)) ;
> result := result + pal ;
> mNome := copy(mNome,pos1 + 1,tam)
>end;
> end;
>
> -Mensagem original-
> De: delphi-br@yahoogrupos.com.br [mailto:delphi-
[EMAIL PROTECTED]
> nome de jmourajr2000
> Enviada em: quarta-feira, 21 de dezembro de 2005 09:08
> Para: delphi-br@yahoogrupos.com.br
> Assunto: [delphi-br] Exibir caracteres maiusculos e minusculos
>
>
> Caros amigos, bom dia!
>
> Necessito implementar em um determinado TEdit a seguinte edição,
sendo:
>
> A primeira letra de cada nome em maiuscula e as outras letras em
> minuscula.
>
> Exemplo:
> nome digitado: nome exibido:
>
> eLio Dos sANtos Elio dos Santos
> maRIA dA SILVA Maria da Silva
> LuiS DE liMaLuis de Lima
>
> Consigo passar somente o primeiro caracter do primeiro nome, para
> maiusculo e o restante todo em minusculo.
>
> Como posso driblar isso?
>
> Agradeço de ante-mão.
>
> Um Feliz Natal, muita Paz, Saúde e Esperança.
>
> Um grande abraço a todos.
>
> José de Moura
>
>
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>
>
>
>
> 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!.
>
>
>
> __ NOD32 1.1331 (20051220) Information __
>
> This message was checked by NOD32 antivirus system.
> http://www.nod32.com
>
>
> [As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Exibir caracteres maiusculos e minusculos
Caros amigos, bom dia! Necessito implementar em um determinado TEdit a seguinte edição, sendo: A primeira letra de cada nome em maiuscula e as outras letras em minuscula. Exemplo: nome digitado: nome exibido: eLio Dos sANtos Elio dos Santos maRIA dA SILVA Maria da Silva LuiS DE liMaLuis de Lima Consigo passar somente o primeiro caracter do primeiro nome, para maiusculo e o restante todo em minusculo. Como posso driblar isso? Agradeço de ante-mão. Um Feliz Natal, muita Paz, Saúde e Esperança. Um grande abraço a todos. José de Moura -- < 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
Re: RES: [delphi-br] Numero de Copias - Usando QuickReport
Eduardo, como vai?
Obrigado pela dica, mas após o comando rel_Etiq.PRINT; eu não
consigo estabelecer um contador. Mesmo dentro dos eventos do rel_etiq
(Quickreport) nem na procedure anteriormente citada.
Desculpe, mas Não consegui captar.
Abraços.
José de Moura
--- Em delphi-br@yahoogrupos.com.br, Eduardo Silva ® <[EMAIL PROTECTED]>
escreveu
> Vc quer o total que ele já imprimiu ou o total que ele esta
imprimindo
> naquele momento?
>
> Se for o primeiro caso, coloque um campo na tabela integer e crie
um
> somat´roio pra ele a cada etiqueta impressa
>
> Se for no segundo, faça um contador no ato da impressão
> -Mensagem original-
> De: delphi-br@yahoogrupos.com.br [mailto:delphi-
[EMAIL PROTECTED]
> nome de jmourajr2000
> Enviada em: terça-feira, 6 de dezembro de 2005 14:59
> Para: delphi-br@yahoogrupos.com.br
> Assunto: [delphi-br] Numero de Copias - Usando QuickReport
>
>
> Caros amigos, boa tarde!
>
> Por favor, Preciso incluir em um aplicativo desenvolvido, a
seguinte
> situação:
>
> Utilizo para imprimir etiquetas(usando o QuickReport) a seguinte
> instrução:
>
> var MODELO : String;
> begin
>MODELO := dmPecas.tblPecas.FieldByName('MODELO').AsString;
>If not assigned(rel_Etiq) then
> rel_Etiq := Trel_Bar.create(Application);
> rel_Etiq.Query1.Close;
> rel_Etiq.Query1.ParamByName('MODEL').AsString := MODELO;
> rel_Etiq.Query1.Open;
> rel_Etiq.PrinterSettings.Copies := StrToInt
(NumEtiqs.Text);
> rel_Etiq.Print;
> end;
>
> Sendo que no componente NumEtiqs eu determino a quantidade de
> etiquetas a serem impressas(Até ai tudo OK).
> Mas agora o Cliente necessita que eu inclua a quantidade de
> etiquetas impressas(esta etiqueta é somente 1(uma) por pagina) em
> Real-Time, ou seja, a cada copia impressa deverá ser sinalizado o
> numero de etiquetas impressas.
>
> Já quebrei a cabeça e ainda não obtive resultados.
>
> Alguem poderia me ajudar.
>
> Agradeço muito de ante-mão.
>
> Abraços a todos.
>
> José de Moura
>
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>
>
>
>
> 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!.
>
>
>
> __ NOD32 1.1313 (20051206) Information __
>
> This message was checked by NOD32 antivirus system.
> http://www.nod32.com
>
>
> [As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Re: Impressão com TPrinter
Daniel, bom dia! Você já tentou configurar o tamanho do formulário de boleto em propriedades da impressora, direto no Windows. Tenta utilizar um modelo que você possa informar as medidas do formulario. Para mim, esta foi a solução deste mesmo problema. Abraços. José de Moura --- Em delphi-br@yahoogrupos.com.br, Daniel Bastos <[EMAIL PROTECTED]> escreveu > Salve galera, to com um problema na impressão aqui. Se alguem puder me > ajudar, vai me tirar uma dor de cabeça daquelas > > Quando uso impressão com TPrinter, é uma rotina de impressão de boletos. Ele > só imprime até o terceiro boleto em qualquer impressora. > > Verifiquei que, se eu gerar um arquio bmp com o Canvas, todos os boletos > saem corretamente. Tentei imprimir pelo Paint (O arquivo gerado) sai > corretamente. Desta forma soube que não era problema nem da rotina de > impressão, na qual gera o arquivo corretamente, nem do driver ou do Sistema > operacional, pois imprime corretamenete. > > Tentei gerar o arquivo e imprimir o bmp por dentro do delphi, mas o > resultado é exatamente o mesmo. Só imprime 3 boletos. Estes 3 boletos são > exatamente o tamanho de uma página A4. Não sei se estes fatos tem relação. > > Alem destes, fiz muitos testes aqui. E no geral, não consigo imprimir no > Delphi usando TPrinter(Com geradores de relatório como por exemplo o > QuickReport, funciona perfeitamente) mais de 3 boletos se eu não der um > "NewPage". O Caso é que, se eu der um NewPage, ele vai pular o tamanho de > uma página, consequentemente, pular 3 boletos e imprimir errado. > > o incrível é que nem uma impressão simples como a no código abaixo fuinciona > > var > ct : integer; > begin > printer.BeginDoc; > for ct := 0 to 1000 do > printer.Canvas.TextOut(50, 50*ct, IntToStr(ct)); > printer.EndDoc; > > este código só imprime até um determinado número dependendo da resolução da > impressora, mas sempre no tamanho de 1 página a4. > > > O mais incrível, é que a mesma rotina funcionava a alguns dias atraz. > > alguem tem alguma idéia. > > Abraços a todos > > Daniel A. Bastos > > > [As partes desta mensagem que não continham texto foram removidas] -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Numero de Copias - Usando QuickReport
Caros amigos, boa tarde!
Por favor, Preciso incluir em um aplicativo desenvolvido, a seguinte
situação:
Utilizo para imprimir etiquetas(usando o QuickReport) a seguinte
instrução:
var MODELO : String;
begin
MODELO := dmPecas.tblPecas.FieldByName('MODELO').AsString;
If not assigned(rel_Etiq) then
rel_Etiq := Trel_Bar.create(Application);
rel_Etiq.Query1.Close;
rel_Etiq.Query1.ParamByName('MODEL').AsString := MODELO;
rel_Etiq.Query1.Open;
rel_Etiq.PrinterSettings.Copies := StrToInt(NumEtiqs.Text);
rel_Etiq.Print;
end;
Sendo que no componente NumEtiqs eu determino a quantidade de
etiquetas a serem impressas(Até ai tudo OK).
Mas agora o Cliente necessita que eu inclua a quantidade de
etiquetas impressas(esta etiqueta é somente 1(uma) por pagina) em
Real-Time, ou seja, a cada copia impressa deverá ser sinalizado o
numero de etiquetas impressas.
Já quebrei a cabeça e ainda não obtive resultados.
Alguem poderia me ajudar.
Agradeço muito de ante-mão.
Abraços a todos.
José de Moura
--
< 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] Re: Auto-Preencher um TEdit ou TDBEdit
Alencar, bom dia! Neste caso estariamos trabalhando com Strings(Campo "Nome" por exemplo). Seria algo como o que ocorre na planilhas do MS-Excel, quando começamos a digitar, algo parecido, ele o traz completando. Ou também parecido com um DBLookUpComboBox. Traz valores exatos ou aproximados ao digitado. Abraços. José de Moura --- Em delphi-br@yahoogrupos.com.br, Alencar - Philler Informatica <[EMAIL PROTECTED]> escreveu > Em 01/12/05, jmourajr2000<[EMAIL PROTECTED]> escreveu: > > Por favor, alguem conhece algum macete para que eu possa Auto- > > Preencher um TEdit ou TDBEdit. > > Pois bem, seria de modo que ao se digitar algo, ele fosse auto- > > preenchendo em ambos componentes(ou em um deles). > > Existe como? > > > > > Por favor, exemplifique com valores . > > Alencar > --- > Philler Informatica Ltda > Jose Alencar Philereno > ICQ 13458351 > Messenger/Skype (voz): alencar > > "Feliz aquele que transfere o que sabe > e aprende o que ensina" Cora Coralina -- <<<<< 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] Auto-Preencher um TEdit ou TDBEdit
Caros amigos boa tarde! Por favor, alguem conhece algum macete para que eu possa Auto- Preencher um TEdit ou TDBEdit. Pois bem, seria de modo que ao se digitar algo, ele fosse auto- preenchendo em ambos componentes(ou em um deles). Existe como? Agradeço desde já a cooperação. Grande abraço a todos. José de Moura -- < 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
Re: RES: [delphi-br] Impressora Matricial + Windows XP
Walter, muito obrigado por enquanto. Gde Abraço. --- Em delphi-br@yahoogrupos.com.br, Walter Alves Chagas Junior <[EMAIL PROTECTED]> escreveu > Todos Windows que usam arquitetura NT darão esta pala com esta função porque > o NT não permite acesso ao Hardware indiscriminadamente. Eu acho que tenho > lá em casa a função correta pra fazer ela funcionar nos SOs que usam > arquitetura NT, mas eu só posso olhar isto a noite. > > []s > > Walter Alves Chagas Junior > Projeto e desenvolvimento > Telemont Engenharia de telecomunicações > Belo Horizonte - MG - Brazil > [EMAIL PROTECTED] > Fone: (31) 3389-8215 Fax: (31) 3389-8200 > > > -Mensagem original- > De: delphi-br@yahoogrupos.com.br [mailto:delphi- [EMAIL PROTECTED] > nome de jmourajr2000 > Enviada em: quinta-feira, 13 de outubro de 2005 15:03 > Para: delphi-br@yahoogrupos.com.br > Assunto: [delphi-br] Impressora Matricial + Windows XP > > > Caros amigos, boa tarde! > > Por favor uma ajuda: > >Estou encontrando dificuldades(em uma rotina de meu aplicativo) > onde quero verificar se a Impressora matricial em Lpt1 esta ativa. > >Eu utilizava uma rotina em ASM(em assembler e muito comum na > net "function PrinterOnLine") para a tal verificação e rodava > tranquilo nas versões dos OS win98 e ou winMe. > >Só que estou fazendo uma atualização para um cliente que está > migrando para o winXP e a danada da function me retorna um erro de > access violation e não verifica se a impressora esta ativa. > >Isto realmente ocorre no windowsXP? >Existe alguma maneira de se corrigir tal erro? >O que faço? (Já que o cliente quer que seja feita essa verificação). > > > Ps: Já alterei até o Setup da Bios -> Lpt1-> de EPP para SPP > re-instalei o driver da impressora com o anti-virus desabilitado e > nada. > > > Quem puder ajudar, agradeço muito. > Grande abraço a todos. > > José de Moura > > > > > -- > <<<<< 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 > > > > > > > > > > > [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 <*> 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] Impressora Matricial + Windows XP
Caros amigos, boa tarde! Por favor uma ajuda: Estou encontrando dificuldades(em uma rotina de meu aplicativo) onde quero verificar se a Impressora matricial em Lpt1 esta ativa. Eu utilizava uma rotina em ASM(em assembler e muito comum na net "function PrinterOnLine") para a tal verificação e rodava tranquilo nas versões dos OS win98 e ou winMe. Só que estou fazendo uma atualização para um cliente que está migrando para o winXP e a danada da function me retorna um erro de access violation e não verifica se a impressora esta ativa. Isto realmente ocorre no windowsXP? Existe alguma maneira de se corrigir tal erro? O que faço? (Já que o cliente quer que seja feita essa verificação). Ps: Já alterei até o Setup da Bios -> Lpt1-> de EPP para SPP re-instalei o driver da impressora com o anti-virus desabilitado e nada. Quem puder ajudar, agradeço muito. Grande abraço a todos. José de Moura -- < 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
Re: RES: [delphi-br] Não permitir Acentuação
Elcio, muito obrigado!
Funcionou.
Abraços
--- Em delphi-br@yahoogrupos.com.br, "Elcio Domingos Ramos"
<[EMAIL PROTECTED]> escreveu
> Bom Dia
>
> Tenta Assim
>
> No evento onKeyPress
>
> if not (Key in ['A'..'Z']) then
>Key := #0;
>
>
> -Mensagem original-
> De: delphi-br@yahoogrupos.com.br [mailto:delphi-
[EMAIL PROTECTED]
> nome de jmourajr2000
> Enviada em: quarta-feira, 28 de setembro de 2005 22:04
> Para: delphi-br@yahoogrupos.com.br
> Assunto: [delphi-br] Não permitir Acentuação
>
>
> Caros amigos boa noite!
>
> Para permitir que em um TEdit ou TDBEdit sejam digitados somente
> caracteres numericos eu estou conseguindo, mas como posso fazer com
que
> estes mesmos componentes Não permitam o usuário digitar acentos
> (^,~,´,`) e ou palavras acentuadas e também o Ç("C cedilha").
> To ficando pinel.
>
>
> Agradeço de ante-mão quem puder ajudar.
>
> Grande abraço a todos
>
> José de Moura
>
>
>
>
> --
> <<<<< 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] Não permitir Acentuação
Caros amigos boa noite!
Para permitir que em um TEdit ou TDBEdit sejam digitados somente
caracteres numericos eu estou conseguindo, mas como posso fazer com que
estes mesmos componentes Não permitam o usuário digitar acentos
(^,~,´,`) e ou palavras acentuadas e também o Ç("C cedilha").
To ficando pinel.
Agradeço de ante-mão quem puder ajudar.
Grande abraço a todos
José de Moura
--
< 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] Re: Remover Zeros a esquerda de uma String.
Valeu Alisson, muito obrigado! Abraços. --- Em delphi-br@yahoogrupos.com.br, "Alisson Yahoo" <[EMAIL PROTECTED]> escreveu > Se a string possuir somente numeros você pode fazer: > IntToStr(StrToInt(string)). > > Se possuir outros tipos de caracter faça o seguinte: > > while String[1] = '0' do >String := Copy(String, 2, Length(String)); > > > > [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 <*> 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] Re: Remover Zeros a esquerda de uma String.
Eduardo muito obrigado! Vou testar. Abraços. --- Em delphi-br@yahoogrupos.com.br, "Eduardo" <[EMAIL PROTECTED]> escreveu > function TfrmDRE.Teste(pString: String): String; > var >i : Integer; >Achei : Boolean; > > begin > > Result := ''; > Achei := False; > for i := 1 to Length(pString) do > begin >if (pString[i] = 0) and (not Achei) then > Achei := False; >else > begin > Result := Result + pString[i]; > Achei := True; > end; > end; > > end; > > Ta na mao > > Eduardo > - Original Message - > From: jmourajr2000 > To: delphi-br@yahoogrupos.com.br > Sent: Wednesday, September 28, 2005 2:25 PM > Subject: [delphi-br] Remover Zeros a esquerda de uma String. > > > Amigos, Boa tarde! > > Por favor, alguem poderia me ajudar com alguma função, para que eu > possa remover zeros a esquerda em uma String ou em um TEdit. > > Quem puder me ajudar, agradeço muito. > > Abraços a todos. > > José > > > > > -- > <<<<< 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 <*> 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] Remover Zeros a esquerda de uma String.
Amigos, Boa tarde! Por favor, alguem poderia me ajudar com alguma função, para que eu possa remover zeros a esquerda em uma String ou em um TEdit. Quem puder me ajudar, agradeço muito. Abraços a todos. José -- < 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] Numero de copias ao imprimir
Caros amigos, bom dia! Existe a possibilidade de, ao invés de darmos o comando .preview para visualizarmos um relatório(utilizando-se o QuickReport), darmos o comando direto para a impressão sem passar pelo preview e junto informarmos a quantidade de cópias que desejamos que sejam impressas? Agradeço desde já pela atenção e abraços a todos. José de Moura -- < 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
Re: RES: [delphi-br] Impressão de Codigo de Barras - Argox - PPLA
Caros amigos, bom dia! Quero antes de tudo, agradecer imensamente a ajuda e preoucupação que me foi dispensada, pelo apaga fogo que surgiu. Estou finalizando o aplicativo com as sugestões que vocês me passaram e acredito que em pouco tempo estará finalizado e informarei, com certeza, o sucesso desta pequena e urgente impreitada. Espero um dia poder retribuir a essa preciosa ajuda. Um grande abraço a todos e Muito OBRIGADO. José de Moura Reis Jr. --- Em delphi-br@yahoogrupos.com.br, "Rildecy de Queiroz Borba" <[EMAIL PROTECTED]> escreveu > Amigo este código abaixo é o que uso para gerar a etiqueta, veja se ele pode > lhe ajudar. > // inicio > > AssignFile(lst,'LPT1'); > Rewrite(lst) ; > LcLinha := Chr(2) + 'qA'; > WriteLn(lst, lcLinha ); > LcLinha := Chr(2) + 'c'; > WriteLn(lst, lcLinha ); > LcLinha := Chr(2) + 'KI503'; > WriteLn(lst, lcLinha ); > LcLinha := Chr(2) + 'O0220'; > WriteLn(lst, lcLinha ); > LcLinha := Chr(2) + 'f220'; > WriteLn(lst, lcLinha ); > LcLinha := Chr(2) + 'KW0797'; > WriteLn(lst, lcLinha ); > LcLinha := Chr(2) + 'KI7' + chr(2); > WriteLn(lst, lcLinha ); > LcLinha := Chr(2) + 'V0'; > WriteLn(lst, lcLinha ); > LcLinha := Chr(2) + 'L'; > WriteLn(lst, lcLinha ); > LcLinha := 'H12'; > WriteLn(lst, lcLinha ); > LcLinha := 'PC'; > WriteLn(lst, lcLinha ); > LcLinha := 'A2'; > WriteLn(lst, lcLinha ); > LcLinha := 'D11'; > WriteLn(lst, lcLinha ); > LcLinha := '14112240111' + Trim( EdtNomeProduto.Text ); // nome > do produto > WriteLn(lst, lcLinha ); > LcLinha := '42110770038' + Trim( EdtLinha01.Text ); // 1º linha > lateral com o nome "supermercado" > WriteLn(lst, lcLinha ); > LcLinha := '42110960068' + Trim( EdtLinha02.Text );// 2º linha > lateral com o nome "PREÇO BAIXO" aqui eu coloco o nome do supermercao > WriteLn(lst, lcLinha ); > LcLinha := '16110740090R$ ' + Trim( EdtPreco.Text ); // já ta > dizendo preco da mercadoria; > WriteLn(lst, lcLinha ); > LcLinha := '12111470599COD.: ' + Trim( EdtCodInterno.Text ); // > codigo interno da mercadoria > WriteLn(lst, lcLinha ); > LcLinha := '1F3303300710572' + Trim( EdtEan13.Text ); codigo ean13 > WriteLn(lst, lcLinha ); > LcLinha := Chr(94) + '01'; > WriteLn(lst, lcLinha ); > LcLinha := 'Q0001'; > WriteLn(lst, lcLinha ); > LcLinha := 'E'; > WriteLn(lst, lcLinha ); > closefile(lst) ; > // fim > > -Mensagem original- > De: ArbSis [mailto:[EMAIL PROTECTED] > Enviada em: sexta-feira, 18 de março de 2005 09:04 > Para: delphi-br@yahoogrupos.com.br > Assunto: Re: [delphi-br] Impressão de Codigo de Barras - Argox - PPLA > > > No cd que vem junto com a argox tem um exemplo em delphi e varios exemplos > em ppla no modo texto mesmo, ai vc ve qual vc acha melhor, o exemplo em > delphi faz uso de dll > > jmourajr2000 escreveu: > > > > > Caros amigos, boa noite! > > > > Surgiu-me inesperadamente uma solicitação de desenvolvimento de um > > aplicativo para a impressão de codigo de barras. > > O cliente comprou uma impressora Argox Rabbit 214 e me pede em carater > > emergencial(para amanhã a tarde 18/03) o tal aplicativo para impressão > > dos codigos. > > Como nunca desenvolvi nada para Argox pois sei que, após algumas > > pesquisas, a mesma utiliza uma linguagem PPLA(algo como comandos em > > MS-DOS pelo que entendi), não faço ideia por onde começar. > > O cliente me trará a impressora ainda hoje(22:00hs) , para que eu > > possa fazer tal rotina e testar, pois ele a utilizará no final de > > semana e deverá fazer sua entrega de produtos com os devidos codigos > > na proxima segunda e terça-feira. > > Perguntas: > > 1) Disponho de um componente chamado NS-Barras será que ele pode me > > auxiliar para tal? (impressão gerenciada pelo Windows + Quickreport) > > 2) Como programo em PPLA em Delphi? > > 3) Ou é melhor sair correndo? :) > > 4) Esta impressora suporta comandos desenvolvidos em 32bits? > > > > Quem puder me dar uma luz eu ficarei imensamente grato. > > > > Utilizo Delphi3 + Paradox > > >
[delphi-br] Impressão de Codigo de Barras - Argox - PPLA
Caros amigos, boa noite! Surgiu-me inesperadamente uma solicitação de desenvolvimento de um aplicativo para a impressão de codigo de barras. O cliente comprou uma impressora Argox Rabbit 214 e me pede em carater emergencial(para amanhã a tarde 18/03) o tal aplicativo para impressão dos codigos. Como nunca desenvolvi nada para Argox pois sei que, após algumas pesquisas, a mesma utiliza uma linguagem PPLA(algo como comandos em MS-DOS pelo que entendi), não faço ideia por onde começar. O cliente me trará a impressora ainda hoje(22:00hs) , para que eu possa fazer tal rotina e testar, pois ele a utilizará no final de semana e deverá fazer sua entrega de produtos com os devidos codigos na proxima segunda e terça-feira. Perguntas: 1) Disponho de um componente chamado NS-Barras será que ele pode me auxiliar para tal? (impressão gerenciada pelo Windows + Quickreport) 2) Como programo em PPLA em Delphi? 3) Ou é melhor sair correndo? :) 4) Esta impressora suporta comandos desenvolvidos em 32bits? Quem puder me dar uma luz eu ficarei imensamente grato. Utilizo Delphi3 + Paradox Grato pela atenção de todos. Abraços. José de Moura -- < 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] Letras maisculas e minusculas
Caros amigos, boa tarde! Tenho a seguinte situação: Um cliente, tem em suas tabelas campos do tipo string, sendo por exemplo: no cadastro de clientes o campo Nome/Razão Social todos os registros estão e ou foram cadastrados como UpperCase(maiusculas), devido ao aplicativo fornecido pelo profissional que os ajudava, não permitir digitar com padrao normal. No momento estou implementando uma ferramenta desenvolvida por mim e quero aproveitar as informações contidas nas tabelas(Paradox), só que o cliente necessita que eu converta estas informações de maisculas para minusculas, até ai consigo fazer numa boa. Sendo: O nome cadastrado: JOSE JOAO SILVA(todos carac.em maisculo) consigo deixar assim:Jose joao silva(1° caracter maisculo) Mas ele quer que fique assim: Jose Joao Silva(Cada nome começando com maisculas). Estou quebrando a cabeça e não estou tendo resultados, será que tem como fazer isso? Quem puder ajudar agradeço muito. Abraços a todos. José de Moura -- < 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] Meio Off- Topic - Componente DBSpinEdit
Caros amigos, boa tarde! Por favor, alguém tem ou sabe informar onde consigo um componente DBSpinEdit para Delphi3. Procurei na net e os que encontrei são uns verdadeiros abacaxis. Quem puder ajudar agradeço imensamente. Abraços. José de Moura. -- < 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] Impressora - QuickReport - Não é valida
Caros amigos, boa noite! Estou com um pequeno problema. Existe em um aplicativo que desenvolvi para um cliente, um relatório de Cadastro de Produtos onde: 1) O cliente dispunha de uma impressora Deskjet em LPT1(funciona há +ou- 2 anos e rodava que era uma beleza), só que agora ele trocou-a por uma Deskjet em USB. 2) Quando manda imprimir o relatório, retorna um erro: "Impressora Selecionada não é valida." Mesmo usando o Setup do QuickReport, não dá resultado algum, ou retorna outro erro "access violation at..." Não estou conseguindo achar onde possa estar dando erro, sendo que até abri até o .dfm do quickreport para ver se achava algo. E também no aplicativo não direciono e também não tenho nenhuma procedure onde eu trabalhe com as portas. Agradeço a qualquer ajuda para tentar resolver isso. Desde já um abraço a todos. José de Moura PS: Para desenvolver este aplicativo usei Delphi3 e o QuickReport. -- < 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] Re: speedButton
Erika, bom dia! Utilize o evento "onmousemove" do speedbotton. Coloque uma Label no seu form e: procedure TForm1.SpeedButton1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Label1.Caption := 'Teste de Mensagem'; end; e para apagar a mensagem, utilize o mesmo evento, só que agora no Form procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Label1.Caption := ''; end; Espero que lhe seja útil. José de Moura --- Em delphi-br@yahoogrupos.com.br, Erika Lemes <[EMAIL PROTECTED]> escreveu > Oi pessoal > > Eu gostaria de saber como faço para aparecer uma mensagem quando usuário passar o mouse em cima de um speedbutton! > > Obrigado!!! > > __ > Converse com seus amigos em tempo real com o Yahoo! Messenger > http://br.download.yahoo.com/messenger/ > > [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 <*> 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] Como criar uma Progressão Alfabética
Caros amigos, bom dia! Estou necessitando criar uma Progressão Alfabética, onde: Tenho um Número de Protocolo(Integer) e preciso incrementar a este Protocolo uma letra(de A a Z), dependendo da quantidade ou número de vezes que o cliente usar um determinado Protocolo. Sei que terei que mudar o campo, na tabela, de Integer para String, ou criar um campo adicional para isso. Mas como faço para incrementar essa Progressão? Com um Integer faço assim: X : Integer X := X + 1; Agradeço a atenção e abraços a todos. José de Moura -- < 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] Re: Ideia para um Controle de Pedidos
Grande Moacir, muito obrigado. Abraços. José de Moura --- Em delphi-br@yahoogrupos.com.br, Prisma Sistemas - Moacir <[EMAIL PROTECTED]> escreveu > Moura, > > Vc tera que trabalhar com tabelas distintas para Pedidos e Notas. > > Baseado no exposto te aconselho a criar tabelas para as Notas fiscais > geradas (Dados Gerais e Itens) e na tabela de itens do pedido vc > acrescenta um campo de quantidade atendida, assim vc pode identificar > quando ocorrer pendencias (Qtd-Qtd_Atendida). > > Não esqueça de colocar um campo com o numero do pedido na tabela de NF. > > [ ]´s > Moacir > > > jmourajr2000 escreveu: > > >Caros amigos, boa noite! > > > >Sei que é vespera de carnaval, mas me surgiu uma solicitação, com a > >qual terei que pular o carnaval com ela. > > > >Meu cliente necessita que eu crie um controle de pedidos de venda > >onde: > > > >1) Faça a colocação dos pedidos (Itens, quantidade, valor unitario, > >subtotal e totais ...). Isso eu já desenvolvi e funciona legal. > > > >2) Só que nessa colocação de pedidos ele não previa e também não > >queria que fossem controlados os itens com pendencia, ou seja, por > >exemplo: > >Em uma solicitação de pedido com tem 3 itens, serão lançados os > >mesmos, só que um, ou todos os itens podem não estar disponiveis e ai > >é que entra o tal do controle. Pois seria controlar os itens que já > >foram atendidos no pedido e atender posteriormente o restante. > > > >3) Emissão de Nota Fiscal: Este complementa o item 1 acima(também > >desenvolvi e funciona legal), só que agora com essa alteração não sei > >como controlar as emissões, pois o cliente quer que fique o mesmo > >pedido para cada pendencia(Os Numeros de pedidos(Integer) vão de 1 a > >N e cada um poderá ter ou não pendencias). > > > >Gente necessito de uma ideia, holofote, luz, lanterna, vela o que > >puder me ajudar para desenvolver essa tarefa de uma maneira rapida e > >eficaz pois o cliente necessita para ontem e como já disse, vou > >passar o carnaval com essa tarefa. > > > >Estou usando Delphi3 e Paradox > > > >Quem puder me ajudar, agradecerei imensamente. > > > >Grande abraço a todos. > > > >José de Moura. > > > >Ps: Se preferir ajudar em PVT, meu e-mail é: [EMAIL PROTECTED] > > > > > > > > > > > > > > > > > > > > > -- > No virus found in this outgoing message. > Checked by AVG Anti-Virus. > Version: 7.0.300 / Virus Database: 265.8.4 - Release Date: 1/2/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 <*> 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] Ideia para um Controle de Pedidos
Caros amigos, boa noite! Sei que é vespera de carnaval, mas me surgiu uma solicitação, com a qual terei que pular o carnaval com ela. Meu cliente necessita que eu crie um controle de pedidos de venda onde: 1) Faça a colocação dos pedidos (Itens, quantidade, valor unitario, subtotal e totais ...). Isso eu já desenvolvi e funciona legal. 2) Só que nessa colocação de pedidos ele não previa e também não queria que fossem controlados os itens com pendencia, ou seja, por exemplo: Em uma solicitação de pedido com tem 3 itens, serão lançados os mesmos, só que um, ou todos os itens podem não estar disponiveis e ai é que entra o tal do controle. Pois seria controlar os itens que já foram atendidos no pedido e atender posteriormente o restante. 3) Emissão de Nota Fiscal: Este complementa o item 1 acima(também desenvolvi e funciona legal), só que agora com essa alteração não sei como controlar as emissões, pois o cliente quer que fique o mesmo pedido para cada pendencia(Os Numeros de pedidos(Integer) vão de 1 a N e cada um poderá ter ou não pendencias). Gente necessito de uma ideia, holofote, luz, lanterna, vela o que puder me ajudar para desenvolver essa tarefa de uma maneira rapida e eficaz pois o cliente necessita para ontem e como já disse, vou passar o carnaval com essa tarefa. Estou usando Delphi3 e Paradox Quem puder me ajudar, agradecerei imensamente. Grande abraço a todos. José de Moura. Ps: Se preferir ajudar em PVT, meu 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
[delphi-br] Ideia para um Controle de Pedidos
Caros amigos, boa noite! Sei que é vespera de carnaval, mas me surgiu uma solicitação, com a qual terei que pular o carnaval com ela. Meu cliente necessita que eu crie um controle de pedidos de venda onde: 1) Faça a colocação dos pedidos (Itens, quantidade, valor unitario, subtotal e totais ...). Isso eu já desenvolvi e funciona legal. 2) Só que nessa colocação de pedidos ele não previa e também não queria que fossem controlados os itens com pendencia, ou seja, por exemplo: Em uma solicitação de pedido com tem 3 itens, serão lançados os mesmos, só que um, ou todos os itens podem não estar disponiveis e ai é que entra o tal do controle. Pois seria controlar os itens que já foram atendidos no pedido e atender posteriormente o restante. 3) Emissão de Nota Fiscal: Este complementa o item 1 acima(também desenvolvi e funciona legal), só que agora com essa alteração não sei como controlar as emissões, pois o cliente quer que fique o mesmo pedido para cada pendencia(Os Numeros de pedidos(Integer) vão de 1 a N e cada um poderá ter ou não pendencias). Gente necessito de uma ideia, holofote, luz, lanterna, vela o que puder me ajudar para desenvolver essa tarefa de uma maneira rapida e eficaz pois o cliente necessita para ontem e como já disse, vou passar o carnaval com essa tarefa. Quem puder me ajudar, agradecerei imensamente. Grande abraço a todos. José de Moura. Ps: Se preferir ajudar em PVT, meu 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
[delphi-br] Mensagem de erro Table is Busy
Caros amigos boa tarde! Estou com um problema em um aplicativo na hora de apagar todos os registros de uma tabela Paradox(Temporaria). A rotina é simples só faz isso: begin dmDG.tableItens.Close; dmDG.tableItens.Exclusive := True; dmDg.tableItens.EmptyTable; dmDG.tableItens.Exclusive := False; dmDG.tableItens.Open; end; Só que ao executa=la me retorna o erro: Table is Busy Sendo que o aplicativo é monousuario, não tem nenhum outro aplicativo utilizando a tabela, enfim o que pode estar acontecendo? Ps: Até deletar os arquivos pdoxusrs.* / paradox.lck / paradox.net eu deletei. Preciso urgentemente solucionar este pepino. Agradeço imensamente quem puder ajudar. Abraços a todos. José de Moura -- < 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
Re: RES: [delphi-br] Como evitar '' is not a valid floating point value
Caro Rubem, boa noite! Agradeço muito pela ajuda, mas eu ja tinha tentado assim if Length(dbcAliquota.Text) > 0 then begin... só que ao tentar digitar 25,25 o segundo numero vai para o proximo campo sendo que o numero 2 fica no RXSpinEdit e o 5 vai para outro TEdit. Preciso firmar a digitação neste RXSpinEdit. Grande abraço e mais uma vez obrigado. José de Moura --- Em delphi-br@yahoogrupos.com.br, "Rubem Rocha" <[EMAIL PROTECTED]> escreveu > Ora, é só checar no evento se o tamanho do texto digitado no componente é maior que 0(zero)! > Simples! > > -----Mensagem original- > De: jmourajr2000 [mailto:[EMAIL PROTECTED] > Enviada em: quarta-feira, 26 de janeiro de 2005 16:50 > Para: delphi-br@yahoogrupos.com.br > Assunto: [delphi-br] Como evitar '' is not a valid floating point value > > > > > Caros amigos boa noite! > > Estou usando um RXSpinEdit e usando em sua propriedade value-type > como vtFloat (ou seja valores Float entre 1,00 e 100,00). > Estou trabalhando no evento onChange e se eu for digitar qualquer > numero me retorna a mensagem de erro: > > => '' is not a valid floating point value > > Pois necessito fazer com que o usuario possa digitar qualquer valor > float nesta faixa, como por exemplo: 35,25. > > Estou apanhando, alguem pode me ajudar. > > Desde ja obrigado e abraços. > > José de Moura > > > > > > > > -- > <<<<< 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 > > > > > > > > > > --- > Incoming mail is certified Virus Free. > Checked by AVG anti-virus system (http://www.grisoft.com). > Version: 6.0.799 / Virus Database: 543 - Release Date: 19/11/2004 -- <<<<< 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] Como evitar '' is not a valid floating point value
Caros amigos boa noite! Estou usando um RXSpinEdit e usando em sua propriedade value-type como vtFloat (ou seja valores Float entre 1,00 e 100,00). Estou trabalhando no evento onChange e se eu for digitar qualquer numero me retorna a mensagem de erro: => '' is not a valid floating point value Pois necessito fazer com que o usuario possa digitar qualquer valor float nesta faixa, como por exemplo: 35,25. Estou apanhando, alguem pode me ajudar. Desde ja obrigado e abraços. José de Moura -- < 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] Erro @EJL 1284.4 ao imprimir.
Caros amigos boa tarde! Alguem ja encontrou este erro: @EJL 1284.4 Isto esta ocorrendo ao mandar imprimir, por exemplo, uma NF em impressora matricial e isto ocorre nas 3 primeiras linhas do formulario, sendo que compromete as primeiras linha de instrução e o restante sai OK. O que pode estar acontecendo? Grande abraço a todos. José de Moura -- < 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] Re: SetFocus em celula do dbGrid...
Osmar, boa tarde!
Obrigado, mas nao funcionou.
Esta DbGrid é o retorno de uma consulta SQL e estou usando Delphi3
Abraços.
José de Moura
--- Em delphi-br@yahoogrupos.com.br, Osmar de Souza Júnior
<[EMAIL PROTECTED]> escreveu
>
>
> gride.SetActiveField('nome_do_campo');
>
>
> --- Em delphi-br@yahoogrupos.com.br, "jmourajr2000" <[EMAIL PROTECTED]>
> escreveu
> >
> > Caros maigos, boa tarde!
> >
> > Tenho um dbGrid com 8 colunas e necessito fazer com que o usuario
ao
> > clicar em um botao, o foco seja direcionado para a 4 coluna da
> > primeira linha do dbgrid.(A finalidade é para edição na tabela
> > somente neste campo).
> >
> > Como posso fazer isso? Alguem tem alguma sugestão?
> >
> > Obrigado pela atenção.
> >
> > Abraços a todos.
> >
> > José de Moura
--
<<<<< 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] Re: SetFocus em celula do dbGrid...
Catiúscia, boa tarde! Obrigado, mas nao funcionou. Esta DbGrid é o retorno de uma consulta SQL e estou usando Delphi3 Abraços. José de Moura --- Em delphi-br@yahoogrupos.com.br, Catiúscia Barrilli da Cruz <[EMAIL PROTECTED]> escreveu > dbGrid.SelectedIndex := número da coluna; > - Original Message - > From: jmourajr2000 > To: delphi-br@yahoogrupos.com.br > Sent: Friday, January 21, 2005 2:34 PM > Subject: [delphi-br] SetFocus em celula do dbGrid... > > > > Caros maigos, boa tarde! > > Tenho um dbGrid com 8 colunas e necessito fazer com que o usuario ao > clicar em um botao, o foco seja direcionado para a 4 coluna da > primeira linha do dbgrid.(A finalidade é para edição na tabela > somente neste campo). > > Como posso fazer isso? Alguem tem alguma sugestão? > > Obrigado pela atenção. > > Abraços a todos. > > José de Moura > > > > > > -- > <<<<< 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 <*> 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] SetFocus em celula do dbGrid...
Caros maigos, boa tarde! Tenho um dbGrid com 8 colunas e necessito fazer com que o usuario ao clicar em um botao, o foco seja direcionado para a 4 coluna da primeira linha do dbgrid.(A finalidade é para edição na tabela somente neste campo). Como posso fazer isso? Alguem tem alguma sugestão? Obrigado pela atenção. Abraços a todos. José de Moura -- < 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] Mudar de campo pelo tamanha do Edit
Esta dica foi passada pelo nosso amigo Márcio Theis e fui eu quem postei a duvida e então lá vai: Crie a seguinte procedure procedure TForm1.SaltaCampos(Sender: TObject); begin if (Length((Sender as TEdit).Text) = ((Sender as TEdit).MaxLength)) then Perform(WM_NEXTDLGCTL,0,0); end; depois ligue ela a todos os seus edit's através do OnChange, mas somente cuide, se vc estiver trabalhando com TDBEdit deve alterar na procedure onde tem os TEdit. Sendo assim vc tera somente um processo que fara tudo, sem a necessidade de terde colocar em todos os lugares os comandos. Abraços. José de Moura -- < 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] Como saltar campos automaticamente.
Caros amigos, boa tarde! É possivel fazer com que exista um salto automatico, entre campos, sendo que ao completar o "maxlenght" de um Edit ou DBEdit salte para o proximo campo, sem a interferencia das teclas Tab e Enter. Estou tentando assim, mas sem sucesso: if lenght(Edit1.Text) = 8 then Edit2.SetFocus; Agradeço pela atenção. Abraços a todos. José de Moura -- < 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] DBEdit - Autocompletar
Caros amigos, boa tarde! Como posso aplicar em um DBEdit um autocompletar, ou seja, quando o usuário for digitando um determinado nome ou alguns caracteres neste DBEdit, o mesmo se autocompleta como em um dbLookupComboBox. Agradeço a atenção de todos. José de Moura -- < 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
Re: [delphi-br] Consulta e Edição em um TDBGrid
Gabriel é isso ai garoto!!! Funcionou 100% Grande abraço José de Moura -- < 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] res: res: Gabriel Dimas - Consulta e Edição em um TDBGrid
Gabriel, boa tarde! O TUpdateSql rodou perfeito, justamente o que eu precisava. Mas deixe, se possivel, eu lhe perguntar uma coisa. Minha TUpdateSql ficou assim: update DETVEND set QTDPCS = :QTDPCS, VALICMS = :VALICMS, VALUNIT = :VALUNIT, VALTOT = :VALTOT where NPTCVEND = :OLD_NPTCVEND and CODPROD = :OLD_CODPROD Eu consigo de alguma forma atualizar automaticamente o campo Valor Total [VALTOT, que seria a multiplicação entre os valores de: QTDPCS * VALUNIT * (VALICMS/100)], aproveitando este mesmo updatesql? Agradeço imensamente pela sua valiosa ajuda. Grande Abraço. José de Moura Reis Jr. -- < 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] Consulta e Edição em um TDBGrid
Caros amigos, boa tarde! Tenho a seguinte situação: Um cadastro de Pedidos de Venda(com 2 tabelas: Pedido e Detalhe_Pedido), onde esta tudo rodando perfeito. Só que necessito fazer uma consulta e edição à tabela(Paradox) de Detalhe_Pedido(Valor Unitario, quantidade e etc...). Necessito que esta consulta e edição sejam feitas via TDBGrid. A consulta consigo fazer via SQL sem grandes problemas - OK Mas como faço para editar(Detalhe_pedido.Edit)no DBGrid, sendo que se chamar o DataSource da Tabela Detalhe_Pedido ela me mostrará todos os Pedidos colocados, sendo que, não é esta a intenção mas sim mostrar (visualizar no dbgrid) e editar um unico pedido como na consulta SQL. Agradeço desde já a atenção e a quem puder ajudar. Um execlente ano para todos e com muito sucesso. José de Moura Reis Junior -- < 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] ECF - Estou começando...
Boa tarde e muito prazer aos participantes da lista Delphi-br! Caros amigos, acredito ja ter sido amplamente discutido e apresentado algumas soluções para "ECF"(Emissão de Cupom Fiscal), mas, mesmo assim coloco que: não obtive muita sorte nas pesquisas que efetuei sobre o assunto. Como estou começando a desenvolver alguns aplicativos em Delphi, gostaria de alguma luz para que eu possa empregar em meus aplicativos a utilização de ECF. Perguntas: 1) Existe alguma biblioteca(livro; apostila; dll ...) especifica para tal? 2) As dlls que acompanham as impressoras fiscais servem somente para interface micro/printer? 3) Como emprego o ECF ao meu aplicativo? 4) É um bicho de sete cabeças? Agradeço de antemão a todos. Um abraço. José de Moura PS: Utilizo Delphi3. -- < 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
