Edevair Viesa Junior

Muito obrigado, aparentemente o problema parou... Ou foi coincidência e o sefaz voltou ao normal... Independente, agradeço a ajuda de todos...

@José M. S. Junior no componente ACBrNFe onde eu mudo estas configurações ? Pois nunca usei isso...

Tentamos contato com a sefaz sp e nos informaram que não há qualquer problemas com o ws ou os servidores. O mais engraçado é que não ocorre o problema com todos os clientes, só alguns... Tem cliente que não consegue emitir nenhuma NF e outros estão emitindo normalmente... O pessoal do sefaz é mais perdido que nós nestas questões...

Entendi, agradeço a explicação.. Muito Obrigado a ambos, por favor moderador pode finalizar o tópico...

Show. Funcionou perfeitamente..... @Daniel Simoes realmente acredito ser coincidência sim, somente em 1 cliente e uma única vez ocorreu... Após a alteração sugerida pelo @EMBarbosa fluiu bem.. Só uma última dúvida, por qual motivo é necessário este número de sessão, já que ele é randômico e pode se repetir, desde que não tenha ocorrido nas últimas 100 sessões ?

Não implemento não, deveria ??? Se sim, como proceder ?

Muito Obrigado por responder... Pra falar a verdade nem sabia deste número @Daniel Simoes com certeza não sou eu quem passa este número, pra falara verdade nem sei onde seria isso... Acredito que o ACBrSAT faz isso de forma automatizada não ? Como verifico isso ?

Bom dia, pessoal estou usando o ACBrSAT na minha aplicação e ontem no final da tarde me deparei com uma situação inusitada.. Começou a dar um erro na emissão e consulta de status do sat : Não faço nem idéia do que seja, procurei e ví que este número de sessão é um número randômico que é gerado pelo próprio componente. Como faço pra resolver o problema ?

E quando é finalizada a requisição ? Não usei DoEvents, o que seria ?? E como uso ? Muito Obrigado !

Na verdade é a junção dos dois, mas não seria mais fácil descobrir em qual momento o arquivo é salvo ?

Na verdade eu uso esta propriedade, conforme consta no código, mas nela só contém os dados do retorno e não do protocolo, o arquivo salvo pelo componente contém todas as informações necessárias. O único detalhe é que não estou conseguindo salvar este arquivo no banco...

@Italo Jurisato Junior muito obrigado por responder.. Respondendo sua pergunta : Pq se dá erro no retorno do evento o arquivo salvo fica em branco, por isso faço a consistência pra não gravar no banco de dados, já que deu erro... A propriedade Configuracoes.Arquivos.Salvar está como true, o arquivo realmente está salvando em disco, porém preciso saber em qual momento o arquivo é salvo, pq preciso gravar ele no banco de dados.. Está dando erro exatamente na hora de gravar o arquivo : cdsNF0600.Edit; cdsNF0600C_NOME_ARQUIVO_GERADO_CORRECAO.AsString := v_nome_arquivo; cdsNF0600C_ARQUIVO_CORRECAO.LoadFromFile(v_nome_arquivo); //Aqui ocorre o erro cdsNF0600.ApplyUpdates(0); Debugando, no momento do loadfromfile o arquivo não existe no diretório, por isso o erro, aí se eu debugar até o fim, após finalizar, o arquivo esta gravado... Gostaria de saber em qual momento o arquivo é criado para poder gravar no BD !

Estou tentando a tempos resolver o problema sem sucesso, mas um dos meus clientes começou a cobrar enfaticamente a solução, eu até oje não consigo gravar o XML de retorno com o protocolo da carta de correção no BD. Faço assim : if MD.ACBrNFe.EnviarEvento(l_num_nf) then begin with MD.ACBrNFe.WebServices.EnvEvento do begin // retornos v_data_hora_evento := EventoRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento; v_numero_protocolo := EventoRetorno.retEvento.Items[0].RetInfEvento.nProt; v_xml := EventoRetorno.retEvento.Items[0].RetInfEvento.XML; v_codigo_status := EventoRetorno.retEvento.Items[0].RetInfEvento.cStat; v_motivo_status := EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo; end; end if v_codigo_status in [101, 135, 128] then begin try MD.ACBrNFe.EventoNFe.GerarXML; v_nome_arquivo := MD.ACBrNFe.Configuracoes.Arquivos.PathSalvar + cdsCarta_Correcao.FieldByName('C_CHAVE_ACESSO_NF').AsString + '11011' + F_strzero(v_seq_carta_correcao, 2)+'-procEventoNFe.xml'; cdsNF0600.Edit; cdsNF0600C_NOME_ARQUIVO_GERADO_CORRECAO.AsString := v_nome_arquivo; cdsNF0600C_ARQUIVO_CORRECAO.LoadFromFile(v_nome_arquivo); cdsNF0600.ApplyUpdates(0); try P_Imprime_Carta_Correcao(l_num_nf, l_cod_impressora); except MessageDlg('Erro ao IMPRIMIR a CARTA de CORREÇÃO !', mtError, [mbOk], 0); end; except MessageDlg('Erro ao GRAVAR o ARQUIVO .xml da Carta de Correção no banco de dados !', mtError, [mbOk], 0); P_Log_Varejo(g_cod_caixa, g_caminho_arquivo_log_rede, 'Carta de Correção da NFe '+IntToStr(l_num_nf)+' Seq: '+ IntToStr(v_seq_carta_correcao)+' - Erro : '+ 'Erro ao GRAVAR o ARQUIVO .xml da Carta de Correção no banco de dados !', g_login, Now, ExtractFileDir(Application.ExeName)+'\Logs\NFe\LogCartaCorrecaoNFe '+IntToStr(l_num_nf)+'.txt'); end; P_Log_Varejo(g_cod_caixa, g_caminho_arquivo_log_rede, 'Carta de Correção da NFe '+IntToStr(l_num_nf)+ ' - Seq: '+IntToStr(v_seq_carta_correcao)+' : '+ v_motivo_status, g_login, Now, ExtractFileDir(Application.ExeName)+'\Logs\NFe\LogCartaCorrecaoNFe '+IntToStr(l_num_nf)+'.txt'); MessageDlg('Carta de Correção EFETUADA com sucesso. '+#13#10+#13#10+ 'Protocolo : '+v_numero_protocolo+#13#10+#13#10+ 'Status : '+IntToStr(v_codigo_status), mtConfirmation, [mbOk], 0); end; Mas sempre gera o erro pois o arquivo ainda não está salvo no disco, porém após dar o erro e fechar a tela o arquivo xml aparece no disco.. Em qual momento o arquivo e salvo ? Ou ainda como faço pra salvar o arquivo manualmente, após o envio do evento ? Muito Obrigado !

