farnetani

Pessoal, portei uma aplicação que antes estava em Delphi 2006 para XE5 e após ter mudado para o trunk2 e mudado de delphi, a app ficou instável, ou seja, sem explicação ela congela como se estivesse em loop infinito, já ativei o eurekalog, e verifiquei erros de memory leak, porém sem sucesso. Alguém tem alguma luz para me ajudar? O problema é aleatório. Uma coisa que notei que antes o sistema não pedia várias DLLs, agora pede um monte de DLLs na máquina do cliente. Pode ser alguma delas? Pior que o travamento acontece em situações onde se faz buscas e alimentação de dados!

Pessoal, existe um problema para se utilizar o instalador do forte report. Na linha 654 do arquivo RLMetaVCL tive que deixar assim: (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)), // psSolid (Count: 2;Lengths: (3, 1, 0, 0, 0, 0)), // psDash (Count: 2;Lengths: (1, 1, 0, 0, 0, 0)), // psDot (Count: 4;Lengths: (2, 1, 1, 1, 0, 0)), // psDashDot (Count: 6;Lengths: (3, 1, 1, 1, 1, 1)), // psDashDotDot {$IfDef FPC} (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)), // psInsideFrame (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)), // psPattern (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)) // psClear {$Else} (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)), // psClear {$ifdef DELPHI2006} (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)), (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)), {$endif} (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)) // psInsideFrame {$IfDef DELPHI2007_UP}// delphi 2007 em diante , (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)), // psUserStyle (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)) // psAlternate {$endif} {$endif} ); E no arquivo RLXLSXFileFormat tive que corrigir os erros causados pelo RawBytes... Como por exemplo na linha 778, 1396, 1430 (AnsiString), 1440: Result := {$IfDef FPC}String(RawBytes){$Else} UTF8ToUnicodeString(RawBytes){$EndIf}; para: Result := {$IfDef FPC}String(RawBytes){$EndIf}{$IfDef DELPHI2006}String(RawBytes){$Else} UTF8ToUnicodeString(RawBytes){$EndIf}; Desculpem, não sei se fiz certo, mas compilou e instalei. Também não sabia aonde postar, só quis contribuir para que fosse corrigido no instalador!

Tacio90, teria como vc disponibilizar o .fr3 de exemplo?

Italo, obrigado pela informação. Já passou sim, na verdade já migrei alguns sistemas, porém existe apenas um sistema mais antigo (bds2006) que ainda está em alguns clientes que eu preciso migrar, mas que por motivos de dificuldades (falta adquirir alguns componentes) ainda não consegui fazê-lo. Até cheguei a comprar um componente pago de NFe para tentar resolver esse caso isolado. Mas no nosso ERP mais atual já migrei para o trunk2 sim. A dúvida é, se não houver operação interestadual, eu estiver no trunk1 e gerar o xml, ele será gerado e validado? Por que se sim o meu foco vai ser em finalizar algumas rotinas que ainda não existem no ERP novo para conseguir migrar esses clientes do sistema mais antigo. Como você me sugere que eu possa testar isso? Se eu fizer tipo uma nfe / xml com esse software e validar pelo ACBR (trunk2) e passar, posso ficar tranquilo que passará no dia 01/04?

Italo, me diga uma coisa, supondo que eu não terei essa operação interestadual destinada a consumidor final, eu posso deixar de especificar essas tags? Ou como você disse, de qualquer maneira serei obrigado a jogar a alíquota de 4%, 7% ou 12%? A minha maior dúvida é se eu tivesse o meu software no trunk1 sem essas tags existirem, o xml passaria no dia 01/04? Se eu fizer aqui em MODO DE HOMOLOGAÇÃO é como se eu estivesse fazendo em PRODUÇÃO no dia 01/04, certo? Existe alguma forma de eu VALIDAR o XML sem mandar para a homologação? Tipo o próprio validador do acbr já está verificando se está tudo correto como se estivesse em operação no dia 01/04???

Sim Italo, já li a mesma, obrigado. Meu receio é ter ficado algo pra trás!

Pessoal, bom dia. Gostaria de saber se realmente agora em 01/04/2016 serão validadas as seguintes TAGs no xml e se as mesmas não constarem no respectivo XML serão motivo de IMPEDIMENTO de se gerar o xml e validá-lo na SEFAZ. Nos Totais: Total.ICMSTot.vFCPUFDest:=0; Total.ICMSTot.vICMSUFDest:=0; Total.ICMSTot.vICMSUFRemet:=0; e nos Itens: vBCUFDest:=0; pFCPUFDest:=0; pICMSUFDest:=0; pICMSInter:=0; pICMSInterPart:=0; vFCPUFDest:=0; vICMSUFDest:=0; vICMSUFRemet:=0; Me parece que serei obrigado a informar os valores zerados, senão o xml não passará. Isso procede??? Além destes campos, vocês tem alguma informação a mais? Por que pergunto isso, ainda possuo sistema antigo com trunk1 que não previa essas tags e esses não terei tempo realmente de substituí-los. Por esse motivo estou fazendo uma app a parte para complementar isso! Tipo um segundo executável onde pegará o ID da tabela nota que deseja-se gerar e dar prosseguimento! Não terei tempo de fazer uma DLL, terá que ser um .exe mesmo!

