Painel de líderes

Identificamos que a posição de leitura de retorno, CNAB400 do banco do brasil, onde possui código convênio até 6 dígitos (LerRetorno400Pos6), com relação ao campo NumeroArquivo (Sequencial de Retorno) está errado. De acordo com o manual do Banco do Brasil deveria ser da posição 101 a 107, e não a posição 41 mais seis caracteres como está atualmente. Fonte: http://svn.code.sf.net/p/acbr/code/tools/Bancos/BancoBrasil/, opção "CBR643 - 6.pdf" Arquivo: /Fontes/ACBrBoleto/ACBrBancoBrasil.pas Procedure: LerRetorno400Pos6(ARetorno: TStringList); Linha: 1383 Diff: --- /home/desenvolvimento1/fontes/ACBr/Fontes/ACBrBoleto/ACBrBancoBrasil.pas (revisão 11646) +++ /home/desenvolvimento1/fontes/ACBr/Fontes/ACBrBoleto/ACBrBancoBrasil.pas (cópia de trabalho) @@ -1380,7 +1380,7 @@ rConvenioCedente:= Copy(ARetorno[0],41,6); - ACBrBanco.ACBrBoleto.NumeroArquivo := StrToIntDef(Copy(ARetorno[0],41,6),0); + ACBrBanco.ACBrBoleto.NumeroArquivo := StrToIntDef(Copy(ARetorno[0],101,7),0); ACBrBanco.ACBrBoleto.DataArquivo := StringToDateTimeDef(Copy(ARetorno[0],95,2)+'/'+ Copy(ARetorno[0],97,2)+'/'+ desenvolvimento1@Desenvolvimento1:~/fontes/ACBr$ Detalhe: Podemos também identificar que se repetiu as mesmas posições da leitura de retorno da variável [rConvenioCedente] para o campo [NumeroArquivo], ou seja, "Copy(ARetorno[0],41,6);". Segue anexos, com o diff e o arquivo ACBRBancoBrasil.pas já com a correção. ACBrBancoBrasil.pas

Boa tarde, você pode comprar direto pela Embarcadero Barsil, veja o contato no link https://www.embarcadero.com/br/how-to-buy Sobre qual versão veja o link https://www.embarcadero.com/br/products/rad-studio/product-editions

entra no site da embarcadero do brasil tem o telefone de são paulo! como você já tem a licença eles saberão lhe informar maiores detalhes sobre atualizações e valores ! mesmo tendo comprado com outra representante as antigas licenças!

Infelizmente não podemos aceitar, algo incompatível com Lazarus... Obrigado pela oferta..

Bom dia a todos, Muito obrigado pela colaboração, já esta no repositório.

http://isaquesp.blogspot.com.br/2011/09/varias-versoes-do-delphi-instaladas-sem.html

Bom dia André. Um cliente me alertou sobre um problema: Gerou a NFSe pelo sistema, mas foi imprimir em outro local, pelo site. Imprimindo pelo site, a descrição do serviço está saindo duas vezes. Isto porque na procedure TNFSeW_CONAM.GerarListaServicos está assim: Gerador.wCampoNFSe(tcStr, '', 'DiscrSrv', 01, 4000, 1, StringReplace( NFSe.Servico.Discriminacao, ';', FQuebradeLinha, [rfReplaceAll, rfIgnoreCase] ), ''); Gerador.wCampoNFSe(tcStr, '', 'VlNFS', 01, 16, 2, FormatFloat('############0.00', NFSe.Servico.Valores.ValorServicos), ''); Gerador.wCampoNFSe(tcStr, '', 'VlDed', 01, 16, 2, FormatFloat('############0.00', NFSe.Servico.Valores.ValorDeducoes), ''); Gerador.wCampoNFSe(tcStr, '', 'DiscrDed', 01, 4000, 1, StringReplace( NFSe.Servico.Discriminacao, ';', FQuebradeLinha, [rfReplaceAll, rfIgnoreCase] ), ''); Uma solução seria alimentar o componente usando a propriedade "JustificativaDeducao" Gerador.wCampoNFSe(tcStr, '', 'DiscrDed', 01, 4000, 1,StringReplace( NFSe.Servico.Valores.JustificativaDeducao, ';', FQuebradeLinha, [rfReplaceAll, rfIgnoreCase] ), ''); []´s Edson.

