rbleonel

sim, correto!

Eu fiz via código e pelo designer do form, porém, compilo e não surte efeito. Deve ter outro local que altera o tamanho dessa fonte. No código, na linha 674 está assim: TDFeReportFortes.DiminuirFonteSeNecessario(lNumeroExtrato, 6); Mudei para: TDFeReportFortes.DiminuirFonteSeNecessario(lNumeroExtrato, 7); Depois para: TDFeReportFortes.DiminuirFonteSeNecessario(lNumeroExtrato, 8); Tbm alterei no designer para 7 e 8. Nenhuma dessas alterações surtem efeito após compilar.

Então, conforme expliquei acima, eu fui direto na ACBrSATExtratoFortesFr.pas que está na pasta (ACBr\Fontes\ACBrSAT\Extrato\Fortes) e alterei direto na linha na linha 674. Só que essa alteração não surtiu efeito. Em anexo está a imagem do cupom impresso. Onde está riscado em vermelho é o que gostaria de ser aumentado o tamanho da fonte para 8.

Olá pessoal. Utilizo o componente ACBrSATExtratoFortes para imprimir o cupom fiscal. O problema é que a fonte do número do extrato está muito pequena. Alguns clientes estão reclamando que na impressão alguns números ficam ilegíveis. O tamanho da fonte do lNumeroExtrato no ACBrSATExtratoFortesFr acredito que esteja com tamanho 6. Eu consigo alterar diretamente no tamanho da fonte no lNumeroExtrato, porém, ao imprimir ele continua com a fonte muito pequena. Ele volta o tamanho 6. Originalmente o tamanho da fonte é alterada na linha 674 (TDFeReportFortes.DiminuirFonteSeNecessario(lNumeroExtrato, 6)). Ao invés de 6, coloquei 8 e mesmo assim não altera o tamanho. Onde eu poderia mudar o tamanho dessa fonte? Existe uma forma do meu aplicativo enviar o tamanho que eu desejo através de uma propriedade? Obrigado, Rogério.

@Juliomar Marchetti, obrigado pela resposta. Mas eu devo fazer alguma alteração na IDE do Delphi? Se sim, onde deve ser feita essa alteração? Ou então, o que deve ser ajustado? Obrigado.

Olá pessoal! Desenvolvi um sistema VCL no Delphi 10.4 e agora preciso fazer umas alterações e resolvi fazer essas alterações no Delphi 11.3 (Alexandria). O problema acontece com as corres e fonte dos componentes. Por exemplo: Delphi 10.4: TLabel: Fonte: Tahoma - Tamanho: 8 - Cor da fonte: Azul TPanel: Fonte: Tahoma - Tamanho: 8 - Color: $00C58137 Delphi 11.3 : TLabel: Fonte: Tahoma - Tamanho: 7 - Cor da fonte: Preto TPanel: Fonte: Tahoma - Tamanho: 8 - Color: Preto Isso é no projeto todo. Fora isso, o projeto compila e roda sem nenhum problema. Apenas "perde" as configurações originais de cor e fonte. Por acaso eu teria que modificar alguma configuração no Delphi 11.3 para que um projeto feito no Delphi 10.4 seja aberto exatamente como ele foi feito? Se sim, por favor, qual seria essa configuração? Detalhe: Se eu iniciar um projeto novo no Delphi 11.3, ele mantem as cores e tamanho de fonte. O problema acontece apenas se eu abro um projeto feito na versão anterior do Delphi. Obrigado.

Olá Italo, boa tarde. Fiz a atualização e instalação conforme orientou e agora está funcionando normalmente. Obrigado.

Olá boa tarde! Voltei pra a versão anterior do ACBR e voltou a funcionar tudo como antes. Talvez seja um problema na versão que está disponível para ser baixada. Acredito que seria bom dar uma olhadinha. De qualquer forma, obrigado a todos pela ajuda.

O problema estava na atualização do Fortes Report. Voltei para a versão 4.0.0.1 e as coisas voltaram ao normal. Porém, o Danfe ainda continua com um pequeno problema. Veja na imagem abaixo que o VALOR TOTAL e o VALOR DO DESCONTO estão sendo exibido errados. Eu marquei em vermelho para destacar. Para tentar resolver este problema, limpei toda a pasta do ACBR e baixei novamente, portanto, estou com a versão do ACBR mais recente. Obrigado, Rogério.

Ok, obrigado pelas respostas. Vou seguir essas orientações e logo eu retorno aqui nessa postagem relatando o resultado.

