
Leao
Membros-
Total de ítens
446 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Tudo que Leao postou
-
Viche Edson Vieira, eu também, EPSON TM-20x
-
Uma dúvida sobre o componente ACBrGTIN, achava que vinha com os percentuais de olho no imposto, aliquota Interestaduais e Federais.... Obrigado
-
Olá BigWings, fiz pequena modificação e deu certo. Muito Obrigado
-
Olá BigWings, talvez não tenha explicado com clareza. Veja só: Tenho um DataModulo, chamado DM_Componentes e no mesmo estão os ACBr ACBrMail, ACBrBoletoFCFortes, ACBrBoleto e outros... Tenho uma unit, para gerar\imprimir\enviarEmail, chamada u_Imprimir_boletos, já estão relacionamentos: DM_Componente.ACBrBoleto.ListadeBoletos.Clear; DM_Componente.ACBrBoleto.ACBrBoletoFC := DM_Componente.ACBrBoletoFCFortes; DM_Componente.ACBrBoletoFCFortes.ACBrBoleto := DM_Componente.ACBrBoleto; DM_Componente.ACBrBoleto.MAIL := DM_Componente.ACBrMail; Já imprimi,gera e enviar via e-mail. O que preciso, no DM_Componente.ACBrEmail, tem o evento: procedure TDM_Componente.ACBrMailMailProcess(const AMail: TACBrMail; const aStatus: TMailStatus); begin // end; Na u_imprimir_boleto, um ProgressBar, como faço para processar\execultar, seria assim se estive o componente ACBRMail no mesmo u_imprimir_boleto progressBar.Position := Integer(aStatus); Mas como o ACBrMail estar no DM_Componente, como seria? progresBar.Position := DM_Componente(ACBrMail.ACBrEmailMailProcess.aStatus); Simplesmente para processar o ProgressBar que está no u_imprimir_boleto. É isso.... Obrigado
-
Olá, ninguém..., preciso usar os eventos do ACBrMail, na minha unit que gera os boletos. Alguém pode.... Agradeço obrigado
-
Olá, tenho um datamodulo e os componentes ACBr e outros no mesmo. Para enviar boleto uso o ACBrMail1, minha pergunta: Na unit para gerar\imprimir os boletos, como invoco a ACBrMail1MailProcess(const AMail: TACBrMail; const aStatus: TMailStatus); já fiz toda configuração mas os eventos não estou conseguindo.... quero usar na unit o ProgressBar1.Position := Integer(aStatus); e outros eventos. Espero ter explicado a minha situação. Se alguém poder ajudar, agradeço. Obrigado
-
Obrigado
-
Olá Victor, realmente estar também como Transportadora, então estar correto. Tem como não trazer quanto for transportadora? Obrigado
-
Olá, uma situação em que o meu cliente tem duas empresas, e ao fazer a Consulta para trazer as nfe(s) dos fornecedores, estar trazendo as nfe(s) da segunda empresa não é filial, são independentes cnpj diferentes, veja trecho do código da Consulta. : (a variavel cnpj informo o cnpj do meu cliente) ACBrNFe.DistribuicaoDFePorUltNSU(StrToInt(edt_uf.Text), cnpj, edt_nsu.Text); sStat := IntToStr(ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat); sMotivo := ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.xMotivo; if ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 137 then sTemMais := 'N' else sTemMais := 'S'; edt_nsu.Text := ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU; // GravaUltimaConsulta; Alguém pode dar uma sugestão. Obrigado
-
Olá Juliomar, só para efeito de experiência, os erros acima: 01 - O formulário estava do lado errado na configuração(Delphi), Auto Create Forms (passei para o outro lado(Available forms); 02 - Então dessa maneira estava abrindo a porta com2 duas vezes, ou tentando abrir, com a correção acima, foi corrigido; 03 - Através do Emulador de balança(ACBRBal), ao clicar no botão Gera Peso, depois Enviar Enviar Peso, automaticamente aparece na minha aplicação no campo edt_quantidade.value. Agradeço muito e obrigado Leão
-
Olá Juliomar, o nome é emulador(Virtual Serial Ports Emulator). Conforme esse link: https://www.youtube.com/watch?v=EPgmMYM2GHI 01 - C:\Acbr\trunk22\Projetos\EmuladorBalanca\Delphi e execute o EmuladorBalança.exe 02 - C:\Acbr\trunk22\Exemplos\ACBrSerial\ACBrBAL\Delphi BalancaTeste.exe 03 - Cxeculte o Virtual Serial Ports Emulator Funciona, se tiver outro. Obrigado
-
Olá, estou usando um emulador(Virtual Serial Ports Emulator), e configurado: [BALANCA] MODELO=01 NOME=FILIZOLA PORTA=COM4 BAUT RAT=9600 DATA BITS=8 PARITY=NONE STOP BIT=S1 HANDSHAKING=NENHUM MONITORAR=SIM TIMEOUT=2000 MONITORAR PORTA=SIM e ao tentar ativar a balança: try ACBrBAL.Ativar; except TMensagem.Informacao('Atenção, Não foi possível realizar conexão com a balança, verifique configurações...'); end; Alguém já passou por isso?
-
Olá, solicito algum Moderador fechar esse. Foi resolvido Obrigado
-
Olá Lúcio, grande possibilidade de ser questão de .dll veja se as mesmas estão atualizadas; E copie as dlls conforme versão da aplicação\windows OpenSSl Libmxl2 XMLSec Outro detalhe, faça uma limpeza nas pasta \system32 ou SysWOW64 pois talvez tenha alguma(s) .dll antiga, coloca na mesma pasta da aplicação Fiz isso e deu certo, agradeço muito Juliomar. Obrigado
-
Olá Magroniryan, com o demo ACBrEmail, tá conseguindo enviar? Aqui vai normalmente mas na minha aplicação essa mesma mensagem de erro, não consigo localizar.... se resolver avise. Obrigado
-
Olá BigWings, tinha modificado um arquivo Posprinter Teste.ini, deletei aí atualizou tudo muito obrigado
-
Atualizei ontem(12/01/2021), via tortoise SVN, ao atualizar hoje estranho no final veja a mensagem:
-
Olá, desmarquei essa opção, e agora D:\Acbr\Fontes\ACBrDFe\ACBrDFe.pas(256) Error: Undeclared identifier: 'ENCODING_UTF8' D:\Acbr\Fontes\ACBrDFe\ACBrDFeConfiguracoes.pas(387) Fatal: Could not compile used unit '..\..\..\Fontes\ACBrDFe\ACBrDFe.pas' Compilation failure Erro ao compilar o pacote "ACBr_DFeComum.dpk". Abortando... Ocorreram erros na compilação dos pacotes. log_Delphi_7_Win32.txt
-
Olá Juliomar, marquei: Remover Warnings de CAST causados por WideString/String/AnsiString Remover arquivos antigos do disco. Compilation failure Erro ao compilar o pacote "ACBr_Comum.dpk". Abortando... Ocorreram erros na compilação dos pacotes. Obrigado log_Delphi_7_Win32.txt
-
log_Delphi_7_Win32.txt
-
Verdade, primeira coloquei na mesma pasta da aplicação, depois na system32, e nada. Obrigado se alguém tiver uma idéia.... agradeço.
-
Olá Juliomar, já estava atualizado, mas fiz novamente na pasta \OpenSSl contém \0.9.8.33 \1.0.2.21 \1.1.1.4 \1.1.1.7 \x64 \x86 Copie as .dll para a pasta do windows\system e também sysWOW64 e também para a pasta do programa e continua o mesmo erro: Erro ao enviar email SMTP Error: unable to login Alguém se habilita a ajudar. Obrigado
-
Olá conforme vídeo Fiz todo processo na SparkPost, meu domínio e etc.., e usando o ACBrMail - Demo, funciona certinho, porém no meu aplicativo ocorre essa mensagem: SMPT Error: Unable to login a mesma configuração do informei e esse erro, tanto que funciona no ACBrMail. From := '[email protected]'; FromName := 'Nome do Remetente'; Host := 'smtp.sparkpostmail.com'; Username := 'SMTP_Injection'; Password := //apk key cadastrada Port := '587'; SetTLS := True; SetSSL := False; Alguém pode me ajudar? Obrigado
-
Certo, isso mesmo, farei sim. Agradeço muito Obrigado
-
Olá Juliomar, conforme o demo do ACBrBoleto, funciona perfeitamente, porém o cliente tira em horários diferentes pela manhã e tarde, e ao sair sem gerar o arquivo remessa, claro o componente perde os emitidos. Obrigado, Leão