Ir para conteúdo
  • Cadastre-se

infomatte

Membros
  • Total de ítens

    84
  • Registro em

  • Última visita

Posts postados por infomatte

  1. 20 horas atrás, aslsoftwareltda disse:

    Esqueci e mencionar, segue detalhado a forma que chamo a classe em tempo de execução.

    Var
      ACBrConsultaCNPJ :TACBrConsultaCNPJws;

    begin

      ACBrConsultaCNPJ := TACBrConsultaCNPJws.Create(Self);

      if ACBrConsultaCNPJ.Consulta(EditCNPJ.Text, 'https://receitaws.com.br/v1/cnpj/') then

    begin

    ...

    end;

    ACBrConsultaCNPJ.Free;

    end;

    Teste aqui, funciona 100% para o que meus clientes querem...

    Obrigado

    • Curtir 1
  2. Bom Dia...

    Fontes Atualizados, testados, e tudo 100% novamente...

    Fluxo de Pagamento e /cob (Pagamento Imediato) funcionando normalmente...

    Somente o /cobv continua como antes:

      Req.Body:
    {"chave":"09402169000142","calendario":{"dataDeVencimento":"2022-10-26","validadeAposVencimento":7},"devedor":{"cpf":"67751079002","nome":"Elias Cesar Vieira"},"valor":{"original":"0.50"}}
      ResultCode: 403 - Forbidden
      Resp.Headers:
    HTTP/1.0 403 Forbidden
    Server: openresty/1.15.8.2
    Content-Length: 0
    Strict-Transport-Security: max-age=15724800; includeSubDomains
    WWW-Authenticate: Bearer
    X-Content-Type-Options: nosniff
    Strict-Transport-Security: max-age=31536000 ; includeSubDomains
    X-Frame-Options: DENY
    X-XSS-Protection: 1 ; mode=block
    Referrer-Policy: no-referrer
    Expires: Wed, 19 Oct 2022 12:01:37 GMT
    Cache-Control: max-age=0, no-cache, no-store
    Pragma: no-cache
    Date: Wed, 19 Oct 2022 12:01:37 GMT
    Connection: close


    Resp.Body:

    ChamarEventoQuandoReceberRespostaEndPoint( /cobv, PUT )
      ResultCode:403
      RespostaHttp: 
    TratarRetornoComErro( 403 )

     

    Obrigado EliasCesar 

     

     

     

    28 minutos atrás, EliasCesar disse:

    Olá @infomatte

    Enviei ao SVN uma alteração... se puder atualizar seus fontes e testar por favor.

    Obrigado @EliasCesar, testado e 100% novamente...

    • Obrigado 1
  3. Bom Dia...

    Estava fazendo testes em modo de produção no ACBrPIXCD. Estava tudo 100%, só não funcionava /cobv.

     

    Atualizei hoje, para revision 27069, e nem o /cob nao funciona mais, segue o retorno:

     

    CriarCobrancaImediata( 2973B57196E04D3EA7C847622A81D5E4 )
    PrepararHTTP
    Autenticar
    LimparHTTP
    TransmitirHttp( POST, https://api-pix.sicredi.com.br/oauth/token )
    ConfigurarHTTP
    ConfigurarProxy
    ConfigurarTimeOut
    ConfigurarHeaders( POST, https://api-pix.sicredi.com.br/oauth/token )
      Req.Headers:
    Authorization: Basic TURrME1ESXhOamt3TURBeE5ESTZNREF3TVRvM1JXNDplQ3REUUZWcWVTTTJOazlOVkRsTQ==
    Accept-Encoding: gzip, compress, deflate

      Req.Body:
    grant_type=client_credentials&scope=cob.read%20cob.write%20pix.read%20pix.write%20cobv.read%20cobv.write
      ResultCode: 400 - Bad Request
      Resp.Headers:
    HTTP/1.0 400 Bad Request
    Server: openresty/1.15.8.2
    Content-Type: application/json
    Content-Length: 95
    Strict-Transport-Security: max-age=15724800; includeSubDomains
    Vary: Origin
    Vary: Access-Control-Request-Method
    Vary: Access-Control-Request-Headers
    X-Content-Type-Options: nosniff
    X-XSS-Protection: 1; mode=block
    Strict-Transport-Security: max-age=31536000 ; includeSubDomains
    X-Frame-Options: DENY
    Expires: Tue, 18 Oct 2022 15:37:56 GMT
    Cache-Control: max-age=0, no-cache, no-store
    Pragma: no-cache
    Date: Tue, 18 Oct 2022 15:37:56 GMT
    Connection: close


    Resp.Body:
    {"code":400,"status":false,"data":null,"errors":["invalid_request","Invalid scope: cobv.read"]}
    EACBrPixHttpException: Erro HTTP: 400, Metodo: POST, URL: https://api-pix.sicredi.com.br/oauth/token

    ***************EACBrPixHttpException***************
    Erro HTTP: 400, Metodo: POST, URL: https://api-pix.sicredi.com.br/oauth/token
     

  4. Bom dia...

    Procurei mas não encontrei...

    Há alguma forma de pelo componente recuperar as informações do xml do resumo da NF-e (-resNFe.xml)??

    <chNFe> </chNFe>

    <CNPJ></CNPJ>

    <xNome></xNome>

    <IE></IE>

    <dhEmi></dhEmi>

    <tpNF></tpNF>

    <vNF></vNF>

    <digVal></digVal>

    <dhRecbto></dhRecbto>

    <nProt></nProt>

    <cSitNFe></cSitNFe>

    Tenho os resumos, e, por algum motivo, la de vez enquando, não grava essas informacoes no banco de dados para as manifestações...

     

     

  5. Boa Tarde...

    Acabei de testar a emissão de NF-e com CPF e IE no estado do Pará.... a Transmissão está 100%

    Mas quando tento cancelar ou enviar CC-e, retorna ERRO: 2254 - Falha na validação de esquema Xml...

     

    Estou utilizando ambiente de Homologação, 

    Certificado E-CPF

     

    Seguem XMLs...

     

     

     

    1906061358-eve-soap.xml 1906061358-ped-eve-soap.xml 1906061405-eve-soap.xml 1906061405-ped-eve-soap.xml

  6. Boa Tarde...

    Vendo o post 

    e, concordando plenamente com as palavras do Italo, fiz uma alteração no fonte, especificamente no arquivo ACBrMDFeDAMDFEFR.pas...

    Alterei o seguinte:

    Linha 1553: 

      De:        FieldByName('placa').AsString     := FormatarPlaca(veicTracao.placa);

      Para:     FieldByName('placa').AsString     := FormatarPlaca(veicTracao.placa) + ' / ' + veicTracao.UF;

     

    Linha 1568: 

      De:          FieldByName('placa').AsString     := FieldByName('placa').AsString + #13#10 + FormatarPlaca(FMDFe.rodo.veicReboque.Items.placa);

      Para:      FieldByName('placa').AsString     := FieldByName('placa').AsString + #13#10 + FormatarPlaca(FMDFe.rodo.veicReboque.Items.placa) + ' / ' +FMDFe.rodo.veicReboque.Items.UF;

    Testei e ficou como desejado (vejam figura em anexo.

    Caso considerem relevante a alteração, segue em anexo o arquivo ACBrMDFeDAMDFEFR.pas modificado para atualização do repositório. (Utilizei o arquivo da Revision 16217) 

    MDFe UF Placa.jpg

    ACBrMDFeDAMDFEFR.pas

    • Curtir 1
  7. Bom Dia...

    Também sou do Pará...

    1º - Lote em Processamento: Não tem nada errado com o componente e, também não é um erro... Significa que a Sefaz ainda não processou o envio...

    2º - TimeOut: Não tem nada errado com o componente e, também não é um erro... Significa que a internet está muito ruim ou, veja o link que o Amarildo de Matos postou acima...

    Eu sempre configuro desta maneira na maioria dos meus clientes (nunca tive problemas):

                 ACBrNFe.Configuracoes.WebServices.TimeOut                  := 8000 
                 ACBrNFe.Configuracoes.WebServices.AguardarConsultaRet      := 3000;  
                 ACBrNFe.Configuracoes.WebServices.IntervaloTentativas      := 2000; 
                 ACBrNFe.Configuracoes.WebServices.Tentativas               := 5;   
                 ACBrNFe.Configuracoes.WebServices.AjustaAguardaConsultaRet := False; 

    Só para constar: "A maioria" dos clientes pagam o mínimo possível de internet... Em nossa região praticamente tudo é via rádio... e se não bastasse, quando vc vai ver, tem 03 micros acessando o roteador e de quebra, Wi-fi liberado para os clientes, e ai não tem Cristo que resolva, vai retornar TimeOut mesmo...

    • Curtir 1
  8. Bom Dia...

    Utilizo para impressão da NFC-e em varios clientes o Danfe em Fortes, com impressão do QRCode Lateral...

    Notei que em algumas impressoras o Protocolo e a Data de Autorização ficam quase impossíveis a sua visualização...

    Alterei o Arquivo ACBrDANFCeFortesFr, colocando os campos em Negrito. Testei em vários clientes, e ficou perfeito...

    Seguem em anexo os arquivos alterados (Revision 16204), e imagem de como fica a impressão...

    Caso considerem a alteração válida, se alguem puder atualizar o repositório, agradeço...

    NFCe.jpg.1a04974b52f879bd6c09b75277faf655.jpg

    ACBrDANFCeFortesFr.dfm

    ACBrDANFCeFortesFr.pas

  9. 3 horas atrás, EMBarbosa disse:

    Eu sugiro você evitar esse método FieldByName ao máximo. Ele é muito lento e dificulta a manutenção do código.

    Com respeito ao erro, provavelmente o compilador converteu para string ou algum outro formato. E daí eu o erro mencionado:

     

    Obrigado...

    Tenho clientes que a base ultrapassa a casa dos 3gb, onde a maior tabela em quantidade de registros beira 2,5 milhoes de registros... bancos de dados sendo alimentados desde 2009... 

    Até o momento, não sentimos lentidão em nenhum processo...

    Mas, se não for pedir muito, qual é sua sugestão para substituição do FieldByName?

     

  10. 3 horas atrás, EMBarbosa disse:

    Se você puder dar um exemplo de como reproduzir o erro, creio que seja muito fácil corrigir.

    Boa Tarde...

    Vidinha difícil essa de programador....

     

    Estava passando os valores desta forma:

    VL_OPR     := NFCeProduto.FieldByName('Total').Value;
    VL_DESC  :=  NFCeProduto.FieldByName('Desconto').Value;

    Pelo que entendi, desta forma, quanto o valor é redondo (R$ 60,00), para o componente passa 60, constatei isso dando showmessage( FloatToSTR(NFCeProduto.FieldByName('Total').Value));... ai, não vai casa decimal para o componente...

    Mudei para:

    VL_OPR     := StrToFloat(FormatCurr('0.00',NFCeProduto.FieldByName('Total').Value));
    VL_DESC  := StrToFloat(FormatCurr('0.00',NFCeProduto.FieldByName('Desconto').Value));

    "Vualá"... 100% funcional... sem mexer em nada no ACBr...

     

    Havia incluido assim no DEMO do ACBR..

                      with RegistroC175New do   //Inicio Adicionar os Itens:
                      begin
                         VL_OPR           := 50;
                         VL_DESC          := 0;
    .........

    Neste caso, não foi virgula, mas gera normalmente

    mas assim, VL_OPR     := NFCeProduto.FieldByName('Total').Value;, não vai...

     

    Só peço desculpas por tirar o tempo do pessoal experiente do fórum... Coisas simples, mas a falta de atenção em muito nos atrapalha as vezes...

     

  11. 4 horas atrás, EMBarbosa disse:

    Olá Vanderlei, muito obrigado pela sugestão.

    Infelizmente não podemos aplicar ela desse jeito. Isso faria com que o componente parasse de antender toda a legislação.
    Precisamos do tipo Variant ou algum dispositivo semelhante pois esse registro podem ser tanto zero como vazios. Para entender um pouco melhor porque usamos Variant, talvez queira ver esse tópico aqui:

    Então a melhor saída é verificar exatamente qual o problema. Se puder apresentar como alimentar o componente para apresentar o erro teríamos como reproduzir e corrigir.

    Ainda não nos passaram um modo de reproduzir o problema, preferencialmente usando o exemplo do ACBrSPEDPISCOFINS. Pode nos ajudar nesse sentido?

    Boa Tarde... 

    Obrigado EMBarbosa...

    Esqueci de expor essa questão na minha resposta... foi uma solução temporária que encontrei para resolver meu caso...

    No decorrer da semana vou voltar aos testes utilizando o arquivo original com Tipo Variant... tenho pouca experiencia com Classes, mas se conseguir localizar o que estou fazendo de errado na alimentação do Registro C175, volto a reportar...

    Mais uma vez, obrigado...

    • Curtir 1
  12. Boa Tarde...  

    Estou com cliente novo, Posto de Combustivel, media de 6.000 NFC-e´s mensais...

    Tive o mesmo problema ontem... só consegui resolver mudando as variaveis de Variant para Currency...

    Mudei esta parte do fonte (Linhas 410 a 452):

     

      //REGISTRO C175: REGISTRO ANALÍTICO DO DOCUMENTO (CÓDIGO 65)

      TRegistroC175 = class
      private
        fALIQ_COFINS       : Currency;
        fALIQ_COFINS_QUANT : Currency;
        fALIQ_PIS          : Currency;
        fALIQ_PIS_QUANT    : Currency;
        fCFOP              : string;
        fCOD_CTA           : string;
        fCST_COFINS        : TACBrSituacaoTribCOFINS;
        fCST_PIS           : TACBrCstPis;
        fINFO_COMPL        : string;
        fQUANT_BC_COFINS   : Currency;
        fQUANT_BC_PIS      : Currency;
        fVL_BC_COFINS      : Currency;
        fVL_BC_PIS         : Currency;
        fVL_COFINS         : Currency;
        fVL_DESC           : Currency;
        fVL_OPR            : Currency;
        fVL_PIS            : Currency;
      public

        property CFOP                 : string  read fCFOP                  write fCFOP;
        property VL_OPR               : Currency read fVL_OPR                write fVL_OPR;
        property VL_DESC              : Currency read fVL_DESC               write fVL_DESC;
        property CST_PIS              : TACBrCstPis read fCST_PIS           write fCST_PIS;
        property VL_BC_PIS            : Currency read fVL_BC_PIS             write fVL_BC_PIS;
        property ALIQ_PIS             : Currency read fALIQ_PIS              write fALIQ_PIS;
        property QUANT_BC_PIS         : Currency read fQUANT_BC_PIS          write fQUANT_BC_PIS;
        property ALIQ_PIS_QUANT       : Currency read fALIQ_PIS_QUANT        write fALIQ_PIS_QUANT;
        property VL_PIS               : Currency read fVL_PIS                write fVL_PIS;
        property CST_COFINS           : TACBrSituacaoTribCOFINS   read fCST_COFINS write fCST_COFINS;
        property VL_BC_COFINS         : Currency read fVL_BC_COFINS          write fVL_BC_COFINS;
        property ALIQ_COFINS          : Currency read fALIQ_COFINS           write fALIQ_COFINS;
        property QUANT_BC_COFINS      : Currency read fQUANT_BC_COFINS       write fQUANT_BC_COFINS;
        property ALIQ_COFINS_QUANT    : Currency read fALIQ_COFINS_QUANT     write fALIQ_COFINS_QUANT;
        property VL_COFINS            : Currency read fVL_COFINS             write fVL_COFINS;
        property COD_CTA              : string  read fCOD_CTA               write fCOD_CTA;
        property INFO_COMPL           : string  read fINFO_COMPL            write fINFO_COMPL;
      end;

      /// Registro C175 - Lista

    Segue arquivo modificado para testes...

    É só colocar ele na pasta do acbr, Fontes\ACBrTXT\ACBrSPED\ACBrSPEDPisCofins e dar um Build no seu projeto....

    Para mim funcionou 100%, gerei o mes 10/2018 e 11/2018... + ou - 9000 NFC-es, e Importei no Validador do SPED Pis;Cofins

    Usei o arquivo do ACBr, At Revision 16047.

    E Validador Pis/Cofins 3.0.1...

     

    ACBrEPCBloco_C.pas

  13. 1 hora atrás, phb disse:

    Vi isso na internet agora: 

    Como será morar em Marte no futuro? Nasa quer responder a essa pergunta

    Pera aí dona Nasa!!!

    Antes... me responda uma simples pergunta: Como é que posso fazer a NFe 4.0 funcionar com certificado A3 aqui no Brasil, agora?

     

    Com o ACBr... todos os meus clientes A3 rodam que é uma maravilha, inclusive um terminal server com um A3 no micro do caixa... conectando Windows Server 2012...

    NF-e, NFC-e e MDF-e... tudo 1000%

    ACBr.jpg

  14. Brasileiro é F... mesmo... Deixa tudo para a última hora....

    E eu sou Brasileirooooooo....

    Quando ia iniciar a programação para a 4.0, prorrogaram por 30 dias... "vualá"... adiei para o dia 20/07...

    Iniciei dia 22/07... tenho só 90 clientes... 7 a 35km, 02 a 70, e o restante aqui onde moro... eu e o unico funcionário que tenho, iniciamos as atualizacoes sexta a tarde (27/07), e, ontem, as 21:00, foi atualizado o último cliente....  

    "Graças ao ACBr, tudo roda 1000%", certificados A1 e A3... sem depender do internet explorer... (marca ali, desmarca ali)... Todas as DLLs ACBr  na pasta do executável, Firebird Rodando , e pau na mula....       JÁ a SEFAZ,..... 

    Cliente: "Vanderlei, a atualização deu "pau"... 

    Eu: que erro retornou???

    Cliente: "Lote em processamento..." e agora, o cliente "tá" com pressa...

    Eu: Calma, sem stress, sem pressa... espera de 5 a 60 minutos... consulta a nota, de cada 10, 8 vão estar aprovadas, e duas não (só transmitir novamente).... 

     30 minutos, e nada do cliente xingar... entro em contato com ele e ele diz... já aprovou.... kkkkkkkk

    *********

    E assim vou levando a vida, ou a vida me levando... e quando me estresso, vou para meu segundo hobby... construir e voar meus aeromodelos.... 

     

     

     

     

    • Curtir 2
    • Haha 1
  15. Só para complementar...

    Instruí todos os meus clientes para, quando a NF-e aparecer e ele realmente tiver efetuado a compra, após 24 já Manifestar a ciência, e, quando a mercadoria chega, efetuar a Confirmação... Não tive mais problemas...   

    Claro, Meus clientes são do interior do Pará... Geralmente a mercadoria chega  depois de 03 dias da compra ou bem mais...

     

     

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

The popup will be closed in 10 segundos...