Dangelo2010

@Daniel InfoCotidiano, não foi feito nada la, continua como sempre estava, o driver e o mesmo, maquina nao foi formatada e em outras portas ele ja tinha trocado e continua todas do mesmo jeito Tem algum testador de porta COM?

Então @Daniel InfoCotidiano, lá ele usa um cabo conversor. Eu falei para o cliente iniciar a maquina e esperar um pouco antes de abrir o sistema, mais ele disse que antigamente não ocorria isso. A maquina dele não foi feito nenhuma formatação nem nada, somente do nada ele disse que acontece isso

Boa tarde! Tem uma maquina que quando vai pesar na balança o sistema nao consegue dando mensagem de erro pois nao conseque comunicar com a balança e tem que reiniciar a maquina. O cliente liga a maquina, abre o sistema, e no primeiro peso ja da a mensagem de erro e tem que reiniciar a maquina, e passa o dia todo tranquilo. Porem isso tem que ser feito todos os dias. O que posso fazer para mudar isso?

Boa noite! Só para comunicar aqui para vocês que deu certo, retirei tudo que tinha como application.onexception e applicationevents e hoje sistema hoje não fechou sozinho mais Muito obrigado @Renato Rubinho, @Juliomar Marchetti

Vou retirar então Se der certo posto aqui Obrigado!

Eu tenho mais não nessa tela Primeiro teste que faço o sistema já cai procedure TFPDV_Z.EBarrasKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Begin Case Key Of VK_RETURN : Begin SQLConsultaProduto.Cancel; SQLConsultaProduto.Close; CDSConsultaProduto.Close; CDSConsultaProduto.Fields.Clear; CDSConsultaProduto.FieldDefs.Clear; CDSConsultaProduto.Filtered := False; CDSConsultaProduto.IndexFieldNames := EmptyStr; CDSConsultaProduto.IndexName := EmptyStr; CDSConsultaProduto.CommandText := 'SELECT ' + ' DESCRICAO, ' + ' COD_PRODUTO, ' + ' EAN_TRIBUTADO ' + 'FROM PRODUTO ' + 'WHERE COD_EMPRESA = :sCOD_EMPRESA ' + 'AND EAN_TRIBUTADO = :sEAN_TRIBUTADO '; CDSConsultaProduto.ParamByName('sCOD_EMPRESA').AsInteger := Modulo.EmpCodEmpresa; CDSConsultaProduto.ParamByName('sEAN_TRIBUTADO').AsString := EBarras.Text; CDSConsultaProduto.Open; Try If CDSConsultaProduto.RecordCount > 0 Then Begin sCodProduto := CDSConsultaProduto.FieldByName('COD_PRODUTO').AsInteger; ENomeProduto.Caption := CDSConsultaProduto.FieldByName('DESCRICAO').AsString; End Else Begin EBarras.SetFocus; Raise Exception.Create('Produto não localizado.'); End; Except EBarras.SetFocus; Raise Exception.Create('Produto não localizado.'); End; End; End;

@Renato Rubinho, explica por favor A função do Abort não vai só parar ou ela pode fazer algo mais? Entendi, agora caiu a ficha. Vou mudar isso

Boa tarde! Tenho um problema que não consigo resolver e gostaria de uma ajuda. Estou usando Delphi 11, Windows 10, conexão FIREBIRD 4.0 com conexão TSQLConnection Estou fazendo uma consulta simples para trazer um determinado produto ao bipar no leitor de barras, porem, quando o produto não tem cadastro ele mim informa "Produto não localizado". Até ai tudo bem, porem muitas vezes quando recebo essa mensagem o sistema fecha sozinho do nada, sem mensagem de erro ou "Produto não localizado", isso usando Leitor de Barras, e pode ser qualquer modelo que da o mesmo problema e produtos diferentes ate mesmo com maquinas diferentes. Não são todas as vezes mais acontece. Se digitar o código de barras no campo ele da a mensagem sem nenhum problema, somente quando bipa no leitor que as vezes ocorre do sistema fechar. Estou fazendo assim procedure TFPDV_Z.EBarrasKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Begin Case Key Of VK_RETURN : Begin SQLConsultaProduto.Cancel; SQLConsultaProduto.Close; CDSConsultaProduto.Close; CDSConsultaProduto.Fields.Clear; CDSConsultaProduto.FieldDefs.Clear; CDSConsultaProduto.Filtered := False; CDSConsultaProduto.IndexFieldNames := EmptyStr; CDSConsultaProduto.IndexName := EmptyStr; CDSConsultaProduto.CommandText := 'SELECT ' + ' DESCRICAO, ' + ' COD_PRODUTO, ' + ' EAN_TRIBUTADO ' + 'FROM PRODUTO ' + 'WHERE COD_EMPRESA = :sCOD_EMPRESA ' + 'AND EAN_TRIBUTADO = :sEAN_TRIBUTADO '; CDSConsultaProduto.ParamByName('sCOD_EMPRESA').AsInteger := Modulo.EmpCodEmpresa; CDSConsultaProduto.ParamByName('sEAN_TRIBUTADO').AsString := EBarras.Text; CDSConsultaProduto.Open; If CDSConsultaProduto.RecordCount = 0 Then Begin Application.MessageBox('Produto não localizado.', 'A T E N Ç Ã O', MB_OK + MB_ICONWARNING); EBarras.SetFocus; Abort; End; End; End;

