Edevair Viesa Junior

Desculpe escrevi errado, mesmo com o WaitOnLock = False; E o mais engraçado é que tenho 13 clientes deste mesmo sistema e só em duas lojas acontece isso, nas outras funciona perfeitamente... E pendei que poderia ser alguma configuração do firebird, mas não é pq trago o banco para ambiente de desenvolvimento aqui na empresa e acontece a mesma coisa..

Boa tarde. Voltou a travar do nada novamente quando dá erro... No caso é um erro de cave primária e trava quando tenta dar um insert, mesmo com o WaitOnLocks = True Alguma outra idéia do que pode ser ?

@EMBarbosa perfeito, era exatamento isso nos parâmetros de configuração eu uso um ini e estava assim : Bastou mudar o WaitOnLocks para False que apresentou o erro... Muito obrigado !!! Abs

Show, vivendo e aprendendo, vou testar e retorno. Muito Obrigado !

Obrigado por responder @EMBarbosa Estou usando firebird, porém até pouco tempo isso não ocorria, como configuro este "no wait" ? E mais uma ainda, como configuro o time out da uma transaction ?

Estou com um problema muito estranho, eu envio um sql para o uma TSQLQuery, o insert está com erro, pois vai duplicar a chave primária da tabela, porém o erro não retorna, simplesmente trava a aplicação. Segue trecho do código : try v_query := TSQLQuery.Create(nil); v_query.SQLConnection := l_Banco; v_provider := TDataSetProvider.Create(nil); v_provider.DataSet := v_query; v_client := TClientDataSet.Create(nil); v_client.SetProvider(v_provider); FormatSettings.DecimalSeparator := '.'; FormatSettings.ThousandSeparator := ','; try v_desc.TransactionID := 1; v_desc.IsolationLevel := xilREADCOMMITTED; l_banco.StartTransaction(v_desc); try v_query.DisableControls; if v_query.Active then v_query.Close; if v_client.Active then v_client.Close; v_query.SQL.Clear; v_query.SQL.Add(l_sql); try v_query.ExecSQL; //// AQUI TRAVA A APLICAÇÃO QUANDO DÁ ERRO except on E:Exception do begin l_banco.Rollback(v_desc); Result := False; P_Message_Error(E.Message, l_sql, l_msg); l_msg_erro := E.Message+#13#10+#13#10+l_sql+#13#10+#13#10+'Origem : '+l_local_origem_erro; if g_envia_email_f_grava_suporte = 'S' then begin F_Envia_Email_Suporte(E.Message+#13#10+#13#10+l_sql+#13#10+#13#10+'Origem : '+l_local_origem_erro, 'Erro no F_Grava_Dbx'); end; end; end; if v_query.RowsAffected > 0 then Result := True else Result := False; l_banco.Commit(v_desc); except on E:Exception do begin l_banco.Rollback(v_desc); Result := False; P_Message_Error(E.Message, l_sql, l_msg); l_msg_erro := E.Message+#13#10+#13#10+l_sql+#13#10+#13#10+'Origem : '+l_local_origem_erro; if g_envia_email_f_grava_suporte = 'S' then begin F_Envia_Email_Suporte(E.Message+#13#10+#13#10+l_sql+#13#10+#13#10+'Origem : '+l_local_origem_erro, 'Erro no F_Grava_Dbx'); end; end; end; except on E:Exception do begin P_Message_Error(E.Message, l_sql, l_msg); l_msg_erro := E.Message+#13#10+#13#10+l_sql+#13#10+#13#10+'Origem : '+l_local_origem_erro; if g_envia_email_f_grava_suporte = 'S' then begin F_Envia_Email_Suporte('Erro Genérico no F_Grava_Dbx !'+#13#10+#13#10+ E.Message+#13#10+#13#10+l_sql+#13#10+#13#10+'Origem : '+l_local_origem_erro, 'Erro no F_Grava_Dbx'); end; Result := False; end; end; if Result and (g_usa_web = 'S') and l_gera_script then begin F_Insere_Script_Web(l_sql); end; finally FormatSettings.DecimalSeparator := g_decimal_separator; FormatSettings.ThousandSeparator := g_thousand_separator; v_client.Free; v_provider.Free; v_query.Free; end; Alguém faz idéia do motivo ? Muito Obrigado !

