Junior82

quer dizer que isso esta correto entao Renyldo Campos Pereira??

Bom dia pessoal Nao estou conseguindo utilizar a funcao ACBrNFe1.DistribuicaoDFePorChaveNFe Apos utilizar ele estou utilizando o exemplo postado acima e o cstat que esta vindo é sempre o 137 e nunca o 138 Alguem pode me ajudar??? ACBrNFe1.DistribuicaoDFePorChaveNFe(ACBrNFe1.Configuracoes.WebServices.UFCodigo, 'CNPJ da Filial', 'chave de Aesso'); with ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt do begin if cStat = 138 then begin for i := 0 to docZip.Count - 1 do begin if docZip.Items.schema = schprocNFe then //verifica se o arquivo é o XML da NFe (-nfe.xml) begin XML := docZip.Items.XML; ArqXML := TStringStream.Create(XML); XMLDocument1.LoadFromStream(ArqXML); XMLDocument1.Active; XMLDocument1.SaveToFile('C:\chave de acesso-nfe.xml'); end; end; end end;

Muito obrigado Daniel Simoes Vou atualizar os fontes Abraços

Ola @Juliomar Marchetti ! Vc gostaria que eu anexasse novamente os arquivos para que possas olhar?

Juliomar Marchetti Vc gostaria que eu enviasse novamente os Fontes que alterei?

Bom dia @hleorj e @Daniel Simoes As alteracoes que fiz no fonte eu nao enviei para o SVN, achei mais pertinente apenas lhe enviar em anexo na conversa os arquivos. A ultima conversa com anexo esta com ele ok. Mas agradeceria se vcs olhassem a inclusao que fiz, pois fiz como vc indicou e nao prejudiquei a propriedade que estava sendo utilizada. Fico no aguardo de vcs pois nao quero prejudicar nenhum funcionamento do componente.

Faltou um detalhe Daniel Simoues... na unit ACBrNFeDANFEClass.pas na linha 309 esta false mas deveria estar true para estar correta. FImprimirTributos := True; Agora sim esta correto... Acabei de anexar os arquivos ACBrNFeDANFEClass.pas ACBrNFeDANFeESCPOS.pas

Daniel Simoes Fiz o que vc me sujeriu. estou lhe mandando os fontes alterados e com a inclusao da Propriedade ImprimirTributos:Boolean conforme vc mencionou Acredito que agora esta da forma certa Nao tenho certeza se deveria alterar algum outro arquivo para que a propriedade apareca diretamente no componente ou nao.. mas ai vai e veja o que achas e me de um retorno.. Obrigado ps: acredito que agora estou compreendendo o que estavas me dizendo ACBrNFeDANFEClass.pas ACBrNFeDANFeESCPOS.pas

ok

Tudo bem entao Daniel Simoes Mas so para deixar claro era assim que funcionava anteriormente e esse codigo retirei de uma versao antes da atualizacao e que entao esta errada Agora me diga, isso estava errado anteriormente? procedure TACBrNFeDANFeESCPOS.GerarTotTrib; begin if TributosSeparadamente = False then begin if FpNFe.Total.ICMSTot.vTotTrib > 0 then begin FPosPrinter.Buffer.Add('<c>' + ACBrStr(PadSpace('Informação dos Tributos Totais Incidentes|' + FormatFloat('#,###,##0.00', FpNFe.Total.ICMSTot.vTotTrib), FPosPrinter.ColunasFonteCondensada, '|'))); FPosPrinter.Buffer.Add('<c>(Lei Federal 12.741/2012)'); FPosPrinter.Buffer.Add('</linha_simples>'); end; end else begin if (vTribFed > 0) or (vTribEst > 0) or (vTribMun > 0) then begin FPosPrinter.Buffer.Add(ACBrStr('<c>Informação dos Tributos Totais (Lei Federal 12.741/2012)')); FPosPrinter.Buffer.Add('<c>' + PadSpace('Tributos Federais R$ :|' + FormatFloat('#,###,##0.00', vTribFed), FPosPrinter.ColunasFonteCondensada, '|')); FPosPrinter.Buffer.Add('<c>' + PadSpace('Tributos Estaduais R$ :|' + FormatFloat('#,###,##0.00', vTribEst), FPosPrinter.ColunasFonteCondensada, '|')); FPosPrinter.Buffer.Add('<c>' + PadSpace('Tributos Municipais R$ :|' + FormatFloat('#,###,##0.00', vTribMun), FPosPrinter.ColunasFonteCondensada, '|')); if Trim(FonteTributos) <> '' then FPosPrinter.Buffer.Add('<c>' + PadSpace('Fonte : '+FonteTributos+'|' + ChaveTributos, FPosPrinter.ColunasFonteCondensada, '|')); FPosPrinter.Buffer.Add('</linha_simples>'); end; end; end;