Olá pessoal! Utilizo Delphi 10.4. Atualizei os fontes do ACBR (02/09/2022) e após fazer a instalação do mesmo, verifiquei que o Danfe está com alguns problemas. Anexei 2 imagens para ilustrar os problemas. Na imagem chamada Tela1.png, a propriedade AlterarEscalaPadrao está FALSE. Veja que todo o Danfe está bem distribuída na página, porém, algumas informações estão emboladas conforme marquei com um quadrado em vermelho. Se eu altero a propriedade AlterarEscalaPadrao para TRUE, os dizeres dos detalhes dos produtos ficam corretos, porém, o Danfe não ocupa toda a folha. Veja na imagem Tela2.png em anexo. Coloquei um quadrado em vermelho onde deveria ocupar. Se fosse somente visualização, sem problemas. O problema é que a impressão fica igual, ou seja, reduzida. Alterei a propriedade NovaEscala de 96 para 100, 110 até 150 e os dizeres dos produtos vão embolando novamente. Além disso, na imagem Tela2.png, aponte 2 setas em azul. Veja que os dizeres do valor total e do desconto estão sendo exibidos de forma errada. Como eu poderia ajustar o Danfe corretamente utilizando as propriedades do componente? Obrigado, Rogério.

Boa tarde! Quero agradecer enormemente ao Italo e ao Big Wings pela atenção e ajuda dispensado ao meu problema. Consegui emitir o manifesto. Obrigado a todos.

Segue XML anexado. XMLCTeTemp.xml

Sei que estou sendo chato mas, ainda assim não foi! Um pequeno detalhe, a propriedade cOrgao é do tipo integer. Ao invés de colocar SP, coloquei 35. Mesmo fazendo esse ajuste, retorna a mesma rejeição de "UF não informada no campo UF...." Tens mais alguma sugestão?

Bom dia! Agora o XML foi gerado corretamente e consegui enviar. Estava faltando a linha: MemoResp.Lines.Text := MD_Comum.ACBrCTe1.EventoCTe.Gerador.ArquivoFormatoXML; Só que ao enviar, está retornando a seguinte rejeição: "UF informada no campo UF não é atendida pelo WebService" Fiz aquela configuração básica no componente conforme mostrei na postagem inicial acima e no campo UF, está configurado para SP. Veja: ACBrCTe1.Configuracoes.WebServices.UF := 'SP'; O emitente do CTe é do PR e o tomador de SP. No componente tenho que informar PR ao invés de SP ou tenho que fazer outra configuração? Obrigado, Rogério.

Não, o bloco da rotina é super simples sem nada protegido. Dentro do botão está apenas isso: ACBrCTe1.EventoCTe.Evento.Clear; ACBrCTe1.Configuracoes.Arquivos.Salvar := True; ACBrCTe1.Configuracoes.Arquivos.PathSalvar := 'C:\TMP'; ACBrCTe1.Configuracoes.WebServices.Salvar := True; ACBrCTe1.Configuracoes.Geral.SSLLib := libWinCrypt; ACBrCTe1.SSL.SSLType := TSSLType(5); ACBrCTe1.Configuracoes.Geral.RetirarAcentos := True; ACBrCTe1.Configuracoes.Arquivos.PathSchemas := 'C:\Schemas\CTe'; ACBrCTe1.Configuracoes.WebServices.Ambiente := taProducao; ACBrCTe1.Configuracoes.WebServices.UF := 'SP'; ACBrCTe1.SSL.SelecionarCertificado; with ACBrCTe1.EventoCTe.Evento.New do begin infEvento.nSeqEvento := 1; infEvento.chCTe := Edit1.Text; infEvento.CNPJ := CNPJ_Emitente; infEvento.dhEvento := Now; infEvento.tpEvento := tePrestDesacordo; infEvento.detEvento.xObs := Edit2.Text; end; ACBrCTe1.EventoCTe.GerarXML; LoadXML(MemoResp, WBResposta); Veja que tem o LoadXML para exibir o conteúdo do XML. O componente está gerando o XML totalmente vazio. Rotininha bem simples mesmo. Nada de frescuras. Clicar no botão e é isso ai que faz. Mais nada.

Sim, também é gerado vazio.

Bom dia Italo! Bem, acredito que esteja faltando algo na alimentação do componente. O arquivo XML está sendo criado totalmente vazio. Segui os passos dos exemplos. Veja: ACBrCTe1.EventoCTe.Evento.Clear; ACBrCTe1.Configuracoes.Arquivos.Salvar := True; ACBrCTe1.Configuracoes.Arquivos.PathSalvar := 'C:\TMP'; ACBrCTe1.Configuracoes.WebServices.Salvar := True; ACBrCTe1.Configuracoes.Geral.SSLLib := libWinCrypt; ACBrCTe1.SSL.SSLType := TSSLType(5); ACBrCTe1.Configuracoes.Geral.RetirarAcentos := True; ACBrCTe1.Configuracoes.Arquivos.PathSchemas := 'C:\Schemas\CTe'; ACBrCTe1.Configuracoes.WebServices.Ambiente := taProducao; ACBrCTe1.Configuracoes.WebServices.UF := 'SP'; ACBrCTe1.SSL.SelecionarCertificado; with ACBrCTe1.EventoCTe.Evento.New do begin infEvento.nSeqEvento := 1; infEvento.chCTe := Edit1.Text; infEvento.CNPJ := CNPJ_Emitente; infEvento.dhEvento := Now; infEvento.tpEvento := tePrestDesacordo; infEvento.detEvento.xObs := Edit2.Text; end; ACBrCTe1.EventoCTe.GerarXML; LoadXML(MemoResp, WBResposta); Fazendo assim, o XML é criado 100% vazio. Sabe dizer onde estou comendo bola? Obrigado, Rogério.

