C4Dev

Olá. O provedor IPM esta retorando uma chave de protocolo de 40 caracteres, até aí tudo bem. Problema que ao fazer uma consulta ConsultarLoteRps, esta retornando erro: Project NFSe.exe raised exception class EACBrDFeException with message '500 - ERROR: 22003: value "8771738822201156285920241030102023276602" is out of range for type bigint LINE 1: ... = '11.562.777/0001-00' and ablnumeroprotocolo = '877173882... ^ LOCATION: scanint8, int8.c:118 SQL:SELECT 1 FROM wne.tbabrasflote where ablcpfcnpjprestador = '11.562.777/0001-00' and ablnumeroprotocolo = '8771738822201156285920241030102023276602' limit 1 exception 'SqlDefaultException' with message 'Problema interno não esperado, contate o suporte.' in /var/www/html/novohamburgo.atende.net/estrutura/est_class_sql_trigger_exception.inc:69 Stack trace: #0 /var/www/html/novohamburgo.atende.net/estrutura/est_class_conexao_bd.inc(743): SqlTriggerException::instanceSqlException(Object(Query)) #1 /var/www/html/novohamburgo.atende.net/estrutura/est_class_query.inc(337): ConexaoBd->executeDebug(Object(Query), false) #2 /var/www/html/novohamburgo.atende.net/estrutura/est_class_query.inc(767): Query->execute() #3 /var/www/html/novohamburgo.atende.net/estrutura/est_class_query.inc(512): Query->ver_exec() #4 /var/www/html/novohamburgo.atende.net/estrutura/est_class_conexao_bd.inc(652): Query->fetch_object() #5 /var/www/html/novohamburgo.atende.net/estrutura/est_class_query.inc(630): ConexaoBd->fetch_sql('SELECT 1 FROM w...') #6 /var/www/html/novohamburgo.atende.net/include/wne/persistencia/wne_class_persistencia_nota_fiscal_eletronica_abrasf_lote.inc(82): Query->fetch_sql() #7 /var/www/html/novohamburgo.atende.net/include/wne/model/wne_class_model_bo_web_service_nota_fiscal_eletronica_abrasf_valida_consulta_lote.inc(41): Wne\Persistencia\PersistenciaNotaFiscalEletronicaAbrasfLote->getCpfCnpjProtocolo('11.562.788/0001...', '877173882220115...', true) #8 /var/www/html/novohamburgo.atende.net/include/wne/model/wne_class_model_bo_web_service_nota_fiscal_eletronica_abrasf_valida_consulta_lote.inc(24): Wne\Model\Bo\ModelBoWebServiceNotaFiscalEletronicaAbrasfValidaConsultaLote->validaExisteLotePersistido() #9 /var/www/html/novohamburgo.atende.net/include/wne/controller/wne_class_controller_web_service_nota_fiscal_eletronica_abrasf_consultar_lote_rps.inc(84): Wne\Model\Bo\ModelBoWebServiceNotaFiscalEletronicaAbrasfValidaConsultaLote->valida() #10 /var/www/html/novohamburgo.atende.net/include/wne/controller/wne_class_controller_web_service_nota_fiscal_eletronica_abrasf_consultar_lote_rps.inc(65): Wne\Controller\ControllerWebServiceNotaFiscalEletronicaAbrasfConsultarLoteRps->getErrosLote() #11 /var/www/html/novohamburgo.atende.net/include/wne/controller/wne_class_controller_web_service_nota_fiscal_eletronica_abrasf_base.inc(94): Wne\Controller\ControllerWebServiceNotaFiscalEletronicaAbrasfConsultarLoteRps->executa() #12 /var/www/html/novohamburgo.atende.net/include/wne/controller/wne_class_controller_web_service_nota_fiscal_eletronica_abrasf.inc(212): Wne\Controller\ControllerWebServiceNotaFiscalEletronicaAbrasfBase->processa() #13 [internal function]: Wne\Controller\ControllerWebServiceNotaFiscalEletronicaAbrasf->returnConsultarLoteRpsEnvio(Object(stdClass)) #14 /var/www/html/novohamburgo.atende.net/estrutura/est_funcao.inc(495): call_user_func_array(Array, Array) #15 /var/www/html/novohamburgo.atende.net/include/glw/controller/glw_class_controller_web_service_definicao.inc(125): callMethod(Object(Wne\Controller\ControllerWebServiceNotaFiscalEletronicaAbrasf), 'returnConsultar...', Array) #16 [internal function]: ControllerWebServiceDefinicao->__call('ConsultarLoteRp...', Array) #17 [internal function]: Wne\Controller\ControllerWebServiceNotaFiscalEletronicaAbrasf->ConsultarLoteRpsEnvio(Object(stdClass)) #18 /var/www/html/novohamburgo.atende.net/include/glw/controller/glw_class_controller_web_service_router.inc(115): SoapServer->handle() #19 /var/www/html/novohamburgo.atende.net/include/glw/controller/glw_class_controller_web_service_router.inc(72): ControllerWebServiceRouter->doExecuteWebService() #20 /var/www/html/novohamburgo.atende.net/include/glw/controller/glw_class_controller_service_router_base.inc(66): ControllerWebServiceRouter->initService() #21 /var/www/html/novohamburgo.atende.net/estrutura/est_class_factory.inc(154): ControllerServiceRouterBase->__construct() #22 /var/www/html/novohamburgo.atende.net/estrutura/est_class_factory.inc(126): Factory::instance('controllerWebSe...', Array) #23 /var/www/html/novohamburgo.atende.net/estrutura/est_class_factory.inc(430): Factory::load('glw', 'web_service_rou...', 'controller', Array, false) #24 /var/www/html/novohamburgo.atende.net/estrutura/est_class_formulario.inc(928): Factory::loadFile('glw_class_contr...') #25 /var/www/html/novohamburgo.atende.net/estrutura/est_class_formulario.inc(954): Formulario->loadInstanceControllerFormulario() #26 /var/www/html/novohamburgo.atende.net/estrutura/est_class_formulario.inc(942): Formulario->callControllerForm() #27 /var/www/html/novohamburgo.atende.net/atende.php(0): Formulario->callController() #28 {main}'.

