Jump to content

Mauricio Andrade

Membros
  • Posts

    60
  • Joined

  • Last visited

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

Mauricio Andrade's Achievements

Enthusiast

Enthusiast (6/14)

  • First Post
  • Collaborator Rare
  • Conversation Starter
  • Week One Done
  • One Month Later

Recent Badges

2

Reputation

  1. 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.
  2. Exatamente este problema de certificado na consulta... Abs
  3. 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;
  4. Bom dia Italo, Atualizei os fontes , mas continua dando: Erro.: "Mensagem XML de Pedido do servico sem conteudo" Abs Mauricio
  5. Delfino, vou alterar o componente para aceitar o TiplanV2 , que nem o WebISSv2. Deus me ajude...rsrs Abs
  6. Boa tarde, Delfiro, vc conseguiu envia a NFSe para Niteroi? Abs Mauricio Andrade
  7. Boa tarde a todos... Alguem tem o goiania.ini que esteja funcionando? Outra coisa: Goiania é Sincrono ? Agradeço desde já. Mauricio
  8. Boa tarde Pessoal, alguem sabe o que pode ser este erro? Abs
  9. João, Use enviar.sincrono o arquivo webissv2.ini que estou lhe enviando está funcionando perfeitamente comigo. Espero ter ajudado... Abs WebISSv2.ini
  10. 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
  11. 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
  12. 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
  13. Pessoal , consegui enviar o lote para webiss v2 niteroi tem que ser sincrono Abs WebISSv2.ini
  14. esse INI consegue enviar mais processa com erro, estou tentando WebISSv2.ini
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.