econdotta

Vou tentar ver o que consigo fazer. Obrigado

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.

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;

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.

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.

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. ACBrBancoBanrisul.pas

Obrigado Fernando vou testar sua atualização, mas talvez o erro esteja na versão do Windows mesmo. Valeu a dica.

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.

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.

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á. Cancelada.xml

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.

Sim, expandindo a imagem ocupa todo o quadro e desaparece a Razão Sócial e o Endereço como mostra a imagem abaixo.

Obrigado pelo retorno, segue a imagem original. Utilizei minha aplica, mas copiei as linhas do exemplo.

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

Marcelo, tudo resolvido, acho que estava com um arquivo INI desatualizado, quando copiei e rodei o sistema gerou tudo OK. Valeu a dica.

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.