Turbo Drive

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.

Bom dia Informando o compartilhamento dá certo, mas só consigo instalar uma impressora por computador. Existe a situação em que não há computador, apenas a impressora conectada via IP (cabo ou wi-fi) para cada departamento.

Bom dia Está ligada via IP. Geralmente informo uma variável no componente prt := 'TCP:192.168.0.37:9100'; Quando envio o comando de impressão, ocorre: Comunication error.... Desde já agradeço a atenção.

Boa tarde Fiz alguns testes em laboratório, e não consegui imprimir via IP. Alguém teria algum código exemplo de como devo informar o IP para o Acbr ? Desde já agradeço a atenção.

Obrigado @Daniel Simoes

Bom dia Vi nesse tópico que é possível imprimir via Ethernet nas impressoras não fiscais bematech MP 4200 TH, informando na porta do componente, a string "TCP:192.168.0.10:9100" Gostaria de saber quais drivers precisam ser instalados para comunicar com a Bematech. Se eu tiver, por exemplo, 3 computadores e apenas uma impressora, existe a possibilidade de se fazer esse tipo de comunicação ? É possível usar esses procedimentos com as impressoras Elgin ( i7 ou i9 ) ou Daruma ( DR700 ou DR800 ) ? Desde já agradeço a atenção.

Amigo, BigWings, queira me desculpar, mas ainda estou na dúvida. Fiz outros testes, e ao enviar, a chave foi modificada para ficar com o mês vigente. Em resumo, a venda foi de abril, mas fiz a transmissão hoje. Na primeira NFC-e, a chave ficou 241704....., já na segunda NFC-e, a chave ficou com 241705....., ambas foram autorizadas. Qual seria a data de emissão correta: Abril ou maio ? Grato pela atenção.

Boa tarde Estou fazendo testes no meu software, onde um deles consistia em emitir uma NFC-e em contingência com data de abril, e transmitir hoje. Ao gravar os dados, a chave de acesso ficou 241704...., devido ter sido feita em "abril". Ao efetuar a transmissão com a data de hoje, 19/05/17, a NFC-e foi transmitida tranquilamente, porém permaneceu com a mesma chave de acesso. De acordo com o manual, a chave deve ser composta contendo o ano e mês da emissão. A dúvida é: Se a venda foi feita em Abril, mas é transmitida em Maio, a chave não deveria ser composta pelo mês que foi enviada para a Sefaz ? Grato pela atenção.

Bom dia Já tinha ciência do ano e mês fazerem parte da chave de acesso. Tive uma situação em que se faz necessário a data completa da emissão. Em todo caso, muito obrigado pela ajuda.

Boa tarde Usando a função AcbrNFce.WebServices.Consulta.Executar, eu consigo capturar a data de autorização da NFC-e. Eu gostaria de saber se existe alguma forma de se capturar a data de emissão de uma NFC-e, informando apenas a chave de acesso ? Desde já agradeço a atenção.