maxdatasistema

Bom dia. Foi analisado que o Segmento R não está gerando " 240 caracteres " somente "236 caracteres". Assim ocasionando os demais erro. Desde já obrigado. Analista Werley Silva

Boa tarde. Estou com problema na homologação da remessa boleto amazônia Em anexo remessa e manual layout 240 Desde já agradeço. Analista Werley Silva SITUAÇÃO: 1 - Segmento P – 19.3P -> Nº do Documento -> posição da 63 à 77 "NF171860" -> Apenas Numero 2 - Segmento R – 14.3R-> Código da Multa -> posição da 66 à 66 "5" -> Valor informado deve ser 1 ou 2 " '1' = Valor Fixo '2' = Percentual " 3 - Segmento R – 15.3R-> Data da Multa -> posição da 67 à 74 "20180000" -> Valor informado deve ser "31052018" 4 - Segmento R – 16.3R->Multa -> posição da 75 à 89 "200 " -> Valor do tipo numérico deixado em branco 5 - Trailer de Lote -> Quat. De Registros -> posição da 18 à 23 "0000-3" -> Valor informado deve ser 3 6 - Segmento R -> Campos com menos de 240 caracteres 240 caracteres 7 - Segmento R – 28.3R ->Emissão de aviso -> posição da 231 à 231 "valor não informado" -> Informar o tipo de aviso para debito - '01' = Emite o Aviso com o Endereço Informado no Arquivo Remessa - '02' = Não Emite Aviso ao Sacado - '03' = Emite Aviso com o Endereço Constante do Cadastro do Banco 8 - Segmento R – 26.3R -> Digito verificador de C/C -> posição da 229 á 229 "Valor não informado" -> Digito verificador da conta 9 - Segmento R – 25.3R -> Conta Corrente -> posição da 217 à 228 "Valor não informado" -> Conta corrente 10 - Segmento Q – 21.3Q -> Nosso Numero -> posição da 213 à 232 "Valor em branco" -> Nosso numero 11 - Segmento R – 23.3R -> Código da agencia -> posição da 211 à 215 "Valor não informado" -> Agencia da conta 12 - Segmento R – 20.3R -> Uso Exclusivo -> posição da 180 à 199 "Em branco" -> Informado o valor zero VAN_AMZ_20180808_0085199222_CNAB240REM.001 Manual Cobranca Registrada Banco Amazonia - Versao 1.2 - MANUAL CNAB240 (5).pdf

Boa tarde, Realizado a alteração de acordo sugerido e a NFS-e foi emitida. Obrigado!

Bom dia Italo. Há alíquota é " 2,01% "

Bom dia, Estou com um problema na emissão da NFS-e de Fortaleza. Analisando o RPS verifiquei que o componente não gerar a tag "competência", alguém esta emitindo NFS-e de Fortaleza sem essa tag ? Em anexos o erro e RPS. Desde já obrigado. Analista Werley Silva 17UNICA-rps.xml

Bom dia, Em nosso cliente, ao emitir uma NFSe (Provedor Natal) foi preciso realizar uma pequena alteração no código fonte do componente. Se possível avaliar alteração. O cliente está enquadrado no Simples Nacional, por isso o campo "Servico.Valores.BaseCalculo" deve ser informado com valor 0 (zero). Porém quando é informado o valor 0 (zero) a tag "BaseCalculo" não é gerada. Para gerar a tag "BaseCalculo" com valor 0 (zero) foi feita a seguinte alteração: Arquivo: "...\Acbr\Fontes\ACBrDFe\ACBrNFSe\PCNNFSe\pnfsNFSeW_ABRASFv1.pas" Linha: 280 if FProvedor <> proNFSeBrasil then begin //if FProvedor = proPronim then if (FProvedor in [proPronim, proNatal]) then Gerador.wCampoNFSe(tcDe2, '#24', 'BaseCalculo', 01, 15, 1, NFSe.Servico.Valores.BaseCalculo, DSC_VBCISS) else Gerador.wCampoNFSe(tcDe2, '#24', 'BaseCalculo', 01, 15, 0, NFSe.Servico.Valores.BaseCalculo, DSC_VBCISS); end; pnfsNFSeW_ABRASFv1.pas