Micheli, como vc resolveu? Seria o .XMLAssinado?

Pessoal, estou migrando tudo para o trunk2, e me deparei com um problema. No trunk1 eu salvava o XML do RPS gerado pelo comando: tabelaxml_rps.value:=ACBrNFSe1.NotasFiscais.Items[i].XML_Rps; Agora no Trunk2 não tenho mais essa opção, ou tenho com outro nome? Vi que tenho as seguintes opções: ACBrNFSe1.NotasFiscais.Items[i].xml; ACBrNFSe1.NotasFiscais.Items[i].XMLOriginal; ACBrNFSe1.NotasFiscais.Items[i].XMLAssinado; ACBrNFSe1.NotasFiscais.Items[i].XMLNFse; No caso, seria o XMLASSINADO? Já achei o link: E vou estar interagindo nele...

Não sabia realmente aonde eu poderia publicar isso...publiquei aqui por ser uma DIFICULDADE relacionada a necessidade de usar o componente NFe, só que agora do TRUNK2. Então se for o caso, queiram por favor realocar para o seu devido lugar se esse for o caso, pois vi que o subtópico trunk2 foi fechado. Vamos ao problema, Tenho uma aplicação mais antiga (bds2006) que preciso jogar para o delphi mais novo (XE5) que suporte unicode. Só que ao tentar fazer isso me deparei com um problemasso, ou seja, tenho vários datamodules COM MUITOS TSQLDataSet com os fields já anexados no componente. Resumindo a história, usava o seguinte DRIVER dbexpUIBfire15.dll no TSQLConnection, só que agora com o dbexpress novo, quando vou rodar a aplicação ela me resulta o erro: TYPE MISMATCH FOR FIELD ..., EXPECTING: BCD ACTUAL: FMTBCDFIELD Eu vi que para resolver isso eu teria que REMOVER os fields e adicionar novamente...SÓ QUE ISSO é INVIÁVEL/IMPOSSÍVEL...são muitos FIELDs realmente... Aí lhes peço realmente uma ajuda, existe alguma forma de eu fazer isso de forma automatizada sem ter que ir em componente por componente, remover os fields e adicionar novamente para que eles peguem o tipo novo requisitado (fmtbcdfield)? Ou existe alguma forma de eu FAZER a SQLConnection aceitar que esses campos são BCD e não fmtbcdfield??? JÁ TENTEI JOGAR EM PARAMETROS EnableBCD = true ...não adiantou nada! Existe alguma forma de eu ao menos fazer o dbexpress USAR esse driver/dll antiga para evitar esse tipo de problema??? Acho que seria nesse momento que preciso migrar a solução mais plausível.

Achei esse link que fala um pouco mais sobre o assunto: http://www.contabilidadenobrasil.com.br/convenio-icms-152-de-2015/

Nossa, aonde é que eu encontro isso atualizado???

Desculpe aí pessoal, achei esse link que já me responde os tópicos acima:

Este produto possui alíquota de fundo de combate à pobreza? Se sim, qual é a alíquota? Pessoal, em relação ao fundo de combate à pobreza, como é que vocês estão tratando no software de vocês? A pergunta é, se eu criar um campo = aliquota_fundopobreza na tabela de produtos já basta ou tenho que amarrar isso para cada estado de destino? Existe alguma tabela que lista estes itens ou isso é amarrado por TIPO DE RAMO DE ATIVIDADE??? Aonde encontro essa informação??? Estive olhando o link : https://www.confaz.fazenda.gov.br/legislacao/convenios/convenio-icms/2015/convenio-icms-93-15 mas trata mais sobre o lance da distribuição da compensação de ICMS entre os estados. Me parece que isso só está vigorando nos estados de SP e RJ, mas tenho receio disso vir pra MG. Alguém tem alguma informação mais complementar de como funciona? Também gostaria de saber com mais detalhes para o estado de SP. A dúvida é, se eu estou no estado de ORIGEM MG eu ainda não preciso me preocupar, certo? Mas quando eu tiver, isso será atrelado ao estado de ORIGEM ou estado de DESTINO?

