jaidomini

Bom dia, Era isso mesmo, já não deu mais este erro, vou testar no cliente agora, valeu!! vc é fera! Att Jaisson

Estou com problema para enviar NFSe para Ponta Grossa/PR - Provedor EloTech - v.203 Código : X800 Mensagem: Erro de Validação: --> 1824 - Element '{http://shad.elotech.com.br/schemas/iss/nfse_v2_03.xsd}Cnpj': '37.183.857/0001-02' is not a valid value of the atomic type '{http://shad.elotech.com.br/schemas/iss/nfse_v2_03.xsd}tsCnpj'. Embora no XML esteja sem estes pontos, dá este erro, não chega a nem ir para a prefeitura, quem dá este erro é o ACBr, já "fucei" e não consegui encontrar o motivo. XML que é enviado para a prefeitura em Anexo Att Jaisson NFSe_Assinada_Cod_231.xml

Segue unit, mas a única alteração foi comentar a linha //rlmDescricao.SecondHolder := nil; ACBrNFeDANFeRLPaisagem.pas

Bom dia A descrição quando pede para exibir o EAN está sobrepondo a próxima coluna, a correção se trata da propriedade SecondHolder que está preenchida no formulário porém no código ela é limpada com "nil", se retirar esta linha do nil funciona corretamente. unit ACBrNFeDANFeRLPaisagem procedure InicializarDados Antes Depois Obg Jaisson

Olé, desculpe a demora Asism que pegar o XML, tira ele da visualização publica, eu ja tirei o CNPJ do prestador e tomador pq o xml é do cliente. Att Jaisson

Ítalo, possível correção para vc analisar se está de acordo, aqui funcionou.

Bom dia, está dando este mesmo erro com a tag data_nfse + hora_nfse e data_emissao_recibo_provisorio + hora_emissao_recibo_provisorio Linha 303 +/- aValor := ObterConteudo(AuxNode.Childrens.FindAnyNs('data_emissao_recibo_provisorio'), tcStr); aValor := aValor + ' ' + ObterConteudo(AuxNode.Childrens.FindAnyNs('hora_emissao_recibo_provisorio'), tcStr); NFSe.DataEmissao := EncodeDataHora(aValor, 'DD/MM/YYYY'); NFSe.DataEmissaoRps := EncodeDataHora(aValor, 'DD/MM/YYYY'); Linha 220 +/- aValor := ObterConteudo(AuxNode.Childrens.FindAnyNs('data_nfse'), tcStr); aValor := aValor + ' ' + ObterConteudo(AuxNode.Childrens.FindAnyNs('hora_nfse'), tcStr); DataEmissao := EncodeDataHora(aValor, 'DD/MM/YYYY'); Obg

Olá, Favor incluir no ini o parametro abaixo para Varzea Paulista, para resolver o erro de "E165 - aliquota do serviço invalida", a aliquota aparece no xml como 0.02 caso não inclua este parametro, , pesquisando no fórum descobri este parametro que resolver. Inclui o a parâmetro, compilei e resolveu, dessa forma começou a aparecer 2.00 na tag aliquota do xml. Params=NaoDividir100: Obg.

Boa Tarde, Segue uma pequena correção baseado no manual. procedure TACBrBancoC6.LerRetorno400(ARetorno: TStringList); Obg Jaisson ACBrBancoC6.pas

Bom dia, O erro é este: Liquidações 29-08-23.ret não é um arquivo de retorno do BANCO SOFISA SA Vou encaminhar o arquivo de retorno no email Obg

Olá Vi que houve alteração para apresentar os impostos deferais retidos, porém a tag que o ACBr tenta ler não tem no XML XML Autorizado do Cliente Danfe da Prefeitura Danfe no ACBr Neste caso do provedor Betha, sempre que é informado imposto federal ele trata como retenção, terei que fazer manualmente conforme abaixo antes de imprimir a danfe ou vcs ajustam no Acbr? RetidoPis = snSim RetidoCofins.... etc. Vi no SV que teve alterações referente aos impostos federais, e antes mostrava como na danfe da prefeitura, depois da alteração não mostra mais o valor da retenção federal. Obg Jaisson

Boa tarde, não tem um local pra pesquisar a versão, mas quando vai transmitir na versão 1, se não me engano falava q estava desativada ou para transferir na versão 2.02, não lembro exatamento o erro por que fiz este acerto local pra mim faz un 5 ou 6 meses. Agora quando atualizei o ACBr semana passada voltou a dar erro na transmissão, eu tinha esquecido de avisar vocês desta atualização. Eu fiz este acerto para as cidades de Ouro Branco/MG e Conselheiro Lafayete/MG. Veja um XML de Jun/2023 do cliente(ocultei alguns dados q possam identificar ele)

[3145901] Nome=Ouro Branco UF=MG Provedor=Betha Versao=2.02 ProRecepcionar=http://e-gov.betha.com.br/e-nota-contribuinte-ws/nfseWS HomRecepcionar=http://e-gov.betha.com.br/e-nota-contribuinte-test-ws/nfseWS Obg Jaisson

Sim, claro. Eu entendo que pode ocorrer a adequação, é que faltou códigos mesmo..... A parte de retorno ficou por conta do padrão sendo que o Sofisa Itau tem layout proprio do retorno, como vc pode conferir no meu arquivo, tem a questao a procedure GerarTrailer400 tbm que ficou por conta do padrão que não sei se vai gerar corretamente.

Percebi hoje que não está no SVN a unit que enviei, no SVN não tem a leitura do retorno. Segue com meses de atraso. ACBrBancoSofisaItau.pas

