Ir para conteúdo
  • Cadastre-se

Ricardo Rohde

Membros
  • Total de ítens

    210
  • Registro em

  • Última visita

Posts postados por Ricardo Rohde

  1. 2 horas atrás, lucimauro disse:

    Ola, minha duvida continua que se é para descontar ou não do total da nota, pelo que andei conversando com um contador esse diz que é para abater

    NFE nao tem como descontar, por vai dar erro total da nota difere do somatorio dos valores

    • Curtir 2
  2. verifica as configuraões dos protocolos nas opções de internet, lembrando q o w7 precisa estar com o Service pack 1 instalado 

     

    Configuração do Protocolo no Internet Explorer
    Marque as opções no internet explorer, aba Avancadas, :

    ✔Não salvar páginas criptografadas em disco; 
    ✔Usar SSL 3.0;  
    ✔Usar TLS 1.0;  
    ✔Usar TLS 1.2; 

     Desmarque as opções caso tenha ou estejam marcadas:

    ❌Usar SSL 2.0; 
    ❌Usar TLS 1.1;

     

     

     

    faz um teste ai

  3. Em 05/07/2021 at 14:25, RicardoVoigt disse:

    Boa tarde,

    não tenho certeza se é a solução ideial... já tentou emitir com valores maiores de 100 ? acho que os valores ficarão desalinhados...

    sobre o corte na direita deve ter mais algum detalhe impactando ai... não dá pra ter certeza...

    já revisaram aquela configuração do windows referente a escala? se estiver diferente de 100%, ajustar para 100%...

    Ou definir uma outra impressora diferente, como impressora padrão no Windows...

    Att

    Ricardo

     

    já... foi feito tudo isso q vc disse, e antes de vir aqui, ja tinha feito...

     

    os valores só se ajustam mudando o fonte...

  4. Em 22/06/2021 at 15:56, Ricardo Rohde disse:

    Xará,

     

    Mudei o seguinte  

    no mLinhaTotalItem, alterei o Alignment de taRightJustify para taCenter  (((

    image.png.8ef25b12b5392c1f146b280921732d24.png

     

    Na procedure FormataTextoItemParaNormal (linha 699)

    Mudei de: LinhaTotal := TDFeReportFortes.EspacejarTextoGrafico(LinhaTotal, mLinhaTotalItem.Width - 10, mLinhaTotalItem.Font);

    Para: LinhaTotal := TDFeReportFortes.EspacejarTextoGrafico(LinhaTotal, mLinhaTotalItem.Width - 50, mLinhaTotalItem.Font);

     

     

    Problema se resolve... qual impacto ocasionaria nos demais?!

    Aqui, com essa alteração não mudou mais nada além desse problema.

            Danfce := TACBrNFeDANFCeFortes.Create(nil);
            Danfce.MargemInferior     := 8;
            Danfce.MargemSuperior     := 8;
            Danfce.MargemEsquerda     := 1;
            Danfce.MargemDireita      := 5;
            Danfce.ImprimeQRCodeLateral := True;
            Danfce.ImprimeLogoLateral   := True;
            Danfce.LarguraBobina        := 280;
            Danfce.ImprimeEmUmaLinha    := False;
            Danfce.ExibeInforAdicProduto:= infNenhum;

     

    image.png.4e41a76492ef5240de5da28fcb6475a6.png

     

    alguma ideia se seria isso mesmo?

  5. o token é pra vc consultar a api deles

     

    vc tem q fazer +- isso

    te dar um pequeno passo

     

    UrlConsulta := 'https://apidoni.ibpt.org.br/api/v1/produtos' +
      '?token=' + Self.AjustaParam(FToken) +
      '&cnpj=' + Self.AjustaParam(OnlyNumber(FCNPJEmpresa)) +
      '&codigo=' + Self.AjustaParam(ANCM) +
      '&uf=' + Self.AjustaParam(AUF) +
      '&ex=' + Self.AjustaParam(IntToStr(AExcecao)) +
      '&descricao=' + Self.AjustaParam(ADescricaoProduto) +
      '&unidadeMedida=' + Self.AjustaParam(AUnidadeMedida) +
      '&valor=' + Self.AjustaParam(FloatToString(AValorUnitario, '.', '0.##')) +
      '&gtin=' + Self.AjustaParam(AGtin);
       
      // parâmetros opcionais
      if Trim(ACodigoProprio) <> '' then
      UrlConsulta := UrlConsulta + '&codigoInterno=' + Self.AjustaParam(ACodigoProprio);
       
      // enviar consulta
      Self.HTTPGet(TraduzStrToAnsi(UrlConsulta));
       
      // retorno em JSON
      Result.JSON := TraduzStrToAnsi(Self.RespHTTP.Text);
  6. 13 horas atrás, RicardoVoigt disse:

    outra dica eh tentar atualizar os fontes e reinstalar os componentes

    ja feito e sem sucesso.

    só procuro o forum qdo minhas alternativas acabam

    13 horas atrás, RicardoVoigt disse:

    Se tivesse problema outros estariam relatando...

    Será mesmo? Será q todo mundo gera PDF e anexa ao email qdo emite a nota? Ou só manda o xml? Será q todos abrem e olham?

    É um detalhe tão imperceptivel... q nem se nota q o valor total nao aparece  

     

  7. Em 21/06/2021 at 10:38, RicardoVoigt disse:

    Bom dia,

    já tentou ajustar aquela configuração de "escala e layout" do windows ? tente selecionar a opção 100% (recomendado)

    Att

    Ricardo

    Xará,

     

    Mudei o seguinte  

    no mLinhaTotalItem, alterei o Alignment de taRightJustify para taCenter  (((

    image.png.8ef25b12b5392c1f146b280921732d24.png

     

    Na procedure FormataTextoItemParaNormal (linha 699)

    Mudei de: LinhaTotal := TDFeReportFortes.EspacejarTextoGrafico(LinhaTotal, mLinhaTotalItem.Width - 10, mLinhaTotalItem.Font);

    Para: LinhaTotal := TDFeReportFortes.EspacejarTextoGrafico(LinhaTotal, mLinhaTotalItem.Width - 50, mLinhaTotalItem.Font);

     

     

    Problema se resolve... qual impacto ocasionaria nos demais?!

    Aqui, com essa alteração não mudou mais nada além desse problema.

            Danfce := TACBrNFeDANFCeFortes.Create(nil);
            Danfce.MargemInferior     := 8;
            Danfce.MargemSuperior     := 8;
            Danfce.MargemEsquerda     := 1;
            Danfce.MargemDireita      := 5;
            Danfce.ImprimeQRCodeLateral := True;
            Danfce.ImprimeLogoLateral   := True;
            Danfce.LarguraBobina        := 280;
            Danfce.ImprimeEmUmaLinha    := False;
            Danfce.ExibeInforAdicProduto:= infNenhum;

     

    image.png.4e41a76492ef5240de5da28fcb6475a6.png

     

  8. Utilizo o seguinte comando  para gerar o PDF da NFC-e

    ACBrNFe1.DANFE.ImprimirDANFEPDF

     

     

    o pdf Gerado está bugando a linha onde aparece a quantidade x vlr un x vlr total

    na pre visualização e impressão na bobina estão ok!!!!

    já mexi nas margens e não surge efeito.

     

    segue print

     

    image.png.f4fb908934abe58604ccfe293c565122.png

     

     

            Danfce := TACBrNFeDANFCeFortes.Create(nil);
            Danfce.MargemInferior     := 8;
            Danfce.MargemSuperior     := 8;
            Danfce.MargemEsquerda     := 1;
            Danfce.MargemDireita      := 5;
            Danfce.ImprimeQRCodeLateral := True;
            Danfce.ImprimeLogoLateral   := True;
            Danfce.LarguraBobina        := CfgLocal.LargBobinaNFCE; já usei 280 a 302
            Danfce.ImprimeEmUmaLinha    := False;
            Danfce.ExibeInforAdicProduto:= infNenhum;
    
            ACBrNFe1.DANFE              := Danfce;

     

  9. Em 31/05/2021 at 19:26, bfbraz disse:

    Boa galera...

    uma ajuda please

    faço meu acesso ao Receita WS mas passou a me dar problemas

    IdHTTP1 := TIdHTTP.Create(nil);
        try
          LHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
          try
                IdHTTP1.IOHandler := LHandler;
                IdHTTP1.ReadTimeout := 5000;

               
                          xCNPJ := edt_cnpj.Text;
                             xJSon := IdHTTP1.Get('https://www.receitaws.com.br/v1/cnpj/'+xCNPJ);

     

     

    me retorna o erro: SSL routines:SSL3_READ_BYTES:sslv3 alert handshake failure

    veja se te ajuda 

     

    http://www.activedelphi.com.br/forum/viewtopic.php?t=95064&sid=c6e1a688cb43a0d3dc4b39ea6631b5b3

  10. Em 08/06/2021 at 15:47, Fabrício Melo disse:

    Acabei de pegar um problema com esse W.S. um CNPJ com 2 meses de Criação não retornou

    {"cnpj":"**.450.822\/0001-**","ultima_atualizacao":"2021-04-01T19:00:11.016Z","status":"ERROR","message":"CNPJ rejeitado pela Receita Federal","billing":{"free":true,"database":true}}

    Então não é 100% essa consulta

    Resolvi ler a API

    https://www.receitaws.com.br/api

    😄

    pague o plano > prata e tenha consulta "real"

     

    Em 07/06/2021 at 11:47, alex_porthal disse:

    @luciano.limeira conseguiu achar uma solução? 

    ~´e dificil, a receita muda direto o site 😕

    • Curtir 1
  11. 1 minuto atrás, Léo disse:

    Bom dia Ricardo !, Sim já utilizo esta API, só que percebi que consumindo ela gratuitamente, tem um delay (tempo de atraso para atualização dos dados de até 32 dias), por isso que pensei em utilizar esta função alternativamente. O ideal seria a secretaria disponibilizar um WS para esse fim, pq para nós aqui esse é um dos principais motivos de suporte.

    existe, mas vc tem q pagar :D

    https://www.loja.serpro.gov.br/consultacnpj

     

     

    qto ao delay da api ali, vale lembrar que dados das empresas não mudam constantemente. já o site  ridículo da receita muda constantemente

     

     

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