Duarte, tem como você me passar seu contato (email ou skype)?

Estou abrindo esse tópico por conta do outro ter sido fechado. Alguém sabe me dizer com certeza se no TRUNK1 será possível eu atender a nota técnica que prevê o uso do CEST e da partilha do ICMS ou eu serei obrigado a mudar para o Trunk2? Alguém aí já tem isso funcionando com o Trunk1? Ou realmente isso não será possível???

Pois é...também fiz como você, utilizei um rounddec para me certificar que eu não estivesse fazendo besteira. O que notei foi que isso ocorre quando eu utilizo o componente AcbrNFse...a solução para o problema foi fechar o sistema após a nota ser emitida/gerada e abrir novamente...RESUMINDO, não achei aonde está o problema, mas ao meu ver, é como se ficasse esse 0,01 na memória...O que fiz também para evitar isso foi tipo uma verificação no arquivo REMESSA, ou seja, após eu gerar o arquivo eu valido ele novamente buscando o título e comparando...pois mesmo eu informando por exemplo (as vezes) 120,00, ele insistia em jogar 120,01...já pensei que pudesse ser vírus, etc...mas NOTEI isso, depois que eu utilizo as funcionalidades do componente ACBRNFSe e já gero o boleto, o mesmo pega esse 0,01 a mais vindo do NADA!!! Se vc descobrir, por favor compartilhe!!! Abraço!

Estou usando: https://svn.code.sf.net/p/acbr/code/trunk Então estou viajando??? Qual é o caminho completo? Esse trunk2 é aquele que mudou várias regras da nfe?

Vixe...sério...como faço pra ver a versão...pois tenho feito os updates e não tem me apontado nada novo...ou vcs já jogaram tudo no novo svn?

Tiago, o lance é o seguinte, tente abrir o arquivo: ACBrNFSeDANFSeFR.pas, nele vc vai achar um datamodule, aí por lá vc manda dá duplo clique no componente do fastreports e manda ler o arquivo...isso fará aparecer os datasets. Aí vc vai e linka eles ao relatorio (.fr3) e pronto...tudo funcionará normalmente!

Juliana e pessoal...acabei de encontrar o erro. Na verdade eu estava fazendo o seguinte, confundi a data de baixa com data de credito e era por esse motivo que estava vindo sem data, pois no arquivo da caixa não vem, como eu estava rodando via debug, pensei que o erro de 00/00/0000 data inválida era associado ao componente. Realmente, se vcs verificarem no arquivo possui algumas linhas do tipo U que estão com as datas zeradas...caberia realmente um if strtointdef(...,0) lá também na classe do componente para evitar isso...mas não era isso que estava causando o meu problema! Obrigado!

Sei que a cobrança do cliente é SIGCB.

Estou com um problema semelhante, só que no meu caso o componente está conseguindo pegar o nosso numero corretamente, porém a data da baixa está dando um erro de conversão. O que pode ser? Segue inclusive o arquivo de retorno em anexo. retorno.RET Na minha classe o código que lê a data está assim: ACBrBanco.ACBrBoleto.DataArquivo := StringToDateTimeDef(Copy(ARetorno[1],192,2)+'/'+ Copy(ARetorno[1],194,2)+'/'+ Copy(ARetorno[1],198,2),0, 'DD/MM/YY' ); if StrToIntDef(Copy(ARetorno[1],200,6),0) <> 0 then ACBrBanco.ACBrBoleto.DataCreditoLanc := StringToDateTimeDef(Copy(ARetorno[1],200,2)+'/'+ Copy(ARetorno[1],202,2)+'/'+ Copy(ARetorno[1],204,4),0, 'DD/MM/YY' );

Já saquei...basta por o arquivo tabservicos.txt na mesma pasta do .exe. Ficou top!

Pessoal, estou com o mesmo problema...como é que vcs solucionaram??? Estive olhando o código fonte e achei isso: if TabServicosExt then NFSe.Servico.xItemListaServico := NotaUtil.ObterDescricaoServico(OnlyNumber(NFSe.Servico.ItemListaServico)) else NFSe.Servico.xItemListaServico := CodigoToDesc(OnlyNumber(NFSe.Servico.ItemListaServico)); Alguém poderia me explicar como eu faço pra começar a ativar no meu relatório da NFSe o item xItemListaServico? O engraçado é que eu estou setando ele, só que mesmo assim eu vi que ele não salva no RPS. O que é esse TabServicosExt ??? No caso ele já pega de alguma tabela essa descrição??? Seria top...mas como faço pra fazer isso pra funcionar? E só serviria para a IMPRESSÃO DO Danfe? No rps ou xml essa informação é normal não constar? xItemListaServico?