Mauricio Andrade

olá Juliomar, Irmão, quase fiquei louco, havia um resquício do XE7 com o Forte Report, além disso, no Library path 32-bit windows, apontava para essa pasta do Fort Report antigo. Consegui resolver e está tudo funcionando. Muito Obrigado Irmão PS: O seu video do GitHub tb ajudou e muito, parabens. Abs Maurício Andrade Podemos fechar o assunto...

Opa, Vi o video, mesmo assim continua o mesmo erro, reinstalei o Forte e o mesmo está funcionando sem problema no Seatlle, vou reinstalar o ACBr , apagando o antigo para ver se vai, até o ACBrBoletoDemo dá o mesmo erro.... Já te falo Mauricio

Bom dia Juliomar, Não deu certo: [dcc32 Fatal Error] UCMC202040.pas(15): F2051 Unit ACBrBoletoFCFortesFr was compiled with a different version of RLPrinters.RLPrinter Tenha nesta maquina tb a Vs 11.3 , será que tem haver , tipo: alguma ordem de busca dos programas? Na Vs 11.3 não utilizo o ACBr Aguardo Abs

Uso o Seatlle , já usei o Bit , fiz o clone e instalei, qq programa que utilizo o Forte report no XE10, funciona tranquilamente, quando tento compilar o Programa do ACBrBoleto acontece o seguinte: [dcc32 Fatal Error] UCMC202040.pas(16): F2051 Unit ACBrBoletoFCFortesFr was compiled with a different version of RLPrinters.RLPrinter alguém pode me dar uma dica? Obrigado Maurício Andrade

Bom dia Italo, Como faço para colocar a Série no XML na Nota Exemplo antes = 999S-nfse.xml agora 999-nfse.xml Pois quando envio, ele retorna e grava com a serie, mais quando eu ACBrNFSeX1.ConsultarNFSeporRps(sNumeroRps, sSerieRps, '1'); ChecarResposta(tmConsultarNFSePorRps); retorna e grava sem a serie. Aguardo Abs Mauricio Andrade

Bom dia, Recebi um email como o acima, estão com problema no webserice. Abs Mauricio Andrade

Em Anápolis, consegui fazer funcionar, sendo que continuo usando a versão 1.00, só modifiquei o IssNet.ini conforme abaixo: [URL_P] ;RecepcaoLoteRPS=http://www.issnetonline.com.br/webserviceabrasf/%NomeURL_P%/servicos.asmx <- era www RecepcaoLoteRPS=http://abrasf.issnetonline.com.br/webserviceabrasf/%NomeURL_P%/servicos.asmx ;Cuiaba/MT RecepcaoLoteRPS_5103403=https://ws%NomeURL_P%.issnetonline.com.br/webserviceabrasf/%NomeURL_P%/servicos.asmx Abs a todos Maurício Andrade PS: Não consegui fazer funcionar na versão 2.04 (por enquanto)

Bom dia, Percebi que ao gerar uma NFSe , o nome do arquivo da Nota não está mais gravando com a série Exemplo antes = 999S-nfse.xml agora 999-nfse.xml Alguém esta passando por isso, o que mudou no componente? Abraços a todos Mauricio Andrade

Bom dia pessoal, Estou esse problema na Prefeitura de São José - SC (Provedor IPM). O Componente ao invés de colocar 'S' ou 'N', coloca 0 ou 1 -<lista> <tributa_municipio_prestador>0</tributa_municipio_prestador> </lista> Alguém tem alguma dica?

Italo, Descobri isso: Instruções para o serviço CONSULTA SÍNCRONA DE UMA NFS-e POR RPS (ConsultarNfseRps): Este é um documento provisório, de uso restrito e contém instruções para teste de web service com parceiros da Prefeitura de Goiânia. O web service é baseado no modelo nacional de NFS-e, versão 2.0 da ABRASF, com adequações descritas no esquema XSD informado abaixo. Para obter a documentação do modelo conceitual e manual de integração da ABRASF, consulte http://www.abrasf.org.br, em Temas Técnicos escolha NFS-e. No link abaixo existe um XML exemplo básico de solicitação de CONSULTA SÍNCRONA DE UMA NFS-e POR RPS (ConsultarNfseRps). https://drive.google.com/file/d/0B-E5V-N1GV7lVXA3WHN6YzlXclU/edit?usp=sharing As solicitações serão processadas em ambiente de produção, porém, em modo TESTE. Caso não existam críticas, será retornado um XML resposta idêntico ao da geração de nota. O XML envio da consulta não deve ser assinado, porém, o certificado digital deve ser adicionado à chamada do serviço. O certificado aceito nas transações deve ser emitido por uma Autoridade Certificadora credenciada pela ICP-Brasil, no padrão e-CNPJ ou e-CPF e do tipo A1 ou A3. Após a finalização da fase de testes e solicitada a adesão à NFS-e junto à Secretaria de Finanças, solicite-nos a mudança do modo TESTE para o modo PRODUÇÃO.

Exatamente este problema de certificado na consulta... Abs

