Carlos Tre

Estou chegando à conclusão que o problema é mesmo com a Sefaz, no meu caso Sefaz-SP. Provavelmente lentidão, pois se traduz em instabilidade. Só estou estranhado pouquíssimas pessoas reclamando oou confirmando o problema.

Prezados, Desde ontem à tarde não consigo consultar um lote enviado, recebido sem problemas, pois não só tenho o número de recibo para consulta, como também se consulto as notas no portal determino que foram autorizadas corretamente. O sistema gera uma exceção com a mensagem de erro Erro: Requisição não enviada. 12002 - T. e a sequência de chamadas apontada pelo EurekaLOG é a seguinte [016B7202] ACBrHTTPReqResp.TACBrHTTPReqResp.Execute (Line 384, "ACBrHTTPReqResp.pas") [016CDDE4] ACBrNFeWebServices.TWebServicesBase.EnviarDadosWebService (Line 792, "ACBrNFeWebServices.pas") [016D9923] ACBrNFeWebServices.TNFeConsulta.Executar (Line 2793, "ACBrNFeWebServices.pas") [016EC5E6] ACBrNFe.TACBrNFe.Consultar (Line 351, "ACBrNFe.pas") [018ADEBD] d_ACBr_EnviarDM.T_ACBr_EnviarDM.ConsultarNotasDoLote (Line 411, "d_ACBr_EnviarDM.pas") Em outro tópico recente foi sugerido que o problema seria de lentidão da Sefaz, SP no presente caso e PR no caso anterior. Alguém mais pode confirmar que seja isto o que acontece? Alguma sugestão de como contornar este problema, visto que não consigo imprimir o DANFE para acompanhar o transporte das mercadorias? Muito obrigado antecipadamente. Cordialmente, Carlos

Exatamente, Juliomar. a referência citada pelo Datilas é para executáveis gerados pelo XE7. Para instalar o IDE o mínimo é o 7. Ao menos de acordo com este documento: http://www.embarcadero.com/products/delphi/datasheet.pdf Cordialmente, Carlos Tré

Olá Daniel, Desconheço o PostGreSQL, mas ainda ontem vi um comentário que pode ser a solução para o seu caso. O tipo de campo mais adequado para salvar uma imagem em Firebird certamente é o Blob binário, sem dúvida. Não consigo determinar de imediato o impacto que teria em uma string a presença de bytes com valor $00 nas chamadas à API do Firebird, escrito em C++, que usa $00 como terminador de strings Não sei o impacto que parametrizar o insert/update teria no seu framework, mas acho que vale a pena considerar a sugestão do Martijn Tonies, pois talvez a única opção viável seja readequa-lo à esta nova exigência. Eis o resumo da ópera, veja se, mutatis mutandis, lhe ajuda. Hi Craig, QuoteI have been using "LoadFromFile" in my Delphi apps to load a pdf file into my Firebird databases. However, I need to replicate this using an update query. The code below was my first attempt. Using IBOjects within Delphi qryUpdateManifestBLOB.SQL.Clear; qryUpdateManifestBLOB.SQL.Add('UPDATE'); qryUpdateManifestBLOB.SQL.Add('w_shipments'); qryUpdateManifestBLOB.SQL.Add('SET'); qryUpdateManifestBLOB.SQL.Add('w_shipments.US_manifest_doc ='); qryUpdateManifestBLOB.SQL.Add('LoadFromFile');Well, this obviously won't work, because whatever is in the .SQL property, is executed by the Firebird database engine. And that engine cannot execute Delphi code. Use a parameter: SQL.Add('SET myblobcol = :newblob'); and of course the primary key stuff. Call: qryUpdateManifestBLOB.Prepare; qryUpdateManifestBLOB.ParamByName('newblob').LoadFromFile qryUpdateManifestBLOB.ExecSQL; Quotewhich Firebird did not like because "LoadToFile" is an unknown function.See above. With regards, Martijn Tonies Upscene Productions http://www.upscene.com Download Database Workbench for Oracle, MS SQL Server, Sybase SQL Anywhere, MySQL, InterBase, NexusDB and Firebird! ------------------------------------ Posted by: "Martijn Tonies (Upscene Productions)" <[email protected]> ------------------------------------ ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Visit http://www.firebirdsql.org and click the Documentation item on the main (top) menu. Try FAQ and other links from the left-side menu there. Also search the knowledgebases at http://www.ibphoenix.com/resources/documents/ Cordialmente, Carlos

