Jump to content

click.png

click.png

click.png

click.png click.png click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

Ricardo Rohde

Membros
  • Posts

    207
  • Joined

  • Last visited

Contact Methods

  • Website URL
    www.clubedovectra.com.br

Recent Profile Visitors

1,331 profile views

Ricardo Rohde's Achievements

Community Regular

Community Regular (8/14)

  • Reacting Well Rare
  • First Post
  • Collaborator Rare
  • Conversation Starter
  • Week One Done

Recent Badges

33

Reputation

8

Community Answers

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