Boa tarde. Estou gerando um relatório com um campo RLDBMemo numa band do tipo btDetail, é um contrato , onde ficaria gravado o Texto em um Campo Blob Textual , porém os Fortes se perde na hora de imprimir, alguém já fez algo parecido e que possa me ajudar ? Ele justamente se perde na hora de imprimir as folhas adicionais , tipo quando o Blob estoura mais que uma folha, ele só imprime a primeira, não criando uma segunda folha para impressão. Desde já agradeço !!

Pessoal resolvi em TODOS os clientes da seguinte forma : Primeiro verifique o IE instalado e se for menor que a versão 11 atualizar Abrir o Windows Update e Verificar se tem as atualizações KB2992611 e KB3140245 instaladas. Se não tiver, clicar no botão "Verificar se há atualizações" Após procurar as atualizações, clique no link atualizações importantes e desmarque todas as opções, deixando marcada somente a KB2992611, depois clique em ok. Clique em instalar atualizações. O windows vai pedir pra reiniciar, clique em reiniciar. Após a reinicialização, abrir o windows update novamente e clique no botão novamente "Verificar se há atualizações" Após procurar as atualizações, clique em atualizações opcionais e marque a atualização KB3140245, clique em ok, clique no link atualizações importantes e desmarque todas as opções e clique em ok Clique em instalar atualizações. O windows vai pedir pra reiniciar, clique em reiniciar. Após a reinicialização abra o navegador e faça o download da instalação .Net Framework 4.6.2, faça a instalação. reinicie o computador e faça o teste de conexão no sistema.

Já alterei e não funciona !!!!

Hoje parou também Produção.. Vários clientes.. Todos atualizados Windows 7 SP 1 com todas as atualizações de segurança... Como resolvo o erro ??

Então, é exatamente este o problema. Já perdí 1 cliente por conta disso.

Exatamente por isso está tão difícil.. rssss Mas como em todos os casos, quando se trata de governo, sempre nós que pagamos o pato. Se o arquivo está no servidor, e ficará lá pra sempre, se tenho um certificado digital válido, por quê a responsabilidade de guardar os arquivos é do contribuinte ?? Um absurdo... Mesmo assim sigo tentando.. Se mais alguém puder ter alguma idéia.. segundo entendi o @guerreiro conseguiu, de acordo com o último tópico respondido, seria possível compartilhar a solução ??

Certíssimo, mas em momento algum eu disse que não usaria o certificado... Minha pergunta foi como gerar a criptografia para usar no param... Sobre o certificado ele será solicitado de qualquer forma no momento do download, mas a dificuldade está em criptografar a chave e enviar em param

Acho que quem não entendeu foi você... Através do sitio danfeonline.com.br é possível fazer o DOWNLOAD do arquivo .xml da NFe desde que tenha um certificado digital do emitente. Faz um teste lá pra vc ver.. A forma de fazer o download é assim, ele envia via link como esse abaixo : https://nfe.fazenda.sp.gov.br/ConsultaNFe/xml/DownloadXML.aspx?param=V1ddcQJaXVkBWVRsXVRXVVFyAEReXABQU2pYWV5WVHQAR15cAFFUaVxcXlZVdABHX1wdU1F3XVtBVFV1CFdfXgpSVWJdWg== e faz o download do arquivo .xml que consta na sefaz, como se estivesse usando site da própria sefaz, não tem nada de gerar a danfe de acordo com html é o download do arquivo .xml assinado... O que preciso descobrir é como a partir da chave de acesso, criptografar os dados contidos em param assim : https://nfe.fazenda.sp.gov.br/ConsultaNFe/xml/DownloadXML.aspx?param="Como montar estes dados a partir da chave pra fazer o download" Sobre o link, seria bem simples de resolver usando uma tabela de links de cada sefaz de cada UF e verificar qual a UF do cliente e usar o link do estado, isso não é o problema, o problema é descobrir como fazer a encriptação da chave de acesso para gerar o param.... Entendeu ???