Entrei em contato com suporte da Fiorilli, me responderam que havia um "problema" no cadastro do emitente na prefeitura. E orientaram e emitir novamente, agora deu certo. Só ficou pendente a alteração do provedor e URL por conta do ACBr, que estou efetuando os testes com o arquivo alterado.

Pessoal, atualizando a situação do problema no binário em Linux, chamei o pessoal da Emabrcadero, conversei com eles e o problema esta no debugger do Delphi mesmo. Comentaram que estão pensando na nova versão em várias melhorias para plataforma Linux. O erro só ocorre em debug, na release não ocorre.

Só não estamos conseguindo encontrar uma solução para esse binário em Linux

O problema realmente não tem a ver com Acbr, nem com Horse. Fizemos um teste hoje somente informando um variável temporária com a chave, e já debungando apredenta o erro: Criação de uma variável alimentada em tempo de execução: var varchave := '42101002231897546000109000000000000823108433825670'; Retrorno:

Positivo, vou efetuar novos testes, e se ainda ocorrer, vou solicitar auxílio ao suporte do provedor.

Obrigado pelo retorno @Daniel InfoCotidiano Para mim está ocorrendo erro nesse bloco, ao passar o valor para o campo ARetornoWS.DadosRet.TituloRet.HoraBaixa if ARetornoWS.DadosRet.TituloRet.CodigoEstadoTituloCobranca = '6' then begin ARetornoWS.DadosRet.TituloRet.ValorPago := AJson.Values['dadosLiquidacao'].AsObject.Values['valor'].AsNumber; ARetornoWS.DadosRet.TituloRet.ValorMoraJuros := AJson.Values['dadosLiquidacao'].AsObject.Values['juros'].AsNumber; ARetornoWS.DadosRet.TituloRet.ValorAbatimento := AJson.Values['dadosLiquidacao'].AsObject.Values['abatimento'].AsNumber; ARetornoWS.DadosRet.TituloRet.DataBaixa := DateSicreditoDateTime(AJson.Values['dadosLiquidacao'].AsObject.Values['data'].AsString); ARetornoWS.DadosRet.TituloRet.HoraBaixa := TimeSicreditoDateTime(aJson.Values['dadosLiquidacao'].AsString); ARetornoWS.DadosRet.TituloRet.ValorDesconto := AJson.Values['dadosLiquidacao'].AsObject.Values['desconto'].AsNumber; end; Erro: raised exception class Exception with message '<TJsonValue>"dadosLiquidacao" value type error: jvObject to jvString'. JSON de como veio o retorno: { "linhaDigitavel": "74891122221013830167507418991076191340000002500", "codigoBarras": "74891913400000025001122210138301670741899107", "carteira": "SIMPLES", "seuNumero": "10138", "nossoNumero": "222101383", "pagador": { "codigo": "081JX", "documento": "08203491000180", "nome": "ADEMIR HIPPLER" }, "dataEmissao": "2022-10-03", "dataVencimento": "2022-10-10", "valorNominal": 25, "situacao": "LIQUIDADO COMPE", "multa": 2, "abatimento": 0, "tipoJuros": "B - PERCENTUAL", "juros": 0.5, "diasProtesto": 0, "validadeAposVencimento": 180, "diasNegativacao": 0, "tipoDesconto": "B - PERCENTUAL", "descontoAntecipacao": 0, "dadosLiquidacao": { "data": "2022-10-08T01:45:50-03:00", "valor": 25, "multa": 0, "abatimento": 0, "juros": 0, "desconto": 0 }, "descontos": [] }

