digitosistemas

Depois de quebrar a cabeça, fazer vários processos o que resolveu foi: Apaguei as pastas: Pacotes, Dlls, Fontes, Lib e fiz o update novamente no TortoiseSVN O que não funcionou: Somente apagando a pasta pacotes Fazendo TortoiseSVN → Revert e depois update Editando os conflitos, TortoiseSVN → Edit conflicts TortoiseSVN → Cleanup Espero ter ajudado! Pode acontecer com outros componentes.

Pessoal não sei onde postar esta dúvida, então se os *Moderadores* puderem responder ou redirecionar a duvida para a sala correta eu agradeço muito. Fui fazer atualização do pacote acbr e apresentou este erro na compilação. Como posso resolver isso? Desde já agradeço. C:\ACBr\Fontes\ACBrDFe\ACBrNFSeX\Base\ACBrNFSeXConversao.pas(531) Error: E2029 Declaration expected but '<' found C:\ACBr\Fontes\ACBrDFe\ACBrNFSeX\Base\ACBrNFSeXConversao.pas(532) Error: E2038 Illegal character in input file: '|' (#$7C) C:\ACBr\Fontes\ACBrDFe\ACBrNFSeX\Base\ACBrNFSeXConversao.pas(535) Error: E2072 Number of elements (11) differs from declaration (35) C:\ACBr\Fontes\ACBrDFe\ACBrNFSeX\Base\ACBrNFSeXConversao.pas(537) Error: E2029 Declaration expected but '=' found C:\ACBr\Fontes\ACBrDFe\ACBrNFSeX\Base\ACBrNFSeXConversao.pas(539) Error: E2004 Identifier redeclared: 'TCSTArrayStrings' C:\ACBr\Fontes\ACBrDFe\ACBrNFSeX\Base\ACBrNFSeXConversao.pas(544) Error: E2029 Declaration expected but '>' found C:\ACBr\Fontes\ACBrDFe\ACBrNFSeX\Base\ACBrNFSeXConversao.pas(554) Error: E2004 Identifier redeclared: 'TCSTArrayStrings' C:\ACBr\Fontes\ACBrDFe\ACBrNFSeX\Base\ACBrNFSeXConversao.pas(555) Error: E2072 Number of elements (11) differs from declaration (35) C:\ACBr\Fontes\ACBrDFe\ACBrNFSeX\Base\ACBrNFSeXConversao.pas(13156) Error: E2029 Declaration expected but '<' found C:\ACBr\Fontes\ACBrDFe\ACBrNFSeX\Base\ACBrNFSeXConversao.pas(13173) Error: E2038 Illegal character in input file: '|' (#$7C) C:\ACBr\Fontes\ACBrDFe\ACBrNFSeX\Base\ACBrNFSeXConversao.pas(13174) Error: E2004 Identifier redeclared: 'tpDedRedToStr' C:\ACBr\Fontes\ACBrDFe\ACBrNFSeX\Base\ACBrNFSeXConversao.pas(13179) Error: E2003 Undeclared identifier: 'drProfissionalParceiro' C:\ACBr\Fontes\ACBrDFe\ACBrNFSeX\Base\ACBrNFSeXConversao.pas(13183) Error: E2004 Identifier redeclared: 'StrTotpDedRed' C:\ACBr\Fontes\ACBrDFe\ACBrNFSeX\Base\ACBrNFSeXConversao.pas(13188) Error: E2003 Undeclared identifier: 'drProfissionalParceiro' C:\ACBr\Fontes\ACBrDFe\ACBrNFSeX\Base\ACBrNFSeXConversao.pas(13192) Error: E2029 Declaration expected but '=' found C:\ACBr\Fontes\ACBrDFe\ACBrNFSeX\Base\ACBrNFSeXConversao.pas(13327) Error: E2003 Undeclared identifier: 'trpiscofinscsllNaoRetido' C:\ACBr\Fontes\ACBrDFe\ACBrNFSeX\Base\ACBrNFSeXConversao.pas(13328) Error: E2030 Duplicate case label C:\ACBr\Fontes\ACBrDFe\ACBrNFSeX\Base\ACBrNFSeXConversao.pas(13330) Error: E2003 Undeclared identifier: 'trpiscofinscsllRetido' C:\ACBr\Fontes\ACBrDFe\ACBrNFSeX\Base\ACBrNFSeXConversao.pas(13330) Error: E2030 Duplicate case label C:\ACBr\Fontes\ACBrDFe\ACBrNFSeX\Base\ACBrNFSeXConversao.pas(13331) Error: E2003 Undeclared identifier: 'trpiscofinsRetidocsllNaoRetido' C:\ACBr\Fontes\ACBrDFe\ACBrNFSeX\Base\ACBrNFSeXConversao.pas(13331) Error: E2030 Duplicate case label C:\ACBr\Fontes\ACBrDFe\ACBrNFSeX\Base\ACBrNFSeXConversao.pas(13332) Error: E2003 Undeclared identifier: 'trPisRetidoCofinsCsllNaoRetido' C:\ACBr\Fontes\ACBrDFe\ACBrNFSeX\Base\ACBrNFSeXConversao.pas(13332) Error: E2030 Duplicate case label C:\ACBr\Fontes\ACBrDFe\ACBrNFSeX\Base\ACBrNFSeXConversao.pas(13333) Error: E2003 Undeclared identifier: 'trCofinsRetidoPisCsllNaoRetido' C:\ACBr\Fontes\ACBrDFe\ACBrNFSeX\Base\ACBrNFSeXConversao.pas(13333) Error: E2030 Duplicate case label C:\ACBr\Fontes\ACBrDFe\ACBrNFSeX\Base\ACBrNFSeXConversao.pas(13334) Error: E2003 Undeclared identifier: 'trCofinsCsllRetidoPisNaoRetido' C:\ACBr\Fontes\ACBrDFe\ACBrNFSeX\Base\ACBrNFSeXConversao.pas(13334) Error: E2030 Duplicate case label C:\ACBr\Fontes\ACBrDFe\ACBrNFSeX\Base\ACBrNFSeXConversao.pas(13335) Error: E2003 Undeclared identifier: 'trCsllRetidoPisCofinsNaoRetido' C:\ACBr\Fontes\ACBrDFe\ACBrNFSeX\Base\ACBrNFSeXConversao.pas(13335) Error: E2030 Duplicate case label C:\ACBr\Fontes\ACBrDFe\ACBrNFSeX\Base\ACBrNFSeXConversao.pas(13336) Error: E2003 Undeclared identifier: 'trPisCsllRetidoCofinsNaoRetido' C:\ACBr\Fontes\ACBrDFe\ACBrNFSeX\Base\ACBrNFSeXConversao.pas(13336) Error: E2030 Duplicate case label C:\ACBr\Fontes\ACBrDFe\ACBrNFSeX\ACBrNFSeXConfiguracoes.pas(2607) Fatal: F2063 Could not compile used unit 'ACBrNFSeXConversao.pas' Compilation failure Erro ao compilar o pacote "ACBr_NFSeX.dpk".

Olá pessoal, tudo bem? Estou trabalhando na implementação do pagamento via PIX no meu sistema utilizando os componentes do ACBr, e gostaria de uma orientação para finalizar essa etapa. Seguem os pontos do que já tenho pronto e do que ainda preciso desenvolver: Projeto já iniciado: A integração com os componentes ACBr já está em andamento. PIX Estático funcionando: Já consigo gerar o QR Code estático normalmente através do ACBrPIXPSP. PIX Dinâmico / Monitoramento: Agora preciso implementar aquela funcionalidade típica de PDV, onde o sistema fica aguardando a confirmação do pagamento em tempo real e só libera o processo depois que o valor é realmente recebido pelo PSP. Exibição do QR Code: No momento estou apenas exibindo o QR Code/código para o cliente, mas preciso evoluir para o fluxo completo com callback/consulta/validação. Dúvidas principais: Quais são os “atalhos” ou melhores práticas para finalizar essa parte? Existe algum componente ACBr que facilita o monitoramento do pagamento (pooling, webhook, retorno do PSP)? É obrigatório utilizar um PSP parceiro integrado ao ACBr (GerenciaNet, PixPDV etc.) para ter o retorno automático? Há algum exemplo de implementação atualizado que vocês recomendam seguir? Agradeço muito qualquer orientação, exemplo ou direcionamento sobre a melhor forma de estruturar esse fluxo usando o ACBr. Obrigado desde já!

Estou usando o "fortes", o provedor é o ISSNet. Tentei usar assim esse Demonstração: Mas o "Link" vem vazio.

Pessoal já resolvi. Obrigado. Aumentei o TimeOut de 5000 para 60000

Estou migrando a versão do NFSe e não esta saindo o QRCode na impressão do DANFE, como fazer para sair?

Amigos, Na prefeitura de Anapolis/Goias, provedor issnet estou recebendo muito esta mensagem de Timeout, no ambiente de PRODUÇÃO tanto nas opções: ACBrNFSeX.ConsultarNFSeServicoPrestadoPorPeriodo(deDataInicial.date, deDataFinal.Date, 1); Até aqui não tem problema que posso tentar outras vezes. Mas aqui na opção de EMITIR dá TIMEOUT porém as notas são registradas, me causando transtornos. ACBrNFSe1.Emitir(vNumLote); Verificar_ChecarResposta(tmRecepcionar); Falha no envio do lote Situação: X999 Motivo: Erro de Conexão: Erro Interno: 12002 Erro HTTP: 0 URL: https://nfse.issnetonline.com.br/abrasf204/anapolis/nfse.asmx Erro: 12002 - TimeOut de Requisição Falha ao Receber Resposta. Erro: 12002 - TimeOut de Requisição

RESOLVIDO.

Enviei sem ter finalizado o assunto: Ao tentar enviar email aparece a mensagem Smtp Error: Unable to login, 10091-Network subsystem unusable. Como corrigir? Enviei por outro componente e o email esta sendo enviado. Só que gostaria de usar somente o acbr. Var Dir, ArqXML: string; MS: TMemoryStream; //P, N: Integer; begin ACBrMail1.From := edemailRemetente.text; ACBrMail1.FromName := EdnomeRemetente.text; ACBrMail1.Host := edtHost.text; // servidor smtp -> smtp.outlook.com ACBrMail1.Username := edtUser.text; ACBrMail1.Password := edtPassword.text; ACBrMail1.Port := edtPort.text; // porta do servidor smtp 587 ACBrMail1.SetTLS := chkTLS.Checked; //False ACBrMail1.SetSSL := chkSSL.Checked; //True servidor necessita SSL //ACBrMail1.DefaultCharset := TMailCharset(cbbDefaultCharset.ItemIndex); //ACBrMail1.IDECharset := TMailCharset(cbbIdeCharSet.ItemIndex); ACBrMail1.AddAddress(edEmailDestinatario.Text, edtAddressName.text); ACBrMail1.UseThread := False; if edEmailBCC.Text <> '' then ACBrMail1.AddCC(edEmailBCC.Text); // opcional //ACBrMail1.AddReplyTo('um_email'); // opcional //ACBrMail1.AddBCC('um_email'); // opcional //case rgPrioridade.ItemIndex of //0 : ACBrMail1.Priority := MP_high; //1 : ACBrMail1.Priority := MP_high; //end; //ACBrMail1.ReadingConfirmation := True; // solicita confirmação de leitura mLog.Lines.Clear; ProgressBar1.Position := 1; Dir := FormPrincipal.Caminho; //P := pos(' - ', edSubject.Text); //if P > 0 then //begin // N := StrToIntDef(copy(edSubject.Text, P + 3, 5), 0) + 1; // edSubject.Text := copy(edSubject.Text, 1, P + 2) + IntToStr(N); //end; ACBrMail1.Clear; ACBrMail1.IsHTML := cbUsarHTML.Checked; ACBrMail1.Subject := edSubject.Text; // mensagem principal do e-mail. pode ser html ou texto puro if cbUsarTXT.Checked then ACBrMail1.AltBody.Assign(edMensagem.Lines); if cbUsarHTML.Checked then ACBrMail1.Body.Assign(mBody.Lines); {NÃO INCLUIR if cbUsarHTML.Checked and cbAddImgHTML.Checked then begin // Depende de: "<img src='cid:LogoACBr'>" em ACBrMail1.Body; if Pos('cid:LogoACBr', ACBrMail1.Body.Text) > 0 then ACBrMail1.AddAttachment(Dir + 'acbr_logo2.png', 'LogoACBr', adInline); end; } { if cbAddImgAtt.Checked then ACBrMail1.AddAttachment(Dir + 'acbr_logo.jpg', '', adAttachment); } { if cbAddXML.Checked then begin MS := TMemoryStream.Create; try ArqXML := '52240821962645000185550010000111291000111298-nfe.xml'; MS.LoadFromFile(Dir + ArqXML); ACBrMail1.AddAttachment(MS, ArqXML, adAttachment); finally MS.Free; end; end; } ACBrMail1.Send(cbUsarThread.Checked); If Fechar Then Close; end;

Ao tentar enviar email aparece a mensagem Smtp10091-Network subsystem unusable. Como corrigir?

Mudei o provedor para: cwsCNPJWS e deu certo.

Bom dia Senhores, Um cliente me relatou um "erro 404 - not in cache" ao consultar o CNPJ, o que pode ser? provedor = CWSRECEITAWS Meu código: If not ValidarCNPJ(MeCPFCli.Text) Then Begin If not ValidarCPF(MeCPFCli.Text) Then KDialog('O CNPJ inválido.'#13'Favor fazer a correção e tentar novamente','Alerta','INFO') else KDialog('Esta pesquisa é somente para CNPJ.'#13'Ação cancelada','Alerta','INFO'); MeCPFCli.SetFocus; exit; end; Try // MANDA COMANDO E FICA AGARRADO EM ONSOLICITA CAPTCHA If Not ACBrConsultaCNPJ1.Consulta(MeCPFCli.Text, '', False) Then Begin Consultar_cnpj(); Exit; End; if ACBrConsultaCNPJ1.Situacao <> '' then Begin //EditTipo.Text := ACBrConsultaCNPJ1.EmpresaTipo; EditRazaoCli.Text := Copy(ACBrConsultaCNPJ1.RazaoSocial,1,50); EditFantCli.Text := Copy(ACBrConsultaCNPJ1.Fantasia,1,40); if (EditFantCli.Text = '') or (Copy(EditFantCli.Text,1,4) = '****') then EditFantCli.Text := Copy(EditRazaoCli.Text,1,40); if ACBrConsultaCNPJ1.Situacao = 'ATIVA' then Begin RDGAtivo.ItemIndex := 0; deDataCadastro.Text := DateToStr( ACBrConsultaCNPJ1.Abertura); MECepCli.Text := FormataCEP(ACBrConsultaCNPJ1.CEP); LocalizaCidade(MECepCli.Text, True); EditEndCli.Text := Copy(Trim(ACBrConsultaCNPJ1.Endereco)+' '+ Trim(ACBrConsultaCNPJ1.Complemento),1,50); txtNum.Text := ACBrConsultaCNPJ1.Numero; cbUF.ItemIndex := cbUF.Items.IndexOf(ACBrConsultaCNPJ1.UF); EditBairroCli.Text := Copy(RemoveEspacos(ACBrConsultaCNPJ1.Bairro),1,30); carrega_cid(cbUF.Text); txtCidade.ItemIndex := txtCidade.Items.IndexOf(Trim(ACBrConsultaCNPJ1.Cidade)); If Loc_Cidade(cbUF.Text,txtCidade.Text) Then edIBGE.Text := AchaCid[0]; EditEMailCli.text := LowerCase(ACBrConsultaCNPJ1.EndEletronico); EditFoneCli.text := ACBrConsultaCNPJ1.Telefone; EditInscEstCli.SetFocus; End else Begin RDGAtivo.ItemIndex := 1; KDialog('O Cadastro deste cliente esta inativo na Receita Federal','Informação','erro'); End; End; Except on e : Exception do KDialog('Não consegui fazer a pesquisa'#13#13'Motivo: '+e.Message,'Alerta','erro'); End;

Agora eu pirei Será que estou instalando o Fastreport corretamente? Pq tenho o Delphi Alexandria em outra maquina (instalei recentemente o Delphi) e instalei o Fastreport e acabei de criar a pasta Acbr e baixar arquivos. Vou instalar o Acbr e deu o mesmo erro de compilação. Da outra maquina desinstalei todos os componentes, desinstalei o XE6 e agora estou instalando novamente. Vamos se persisti o erro. Não sei posso postar isso!!! Mas tem alguém no forum que tenha interresse em conectar em minha máquina e fazer a instalação para mim? Será gratificado por isso! Se não puder postar, peço desculpas aos moderadores (é o desespero) e pode apagar o post, ou redireciona-lo. Passo meu zap para combinarmos.

Tentei fazer a instalação marcando a opção "Remover arquivos antigos do disco (pode demorar bastante)" porém o erro persisti. Pensei em fazer isso, mas vou tentar a outra solução do @Juliomar Marchetti primeiro. @Juliomar Marchetti você pode me explicar direito como fazer isso? esta me batendo um desespero

O FortReport também não consegue instalar. Removi toda pasta do ACbr e fiz o Update novamente no trunk2, e tentei novamente não dá certo. Instalando sem marcar nada do FastReport e nada do FortReport dá certo.

Foi assim: *Tive problemas no delphi, então desinstalei e instalei novamente. *Instalei e abri e fechei o delphi *Instalei o Fastreport, abri o delphi e fechei. *Instalei outros componentes (com delphi fechado, e com delphi aberto) *Tentei instalar o ACBr deu erro, recompilei o Fast. *Continuou com erro. *Desinstalei o Delphi novamente. *Instalei o Fastreport, abri e testei o fast e deu certo. *Fechei o Delphi e *Fui instalar o ACbr e deu erro.

Obrigado amigo, mas já fiz isso e não resolveu. Pode ser pq talvez eu tenha escolhido opções erradas na hora de compilar o Fastreport.? Estou com dúvidas na escolha das opções: 1) Select the Fastreport Version? (Escolhi Enterprise - Já tentei com Professional) 2) Select the Teechart version? (Não sei qual escolher, já tentei Teechart6) 3) Path to teechart DCU files? (Deixei o padrão. Não é onde o local onde esta o componente!) 4) Compilei Change language, já Recompilei todos (Recompile all packages) 5) Select path FIB e Indy10 deixei em branco. (não sei se preenche alguma coisa) Estou precisando muito, meus projetos estão parados (Precisando fazer manutenção) Pago pela instalação.

