lucdepaula
Membros-
Total de ítens
32 -
Registro em
-
Última visita
Últimos Visitantes
O bloco dos últimos visitantes está desativado e não está sendo visualizado por outros usuários.
lucdepaula's Achievements
-
Consegui resolver, adicionei no path "C:\Acbr\Fontes\Terceiros\synalist" e compilou, obg.
-
-
Eu tenho dois projetos no mesmo computador, um compila normal outro não, aparece a msg de erro que coloquei acima, eu já apaguei o acbr pelo "apagarAcbr", removi tudo, instalei tudo novamente, continua da mesma forma, um projeto compila normal e o outro não.
-
lucdepaula started following Erro ao gerar sat , Erro compilar projeto ACBrDFeHttpOpenSSL , post firemonkey fecha app e 3 outros
-
Atualizei os componentes e agora estou recebendo esta msg abaixo ao compilar o projeto "[dcc32 Fatal Error] uVendas.pas(191): F2051 Unit ACBrDFeHttpOpenSSL was compiled with a different version of ssl_openssl_lib.LibVersionIsGreaterThan1_0_0" Utilizo o Delphi XE8
-
Bom dia! Estou à dias quebrando cabeça, quando envio o POST o aplicativo fecha e não aparece nenhuma mensagem de erro na tela. Abaixo está o trecho do botão para enviar a solicitação: procedure TfmMenu.Button1Click(Sender: TObject); var htp: TIdHTTP; url : string; lst : TStringList; jso : TJSONObject; jsod : TJSONObject; jsa : TJSONArray; psn, vErro : string; sts : integer; begin TThread.CreateAnonymousThread( procedure() begin try sleep(2000); //processo para executar htp:= TIdHTTP.Create(nil); lst:= TStringList.Create; lst.Add('cpf=19628590880'); lst.Add('senha=123'); url:= 'https://agilizee.com.br/webService/loginParceiro.php'; try try //url:= htp.Post(url, lst, retorno); vErro:= htp.Post(url, lst); ShowMessage(vErro); except on e : exception do ShowMessage('Erro ao enviar solicitação! Detalhes: ' + e.Message); end; finally FreeAndNil(htp); lst.Free; end; begin jso:= TJSONObject.ParseJSONValue(url) as TJSONObject; psn:= jso.GetValue('message').Value; sts:= strToInt(jso.GetValue('value').Value); if sts=200 then begin ShowMessage('OK ' + psn); Application.CreateForm(TfmMenu, fmMenu); fmMenu.Show; end else begin ShowMessage(psn); end; jso.Free; end; TThread.Synchronize (TThread.CurrentThread, procedure () begin //após o click sincroniza end); except TThread.Synchronize (TThread.CurrentThread, procedure () begin // caso aja erro end); end; end).Start; end; Se alguém puder me ajudar por favor agradeço desde já. Este mesmo código acima tenho em outro aplicativo firemonkey e roda normal, neste fecha o app e não aparece nada na tela. Vou anexar tb o arquivo em php que criei para receber os dados. inseriClienteApp.php
-
Estava tentando conforme abaixo: for i := 0 to pag.Count-1 do begin pagamento:= pag.Items.tPag; txtDetPagto.Lines.Add(pagamento); end; 35200428216664000292550010000004191000807445-nfe.xml
-
Boa noite! Tudo bem? Carreguei o xml da NFe no componente ACBRNFe e não estou conseguindo ler estas tags: <pag> <detPag> <tPag>01</tPag> <vPag>10.00</vPag> </detPag> </pag> Alguém pode me ajudar por favor? Agradeço desde já pela ajuda.
-
Instalação ACBr Lazarus
lucdepaula replied to lucdepaula's tópico in Object Pascal - Delphi & Lazarus
Deu certo, após desinstalar a versão 64 bits e instalar a versão 32 bits do Lazarus deu certo. Obrigado pela ajuda. -
Instalação ACBr Lazarus
lucdepaula replied to lucdepaula's tópico in Object Pascal - Delphi & Lazarus
Não sabia, vou fazer o teste e posto o resultado. Muito obrigado pela atenção. -
Instalação ACBr Lazarus
lucdepaula replied to lucdepaula's tópico in Object Pascal - Delphi & Lazarus
Não, eu posso baixar a instalador de 32 bits e instalar no windows 64 bits? -
Bom dia! Tenho o Delphi XE8 instalado e estou migrando para o Lazarus. Tenho no meu computador instalado Windows 7 64 bits, realizei o download do instalador do Lazarus 64 bits e instalei normalmente. Tentei fazer a instalação manual do pacote do ACBr compilei e instalei conforme o manual em pdf "Bem vindo ao trunk 2", realizei as etapas abaixo: ACBrComum → Synapse ACBrDiversos → ACBrComum PCNComum → ACBrDiversos ACBr_Integrador ACBrOpenSSL → ACBrComum ACBrTCP → ACBrDiversos ACBrNFe → ACBrDFeComum Fiz todo o processo sem reconstruir a IDE do Lazarus, ao finalizar fui em "Ferramentas, Construir o Lazarus com Perfil: IDE normal". Quando o Lazarus vai reabrir após a reconstrução aparece a msg de erro "acess violation" e não abre. Lazarus instalado versão v2.0.6 - 64 bits. Fiz um teste e fui instalando os pacotes e reconstruir um a um, quanto realizo a instalação do pacote ACBrNFe que aparece o erro. Pode ser que eu tenha algum conflito por ter o Delphi XE8 instalado e com o ACBr compilado e instalado nele? Alguém pode me ajudar por favor. Agradeço desde já a todos.
-
Vou tentar. Obrigado!
-
Boa tarde! Tenho um cliente com 3 impressoras epson tm-t20, porém um o qrcode sai perfeito, nas outras duas sai com umas letras. Alguém tem uma sujestão. Obrigado.
-
Bom dia! Estou com esta msg de erro ao enviar o sat 20190829090543|SAT-AC|info|Resposta enviada para AC com sucesso. 20190829090544|AC-SAT|info|Recebido comando AC EnviarDadosVenda sessão 951021 20190829090544|SAT|info|Erro xml: Element '{http://www.w3.org/2000/09/xmldsig#}Signature': This element is not expected. 20190829090544|SAT-AC|info|Venda CF-e-SAT: xml invalido 20190829090544|SAT|info|Rejeição: Erro não identificado 20190829090544|SAT-AC|erro|Venda CF-e-SAT: FALHA
-
Alterei como você sugeriu acima, mas o antivírus continua bloqueando o anexo, para envio ele não está bloqueando mais, mas no navegador web quando abro o e-mail e vou fazer o download do anexo que está em .7z ele detecta como virus...