Henrique_automatizze

Boa Tarde, fiz o mesmo procedimento e 'resolveu', mas sim, tem o problema que o nro está sendo interpretado como um numero inteiro.

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;

Bom dia, testamos pelo site e ocorreu erro tambem

Bom dia, Com a atualização dos componentes resolveu as alterações do servidor IPM

Bom dia, IPM para cachoeirinha tambem mudou, poderia me dar uma orientação se ,eu modificar apenas o cidade.ini seria suficiente?

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

Perdão não é IPM é BHISS

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

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?

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

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

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

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

Show @Italo Giurizzato Junior, se eu poder de alguma forma ajudar, estou a disposição

Segue os anexos SoapACBRNFSE.zip SoapACBRNFSEx.zip

Oi Juliana, esse teste não fiz, vou providenciar e já dou um feedback, obrigado

Boa tarde, Estou migrando para o componente ACBrNFSeX e estou com este erro para enviar Status: E188 - O documento XML do cabeçalho de dados esta fora do padrão especificado. Shemas atualizados, utilizando o componente ACBrNFSe consigo enviar normalmente. Alguem poderia me dar uma ajuda, desde ja agradeço a atenção de todos

Perfeito Italo, fiz isso mesmo, estou só no aguardo da liberação do usuário e senha, tendo sucesso deixo documentado aqui. Obrigado pela atenção

pelo que vi, cachoeirira - rs mudou para servidor ipm

Erro que estou tendo Erro Interno: 12002 Erro HTTP: 0 URL: http://nfse.cachoeirinha.rs.gov.br/nfse/services/NFSEremessa Falha no Envio da Requisição. Erro: 12002 - TimeOut de Requisição No site da prefeitura encontrei. A partir de 13/05/2020 às 00:00h, as notas fiscais eletrônicas não serão mais aceitas no sistema antigo, já estará sendo utilizado o sistema novo conforme orientação já informada aqui neste site. TODAS as funcionalidades de geração de NFSe deste site serão desabilitadas. As MUDANÇAS chegaram, estamos com um sistema novo para a emissão das NFSe, nos anexos abaixo seguem as orientações para alteração da plataforma de Emissão de NFSe. Clique Aqui para acessar o NOVO sistema de emissão de NFSe. Tentei contato e não conseguei, não encontrei documentação se estão com webservice próprio.

Boa tarde, Alguem está com problemas de envio de NFSe para Cachoeirinha - RS servidor Thema?

Ele alegou que para homologação, precisa ter todas as opções disponíveis mesmo se não homologar Cheque como no exemplo. Enfim, vou tirar as restrições e homologar e habilitar depois disso. Obrigado pela atenção

Boa tarde, Estou homologando TEF CLisitef, na IniciaFuncaoSiTefInterativo está indo com restrições, e o homologador disse que em ambiente de homologação deveria estar vazia essas restrições. Indo mais a fundo identifique 2 situações que preenchia essas restrições, gostaria de uma ajuda para entender melhor o código abaixo na unit ACBrTEFDCliSiTef;. 1º Caso function TACBrTEFDCliSiTef.SuportaDesconto: Boolean; begin with TACBrTEFD(Owner) do begin Result := (Identificacao.SoftwareHouse <> '') and // porque essa validação se o componente já tem uma propriedade SuportaDesconto Assigned( OnComandaECFSubtotaliza ) and (not AutoEfetuarPagamento) ; end; end; 2º Caso function TACBrTEFDCliSiTef.CRT(Valor: Double; IndiceFPG_ECF: String; DocumentoVinculado: String; Moeda: Integer): Boolean; var Sts : Integer; Restr : AnsiString ; begin if (Valor <> 0) then VerificarTransacaoPagamento( Valor ); Restr := fRestricoes; if Restr = '' then // Porque desta restrição Restr := '[10]' ; // 10 - Cheques if DocumentoVinculado = '' then DocumentoVinculado := fDocumentoFiscal; Resultado function TACBrTEFDCliSiTef.FazerRequisicao(Funcao: Integer; AHeader: AnsiString; Valor: Double; Documento: AnsiString; ListaRestricoes: AnsiString): Integer; Var ValorStr, DataStr, HoraStr : AnsiString; DataHora : TDateTime ; begin if not Assigned(xIniciaFuncaoSiTefInterativo) then raise EACBrTEFDErro.Create(ACBrStr(CACBrTEFD_CliSiTef_NaoInicializado)); if Documento = '' then Documento := DocumentoFiscal; Req.DocumentoVinculado := Documento; Req.ValorTotal := Valor; if fpAguardandoResposta then raise EACBrTEFDErro.Create( ACBrStr( CACBrTEFD_CliSiTef_NaoConcluido ) ) ; if (pos('{TipoTratamento=4}',ListaRestricoes) = 0) and (pos(AHeader,'CRT,CHQ') > 0 ) and SuportaDesconto then begin ListaRestricoes := ListaRestricoes + '{TipoTratamento=4}'; // Sempre virá ListaRestricoes:= [10]{TipoTratamento=4}

Bom dia, No manual CobrancaEletronicaBanrisul_pdr400_vrs14012019_ed13.pdf(Leiaute CNAB 400 Posições Padrão Febraban) A principio diz que . 157-158 e 159-160 podem ser preenchidas indiferente da ordem e não podem ser repetidas,bem como você @Juliana Tamizou mencionou acima. Obrigado pela atenção.