Márcio Antônio

Olá, estou com uma dúvida de como resolver esse problema abaixo: Eu tenho uma função de cópia no delphi 2007, estou convertendo para o delphi alexandria e está dando erro: procedure TdtmGenIbx.CopyIBDataSet(idsSource, idsDest: TIBDataSet); var i: Integer; bkmk: TBookmarkStr; begin if idsDest = nil then idsDest := TIBDataSet.Create(Self); idsDest.Database := idsSource.Database; idsDest.CachedUpdates := idsSource.CachedUpdates; idsDest.SelectSQL.Assign(idsSource.SelectSQL); idsDest.InsertSQL.Assign(idsSource.InsertSQL); idsDest.ModifySQL.Assign(idsSource.ModifySQL); idsDest.DeleteSQL.Assign(idsSource.DeleteSQL); idsDest.RefreshSQL.Assign(idsSource.RefreshSQL); idsDest.Open; bkmk := idsSource.Bookmark; *************** idsSource.DisableControls; idsSource.First; while not idsSource.Eof do begin idsDest.Insert; for i := 0 to idsSource.FieldCount - 1 do if idsSource.Fields[i].FieldKind = fkData then idsDest.FieldByName(idsSource.Fields[i].FieldName).Value := idsSource.Fields[i].Value; idsDest.Post; idsSource.Next; end; idsSource.Bookmark := bkmk; idsSource.EnableControls; end; *************** está dando erro nessa linha: [dcc32 Error] uDMGenIbx.pas(447): E2010 Incompatible types: 'AnsiString' and 'System.TArray<System.Byte>' Como eu consigo resolver?

eu fiz isso, e deu a mesma coisa.... deu essa informação no log. Compiling package C:\Desenvolvimento\Componentes Alexandria\jcl-master\jcl\packages\d28\Jcl.dpk "C:\Program Files (x86)\Embarcadero\Studio\22.0\bin\dcc32.exe" "C:\Desenvolvimento\Componentes Alexandria\jcl-master\jcl\packages\d28\Jcl.dpk" --no-config -U"C:\Program Files (x86)\Embarcadero\Studio\22.0\lib\Win32\release" -NU"..\..\lib\d28\win32" -I"..\..\lib\d28\win32;..\..\source\include;" -R"..\..\lib\d28\win32;..\..\source\include;" -DBCB;BCB;WIN32;CONDITIONALEXPRESSIONS;VER350;RELEASE;BCB;WIN32;CONDITIONALEXPRESSIONS;VER350;RELEASE -U"C:\Desenvolvimento\Componentes Alexandria\jcl-master\jcl\lib\d28\win32\;C:\Users\Public\Documents\Embarcadero\Studio\22.0\Dcp;..\..\lib\d28\win32;..\..\source\include;" -LU"rtl;" -ns"System;System.Win;WinApi;Vcl;Vcl.Imaging;" -LN"C:\Desenvolvimento\Componentes Alexandria\jcl-master\jcl\lib\d28\win32" -LE"C:\Users\Public\Documents\Embarcadero\Studio\22.0\Bpl" Embarcadero Delphi for Win32 compiler version 35.0 Copyright (c) 1983,2022 Embarcadero Technologies, Inc. 129 lines, 0.28 seconds, 1788136 bytes code, 719220 bytes data. Compilation success ...done. agora se eu excluo o componente da tela e incluo novamente, funciona....

Olá, instalei o jedi pelo instalador, aparentemente não deu erro nenhum, criei um novo projeto, coloquei o componente Jvmainmenu, quando fui compilar deu o seguinte erro abaixo: [dcc32 Fatal Error] uPrincipal.pas(9): F2063 Could not compile used unit 'JclBase' O que pode ser?

Aqui também, orientamos transmitir em contingência.... até normalizar o on-line.