Bom dia André / Italo. Atualizei os fontes, testei em homologação, e deu tudo certinho, da geração do RPS até a impressão. Só um 'incoveniente': Eu fiz uns ajustes para a impressão dos serviços sair "colunada", em fonte fixa (Courier new). Mas toda vez que atualizo, tenho que refazer alguns passos. procedure TNFSeW_CONAM.GerarXML_CONAM; begin Gerador.Opcoes.RetirarEspacos := False; // para permitir que a impressão saia "colunada" E na unit ACBrNFSeDANFSeRLClass.pas, altero a fonte: procedure TACBrNFSeDANFSeRL.ImprimirDANFSe(NFSe: TNFSe = nil); var i: integer; frlDANFSeRLRetrato: TfrlDANFSeRLRetrato; begin frlDANFSeRLRetrato := TfrlDANFSeRLRetrato.Create(Self); try frlDANFSeRLRetrato.rlmDescricao.Font.Name:='Courier New'; // a impressão do Código de verificação está estourando, portando diminui a fonte frlDANFSeRLRetrato.rllCodVerificacao.Font.Size:=9; // para a quebra de linha funcionar, o correto é pegar Configuracoes.Geral.ConfigGeral, não de Configuracoes.WebServices //frlDANFSeRLRetrato.QuebradeLinha(TACBrNFSe(ACBrNFSe).Configuracoes.WebServices.QuebradeLinha); frlDANFSeRLRetrato.QuebradeLinha(TACBrNFSe(ACBrNFSe).Configuracoes.Geral.ConfigGeral.QuebradeLinha); if NFSe = nil then Talvez o mais 'elegante' seria criar mais um parâmetro no arquivo INI, tipo "ImpressaoEmColunas", que setaria o "RetirarEspacos" para False, e usaria uma fonte de pontos fixos, como a Courier New. O que vocês acham ? []´s Edson.

Bom dia! Eu tenho essas rotinas funcionando. O detalhe eh que para coletar esses dados, voce precisa entrar em contato com a SE e solicitar uma dll feita (na teoria para o seu cliente e na pratica funciona para todos) para isso. A dll se chama mkse.dll. Tendo essa dll a coleta em si eh tranquilo. So com as dlls do clisitef normal nao da pra coletar. Vou separar aqui as rotinas e ja posto. Segue anexo a rotina para a coleta. Eu nao uso ACBrTEFD e o componente que eu uso não tenho os fontes. Por isso fiz separado. Devo migrar em breve para o ACBrTED e ai posso incluir nos fontes. Qualquer duvida estou a disposição. coleta.txt

Também estou como o mesmo problema! Alguém já conseguiu resolver? Consegui achar o que é: Estava usando a mensagem assim: ACBrMail.Body.Text := strMSGMAIL; O que funcionou foi assim: AcbrMail.AltBody.Add(strMSGMAIL);

Ja vi isso acontecer por conta do utilitario que é instalado com os drivers de vídeo da Intel que fica no tray próximo ao relógio do Windows. Desativei no msconfig e a tela do meu software normalizou. Att, Sérgio

ide.idDest := doInterna; //...(doInterna, doInterestadual, doExterior ok, obrigado 100+ ANT.CARLOS/SP

Vc não preencheu o campo idDest corretamente.

Caso não tenha Windows xp próximo seria um problema certo? O problema deste certificado é em relação à criptografia. Para resolver este problema acesse o site. http://www.onlinecertificadora.com.br/ click em SOFTWARES E DRIVES e INTALADOR VALID no link: Conversor para Sistemas Particulares "Erro de Criptografia 24" Instale o certificado seguindo o wizard deste instalador.

Bom dia no caso do XE6, verifique se no dpk tem a diretiva pra compilar pra ele e se nela tem o dsnap declarado na linha!

Bom dia Lucas, No RPS 986 você informou que tinha ISSRetido, mas não informou o valor dele, ou seja, TAG: ValorIssRetido. No RPS 989 você informou que não tinha ISSRetido, mas não informou o valor do ISS, ou seja, TAG: ValorIss. Note que temos duas TAGs, uma para o Valor do ISS Retido e a outra para o valor do ISS que deve ser calculado com base na alíquota aplicada na base de calculo.