Boa noite! Também tive o mesmo problema em varias maquinas Solução: Desinstala e instala novamente

@Juliana Tamizou Sem problemas Obrigado!

Bom dia! O que eu faço aqui e o seguinte Uso a mesma tabela de vendas é uma tabela separada para balanço. No decorrer do tempo realmente fica longo, mais com a tabela de balanço caso o cliente faça pelo menos um balanço no ano você faz os cálculos a partir do ultimo balanço. Caso você tenha clientes que nunca fizeram um balanço na vida pode ficar pesado, mais ai tem uma dica onde você pode colocar o seu sistema para fazer o balanço automático pegando as entradas e diminuindo as saídas da tabela de vendas e você monta o saldo na tabela de balanço

Sim Muito obrigado!

Você faz consulta constante do código Gtin? se sim, esse também e um problema que tive no caso de bloqueio se fizer muita consulta do Gtin ao consultar as notas destinadas sempre vem a mensagem de consumo indevido e isso já fizemos o teste em duas empresas onde eles tiveram o certificado digital vencido e renovaram, nós mesmo baixamos o certificado e não passamos para o contador até finalizamos os testes, pois achamos que ele estava consultando as notas destinadas. Em uma das empresas consultamos as notas normalmente, mais na outra consultamos 25 Gtin e já veio consumo indevido

Valeu!

Boa ideia Tem como passar esse link da SERPRO?

Boa tarde! Tive esse mesmo problema na quinta feira porem ao tentar na sexta estava normal

No ACBrBAL tem isso?

Onde fica esse ControlePorta? Não achei

Bom dia! Na unit ACBrBoletoRet_Inter_API existe um conflito na linha 385 - ListaRetorno.DadosRet.TituloRet.ValorPago := AJSonObject.Values['valorTotalRecebimento'].AsNumber; e a linha 471 - ListaRetorno.DadosRet.TituloRet.ValorPago := AJSonObject.Values['valorNominal'].AsNumber; Quando o titulo está pago ele recebe o mesmo valor do titulo e não o valor que recebeu com multa e juros

Bom dia! também estou com esse problema no postmam eu gero o access_token de boa porem ao gerar o authorization recebo esse mesmo erro a documentação deles esta meio confusa, pois na pagina 19 fala dos endpoint porem na pagina 26 tem outros endpont

Boa tarde! Tem uma empresa que sempre que abre a gaveta a impressora fica cheia com documentos para ser impresso, achei isso estranho, porem isso ocorre sempre quando abre a gaveta, ai de repente ela trava, não imprimi nada e nem abre mais a gaveta, porem tenho que limpar esses dados como poderia resolver isso?

Obrigado!

@Wallace Oliveira Bom dia! Você tem a documentação da Stone? Estou querendo integrar também

Não resolve vou usar o SpeedButton para não dar um SetFocus depois do PIX ou no PIX eu travar o enter do teclado, fazendo com que o usuário click com o mouse no botão Fechar Venda. Assim eu resolvo o problema do apressadinho. Porque o cara e tão rápido que mesmo eu dando um Enabled := False No inicio do Click ainda sim e como se ele tivesse clicando no botão unas 30 vezes. Ai o botão entra num loop ate finalizar os clicks

O usuário informa o valor em dinheiro 1,25 e "Tecla Enter" vai para o Cartão de Crédito Depois ele informa o valor do cartão de crédito 2,50. Ao invés dele teclar enter para ir para cartão de débito e depois enter para ir para o PIX, e enter para ativar o onclick do botão Fecha Venda, ele simplesmente informa os 2,50 do cartão de credito e segura o enter no teclado. Quando chega no onclick do botão eu dou um enabled false, porem segurar a tecla enter e tão rápido que passa para o click vários enter, pois ele segurou a tecla