Ir para conteúdo
  • Cadastre-se

dev botao

  • Este tópico foi criado há 4684 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro
Postado

Bom dia,

Estou com um problema com o acbrpiscofins, quando estou mando gerar o arquivo o campo [ DTFIN ] quando esta gravando ele não está obdecendo a data passada sempre ela é modificada, os bloco [ A,C,D,F ] estou passando em [ IND_MOV = imsemdados ] e quando é preenchido no arquivo txt ele esta colocando 0. E ao validar o arquivo esta apresendo esses erros de validação ainda não conseguir encontrar solução caso alguem tenha passado por isso e conseguiu uma solução da um ajudinha ai ^.^

Att,

Éverton Bueno Lima

  • Consultores
Postado

Por favor, verifique o demo. Acho que ele tem ambos os exemplos.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
  • Membros Pro
Postado

Ola amigo, com os exemplos esta acontecendo a mesma coisa

|A001|0| <==== Deveria ficar: |A001|1|

|A990|2|

|C001|0| <==== Deveria ficar: |C001|1|

|C990|2|

|D001|0| <==== Deveria ficar: |D001|1|

|D990|2|

|F001|0| <==== Deveria ficar: |F001|1|

|F990|2|

Esse teste foi realizado com o exemplo [ ACBRPISCOFINS ], não marcando os arquivos acima para ser gerado.

Att,

Éverton

  • Consultores
Postado

???

Observe o bloco 1 a tag imSemDados

   with ACBrSPEDPisCofins1.Bloco_1 do
begin
with Registro1001New do
begin
IND_MOV := imSemDados;
end;
end;
[/code]

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
  • Membros Pro
Postado

Estou passando

with ACBrSPEDPisCofins1.Bloco_A do

begin

with RegistroA001New do

begin

IND_MOV := imSemDados;

end;

ACBrSPEDPisCofins1.WriteBloco_A(True);

end;

e quando entra no [ ACBRPISCOFINS ] nesse procedure

procedure TACBrSPEDPisCofins.WriteBloco_A( FechaBloco : Boolean );

begin

if Bloco_A.Gravado then exit ;

if not Bloco_0.Gravado then

WriteBloco_0;

/// BLOCO A

WriteRegistroA001;

******************** Esse campo está trazendo sempre [ imcomdados ] *******************************

if Bloco_A.RegistroA001.IND_MOV = imSemDados then

FechaBloco := True ;

***************************************************************************************

if FechaBloco then

WriteRegistroA990;

Bloco_A.WriteBuffer;

Bloco_A.Conteudo.Clear;

Bloco_A.Gravado := FechaBloco;

end;

Att,

Everton

  • Consultores
Postado

seu componente deve estar desatualizado ou eu não estou entendendo o seu problema.

Eu fiz o Seguinte:

Abri o demo do SPEDpisCofins

Mudei o código de icomDados para isemDados (linha 927):

   with ACBrSPEDPisCofins1.Bloco_A do
begin
with RegistroA001New do
begin
IND_MOV := imSemDados;
//
with RegistroA010New do
begin
[/code]

Cliquei em Todos os Blocos.

Cliquei em Gerar TXT.

Veja aí o resultado do Bloco A:

......

|0990|60|

|A001|1|

|A990|2|

|C001|0|

......

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
  • Consultores
Postado

Amigo, obrigado pela ajuda realmente o exemplo informando imsemdados ele colocou corretamente no txt, vou verificar aqui pq o meu esta deixando errado.

Obrigaod pela ajuda.....

Espero que resolva. :)

Uma sugestão é tentar mudar o código removendo o with. As vezes o uso dele confunde mais do que ajuda principalmente na hora de fazer o debug.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
  • Este tópico foi criado há 4684 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • 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.

The popup will be closed in 10 segundos...