Olá Daniel, Me permita a curiosidade, por que precisa gravar em arquivo texto, e não em um arquivo de dados regular? Cordialmente, Carlos

Acabei de comentar sobre esta situação neste outro artigo:

Olá a todos, Não sou conhecedor íntimo do ACBr e, além disso, nunca experimentei o erro descrito. Mas sou curioso... então senta que lá vem história! O óbvio ululante é que a função TInfEvento.getDescEvento não contempla o valor armazenado em fTpEvento, daí a mensagem emitida. Não contempla por que? Como não há comentário neste sentido, apenas quem a escreveu ou é íntimo conhecedor dos fontes saberia dizer. Um palpite seria que novos tipos de evento (são 13 ao todo os enumerados em pcnConversao.TpcnTpEvento) foram adicionados posteriormente, TpcnTpEvento = (teCCe, teCancelamento, teManifDestConfirmacao, teManifDestCiencia, teManifDestDesconhecimento, teManifDestOperNaoRealizada, teEncerramento, teEPEC, teInclusaoCondutor, teMultiModal, teRegistroPassagem, teRegistroPassagemBRId, teEPECNFe); pois são apenas 7 os resolvidos por TInfEvento.getDescEvento. function TInfEvento.getDescEvento: String; begin case fTpEvento of teCCe : Result := 'Carta de Correcao'; teCancelamento : Result := 'Cancelamento'; teManifDestConfirmacao : Result := 'Confirmacao da Operacao'; teManifDestCiencia : Result := 'Ciencia da Operacao'; teManifDestDesconhecimento : Result := 'Desconhecimento da Operacao'; teManifDestOperNaoRealizada: Result := 'Operação nao Realizada'; teEPECNFe : Result := 'EPEC'; else raise EventoException.Create('Descrição do Evento não Implementado!'); end; end; Mas pode ser que tenham sido deixados de fora por uma razão. A forma mais adequada de resolver esta questão fica a cargo dos autores. Cordialmente, Carlos Tré

Régys, É como trava na porta, só é lembrada após o ladrão ter entrado. Até agora não havia prestado atenção neste arquivo de comandos para eliminar todos os arquivos do ACBr, mas tenho certeza que em uma próxima atualização eu me lembrarei dele De qualquer forma, apenas trouxe a questão do PCN à baila pois tudo indica que o nosso colega EDjal esteja, ou estivesse, experimentando o mesmo problema que experimentei, e cuja solução foi apagar manualmente os arquivos, conforme instruções, se não me engano suas, em um dos posts sobe o assunto. Cordialmente, Carlos

Olá Juliomar. Mesmo usando o instalador acredito que seja necessário excluir manualmente os arquivos ACBr e PCN. Não me lembro dos detalhes agora, mas só consegui instalar a versão que contempla a versão 3.1 da NFe após consultar o fórum e me deparar com as instruções que me fizeram lembrar dos PCN, só estava excluindo os ACBr. Se não me falha a memória, o erro de identificadores desconhecidos surgiu durante o processo de instalação automatizado. Cordialmente, Carlos

A cura para este mal está em excluir PCN*.bpl PCN*.dcp e PCN*.dcu, e depois reconstruir a biblioteca. Foi assim que consegui resolver. Cordialmente, Carlos

O seu achismo tem reais possibilidades de estar correto, durante os poucos meses em que me vi obrigado a recorrer à Internet por rádio tive que pagar um adicional para remover a exigência de autenticação via navegador. Não saberia como monitorar tal comportamento pelo Delphi, mas peça aos clientes com este problema para fazer um acesso via navegador imediatamente antes de emitir notas na situação problemática (após muito tempo ocioso) e veja se corrige. Caso o problema se vá, o seu palpite estará certo. Cordialmente, Carlos

