Bom dia
Alguém já instalou este coletor USB no XP? Instalo o berço de comunicação,
porem quando vou passar a lista de dados ele dá erro?
Coletor de dados portáteis CPT 8000 ChiperLab
Elcio Domingos Ramos
Demag Cranes Components Ltda.
Depto. Informatica
Fone: xx (11) 2145-7929
Tinha este problema no SQL Server descobri que era o índice de chave primaria.
Usei a propriedade IndexFieldName do clienteDataset.
Elcio Domingos Ramos
Demag Cranes Components Ltda.
Depto. de Engenharia
Fone: xx (11) 2145-7823
[EMAIL PROTECTED]
www.demagcranes.com.br
. Isto é valido?
Já programei utilizando leitores de código de barras CCD ligados no teclado
para lerem fichas de producao, (achei muito pratico não precisa de driver não
precisa configurar nada no micro), nunca usei o serial. Existe alguma diferença
na instalação, programação etc?
Elcio Domingos
Provavelmente, o formato da data no banco foi gravado com 6 digitos
(dd/mm/yy) por isso 1907 tive este problema na conversão de uma base de
dados em 2001.
Tente pegar a data acessando o Campo DBEdit4.Field.asDateTime estou sem o
delphi aqui.
-Mensagem original-
De:
Durante uns testes que fiz hoje tive de incluir o DDI tente assim
[EMAIL PROTECTED]
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo
Enviada em: sexta-feira, 21 de setembro de 2007 11:46
Para: delphi-br@yahoogrupos.com.br
Tenho um colega que esta precisando de um software para farmácia.
Alguém tem algum pronto?
[As partes desta mensagem que não continham texto foram removidas]
Testa se a variável do inputBox e igual a '' (vazio) se for ele cancelou.
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de pcinfowave
Enviada em: segunda-feira, 14 de maio de 2007 13:04
Para: delphi-br@yahoogrupos.com.br
Assunto:
Já tive alguns problemas de gravação de CD. Foram solucionados com a
atualização da firmware.
Elcio Domingos Ramos
DEMAG Cranes Components Ltda.
www.demagcranes.com.br
[EMAIL PROTECTED]
Fone: 55 11 2145-7823
De: delphi-br@yahoogrupos.com.br
LO428,55,322,6
A022,171,0,2,1,1,N,CDL FRT DFW160
A428,171,0,2,1,1,N,CDL FRT DFW160
A022,193,0,2,2,2,N,ALM 1EA26
A428,193,0,2,2,2,N,ALM 1EA26
P1,01
}
Elcio Domingos Ramos
DEMAG Cranes Components Ltda.
www.demagcranes.com.br
[EMAIL PROTECTED]
Fone: 55
Não sei se é o seu caso no meu a tecla F10 aciona o Menu principal independente
da configuração.
mailto:[EMAIL PROTECTED] Elcio Domingos Ramos
DEMAG Cranes http://www.demagcranes.com.br/ Components Ltda.
Deptº Tempos Metodos.
Fone: (11)2145-7823 - Fax : (11)2145-7910
-Mensagem
Tenta assim
If TbSupSetor.State = dsEdit Then
...
Elcio Domingos Ramos
DEMAG Cranes Components Ltda.
Deptº Tempos Metodos.
Fone: (11)2145-7823 - Fax : (11)2145-7910
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Moked - Tamara (Brazil
Tenta assim.
if openDlgBD.execute then
begin
ArquivoSelfoto := trim(OpenDlgBD.FileName);
edpathfoto.Text := ExtractFilePath(OpenDlgBD.FileName);
end;
end;
Elcio Domingos Ramos
DEMAG Cranes Components Ltda.
Deptº Tempos Metodos.
Fone: (11)2145-7823 - Fax : (11
;
end;
end;
end;
Elcio Domingos Ramos
DEMAG Cranes Components Ltda.
Deptº Tempos Metodos.
Fone: (11)2145-7823 - Fax : (11)2145-7910
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de ArbSis
Enviada em: terça-feira, 29 de novembro de 2005 23:02
;
end;
AdjustTokenPrivileges(hToken, False, tkp,
sizeof(tpkNewButIgnored), tpkNewButIgnored, BufLen);
if not ExitWindowsEx(EWX_FORCE + EWX_POWEROFF, 0) then { POWEROFF }
ExitWindowsEx(EWX_FORCE + EWX_LOGOFF, 0); { LOGOFF }
Close;
end;
end;
Elcio Domingos Ramos
DEMAG
Bom Dia
Tenta assim DBEDITTOTAL.asString := DBEDITSUBTOTAL.DisplayText
Elcio Domingos Ramos
DEMAG Cranes Components Ltda.
Deptº Tempos Metodos.
Fone: (11)2145-7823 - Fax : (11)2145-7910
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Cristiano
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:[EMAIL PROTECTED]
nome de jmourajr2000
Enviada em: quarta-feira, 28 de setembro de 2005 22:04
Para: delphi-br@yahoogrupos.com.br
Elcio Domingos Ramos
[EMAIL PROTECTED]
Deptº Tempos e Metodos.
DEMAG Cranes Components Ltda.
Equipamentos de movimentação de carga.
Fone: (11) 2145-7823 Fax: (11) 2145-7910
-
[As partes desta mensagem que não continham texto
SEGURANCA
elcio Domingos Ramos
[EMAIL PROTECTED]
Deptº Tempos e Metodos.
DEMAG Cranes Components Ltda.
Equipamentos de movimentação de carga.
Fone: (11) 2145-7823 Fax: (11) 2145-7910
-
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA
Anexe a Imagem, Attachments.Add('c:\tagai.gif');
e coloque sem o C:\ src=tagai.gif
Elcio Domingos Ramos
[EMAIL PROTECTED]
Deptº Tempos e Metodos
DEMAG Cranes Components Ltda.
Equipamentos de movimentação de carga.
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto
Não sei se da certo no PostgreSQL 8 mas tente salvar como Arquivo texto.
Antes de Gravar RichEdit1.PlainText := True
Elcio Domingos Ramos
[EMAIL PROTECTED]
Deptº Tempos e Metodos
DEMAG Cranes Components Ltda.
Equipamentos de movimentação de carga.
-Mensagem original-
De: delphi-br
= '
+ QuotedStr(descricao.Text) + ' or A.COD_PRODUTO ='
+ QuotedStr(cod_produto.Text) + ') and A.COD_FORNECEDOR =
C.COD_FORNECEDOR';
Elcio Domingos Ramos mailto:[EMAIL PROTECTED]
DEMAG Cranes Components Ltda.
Planejamento Industrial
Fone: (11)2145-7823 - Fax : (11)2145-7910
E ai tudo bem
Vê se este exemplo lhe serve
http://www.swissdelphicenter.ch/en/showcode.php?id=716
Outra forma se possível e colocar a impressora compartilhada em rede e
acessa-la pela \\Servidor\Impressora USB
Elcio Domingos Ramos mailto:[EMAIL PROTECTED]
DEMAG Cranes Components Ltda
= 'B6') or (Tag = 'B7') or
(Tag = 'B8') or (Tag = 'B9') then
begin
Exit;
end;
end;
end;
end;
Elcio Domingos Ramos mailto:[EMAIL PROTECTED]
DEMAG Cranes Components Ltda.
Planejamento Industrial
Fone: (11)2145-7823 - Fax : (11)2145-7910
-Mensagem original
Vê se isto lhe atende
http://www.swissdelphicenter.ch/en/showcode.php?id=716
Elcio Domingos Ramos mailto:[EMAIL PROTECTED]
DEMAG Cranes Components Ltda.
Planejamento Industrial
Fone: (11)2145-7823 - Fax : (11)2145-7910
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto
(Receip.lpszName) then
StrDispose(Receip.lpszName);
MapiLogOff(MAPI_Session, Handle, 0, 0);
end;
end;
Elcio Domingos Ramos mailto:[EMAIL PROTECTED]
DEMAG Cranes Components Ltda.
Planejamento Industrial
Fone: (11)2145-7823 - Fax : (11)2145-7910
[As partes desta mensagem que não
.
Alguém já passou por isso ou sabe de algum componente FREE que eu possa usar
para este protocolo?
Elcio Domingos Ramos mailto:[EMAIL PROTECTED]
DEMAG Cranes Components Ltda.
Planejamento Industrial
Fone: (11)2145-7823 - Fax : (11)2145-7910
[As partes desta mensagem que não continham texto
Boa tarde galera
Criei uma rotina com componentes Indy para enviar E-Mail.
Bom para E-Mails internos na empresa funciona beleza, mas quando tento enviar
um E-mail externo me vem a mensagem 550 5.7.1 UNABLE TO RELAY FOR [EMAIL
PROTECTED]
Alguém já passou por isso?
Elcio Domingos Ramos
Bom dia Walter
Uso este comando no SQL Server para verificar se um determinado horário esta
entre dois horários no caso Data + Hora
SELECT * FROM Calendário WHERE DATA_INICIO = :DATA_INICIO AND DATA_FIM =
:DATA_FIM
Elcio Domingos Ramos mailto:[EMAIL PROTECTED]
DEMAG Cranes
;
//inicializa as variaveis de configuração do novo parametro
with ModuloDados.DataModulePrototipo.ADOQuery1.Parameters.Items[0] do
begin
DataType := ftInteger;
Direction := pdInput;
name:= 'id';
Value:= idCartao;
end;
Elcio Domingos Ramos mailto:[EMAIL PROTECTED]
DEMAG
Acessa
Aqui na lista eu já vi comentários sobre o assunto e ate algumas dicas.
Elcio Domingos Ramos mailto:[EMAIL PROTECTED]
DEMAG Cranes Components Ltda.
Planejamento Industrial
Fone: (11)2145-7823 - Fax : (11)2145-7910
-Mensagem original-
De: Geraldo Rego [mailto:[EMAIL
pasta especifica.
Desde já agradeço a atenção
Elcio Domingos Ramos mailto:[EMAIL PROTECTED]
DEMAG Cranes Components Ltda.
Planejamento Industrial
Fone: (11)2145-7823 - Fax : (11)2145-7910
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE
Altere a propriedade ListField com os campos separando com ;
Ex. Campo1;Campo2
Altere a Propriedade DropDownWidth para um numero onde apareça os dois campos
Ex. 200
Obs. Se não me engano so aparece quando é aberto a lista.
Qq coisa e-mail
Elcio Domingos Ramos mailto:[EMAIL PROTECTED
Crie um arquivo com a extensão Mostrar área de trabalho.scf
Inclua as linhas abaixo
[Shell]
Command=2
IconFile=explorer.exe,3
[Taskbar]
Command=ToggleDesktop
Elcio Domingos Ramos mailto:[EMAIL PROTECTED]
DEMAG Cranes Components Ltda.
Planejamento Industrial
Fone: (11)2145-7823 - Fax
if not cdsFuncionario.Locate(DiaSemana, DayOfWeek(Aponta.Dia), []) then
raise Exception.Create('Dia da semana não cadastrado');
Elcio Domingos Ramos mailto:[EMAIL PROTECTED]
DEMAG Cranes Components Ltda.
Planejamento Industrial
Fone: (11)4615-7823 - Fax : (11)4615-7910
Verifique a propiedade State do DataSource
DBgrid.DataSource.State
Você pode controlar via TDataSource no evento onStateChange
Elcio Domingos Ramos mailto:[EMAIL PROTECTED]
DEMAG Cranes Components Ltda.
Planejamento Industrial
Fone: (11)4615-7823 - Fax : (11)4615-7910
-Mensagem
No sei se o seu caso, mas minhas impressoras so mapeadas, gero os
comandos em arquivos TXT e depois envio direto para a impressora usando
AssignFile( MyImpressora, \\Servidor\NomeCompartilhado)
...
writeLn( MyImpressora, ...)
Elcio Domingos Ramos mailto:[EMAIL PROTECTED]
DEMAG Cranes
Uso esta, descupe-me por falta de comentários e uma parte do meu código
Application.OnMessage = eventosMessage;
procedure TfrmPrincipal.eventosMessage(var Msg: tagMSG; var Handled: Boolean);
var
ONumero: SmallInt;
begin
inherited;
case MSg.message of //Torcar por Seta para Cima e
Boa Tarde Walter
Uso esta rotina no evento oncreate do FORM PRINCIPAL pois minha aplicação é
MDI.
Tirei esta rotina do Site Delphi.About -
http://delphi.about.com/cs/adptips2002/a/bltip1102_3.htm
Elcio Domingos Ramos mailto:[EMAIL PROTECTED]
DEMAG Cranes Components Ltda.
Planejamento
Estou usando a dica abaixo do www.delphi.eti.br http://www.delphi.eti.br/
voce precisa se cadastrar
Cria um arquivo com os comandos e depois usa o exemplo.
::: Impressão direto pra porta (lpt, usb) :::
http://www.delphi.eti.br/ver_dica.php?id=801
Elcio Domingos Ramos mailto:[EMAIL
problemas.
Estou tentando adaptar a PROCEDURE abaixo para ver se consigo.
Elcio Domingos Ramos mailto:[EMAIL PROTECTED]
DEMAG Cranes Components Ltda.
Planejamento Industrial
Fone: (11)4615-7823 - Fax : (11)4615-7910
-Mensagem original-
De: Rubem Rocha [mailto:[EMAIL PROTECTED]
Enviada em
posto uma
mensagem se funciona ou não.
Sei que localmente eu Uso assignFile( Impressora, \\Micro\Impressora
file://Micro/Impressora USB) e Funciona perfeitamente.
Ate Amanha
Elcio Domingos Ramos mailto:[EMAIL PROTECTED]
DEMAG Cranes Components Ltda.
Planejamento Industrial
Fone: (11)4615
Como faço para enviar dados para a porta USB001.
Uso assignFile(Imprimi, 'LTP1')
Tentei fazer a mesma coisa com USB001 mas não deu certo.
Já vi este assunto por aqui mas. Não tenho acesso ao site do yahoo aqui na
empresa.
Elcio Domingos Ramos mailto:[EMAIL PROTECTED]
DEMAG Cranes
Edit1.onchange = nil.
Edit1.OnChange = Edit1OnChange;
Elcio Domingos Ramos
[EMAIL PROTECTED]
Deptº Tempos e Metodos
DEMAG Cranes Components Ltda.
Equipamentos de movimentação de carga.
-Mensagem original-
De: Licerio Neto [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 2 de
Na rede eu uso assim
AssignFile( IMPRESSORA, \\Delphi\ZEBRAGSU )
Rewrite( IMPRESSORA)
Elcio Domingos Ramos
[EMAIL PROTECTED]
Deptº Tempos e Metodos
DEMAG Cranes Components Ltda.
Equipamentos de movimentação de carga.
-Mensagem original-
De: Licerio Neto [mailto:[EMAIL PROTECTED
44 matches
Mail list logo