Junior82
Membros-
Posts
63 -
Joined
-
Last visited
Recent Profile Visitors
The recent visitors block is disabled and is not being shown to other users.
Junior82's Achievements
-
distribuicaodfe Downlaod xml DistribuicaoDFe
Junior82 replied to Reinaldo Silveira's topic in ACBrNFe
quer dizer que isso esta correto entao Renyldo Campos Pereira?? -
distribuicaodfe Downlaod xml DistribuicaoDFe
Junior82 replied to Reinaldo Silveira's topic in ACBrNFe
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; -
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.
-
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
-
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???
-
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