Vanderlei Domingos Gimenez

Bom dia, no item 1, pesquisei aqui no forum achei este codigo, vou tentar adicionar. eu so tinha o 12007, agora tem o timeout, tambem. except on E: Exception do begin StrMsg := E.Message; // erros de conexão enviar em modo off-line if (pos('12007', E.Message) > 0) or // erro de conexão (pos('12002', E.Message) > 0) or // timeout (pos('12029', E.Message) > 0) or // limite de tempo de conexão (pos('12157', E.Message) > 0) or // erro no suporte a canais seguros (pos('TIMED OUT', E.Message.ToUpper) > 0) or // timeout (pos('ERRO NAO CATALOGADO', E.Message.ToUpper) > 0) or // erros de tratamento do webservice (pos('SERVICO PARALISADO', E.Message.ToUpper) > 0) // Servico Paralisado Momentaneamente then except na duvida 2, vou carregar o xml como foi gerado fazer o loadfromfile dele e enviar sem nenhuma mudanca e isto que estou fazendo mais fiquei com duvida por que li em outro topico, que a pessoa estava indicando de mudar o xml de tpEmis 9 para tpEmis 1, vou so carregar o xml e enviar o lote. do jeito que ele foi gerado na contingencia. na duvida 3, vou fazer desta forma vou gravar a nota como cancelada, e quando voltar a internet, envio o xml e logo em seguida mando seu cancelamento. motivo venda cancelada pelo cliente. Se estiver correto isto que vou fazer pode encerrar o topico, so me confirma obrigado

São 3 dúvidas só que não queria abrir tópico para cada uma, porque de certa forma esta dentro de contingencia, e uma delas peguei uma resposta aqui de um tópico fechado de 2019 (dúvida 2) qual o certo enviar para sefaz. Meu ambiente e de homologação: 1) Como faço para simular o timeout, da sefaz ou qual o seu retorno no try, (msg de erro) para poder tratar, se desligar a internet, eu tenho erro 12007 - O nome do servidor não pode ser resolvido, como pego o erro do retorno por motivo da sefaz. para gerar outra nota em contingencia, qual o código de erro, ou msg, para tratar no except do enviar. 2) gerei a nota 20 entrei em contingencia, gerei a nota 21 com tpEmis = 9, dhCont data e hora e xJust em Contingencia, gerou o xml, vi um tópico, que para enviar a nota 21 para a sefaz quando resolver a internet que preciso modificar o xml, e voltar o tpEmis para 1 normal e remover dhCont e xJust, ja que agora a internet voltou e preciso enviar o xml, como se fosse normal ou deixo o xml como esta e envio ele como gerei na contingencia com tpEmis 9. 3) emiti uma nota em contingencia e o cliente cancelou a venda, como não enviei o xml, para a sefaz, o que é correto fazer, quando voltar a internet manda a nota e logo em seguida cancela ou inutiliza a nota uma vez que não enviei o cliente cancelou a venda ou reaproveita o numero para uma nova venda, já que foi a ultima venda.

Pessoal desculpa ter aberto o topico sem ter tentado mais, depois percebi que no exemplo esta usando acbrnfe1 e a chave que estou consultando e de nfce, coloquei um componente acbrnfce1 no formulario e mudei os codigos para ACBrNFCe1.NotasFiscais.Clear; ACBrNFCe1.WebServices.Consulta.NFeChave := vChave; ACBrNFCe1.WebServices.Consulta.Executar; MemoResp.Lines.Text := ACBrNFCe1.WebServices.Consulta.RetWS; memoRespWS.Lines.Text := ACBrNFCe1.WebServices.Consulta.RetornoWS; LoadXML(ACBrNFCe1.WebServices.Consulta.RetornoWS, WBResposta); nao deu mais o erro da URL, nao observei a diferenca entre os componentes, vou testar dentro do programa, se quiser encerrar, o topico, se algum moderador ler pode me dar alguma dica de como removo um topico caso eu ache a resposta apos ter postado,

