Turbo Drive

Bom dia a todos. Em algumas telas do meu software, ao dar o preview nos relatórios usando o Fortes report, estão aparecendo os filtros PDF, Richtext e XLS repetidamente na janela de salvamento do relatório. Alguém sabe informar como contornar essa situação ? Desde já agradeço a atenção.

Fortes Report, e também está atualizado.

Bom dia Não sei se é o seu caso, mas comigo acontece muito quando instalo o Acbr com os componentes para impressão do CT-e e MDF-e. Então eu desmarco, instalo o componente com o instalador, e os outros instalo manualmente.

Bom dia Conforme já foi discutido aqui, feche sua aplicação, e tente realizar a configuração no Internet Explorer. Acesse ferramentas; Selecionar Opções da Internet; Avançadas, desça até o final da barra e deixe somente marcado as seguintes opções: Para Windows 7: Usar SSL 2.0 Usar TSL 1.0 Para Windows 10: Usar SSL 3.0 Usar TSL 1.0 Verificar se há assinaturas em programas baixados Clique em aplicar.

Bom dia Em setembro, fiz a atualização do Acbr, tudo ocorreu sem problemas. Ao migrar para a versão do QR Code 2.0, notei que o tamanho está menor do que antes e mesmo configurando um tamanho maior, este não está aumentando. No manual liberado em março, menciona que o tamanho mínimo é 25 mm x 25 mm. Existe alguma forma de aumentar o tamanho ? Desde já agradeço a atenção.

Isso mesmo @Juliomar Marchetti

Bom dia Tenho um app no qual ele grava os dados diretamente no banco Mysql, usando a conexão com UniDAC. Depois de um certo tempo de uso, coisa de 10 ou 20 min, o app fecha sozinho. O celular não trava, apenas o app fecha do nada. Esse problema ocorre em vários celulares de marcas diferentes, mesmo em aparelhos com memória RAM de 2 GB em diante, e versões diferentes de Android, desde o 5 ao 7. O App tem apenas 4 forms, tamanho final ficou em 36 MB. Verifiquei o consumo de memória dos aparelhos, e o máximo consumido chegou a 86 MB. Alguém teria alguma dica do que poderia estar ocorrendo ?

Bom dia Muito obrigado amigo @BigWings, cometi esse deslize de não atualizar os Schemas.