Olá, alguma novidade sobre essa alteração?

Estamos com a mesma situação aqui @Daniel InfoCotidiano O que ocorre é que no retorno o campo situacao está vindo como 'LIQUIDADO COMPE'. //Situação/Código da situação. ARetornoWS.DadosRet.TituloRet.EstadoTituloCobranca := UpperCase(aJson.Values['situacao'].asString); Assim não entra na validação para atribuir o código 6 if (Pos(UpperCase(ARetornoWS.DadosRet.TituloRet.EstadoTituloCobranca),'LIQUIDADO') > 0) then ARetornoWS.DadosRet.TituloRet.CodigoEstadoTituloCobranca := '6';

Boa tarde, Estava com dificuldades em emitir NFS-e para Concórdia (SC), estava obtendo o retorno: Entrei em contato com o suporte da IPM, e me passaram uma nova URL do webservice. Atualizei o arquivo INI e deu certo. Segue abaixo como ficou após a alteração: [4204301] Nome=Concordia UF=SC Provedor=IPM Versao=1.01 ProRecepcionar=https://concordia.atende.net/?pg=rest&service=WNERestServiceNFSe HomRecepcionar=https://concordia.atende.net/?pg=rest&service=WNERestServiceNFSe Params=ParametroExtra:nenhum Foi necessário incluir o ParametroExtra:nenhum pois com esse parâmetro ainda retornava o erro.

Por enquanto fiz o tratamento manual lendo a a tag situacao_descricao_nfse em ACBrNFSeX1.WebService.CancelaNFSe.ArquivoRetorno. Com esse tratamento, tudo esta funcionando perfeito, emissão e cancelamento.

@Italo Giurizzato Junior Estava verificando aqui o cancelamento na prefeitura ocorru, só não obtive o retorno, e nenenhum arquivo de envio e resposta foir criado.

@Italo Giurizzato Junior Emitiu com sucesso. O cancelamento porém não funcionou, e não retornou nenhum arquivo de recibo. Outra situação que percebi que esta gerando vários arquivos .txt

Pode encerrar o tópico.

@Italo Giurizzato Junior Verifiquei o último xml que foi gerado e respondido pelo WebService, e ele possui exatamente a mesma estrutura. Os que estou enviando agora nem chegam a bater no WebService.

@Italo Giurizzato Junior Sim, estou informando.

@Italo Giurizzato Junior Segui o indicado, mas continua com problema.

Boa tarde pessoal. Estamos já á alguns dias com problema de emissão para cidade de Fraiburgo - SC, provedor IPM. Entramos em contato com o suporte da IPM, que realizaram vários testes e comentam que o problema seria na aplicação. A principio, não esta conectando com o WEB Service. Enviei o SOAP para o suporte deles que fizeram o teste e segundo eles emitiram normalmente. URL que ele enviaram: https://fraiburgo.atende.net/atende.php?pg=rest&service=WNERestServiceNFSe&cidade=padrao Resposta deles: <?xml version="1.0" encoding="UTF-8"?>Par⭥tros Invᬩdos Vou enviar por email os arquivos. Fico no aguardo de uma ajuda.

Sim, ele esta concatenando. Mas não conseguimos identificar o que é.