Bom dia Darlana, Como a NFSe é a nivel de municipio e não de Estado os endereços de URL variam e para piorar a implementação acabou fincando por conta de empresas privadas que oferecem os serviços de WebServices aos municipios. E como você sabe cada um faz do jeito que acha ser o melhor. Desta forma tivemos que criar esses arquivos de configuração para poder automatizar a configuração do componente. Como ja foi dito, você não precisa se preocupar com esses arquivos, eles devem sim estar juntos com os arquivos de schemas, uma vez que o componente utiliza-os. Para o Municipio de Montes Claros-MG temos: [3143302] Municipio=Montes Claros/MG Provedor=GovBR VersaoSoap=1.1 Config_Schemas=00004 Config_URL=00007 Prefixo2= Prefixo3= Prefixo4= Identificador=id HomNameSpace=http://tempuri.org ProNameSpace=http://tempuri.org AssinarRPS=N AssinarLote=S [código do Municipio segundo o IBGE sendo que os 2 primeiros digitos diz respeito ao UF] Municipio= nome do municipio Provedor= nome da empresa que oferece os serviços de WebServices ao municipio VersaoSoap= ser a versão for 1.1 o lote de RPS a ser enviado tem que esta no formato texto, na 1.2 o formato é xml Config_Schemas= código do schema a ser utilizado Config_URL= código das URLs de homologação / produção a ser utilizando pelo municipio Prefixo2= Prefixo3= Prefixo4= Prefixos 2, 3 e 4 algumas empresas ao implementar colocaram um prefixo nas tags: ns4: é o prefixo Identificador= algumas implementações usam o atributo ID como sendo Id e outros id HomNameSpace= endereço que varia conforme a implementação ProNameSpace= idem ao anterior AssinarRPS= se S assina o RPS caso contrario não AssinarLote= se S assina o lote de RPS caso contrario não [00004] VersaoCabecalho=1.00 VersaoDados=1.00 VersaoXML=2 URL=http://www.abrasf.org.br/ABRASF/arquivos/ Cabecalho=nfse.xsd ServicoEnviar=nfse.xsd ServicoConSit=nfse.xsd ServicoConLot=nfse.xsd ServicoConRps=nfse.xsd ServicoConNfse=nfse.xsd ServicoCancelar=nfse.xsd DefTipos= [código do schema] neste arquivo temos os nomes dos arquivos schemas que pode ser apenas um como é o caso de Montes Claros, ou varios, cada um descrevendo o lay-out de cada serviço. Algumas implementações possuem cabeçalho e outras não e a URL que acompanha o nome do arquivo schema, tambem varia de uma implementação para outra. [00007] HomRecepcaoLoteRPS=http://nfeteste.montesclaros.mg.gov.br:8081/nfsewsteste/Services.svc HomConsultaLoteRPS=http://nfeteste.montesclaros.mg.gov.br:8081/nfsewsteste/Services.svc HomConsultaNFSeRPS=http://nfeteste.montesclaros.mg.gov.br:8081/nfsewsteste/Services.svc HomConsultaSitLoteRPS=http://nfeteste.montesclaros.mg.gov.br:8081/nfsewsteste/Services.svc HomConsultaNFSe=http://nfeteste.montesclaros.mg.gov.br:8081/nfsewsteste/Services.svc HomCancelaNFSe=http://nfeteste.montesclaros.mg.gov.br:8081/nfsewsteste/Services.svc ProRecepcaoLoteRPS=http://nfe.montesclaros.mg.gov.br:8082/NFSEws/Services.svc ProConsultaLoteRPS=http://nfe.montesclaros.mg.gov.br:8082/NFSEws/Services.svc ProConsultaNFSeRPS=http://nfe.montesclaros.mg.gov.br:8082/NFSEws/Services.svc ProConsultaSitLoteRPS=http://nfe.montesclaros.mg.gov.br:8082/NFSEws/Services.svc ProConsultaNFSe=http://nfe.montesclaros.mg.gov.br:8082/NFSEws/Services.svc ProCancelaNFSe=http://nfe.montesclaros.mg.gov.br:8082/NFSEws/Services.svc [código das URLs utilizadas pelo Municipio] A URL para cada serviço pode ser a mesma ou não, variando apenas de Homologação para Produção tudo depende da implementação. Espero ter exclarecido as suas duvidas.