Ir para conteúdo
  • Cadastre-se

Henrique_automatizze

Membros
  • Total de ítens

    55
  • Registro em

  • Última visita

Últimos Visitantes

1.199 visualizações

Henrique_automatizze's Achievements

Enthusiast

Enthusiast (6/14)

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

Recent Badges

6

Reputação

  1. Boa Tarde, fiz o mesmo procedimento e 'resolveu', mas sim, tem o problema que o nro está sendo interpretado como um numero inteiro.
  2. Boa tarde Estou com o seguinte caso com o a impressão de incidencia do servidor IPM nas observações. Na unit IPM.LerXml tem o seguinte trecho que fiz ajuste , gostaria da ajuda de vcs se faz sentido Antes if ItemServico.Count > 0 then begin CodigoMunicipio := ItemServico[0].CodMunPrestacao; if CodigoMunicipio <> '' then begin xUF := ''; MunicipioPrestacaoServico := ObterNomeMunicipioUF(StrToIntDef(CodigoMunicipio, 0), xUF); MunicipioPrestacaoServico := MunicipioPrestacaoServico + '/' + xUF; end; if ItemServico[0].TribMunPrestador = snSim then MunicipioIncidencia := StrToIntDef(CodigoMunicipio, 0) else MunicipioIncidencia := StrToIntDef(NFSe.Tomador.Endereco.CodigoMunicipio, 0); MunicipioPrestacaoServico := ''; xMunicipioIncidencia := ''; if MunicipioIncidencia > 0 then begin MunicipioPrestacaoServico := ObterNomeMunicipioUF(MunicipioIncidencia, xUF); MunicipioPrestacaoServico := MunicipioPrestacaoServico + '/' + xUF; xMunicipioIncidencia := MunicipioPrestacaoServico; end; Depois if ItemServico.Count > 0 then begin CodigoMunicipio := ItemServico[0].CodMunPrestacao; if CodigoMunicipio <> '' then begin xUF := ''; MunicipioPrestacaoServico := ObterNomeMunicipioUF(StrToIntDef(CodigoMunicipio, 0), xUF); MunicipioPrestacaoServico := MunicipioPrestacaoServico + '/' + xUF; end; if MunicipioIncidencia = '' then begin if ItemServico[0].TribMunPrestador = snSim then MunicipioIncidencia := StrToIntDef(CodigoMunicipio, 0) else MunicipioIncidencia := StrToIntDef(NFSe.Tomador.Endereco.CodigoMunicipio, 0); end; //MunicipioPrestacaoServico := ''; //xMunicipioIncidencia := ''; if MunicipioIncidencia > 0 then begin //MunicipioPrestacaoServico := ObterNomeMunicipioUF(MunicipioIncidencia, xUF); //MunicipioPrestacaoServico := MunicipioPrestacaoServico + '/' + xUF; //xMunicipioIncidencia := MunicipioPrestacaoServico; xMunicipioIncidencia := ObterNomeMunicipioUF(MunicipioIncidencia, xUF); end; // NFSe.Servico.MunicipioIncidencia end;
  3. Bom dia, testamos pelo site e ocorreu erro tambem
  4. Bom dia, Com a atualização dos componentes resolveu as alterações do servidor IPM
  5. Bom dia, IPM para cachoeirinha tambem mudou, poderia me dar uma orientação se ,eu modificar apenas o cidade.ini seria suficiente?
  6. Bom dia Italo, Então, realmente eu estava dividindo por 100, vi que essa lógica da divisão o componente esta fazendo, mas, outra situação que notei é que no xml de retorno não estava vindo a aliquota de iss, mas a principio está resolvido, obrigado pela atenção
  7. Bom dia, Na impressão da NFSe o campo aliquota não esta saindo multiplicado por 100, existe alguma configuração para isso?, servidor que estou utilizando é IPM
  8. Boa tarde Italo, Minha dúvida maior é essa minha validação é correta ? if (ACBrNFSeX1.WebService.Emite.Erros.Count = 0) and (ACBrNFSeX1.WebService.ConsultaLoteRps.Erros.Count = 0) and (ACBrNFSeX1.WebService.ConsultaSituacao.Erros.Count = 0) then nota ok else begin tratamentos end Igual vc mencionou como exemplo BHISS, que o lote pode estar em processamento..., preciso verificar algum código, ou mensagem que possua o texo X?
  9. Boa tarde a todos, Fiz a migração para ACBrNFSeX, servidor IPM e BHISS estao homologados nos testes, mas estou com uma situação que queria tirar uma dúvida ou pudessem me recomendar algum tópico. Hoje para eu saber se o rps foi enviado faço a checagem das resposa e faço a seguinte pergunta... ACBrNFSex1.Emitir(NumeroLoteStr,meAutomatico,false); if (ACBrNFSeX1.WebService.Emite.Erros.Count = 0) and (ACBrNFSeX1.WebService.ConsultaLoteRps.Erros.Count = 0) and (ACBrNFSeX1.WebService.ConsultaNFSe.Erros.Count = 0) then begin Nota ok... end else begin Checagem das resposas... end; agora vem a pergunta, tem algum parametro que possa ler somente dele se a nota foi aceita (enviado rps e consultado lote), ou preciso realmente ler... ACBrNFSeX1.WebService.Emite ACBrNFSeX1.WebService.ConsultaSituacao ACBrNFSeX1.WebService.ConsultaLoteRps Obrigado e boa semana a todos
  10. Bom dia Italo, Sim, estão atualizados, a principio preencho todos os campos da função, inclusive as series. Vou para AcbrNFSeX, acredito que seria a melhor solução mesmo , já que é a versão mais atualizada. Obrigado pelo feedback e atenção de todos
  11. Boa tarde pessoal, Estou tentando cancelar uma NFS-e no servidor IPM, e estou com a seguinte mensagem de erro 00291 - A serie da NFS-e nao foi informada. A principio estou preenchendo todos parametros da função ACBrNFSe1.CancelarNFSe e tambem as series, alguem ja passou por essa situação e possa me dar um norte? desde já agradeço a atenção de todos. 1531-can-soap.xml 1531-ped-can.xml 1531-ped-can-soap.xml 1531-can.xml
  12. Bom dia @Italo Giurizzato Junior, Atualizei os fontes, acredito que tenha sido corrigido, fiz os testes de homologação, como o ambiente de homologação não foi ativo pelo cliente, deu erro de autenticação, quando eu conseguir testar o ambiente de produção faço a confirmação. Muito obrigado pelo feedback, bom fim de semana a todos
  13. Show @Italo Giurizzato Junior, se eu poder de alguma forma ajudar, estou a disposição
  14. Segue os anexos SoapACBRNFSE.zip SoapACBRNFSEx.zip
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.