O Json do envio esta correto: {"NfseId":7,"ChaveNfse":"421010022318855460001090000000000009231025135858475","Codigo":"1","CodigoVerificacao":"","Motivo":"erro de emissão\\n","NumeroLote":"77","NumeroNfse":"9","NumeroRPS":"10","OptanteSimplesNacional":false,"SerieNfse":"4","ValorNfse":"0.01","Provedor":{"Layout":1,"CodigoMunicipio":4288100,"EmitenteCnpj":"12365546000109","EmitenteIE":"26193","EmitenteRazaoSocial":"nfse sc","EmitenteSenha":"M8","EmitenteUsuario":"12345546000107","Producao":true,"UF":"SC","SenhaCertificado":"456","UrlCertificado":"http://app.inove.local/rpc/v1/fiscal.get-certificate?authorizationCompufacil=789c7129eb7f0ed1fddfabd5e21a4e8974b71a89","PathLocal":"","SalvarArquivoSoap":true,"FraseSecreta":"","ChaveAutorizacao":"","ChaveAcesso":"","InscricaoMunicipal":"303"}}

@Italo Giurizzato Junior Meu serviço recebe de uma aplicação web em PHP. Mas o envio lá do json esta correto, não consegui detectar o que ocasiona isso.

Bom dia pessoal. Estou com um problema, e não consegui detectar o que ocasiona o mesmo. Desenvolvi um serviço em Horse, que compila um binário para linux. Até aí tudo certo, esta funcionando a mais de 6 meses com Acbr. Porém agora fui implementar a NFSe Naciona, e a chave da NFSe usada para cancelamento e consulta é composta de 51 caracteres, quando recebo o Json o campos chave esta quebrando, desta forma: "42101002231881254000109', '0' <repeats 12 times>, '984752513594475" Exemplo Json:

Bom dia, Estou implantando NFS-e num cliente da cidade Ribas Do Rio Pardo (MS) e o primeiro erro que retornou foi 404 - endereço não encontrado. Entrei em contato com a prefeitura e me passaram o endereço correto do webservice e provedor. Então alterei no arquivo ACBrNFSeXServicos.ini para fazer os testes. Agora, parece que está correto o provedor e endereço, mas estou recebendo outro erro: <Codigo>L145</Codigo><Mensagem>A Inscrição Municipal está diferente do cadastro. A Inscrição Municipal correta é 450163</Mensagem><Correcao>Altere a Inscrição Municipal para 450163</Correcao> Porém verifiquei e a Inscrição municipal está correta, estou enviando corretamente no RPS. Percebi nos arquivos salvos que apresenta uma quebra de linha após o último caractere da inscrição municipal. Pesquisando aqui no fórum encontrei esse tópico abaixo, com mesmo problema, onde foi feito algum ajuste pelos consultores e depois disso funcionou. Estou deixando anexado o arquivo de envio e o retorno do provedor. Conseguem atualizar o endereço do provedor e ver o que é possível fazer para solucionar o erro da inscrição municipal? Abaixo as linhas alteradas do provedor: [5007109] Nome=Ribas do Rio Pardo UF=MS Provedor=Fiorilli Versao=2.00 ProRecepcionar=http://45.174.220.245:8056/IssWeb-ejb/IssWebWS/IssWebWS 52-lista-nfse-sinc-soap.xml 52-env-lot-sinc-soap.xml

A principio isso resolveria meu problema com essa alteração solicitada, conforme img abaixo: Desculpe minha ignorância, mas o que seria o "berço da impressora"?

Boa tarde pessoal, Estou com a seguinte situação, impressão de Danfe simplificado utilizando o componente ACBrNFeDANFEFR. Nas propriedades de margem do componente permite informar margem (esquerda) negativa, porém ao executar a função de impressão, quando chega na procedure TACBrNFeFRClass.AjustaMargensReports só é aplicada a margem caso seja maior que zero. procedure TACBrNFeFRClass.AjustaMargensReports; var Page: TfrxReportPage; I: Integer; begin for I := 0 to (frxReport.PreviewPages.Count - 1) do begin Page := frxReport.PreviewPages.Page[I]; if (DANFEClassOwner.MargemSuperior > 0) then Page.TopMargin := DANFEClassOwner.MargemSuperior; if (DANFEClassOwner.MargemInferior > 0) then Page.BottomMargin := DANFEClassOwner.MargemInferior; if (DANFEClassOwner.MargemEsquerda > 0) then Page.LeftMargin := DANFEClassOwner.MargemEsquerda; if (DANFEClassOwner.MargemDireita > 0) then Page.RightMargin := DANFEClassOwner.MargemDireita; frxReport.PreviewPages.ModifyPage(I, Page); end; end; E no meu caso eu preciso que seja negativa, porque zero está cortando lateral na impressora. Por este motivo gostaria que permitissem a utilização de margem negativa. É possível liberar essa alteração?