Dangelo2010
Membros Pro-
Total de ítens
585 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Tudo que Dangelo2010 postou
-
Sistema fecha ao bipar produto no leitor de barras
Dangelo2010 replied to Dangelo2010's tópico in Dúvidas não relacionadas ao ACBr
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 -
Sistema fecha ao bipar produto no leitor de barras
Dangelo2010 replied to Dangelo2010's tópico in Dúvidas não relacionadas ao ACBr
Vou retirar então Se der certo posto aqui Obrigado! -
Sistema fecha ao bipar produto no leitor de barras
Dangelo2010 replied to Dangelo2010's tópico in Dúvidas não relacionadas ao ACBr
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; -
Sistema fecha ao bipar produto no leitor de barras
Dangelo2010 replied to Dangelo2010's tópico in Dúvidas não relacionadas ao ACBr
@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 -
Sistema fecha ao bipar produto no leitor de barras
um tópico no fórum postou Dangelo2010 Dúvidas não relacionadas ao ACBr
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; -
Obrigado
-
Boa tarde! Ao validar a nota fiscal o mesmo retorna mensagem de erros com acentos estranhos. Como resolver?
-
Boa noite! Também tive o mesmo problema em varias maquinas Solução: Desinstala e instala novamente
-
Sim respondido Obrigado!
-
Bom dia! tenho um pinped da Gertec PPC930 porem faz muito tempo que não ligo ele, porem ao ligar hoje estou com a seguinte mensagem AP BLOCKED
-
@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
-
Time Out - Cupom Fiscal Goias/GO
Dangelo2010 replied to Dangelo2010's tópico in DFe - Documentos Fiscais Eletrônicos
É em todos os clientes que tentam emitir para GO ou somente neste cliente? R: Somente esté, do nada parou É só nesta máquina em específico ou em todas deste cliente? R: Ele so tem um notebook A URL é acessível por outros meios? (Se clicar para abrir ela no navegador mesmo, por exemplo. R: Onde encontro essa URL? Existe outro link de internet que possa ser usado para teste? R: Não existe Existe proxy a ser configurado na rede? R: Não existe proxy Foi como falei, do nada ele parou de validar, ontem validou tudo normalmente -
Time Out - Cupom Fiscal Goias/GO
um tópico no fórum postou Dangelo2010 DFe - Documentos Fiscais Eletrônicos
Boa tarde! Uma empresa ao tentar validar os cupons hoje não mais consegue pois esta dando time out, a sefaz não esta em contingencia, a maquina tem internet normal porem hoje amanheceu assim Está usando Windows 10 e já ate verificamos se esta atualizado e também as dll da OpenSSL estão atualizadas, porem hoje não valida Alguma dica? -
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?
-
Inutilizar - Elemento cteCabecMsg inexistente no SOAP Header
um tópico no fórum postou Dangelo2010 DFe - Documentos Fiscais Eletrônicos
Bom dia! Estou inutilizando uma CTe porem recebo a mensagem Elemento cteCabecMsg inexistente no SOAP Header já configurei para versão 4.0 e também substitui os schemas -
Obrigado !
-
Boa tarde! Estou passando um produto no leitor de código de barras, porem queria que quando o produto não estivesse cadastro mim desse um beep para que o usuário possa escutar e ver que tem algo errado E possivel isso?
-
Consulta Distribuição DFe - Goiás
Dangelo2010 replied to Dangelo2010's tópico in DFe - Documentos Fiscais Eletrônicos
@Alexandre de Paula, obrigado! já enviei um e-mail para o fale conosco e para ouvidoria ontem, mais tive resposta ate o momento