Marcelo, Tenho o mesmo problema na prefeitura de Goiania, o XML não vem com todas as informação da Nota, eu alimento estas informações pegando do banco (sistema) antes de gerar o PDF. Exemplo: Dados do Contribuinte (Empresa). Abs if (sprovedor='goiania') or (sprovedor='issDSF') then begin ACBrNFSe1.NotasFiscais.Items[0].NFSe.Servico.CodigoMunicipio := sCod_Munic_Emp; ACBrNFSe1.NotasFiscais.Items[0].NFSe.Prestador.Cnpj := SoNumeros(qryEmpresa.FieldByName('cnpj_cpf').AsString); ACBrNFSe1.NotasFiscais.Items[0].NFSe.Prestador.InscricaoMunicipal := SoNumeros(qryEmpresa.FieldByName('inscricao_municipal').AsString); ACBrNFSe1.NotasFiscais.Items[0].NFSe.PrestadorServico.RazaoSocial := qryEmpresa.FieldByName('razao_social').AsString; ACBrNFSe1.NotasFiscais.Items[0].NFSe.PrestadorServico.NomeFantasia := qryEmpresa.FieldByName('apelido').AsString; ACBrNFSe1.NotasFiscais.Items[0].NFSe.PrestadorServico.Endereco.Endereco := qryEmpresa.FieldByName('endereco').AsString; ACBrNFSe1.NotasFiscais.Items[0].NFSe.PrestadorServico.Endereco.Numero := qryEmpresa.FieldByName('numero').AsString; ACBrNFSe1.NotasFiscais.Items[0].NFSe.PrestadorServico.Endereco.Complemento := qryEmpresa.FieldByName('complemento').AsString; ACBrNFSe1.NotasFiscais.Items[0].NFSe.PrestadorServico.Endereco.Bairro := qryEmpresa.FieldByName('bairro').AsString; ACBrNFSe1.NotasFiscais.Items[0].NFSe.PrestadorServico.Endereco.CEP := qryEmpresa.FieldByName('cep').AsString; ACBrNFSe1.NotasFiscais.Items[0].NFSe.PrestadorServico.Endereco.xMunicipio := qryEmpresa.FieldByName('municipio').AsString; ACBrNFSe1.NotasFiscais.Items[0].NFSe.PrestadorServico.Endereco.UF := qryEmpresa.FieldByName('estado').AsString; ACBrNFSe1.NotasFiscais.Items[0].NFSe.PrestadorServico.Contato.Telefone := qryEmpresa.FieldByName('tel').AsString; ACBrNFSe1.NotasFiscais.Items[0].NFSe.PrestadorServico.Contato.Email := qryEmpresa.FieldByName('email').AsString; rTl_Iss := 0; if ACBrNFSe1.NotasFiscais.Items[0].NFSe.Servico.Valores.Aliquota<>0 then begin rTl_Iss := ACBrNFSe1.NotasFiscais.Items[0].NFSe.Servico.Valores.ValorServicos * (ACBrNFSe1.NotasFiscais.Items[0].NFSe.Servico.Valores.Aliquota/100); ACBrNFSe1.NotasFiscais.Items[0].NFSe.Servico.Valores.ValorIss := rTl_Iss; end; if (ACBrNFSe1.NotasFiscais.Items[0].NFSe.Servico.Valores.IssRetido=stRetencao) then begin ACBrNFSe1.NotasFiscais.Items[0].NFSe.Servico.Valores.ValorIssRetido := rTl_Iss; ACBrNFSe1.NotasFiscais.Items[0].NFSe.Servico.Valores.ValorLiquidoNfse := ACBrNFSe1.NotasFiscais.Items[0].NFSe.Servico.Valores.ValorServicos - (rTl_Iss+ ACBrNFSe1.NotasFiscais.Items[0].NFSe.Servico.Valores.ValorPis+ ACBrNFSe1.NotasFiscais.Items[0].NFSe.Servico.Valores.ValorCofins+ ACBrNFSe1.NotasFiscais.Items[0].NFSe.Servico.Valores.ValorIr+ ACBrNFSe1.NotasFiscais.Items[0].NFSe.Servico.Valores.ValorCsll); end; if sprovedor='issDSF' then begin qryLer.Sql.Text := 'select PP.*,P.cod_serv_fed,P.cod_serv_mun,cod_cnae'+ ' from digim'+sUSUARIO_PADRAO+'.pedidos_produtos PP'+ ' left join digig'+sUSUARIO_PADRAO+'.prod_win P on P.cod_empresa="'+sEMPRESA+'"'+ ' and P.cod_produto=PP.cod_produto'+ ' where PP.id_pedido="'+qryPedidos.FieldByName('id_ped').AsString+'"'+ ' order by PP.id'; qryLer.Open; qryLer.First; sDesc_Serv := TrocaCaracter(qryLer.FieldByName('desc_produto').AsString,#13,sQuebra); ACBrNFSe1.NotasFiscais.Items[0].NFSe.Servico.Discriminacao := sDesc_Serv; end; end;

Bom dia Italo, Atualizei os fontes , mas continua dando: Erro.: "Mensagem XML de Pedido do servico sem conteudo" Abs Mauricio

Delfino, vou alterar o componente para aceitar o TiplanV2 , que nem o WebISSv2. Deus me ajude...rsrs Abs

Boa tarde, Delfiro, vc conseguiu envia a NFSe para Niteroi? Abs Mauricio Andrade