Fui incumbido de determinar a eficiência de leitores de cheques, não só CMC7, mas também OCR de valores preenchidos à mão - a vasta maioria dos cheques recebidos. Achei referências à dois produtos da Canon, CR-50 / 80 e 190i, mas todas comerciais apenas. Algum colega com experiência neste tipo de processamento que possa comentar sobre estes ou outros produtos, e sua integração com sistemas em Delphi? Desde já agradeço toda e qualquer colaboração. Cordialmente, Carlos

Marcos, Minha desatenção, desculpe-me. O que eu faço, e funciona, é guardar o número do certificado em um arquivo INI que é lido na carga do sistema emissor, e atribuído ao certificado dinamicamente: nfe_ACBr.Configuracoes.Certificados.NumeroSerie := FEmisNFePrefs.NotaFiscal.NumeroCertificado; [...] FNumrCrtf := AIniFile.ReadString( SNFEmCfg_Sctn_NFe, SNFEmCfg_NFe_Key_Certificado, SNFEmCfg_NFe_Val_Certificado ); Nada impede que você selecione o certificado a cada vez que o sistema seja executado, mas para evitar que o processo se repita a cada vez que for utilizado o componente, você deverá guardar o número do certificado em memória e certificar-se de que o componente seja configurado automaticamente antes de usar qualquer uma de suas funcionalidades que exija o certificado. Cordialmente, Carlos

Marcos, Acredito que essa situação seja decorrente de uma escolha feita durante a instalação do certificado, Já respondi a um pedido de ajuda a esse respeito aqui mesmo no fórum, mas o solicitante não voltou para comentar a solução proposta ou encontrada, contribuindo assim para o enriquecimento da nossa base de conhecimento. A imagem que usei à época já não está mais disponível, este é um link atualizado https://www.dropbox.com/s/jl2xcmd32layfq5/2014-10-25%2008_54_46-Assistente%20para%20Importa%C3%A7%C3%A3o%20de%20Certificados.jpg?dl=0 Acredito que a opção destacada deva ser deixada desmarcada. Talvez o apelo por "ativar proteção de chaves privadas fortes" leve alguns usuários a marcá-la e, consequentemente, fazendo com que a senha seja pedida a cada vez que o certificado é usado. Cordialmente, Carlos Tré

Complementando a minha resposta, este erro ainda persiste no ambiente de homologação versão 3.1. Cordialmente, Carlos

Olá Kathellyn, Não consegui, acabei desistindo, convencido de que se trata de um bug do lado da SEFAZ, e eles não estão muito interessados, talvez por se tratar de ambiente de homologação. Comigo ocorreu com apena um destinatário específico. Qual versão da nota vocês estão utilizando? Não testei com a versão 3.1 para ver ainda ocorre, mas, caso consiga um tempo, vou fazê-lo amanhã. Obrigado por me chamar a atenção de volta a este problema. Cordialmente, Carlos

Arnaldo, 1) quando usados corretamente, generators jamais geram valores duplicados. No caso específico do Firebird GEN_ID(generator,1) lhe devolve um valor único e automaticamente incrementa a sequência em 1. 2) tabelas de controle, para evitar duplicidade, devem ser acessadas por meio de stored procedures, cujo esqueleto seria update "TabelaControladora" set "UltimoUsado" = "UltimoUsado" + 1 where "TabelaControlada" = :TabelaControlada select "UltimoUsado" from "TabelaControladora" where "TabelaControlada" = :TabelaControlada Certifique-se de que esta stored procedure seja invocada em uma transação independente, configurada para repetir a tentativa em caso de deadlock. O "update" faz com que nenhuma outra transação possa gravar em "TabelaControladora" até que haja um commit ou rollback, garantindo assim a unicidade do "UltimoUsado". Cordilamente, Carlos

Olá Oscar, Verifique se os campos necessários para o SMTP processar corretamente o envio estão corretamente preenchidos. " MAILFROM" sugere que seja o remetente, eu começaria por ele. Cordialmente, Carlos

Olá Juaumkiko, Muito obrigado pelo esclarecimento. É a forma que havia codificado desde sempre, apenas nunca ocorreu de termos precisado de emitir em contingência. Estranhei a redação desde a versão 2.0, mas na revisão para a versão 3.1 o incômodo cresceu muito. Cordialmente, Carlos