abri o ini procurei de sao paulo achei isto seria aqui que preciso modificar. [NFCe_SP_H] NfeInutilizacao_3.10=https://homologacao.nfce.fazenda.sp.gov.br/ws/nfeinutilizacao2.asmx NfeConsultaProtocolo_3.10=https://homologacao.nfce.fazenda.sp.gov.br/ws/nfeconsulta2.asmx NfeStatusServico_3.10=https://homologacao.nfce.fazenda.sp.gov.br/ws/nfestatusservico2.asmx NfeConsultaCadastro_3.10=https://homologacao.nfe.fazenda.sp.gov.br/ws/cadconsultacadastro2.asmx RecepcaoEvento_1.00=https://homologacao.nfce.fazenda.sp.gov.br/ws/recepcaoevento.asmx NfeAutorizacao_3.10=https://homologacao.nfce.fazenda.sp.gov.br/ws/nfeautorizacao.asmx NFeRetAutorizacao_3.10=https://homologacao.nfce.fazenda.sp.gov.br/ws/nferetautorizacao.asmx EventoEPEC_1.00=https://homologacao.nfce.epec.fazenda.sp.gov.br/EPECws/RecepcaoEPEC.asmx NFeAutorizacao_4.00=https://homologacao.nfce.fazenda.sp.gov.br/ws/NFeAutorizacao4.asmx NFeRetAutorizacao_4.00=https://homologacao.nfce.fazenda.sp.gov.br/ws/NFeRetAutorizacao4.asmx NFeInutilizacao_4.00=https://homologacao.nfce.fazenda.sp.gov.br/ws/NFeInutilizacao4.asmx NFeConsultaProtocolo_4.00=https://homologacao.nfce.fazenda.sp.gov.br/ws/NFeConsultaProtocolo4.asmx RecepcaoEvento_4.00=https://homologacao.nfce.fazenda.sp.gov.br/ws/NFeRecepcaoEvento4.asmx NfeStatusServico_4.00=https://homologacao.nfce.fazenda.sp.gov.br/ws/NFeStatusServico4.asmx URL-QRCode=https://www.homologacao.nfce.fazenda.sp.gov.br/NFCeConsultaPublica/Paginas/ConsultaQRCode.aspx URL-ConsultaNFCe=https://www.homologacao.nfce.fazenda.sp.gov.br/NFCeConsultaPublica/Paginas/ConsultaPublica.aspx URL-QRCode_1.00=https://www.homologacao.nfce.fazenda.sp.gov.br/qrcode URL-ConsultaNFCe_1.00=https://www.homologacao.nfce.fazenda.sp.gov.br/consulta Seria isto aqui a diferença ou estou esquecendo de implementar algo no componente eu estou consultando em ambiente de homologacao para testes. https://www.nfce.fazenda.sp.gov.br/NFCeConsultaPublica/Paginas/ConsultaPublica.aspx ConsultaNFCe=https://www.homologacao.nfce.fazenda.sp.gov.br/NFCeConsultaPublica/Paginas/ConsultaPublica.aspx

Estou no exemplo,do acbr no consulta pela chave, estou querendo implementar a consulta pela chave para saber se a nota esta na sefaz, estou querendo simular a contingencia, igual ao exemplo gero a nota 20, e ela nao tem retorno ai gero a nota 21, estou querendo fazer a consulta desta nota 20 pela chave, para saber se ela consta na base da sefaz, para fazer a inutilizacao do numero, cancelar ou fazer a substituicao pela nota 21, mais esta dando erro: URL para o serviço "NfeConsultaProtocolo" não encontrada na sessão "NFCe_SP_H" no arquivo "ACBrNFeServicos" https://www.nfce.fazenda.sp.gov.br/NFCeConsultaPublica/Paginas/ConsultaPublica.aspx url para consulta e esta mais como implemento dentro do programa, para obter os retornos dentro do programa // ACBrNFe1.WebServices.Consulta.NFeChave := vChave; // ACBrNFe1.WebServices.Consulta.Executar; // MemoResp.Lines.Text := ACBrNFe1.WebServices.Consulta.RetWS; // memoRespWS.Lines.Text := ACBrNFe1.WebServices.Consulta.RetornoWS; // LoadXML(ACBrNFe1.WebServices.Consulta.RetornoWS, WBResposta); ACBrNFe1.WebServices.Consulta.NFeChave := vChave; ACBrNFe1.WebServices.Consulta.Executar; iCodStatus := ACBrNFe1.WebServices.Consulta.cStat; cMotivo := ACBrNFe1.WebServices.Consulta.XMotivo; cChave := ACBrNFe1.WebServices.Consulta.NFeChave; cProtocolo := ACBrNFe1.WebServices.Consulta.Protocolo; cRecibo := ACBrNFe1.WebServices.Recibo.Recibo; // Se a nota foi enviada para o SVC a consulta tem que ser realizada no SVC e // não na SEFAZ-Autorizadora case FPConfiguracoesNFe.Geral.FormaEmissao of teSVCAN: xUF := 'SVC-AN'; teSVCRS: xUF := 'SVC-RS'; else xUF := CUFtoUF(FcUF); end; erro acontence bem aqui, nesta linha onde coloco esta URL de consulta. TACBrNFe(FPDFeOwner).LerServicoDeParams( Modelo, xUF, FTpAmb, LayOutToServico(FPLayout), VerServ, FPURL, FPServico, FPSoapAction);

