Ir para conteúdo
  • Cadastre-se

Junior82

Membros
  • Total de ítens

    63
  • Registro em

  • Última visita

Tudo que Junior82 postou

  1. quer dizer que isso esta correto entao Renyldo Campos Pereira??
  2. 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;
  3. Ola @Juliomar Marchetti ! Vc gostaria que eu anexasse novamente os arquivos para que possas olhar?
  4. 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.
  5. 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
  6. 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
  7. 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;
  8. 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
  9. 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???
  10. 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???
  11. 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
  12. 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
  13. o que estou pedindo que vejam é que a propriedade "TributosSeparadamente" nao esta sendo levada em consideracao no teste postado acima.. a minha sujestao é simplesmente inserir novamente como era nas versoes anteriores e ai o componente vai se comportar conforme o BigWings relatou para mim.. mas infelizmente nao é o que esta acontecendo, entao se alguem puder realizar um teste agradeço. ps: da maneira que faço meu sistema faz o calculo e os valores sao impressos no final do cupom de uma maneira formatada e de facil visualizacao
  14. Ola Pessoal Eu nao quero deixar de informar os Tributos, mas quero poder informar como fazia antes e a formatacao do campo ficava de facil leitura conforme meus clientes ja estao acostumados Simplesmente quero que ao setar propriedade TributosSeparadamente = True e os campos de tributos passar com valor 0 para que eu mesmo informe os tributos com uma mensagem fornecida por mim mesmo. Anteriormente o componente fazia isso e apenas estou solicitando que deixem ele voltar a trabalhar assim. Se olharem a sujestao no fonte compreenderao o que quero fazer Vc compreendeu de maneira errada o que eu solicitei. Eu nao quero deixar de informar os Tributos, mas quero poder informar como fazia antes e a formatacao do campo ficava de facil leitura conforme meus clientes ja estao acostumados Simplesmente quero que ao setar propriedade TributosSeparadamente = True e os campos de tributos passar com valor 0 para que eu mesmo informe os tributos com uma mensagem fornecida por mim mesmo. Anteriormente o componente fazia isso e apenas estou solicitando que deixem ele voltar a trabalhar assim. Se olharem a sujestao no fonte compreenderao o que quero fazer
  15. Ola novamente Juliomar Gostaria de saber se a melhoria poder ou nao ser incluida no acbr visto que nao vai prejudicar em nada e que nao vai contra nenhum NT. Aguardo seu retorno.
  16. Obrigado Juliomar Assim que tiver resposta entao entro em contato. E que isso ja fuincionava anteriormente, e assim que eu enviar para o cliente, essa alteracao vai causar desconforto no cliente por isso entrei em contato com vcs.. muito obrigado pela atencao. Espero que tenhas me compreendido.. Abraços
  17. Como faço isso Juliomar??? Se bem que nao quero fazer nada diferente que o componente faz.. Olha so.. eu simplesmente quero essa funcionalidade para qdo estiver com ela setada para true eu posso escolher ou nao passar os valores para sair separadamente. Se eu nao passar valores a linha nao aparece, se eu passar valor a linha aparece ou entao ela vai aparecer de forma nao separada. Tudo vai continuar como é apenas eu terei a possilidade de informar da maneira que quero no cupom, somente isso
  18. Ola Juliomar Marchetti Nao encontrei nada que me obrigue a colocar separado ou nao no manual , a questao é a informacao continuara indo e respeitara a configuracao do componente ACBrNFeDANFeESCPOS.TributosSeparadamente = true o que funcionava antigamente mas de uma forma um pouco diferente e por algum motivo foi retirado. Outro detalhe, é que em alguns clientes tenho configuracoes diferentes. Um cliente quer que apresente tudo junto, outro quer separadamente entao isso resolveria o problema, visto que antes era assim seu funcionamento Encontrei o fragmento do codigo que continha essa funcionalidade antigamente.. assim podes dar uma olhada... nao sou tao conhecedor do componente mas acredito que essa melhoria nao prejudicaria em nada.. mas somente vcs podem dizer isso ou nao. 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;
  19. Boa tarde Gostaria de solicitar uma melhoria no componente ACBrNFeDANFeESCPOS o qual possui a opcao TributosSeparadamente que faz com que a impressao da NFCe sai com os tributos informados da maneira cheia ou entao separados, sendo que se for separado seria interessante apenas apresentar a mensagem caso as variaveis fossem populadas vTribEst vTribFed e vTribMun, mas caso elas continuassem com valor zerado, nada iria aparecer e ficaria livre para que o desenvolvedor incluisse as linhas da sua maneira assim como era feito antigamente. Isso me ajudaria pois ja tenho a mensagem pronta para impressao, so falta que o componente respeite essa opcao. Acredito que dessa forma nao irá prejudicar nenhum usuario do componente e ainda trara uma terceira opcao que é ao inves de poder escolher junto e separadamente, será separado mas com a maneira que o desenvolvedor colocar. Hoje o codigo no fonte ACBrNFeDANFeESCPOS .pas se encontra é o seguinte procedure TACBrNFeDANFeESCPOS.GerarTotalTributos; var MsgTributos : String; 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 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; A minha sujestao é que seja incluida essa linha de teste que coloquei em vermelho para que funcione da maneira que sujeri acima 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; Se for possivel, ficaria muito grato que essa alteracao fosse feita no componente para tornar mais flexivel o desenvolvimente e ainda mantendo o padrao do manual. Desde ja agradeço Att, Walmir Jose Ribeiro Junior [email protected]
  20. Mesmo erro encontrado C:\ACBr\Fontes\PCNComum\pcnGerador.pas(599) Error: E2010 Incompatible types: 'Boolean' and 'string' C:\ACBr\Fontes\PCNComum\pcnSignature.pas(2071) Fatal: F2063 Could not compile used unit 'pcnGerador.pas' Compilation failure Erro ao compilar o pacote "ACBr_PCNComum.dpk". Abortando... Ocorreram erros na compilação dos pacotes. Att, Walmir Ribeiro Junior
  21. Nao sei pq mas esta passando reto pelos testes e ai nao esta incluindo o qrcode como esta para vc. vou desinstalar e instalar novamente o acbr, vai ver que pode ser isso. Desculpe a insistencia mas o problema esta aqui eu axo
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.