Ir para conteúdo
  • Cadastre-se

Valmir Gomes Ribeiro

Membros
  • Total de ítens

    79
  • Registro em

  • Última visita

Posts postados por Valmir Gomes Ribeiro

  1. nesta rotina abaixo

      // XML já deve estar em UTF8, para poder ser assinado //
      XMLUTF8 := ConverteXMLtoUTF8(XMLStr);

      with TACBrNFe(TNotasFiscais(Collection).ACBrNFe) do
      begin
        FXMLAssinado := SSL.Assinar(String(XMLUTF8), 'NFe', 'infNFe');
        // SSL.Assinar() sempre responde em UTF8...
        FXMLOriginal := FXMLAssinado;

        Leitor := TLeitor.Create;
        try
          leitor.Grupo := FXMLAssinado;
          NFe.signature.URI := Leitor.rAtributo('Reference URI=');
          NFe.signature.DigestValue := Leitor.rCampo(tcStr, 'DigestValue');
          NFe.signature.SignatureValue := Leitor.rCampo(tcStr, 'SignatureValue');
          NFe.signature.X509Certificate := Leitor.rCampo(tcStr, 'X509Certificate');
        finally
          Leitor.Free;
        end;

        // Se for NFCe, deve gera o QR-Code para adicionar no XML após ter a
        // assinatura, e antes de ser salvo.
        // Homologação: 01/10/2015
        // Produção: 03/11/2015

        if (NFe.Ide.modelo = 65) then
        begin
          with TACBrNFe(TNotasFiscais(Collection).ACBrNFe) do
          begin
            NFe.infNFeSupl.qrCode := GetURLQRCode(NFe.Ide.cUF, NFe.Ide.tpAmb,
                                      onlyNumber(NFe.infNFe.ID),
                                      trim(IfThen(NFe.Dest.idEstrangeiro <> '', NFe.Dest.idEstrangeiro, NFe.Dest.CNPJCPF)),
                                      NFe.Ide.dEmi, NFe.Total.ICMSTot.vNF,
                                      NFe.Total.ICMSTot.vICMS, NFe.signature.DigestValue,
                                      NFe.infNFe.Versao);

            if NFe.infNFe.Versao >= 4 then
              NFe.infNFeSupl.urlChave := GetURLConsultaNFCe(NFe.Ide.cUF, NFe.Ide.tpAmb, NFe.infNFe.Versao);

            GerarXML;
          end;
        end;

        if Configuracoes.Arquivos.Salvar and
           (not Configuracoes.Arquivos.SalvarApenasNFeProcessadas) then
        begin
          if NaoEstaVazio(NomeArq) then
            Gravar(NomeArq, FXMLAssinado)
          else
            Gravar(CalcularNomeArquivoCompleto(), FXMLAssinado);
        end;
      end;

    eu debuguei e vi que ate onde ta em negrito esta variavel FXMLAssinado esta com o xml la, depois que chega no FXMLAssinado ta em branco ai so grava no arquivo  <?xml version="1.0" encoding="UTF-8"?>

     

  2. Grande Juliomar, agora de cabelo curto, irmão ver bem, não mudei nada o meu programa só fiz atualizar o acbr, a rotina que tenho é bem simples, tipo

          try
           FDataModule.ACBrNFe.NotasFiscais[0].NFe.Ide.dSaiEnt := Now;
           FDataModule.ACBrNFe.NotasFiscais[0].NFe.Ide.hSaiEnt := Now;
           FDataModule.ACBrNFe.NotasFiscais[0].NFe.Ide.dEmi    := Now;

           fCaixa.labelMensagens.Caption     := 'Gerando Nfc-e...';
           Application.ProcessMessages;
           FDataModule.ACBrNFe.NotasFiscais.GerarNFe;

           fCaixa.labelMensagens.Caption     := 'Assinando Nfc-e...';
           Application.ProcessMessages;
           FDataModule.ACBrNFe.NotasFiscais.Assinar;

           fCaixa.labelMensagens.Caption     := 'Validando Nfc-e...';
           Application.ProcessMessages;
           FDataModule.ACBrNFe.NotasFiscais.Validar;

           fCaixa.labelMensagens.Caption     := 'Enviando Nfc-e...';
           Application.ProcessMessages;
           if FDataModule.ACBrNFe.Enviar(1,true,true) then

     

    ja debuguei e no gerarnfe, ta tudo na memoria, quando ele assina que volta para o xmlassinado fica somente esta duas tags

     

    outra amigo, eu pego agora o mesmo programa que tava funcioando, so faco recompilar e dar este erro.

    • Curtir 1
  3. Aurino, obrigado por me responder amigo, veja se consigo me expressar direito, dar um exemplo.

     

    faco uma venda de 100,00, então vou e recebo 50,00 no cartão, quando olho na pagina da adm de cartão a venda ja esta la confirmada certo

    ai eu dou um ESC e o sistema diz que tem transacao no tef e vai cancelar ele executa o comando CancelarTransacoesPendentes pronto neste comando ele vai e mostra uma tela

    pequena dizendo que a transacao do nsu tal, rede tal e valor tal foi cancelada so que não cancela.

     

    outro ponto é o seguinte feito  feito duas vendas em cartao a primeira mostra esta tela e não cancela e a segunda entra no gerenciador de cartao, porem no getcard que vc conhece muito mais que eu ele faz o cancelamento pegando o numero do controle e nao do nsu, pasmem ele não tras este numero e para isso tenho que ver na pagina ?, mas esta segunda pergunta eu ate consigo passar mas o primeiro problema realmente não to conseguindo fazer, configuracao do componente  é autoativargp = false, autoefetuarpagamento = false, autofinalizar = false, confirmarantesdoscomprovantes = false, multiploscartoes = true, realmente ta meio desesperador para mim, ja faz uma semana que não consigo finalizar. se alguem quiser posso ate liberar o acesso remoto para analise. obrigado a todos antecipadamente.

     

  4. Bom dia, 

      Amigos estou tendo um problema que a semanas não consigo resolver, vou tentar exemplificar o mais simples possivel.

    ja trabalho com o acbrtef a um bom tempo no dedicado tudo funciona perfeitamente, porem no discado com a GETCARD estou tendo um problema que ate agora não consegui resolver

    referente ao cancelamento de uma venda cartão nao finalizada, ou seja, o cliente passa um cartão e depois nao vai querer mais a compra e ai faz o cancelamento,

    estou enviando o comando CancelarTransacoesPendentes, e mostra inclusive na tela que foi cancelado, porem não é cancelado, pois eu acredito que para cancelar teria que entrar

    no gerenciador e ele não entra.

     

    obrigado antecipadamente, mas essa realmente não resolvi e fico preocupado se realmente é algo do componente porque se for esta dando problemas em varios clientes, verifiquei tambem que na getcard eles trabalham com o campo Controle e não NSU, fico no aguardo de alguem que utiliza e não tem este problema.

     

  5. Entendi Daniel, não vou mexer por que meu conhecimento realmente não é tão grande, mas agradeço antecipadamente já pelo projeto acbr pois é de grande valia para todos os programadores do brasil e do mundo, de todo jeito vou tentar debugar e ver se vejo algo, mas se tiver um tempo e puder ver tambem agradeço, valeu mesmo.

    • Curtir 1
  6. Desculpa daniel,  você quer que eu tente alterar o componente ? fiz esta pergunta por que poderia ou posso esta vendo algo errado ou ter alguma propriedade que eu não conheça no mesmo, apenas expus que sempre usei o acbrtef no sistema de tef dedicado e tinha esta variavel preenchida, agora precisei fazer para o tef discado e a mesma não vem, e se isto tava correto ou se é alguma coisa que não soube fazer.

  7. quando do tef DISCADO, esta variavel não esta ficando preenchida, para ser usada no evento DepoisConfirmarTransacoes, fiz o debug vejo que ela preenche certo campo 025 do retorno e depois fica em branco, ja no tef DEDICADO, funciona normalmente, utilizo para poder estornar a nota no final do dia.

  8. Juliomar boa tarde, tudo bem amigo, estou usando o acbrvirtual, ai ele  criou a primeira vez e eu fui e alterei ele para colocar todas as formas que uso, so que em alguns casos ele esta re-criando este arquivo com os dados padrões com isto eu perco tudo que coloquei, por que ele cria este arquivo se ja existe la ?

  9. Acabei de atualizar meu acbr e no arquivo ini de pernambuco esta abaixo, não deveria estar para svrs, como faco para mudar, ou onde estar atualizado ?

     

    [NFe_PE_P]
    RecepcaoEvento_1.00=https://nfe.sefaz.pe.gov.br/nfe-service/services/RecepcaoEvento
    NfeRecepcao_2.00=https://nfe.sefaz.pe.gov.br/nfe-service/services/NfeRecepcao2
    NfeRetRecepcao_2.00=https://nfe.sefaz.pe.gov.br/nfe-service/services/NfeRetRecepcao2
    NfeInutilizacao_2.00=https://nfe.sefaz.pe.gov.br/nfe-service/services/NfeInutilizacao2
    NfeInutilizacao_3.10=https://nfe.sefaz.pe.gov.br/nfe-service/services/NfeInutilizacao2
    NfeConsultaProtocolo_2.00=https://nfe.sefaz.pe.gov.br/nfe-service/services/NfeConsulta2
    NfeConsultaProtocolo_3.10=https://nfe.sefaz.pe.gov.br/nfe-service/services/NfeConsulta2
    NfeStatusServico_2.00=https://nfe.sefaz.pe.gov.br/nfe-service/services/NfeStatusServico2
    NfeStatusServico_3.10=https://nfe.sefaz.pe.gov.br/nfe-service/services/NfeStatusServico2
    NfeConsultaCadastro_2.00=https://nfe.sefaz.pe.gov.br/nfe-service/services/CadConsultaCadastro2
    NfeConsultaCadastro_3.10=https://nfe.sefaz.pe.gov.br/nfe-service/services/CadConsultaCadastro2
    NfeAutorizacao_3.10=https://nfe.sefaz.pe.gov.br/nfe-service/services/NfeAutorizacao?wsdl
    NFeRetAutorizacao_3.10=https://nfe.sefaz.pe.gov.br/nfe-service/services/NfeRetAutorizacao?wsdl

    [NFe_PE_H]
    RecepcaoEvento_1.00=https://nfehomolog.sefaz.pe.gov.br/nfe-service/services/RecepcaoEvento
    NfeRecepcao_2.00=https://nfehomolog.sefaz.pe.gov.br/nfe-service/services/NfeRecepcao2
    NfeRetRecepcao_2.00=https://nfehomolog.sefaz.pe.gov.br/nfe-service/services/NfeRetRecepcao2
    NfeInutilizacao_2.00=https://nfehomolog.sefaz.pe.gov.br/nfe-service/services/NfeInutilizacao2
    NfeInutilizacao_3.10=https://nfehomolog.sefaz.pe.gov.br/nfe-service/services/NfeInutilizacao2
    NfeConsultaProtocolo_2.00=https://nfehomolog.sefaz.pe.gov.br/nfe-service/services/NfeConsulta2
    NfeConsultaProtocolo_3.10=https://nfehomolog.sefaz.pe.gov.br/nfe-service/services/NfeConsulta2
    NfeStatusServico_2.00=https://nfehomolog.sefaz.pe.gov.br/nfe-service/services/NfeStatusServico2
    NfeStatusServico_3.10=https://nfehomolog.sefaz.pe.gov.br/nfe-service/services/NfeStatusServico2
    NfeAutorizacao_3.10=https://nfehomolog.sefaz.pe.gov.br/nfe-service/services/NfeAutorizacao?wsdl
    NFeRetAutorizacao_3.10=https://nfehomolog.sefaz.pe.gov.br/nfe-service/services/NfeRetAutorizacao?wsdl

×
×
  • 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.