[Tamanho da fonte no cabeçalho do cupom]

2 horas atrás, BigWings disse:

Você está executando o instalador do ACBr para recompilar, correto?

sim, correto!

[Tamanho da fonte no cabeçalho do cupom]

16 minutos atrás, BigWings disse:

A fonte padrão é tamanho 7, e diminui pra 6 se o texto final for maior que a largura de impressão da página.

Você pode comentar a linha 674 pra manter o tamanho 7, provavelmente vai ter que mexer nas margens também pra acomodar.

Tamanho 8 creio ficar grande demais, mas pode fazer via código ou pelo designer do formulário.

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.

[Tamanho da fonte no cabeçalho do cupom]

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.

[Tamanho da fonte no cabeçalho do cupom]

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.

[Abrir projeto feito em Delphi 10.4 no Delphi 11.3]

@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.

[Abrir projeto feito em Delphi 10.4 no Delphi 11.3]

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.

 

[Impressão do Danfe]

Olá Italo, boa tarde.

Fiz a atualização e instalação conforme orientou e agora está funcionando normalmente.

Obrigado.

[Impressão do Danfe]

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.

[Impressão do Danfe]

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.

 

[Impressão do Danfe]

Ok, obrigado pelas respostas.

Vou seguir essas orientações e logo eu retorno aqui nessa postagem relatando o resultado.

[Impressão do Danfe]

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.

[Manifesto de Desacordo de CTe]

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.

[Manifesto de Desacordo de CTe]

4 horas atrás, Italo Jurisato Junior disse:

Rogério,

Anexa os XMLs gerados.

Segue XML anexado.

XMLCTeTemp.xml

[Manifesto de Desacordo de CTe]

20 minutos atrás, Italo Jurisato Junior disse:

Bom dia Rogério,

A configuração esta correta, se o tomador é de SP, você tem que informar SP ao campo UF.

Mas na sua rotina esta faltando uma linha.

infEvento.cOrgao          := 'SP';

A UF informada em ACBrCTe1.Configuracoes.WebServices.UF tem que ser a mesma informada em infEvento.cOrgao.

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?

[Manifesto de Desacordo de CTe]

17 horas atrás, BigWings disse:

O método GerarXML gera o conteúdo do arquivo apenas internamente, o arquivo XML de envio de evento é gerado caso você use o método EnviarEvento.

Para visualizar o XML como é feito no demo do componente, usando o GerarXML, experimente trocar as linhas acima por:

  ACBrCTe1.EventoCTe.GerarXML;
  MemoResp.Lines.Text := ACBrCTe1.EventoCTe.Gerador.ArquivoFormatoXML;
  LoadXML(MemoResp, WBResposta);

Se estiver usando EnviarEvento:

  ACBrCTe1.EnviarEvento(1);
  MemoResp.Lines.Text := ACBrCTe1.WebServices.EnvEvento.RetWS;
  LoadXML(MemoResp, WBResposta);

 

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.

[Manifesto de Desacordo de CTe]

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.

[Manifesto de Desacordo de CTe]

Sim, também é gerado vazio.

[Manifesto de Desacordo de CTe]

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.

[Manifesto de Desacordo de CTe]

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.

[Não informar meio de pagamento]

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.

[Aplicar Desconto SEM rateio no produto]

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.

[Rejeição 232: IE do destinatário não informada]

Baixei os fontes agora e não mexeram em nada.

Acho que nem avaliaram.

Vamos aguardar.

[Rejeição 232: IE do destinatário não informada]

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.

[Rejeição 232: IE do destinatário não informada]

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

[Alterar Fonte da impressão do cupom]

Eu não modifiquei nada.

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