Olá a todos, Apesar de abordado em vários tópicos, a busca por "dhCont" e "xJust" não gerou resultados que sanassem minha dúvida. Perdoem-me se for mais um dos cada vez mais frequentes momentos senis, mas não entra na minha cabeça preencher estes campos com, por exemplo, data e hora atuais, e "sem comunicação com a SEFAZ-SP". Estas informações seriam adequadas caso a descrição fosse "data e hora / justificativa para emissão em contingência" e não "entrada em contingência". No último caso entendo que eu deveria me informar sobre a entrada em contingência, e preencher tais campos de acordo com a informação obtida. Mas buscar onde? Não faz sentido ser na SEFAZ. O SVC-AN fornece estas informações? Muito obrigado de antemão. Cordialmente, Carlos

MySQL agora é da Oracle, e pode requerer o licenciamento comercial em função do uso que se fará. Além disso, na época em que tive contato com ele, mais de 10 anos com certeza, não oferecia suporte, ou apena limitado, a triggers, e por isto não me aprofundei mais na análise técnica, só por isso já não me atenderia. Não havendo a possibilidade de usar o Firebird, eu optaria então, por eliminação, pelo PostgreSQL. Cordialmente, Carlos

De fato não conheço nenhuma ferramenta gratuita para isto, mas como se trata de conversão apenas, creio que possa prescindir dos índices, correto? Sendo assim basta conferir a estrutura do arquivo, use este artigo como referência http://www.dbase.com/KnowledgeBase/int/db7_file_fmt.htm Estes utilitários também poderão, esperançosamente, ser de ajuda: http://sourceforge.net/projects/dbfviewer/ http://sourceforge.net/projects/dbf/ Cordialmente, Carlos

Não sei se entendi bem a sua dúvida, mas você teria que converter tudo para a menor unidade - segundos se o tempo for medido por HH;MM:SS, ou minutos se HH:MM -, somar, converter o resultado de volta para o padrão de medição que você precisa. Assim de bate-pronto, se fosse para fazer em Firebird eu usaria uma stored procedure para fazer as totalizações. Cordialmente, Carlos.

Eu não costumo fazer este tipo de alteração no banco via Delphi de forma rotineira, uso apenas em situações isoladas, como importação de dados ou manutenção massiva. De qualquer modo, à primeira vista, acredito que o problema esteja no uso uso do TsqlQuery, embora não possa afirmar em virtude não usá-lo e, portanto, não estar familiarizado com ele. Fazendo uma analogia com componentes de nome parecido, acredito que ele se preste a executar uma única sentença SQL (select ... from.., [where], execute procedure ...). Se for este o caso, o problema é que o ";" é o terminador de comando default, e não pode ocorrer em meio a uma sentença. A solução é usar um componente que seja capaz de processar scripts, ou seja, uma ou mais sentenças em sequência, separadas umas das outras por um terminador específico. SET TERM ^ ; CREATE TRIGGER TRG_ITENS_ENTRADA_MOVIMENTO FOR ITENS_ENTRADA ACTIVE AFTER INSERT POSITION 0 AS declare variable DATA date; declare variable DESCRICAO varchar(30); begin SELECT ENT_DATA FROM ENTRADAS WHERE ID_ENTRADA = NEW.ITE_ENT INTO :DATA; DESCRICAO = 'REFERENTE A ENTRADA: ' || NEW.ITE_ENT; EXECUTE PROCEDURE INSERE_MOVIMENTO( NULL, NEW.ITE_PRO, NEW.ITE_ENT, 'ENTRADA', :DATA, 'E', :DESCRICAO, 'E', NEW.ITE_QUANTIDADE); end ^ SET TERM ; ^ Cordialmente, Carlos

A consulta continua a mesma, só que ao invés de ler o cStat sob retConsSitNFe será necessário varrer todo o retorno para determinar a situação corrente da nota. Impossível ou complicado? De forma alguma, mas uma mudança totalmente desnecessária não menos, visto que da forma que era estava mais coerente, retornando no status da consulta a situação corrente da nota. Cordialmente, Carlos Tré