Bom dia pessoal! Estou implementado o manifesto de desacordo do CTe da seguinte forma: ACBrCTe1.EventoCTe.Evento[0].infevento.chCTe := Edit1.Text; ACBrCTe1.EventoCTe.Evento[0].infevento.CNPJ := LimpaCampos(Edit2.Text); ACBrCTe1.EventoCTe.Evento[0].infevento.dhEvento := Now; ACBrCTe1.EventoCTe.Evento[0].infevento.nSeqEvento := 1; ACBrCTe1.EventoCTe.Evento[0].infevento.tpEvento := tePrestDesacordo; ACBrCTe1.EventoCTe.Evento[0].infevento.detEvento.xOBS := Edit3.Text; ACBrCTe1.EventoCTe.Evento[0].infevento.detEvento.descEvento := 'Prestação de serviço em Desacordo'; ACBrCTe1.EnviarEvento(1); O problema é que o retorno (cStat) está retornando com zero. A alimentação do componente estou fazendo baseado em outro tópico muito antigo: Gostaria de saber o que está faltando para que eu tenha sucesso nessa operação. Alguém poderia me ajudar? Outra dúvida é quanto a essa propriedade: ACBrCTe1.EventoCTe.Evento[0].infevento.CNPJ Esse CNPJ é o da transportadora emitente do CTe ou é o CNPJ da empresa que está fazendo o desacordo? Enfim, como posso alimentar o componente de forma correta para fazer o desacordo? Obrigado, Rogério.

Olá pessoal. Preciso gerar um CFe sem informar o MP (meio de pagamento). O cliente veio na loja trocar um produto por outro. Ele trocou por 2 produtos de menor valor que o primeiro. Os 2 produtos somados ficaram o mesmo valor do produto devolvido. Neste caso, não tem pagamento e nem troco. Como faço para emitir esse cupom com essa situação. Já tentei fazer sem informar o MP e é rejeitado. Também coloquei o MP com valor zerado e também é rejeitado. Existe uma solução para isso? Obrigado, Rogério.

Olá pessoal. Preciso enviar um cupom pro SAT sem ratear desconto nos produtos. Até ai, tudo bem! O problema é que quando envio para o SAT, retorna a seguinte mensagem de erro: "Erro no Campo 'vCFe' : Campo vCFe maior que a soma dos valores do MP." Pois bem, o MP está correto, ou seja, o vCFe e o vMP estão com os mesmos valores. Estou fazendo os testes no emulador SAT da Sefaz, porém, se enviar para o equipamento SAT, retorna o mesmo erro. Segue em anexo o XML. Alguém saberia dizer onde está o erro no XML?SatXMLTemp.xml Obrigado, Rogério.

Baixei os fontes agora e não mexeram em nada. Acho que nem avaliaram. Vamos aguardar.

bom dia. Não preciso mandar o XML. Basta testar o fonte original e ver como o XML foi montado e depois, testar com o .pas que anexei e ver a diferença. Simples assim.

Olá pessoal. Fiz a atualização do pacote ACBr e acredito que exista um equivoco na geração do XML referente a IE e Ind. IE Dest. Até antes de atualizar, o XML era gerado corretamente com a tag: <IndIEDest>9</IndIEDest> <IE>999999999999</IE> ou <IndIEDest>1</IndIEDest> <IE>999999999999</IE> Depois da atualização, não gerou mais o XML com a tag da IE e ao enviar para a Sefaz, retorna a rejeição 232. Abri a unit pcnNFeW.pas e na linha 638 eu mudei de: if nfe.Dest.indIEDest <> inNaoContribuinte para if nfe.Dest.indIEDest <> inIsento Fiz essa alteração, compilei e agora a Sefaz/SP aceitou para os 2 casos. Em anexo está a unit que alterei. Vocês poderiam avaliar se minha alteração está correta? Obrigado, Rogério. pcnNFeW.pas

Eu não modifiquei nada. Só quero saber se existe uma forma de aumentar o tamanho da fonte do cabeçalho via componente.