Para informação dos colegas, foi preciso acessar o site da WebISS, enviar um lote de RPS "na mão" pelo site (usei o próprio XML gerada pelo componente Acbr), a partir daí as NFS-e passaram a processar normalmente.

Complemento: Após remover um & que havia da descrição do serviço o conteúdo do arquivo "ReqResp.xml" muda para: Hint 'noexpand' on object 'vwContribuintes' is invalid. Query em que ocorreu erro: select top 1 IdContribuinte from vwContribuintes with (noexpand) where inscricao = '000000002405692'

Boa tarde. Ao processar uma NFS-e para o provedor WebISS e executar o comando "acbNFSe.Enviar" retorna o erro: Erro Interno: 0 Erro HTTP: 500 Na unit "ACBrDFeHttpWinApi" tem a linha de debug comentada "Resp.SaveToFile('F:\Tempp\ReqResp.xml');", ativando essa linha e acessando o arquivo gerado aparece o motivo do erro "An error occurred while parsing EntityName. Line 1, position 1003.". Procurei no conteúdo do arquivo "xx-env-lot-soap.xml" algum caractere especial mas não foi encontrado nada fora do normal. A config utilizada é "acbNfse.Configuracoes.Geral.SSLLib := libCapicom;" Alguém já passou por problema parecido?

Fiorilli.ini

Utilizando a URL "http://ws.macapa.ap.gov.br/?wsdl" consegui receber o retorno no método "acbNFSe.Enviar".

Bom dia, o problema parece que foi resolvido, segue as alterações abaixo (se possível atualizar os arquivos do componente). Arquivo: "Fiorilli.ini" ; Macapá/AP ;RecepcaoLoteRPS_1600303=http://186.216.160.78:8080/IssWeb-ejb/IssWebWS/IssWebWS?wsdl RecepcaoLoteRPS_1600303=http://ws.macapa.ap.gov.br/?wsdl

