xyberx

Comecei o desenvolvimento do CTe para a empresa onde trabalho e recebi uma mensagem de erro ao tentar enviar o mesmo, o erro era que os campos do XML cMunEnv tinha um número inválido e os xMunEnv e UFEnv estavam em branco, porém os mesmos estão sendo alimentados corretamente, depurei e verifiquei que continham dados mais no XML eles ficam errados. No emitente estou colocando os mesmos dados que acima estão errados e na TAG emitente eles aparecem normalmente. Em anexo estão as informações que utilizei para teste, o XML anexo contém os dados que falei sobre o defeito o mesmo está apresentando problemas para sua transmissão... https://www.dropbox.com/s/mweea1ilfnb8h1o/32150113617404000170570010000050011000544157-cte.rar?dl=0 Se alguém puder dar uma olhada urgente, estamos aí para testar novamente se for o caso. Se eu estiver errado em algo, somente me corrigirem. Os códigos abaixo é como estão sendo gerados os valores. // Origem da Prestação Ide.cMunIni := StrToIntDef(Format('%2.2d', [DM.LeituraUFIBGE(qryLojaCTeID_UF.AsString)]) + Format('%5.5d', [qryLojaCTeID_MUNICIPIO.AsInteger]), 0); // CodCidadeColeta; Ide.xMunIni := qryLojaCTeCIDADE.AsString;// NomeCidadeColeta; Ide.UFIni := qryLojaCTeID_UF.AsString; // EstadoColeta; // Destino da Prestação CliFornResult(vIBQuery.FindField('ID_CLIENTE_DEST').AsInteger); Ide.cMunFim := StrToIntDef(Format('%2.2d', [DM.LeituraUFIBGE(qryCliForResultID_UF.AsString)]) + Format('%5.5d', [qryCliForResultID_MUNICIPIO.AsInteger]),0); // CodCidadeEntrega; Ide.xMunFim := LeituraMunicipio(qryCliForResultID_MUNICIPIO.AsInteger, Trim(qryCliForResultID_UF.AsString)); //CidadeEntrega; Ide.UFFim := qryCliForResultID_UF.AsString; //EstadoEntrega;

VLW. Não esquenta que não somente usamos, mais ajudamos a construir algo mais utilizável, se não posso no momento contribuir com códigos, posso contribuir com testes, o importante é todos ajudarem, pois vejo que ferramenta aberta tem 98% sugas e 2% ajuda.... Eu tinha um site de Torrents há um bom tempo, sei como é isso kkkkk....

Só o do Banco que mandei para o Regis mesmo, nele tem a linha exata que me deu o problema... caso queira o mesmo para testes mande um mail para [email protected] com o assunto relativo ao tópico que lhe mando o Banco, como era banco de homologação os dados não são de clientes mesmo é tranquilo...

Pelo que entendi vocês usam TRUNC que nunca recomento, no meu caso como trabalhei com escrita fiscal e contabilidade com Delphi, ao invés de TRUNC eu copiava até a quantidade de casas que eu queria, não tinha arredondamento e vinha o número exato que eu queria, pq o TRUNC é meio variável de acordo com o tipo numérico que se usa, talvez não seria adequado fazer o que eu falei, copiar a parte do valor ao invés de Truncar-lo????

email para [email protected] e te passo o meu...

Deu tudo certo graças a Deus. Achei uma outra coisa que foi muito entranha no ACBrNFe novo. Nosso sistema a parte de NFe tinha sido feita por outro programador que colocou os componentes de NFe no Form de emissão da mesma, funcionava perfeito e talz, agora qndo atualizei, o form de emissão de NFe começou a ficar lento para fechar, travando o canvas por uns segundos (Achei ser uma thread do ACBr), o que fiz para resolver foi retirar os componentes ACBr do formulário e colocar num Datamodule, aí parou de dar o problema que mencionei. Esse form tem componentes Cy, DevExpress e outros, achei até que alguma thread estava rodando invalidade ou repaint e deu pau nisso, mais o que fiz resolveu meu problema, se alguém estiver com o mesmo problema o que fiz resolveu o meu tranquilo...VLW a todos.

Bom, como não utilizo os geradores de relatório que utilizam no ACBr, fiquei meio que chateado com o ACBrBoleto, apesar de todo o resto do pacote ser bem interessante e utilizável a parte de Boleto eu pelo menos tive alguns problemas meio que estranhos, o do Banestes e esse do Bradesco, teria alguém que pudesse dar uma olhadinha neste caso, pois se aconteceu comigo acontece com outros....

VLW Regis, vou colocar no Programa e testar...

Pq na época que fiz eu não usava ACBr usava Cupom impresso com as DLL's do fabricante aí fiz um somente pra Sitef

Como não foi eu quem fez essa parte do sistema aqui, você poderia me informa onde pego o XML de retorno após o comando ACBrNFe1.Enviar(IDLote,False) ??? Seria o ACBrNFe1.WebServices.Retorno.RetWS após o envio se ACBrNFe1.Enviar(IDLote,False) for igual a True ???

Nosso sistema estava emitindo NFe normalmente, aí baixei o SVN novo para ter algumas coisas novas para realizar a Homologação de nosso sistema, tudo funcionava tranquilo só que agora liberamos para os clientes e está acontecendo o seguinte problema. A NFe está em produção, vai para o site do SEFAZ, fica certa no SEFAZ mais quando vai imprimir o DANFE sai "NFe sem autorização de uso na SEFAZ". O que poderia ser ??? O DANFE é RAVE.