Colegas, Precisei reinstalar meu Delphi, e ao instalar o ACBr me deparei com este erro. Desinstalei o Delphi novamente e instalei de novo e continua com o mesmo problema. Como resolver este problema? ... ... C:\ACBr\Fontes\ACBrDFe\ACBrNFe\DANFE\NFe\Fast\ACBrNFeDANFEFRDM.pas(45) Fatal: E2225 Never-build package 'frx20' must be recompiled Compilation failure Erro ao compilar o pacote "ACBr_NFeDanfeFR.dpk". Abortando... Ocorreram erros na compilação dos pacotes. Desde já agradeço.

A pista é de recompilar o programa, reinstalar o programa na máquina do cliente.

Não consegui identificar o que ocorreu inicialmente. Curiosamente, ao reinstalar o programa, ele passou a funcionar normalmente. Parece que a versão anterior do programa estava utilizando uma versão desatualizada do ACBr. Pode ser uma pista importante a ser considerada!

Caros colegas, Estou com o problema ao assinar NFCe. Ao tentar transmitir as notas me aparece o Erro ao Enviar Nota: The Cryptographic Service Provider type '24' is not supported. Depois que o certificado digital foi renovado não consegui mais emitir NFCe (Certificado da Serasa). Coisas que já fiz: * Já desinstalei o certificado, instalei novamente. * O Windows não é pirata. * Já pesquisei na Internet e não encontrei a solução. * Baixei o Valid para ver se resolvia. * Instalei a cadeia de certificados novamente * Atualizei o Capicom * Atualizei o Openssl * Na SSLib usei como libwincript, OpenSLL, Capicom e nada. O que mais me resta? Att;

Já havia testado dessa forma, mas não aparece a chave de acesso na página, igual acontece na consulta da NFe Linkto('https://www.cte.fazenda.gov.br/portal/consultaRecaptcha.aspx?tipoConsulta=resumo&tipoConteudo=cktLvUUKqh0='+ cdsManifestoCHAVENFE.AsString + '&') Fica desse jeito:

Colegas, Estou querendo passar como parâmetro a chave de acesso para consulta do CTE e não estou achando como montar o link. Para consultar a NFe eu uso assim: Linkto('www.nfe.fazenda.gov.br/portal/consultaRecaptcha.aspx?tipoConsulta=7PhJ%20gAVw2g=&tipoConsulta=completa&nfe='+ cdsManifestoCHAVENFE.AsString + '&') O resultado é esse: Ou seja o usuário só precisa marcar a opção de "Sou humano" e consegue fazer a consulta da nota. Alguém sabe como montar o link para o CTe?

RESOLVIDO. Era isso mesmo como eu tinha suspeitado. O ITAU não esta aceitando colocar caracter especial - Os parenteses () - no arquivo remessa. Obrigado.

Fiz isso agora e enviei. Vou esperar o retorno. Assim que chegar eu posto o resultado. Obrigado,