Jump to content

Ricardo Rohde

Membros
  • Posts

    207
  • Joined

  • Last visited

Everything posted by Ricardo Rohde

  1. veja a autenticacao em duas etapas.. veja tb o acesso menos seguro
  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. 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. 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);
  5. Hmm, vc setou alguma propriedade pra tirar o "espaço em branco"?
  6. Quais delas?? esse q vc citou do espaço grande no final nem me preocupo... mas se tiver como reduzir.. seria melhor.. até pq diminuiria o pdf
  7. ja feito e sem sucesso. só procuro o forum qdo minhas alternativas acabam 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
  8. Xará, Mudei o seguinte no mLinhaTotalItem, alterei o Alignment de taRightJustify para taCenter ((( 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;
  9. eu coloquei em produção uma versão aqui, antes de chamar print ou preview seto o SetRoundMode(rmNearest); vamos ver se faz diferença
  10. @André Ferreira de Moraes, sat não é minha área.. mas me parece q a MotivoInvalidoVenda da AcbrSat.pas não contem todos os códigos de erro.
  11. fala Ricardo, já está tudo certinho, é só no geraPdf q da esse pau do boleto, vou usar o SetRoundMode(rmNearest); antes de imprimir, conforme visto no outro tópico q eu havia "abandonado"
  12. estou com o erro acima... assim como este a baixo q gera linhas tortas q me atormenta e não sei o que fazer
  13. 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 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;
  14. olá, vc ja tem algo pronto ou necessita de desenvolvimento? qual seria o valor?
  15. veja se te ajuda http://www.activedelphi.com.br/forum/viewtopic.php?t=95064&sid=c6e1a688cb43a0d3dc4b39ea6631b5b3
  16. pague o plano > prata e tenha consulta "real" ~´e dificil, a receita muda direto o site
  17. Olá, Eu utilizo os csv disponibilizado pelo acbr e não tive problema algum.
  18. existe, mas vc tem q pagar 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
  19. cara fuja dessa [email protected]@@@@@.. faz consulta pela api da receitaws
  20. compreendo.. mas a ideia q dei de colocar um json no svn seria possivel? isso ajudaria a montar uma url padrao
  21. a parte mais difícil, é saber qual é a ultima versão da bendita tabela
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.