Olá, recebemos esse comunicado abaixo: Aviso Importante! Problemas com a emissão de NFe estão sendo relatados devido a uma mudança na operação da SEFAZ RS, unidade da federação que é responsável pela gestão da NFe no ambiente nacional, para a nuvem, devido às recentes inundações no estado. Algumas empresas enfrentam dificuldades de conectividade, que estão relacionadas, em 99,99% dos casos, com a configuração dos equipamentos de comunicação (firewall). Se você está enfrentando esse problema, por favor, encaminhe para suas equipes de Tecnologia e Suporte para orientação adequada. As equipes de tecnologia e suporte estão empenhadas em ajudar e conduziremos reuniões com um grupo nacional de empresas e colegas de outros estados para fornecer orientações específicas. A operação de autorização dos documentos foi transferida para o ambiente de nuvem. Recomendamos ajustar suas configurações de rede, internet, proxy e firewall para conectar seus sistemas às URLs dos serviços. Utilize os endereços dos domínios: sefaz.rs.gov.br ou svrs.gov.br, e não os endereços IP. Fique atento às atualizações e não hesite em contatar as suas equipes de Tecnologia e Suporte se precisar de mais assistência! Acredito que não precisaremos modificar nada no código, pois já utilizamos esses webservices para autorizar as NFCe, né isso?

Descobri o problema, tinha informado uma chave inválida no MDF, perdão pelo erro!

Olá, não estou conseguindo enviar um MDF gerado em contingência, dar erro (foto): Segui os passos abaixo... Quando a SEFAZ-Virtual do RS voltar os passos são: 1. Configurar o componente -> Configuracoes.Geral.FormaEmissao = teNormal; 2. Carregar o XML com o método LoadFromFile; 3. Executar o método Enviar; ConectarServico(False); // Carregando XML with dtmOC do begin ACBrMDFe.Manifestos.Clear; ArquivoMDF := 'MDFe'+cdsMDFnaoEncerradoChaveMDF.AsString+'.xml'; ACBrMDFe.Manifestos.LoadFromFile(PAnsiChar(Trim(fCaminhoMDFeGerado)+'\'+Trim(ArquivoMDF)), False); end; // Transmitir MDFe with dtmOC do begin if (ACBrMDFe.Configuracoes.Geral.FormaEmissao = teNormal) then begin try ACBrMDFe.Enviar('1',False); Erro e essa chave não é a do XML:

Boa tarde, estou tendo um problema em um cliente, que toda vez que ele vai vender no cartão, aparece essa mensagem, "erro na impressão. deseja tentar novamente?". A impressora é uma Epson TM-T20X, estou mandando em anexo os logs. Vi no fórum que pode ser alguma coisa do índice da forma, mas não consegui localizar.... ecf.log TEF_DIAL.log

foi isso mesmo, erro na origem.... por isso estou tendo esse retorno de erro.... então eu terei que dar um copy né mensagem?

Bom dia, estou consultando uma nota na sefaz: ACBRnfeTrivia.WebServices.Consulta.NFeChave := ChaveNF; ACBRnfeTrivia.WebServices.Consulta.Executar; Ele me retorna o erro de código: 613 - Rejeição: Chave de Acesso difere da existente em BD 2624.......(chave correta) e no "WebServices.Consulta.XMotivo", ele me retorna a mensagem com a chave correta, tem alguma tag que retorna essa chave ou terei que dar um copy na mensagem e pegar a chave?

Obrigado Juliomar, pelo retorno. Irei travar essa possibilidade em meu sistema.

Bom dia, uma dúvida sobre a contingência FS/DA, eu sei que nela eu apenas gero o xml e imprimo o danfe, ai eu deixo para transmitir quando a sefaz voltar, a minha dúvida é: eu posso transmitir para a sefaz de contingência do RS ou apenas para a normal?

Então Juliomar, o erro da 20 - 'ESPÉCIE INVÁLIDA', eu descobri, isso foi o cadastro do beneficiário (cadastro efetuado no momento da abertura da conta). Que a gente sempre manda, o 01, que é duplicata mercantil, ai tem que enviar o Código 8 -DUPLICATA DE SERVIÇO, eles ficaram de me confirmar se é isso mesmo o cadastro, ou se abriram a conta de forma errada. Sobre o outro erro, ainda no aguardo do banco, pois o debug está OK...

Olá, estou tendo problemas em homologar o arquivo remessa do banco itaú com registro, estou mandando uma instrução de desconto para o banco, e estou recebendo 2 erros: 53 - 'INSTRUÇÃO COM O MESMO CONTEÚDO'; 20 - 'ESPÉCIE INVÁLIDA'; OBS: Tive que enviar com o código 31, e não como 04 (Concessão de Abatimento), na posição 109 e 110. Em consulta nas posições 109 a 110 está o código 31 alterações de outros dados, nesse código é necessário seguir as observações B e D. Segue nosso layout em anexo, para auxilio. Em anexo o arquivo remessa que foi gerado. E o suporte do itaú demora demais para responder, e quando respondem.... alguém já passou por isso? CB230202.REM