datamodule1.ACBrNFeDANFCeFortes1.ViaConsumidor := True; //------Imprime via Cliente--------- datamodule1.ACBrNFCe1.NotasFiscais[0].Imprimir; //------Imprime via estabelecimento--------- datamodule1.ACBrNFeDANFCeFortes1.ViaConsumidor := false; //------Imprime via estabelecimento--------- datamodule1.ACBrNFCe1.NotasFiscais[0].Imprimir; //------Imprime via estabelecimento--------- achei no forum mais so que em outro topico 2 vias nfce, coloquei aqui funcionou pode encerrar o topico, procurei 2 vias em contingencia,

Duvida estou usando imprimir, mais esta saindo, uma via so da contingencia, a Via Empresa, nao esta saindo a via Consumidor, estou fazendo o Debug, e nao chama no beforeprint, para faze3r a segunda impressao e passar o parametro para via do consumidor so da via da empresa. ACBrNFCE1.NotasFiscais.Imprimir; estou usando este, que chama o imprimirinterno Eu vi uma palestra da acbr, para mandar este comando quando for para contingencia. no acbrmonitor. ACBrNFeDANFCeFortes1.ImprimirDANFE("nfce.xml"); ACBrNFCE1.NotasFiscais.Items[0].NomeArq tentei passar isto ali mais da erro, porque e uma string, para chamar ali precisa passar um tipo TNFE, na imprimirDANFE queria saber qual utilizar o que preciso fazer para sair as 2 vias, Empresa e Consumidor. procedure TACBrNFeDANFCeFortes.ImprimirDANFE(NFE: TNFe); begin AtribuirNFe(NFE); Imprimir(False); end; procedure TACBrNFeDANFCeFortes.Imprimir(const DanfeResumido: Boolean; const AFiltro: TACBrNFeDANFCeFiltro; const AStream: TStream); begin ImprimirInterno(False, DanfeResumido, AFiltro, AStream); end;

eu achei isto no forum e de 2016, eu criei este top porque pesquisei mensagem sefaz no forum e nao achou, isto eu achei no google, e veio para o forum, nao sei se fiz certo abrir um topico novo, Daniel postou em 14 marco 2016 Todos os retornos do SAT, de acordo com a especificação técnica do SAT, são mapeados em "TACBrSATResposta" Intelli perguntou, Daniel, boa tarde, Haveria um modo de implementar um evento chamado, por exemplo, 'OnGetResposta' no componente ACBrSAT? Neste caso, poderíamos mapear o retorno de todas as respostas do SAT mais facilmente, o que poderia até ser mais fácil para verificarmos se em algum comando que efetuamos a SEFAZ retornou alguma mensagem específica e já exibirmos em primeira mão para o cliente. Apenas uma idéia, que a meu ver poderia ser interessante. O que acha? Resposta Daniel isto e de 17 marco de 2016 Feito... -- ACBrSAT -- [+] Adicionado o evento OnMensagemSEFAZ( ACod: Integer; AMensagem: String) que será disparado, quando na resposta do SAT, houver alguma mensagem do SEFAZ para o Contribuinte (por: DSA) Como implemento, esta chamada, ao evento na abertura do programa, quando consulto o sat, se esta ativo, como sei que tenho mensagens da sefaz para aquele aparelho do sat. alguem pode me dar alguma dica quem implementou isto no ac.