Bom dia, Eu fiz o desenvolvimento completo do Banco Sofisa Itau como contribuição para o ACBr e mandei a unit para vocês colocarem no SVN, porém atualizei o ACBR semana passada deu problema no cliente que usa este CNAB, na remessa e retorno. Olhei a unit, e não esta igual a minha, faltando centenas de linhas de codigo, vou anexar novamente ai vcs colocam no lugar da que esta hoje, porque a minha esta validada e homologada corretamente, inclusive com TODOS os codigos de ocorrâncias tratadas. Para se ter ideia, a unit ACBrBancoSofisaItau.pas do SVN esta com 33KB a minha tem 43KB Obrigado Jaisson ACBrBancoSofisaItau.pas

Faltou a unit IPM.Provider.pas Incluir o override no final das 2 funções para que funcione o "virtual" IPM.Provider.pas

Segue arquivo alterado. Linha 295 e 296 incluído "virtual" no final da linha. ACBrNFSeXProviderBase.pas

Acabei de fazer o teste, era isso mesmo, faltou o "virtual" para chamar a função "CondicaoPagToStr" da unit "IPM.Provider.pas"

Bom dia Teve uma alteração na unit IPM.GravarXML.pas na função GerarFormaPagamento. Vi que se trata de organização do código fonte, porém a função FpAOwner.CondicaoPagToStr está buscando na unit ACBrNFSeXProviderBase.pas e não na própria unit IPM.GravarXML.pas Dessa forma a opção cpAPrazo está vindo com o valor 3 e não o valor 2, dessa forma não consegue transmitir a NFSe Obrigado Jaisson

Olá, a prefeitura de Conselheiro Lafayete atualizou para a versão 2.02, faz algum tempo já, fiz a alteração no ini, compilei com o arquivo "Compila_RES.BAT" para atualizar gerar o rc/res, deste forma consegui transmitir NFSe. Nome=Conselheiro Lafaiete UF=MG Provedor=Betha Versao=2.02 ProRecepcionar=http://e-gov.betha.com.br/e-nota-contribuinte-ws/nfseWS HomRecepcionar=http://e-gov.betha.com.br/e-nota-contribuinte-test-ws/nfseWS Obrigado. Jaisson

Esta função faz o ajuste automático da largura da coluna em até 100px, quando chega a 100 é inserido espaço em branco a cada 19 caractres para que o fortes faça a quebra com o WordWrap. Antes de chamar a função imprimir do ACBRNFe, chame esta procedure DanfeFortesAjustaQuebraLinha. Atenção, depois que chamar esta procedure não exporte xml, pois a Tag cProd foi modificada. Att Jaisson procedure DanfeFortesAjustaQuebraLinha; var i, iNota: Integer; begin if ACBrNFe1.DANFE=DanfeFortes1 then if DanfeFortes1.TipoDANFE = tiRetrato then begin DanfeFortes1.LarguraCodProd := 61; if ACBrNFe1.NotasFiscais.Count>0 then for iNota := 0 to ACBrNFe1.NotasFiscais.Count-1 do for i := 0 to ACBrNFe1.NotasFiscais.Items[iNota].NFe.Det.Count-1 do begin if Length(ACBrNFe1.NotasFiscais.Items[iNota].NFe.Det.Items[i].Prod.cProd) > 11 then if (DanfeFortes1.LarguraCodProd < (Length(ACBrNFe1.NotasFiscais.Items[iNota].NFe.Det.Items[i].Prod.cProd)-11) * 5.3 + 61) then begin DanfeFortes1.LarguraCodProd := Trunc((Length(ACBrNFe1.NotasFiscais.Items[iNota].NFe.Det.Items[i].Prod.cProd)-11) * 5.3 + 61); if DanfeFortes1.LarguraCodProd > 100 then begin DanfeFortes1.LarguraCodProd := 100; ACBrNFe1.NotasFiscais.Items[iNota].NFe.Det.Items[i].Prod.cProd := Copy(ACBrNFe1.NotasFiscais.Items[iNota].NFe.Det.Items[i].Prod.cProd,1,19) + ' '+ Copy(ACBrNFe1.NotasFiscais.Items[iNota].NFe.Det.Items[i].Prod.cProd,20,19) + ' '+ Copy(ACBrNFe1.NotasFiscais.Items[iNota].NFe.Det.Items[i].Prod.cProd,39,19) + ' '+ Copy(ACBrNFe1.NotasFiscais.Items[iNota].NFe.Det.Items[i].Prod.cProd,58,19); //tem no max 60 carac o codigo end; end; end; end; end;

Boa Tarde. Não sei exatamente o que vc fez na parte de retorno, mas pra mim funciona o retorno pefeitamente. Antes de realizar o retorno, faça isso ACBrBoleto1.Banco.TipoCobranca := cobBancoSofisaItau Dessa forma a unit que vai fazer a leitura do retorno é a ACBrBancoSofisaItau.pas Vi que vc anexou ACBrBancoItau.pas sendo que a leitura do Banco Sofisa itaú é feita pela unit ACBrBancoSofisaItau.pas

Boa tarde, por nada! Obrigado a vcs também que fazem um esforço enorme! Eu passei onde modifiquei, porque não está 100% atualizado com as últimas modificações do SVN, de qualquer maneira segue anexo. Por isso que passei os pontos em que foram ajustados, que foram poucos. ACBrBoleto.pas

Bom dia Já configurei várias vezes Sicredi, e a agência é sempre com 4 casas e o dígito da agência, no caso o posto com 2 casas. DigitoVerificadorAgenciaConta não preencho. Sobre o nosso numero, eu passo um código que crio para cada boleto e o Acbr se encarrega de formatar ele, exemplo: 5775