-
Total de ítens
110 -
Registro em
-
Última visita
-
Days Won
1
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por econdotta
-
-
Bom dia, eu faço a importação do arquivo txt através do do componente ACBRSpedPCImp associado ao ACBRSpedFiscal seguindo o exemplo do ACBR, o bloco 0 Registro 0000 consigo ler corretamente. O problema fica na leitura do Bloco 0 Registro 150. A propriedade DM.SpedContribuicao.Bloco_0.Registro0150Count retorna sempre 0.
Obrigado
-
Olá a todos.
Estou tentando importar arquivos SPED EFD-Contribuições e Sped-Fiscal mas estou tendo problemas para ler o Bloco 0 Registro 150.
A função SpedFiscal.Bloco_0.Registro0150Count retorna zero sempre e dentro do arquivo (que já foi validado pela Sefaz) existem estes registros como abaixo descrevo.
|0150|FOR000000008|DOANDO DISTRIBUIDORA LTDA|1058|32254261000228||1770119075|4303103||R. DO SANTO NASCIMENTO|90||DISTRITO INDUSTRIAL|
|0150|FOR000000009|PARAMIM S.A|1058|82949812000171||250864877|4216909||RUA DO DENTISTA|475||PADRE FRANCISCO|
|0150|FOR000000011|COOPERATIVA SANTO AMARO LTDA|1058|88388357003001||0250317821|4305108||R IRMAO JOSE|20||SANTA FAMILIA|
Estou fazendo o seguinte codigo:
For Linha := 0 To DM.SpedContribuicao.Bloco_0.Registro0150Count - 1 Do
Begin
LocaldeDestino := DM.SpedContribuicao.Bloco_0.Registro0150New.COD_PART;End;
O que pode estar acontecendo? Desde já agradeço a atenção de todos. -
Em 10/07/2020 at 09:40, guilhermekm disse:
Em resumo modificamos nosso sistema para ao invés de pegar o Seu Número, pegar o Número Documento. Assim funciona como o @econdotta falou acima. Agora quem está correto e porque foi primeiro desenvolvido assim e depois modificado não importa. O importante é que se encontre uma solução. Mudanças é que complicam.
Muito Obrigado!Guilherme, entendo muito bem sua situação e fico contente por ter encontrado uma solução para ela, mas considero desnecessário informar o mesmo conteúdo (valor) em 2 propriedades diferentes e excluir campos do retorno. Gostaria que observa-se na pagina 18 do layout do Banrisul o que consta na posição 38 tamanho 25. Lendo com mais calma o manual do Banrisul parece que eles se atrapalharam nestas informação;
- 2
-
3 horas atrás, guilhermekm disse:
sim, mas o problema que se deixamos assim, no Banrisul não funciona. Incrível isso, digo por parte do banco mesmo!
Para mim está funcionando corretamente agora, se preciso do conteudo 38, 25 pego o SeuNumero, se quero a posição 117, 25 pego o NumeroDocumento.
Acho que temos que nos ater aos manuais dos bancos e retornarmos as posições corretas.
- 1
-
Conforme outros bancos esta é posição correta para o retorno do SeuNumero
-
O NumeroDocumento é o mesmo que SeuNumero? (Posição 117,10)
Conforme manual do Brarisul:
Remessa:
Posição 038 até 062 IDENTIFICAÇÃO DO TÍTULO PARA O BENEFICIÁRIO - Campo alfanumérico opcional. - Não será impresso no bloqueto, somente será informado no arquivo retorno.Retorno:
Na pagina 18
Posição 038 até 062 IDENTIFICAÇÃO DO TÍTULO PARA O BENEFICIÁRIO - Conforme informado no arquivo remessa.
Qual campo do ACBRBoleto se refere a estas posições?
Obrigado pelo retorno.
-
Eu que agradeço a toda ajuda sempre recebida. Sucesso a todos nós.
- 1
-
Peço a alteração dos fontes do ACBRBoleto na leitura do Retorno do Banrisul para que seja carregado o valor correto do "SEUNUMERO" conforme abaixo:
procedure TACBrBanrisul.LerRetorno240(ARetorno: TStringList);
822 SeuNumero := Trim(Copy(FSegT, 38, 25)); //--- Valor antigo -->>> NumeroDocumento;
procedure TACBrBanrisul.LerRetorno400(ARetorno: TStringList);
966 SeuNumero := copy(Linha,38,25); //--- Valor antigo -->>> copy(Linha,117,10)
Atualmente ele esta retornando no "SeuNumero" o valor do "NumeroDocumento".
Em anexo a unit ACBRBancoBanrisul.pas que eu alterei. Caso eu tenha cometido algum erro por favor informem.
Obrigado a todos que participam do projeto ACBR pelo excelente trabalho e ajuda.
-
14 horas atrás, Fernando Di Pace disse:
Cara, atualiza as tuas dll`s com base nas dll`s do pacote do acbr configura o teu componente da seguinte forma:
ACBrNFe1.Configuracoes.WebServices.SSLType := LT_TLSv1_2;
ACBrNFe1.Configuracoes.Geral.SSLLib := libWinCrypt;
ACBrNFe1.Configuracoes.Geral.SSLCryptLib := cryWinCrypt;
ACBrNFe1.Configuracoes.Geral.SSLHttpLib := httpWinHttp;
ACBrNFe1.Configuracoes.Geral.SSLXmlSignLib := xsMsXml;Obs: No teu cliente se estiver usando o Windows 7 SP1 tem atualizar para SP3 para reconhecer o TLS 1.2 e
Boa sorte.
Obrigado Fernando vou testar sua atualização, mas talvez o erro esteja na versão do Windows mesmo. Valeu a dica.
- 2
-
Ajustei as configurações para libOpenSSL e rodou na minha maquina, já no cliente acusa o seguinte erro:
SisCoMed - AlfaMed
---------------------------
WebService Consulta Status serviço:- Inativo ou Inoperante tente novamente.Erro Interno: 10091
Erro HTTP: 500
URL: https://nfe.sefaz.ms.gov.br/ws/NFeStatusServico4
error:14077410:SSL routines:SSL23_GET_SERVER_HELLO:sslv3 alert handshake failure.
Sendo que minha maquina roda Windows 10 e no cliente Windows 7 SP1.
Saio de um e caio em outro.
-
Olá, esta semana começou um problema nos meus clientes de MS, imaginem a seguinte situação:
Um aplicativo (e também o exemplo do ACBR) utilizando o mesmo certificado cadastrado para as UF's do RS, SC e MS. Se obtêm os seguintes resultados:
No RS e SC serviço em operação, emissão de NFe OK tanto em homologação quanto em produção.
Mas quando tento consultar ou emitir uma NFe na UF de MS dá o seguinte erro:
---------------------------
SisCoMed - Neo Stock MS
---------------------------
WebService Consulta Status serviço:
- Inativo ou Inoperante tente novamente.
Erro Interno: 12175
Erro HTTP: 0
URL: https://nfe.sefaz.ms.gov.br/ws/NFeStatusServico4
Falha no Envio da Requisição.
Erro: 12175 - Um ou mais erros foram encontrados no certificado Secure Sockets Layer (SSL) enviado pelo servidor.
---------------------------
Já apaguei certificados Raiz, reinstalei, fiz tudo que encontrei na internet e até o momento nada, ou seja, acredito que realizei todos procedimentos na tentativa de resolver a situação mas nada funcionou.
No resto do país está funcionando tudo OK menos em MS.Alguém pode me ajudar? Muito obrigado desde já.
Edson Condotta
-
Realmente era isto, tinha um formulario com fazia referencia a esta Unit. Não me pergunte porque visto que nunca usei o FASTReport. Removi a referencia e passou OK. Muito obrigado.
- 1
-
Olá, estou instalando o Delphi 10.3 Rio para testes.
Baixei o FortesReport-CE e instalei normalmente sem erros.
Baixei o ACBR e instalei sem erros com o Danfe, Boleto, etc... do FortesReport.
Mas quando tento compilar uma aplicação teste que utiliza algum componente do ACBR recebo o seguinte erro:
[dcc32 Fatal Error] ACBrNFeDANFEFRDM.pas(79): F2613 Unit 'frxClass' not found.
Alguém já passou por isto? Como resolveu?
Desde já agradeço qualquer ajuda. Obrigado
-
Obrigado pelo retorno, o problema foi resolvido, era uma situação na Sefaz vejam no link abaixo. O tecnico seguiu as informações e o sistema voltou a emitir NF-e.
https://blog.tecnospeed.com.br/sefaz-mensagem-de-certificado-invalido/
Novamente agradeço a ajuda.- 2
-
Olá a todos.
Estou com o seguinte problema:
Possuo um sistema que roda em vários clientes em todo Brasil mas a 2 semanas começou ocorrer o seguinte problema para os clientes de MS:Certificado fornecido não é valido. (conforme imagem)
O problema é que se eu usar o computador em MS para acessar um banco e a Sefaz de outra UF funciona.
Se eu usar um computar em outra UF para acessar um banco e a Sefaz em MS dá o erro.
O que não consigo é com um computador em MS acessar um banco e a Sefaz de MS.
Alguém tem ideia do que pode ser???
-
Ainda não, o cliente aceitou a forma inicial que eu havia feito.
-
Pessoal,
Fiz uma consulta a uma NFe CANCELADA e o retorno foi: ACBrNFe1.WebServices.Consulta.XMotivo = 'Cancelamento de NF-e homologado'
Logo depois dei o seguinte comando: fNf_e.ACBrNFe1.NotasFiscais.Items[0].GravarXML('Cancelada.xml','c:\temp');
E no XML gravado não aparece o evento de cancelamento com seu protocolo conforme mostro no arquivo anexado.
Onde estou errando?
Obrigado desde já.
-
Devo entender então que a propiedade Logoemcima no Danfe do Fortes não funciona.
Obrigado pela ajuda. Vou ver o que posso fazer sobre o assunto.
-
Não encontrei onde setar ou resetar a propriedade Stretch da imagem.
-
-
-
Amigos, não consigo ajustar o logotipo na emissão do danfe da NFe usando o Fortes Report.
Já setei a propriedade LogoEmCima como true e false, mas continua sempre na mesma posição. Tentei outras combinações como RecuoLogo, RecuoEmpresa mas sempre permanece da mesma forma. Alguem teria uma dica, solução o poderiam me informar onde posso tentar alterar?
Abaixo segue imagem de como está sendo impresso no momento.
Desde já agradeço atenção dispensada.
Edson Condotta
-
4 horas atrás, Marcelo Henrique disse:
Bom dia @econdotta
Comigo estava acontecendo o mesmo problema.
Aqui eu tinha atualizado o ACBr, mas não tinha colocado os arquivos da pasta ArqINI junto com a minha aplicação. Depois que fiz isso, funcionou.
Marcelo, tudo resolvido, acho que estava com um arquivo INI desatualizado, quando copiei e rodei o sistema gerou tudo OK. Valeu a dica.
- 1
-
Pessoal,
Dia 18 e 19 deste mês consegui emitir NFS-e (Porto Alegre - BHISS) com as configurações que vocês me passaram.
Já no dia 20 (quarta-feira) comecei a receber esta mensagem. Já verifiquei os certificados, estão corretos e validos, mas continuo recebendo esta mensagem.
'Erro: Requisição não enviada. 12044 - É necessário um certificado para concluir a autenticação do cliente'.
Estou carregando as informações desta forma:ACBrNFSe1.Configuracoes.Certificados.NumeroSerie := g_Certificado;
ACBrNFSe1.Configuracoes.Certificados.VerificarValidade :=True;ACBrNFSe1.Configuracoes.Arquivos.AdicionarLiteral := True;
ACBrNFSe1.Configuracoes.Arquivos.EmissaoPathNFSe := True;
ACBrNFSe1.Configuracoes.Arquivos.SepararPorMes := True;
ACBrNFSe1.Configuracoes.Arquivos.SepararPorCNPJ := False;//ACBrNFSe1.Configuracoes.Arquivos.PathGer := edtPathLogs.Text;
ACBrNFSe1.Configuracoes.Arquivos.PathSchemas := '.\Schemas';ACBrNFSe1.Configuracoes.Geral.Salvar := True;
ACBrNFSe1.Configuracoes.Geral.PathIniCidades := '.\';
ACBrNFSe1.Configuracoes.Geral.PathIniProvedor := '.\';
ACBrNFSe1.Configuracoes.Geral.CodigoMunicipio := StrToInt(g_CodMunicipio);
ACBrNFSe1.Configuracoes.Geral.SenhaWeb := '';
ACBrNFSe1.Configuracoes.Geral.UserWeb := '';if g_Logotipo<>'' then
ACBrNFSe1.DANFSe.PrestLogo := g_Logotipo;
if g_LogoMunicipio<>'' then
ACBrNFSe1.DANFSe.Logo := g_LogoMunicipio;
ACBrNFSe1.DANFSe.Prefeitura := g_Prefeitura;
ACBrNFSe1.Configuracoes.WebServices.Ambiente := Iif((g_Producao='S'),taProducao, taHomologacao);
ACBrNFSe1.Configuracoes.Geral.CodigoMunicipio := StrToInt(g_CodMunicipio);
ACBrNFSe1.WebServices.ACBrNFSe.SSL.CarregarCertificado;
if Not ACBrNFSe1.WebServices.ACBrNFSe.SSL.CertificadoLido then
begin
MessageDlg( 'Atenção: Certificado não carregado.',mtWarning,[mbOk],0);
end;ACBrNFSe1.Configuracoes.Geral.Emitente.CNPJ := g_CGC;
ACBrNFSe1.Configuracoes.Geral.Emitente.InscMun := g_InscMunicipio;
ACBrNFSe1.Configuracoes.Geral.Emitente.RazSocial := g_Empresa;ACBrNFSe1.Configuracoes.Geral.SetConfigMunicipio;
Alguém tem alguma dica do que estou esquecendo???Efetuei o debug (Delphi XE2) e na linha 406 da unit ACBrHTTPReqResp.pas "if HttpSendRequest(pRequest, nil, 0, Pointer(FData), Length(FData)) then" está retornado False, sendo que o conteudo de FData possui o XML do RPS assinado.
InternalErrorCode: 12044
GetWinInetError(InternalErrorCode) : 'É necessário um certificado para concluir a autenticação do cliente'#$D#$A
O Certificado é A1 com validade até 16/04/2016.Alguma dica???
Obrigado.
Importação Arquivo Sped
em ACBrSPEDFiscal
Postado
Vou tentar ver o que consigo fazer.
Obrigado