Boa tarde Aproveitando a dúvida do colega, estou tentando enviar uma NF-e informando o indPag no grupo dos pagamentos, infelizmente estou tendo a seguinte rejeição: Element '{http://www.portalfiscal.inf.br/nfe}indPag' is unexpected according to content model of parent element '{http://www.portalfiscal.inf.br/nfe}detPag'. Expecting: {http://www.portalfiscal.inf.br/nfe}tPag. No XML está de acordo com a nota técnica: -<pag> -<detPag> <indPag>1</indPag> <tPag>15</tPag> <vPag>15.00</vPag> </detPag> </pag> No exemplo em questão, estou efetuando um pagamento de R$ 15,00 em Boleto. Meu Acbr foi atualizado em 23/05/18, e ao remover a indPag, a NF-e é autorizada sem problemas. Existe algo que eu possa fazer para corrigir essa situação ? Desde já agradeço a atenção.

Boa tarde a todos Estou tentando usar a unit LkJson no Lazarus 1.8.2, mas está dando falha ao compilar na função abaixo: function TlkJSONcustomlist.GetChild(idx: Integer): TlkJSONbase; begin if (idx < 0) or (idx >= Count) then begin result := nil; end else begin result := fList.Items[idx]; end; end; Mais precisamente, o erro ocorre devido o result ser do tipo TlkJSONbase, mas está sendo passado fList.Items[idx]. Sei que Flist está declarado como TList, e funciona sem problemas no Delphi 7, mas infelizmente não funciona no Lazarus. É possível usar essa unit no lazarus ou devo utilizar outra biblioteca ? Desde já agradeço a atenção.

Boa tarde Tivemos um cliente em que o servidor e o pen drive com o backup dos xmls foi roubado. Quem resolveu a situação foi o contador, que dirigiu-se a SET, pagou um valor X e conseguiu recuperar algo em torno de 120 xmls das NFC-e. Gerei uma ferramenta de leitura dos XMLs e recuperamos as vendas. Ouvi rumores, que estão testando uma api que possibilitará o download dos XMLs.

Bom dia Gostaria de saber em qual arquivo .pas se encontra a montagem da impressão da NFC-e quando enviamos o comando AcbrNFce.NotasFiscais.imprimir; O motivo é que quero comparar os fontes que atualizei essa semana com os fontes das versões anteriores, pois estou recebendo reclamações de alguns clientes que alegam estar faltando informações e até mesmo impressão pela metade, durante a impressão das NFC-e. OBS: Peço desculpas se a dúvida tiver sido de certa forma ofensiva. Desde já agradeço a atenção.

Amigo @joaomello, não sei se te ajuda, mas há muito tempo, tive esse tipo de problema com o Fast Reports na emissão da NF-e. Ao migrar para o fortes report, consegui resolver. Lembrando que para as últimas versões do Acbr, deve-se usar o Fortes Report CE.

Bom dia Também faço o mesmo procedimento a cada impressão. Para as impressoras Bematech, sugiro configurar a porta virtual serial ou deixá-las se comunicando via IP. Para isso basta usar o bematech User Software, definir o IP da impressora e configurar no componente informando na porta TCP:IP_impressora. Ex: TCP:192.168.0.150

Muito obrigado a todos pela ajuda.

Obrigado amigo @Sérgio Assunção Sem querer abusar, mas você teria algum documento que explique isso para que eu tenha um embasamento legal. Gato pela atenção.

As regras de arredondamento eu possuo, amigo Henrique. O X da questão é qual o valor que é aceito no Fisco, se é o valor truncado ou arredondado. Grato pela atenção.

Boa tarde Fiz várias pesquisas no google e aqui no fórum, encontrei muitos links de 2011, 2012 e até 2015, mas não consegui sanar minha dúvida, sobre arredondamento / truncamento na NF-e ou NFC-e. Tenho a seguinte situação: Qtde vendida: 9 unidades Preço: R$ 0,333 Ao multiplicarmos, temos o total de R$ 2,997. Para a NF-e e NFC-e, o valor final do produto só pode ter duas casas decimais, nesse caso o correto seria informar o valor truncado, R$ 2,99, ou informar o valor arredondado, R$ 3,00 ? Ou ainda, isso seria de acordo com a tributação da UF onde o meu software estiver sendo executado ? Desde já agradeço a atenção

Boa noite Baixei os fontes ontem, 19/08/17, mas só consegui instalar no Delphi 7 e no Delphi Berlin instalando manualmente cada pacote. Porém, ao compilar um dos projetos que ainda estão no Delphi 7, ocorreu erro na função X509_digest da unit AcbrDFeOpenSSL function GetThumbPrint( cert: pX509 ): String; var md_type: PEVP_MD; md_len: {$IFDEF USE_libeay32}Cardinal{$Else}Integer{$EndIf}; md: AnsiString; begin md_type := EVP_get_digestbyname( 'sha1' ); md_len := 0; SetLength(md, EVP_MAX_MD_SIZE); {$IFDEF USE_libeay32} X509_digest(cert, md_type, @md[1], md_len); {$ELSE} X509Digest(cert, md_type, md, md_len); {$ENDIF} SetLength(md, md_len); Result := AsciiToHex(md); end; Comentei essa função e ao compilar o meu projeto, ocorreu tudo bem. Gostaria de saber qual unit pertence a função X509_digest ou como corrigir essa incompatibilidade. Desde já agradeço a atenção de todos.

Bom dia Estou usando a seguinte função para capturar a data e hora do servidor: AcbrNfe1.WebServices.StatusServico.Executar; hrserv26 := TimeToStr(AcbrNfe1.WebServices.StatusServico.dhRecbto); dtsrv26 := dateToStr(AcbrNfe1.WebServices.StatusServico.dhRecbto); Estou no RN, e aqui usamos o servidor do RS. Atrasei a hora do meu computador em 60 min, e ao invés do retorno ser 10:00 hrs, ainda está me retornando a hora atrasada. Verifiquei o XML da consulta, e este vem com a data e hora do servidor. Não tenho certeza, mas acho que o retorno com atraso esteja nessa função da unit AcbrNFeWebservices if (pos('svrs.rs.gov.br', FPURL) > 0) and (MinutesBetween(NFeRetorno.dhRecbto, Now) > 50) and (not IsHorarioDeVerao(CUFtoUF(FcUF), NFeRetorno.dhRecbto)) then FdhRecbto:= IncHour(NFeRetorno.dhRecbto,-1) else FdhRecbto := NFeRetorno.dhRecbto; Existe alguma forma configurar o componente para chamar essa função apenas no período do horário de verão ? Desde já agradeço a atenção.

Boa noite Tenho instalado em minha máquina do escritório e na minha máquina pessoal, o delphi 7 e o XE10. No meu escritório, eu consigo atualizar os fontes do Acbr tanto no delphi 7 quanto no XE10, mas em minha máquina pessoal, só consigo no XE10. Ao usar o instalador, todos os pacotes são compilados e instalados com sucesso. Mas ao abrir o Delphi 7, ocorre erros informando que vários componentes não foram instalados: Acbr_BlocoX, NF-e, CT-e, MDF-e, Sped... Em meu escritório, uso Windows 7 32 bits e na minha máquina Windows 10 64 bits. A única versão que consigo instalar, é a de fevereiro de 2017. Fiz várias pesquisas no fórum, mas não obtive sucesso. Sei que já foi comentado no fórum que o componente não daria mais suporte a versão delphi 7, mas agradeceria se os colegas me ajudassem com essa questão.

Bom dia Você pode tentar isso: podeir := true; try AcbrNfce.WebServices.StatusServico.Executar; // aqui você trata o retorno do webservice. Em todo caso, aqui indica que há internet e houve comunicação com a Sefaz except on E : exception do begin podeir := false; // aqui vc captura a mensagem e joga ou não para o usuário end; end; if podeir = true then begin AcbrNFce.Enviar(vNumLote, false, Sincrono); //tratamento do retorno da função ou chama a função Enviar end else //aqui vc trata em contingência Espero ter ajudado.

Bom dia @Arnaldo Cruz nas vendas com POS (maquininhas), já pode ser informado desde o início da NFC-e. Eu utilizo dessa forma: with pag.Add do begin tPag := fpCartaoCredito; // se for débito, usar tPag := fpCartaoDebito; vPag := dmlojas.qres3.fieldbyname('vlpago').asfloat; // valor pago em cartão de crédito ou débito tpIntegra := tiPagNaoIntegrado; CNPJ := '99999999999999'; cAut := dmlojas.qres3.fieldbyname('cdnsu').asstring; // código NSU ou DOC impresso pela maquineta tBand := bcVisa; // pode-se outras bandeiras como bcMastercard, bcAmericanExpress, bcSorocred.... end; Quando o usuário vai encerrar uma venda, eu disponibilizo as opções de fechamento em Dinheiro, Cheque, cartão TEF ou cartão POS. Caso seja cartão POS, abre-se uma tela onde o usuário deve informar, o valor, o tipo de transação, NSU ou DOC e a bandeira. Espero ter ajudado.

Bom dia Carreguei duas imagens numa impressora Elgin I7, acrescentei o comando </logo> antes da impressão do cabeçalho, informei a Keycode1 = 0 e Keycode2 = 0, mas não consegui imprimir a logomarca. Ambas imagens possuem a dimensão 64 x 50, uma está no formato BMP monocromática e a outra no formato PNG. Existe algo a mais que precise ser informado ? Grato pela atenção.

Boa tarde ACBrMDFe1.Manifestos.Clear; ACBrMDFe1.Manifestos.LoadFromFile(ArqMdfe); ACBrMDFe1.EventoMDFe.Evento.Clear; with ACBrMDFe1.EventoMDFe.Evento.Add do begin infEvento.chMDFe := chvMdfe; infEvento.CNPJ := MeuCnpj; infEvento.dhEvento := now; infEvento.tpEvento := teEncerramento; infEvento.nSeqEvento := nseq; infEvento.detEvento.nProt := protMdfe; infEvento.detEvento.dtEnc := Date; infEvento.detEvento.cUF := Ufcli; infEvento.detEvento.cMun := CodCid; end; ACBrMDFe1.EnviarEvento( LoteAtual ); Estou tentando encerrar um MDF-e de acordo com o código acima, mas não estou conseguindo capturar os retornos do evento. Para o código de retorno estou usando ACBrMDFe1.WebServices.EnvEvento.cStat Caso o valor de cStat seja superior a 200, eu uso ACBrMDFe1.WebServices.EnvEvento.RetWS para exibir ao usuário. Existe alguma outra forma de se capturar os retornos ao encerrar um MDF-e ? Desde já agradeço a atenção.