AlexBecker
-
Total de ítens
135 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por AlexBecker
-
-
tem a config para os 2 ali juliomar, uso os 2 dm5.ACBrNFeDANFeRL1 e dm5.ACBrNFeDANFEFR1, mudei para o FORTES REPORT agora mas é muito estranho parace que a config não surte efeito mudando ao carregar em runtime, tenho uma impressora EPSON aqui tbem de outro modelo e nela também está fora a impressão do FORTES REPORT, como alterar diretamente o relatorio no fortes report? porque ai compilo ejá envio alterado dentro do exe para este cliente.
-
2 minutos atrás, Juliomar Marchetti disse:
Passe a regulagem via programação, se estiver só alterando o componente em designe timer não vai suritir efeito
eu criei 2 campos de config no sistema, margem esquerda e direita e passo em runtime toda vez que carrega o sistema:
dm5.ACBrNFeDANFeRL1.MargemEsquerda := dm5.LConfiguracaoNfeMargemEsquerdaNFe.Value;
dm5.ACBrNFeDANFeRL1.MargemDireita := dm5.LConfiguracaoNfeMargemDireitaNFe.Value;dm5.ACBrNFeDANFEFR1.MargemEsquerda := dm5.LConfiguracaoNfeMargemEsquerdaNFe.Value;
dm5.ACBrNFeDANFEFR1.MargemDireita := dm5.LConfiguracaoNfeMargemDireitaNFe.Value;
qual é o modelo de danfe que o fast usa? tem a pasta relatorios mas apaguei todos os .FR3, copiei para uma nova pasta e mesmo sem eles continua abrindo a danfe então deve estar configurado para usar internamente, armazenar fr3 no projeto, tem como alterar isto também? -
Bom dia a todos, tenho 1 cliente com uma impressora EPSON M1100, no sistema estou utilizando o danfe com o fast report e deixo configurar margem porém a minha margem esquerda mesmo com alteração nas regulagens parece não surtir efeito e fica a linha gráfica de fora da impressão, em 1 outro cliente regulo a margem com impressora HP e a ela resolve já neste não, outra coisa é que em alguns codigos estã imprimindo o codigo de produto esta imprimindo o codigo de barras e está remontando em cima do nome do produto, qual é o modelo de DANFE que é usado para imprimir no fast e em que local ele fica salvo? desde já agradeço...
-
19 minutos atrás, Juliomar Marchetti disse:
Exatamente
então, não sei explicar mas... sem alterar nenhuma linha de código agora, do mesmo jeito que postei acima, sem pegar o número do certificado só informando o arquivo agora funcionou, sai para almoço, voltei e rodei o mesmo código e não retornou mais o erro passou normalmente com o dadosPFX pegando direto do banco de dados, até o momento tudo beleza e funcionando corretamente com o fonte que eu citei no topico do post sem alterar nada, Juliomar e Daniel... MUITO OBRIGADO pela atenção pessoal!
-
11 minutos atrás, Juliomar Marchetti disse:
Vamos lá .
creio que está tendo confusões.
Se tu guardar o certificado no banco tu vai carregar ele no campo DadosPFX e a senha.
então não vai informar numero de serie
e se precisa dos dados vai acessar ACBrNFe1.SSL.CertNumeroSerie
18 minutos atrás, Daniel Simoes disse:o método "SelecionarCertificado" só faz sentido para certificados que foram previamente instalados no Windows
na verdade PRECISAR eu especificamente não preciso para nada mas quando carrego os dados do certificado para o banco de dados:
QConfiguracaoNfeCertificadoArquivoPFX.LoadFromFile(Dialogo.FileName); //DIRETO NA LEITURA DO CAMPO BLOB PARA O BANCO
eu informo o certificado e a senha, guardei os dados em um campo blob fazendo a leitura direta do arquivo ( sem nenhum tipo de converção ), faço a leitura:
acbrNfce.Configuracoes.Certificados.DadosPFX := LConfiguracaoNfeCertificadoArquivoPFX.Value; //campo no banco com o certificado armazenado
acbrNfce.Configuracoes.Certificados.Senha := LConfiguracaoNfeCERTIFICADO_DIGITAL_SENHA.Value;então depois de ler desta forma eu não precisaria informar o numero do certificado? seria isto? se caso nao precisar é exatamente da forma que faço hoje ou seja, se é aruquivo PFX eu informo no dadosPFX do acbr, porém me retona o erro que não tenho um arquivoPFX informado ou certificado digital...
erro: DadosPFX, ArquivoPFX, URLPFX ou NumeroSerie não especificados !
será que o arquivo PFX carregado para o banco de dados precisa de alguma formatação ou converção? a forma como utilizei encontrei aqui no fórum mesmo indicado por outro colega em um post.
o certificado que estou utilizando é válido e estava instalado no windows funcionando corretamente, como ainda até hoje não trabalhei com o arquivo em banco estou levando uma surra em fazer sua utilizacao direta.
-
Olá a todos! seguindo alguns exemplos aqui do fórun guardei meu certificado digital no banco de dados em um campo blob
###### RESUMO GERAL ANTES DE LER TODO O POST: acbrNfce.SelecionarCertificado; qual é o comando para ler o numero do certificado depois de especificado para o componente o SSLib conforme fonte abaixo, visando que fiz busca no demo por: SelecionarCertificado e não encontrei, desde já agradeço a todos.
try
QConfiguracaoNfeCertificadoArquivoPFX.Clear;
QConfiguracaoNfeCertificadoArquivoPFX.LoadFromFile(Dialogo.FileName);
except
MessageBox(handle, 'Erro ao gravar o certificado no banco de dados !', 'Mensagem de aviso', mb_IconInformation + 0 + mb_DefButton4);
QConfiguracaoNfeCertificadoArquivoPFX.Clear;
Exit;
end;o aquivo é carregado e guardado no banco, para ler utilizo:
acbrNfce.Configuracoes.Certificados.DadosPFX := LConfiguracaoNfeCertificadoArquivoPFX.Value; //campo no banco com o certificado armazenado
acbrNfce.Configuracoes.Certificados.Senha := LConfiguracaoNfeCERTIFICADO_DIGITAL_SENHA.Value;configoro com as demais configuracoes que utilizo quando é informado o numero do certificado normalmente ( onde com o certificado instalado no windows e buscando pelo numero funciona corretamente )
porém quando informo: ACBrNFe1.Configuracoes.Certificados.DadosPFX := dm5.LConfiguracaoNfeCertificadoArquivoPFX.Value; Me retorna este Erro aqui:
DadosPFX, ArquivoPFX, URLPFX ou NumeroSerie não especificados !
codigo fonte:
################################
dm7.acbrNfce.SSL.SSLType := TSSLType(dm5.LConfiguracaoNfeSSLType.AsInteger);
dm7.acbrNfce.Configuracoes.Geral.SSLLib := TSSLLib(dm5.LConfiguracaoNfeSSLLib.AsInteger);
dm7.acbrNfce.Configuracoes.Geral.SSLCryptLib := TSSLCryptLib(dm5.LConfiguracaoNfeCryptoLib.AsInteger);
dm7.acbrNfce.Configuracoes.Geral.SSLHttpLib := TSSLHttpLib(dm5.LConfiguracaoNfeHttpLib.AsInteger);
dm7.acbrNfce.Configuracoes.Geral.SSLXmlSignLib := TSSLXmlSignLib(dm5.LConfiguracaoNfeXMLSignLib.AsInteger);
dm7.acbrNfce.Configuracoes.Geral.AtualizarXMLCancelado := (dm5.LConfiguracaoNfeAtualizarXML.AsString = 'S');
dm7.acbrNfce.Configuracoes.Geral.ExibirErroSchema := (dm5.LConfiguracaoNfeExibirErroSchema.AsString = 'S');
dm7.acbrNfce.Configuracoes.Geral.Salvar := (dm5.LConfiguracaoNfeSalvarArquivoEnvioResposta.AsString = 'S');
dm7.acbrNfce.Configuracoes.Geral.FormatoAlerta := 'TAG:%TAGNIVEL% ID:%ID%/%TAG%(%DESCRICAO%) - %MSG%.';if (Trim(dm5.LConfiguracaoNfeCERTIFICADO_DIGITAL_CAMINHO.Value) <> '') and (dm5.LConfiguracaoNfeSSLLib.Value = '1') and (Trim(dm5.LConfiguracaoNfeUsarCertificadoDoBanco.AsString) <> 'True') then
begin
dm7.acbrNfce.Configuracoes.Certificados.ArquivoPFX := dm5.LConfiguracaoNfeCERTIFICADO_DIGITAL_CAMINHO.Value;
dm7.acbrNfce.Configuracoes.Certificados.Senha := dm5.LConfiguracaoNfeCERTIFICADO_DIGITAL_SENHA.Value;
end
else
if (Trim(dm5.LConfiguracaoNfeCERTIFICADO_DIGITAL_SERIE.Value) <> '') and (Trim(dm5.LConfiguracaoNfeUsarCertificadoDoBanco.AsString) <> 'True') then
dm7.acbrNfce.Configuracoes.Certificados.NumeroSerie := dm5.LConfiguracaoNfeCERTIFICADO_DIGITAL_SERIE.Value
else
if (Trim(dm5.LConfiguracaoNfeCertificadoArquivoPFX.Value) <> '') and (Trim(dm5.LConfiguracaoNfeUsarCertificadoDoBanco.AsString) = 'True') then
begin
dm7.acbrNfce.Configuracoes.Certificados.DadosPFX := dm5.LConfiguracaoNfeCertificadoArquivoPFX.Value;
dm7.acbrNfce.Configuracoes.Certificados.Senha := dm5.LConfiguracaoNfeCERTIFICADO_DIGITAL_SENHA.Value;
end
else
begin
MessageBox(0, 'Não existe certificado configurado para está empresa! NÃO será possivel Emitir/Consultar NFe!', 'Mensagem de aviso', mb_IconInformation + 0 + mb_DefButton4);
Exit;
end;################################
em outro post vi que era necessário ler o numero do certificado digital mesmo pegando o arquivo guardando no campo blob porém não estou encontrando exemplo de como fazer isto usando diretamente o meu componente: acbrNfce no projeto, verifiquei no demo e tentei encontrar: acbrNfce.SelecionarCertificado;
-
peguei uma APP, MEUIP, é só executar e ele mostra o ip foi mais fácil.
-
Bem depois de muito consultar a internet e o velho googrisss conseguimos a solução, obrigado.
-
Olá a todos, alguém já fez uma APP para pegar o IP do celular ( local e não wifi )? achei uma dezena ( pra não dizer uma centena quase rsrsr ) de exemplos na internet mas nada que retorna o ip local do celular androi, apenas localhost ( 0.0.0.0 no caso do android ), endereço de ip wifi... mas o endereço do celular para ver em qual rede ele está não achei algo que funcionasse, se alguém tiver um exemplo e puder ajudar fico grato.
-
também não encontrei local, utilizamos aqui na sequencia um número bem alto e ai passou mas é algo estranho tem que ser pelo chutometro pois entrar em contato com a equiplano é algo não muito fácil, de qualquer forma está resolvido, obrigado a todos.
-
1
-
-
3 horas atrás, Italo Jurisato Junior disse:
Boa tarde Alex,
Eu usaria um numero de lote sequencial.
Outra coisa quem gera o numero da NFS-e é o provedor e quem gera o numero RPS (que deve ser sequencial) é a sua aplicação.
Sendo assim você deve usar o numero do RPS como numero do Lote e não da nota que foi retornada pelo envio anterior.
Porque devemos usar um numero sequencial para o Lote independente do numero do RPS?
Simples, tem provedor que permite o envio em lote de até 50 notas, neste caso teríamos por exemplo:
Lote = 1 contendo os RPS de números 1 até 50
Lote = 2 contendo os RPS de números 51 até 100
e assim por diante.
Olá Italo boa tarde, entendi, pelo fato de que se eu usar o número da NFSe e trocar a série realmente o número de lote repete, até ai tudo bem fácil mudar, mas eu não sei de onde pegar o valor de qual numero esta agora o numero de lote, tem alguma funcao para retornar qual é o proximo ou algo assim? pois neste caso ai que postei tentei o numero do lote com valore já acima, 30, 40 e em todos os casos ele me retorna que o numero de lote já foi utilizado.
-
Olá boa a tarde todos
Estou com estas notas acima de testes já enviada, entao meu ultimo RPS é o 11 ( isto confirmado no site da equiplano ) meu RPS atual é o 12, a última NFSe enviada é a 9, para o número do lote eu incluo o número da NFSe, então a minha NFSe atual é a 10, porém quando tento enviar ela dá a mensagem:
Procurei nas configurações, visualizei as notas emitidas lá na equiplano mas não achei este número de lote, estou a um bom tempo tentando emitir as NFSe em homologação para testas e só me retorna esta mensagem ( com base nos dado já citados aqui para emissão ok ).
Se alguém puder me ajudar com isto fico muito grato ( como saber qual o número de lote correto a utilizar, de onde tirar esta informação ).
-
11 horas atrás, AlexBecker disse:
e ai é legal ou ilegal? está funcionando bem ainda? tem chance de ser bloqueado... estou precisando de um e gostaria de saber como está este, obrigado!
bem depois de um dia de pesquisa: é legal pois usa a API do cromium, na verdade voce só esta emulando um browser dentro do delphi e o whatsapp está rodando dentro da API e automaticamente dentro do whatsappweb, como o browser emula na api voce consegue pegar os dados, já estou com tudo rodando aqui, obrigado!
-
Em 05/01/2018 at 16:58, Rafael Dias disse:
Para informação segundo os Termo de Uso do Whatsapp isso é ilegal, salvo se o colega tenha autorização deles para faze-lo.
e ai é legal ou ilegal? está funcionando bem ainda? tem chance de ser bloqueado... estou precisando de um e gostaria de saber como está este, obrigado!
-
Desculpem a demora no retorno tive alguns problemas ( pessoais, cirurgia entre outros ) e não pude fazer o teste de prontidão, refizemos boa parte do código e funcionou corretamente, acredito que o problema estava na ordem das chamadas das funções e com alguns sobrecarregamentos de memória, sei que depois de refeito funcionou corretamente.
-
2
-
-
vou verificar um meio de colocar um log e retorno aqui, por enquanto obrigado.
-
1
-
-
Bom dia a todos, esto utilizando pós printer em um monitor de impressão que fica rodando e buscando novas impressões a cada 30 segundos, para cada impressão eu configuro o componente novamente e depois de cada impressão eu libero ele, gostaria de saber se alguém utiliza do mesmo jeito e qual a forma correta de se utilizar os componentes em um monitor assim, o meu problema é que depois de algum tempo depois de configurado o pos e enviado a impressão as vezes demora alguns minutos até sair a impressão, acontece com modelos diversos de impressoras, se alguém tiver algo parecido e conseguiu solucionar por gentileza comente! desde já fico agradecido!!
-
Em 15/07/2019 at 11:51, adriano.quintino disse:
Bom dia pessoal, eu consegui reproduzir mas não consegui resolver.
Caso você faça um debug e quando chegar na Linha NFCe.Enviar('1',False,True) e rapidamente desconecta-se da internet, provavelmente conseguirá reproduzir. No meu caso, semana passada todas as vezes estava dando certo, já essa semana estou desativando a internet e as vezes dá certo e outras vezes o xml ainda nem chegou lá, deixando assim, a numeração disponível pra emissão.
Minha sugestão pro ACBr, é: Gerar exceptions diferentes nos casos em que o XML não tenha chegado ao servidor da SEFA e outro quando o número do protocolo não consiga retornar, ambos por falta de internet.
O primeiro, deixaria o número pendente pra ser usado num próximo cupom, já o segundo, poderíamos tratar ele como um cupom já utilizado, restando apenas fazer uma consulta do mesmo e carregar as informações no banco de dados.
eu tentei mas quando dou o F8 no enviar ele já envia na hora, não consegui ser rápido o bastante ou não fiz certo porém ainda persiste o erro este mes novamente constatamos o erro.
-
28 minutos atrás, murilo cosme da silva disse:
Sempre que está gerando vc passa o cnf, ele pode está mudando sempre que gera, pois ao não passar ele gera randomicamente.
achei no meu codigo um ponto bem abaixo nas linhas onde estava pegando o numero aleatorio.... mesmo com o teste acima mais abaixo no codigo ele repassava o valor, valeu pelo toque tudo funcionando novamente, obrigado.
-
1
-
-
Olá a todos, a muito tempo venho gerando o danfe da seguinte forma:
PreencheAcbrComNfe(StrToInt(F_menu_principal.FIdEmpresaNfe), dm5.LNfeCabecalhoid.Value);
dm5.ACBrNFe1.NotasFiscais.GerarNFe;
if (Trim(dm5.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.nProt) = '') then
begin
try
dm5.FRetWS := '';
F_Menu_Principal.FTipoRequisicao := trConsulta;dm5.ACBrNFe1.WebServices.Consulta.NFeChave := dm5.LNfeCabecalhoCHAVE_ACESSO.AsString;
dm5.ACBrNFe1.WebServices.Consulta.Executar;dm5.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.tpAmb := dm5.ACBrNFe1.WebServices.Consulta.TpAmb; // cdsNFe.FieldByName('AMBIENTE').AsString;
dm5.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.chNFe := dm5.ACBrNFe1.WebServices.Consulta.NFeChave;//A chave de acesso que já foi enviada
dm5.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.dhRecbto := dm5.ACBrNFe1.WebServices.Consulta.DhRecbto;
dm5.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.nProt := dm5.ACBrNFe1.WebServices.Consulta.Protocolo;
dm5.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.cStat := dm5.ACBrNFe1.WebServices.Consulta.cStat;
dm5.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.xMotivo := dm5.ACBrNFe1.WebServices.Consulta.XMotivo;
dm5.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.verAplic := dm5.ACBrNFe1.WebServices.Consulta.verAplic;except
end;
end;dm5.ACBrNFe1.DANFE.ImprimirDANFE();
Simplificando, eu preencho o componente do ACBR com os dados da nota, consulto e comando para imprimir o danfe.
verifiquei nesta linha debugando: dm5.ACBrNFe1.WebServices.Consulta.NFeChave := dm5.LNfeCabecalhoCHAVE_ACESSO.AsString; e o número da NFe está correto, porém ao mostrar a danfe ele não mostra a danfe referente a chave informada ali e pior, cada danfe gerada é com uma chave DIFERENTE! estou usando este codigo a bastante tempo e funcionava normalmente depois de uma ultima atualizacao pra cá ele começou com este problema, verifiquei que no DEMO a impressão do danfe é feita somente tendo o arquivo XML, por gentileza poderia alguém me ajudar com isto?
-
Obrigado, eu peguei um exemplo no caso eu me expressei mal, realmente precisa do XML da nota e do XML da carta, eu gostaria de saber se não tinha um jeito de imprimir somente com o XML da carta mas realmente pelo jeito não funciona assim.
-
Olá boa tarde a todos, estou com um XML de uma carta de correção e tentando fazer a reimpressão do mesmo:
dm5.ACBrNFe1.EventoNFe.Evento.Clear;
dm5.ACBrNFeDANFEFR1.MostraPreview := True;
dm5.ACBrNFe1.DANFE := dm5.ACBrNFeDANFEFR1;
dm6.LNfeXmlEmitidosxml.SaveToFile(dm5.LConfiguracaoNfeCaminho_Salvar_XML.Value+'cartacorrecao.xml');
dm5.ACBrNFe1.NotasFiscais.Clear;dm5.ACBrNFe1.NotasFiscais.LoadFromFile(dm5.LConfiguracaoNfeCaminho_Salvar_XML.Value+'cartacorrecao.xml');
dm5.ACBrNFe1.ImprimirEvento;a carta foi emitida em ambiente de homolocação e está salvo no meu banco o XML, eu salvo ele em um caminho e depois tento fazer a impressão da carta, é detectado que é uma carta de correção mas na hora de imprimir fica em branco, bem se puderem indicar onde está meu erro ou até postar um exemplo ( que o exemplo de impressão do site do régys ) e apliquei ele no sistema. OBS também apliquei com loadfromstring e pegando o campo direto da tabela porém o resultado foi o mesmo.
ACBrNFeDANFERaveCB.MostrarPreview :=True;ACBrNFe.NotasFiscais.Clear;ACBrNFe.NotasFiscais.LoadFromString(<XML Nota Eletrônica>);ACBrNFe.EventoNFe.Evento.Clear;ACBrNFe.EventoNFe.LerXMLFromString(<XML Evento>);ACBrNFe.ImprimirEvento; -
Boa tarde a todos! da ultima atualização do ACBR de uns 15 dias atrás até a presente data estou tendo um problema ( muito raro de acontecer ), a NFCe é gerada, é enviada para a receita... porém o ACBR não conseguiu pegar o retorno desta NFCe, não sei o motivo ao certo, se é falha na internet ou oque acontece mas os dados são enviados pra sefaz, a sefaz tem a nota válida lá no servidor porém ao retornar os dados não sei se é questão de conexão ( não consegui simular pois quando passo o comando executar dentro do acbr tem apenas 1 linha e não consigo desativar a rede neste meio tempo ) quando o XML não retorna a chave é modificada para chave OFF-Line ( isto começou agora de uns 15 dias pra cá depois que atualizei o ACBR ) com o digito 9, se eu mudar para o digito 1 gerando a chave e consultar no servidor da sefaz a chave está lá então eu gostaria de saber como recuperar o XML desta nota que está la no servidor, estou agora guardando as 2 chaves, com a situação 9 que é offline e com a situação 1 que é validada mas como o xml da nota válida não retornou fico sem ele no banco, resumindo... como recuperar o XML da nota pela chave dela... desde já, agradeço!
-
Pessoal, foi falha minha! peço desculpas... nestas versões o que acontece é que se você instala o 64 bits junto quando abre o library path ele traz selecionado diretamente na caixa os paths para versão 64 bits eu não enxerguei isto... noobada total! obrigado aos colegas e novamente sorry!
-
3
-
Danfe Fast impressora EPSON M1100
em ACBrNFe
Postado · Editado por AlexBecker
aqui a danfe na visualizacao, visualmente/aparentemente bem para a esquerda, não consigo alterar ela, mudo as margens e passo toda vez antes de carregar uma nova danfe mas aparentemente não dá diferença.
Juliomar, é NFe está ai é minha config atual, mudei para o fortes conforme imagem acima e dai as margens passo em runtime como no codigo mostrado.