cefantacini
-
Total de ítens
371 -
Registro em
-
Última visita
Community Answers
-
cefantacini's post in Transmissão SNGPC ANVISA was marked as the answer
Era isso mesmo, peguei o WSDL novo, importei e resolveu.
Se quiser pode fechar o tópico.
Obrigado!
-
cefantacini's post in Atualização do Fortes Report no Lazarus was marked as the answer
Eu consegui resolver reinstalando a package frce.
Se quiser pode fechar o tópico...
-
cefantacini's post in Modelo de SAT não definido was marked as the answer
Era isso mesmo, o cliente tinha alterado o código de ativação na tela de configurações.
Problema resolvido
Se quiser pode fechar o tópico
-
cefantacini's post in Erro de validação do CTE was marked as the answer
Consegui resolver, estava fazendo confusão com o preenchimento dos campos toma3 e toma4.
Vi o manual e esse tópico:
e consegui corrigir a forma de preencher o XML.
Se quiser pode fechar o tópico.
-
cefantacini's post in Certificado Digital Banco do Brasil was marked as the answer
Consegui resolver
Eu extrai as chaves raiz e intermediária do PFX seguindo este passo a passo:
https://learn.microsoft.com/pt-br/azure/application-gateway/mutual-authentication-certificate-management
Enviei para o portal do banco, depois que o banco aceitou, eu anexei o PFX no ACBrPIX e o problema foi resolvido.
Se quiser pode fechar o tópico.
-
cefantacini's post in Roda wheel do mouse was marked as the answer
Eu consegui resolver, eu tinha um código no Delphi 7 que estava gerando o erro no Delphi 11.
Se quiser pode fechar o tópico...
unit...;
.
.
type TEvents = Class
protected
procedure DefaultApplicationMessage( var Msg: tagMSG; var Handled: Boolean );
end;
.
.
procedure...
begin
Events := TEvents.Create;
Application.OnMessage := Events.DefaultApplicationMessage;
Events.Free;
end;
.
.
procedure TEvents.DefaultApplicationMessage( var Msg: tagMSG; var Handled: Boolean );
var i : SmallInt;
begin
if Msg.Message = WM_MouseWheel
then
begin
Msg.Message := WM_KeyDown;
Msg.lParam := 0;
i := HiWord( Msg.wParam );
if i > 0
then
Msg.wParam := VK_Up
else
Msg.wParam := VK_Down;
Handled := False;
end;
end;
-
cefantacini's post in ISSNet Ribeirão Preto NFSeX was marked as the answer
Boa tarde, consegui resolver, o problema era com a TAG
<ExigibilidadeISS>1</ExigibilidadeISS>
Eu estava preenchendo com 2 e o valor correto seria o 1
O problema é que a mensagem de erro não indicava onde realmente estava o problema.
Se quiser pode fechar o tópico
-
cefantacini's post in ACBrNFSex - ConsultarNFSePorPeriodo - ISSNet - Ribeirão Preto was marked as the answer
Entendido, vou adaptar a loja para o padrão do provedor.
Se quiser pode fechar o tópico.
-
cefantacini's post in Migração ACBrNFSe - ACBrNFSeX was marked as the answer
Eu que agradeço por todos os esclarecimentos.
Já finalizei as rotinas de migração.
Se quiser pode fechar o tópico.
-
cefantacini's post in Quebra de linha ISSNet Ribeirão Preto was marked as the answer
Eu consegui resolver, estava faltando preencher a propriedade
Configuracoes.Geral.CodigoMunicipio := ...
E chamar o método
Configuracoes.Geral.SetConfigMunicipio;
Antes de imprimir.
Se quiser pode fechar o tópico;
-
cefantacini's post in Fortes Report e Delphi 7 was marked as the answer
Consegui resolver, o problema era relacionado com permissão de pasta de usuário do windows na pasta em que eu salvei a instalação do fortes.
Se quiser pode fechar o tópico.
Obrigado!
-
cefantacini's post in Fortes Report e Delphi 7 was marked as the answer
Consegui resolver, o problema era relacionado com permissão de pasta de usuário do windows na pasta em que eu salvei a instalação do fortes.
Se quiser pode fechar o tópico.
Obrigado!
-
cefantacini's post in Evento de Desacordo de CT-e (Homologação) was marked as the answer
Oi, Italo.
Realmente estava fazendo confusão sim.
Eu consegui resolver, deu um pouco de trabalho, eu emiti um CTe em homologação, usando o certificado digital do emitente.
Depois executei o evento de desacordo para esse CTe usando o certificado digital do tomador.
No final deu tudo certo.
Se quiser pode fechar o tópico.
-
cefantacini's post in Lazarus - Ordem de Tabulação was marked as the answer
Eu consegui resolver, da seguinte forma:
Selecionei todos os controles (Edit, ComboBox, BitBtn, etc) da tela (Shift pressionado + clique do mouse sobre o controle).
Com todos marcados apertei Ctrl+X, ou seja, removi eles da tela.
Compilei o programa que deu erro pq o código fazia referência aos controles.
Voltei ao Form, apertei Ctrl+V e colei de volta, aí, o lázatus já cola nos mesmos locais.
Pedi para o próprio lázarus fazer o alinhamento do TabOrder e o problema foi resolvido.
Fechei, abri o projeto, testei, tudo ok.
Se quiser pode fechar o tópico.
-
cefantacini's post in Ajuda com RLGroup no Fortes was marked as the answer
Acabei resolvendo aqui, não achei muita lógica, já tinha removido e inserido vários componente e não tinha resolvido, aí joguei tudo fora, deixei só o form e fiz de novo e deu certo.
Leva a crer que era alguma coisa com o RLReport mesmo...
-
cefantacini's post in Erro ao enviar e-mail was marked as the answer
Eu consegui resolver, usando a dica enviada por um amigo aqui do fórum num outro tópico, mais agora não encontro o tópico para dar os créditos da dica, mais de toda forma, vamos lá:
Talvez possa ajudar, dependendo de como foi configurada a segurança da conta google/gmail , por exemplo se usada "em duas etapas", so consegui enviar via gmail usando a configuração do Regis. Porem tive q acessar minha conta google e criar uma SENHA DE APP: e através dessa senha ele autentica o envio do email.
1 - https://myaccount.google.com/ (acessar a conta google)
2 - Clicar em COMO FAZER LOGIN NO GOOGLE.
3 - SENHAS DE APP (lado direito)
4 - Selecionar APP no caso "EMAIL"
5 - Selecionar DISPOSITIVO no meu caso COMPUTADOR / WINDOWS
6 - Clicar em GERAR..
Ai através daquela senha gerada de 16 dígitos, eu inseri como SENHA / Password no componente
ACBrMail1.Password:= ert3f4ai67x8xagh "exemplo"
E ai finalmente o Gmail liberou o envio.
Caso queira pode fechar o tópico...
-
cefantacini's post in Erro após atualização do ACBr no Lazarus was marked as the answer
Resolvi, apaguei a pasta i386 que o lazarus cria e aí compilou...
-
cefantacini's post in DBGrid no Lazarus was marked as the answer
Valeu Daniel, era isso mesmo, tinha uma rotina o evento DrawColumnCell, assim:
begin
//inverte a cor quando selecionado
if gdSelected in State
then
begin
TDBGrid( Sender ).Canvas.Brush.Color := clHighlight;
TDBGrid( Sender ).Canvas.Font.Color := clHighlightText;
TDBGrid( Sender ).Canvas.Pen.Color := Brush.Color;
end
else
begin
if DMBDComum.IbQrPesquisaPRO_DESATIVADO.AsString = '1'
then
TDBGrid( Sender ).Canvas.Font.Color := clRed;
if DMBDComum.IbQrPesquisaPRO_SELECIONADO.AsString = '1'
then
TDBGrid( Sender ).Canvas.Font.Color := clBlue;
end;
TDBGrid( Sender ).DefaultDrawColumnCell( Rect, DataCol, Column, State );
end;
a última linha, TDBGrid( Sender ).DefaultDrawColumnCell( Rect, DataCol, Column, State );, estava no lugar errado, tem que ser antes do end, assim:
begin
//inverte a cor quando selecionado
if gdSelected in State
then
begin
TDBGrid( Sender ).Canvas.Brush.Color := clHighlight;
TDBGrid( Sender ).Canvas.Font.Color := clHighlightText;
TDBGrid( Sender ).Canvas.Pen.Color := Brush.Color;
end
else
begin
if DMBDComum.IbQrPesquisaPRO_DESATIVADO.AsString = '1'
then
TDBGrid( Sender ).Canvas.Font.Color := clRed;
if DMBDComum.IbQrPesquisaPRO_SELECIONADO.AsString = '1'
then
TDBGrid( Sender ).Canvas.Font.Color := clBlue;
TDBGrid( Sender ).DefaultDrawColumnCell( Rect, DataCol, Column, State );
end;
end;
-
cefantacini's post in Impressão em Bobina no Fortes was marked as the answer
Já deu certo, as propriedades eram as que eu setei mesmo, nem precisei usar o RLDraftFilter.
O problema é que eu estava definindo as propriedades em tempo de projeto e em tempo de execução eu setava o tamanho da página como a4 novamente.
-
cefantacini's post in Iniciante no Fortes Report was marked as the answer
Valeu Juliomar, resolvi o prolema vendo esse vídeo: