Ir para conteúdo
  • Cadastre-se

dev botao
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

Registro 60 analitico sem o registro mestre correspondente

laurovinicius

Por laurovinicius
em ACBrSintegra/ACBrPAF

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

Recommended Posts

laurovinicius Contributor

laurovinicius

Postado
Postado

Olá Amigos, estou tendo um probleminha com o registro 60m e 60a e gostaria da ajuda de voces!

1004564686000102103433449 Super Pao CALDAS NOVAS GO61304252772012070120120731331

11RUA B28 QD 38 LT 17 00004 ITANHANGA I 75690000RESPONSAVEL 006130425277

60M20120701BE0510756100000618460012D02203902212700070200300000000001163560000000036507013

60A201207011 17 000000072495

60A201207011 F 000000019075

60A201207011 I 000000000000

60A201207011 N 000000000000

60A201207011 DESC000000000000

60A201207011 CANC000000024786

9004564686000102103433449 6000000007 2

9004564686000102103433449 9900000011 2

nesse exemplo que voces podem ver, o validador gera os seguintes erros:

Registro 60 analitico sem o registro mestre correspondente(6 erros)

Registro 60M sem 60 a Correspondente(1 Erro)

Onde Estou Errando??

Link para o comentário
Compartilhar em outros sites
  • Consultores
EMBarbosa Veteran

EMBarbosa

Postado
  • Consultores
Postado

Faltou o número de série do equipamento nos registros 60A.

[]'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.
Link para o comentário
Compartilhar em outros sites
laurovinicius Contributor

laurovinicius

Postado
  • Autor
Postado

valeu EmBarbosa,Realmente faltava o numero do ECF...!!

Eu corrigi porem ainda da o mesmo erro! fiz um teste e veja como ficou esse arquivo:

1004564686000102103433449 TESTE SISTEMAS CALDAS NOVAS GO61304252772012070120120731331

11RUA B28 QD 38 LT 17 00004 ITANHANGA I 75690000RESPONSAVEL 006130425277

60M20120701BE0510756100000618460012D02203902212700070200300000000001163560000000036507013

60M20120702BE0510756100000618460012D02208402215800070300300000000000582600000000036565273

60M20120703BE0510756100000618460012D02213002220600070400300000000001445130000000036709786

60A20120701BE05107561000006184617 000000072495

60A20120701BE051075610000061846F 000000019075

60A20120701BE051075610000061846I 000000000000

60A20120702BE05107561000006184617 000000041160

60A20120702BE051075610000061846F 000000017100

60A20120702BE051075610000061846I 000000000000

60A20120703BE05107561000006184617 000000082430

60A20120703BE051075610000061846F 000000019276

60A20120703BE051075610000061846I 000000000000

9004564686000102103433449 6000000012 2

9004564686000102103433449 9900000016 2

ele ainda da o mesmo erro( Registro 60 analitico sem o registro mestre correspondente) e agora também diz tem Registro 60m sem o 60a correspondente

:evil:

Link para o comentário
Compartilhar em outros sites
  • Consultores
EMBarbosa Veteran

EMBarbosa

Postado
  • Consultores
Postado

Os registros estão fora de ordem pois precisam ser agrupados por dia:

60M

60A

60D

60I

60M

60A

60D

60I

60M

60A

60D

60I

[]'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.
Link para o comentário
Compartilhar em outros sites
  • Consultores
EMBarbosa Veteran

EMBarbosa

Postado
  • Consultores
Postado

Não é ordenados por dia e sim agrupados. Veja a formatação do meu comentário anterior.

[]'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.
Link para o comentário
Compartilhar em outros sites
laurovinicius Contributor

laurovinicius

Postado
  • Autor
Postado

Elton,depois de quebrar a cabeça Fazendo Loops, descobri que o componente nao agrupa da forma correta os registros!

Ele faz todos os 60m primeiro e depois todos os 60a...

Como voce disse, o correto é agrupar dessa forma:

60M

60A

60D

60I

Acontece que ao gerar o arquivo, o componente nao "obedece" meu loop! o que pode estar ocorrendo??

Link para o comentário
Compartilhar em outros sites
  • Consultores
EMBarbosa Veteran

EMBarbosa

Postado
  • Consultores
Postado

O componente faz essa ordenação automaticamente. Veja se está usando a propriedade VersaoValidador como vv524.

[]'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.
Link para o comentário
Compartilhar em outros sites
laurovinicius Contributor

laurovinicius

Postado
  • Autor
Postado

Sim eu alterei para essa versão, porém ele ainda gera todos os 60m primeiro e depois todos os 60a.

Por Ora só estou fazendo esses dois registros pra mim testar, mas nao to conseguindo fazer com que ele agrupe da forma que voce mencionou!

Veja Como Ficou meu codigo:

...

...

//Gerando os Registros 60M

Dm_Mysql.ZroRegistro60M.First;

while not Dm_Mysql.ZroRegistro60M.Eof do

begin

with ACBrSintegra do

begin

wregistro60M:=TRegistro60M.Create;

wregistro60M.Emissao:=Dm_Mysql.ZroRegistro60MDATA_EMISSAO.AsDateTime;

wregistro60M.NumSerie:=Dm_Mysql.ZroRegistro60MNUMERO_SERIE_ECF.AsString;

wregistro60M.NumOrdem:=Dm_Mysql.ZroRegistro60MNUMERO_EQUIPAMENTO.AsInteger;

wregistro60M.ModeloDoc:=Dm_Mysql.ZroRegistro60MMODELO_DOCUMENTO_FISCAL.AsString;

wregistro60M.CooInicial:=Dm_Mysql.ZroRegistro60MCOO_INICIAL.AsInteger;

wregistro60M.CooFinal:=Dm_Mysql.ZroRegistro60MCOO_FINAL.AsInteger;

wregistro60M.CRZ:=Dm_Mysql.ZroRegistro60MCRZ.AsInteger;

wregistro60M.CRO:=Dm_Mysql.ZroRegistro60MCRO.AsInteger;

wregistro60M.VendaBruta:=Dm_Mysql.ZroRegistro60MVALOR_VENDA_BRUTA.AsCurrency;

wregistro60M.ValorGT:=Dm_Mysql.ZroRegistro60MVALOR_GRANDE_TOTAL.AsCurrency;

ACBrSintegra.Registros60M.Add(wregistro60M);

//Gerando os 60A

Dm_mysql.ZroRegistro60a.First;

while not Dm_Mysql.ZroRegistro60a.Eof do

begin

wregistro60A:=TRegistro60A.Create;

wregistro60A.Emissao:=Dm_Mysql.ZroRegistro60ADATA_EMISSAO.AsDateTime;

wregistro60A.NumSerie:=Dm_Mysql.ZroRegistro60ANUMERO_SERIE_ECF.AsString;

wregistro60A.StAliquota:=Dm_Mysql.ZroRegistro60ASITUACAO_TRIBUTARIA.AsString;

wregistro60A.Valor:=Dm_Mysql.ZroRegistro60AVALOR.AsCurrency;

ACBrSintegra.Registros60A.Add(wregistro60A);

Dm_mysql.ZroRegistro60a.Next;

end;

end;//Fim with ACBrSintegra do

Dm_Mysql.ZroRegistro60M.Next;

end;//Fim while not Dm_Mysql.ZroRegistro60M.Eof do

Link para o comentário
Compartilhar em outros sites
  • Consultores
EMBarbosa Veteran

EMBarbosa

Postado
  • Consultores
Postado

tente passando a geração do 60A para fora e removendo os with desnecessários.

É mais ou menos assim que eu faço aqui:

//Gerando os Registros 60M

       Dm_Mysql.ZroRegistro60M.First;

       while not Dm_Mysql.ZroRegistro60M.Eof do

       begin

                      wregistro60M:=TRegistro60M.Create;

                      wregistro60M.Emissao:=Dm_Mysql.ZroRegistro60MDATA_EMISSAO.AsDateTime;

                      wregistro60M.NumSerie:=Dm_Mysql.ZroRegistro60MNUMERO_SERIE_ECF.AsString;

                      wregistro60M.NumOrdem:=Dm_Mysql.ZroRegistro60MNUMERO_EQUIPAMENTO.AsInteger;

                      wregistro60M.ModeloDoc:=Dm_Mysql.ZroRegistro60MMODELO_DOCUMENTO_FISCAL.AsString;

                      wregistro60M.CooInicial:=Dm_Mysql.ZroRegistro60MCOO_INICIAL.AsInteger;

                      wregistro60M.CooFinal:=Dm_Mysql.ZroRegistro60MCOO_FINAL.AsInteger;

                      wregistro60M.CRZ:=Dm_Mysql.ZroRegistro60MCRZ.AsInteger;

                      wregistro60M.CRO:=Dm_Mysql.ZroRegistro60MCRO.AsInteger;

                      wregistro60M.VendaBruta:=Dm_Mysql.ZroRegistro60MVALOR_VENDA_BRUTA.AsCurrency;

                      wregistro60M.ValorGT:=Dm_Mysql.ZroRegistro60MVALOR_GRANDE_TOTAL.AsCurrency;

                      ACBrSintegra.Registros60M.Add(wregistro60M);

            Dm_Mysql.ZroRegistro60M.Next;

      end;//Fim while not Dm_Mysql.ZroRegistro60M.Eof do


      //Gerando os 60A

      Dm_mysql.ZroRegistro60a.First;

      while not Dm_Mysql.ZroRegistro60a.Eof do

      begin

            wregistro60A:=TRegistro60A.Create;

            wregistro60A.Emissao:=Dm_Mysql.ZroRegistro60ADATA_EMISSAO.AsDateTime;

            wregistro60A.NumSerie:=Dm_Mysql.ZroRegistro60ANUMERO_SERIE_ECF.AsString;

            wregistro60A.StAliquota:=Dm_Mysql.ZroRegistro60ASITUACAO_TRIBUTARIA.AsString;

            wregistro60A.Valor:=Dm_Mysql.ZroRegistro60AVALOR.AsCurrency;

            ACBrSintegra.Registros60A.Add(wregistro60A);

            Dm_mysql.ZroRegistro60a.Next;

      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.
Link para o comentário
Compartilhar em outros sites
laurovinicius Contributor

laurovinicius

Postado
  • Autor
Postado

Elton,Desculpa, Mas tambem nao Deu certo..

Teoricamente, do jeito que voce me passou, ele faz primeiramente todos os 60m, e depois todos os 60a(me corrija se eu estiver errado)

o fato é que eu to empacado com esses registros :|

você poderia me ceder um pedaço do trecho do seu codigo onde faz esses registro? não sei mais o que fazer!!!

Link para o comentário
Compartilhar em outros sites
  • Consultores
EMBarbosa Veteran

EMBarbosa

Postado
  • Consultores
Postado

Faz um debug...

Eu faço do jeito que passei o código, gerando todos os 60m e depois os 60a e depois os outros 60. O componente ordena tudo no final.

EDIT: seus componentes estão atualizados? Tentou com o exemplo?

[]'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.
Link para o comentário
Compartilhar em outros sites
laurovinicius Contributor

laurovinicius

Postado
  • Autor
Postado

Elton..Valeu Pela Ajuda Mano!

Fiquei Tão "abitolado" com determinado "trecho" do código e esqueci de outros.

Resumindo:Meus Componentes estavam atualizados, e meu código estava correto!!! O problema era realmente a versão do Validador que estava incorreta!!

Mas não no Componente e sim no meu sistema!!!!

Ou seja, eu alterei a versão do componente AcbrSintegra para vv524 porém não fiz isso no meu sistema!!!!!!!!!!! :oops::oops::oops:

Bom, tenho que ser "Homem" pra falar que eu esqueci de alterar a versao do validador no meu sistema(Assim como no exemplo acbr)

Eu simplesmente ignorei isso, ou melhor esqueci!!!!!! de repente me deu um istalo é......rssss tinha debugado umas 3 veses porem só o trecho dos registros!!

ai fiz tudo do começo e descobri a "Cagada"

Bom, De qualquer forma, sua Ajuda foi imprescindível. uma vez que eu estava ordenando de forma incorreta os registros!! Valeu mesmo peja ajuda!!!

Agora vou pro 60D e 60I e etc..

  • Curtir 1
Link para o comentário
Compartilhar em outros sites
  • Consultores
EMBarbosa Veteran

EMBarbosa

Postado
  • Consultores
Postado

Isso acontece. Que bom que resolveu!

Bom trabalho aí.

[]'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.
Link para o comentário
Compartilhar em outros sites
  • 10 meses depois ...
  • 2 meses depois ...
  • Este tópico foi criado há 3864 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
 Compartilhar
Ir para a lista de tópicos
×
×
  • 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.