
bnobre
Membros Pro-
Total de ítens
1.502 -
Registro em
-
Última visita
-
Days Won
4
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Tudo que bnobre postou
-
Dados de produto pelo código de barras
um tópico no fórum postou bnobre Object Pascal - Delphi & Lazarus
Olá a todos, Ouvi um comentário de um cliente, comentário do qual outros dois clientes já tinham feito. Eles falaram que tinham um aplicativo onde no cadastro de um produto novo informavam o código de barras do mesmo e com isso o aplicativo preenchia automaticamente dados como DESCRIÇÃO e UNIDADE. Achei muito interessante, dado a economia de tempo que se ganharia no cadastro. O amigo BigWings comentou em um outro tópico que existem serviços pagos com essa finalidade. Gostaria de saber de quem usa ou tem tal função em sua aplicação: Quais serviços vocês usam? Gratuitos ou Pagos? Só dá pra fazer online através desses serviços ou alguém possui uma base com tais informações? Desde já agradeço a atenção de todos -
Olá a todos, Hoje ouvi um comentário de um cliente, comentário do qual outros dois clientes já tinham feito. Eles falaram que tinham um aplicativo onde no cadastro de um produto novo informavam o código de barras do mesmo e com isso o aplicativo preenchia automaticamente dados como DESCRIÇÃO e UNIDADE. Achei muito interessante, dado a economia de tempo que se ganharia no cadastro, mas não achei nada a respeito na internet. Existe algum componente no ACBr que faça isso? Se não, alguém sabe do que se trata e como posso implantar tal função em minha aplicação? Desde já agradeço a atenção de todos
-
Olá a todos, Atualmente em minhas aplicações chamo o TeamViewer através do comando abaixo: ShellExecute(handle, nil, Pchar(GetEnvVarValue('ProgramFiles') + '\TeamViewer\TeamViewer.exe'),nil,nil, SW_SHOWNORMAL); E com isso vou fazendo a minha assistência remota. A questão é... Alguém possui alguma solução própria no Delphi para acesso remoto e suporte em suas aplicações? Desde já agradeço a atenção de todos
-
Olá EMBarbosa, Consegui o código para Delphi, segue link abaixo: http://www.swissdelphicenter.ch/en/showcode.php?id=108 PS: Usei a procedure RefreshDesktop1.
-
Inserir texto Memo X Posição Cursor
bnobre replied to bnobre's tópico in Object Pascal - Delphi & Lazarus
Passou despercebido BigWings... Valeu mesmo. -
Inserir texto Memo X Posição Cursor
bnobre replied to bnobre's tópico in Object Pascal - Delphi & Lazarus
... -
Inserir texto Memo X Posição Cursor
um tópico no fórum postou bnobre Object Pascal - Delphi & Lazarus
Olá a todos, Tenho um Memo onde o usuário escreve mensagens pré-definidas que irão aparecer como informações de uma NFe. Clicando com o botão direito no Memo, surgi um PopupMenu onde ele pode escolher várias opções (em anexo). Cada opção vai preenchendo valores como <total_icmstot_vbc>, <total_icmstot_vicms>, etc. Ideia sugerida pelo Régys em http://www.projetoacbr.com.br/forum/topic/27516-informações-complementares-nfe/#comment-179950 O problema é que eu preciso que esse valores sejam inseridos na posição que o cursor estiver no Memo. Eu usei o código em https://forum.imasters.com.br/topic/233345-inserir-texto-no-memo-onde-o-cursor-do-mouse-estiver-posicionado/ var pos: Shortint; str, code: string; begin Code:= '<% response.write left("teste",2) %>'; pos:= Memo1.SelStart; str:= Copy(Memo1.Lines.Text,1,Pos); str:= str + Code; str:= str + Copy(Memo1.Lines.Text,Pos+1,Length(Memo1.Lines.Text)); Memo1.Clear; Memo1.Lines.Add(str); end; Ele funciona até uma determinada quantidade de palavras, depois pára de funcionar. Desde já agradeço a atenção de todos. -
Olá a todos, Uso MySQL e uso um ZQuery chamado "z_formulas" exclusivamente para apagar todos os registros de uma tabela que possuo com o nome TBL_NCM, através do seguinte comando: TRUNCATE TBL_NCM; Mas eu já possuo um ZQuery chamado "z_ncm" vinculado a um ZUpdateSQL para fazer inserções e atualizações nessa tabela. Quero saber se existe alguma função nesse "z_ncm" para que eu possa apagar todos os registros da tabela diretamente por ele. Desde já agradeço a atenção de todos
-
Nossa... na verdade é muito simples, que pena que demorei tanto tempo para achar a resposta. Basta usar parâmetros e deixar o componente cuidar do resto. dtm_banco.z_formulas.SQL.Text := 'UPDATE TBL_NFCEVENDAS SET xml = :xml WHERE id_nfcevendas = :id'; dtm_banco.z_formulas.ParamByName('xml').AsString := mem_xml.Text; dtm_banco.z_formulas.ParamByName('id').AsString := IntToStr(id); dtm_banco.z_formulas.ExecSQL; No ZUpdateSQL aparentemente se usa parâmetros também, só nunca soube como codificar, mas pelo visto é assim já que funcionou. Abraços a todos
-
Ok, mas basicamente todas as linguagens de banco de dados possuem caracteres especiais, como a SQL por exemplo. Na que você utiliza também deve ter. Como trata esse tipo de "necessidade" em seus códigos?
-
Um detalhe, quando programava em PHP usava para isso a função mysql_escape da própria linguagem. Se tivesse algo igual para o Delphi seria perfeito.
-
Olá a todos, Eu possuo uma ZQuery com um ZUpdateSQL, especificamente para gravar arquivos XMLs em uma tabela MySQL. Mas na verdade eu queria fazer direto com um comando "UPDATE TABELA SET" sem o uso do ZUpdateSQL, o problema é que tenho receio de surgirem caracteres especiais no XML, como apostrofos por exemplo que o MySQL não reconhece sem a barra invertida antes. Gravando pela ZQuery com o auxilio do ZUpdateSQL eu não tenho problemas, o componente trata isso automaticamente. Alguma dica para que eu possa fazer isso direto (sem o ZUpdateSQL) escapando os caracteres especiais? Desde já agradeço a atenção de todos
-
Olá... Poderia me informar onde baixar esse manual 4.0?
-
Olá a todos, Uso o delphi 2010 e em minha aplicação eu crio um arquivo de texto através de uma variável TextFile, salvando o mesmo no Desktop. O problema é que o arquivo nunca aparece, sempre tenho que clicar com o botão direito sobre o desktop, ir em ATUALIZAR e aí sim visualizo o mesmo. Já testei em dezenas de clientes e a mesma coisa ocorre. Existe algum comando no Delphi que eu possa executar para FORÇAR essa atualização? Desde já agradeço a atenção de todos
-
Olá meu amigo, Também estou trabalhando dessa forma, mas sabe como é usuário, o quanto puder facilitar melhor é PRA GENTE. O ideal mesmo seria que essa atualização não fosse manual conforme a necessidade, e sim automática, por exemplo: NCM 00000001 Expirou e foi substituido por 00000002, então eu já trocaria isso para o usuário, automaticamente. Mas por hora, estou fazendo como você. De qualquer forma agradeço a dica de todos
-
Bom dia a todos, Estou começando a ter clientes ligando com falha no envio de NFCe por problemas de NCM expirado. Aí o cliente tem que pesquisar o novo NCM na web, sempre que der erro e atualizar manualmente. Existe alguma tabela que além de dizer os NCMs expirados, informe também os que irão substituir o mesmo? Pois assim poderíamos automatizar tal transição de NCMs, do velho para o novo. Desde já agradeço a atenção de todos
-
Problema com variável tipo Double
bnobre replied to bnobre's tópico in Object Pascal - Delphi & Lazarus
Daniel, pelo que acompanhei no artigo todos os tipos do Delphi para armazenamento de números decimais tem essa peculiaridade, Double, Currency, etc. É isso mesmo ou teria algum tipo específico ou mais aconselhável para ser usado nesse caso e me livrar de ter que arredondar? -
Problema com variável tipo Double
bnobre replied to bnobre's tópico in Object Pascal - Delphi & Lazarus
Olá EMBarbosa, estava lendo o artigo, bem completo e um tanto complexo Pelo que pude entender, essa variável Double por motivos internos do Delphi acabou recebendo o valor de 32,29999999999999715852294635, mais ou menos. Como forma de contornar isso, entendi que devem ser aplicados arredondamentos, entendi corretamente? Desde já agradeço a atenção de todos -
Problema com variável tipo Double
bnobre replied to bnobre's tópico in Object Pascal - Delphi & Lazarus
Obrigado pela dica Daniel, Mas se eu atribui "32.3" a variável Double, mesmo não limitando a 4 casas, como 32.3 - 32,3 resulta em -2,84147705365001E-15? Desde já agradeço a sua atenção -
Olá a todos, uso o Delphi 2010 e reparei um pequeno problema em minha aplicação. Observem o código abaixo como exemplo: procedure Tfrm_nfce_pdv_fechamento.btn_finalizarnClick(Sender: TObject); var credito: Double begin credito := 32.3; ShowMessage(FloatToStr(credito - 32.3)); end; Ao invés de exibir o valor ZERO, recebo um valor absurdo, -2,84147705365001E-15. Mas se eu declarar a variável "credito" como sendo Currency, o resultado aparece ZERO, como deveria ser. Porque esse comportamento com a variável do tipo Double? Desde já agradeço a atenção de todos
-
Olá a todos, No porta da SEFAZ do RJ existe o seguinte texto: Na prática o que isso quer dizer? Quem usa ECF terá que obrigatoriamente migrar para o NFCe? Desde já agradeço a atenção de todos
-
Perfeito Daniel, Mas uma vez muito obrigado.
-
Olá a todos, Estou com um problema. Possuo uma tela de fechamento de venda, com alguns JvCalcEdits para preenchimento da forma de pagamento, Dinheiro, Cartão, dentre outros, conforme anexo. Preciso navegar entre os JvCalcEdits (biblioteca Jedi atualizada) usando as teclas direcionais, então basicamente fiz o código abaixo, no evento OnKeyDown: O problema é que o foco vai para o componente em questão (como deve ser) e depois simplesmente volta para o calc2, sem mais nem menos. Isso também ocorre com o TCurrencyEdit (antigo RxLibrary). Uso o Delphi 2010. Com o TEdit tradicional do Delphi funciona sem problemas. Alguém saberia como contornar isso? Desde já agradeço a atenção de todos
-
Travando decimais em JvValidateEdit ou similar
bnobre replied to bnobre's tópico in Object Pascal - Delphi & Lazarus
Olá Marcelnl, tudo bom? Desculpe a demora, ficou perfeito a sua dica. Obrigado mesmo -
Muito obrigado meu amigo, ficou perfeito.