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

Boa tarde a todos... Alguem tem o goiania.ini que esteja funcionando? Outra coisa: Goiania é Sincrono ? Agradeço desde já. Mauricio

Boa tarde Pessoal, alguem sabe o que pode ser este erro? Abs

João, Use enviar.sincrono o arquivo webissv2.ini que estou lhe enviando está funcionando perfeitamente comigo. Espero ter ajudado... Abs WebISSv2.ini

volta false mesmo, mais aí eu faço a consulta NFSe por RPS , e lá está a NFSe .... Só consegui desta forma... foi por esta causa que coloquei o enviarsincrono dentro de um try

Delfino, Consegui enviar pelo modo enviarsincro e logo depois faço a consulta consultar NFSe por RPS, funciona perfeitamente, trazendo tudo (-) o protocolo, OBS: A NFSe está certinha no WebService.... Se eu mando somente como enviar, fica o lote para processamento e não traz retorno algum Exemplo abaixo: try if sProvedor = 'webissv2' then begin ACBrNFSe1.Configuracoes.Geral.ConsultaLoteAposEnvio := False; bOK := ACBrNFSe1.EnviarSincrono(StrToInt(edtProx_Lote.Text),False); end else bOK := ACBrNFSe1.Enviar(StrToInt(edtProx_Lote.Text),False); except sArq_XML := sDirNFSe+'\'+ FormatDateTime('yyyymm',qryPedido.FieldByName('dt_nf').AsDateTime)+ '\Recibos\'+qryPedido.FieldByName('num_nf').AsString+qryPedido.FieldByName('serie_nf').AsString+'-Rps.xml'; ACBrNFSe1.NotasFiscais.LoadFromFile(sArq_XML); bOK := ACBrNFSe1.ConsultarNFSeporRps(ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero, ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie, TipoRPSToStr(ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Tipo)); end; if bOK = False then ShowMessage('Verifique a situação da RPS > '+qryPedido.FieldByName('num_nf').AsString) else begin sDANFE_Protocolo := ACBrNFSe1.WebServices.ConsSitLoteRPS.Protocolo; if sProvedor = 'webissv2' then iSit_RPS := 4 else iSit_RPS := StrToIntDef(ACBrNFSe1.WebServices.ConsSitLoteRPS.Situacao,0); sDANFE_CodVerif := ACBrNFSe1.NotasFiscais.Items[0].NFSe.CodigoVerificacao; iTam_NFSe := length(ACBrNFSe1.NotasFiscais.Items[0].NFSe.Numero); sDANFE_NFSe := ACBrNFSe1.NotasFiscais.Items[0].NFSe.Numero; sLinkNFSe := ACBrNFSe1.NotasFiscais.Items[0].NFSe.OutrasInformacoes; continua ... OBs: Só não traz o protocolo

Bom juliomar, Estou usando enviarsincrono e coloco para não consultar lote ao apos o envio, após consulto por NFSe por RPS. (Somente o protocolo que não tem) PS: No modo Enviar, o lote fica esperando processamento. Espero ter ajudado Abs

resolvi colocando openssl

Pessoal , consegui enviar o lote para webiss v2 niteroi tem que ser sincrono Abs WebISSv2.ini

esse INI consegue enviar mais processa com erro, estou tentando WebISSv2.ini

Galera consegui pelo menos enviar os lotes, está dando erro ao processa-los. Estou tentando resolver junto a webiss (são morosos) rsrs Vamos conseguir. Abs a todos PS: em anexo o INI WebISSv2.ini outra coisa, tirem a identação no componente NFSe, pois dá erro de assinatura.. abs