Bom dia. Estamos recebendo o erro abaixo ao executar o método "acbNFSe.Enviar". Erro Interno: 12029 Erro HTTP: 0 Erro: Requisição não enviada. Erro: 12029 - Conexão com o Servidor falhou. O provedor é Fiorilli e esta sendo utilizada a configuração "Configuracoes.Geral.SSLLib := libCapicom;", (Windows 10, nas opções de internet, avançado, foi desmarcada a opção "Verificar revogação de certificados no servidor", e deixado somente a opção "Usar TSL 1.0" marcada"). Foram feitos testes com a configuração "Configuracoes.Geral.SSLLib := libCapicomDelphiSoap;", porém retorna o erro "Erro ao ajustar INTERNET_OPTION_CLIENT_CERT_CONTEXT: 12046.". Nesse caso, ao editar o arquivo "Fiorilli.ini" de "UseCertificado=1" para "UseCertificado=" a mensagem de erro aparece "vazia" e o arquivo "xx-rec-soap.xml" fica somente com o conteúdo "<?xml version="1.0" encoding="UTF-8"?>". Alguém já teve esse problema?

Boa Tarde. A impressão de folha A4 da NFC-e está saindo com as informações " Mensagem de Interesse do Contribuinte " acima da informações da NFC-e e de acordo com o Manual em anexo disponibilizado pela SEFAZ do tocantins, deveria ficar abaixo do QR Code. Na pagina 13 desse manual " Divisão IX - Mensagem de Interesse do Contribuinte. Esta divisão corresponde à parte final do DANFE NFC-e. " Manual de Especificacoes Tecnicas do DANFE NFC-e QR Code - Versao 4.2.pdf

Bom dia, na impressão da NFS-e não estão sendo apresentados os dados do Prestador de Serviços (campos vazios) e Discriminação dos Serviços (campo vazio). Utilizamos a versão com Fortes Reportes, o provedor é IssDSF (cidade Belem-PA). Em anexo seguem arquivo XML de exemplo, porém problema ocorre com outras NFS-e geradas para testes. 4023-nfse.xml

Bom dia DJSystem De acordo com o manual disponibilizado pelo banco, a linha digitável está incorreta. Em anexo manual. Manual Cobranca Registrada Banco Amazonia - Versao 1.2 - MANUAL CNAB240 (5).pdf

Bom dia Não estou conseguindo homologar o layout para o banco da amazonia, está acusando seguinte erro na linha digitável, -> Campo 4 - 1° Posição do nosso número [9 , 9], valor incorreto, esperado: 8; encontrado: 5. -> Campo 6 - 6 Posições Restantes do nosso número [11 , 16], valor incorreto, esperado: 900532; encontrado: 034000. -> Campo 10 - Zeros [24 , 30] - valor incorreto, esperado: 0000000; encontrado: 8900532. Em anexo o boleto que foi enviado ao banco.

Bom dia, obrigado pela indicação do outro tópico.

Bom dia, estamos tendo problemas ao homologar a NFC-e de um cliente no Estado do Tocantins. São geradas críticas no layout da DANFE NFC-e. Utilizamos o componente de impressão "TACBrNFeDANFCeFortes". Alguém já passou por esse problema? Segue abaixo as críticas: Boa tarde, foi verificado nas notas encaminhadas que de acordo com o modelo de layout que a empresa escolheu (onde a impressão do QRcode fica centralizado) que: 1. Divisão IV - Os dados referentes a consulta (O texto: "Consulte pela Chave de Acesso em", e o numero da chave) devem vir logo após a descrição da formas de pagamentos dos produtos (em seu caso após Informação dos Tributos Totais Incidentes...). 2. Divisão VI - Os dados referentes ao consumidor devem ser impressos todos juntos logo após a divisão IV (Se optar por apresentar o nome do consumidor este deverá vir junto com o CPF neste campo). 3. Divisão VII - Os dados devem ser impressos após a divisão VI (Número da NFC-e, Série da NFC-e e Data e Hora de Emissão da NFC-e, seguido do protocolo de autorização, que deve ser impresso antes do QRcode e junto com os dados referentes a nota). 4. não foi encaminhada as notas com os testes referente ao acréscimo e ao desconto. 5. a sua nota emitida em contingencia não está: informando em duas linhas: "EMITIDA EM CONTINGÊNCIA Pendente de autorização". O texto deve ser exibido em dois locais no documento: Abaixo do cabeçalho (divisão I): centralizado em duas linhas, entre bloco de linhas. Abaixo da identificação da NFC-e (divisão VII) em duas linhas. Manual de Especificacoes Tecnicas do DANFE NFC-e QR Code - Versao 4.2.pdf

Bom dia, segue abaixo sugestão de alteração no arquivo "ACBrBoleto.pas", para corrigir mensagem de Juros no boleto, quando portador for Sicredi: procedure TACBrBoleto.AdicionarMensagensPadroes(Titulo: TACBrTitulo; AStringList: TStrings); // if ValorMoraJuros <> 0 then // begin // if DataMoraJuros <> 0 then // AStringList.Add(ACBrStr('Cobrar juros de ' + // ifthen(CodigoMora = '2', FloatToStr(ValorMoraJuros) + '%', // FormatCurr('R$ #,##0.00',ValorMoraJuros)) + // ' por dia de atraso para pagamento a partir de ' + // FormatDateTime('dd/mm/yyyy',ifthen(Vencimento = DataMoraJuros, // IncDay(DataMoraJuros,1),DataMoraJuros)))) // else // AStringList.Add(ACBrStr('Cobrar juros de ' + // ifthen(CodigoMora = '2', FloatToStr(ValorMoraJuros) + '%', // FormatCurr('R$ #,##0.00',ValorMoraJuros)) + // ' por dia de atraso')); // end; if ValorMoraJuros <> 0 then begin if DataMoraJuros <> 0 then AStringList.Add(ACBrStr('Cobrar juros de ' + ifthen(((CodigoMora = '2') or (CodigoMora = 'B')), FloatToStr(ValorMoraJuros) + '%', FormatCurr('R$ #,##0.00',ValorMoraJuros)) + ' por dia de atraso para pagamento a partir de ' + FormatDateTime('dd/mm/yyyy',ifthen(Vencimento = DataMoraJuros, IncDay(DataMoraJuros,1),DataMoraJuros)))) else AStringList.Add(ACBrStr('Cobrar juros de ' + ifthen(((CodigoMora = '2') or (CodigoMora = 'B')), FloatToStr(ValorMoraJuros) + '%', FormatCurr('R$ #,##0.00',ValorMoraJuros)) + ' por dia de atraso')); end;

Boa tarde, a implementação foi repassada para a equipe de suporte que acompanha o cliente, assim que tiver uma resposta sobre esta questão posto aqui.

Alteração sugerida no arquivo "ACBrBancoAmazonia.pas": function TACBrBancoAmazonia.GerarRegistroTransacao240(ACBrTitulo: TACBrTitulo): String; ... { SEGMENTO P } Result := IntToStrZero(ACBrBanco.Numero, 3) + // 1 a 3 - Código do banco '0001' + // 4 a 7 - Lote de serviço '3' + // 8 - Tipo do registro: Registro detalhe IntToStrZero((3 * ACBrBoleto.ListadeBoletos.IndexOf(ACBrTitulo)) + 1, 5) + // 9 a 13 - Número seqüencial do registro no lote - Cada título tem 2 registros (P e Q) 'P' + // 14 - Código do segmento do registro detalhe ' ' + // 15 - Uso exclusivo FEBRABAN/CNAB: Branco ATipoOcorrencia + // 16 a 17 - Código de movimento PadLeft(aAgencia, 5, ' ') + // 18 a 22 - Agência mantenedora da conta PadRight(ACBrBoleto.Cedente.AgenciaDigito, 1, '0') + // 23 -Dígito verificador da agência aConta + // 24 a 35 - Número da conta corrente PadRight(ACBrBoleto.Cedente.ContaDigito, 1, '0') + // 36 - Dígito verificador da conta ' ' + // 37 - Dígito verificador da agência / conta //*************************************************************** {OS=327577} //PadRight(ANossoNumero + aDV, 20, ' ') + // 38 a 57 - Nosso número - identificação do título no banco PadRight(RemoveZerosEsquerda(ANossoNumero), 20, ' ') + // 38 a 57 - Nosso número - identificação do título no banco //*************************************************************** PadRight(IntToStr(wCarteira), 1, '0') + // 58 - Cobrança Simples '1' + // 59 - Forma de cadastramento do título no banco: com cadastramento ...

Alteração sugerida no arquivo "ACBrBancoAmazonia.pas": function TACBrBancoAmazonia.GerarRegistroTrailler240(ARemessa: TStringList): String; begin { REGISTRO TRAILER DO LOTE } Result := IntToStrZero(ACBrBanco.Numero, 3) + // 1 a 3 - Código do banco '0001' + // 4 a 7 - Número do lote '5' + // 8 - Tipo do registro: Registro trailer do lote Space(9) + // 9 a 17 - Uso exclusivo FEBRABAN/CNAB //******************************************************************** {OS=327577} //IntToStrZero((3 * (ARemessa.Count - 3)), 6) + // 18 a 23 - Quantidade de Registro da Remessa IntToStrZero((3 * (ARemessa.Count-1)) + 1, 6) + // 18 a 23 - Quantidade de Registro da Remessa //******************************************************************** PadRight('', 6, '0') + // 24 a 29 - Quantidade títulos em cobrança PadRight('', 17, '0') + // 30 a 46 - Valor dos títulos em carteiras} PadRight('', 6, '0') + // 47 a 52 - Quantidade títulos em cobrança PadRight('', 17, '0') + // 53 a 69 - Valor dos títulos em carteiras} PadRight('', 6, '0') + // 70 a 75 - Quantidade títulos em cobrança PadRight('', 17, '0') + // 76 a 92 - Valor dos títulos em carteiras} PadRight('', 6, '0') + // 93 a 98 - Quantidade títulos em cobrança PadRight('', 17, '0') + // 99 a 115 - Valor dos títulos em carteiras} Space(8) + // 116 a 123 - Uso exclusivo FEBRABAN/CNAB} PadRight('', 117, ' '); // 124 a 240 - Uso exclusivo FEBRABAN/CNAB} { GERAR REGISTRO TRAILER DO ARQUIVO } Result := Result + #13#10 + IntToStrZero(ACBrBanco.Numero, 3) + // 1 a 3 - Código do banco '9999' + // 4 a 7 - Lote de serviço '9' + // 8 - Tipo do registro: Registro trailer do arquivo Space(9) + // 9 a 17 - Uso exclusivo FEBRABAN/CNAB} '000001' + // 18 a 23 - Quantidade de lotes do arquivo} //******************************************************************** {OS=327577} //IntToStrZero(((ARemessa.Count - 3) * 3) + 4, 6) + // 24 a 29 - Quantidade de registros do arquivo, inclusive este registro que está sendo criado agora} IntToStrZero((3 * (ARemessa.Count-1)) + 4, 6) + // 24 a 29 - Quantidade de registros do arquivo, inclusive este registro que está sendo criado agora} //******************************************************************** Space(6) + // 30 a 35 - Uso exclusivo FEBRABAN/CNAB} Space(205); // 36 a 240 - Uso exclusivo FEBRABAN/CNAB} end; Ocorre o erro na validação do código digitável (conforme imagem "327517-0219-Erro03.png") Alteração sugerida no arquivo "ACBrBancoAmazonia.pas": function TACBrBancoAmazonia.MontarCodigoBarras(const ACBrTitulo: TACBrTitulo): String; var CodigoBarras, FatorVencimento, DigitoCodBarras: String; begin with ACBrTitulo.ACBrBoleto do begin FatorVencimento := CalcularFatorVencimento(ACBrTitulo.Vencimento); //******************************************************************** {OS=327577} //CodigoBarras := PadLeft(OnlyNumber(IntToStr(fpNumero)), 3, '0') + '9' + FatorVencimento + IntToStrZero(Round(ACBrTitulo.ValorDocumento * 100), 10) + PadLeft(OnlyNumber(Cedente.Agencia), fpTamanhoAgencia, '0') + PadLeft(OnlyNumber(Cedente.AgenciaDigito), 1, '0') + PadLeft(OnlyNumber(Cedente.Convenio), 4, '0') + PadLeft(OnlyNumber(ACBrTitulo.NossoNumero), fpTamanhoMaximoNossoNum, '0') + '8'; CodigoBarras := PadLeft(OnlyNumber(IntToStr(fpNumero)), 3, '0') + '9' + FatorVencimento + IntToStrZero(Round(ACBrTitulo.ValorDocumento * 100), 10) + PadLeft(OnlyNumber(Cedente.Agencia), fpTamanhoAgencia, '0') + PadLeft(OnlyNumber(Cedente.AgenciaDigito), 1, '0') + PadLeft(OnlyNumber(Cedente.Convenio), 4, '0') + PadLeft(OnlyNumber(ACBrTitulo.NossoNumero), fpTamanhoMaximoNossoNum, '0') + '0'; //******************************************************************** DigitoCodBarras := CalcularDigitoCodigoBarras(CodigoBarras); end; Result := PadLeft(OnlyNumber(IntToStr(fpNumero)), 3, '0') + '9' + DigitoCodBarras + Copy(CodigoBarras, 5, 39); end; Manual Cobranca Registrada Banco Amazonia - Versao 1.2 - MANUAL CNAB240 (5).pdf

Boa tarde, estamos recebendo erros do banco ao realizar a homologação do arquivo de remessa. 1 - Quando é gerado uma remessa com apenas 1 (um) registro, o componente informa no arquivo o valor "-3" ("GerarRegistroTrailler240" / "18 a 23 - Quantidade de Registro da Remessa") (conforme imagem "327577-0219-Erro02.png") 2 - Faixa do nosso número incorreta (conforme imagem em anexo "327577-0219-erro04.png") Alguém esta tendo esses problemas?

Resolvido seguindo a dica do tópico abaixo.