Isso ai meu amigo BigWings vc me compreendeu perfeitamente... to lutando a dias para que me compreendam.. era assim que o componenta funcionava anteriormente antes da alteracao... se continuar assim vai me prejudicar e to tentando explicar que minha solicitacao é importante pra mim.. mas ninguem me entende... mas pelo visto vc compreendeu o que eu preciso fazer... senao ai qdo eu mando imprimir acaba saindo duas vezes.. olha so na foto a esquerda... e eu preciso que fique igual a da direita so quero que imprima separadamente, mas da minha maneira... o componente trabalhava assim antes e nao tem problema em continuar assim

Daniel Simoes Eu somente solicitei que o componente voltasse a fazer o que ela fazia anteriormete, e sinceramente com todo o respeito , nao vejo motivo para nao aceitarem minha implementaçao, visto que esta me causando um certo problema, mas que ninguem aqui parece estar compreendendo. A minha solicitacao nao causa problema a ninguem e ainda por cima me beneficia. Ao longo de varios anos tenho contribuido com o projeto e gosto muito do projeto, mas por meio de outras pessoas e confesso que estou desapontado, pois estou a semanas tentando explicar o motivo pelo qual estou pedindo para voltarem ao que era feito anteriormente e estou vendo que isso nao será feito. Nao quero deixar de apresentar a informacao assim como alguns compreenderam de forma errada NAo quero suprimir a informacao que é enviada no xml no campo vtottrib Quero poder utilizar o componente assim como era feito anteriormente. Sera que alguem compilou o programa e fez um exemplo para compreender o que estou solicitando?? Eu nao posso deixar de passar os valors da Tag vTotTrib no xml e tambem nao quero passar os valor separados para o componente. Sera que nao poderiam por favor me ajudar e implementar o que estou pedindo???

Mas ai vai faltar o tributo no xml e com a alteracao conforme eu propus... a informacao vai no xml e a configuracao vai funcionar conforme vc falou Isso é possivel fazer ou nao Daniel Simoes???

Bom dia Daniel Simoes Essa sua modificacao ainda nao me ajuda pois se caso o campo TrbutosSeparadamente estiver setado como True e os vTribFed+vTribEst+vTribMun for igual a Zero vai acontecer praticamente a mesma coisa e ele vai mostrar os tributos da maneira completa e nao separada. A minha intensao é que nao seja mostrado esse campo e eu possa inserir ele manualmente com minha formatacao

Bom dia Daniel Simoes Estou anexando o fonte que alterei. A modificacao foi incluir o teste que esta em vermelho para que essa funcao venha ser respeitada assim como era anteriormente por volta do mes de janeiro. Quero deixar bem claro que isso é algo que funcionava perfeitamente antigamente e agora nao funciona mais e preciso que continue dessa maneira para q eu possa informar os Tributos da maneira que meus clientes ja estao acostumados. procedure TACBrNFeDANFeESCPOS.GerarTotalTributos; var MsgTributos : String; begin if TributosSeparadamente = true then begin if (vTribFed+vTribEst+vTribMun) > 0 then begin MsgTributos:= 'Tributos Incidentes Lei Federal 12.741/12 - Total R$ %s Federal R$ %s Estadual R$ %s Municipal R$ %s'; FPosPrinter.Buffer.Add('<c>' + QuebraLinhas(Format(MsgTributos,[FormatFloatBr(vTribFed + vTribEst + vTribMun), FormatFloatBr(vTribFed), FormatFloatBr(vTribEst), FormatFloatBr(vTribMun)]),FPosPrinter.ColunasFonteCondensada)); end end else begin if FpNFe.Total.ICMSTot.vTotTrib > 0 then begin MsgTributos:= 'Tributos Totais Incidentes(Lei Federal 12.741/12): R$ %s'; FPosPrinter.Buffer.Add('<c>' + QuebraLinhas(Format(MsgTributos,[FormatFloatBr(FpNFe.Total.ICMSTot.vTotTrib)]), FPosPrinter.ColunasFonteCondensada)); end; end; end; ACBrNFeDANFeESCPOS.pas