No exemplo do acbr achei isto, mais como implemento isto, quando eu sei que a sefaz enviou mensagem para chamar este codigo. procedure TForm1.ACBrSAT1MensagemSEFAZ(ACod: Integer; AMensagem: String); begin MessageDlg( IntToStr(ACod)+'-'+AMensagem, mtWarning, [mbOK], 0); end; Vi que o codigo para chamar a atualizacao e este, atualizarsoftwaresat, vou implementar, tem como eu pegar os logs e retorno saber se atualizou, vou implementar e ver o resultado.

tive um cliente que o certificado digital gratuito venceu, um linker 2, soft basico 01.00.00, o sat entrou em bloqueio autonomo, o suporte da elgin diz que esta versao a sefaz nao envia atualizacao, entao o sat nao sera desbloqueado, o certificado nao sera renovado, eu pesquisei na sefaz e vi que a obrigacao e do contribuinte atualizar o sat, que a sefaz envia aviso para o sat, e que a softhouse tem que mostrar estes avisos, entao queria saber como faco para mostrar estes avisos, eles dizem que fazem a atualizacao automatica caso o cliente nao faca, no caso do linker 2, vai ate 01.00.03, no caso nao fez nenhuma. A softhouse tem que colocar uma rotina para atualizacao do sbasico, vou ver isto no exemplo do acbr, agora estas mensagens da sefaz para o sat tem como,

Sat Elgin Linker I, dllsat.dll correta, chave 344 ok, ativação vinculação. no meu computador consigo, fazer a venda, no computador do cliente, da um erro na hora de enviar, não mostra o erro, segue Env, log, ja tentei em 2 computadores do cliente, para tirar a duvida se era windows, porque no meu funciona, ja rodei com break point no delphi a rotina do enviavenda passa e da o retorno 6000, no deles parece que da algum erro e cai no exit, e nao retorna nenhum erro, por isto estou postando no forum, para ver se voces analisando o env ou log pode me dar alguma dica porque nao funciona no micro do cliente Micro com w7 e outro com w10, como nao consigo saber no cliente a parte que o programa, retorna, if EstaVazio(SATResp) then SATResp := fsSATClass.EnviarDadosVenda( dadosVenda ); aqui deve dar algum erro no micro do cliente e nao consigo saber que tipo de erro , porque nao da erro no meu micro com o delphi ai nao sei o que fazer, Ja vi que umas duas vezes que tentei vender no meu deu o erro acima, tambem, mais na maioria das vezes realiza a venda. finally Result := FinalizaComando( SATResp ); end; DecodificaRetorno6000; .acbr.log AD20201218175638-899912-env.xml ACBRSAT.LOG

Ola, a contabilidade informou que so deu baixa na inscricao estadual, que a escola virou so prestadora de servico, que o cnpj continua valido, vou pedir para a escola verificar com a contab isto na Sefaz, se o cnpj do destinatario, ficou invalido para ser destacado no cupom do sat, porque nao acho que se seja programa e sim algo da propria sefaz, só achei muita coincidencia, ate o mes passado fizeram a venda para o cnpj e este mes bloqueou, segue xml da pasta enviado para ver os dois cnpj, AD20200203155243-433787-env.xml

Ok pesquisei Cnpj baixado, no caso esta segunda unidade da escola, esta inativo, o cnpj, mais como conseguiu vender em 03/02/2020, isto tem um mes o que teria mudado na sefaz, neste periodo, para nao validar os cupons a partir de ontem, vou comunicar para a escola checar isto do cnpj destinatario.

Ola, o que significa baixado, que não é valido, o cnpj do emitente 60518180/0005-53 e o destinatario 60518180/0014-44 seria de outra unidade da escola, O xml anexado tem os dois cnpj e foi validado, mais ontem tentaram fazer a venda desta mesma forma e deu o erro, disse que nao era programa, porque nao mudou nada,