Debugando vcl eu consegui encontrar o problema... Estava no uso de tecnologia obsoleto ao criar a transaction com o bd Estava assim : var v_transaction : TTransactionDesc; Result := False; if F_Banco_Dbx_Conectado(l_banco, l_sql, '') then begin Result := True; v_transaction.TransactionID := 1; v_transaction.IsolationLevel := xilREADCOMMITTED; l_banco.StartTransaction(v_transaction); try l_banco.ExecuteDirect(l_sql); l_banco.Commit(v_transaction); except on E:Exception do begin l_banco.Rollback(v_transaction); Result := False; P_Message_Error(E.Message, l_sql, l_msg); end; end; end; Agora troquei por : var v_transaction : TDBXTransaction; Result := False; if F_Banco_Dbx_Conectado(l_banco, l_sql, '') then begin Result := False; v_transaction := l_banco.BeginTransaction(TDBXIsolations.ReadCommitted); try l_banco.ExecuteDirect(l_sql); l_banco.CommitFreeAndNil(v_transaction); except on E:Exception do begin l_banco.RollbackFreeAndNil(v_transaction); Result := False; P_Message_Error(E.Message, l_sql, l_msg); end; end; end; Agora está tinindo, nenhum travamento.... Agradeço muito a ajuda...

Tentei sim e o problema permanece... Agora piorou um pouco mais, em um outro sistema,precisei de compilar o executável novamente e está travando toda vez que dá erro, estou achando que pode ser algo no Delphi !!!

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 !

Muito obrigado pela resposta @BigWings Era exatamente isso, o que aconteceu é que na versão anterior do nosso sistema, tínhamos cadastrado todos os modelos de balanças suportados pelo sistema e mudamos elas para o genérico, como no exemplo do ACBrBal, o que acontece é que na hora de detectar a balança configurada no PDV nós listamos pela descrição gravada no BD e associoamos a balança correta com um if que no else cai para a balança genérica.. Pois bem , o problema é que no banco estava gravado Toledo Prix 4 e quando fazia o select ele caia no else colocando genérica, foi mudar para Toledo que deu certo, falha minha !!! Muito obrigado !

Boa tarde, estou com um problema num cliente que não está lendo o peso, dá erro de timeout. Segue log em anexo.. Como resolvo, o peso vem como zero sempre !!! LogBalanca.txt

Obrigado aos dois pela ajuda, matou a pau, foi só usar o demo pra verificar o erro, que está em meu programa, por se tratar de uma empresa Simples Nacional eu envio ao XML concatenando 0 (zeros) à esquerda até o tamanho 3, como 60 só tem tamanho 2 o meu if do CST estava lendo 060 e caia pro else que é envia 90 no caso de não se enquadrar em nenhuma situação. Criei um NOVA verificação no caso de Simples Nacional Excesso e deu certo, segue o XML assinado ! As vezes estamos tão focados num assunto que acaba passando uma coisa besta deste tipo. Muito obrigado mais uma vez.... 35190808723218000186599000151710001397829400.xml

Então procurando a fundo, eu consegui refazer a situação e na verdade o XML gerado antes da assinatura já está com o CST 90, porém eu passo com toda a certeza o CST 60, pois debugando cheguei a esta conclusão, existe alguma possibilidade do componente estar mudando isso ? Acho que é improvável né ? Deve ser algo que estou fazendo, mas não estou achando. Seguem os XMLs gerados antes de ser enviado ao SAT 000000000000005.xml 000000000000006.xml