Caso alguém esteja precisando de TEF Clisitef, fiz um componente com eventos e tudo que faz todo o trabalho com o clisitef e traz todos os retornos de impressão em StringList para você imprimir do jeito que quiser, tipo o que sair de retorno de impressão você pode imprimir no NFC-e, nos CF's de Impressoras fiscais ou em qualquer lugar que queira utilizar o StringList, com homologação feita pela http://www.softwareexpress.com.br/tranquilo e em funcionamento há uns 2 anos com o mesmo sendo somente atualizado para ajustar coisas do Sitef, exclusivo para Sitef, não testado para outros TEF's....

Alguém deu uma olhada nesta questão ??? VLW a todos....

Eu desenvolvi um componente para TEF que ao invés de imprimir os retornos ele te retorna um StringList do que deve ser impresso com eventos. Então ao invés de você ter a impressão no momento do retorno de impressão meu componente dispara um evendo com o StringList do que ia ser impresso aí você pode fazer a chamada de impressão como quiser... Caso seja de interesse [email protected] ou [email protected].

Show, no aguardo... Apesar de já ter dado uma solução para homologação, mais se alguém precisar por enquanto, pode usar a solução citada que vai funcionar...VLW

E aí amigão, conseguiu dar uma olhada no problema ???

Apenas informo o valor... nada de mais, utilizei o exemplo do ACBr pra fazer isso, tudo que faço é bem de acordo com o exemplo...

Conforme o combinado, enviado para seu email...VLW

Manda um mail pra mim que te passo o anexo [email protected] ou [email protected] é na hora.... Já até separei o banco aqui pra você....achei o da homologação....

Bom no caso 1, acho que este você pode ter se enganado, pois o valor era o mesmo, e caso tenha algo que faça trunc isso pode ocorrer, tanto que no meu caso tive que coloca o 0,001 a mais no valor para ele deixar o valor com os 4,20 corretos, até porque antes de fazer o que fiz, conferi o retorno do dado que vinha do Dataset, verifiquei várias coisas e somente isso resolveu. Quando se usa trunc para retirar zeros pode sim ocorrer essas coisas, quando eu trabalhava em uma grande contabilidade aqui de vitória tive problema similar e tive que retirar o trunc e fazer um copy da parte decimal pois dava arredondamentos em alguns casos esporádicos e por incrível que pareça deu comigo na homologação a mesma situação mais como eu já havia passado por isso, fiz o teste conforme citei acima e aí sim funcionou. o campo que apresentou a diferença foi VLT_DAV := StrToFloat(FormatFloat('###########0.001', ibqRegistroD2TOTAL_LIQUIDO.AsCurrency)); do RegistroD2. Só errei em enumerar mais a solução foi a mesma. quando você ia no item, se não me engano o valor era formatado com #0,000 e o valor do DAV era #0,00 e no caso do #0,00 dava esse erro de valor. Só aconteceu com agente aqui no item que o valor dele era 4,20 em outros DAVs não dava esse erro, no Banco estava correto, no Delphi vinha o valor correto mais no arquivo apresentava a diferença sitada. Inclusive várias pessoas que conheço também tiveram problemas de arredondamento no Delphi e a solução segue sempre a mesma lógica : http://fabio.omachi.com.br/?p=228 a que uso ou http://gustavohinterholz.blogspot.com.br/2011/11/funcao-de-arredondamento.htmlque é mais gambiarra. O caso da que uso fiz exatamente igual a do fabio porém em 2009 que foi quando tive esse problema a outra solução é muito mais gambiarra mais funfa também. Caso precisem de alguma coisa, acho que estou com o Banco da homologação aqui separado mais não consigo posta pois não tenho espaço para anexo...

Homologuei semana passada é além da opção de Produtos e Estoque total que é obrigatório, você também tem que dar a opção de parcial....

Show, se precisar de algo só mandar email para [email protected] ou [email protected] que respondo dúvidas sobre programação Delphi em Geral....VLW

Show, eu faço mais ou menos assim, porém como sei o que mando no meu pacote, vai tudo que configurei no driver + midas.dll, não gosto de usar embarcada pois quando tem uma atualização do midas.dll tem que mandar o serviço de novo no meu caso mando somente o midas.dll. Os meus funcionam certinho, mais quando tenho problemas a lista do tópico que deixei foram a solução em vários mais vários casos mesmo, pois como trabalhamos com as máquinas dos clientes de lojas e coisas do tipo, imagina o tanto de baidu e coisas do tipo que achamos nas máquinas kkkkk....

Semana passada homologamos aqui na Faesa, e tivemos os seguintes problemas : 1 - O campo VL_TOTAL do RegistroD2.RegistroD3 quando o valor era 4,20 o registro gerado em TXT estava dando o valor 4.19 e o valor do item era 4,20 dando diferença de valor, para acertar para homologação fiz VL_TOTAL := StrToFloat(FormatFloat('###########0.001', ibqRegistroD3.FieldByName('VALOR_LIQUIDO').AsCurrency)) aí funcionou. 2 - o Campo de número do DAV foi exigido que fosse preenchido com zeros a esquerda ao invés de espaços. RegistroD2 NUM_DAV := FormatNumDAV(ibqRegistroD2ID_COD.AsString); onde Function FormatNumDAV(Valor : String; LengthS : Integer = 12) : String; Var I : Integer; Begin Result := Valor; For I := Length(Valor) To LengthS Do Result := '0' + Result; End; Os casos acima foram resolvidos deste jeito porém caso for ajustado no ACBrPAF farei as alterações no meu código para ficar certo com o ACBr. VLW a todos e mais uma homologação feita com ACBr....

E ae galera, alguma novidade sobre o assunto do boleto ???