Não é verdade, é possível fazer o download do arquivo .xml do sefaz...

Reabrindo o tópico galera !!! Alguém conseguiu fazer o download do xml usando o link ?? Como monto param ?? Se o site https://www.danfeonline.com.br/ faz, com certeza é possível fazermos tb. No caso de perder os arquivos, mesmo com back up na nuvem isso pode ocorrer, é um transtorno fazer o download pelo site.. Muito Obrigado !

Como você configurou o componente ACBRBoleto ??

O projeto está finalizado inclusive... Estamos migrando para Delphi Berlin com acesso DBX tb, mas com driver firebird e este não tem problema algum com o acesso e muito menos com o Firebird 3.0. O problema é o projeto existente finalizado, que usava o driver Interbase com a GDS32.dll, aí esta com muitos problemas em rede. Por isso migramos para o uso com o driver UIB Firebird15. O componente eram os mesmos SQLConnection -> SQLQuery -> DataSetProvider -> ClientDataSet -> DataSource com os dois drivers. A saída (que era a única que havia concluído até agora) mesmo será colocar o trim em tudo, mas vai dar uma trabalheira danada, só atrasando a migração pro Berlin, mas fazer o quê.. Muito Obrigado ! Abs

@EMBarbosa primeiramente, muito obrigado pela resposta. O Driver está disponível sim. Se for o problema com o driver UIB Firebird15 para DBX que está concatenando os espaços no final, como resolvo isso ?? @carlosinfoteen o Delphi 7 não tem na paleta DBX driver nativo para firebird. Anteriormente eu estava usando a gds32.dll para acesso as funções para o firebird, mas começou a ficar instável em rede. precisei atualizar a versão do firebird para 3.0 e com isso alterar o driver de conexão, agora estou usando o UIB Firebird15. A dll fbclient.dll é a utilizada via vendor no DBX e não como acesso direto. É necessário acessar ela através de uma outra dll que é o driver de conexão da DBX com o Firebird.

Então mas o problema é que você só dispara a trigger para consistência de VENDAS_ITEM após deletar o registro na tabela VENDAS, porém como você informa a FK deveria cuidar disso pra você. O FB tem a função de FK assim como o Postgree porém precisa verificar se a fk está sendo criada de fato. Já tive problemas com FK em base corrompida. Você tentou fazer um back up e restore da base ?

Em qual trigger você faz a consistência do DELETE da tabela VENDA ?? Eu só achei uma trigger para consistência de Insert e Update na tabela VENDA. Eu entendo que você precisa de uma trigger que trate a exclusão na tabela VENDA e dá um RAISE EXCEPT se retornar registros do select na VENDA_ITENS com a mesma PK !!! Não seria isso ??

Bom dia pessoal. Eu estava com problemas de queda de conexão em rede com o firebird 2.1, procurando bastante na internet eu percebi que o motivo era o uso do driver interbase antigo junto com a gds32.dll que estava causando o problema. Pois bem decidimos migrar o firebird para a versão 3.0, até aí sem nenhum problema. E decidimos incluir no Delphi 7 (DBExpress) o uso do driver UIB Firebird15, porém no nosso sistema, utilizando o driver antigo tínhamos o parâmetro Trim Char=True no .INI da conexão com o banco, mas nos parâmetros UIB Firebird15 não tem esta opção e estamos agora com vários problemas por conta deste Trim Char, pois muitas comparações que usamos com dados do banco de dados estão vindo com espaços em branco. Ex: Gravo no banco de dados a tabela de desconto de um determinado item do pedido, este campo é do tipo VARCHAR(3) e é utilizado desde A,B,C, D, E .. Z, AA, AB.. até ZZZ, porém quando gravo uma tabela com somente um algarismo anteriormente gravava somente o 'A' porém sem a opção Trim Char=True no novo driver esta vindo assim 'A ' aí na comparação fica errado pois 'A' é diferente de 'A ' ! Alguém sabe me dizer como resolvo o problema no novo driver ??

Segue solução :

Conseguiram resolver o problema ???

Perfeito EMBarbosa... Foi só reiniciar o servidor que funcionou... Muito Obrigado !!