Junior82
-
Total de ítens
63 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por Junior82
-
-
Bom dia pessoal
Nao estou conseguindo utilizar a funcao ACBrNFe1.DistribuicaoDFePorChaveNFeApos 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
beginif 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; -
-
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
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 -
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..
Obrigadops: acredito que agora estou compreendendo o que estavas me dizendo
-
-
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;beginif TributosSeparadamente = False thenbeginif FpNFe.Total.ICMSTot.vTotTrib > 0 thenbeginFPosPrinter.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;endelsebeginif (vTribFed > 0) or (vTribEst > 0) or (vTribMun > 0) thenbeginFPosPrinter.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) <> '' thenFPosPrinter.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 direitaso quero que imprima separadamente, mas da minha maneira...
o componente trabalhava assim antes e nao tem problema em continuar assim
![IMG_20170825_092315459[1].jpg](//www.projetoacbr.com.br/forum/applications/core/interface/js/spacer.png)
-
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;
-
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 -
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 fazer44 minutos atrás, BigWings disse:Pelo que entendi, você quer uma forma de o componente ignorar a informação vTotTrib do XML, não imprimindo uma informação obrigatória por Lei.
Não creio que será aceito.
A propriedade TributosSeparadamente é redundante, basta não popular a vTribFed, vTribEst e vTribMun.
Se não quer que seja impresso a vTotTrib, basta não informá-la na NFCe.
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 -
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. -
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 -
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
-
É possivel realizar essa melhoria no componente Juliomar ???
-
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;
beginif TributosSeparadamente = False thenbeginif FpNFe.Total.ICMSTot.vTotTrib > 0 thenbeginFPosPrinter.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;endelsebeginif (vTribFed > 0) or (vTribEst > 0) or (vTribMun > 0) thenbeginFPosPrinter.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) <> '' thenFPosPrinter.Buffer.Add('<c>' + PadSpace('Fonte : '+FonteTributos+'|' +ChaveTributos, FPosPrinter.ColunasFonteCondensada, '|'));FPosPrinter.Buffer.Add('</linha_simples>');end;end;end; -
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;varMsgTributos : String;beginif (vTribFed+vTribEst+vTribMun) > 0 thenbeginMsgTributos:= '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));endelsebeginif FpNFe.Total.ICMSTot.vTotTrib > 0 thenbeginMsgTributos:= '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 acimaprocedure TACBrNFeDANFeESCPOS.GerarTotalTributos;varMsgTributos : String;beginif TributosSeparadamente = True thenbeginif (vTribFed+vTribEst+vTribMun) > 0 thenbeginMsgTributos:= '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));endendelsebeginif FpNFe.Total.ICMSTot.vTotTrib > 0 thenbeginMsgTributos:= '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çoAtt,Walmir Jose Ribeiro Junior -
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
-
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
![IMG_20170825_092315459[1].jpg](https://www.projetoacbr.com.br/forum/uploads/monthly_2017_08/59a037fb6c4ac_IMG_20170825_0923154591.jpg.081316c9bc01680fa1404ac38c56285c.jpg)
Downlaod xml DistribuicaoDFe
em ACBrNFe
Postado
quer dizer que isso esta correto entao Renyldo Campos Pereira??