Ir para conteúdo
  • Cadastre-se

Arnaldo Cruz

Membros Pro
  • Total de ítens

    578
  • Registro em

  • Última visita

  • Days Won

    2

Tudo que Arnaldo Cruz postou

  1. exatamente, o certificado foi revogado pela certificadora, o que acho estranho é que consigo emitir NFC-e, cancelar NFC-e, Consultar NFC-e, só está acusando revogação quando se trata de NF-e. mas as providencias já foram tomadas pelo cliente, com a emissão de um novo certificado, pois foi constatado pela propria certificadora que o funcionário da certificadora cometeu um erro, o qual eu não sei.
  2. Pessoa estou com um cliente onde o Certificado dele permite tudo com a NFC-e já pra NF-e não permite nada, se tento baixar o XML direto do site recebo a mensagem da imagem abaixo, qualquer operação com a NF-e pelo sistema recebo a mensagem abaixo. WEBSERVICE DISTRIBUIÇÃO DE DFE: - INATIVO OU INOPERANTE TENTE NOVAMENTE. ERRO INTERNO: 0 ERRO HTTP: 403 URL: HTTPS://WWW1.NFE.FAZENDA.GOV.BR/NFEDISTRIBUICAODFE/NFEDISTRIBUICAODFE.ASMX <!DOCTYPE HTML PUBLIC "-//W3C//DTD XHTML 1.0 STRICT//EN" "HTTP://WWW.W3.ORG/TR/XHTML1/DTD/XHTML1-STRICT.DTD"> <HTML XMLNS="HTTP://WWW.W3.ORG/1999/XHTML"> <HEAD> <META HTTP-EQUIV="CONTENT-TYPE" CONTENT="TEXT/HTML; CHARSET=ISO-8859-1"/> <TITLE>403 - FORBIDDEN: ACCESS IS DENIED.</TITLE> <STYLE TYPE="TEXT/CSS"> <!-- BODY{MARGIN:0;FONT-SIZE:.7EM;FONT-FAMILY:VERDANA, ARIAL, HELVETICA, SANS-SERIF;BACKGROUND:#EEEEEE;} FIELDSET{PADDING:0 15PX 10PX 15PX;} H1{FONT-SIZE:2.4EM;MARGIN:0;COLOR:#FFF;} H2{FONT-SIZE:1.7EM;MARGIN:0;COLOR:#CC0000;} H3{FONT-SIZE:1.2EM;MARGIN:10PX 0 0 0;COLOR:#000000;} #HEADER{WIDTH:96%;MARGIN:0 0 0 0;PADDING:6PX 2% 6PX 2%;FONT-FAMILY:"TREBUCHET MS", VERDANA, SANS-SERIF;COLOR:#FFF; BACKGROUND-COLOR:#555555;} #CONTENT{MARGIN:0 0 0 2%;POSITION:RELATIVE;} .CONTENT-CONTAINER{BACKGROUND:#FFF;WIDTH:96%;MARGIN-TOP:8PX;PADDING:10PX;POSITION:RELATIVE;} --> </STYLE> </HEAD> <BODY> <DIV ID="HEADER"><H1>SERVER ERROR</H1></DIV> <DIV ID="CONTENT"> <DIV CLASS="CONTENT-CONTAINER"><FIELDSET> <H2>403 - FORBIDDEN: ACCESS IS DENIED.</H2> <H3>YOU DO NOT HAVE PERMISSION TO VIEW THIS DIRECTORY OR PAGE USING THE CREDENTIALS THAT YOU SUPPLIED.</H3> </FIELDSET></DIV> </DIV> </BODY> </HTML> se tento fazer o download direto pelo site da NF-e recebo a mensagem conforme imagem abaixo
  3. Quando estou fazendo uma venda com cartão. ACBrTEFAPI1.TratamentoTransacaoInicializacao := tefopiProcessarPendentes; ACBrTEFAPI1.TratamentoTransacaoPendente := tefpenPerguntar; ACBrTEFAPI1.ConfirmarTransacaoAutomaticamente := False; Passo o Cartão o retorno volta transação aprovada, nesse momento quero cancelar o pagamento ou o cliente desiste da compra. executo a função >>>> CancelarOuEstornarTransacoesDiretorioTrabalho; só que está aparecendo tela de senha do administrador '314159' , depois vem a tela pedindo o valor, porem o valor digamos que a venda foi de 100,00 eu digito 1,00 real e a função é executada cancelando uma ou mais transações que estejam pendentes de confirmação. gostaria de saber se tem como não aparecer essas telas pedindo senha de admnistrador e valor quando o estorno for no momento de fazer o pagamento ( não é cancelamento pósvenda), pois eu acho que estas telas deveriam aparecer somente quando houvesse interrupção involuntária, tipo queda de energia, algum BO no PC etc.
  4. Valeu pedro obrigado vou esperar então pra tentar fazer a instalação
  5. Pode sim pedro
  6. não consta esta dll en nenhuma pasta alem da existente da pasta de instalação C:\Program Files (x86)\PayGo\PGWebLib 14082024ArqLogTEF.txt comms_240814.log ppsers_240814.log
  7. pessoa hoje tive esse problema citado nesse topico " Agora consigo fazer as configuração é impresso o comprovante da configuração ID PONTO DE CAPURA : 68700 ENDERECO DESTINO : pos-transac.sb.tpgweb.io:31735 Quando vou fazer a instalação ocorre o Erro ERRO AO ESTABELECER CONEXAO SSL [ 17 ] Vi aqui no forum que seria acessando a dll de produção com ambiente de homologação. Quando instalei o aplicativo paygoWeb ele está como Homologação conforme imagem abaixo Agora faço a configura
  8. Vou postar como Resolver. Por algum motivo o antevirus está apagando a pasta Debug, como saoube disso ?. tenho o Panda e o Avast instalado na maquina desinstalei o aplicativo payGo, fiz novamente a instalação, foi criado as pastas certinho, deixei o explore aberto e iniciei o sistema e fiquei observando quando foi chamado o Inicializar do componente a pasta sumiu, refis todo processo desinstalando e instalando o aplicativo PayGo entrei no antevirus e adicionei nas exeçoes a pasta C:\Program Files (x86)\PayGo, deixei o explore do windows aberto executei o sistema, a pasta não sumiu e funcionou certinho.
  9. o componente não está inicializado, somente após as configurações que chamo ACBrTEFAPI1.Inicializar; e o erro acontece ao aplicar a configuração. mas eu acredito que já achei o problema. não sei como nem porque está pasta Debug sumiu C:\Program Files (x86)\PayGo\PGWebLib\Debug aparece somente C:\Program Files (x86)\PayGo\PGWebLib\x64 e dentro dela a dll a estrutura que está aparecendo C:\Program Files (x86)\PayGo\PGWebLib\ PGWebLib.dll C:\Program Files (x86)\PayGo\PGWebLib\x64 PGWebLib.dll Antes C:\Program Files (x86)\PayGo\PGWebLib\Debug PGWebLib.dll mesmo eu executando o aplicativo não cria a pasta Debug
  10. Pessoal estou com um problema serio com o TEFAPI. e isso vez em quando acontece pra ser exatos 5 vezes, estou em modo debug, homologação, dll 5.130. ontem fiz venda em modo homologação de boa hoje quando fui fazer uma venda aconteceu o erro quando aplico a configuração do componente. exatamente nesse ponto abaixo da access violation. ACBrTEFAPI1.Modelo := tefApiPayGoWeb; outras 5 vezes que aconteceu eu tive que recriar todo projeto agora aconteceu pela sexta vez como mostra a imagem abaixo, alguem sabe mim dizer o que causa esse problema. estou com medo de colocar isso em produção e acontecer nos clientes Obrigado
  11. Alguns dos colegas tem aquele email enviado para as revendas comunicando a troca dos servidores para amanhã 01/08/2024 e que possa replicar no meu email [email protected] eu só copiei o email e passei o novo servidor para os clientes, mais uns 3 estão pedindo o bendido E-mail pra provar que não sou eu que estou tentando receber a venda com cartão.
  12. Juliomar é que se eu colocar tPag := fpPagamentoInstantaneoEstatico e tpIntegra>2</tpIntegra, está dando rejeição Rejeicao: Tipo de pagamento nao aceita o grupo de cartoes ou boletos [Ocorr:1], o preeenchimento exato é tPag := fpPagamentoInstantaneoEstatico ; vPag := CDSValoresVALOR.AsFloat ; tpIntegra := tiPagNaoIntegrado ; o componenete que está preenchendo a tag Card
  13. No sistema só preencho os dados duplicatas quando o pagamento é com boleto bancário, quando é uma venda a prazo que o cliente paga na loja com emissão de carnê ou não, eu destaco o parcelamento nas informações complementares. Um cliente mim questionou, por que disse que nas notas de compra dele vem destacado o parcelamento na parte de duplicatas. sendo com boleto ou não Pergunto : está correto meu procedimento de destacar na parte de duplicatas somente quando é boleto ou posso preenche as tags de duplicatas quando for duplicatas ou carnê ? Obrigado
  14. Juliomar o seguinte, o fonte do ACBr está exatamente como vc descreveu tPag := fpPagamentoInstantaneo; quando o XML é gerado fica <tPag>17</tPag> <<pag> <detPag> <tPag>17</tPag> <vPag>4.00</vPag> <card> <tpIntegra>2</tpIntegra> </card> </detPag> </pag> XML é aceito tPag := fpPagamentoInstantaneoEstatico quando o XML é gerado fica <tPag>20</tPag> <pag> <detPag> <tPag>20</tPag> Pergunto aqui não teria que vir 18 no lugar de 20 <vPag>2.95</vPag> <card> <tpIntegra>2</tpIntegra> </card> </detPag> </pag> XML é Recusado xmotivo(Tipo de pagamento nao aceita o grupo de cartoes ou boletos [Ocorr:1]
  15. <<pag> <detPag> <tPag>17</tPag> <vPag>4.00</vPag> <card> <tpIntegra>2</tpIntegra> </card> </detPag> </pag> Esta é a forma aceita na Paraiba para PIX Estático não vinculado ao sistema; O BO é que no DANFE está sendo impresso "PIX - Dinâmico" quando deveria ser PIX - Estático ou somente PIX quando tpIntegra fosse = 2
  16. Resolvido de Salvar o ACBrNFe1.WebServices.Inutilizacao.RetornoWS, salvei o ACBrNFe1.WebServices.Inutilizacao.RetWS, obrigado a dica de que mais de um arquivo foi fundamental
  17. eu salvo em arquivo e estou fazendo assim Memo1.Lines.Clear; Protocolo := FDataModule.ACBrNFe1.WebServices.Inutilizacao.Protocolo; NomeA := 'C:\InutilizacaoNFCe\'; Memo1.Lines.Add(FDataModule.ACBrNFe1.WebServices.Inutilizacao.RetornoWS); Memo1.Lines.SaveToFile(NomeA + Protocolo + '-ProcInutNFe.xml'); Estranho é que a versao que está nos clientes está desse mesmo jeito, e imprime o comprovante certinho só esta que estou mechendo no código fonte com atualização do ACBr não imprime, alias imprime em branco e vez em quando dá um AccesViolation tipo inutilizo 3 notas em uma dá erro
  18. 325240000015025-ProcInutNFe.xml Este é o arquivo inutilizado hoje 19/07/2024 a impressão sai tudo vazio NomeA := 'C:\InutilizacaoNFCe\325240000015025-ProcInutNFe.xml' FDataModule.ACBrNFe1.InutNFe.LerXML(NomeA); FDataModule.ACBrNFe1.ImprimirInutilizacao;
  19. fiz a alteração recomendada mais continua impriindo vazio NomeA := 'C:\InutilizacaoNFCe\325240000011336-ProcInutNFe.xml FDataModule.ACBrNFe1.InutNFe.LerXML(NomeA); FDataModule.ACBrNFe1.ImprimirInutilizacao; coloquei um BreakPoint e acompanhei o codigo, e na função da classe citada acima volta tudo nil, por isso não preenche os campos if AuxNode <> nil then // Aqui AuxNode está como nil na passada
  20. o meu também não está aparecendo os dados, segui os passos indicados pelo Italo e não funcionou, deletei a pasta do ACBr, baixei hoje 18/07/2024 um novo ACBr pelo SVN, instalei usando a opção de apagar arquivos antigos, compilei meu sistema pelo Build, mas quando tento imprimir a inutilização continua sem dados. CLASSE ACBrNFe.RetInut function TRetInutNFe.LerXml: Boolean; var Document: TACBrXmlDocument; ANode, AuxNode: TACBrXmlNode; ok: Boolean; begin Document := TACBrXmlDocument.Create; try try Result := False; if XmlRetorno = '' then Exit; Document.LoadFromXml(XmlRetorno); // aqui da pra ver o xml carregado com todos os dados ANode := Document.Root; if ANode <> nil then //Aqui volta diferente de nil begin AuxNode := ANode.Childrens.FindAnyNs('retInutNFe'); // Aqui AuxNode fica vazio na passada versao := ObterConteudoTag(ANode.Attributes.Items['versao']); //Aqui versao fica vazio na passada if AuxNode = nil then //Aqui AuxNode está como nil na passada AuxNode := ANode.Childrens.FindAnyNs('infInut') //entra aqui else AuxNode := AuxNode.Childrens.FindAnyNs('infInut'); if AuxNode <> nil then // Aqui AuxNode está como nil na passada begin Id := ObterConteudoTag(AuxNode.Attributes.Items['Id']); tpAmb := StrToTpAmb(ok, ObterConteudoTag(AuxNode.Childrens.FindAnyNs('tpAmb'), tcStr)); verAplic := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('verAplic'), tcStr); cStat := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('cStat'), tcInt); xMotivo := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('xMotivo'), tcStr); cUF := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('cUF'), tcInt); ano := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('ano'), tcInt); CNPJ := ObterConteudoTagCNPJCPF(AuxNode); modelo := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('mod'), tcInt); serie := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('serie'), tcInt); nNFIni := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('nNFIni'), tcInt); nNFFin := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('nNFFin'), tcInt); dhRecbto := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('dhRecbto'), tcDatHor); nProt := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('nProt'), tcStr); xJust := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('xJust'), tcStr); end; end; Result := True; except Result := False; end; finally FreeAndNil(Document); end;
  21. estou tentando fazer venda em Produção, estado da Paraiba montagem do XML Primeira tentativa with pag.Add do tPag := fpPagamentoInstantaneoEstatico ; vPag := CDSValoresVALOR.AsFloat ; tpIntegra := tiPagIntegrado ; CNPJ := CDSValoresCNPJ.AsString; end; XML Enviado <pag> <detPag> <tPag>20</tPag> <vPag>4.90</vPag> <card> <tpIntegra>1</tpIntegra> <CNPJ>00000000124168</CNPJ> </card> </detPag> </pag> Rejeicao: Tipo de pagamento nao aceita o grupo de cartoes ou boletos [Ocorr:1] ================================================== montagem do XML Segunda tentativa with pag.Add do tPag := fpPagamentoInstantaneoEstatico ; vPag := CDSValoresVALOR.AsFloat ; tpIntegra := tiPagNaoIntegrado ; CNPJ := CDSValoresCNPJ.AsString; end; <pag> <detPag> <tPag>20</tPag> <vPag>4.90</vPag> <card> <tpIntegra>2</tpIntegra> <CNPJ>00000000124168</CNPJ> </card> </detPag> </pag> Rejeicao: Tipo de pagamento nao aceita o grupo de cartoes ou boletos [Ocorr:1] ================================================== montagem do XML Terceiratentativa with pag.Add do tPag := fpPagamentoInstantaneo ; vPag := CDSValoresVALOR.AsFloat ; tpIntegra := tiPagNaoIntegrado ; CNPJ := CDSValoresCNPJ.AsString; end; <pag> <detPag> <tPag>17</tPag> <vPag>1.00</vPag> <card> <tpIntegra>2</tpIntegra> <CNPJ>00000000124168</CNPJ> </card> </detPag> </pag> NFC-e Autorizada porem aqui no danfe sai a descrição do PIX Dinâmico como a imagem abaixo
  22. continua o mesmo erro
  23. Não to modificando nada, joguei o componente na tela, adicionei todos os eventos. se eu deixar a propriedade modelo com o valor tefApiPayGoWeb, já dá o erro na abertura da aplicação, se eu deixa como tefApiNenhum a aplicação abre, porem quando acesso a tela de configuração e tento passar o valor para propriedade ACBrTEFAPI1.Modelo := tefApiPayGoWeb; da o mesmo erro
  24. Estou alterando o componenete ACBrTEFD pelo ACBrTEFAPI, já fiz no sistema caixa , quando fui fazer no meu segundo sistema da esse exception Exception Erro ACBrTEFAPI.modelo, condsigo compilar fazer build, mas quando tento rodar é que aparece o erro. segue a imagem
  25. Qual a finalidade deste evento insucesso na entrega ? Vou ter que emitir nota de entrada após executar este evento ?
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.