Problema resolvido, obrigado panda!

Ah, entendi... estou usando API.... mas fiz logo nas duas.... valeu panda!

Boa tarde, Panda. Eu tinha feito a alteração nas duas units do acbr, e mandei apenas o trecho via SOAP, segue abaixo o da API. if Boleto.Cedente.CaracTitulo = tcSimples then Json.Add('codigoModalidade').Value.AsInteger := 1 else Json.Add('codigoModalidade').Value.AsInteger := 4; Mas obrigado pelo retorno.

Fiz essa alteração para atender o meu cliente... if Boleto.Cedente.CaracTitulo = tcSimples then Gerador.wCampo(tcStr, '#04', PrefixTag('codigoModalidadeTitulo'), 1, 1, 1, '1' , DSC_CODIGO_MODALIDADE) else Gerador.wCampo(tcStr, '#04', PrefixTag('codigoModalidadeTitulo'), 1, 1, 1, '4' , DSC_CODIGO_MODALIDADE);

Olá, estou tendo problemas com a emissão de boletos híbridos no banco do brasil, o meu cliente tem uma conta vinculada, cadastrada no banco, informei no código como abaixo? ACBrBoleto.Cedente.CaracTitulo := tcVinculada Sendo que os boletos estão sendo gerados como conta simples, mesmo informando o código acima. Falei com o suporte do banco, e o mesmo me informou que estou passando o código 1, no registro do banco, quando fui analisar os fontes, encontrei isso abaixo, está setado de forma fixa o código "1", tem alguma atualização para isso? Gerador.wCampo(tcStr, '#04', PrefixTag('codigoModalidadeTitulo'), 1, 1, 1, '1' , DSC_CODIGO_MODALIDADE); Em anexo a documentação do banco, para esse tipo de registro.

Desculpe a minha ignorância, mas o que poderia ser com a internet? algum bloqueio de algum link por exemplo?

Estou em PE também, o estranho é que em alguns clientes estão trabalhando normalmente, ai não sei se é problema na internet do cliente ou não? mas é somente para a NFe, pois os outros documentos fiscais, estão normal...

Bom dia, estou tentando me conectar com a sefaz, utilizando as seguintes configurações abaixo(Certificado A1): with dtmMonitorNFE.ACBRnfeTrivia.Configuracoes.Geral do begin SSLLib := libWinCrypt; SSLCryptLib := cryWinCrypt; SSLHttpLib := httpWinHttp; SSLXmlSignLib := xsLibXml2; end; dtmMonitorNFE.ACBRnfeTrivia.Configuracoes.WebServices.TimeOut := 15000; dtmMonitorNFE.acbrnfeTrivia.Configuracoes.Certificados.NumeroSerie := NFeCertificadoInfo.numCertificado; dtmMonitorNFE.ACBRnfeTrivia.Configuracoes.Certificados.Senha := NFeCertificadoInfo.senhaCertificado; dtmMonitorNFE.ACBRnfeTrivia.Configuracoes.WebServices.UF := fempresaInfo.PessoaInfo.EnderecoPrinc.id_estado; Quando eu mando conectar, me retorna o erro de timeout 12002, o que pode ser?

isso mesmo juliomar, gravamos nesse campo mesmo: ARetornoWS.DadosRet.TituloRet.CodigoCanalTituloCobranca := AJson.Values['codigoCanalPagamento'].AsString; valeu!

Bom dia, gostaria de saber como eu sei a forma de pagamento de um boleto, por exemplo(Código de barras ou PIX)? o banco do brasil me respondeu que existe esse campo que consta essa informação (na imagem): no acbr, eu busco essa informação desse jeito? DadosRet.TituloRet.CodigoCanalTituloCobranca;

Coloquei um log, e quando ele tenta enviar o boleto, ele da um erro e grava esse log abaixo: [18/12/2023 09:38:04.957]C:\Program Files\Client\TriviaFIN.exe - Gerando Boleto Híbrido BB - Geração Cod_Retorno= Msg_Retorno= Ori_Retorno= HTTP_Result=0 JSON= Vi que em outro post, um colega estava com o mesmo problema que eu, o problema dele foram as libs, seria esse o mesmo problema que eu? se sim, como faço para resolver?