SEF II (PE) - Inventario com problemas

[andrefaria]

Boa tarde Pessoal;

 

  Estou com um cliente de Pernambuco e la não usam o SPED e sim o SEF, e estou tentando gerar o RI, Registro de Inventario, que é somente o Bloco 0 e o Bloco H.

  O componente esta gerando um bloco E vazio, dando problemas.

  Acho que tambem não esta gerando a linha do perfil do contribuinte de acordo com o que foi sugerido no exemplo, linha 0030.

  Desculpe postar neste grupo, mas não achei o local correto, e este grupo é o que chega mais proximo.

[Juliomar Marchetti]

Usa o componente ACBrSEF2?

senão usa tente verificar ele e o exemplo!

[andrefaria]

Bom dia Juliomar;

  Eu usei o demo como base para desenvolvimento, adaptando somente para pegar os dados do meu banco de dados. La o bloco H não esta codificado, fiz a minha codificação, mas em nenhum momento eu escrevo o bloco E, ate o momento so estou usando para inventario.

Olha so tambem sobre o perfil 0030, no exemplo foi gerado :

|0030|0|5|0|0|0|1|1|1|1|0|1|1|1|1|1|1|1| Depois do |5| é sobre o ISS e eu escolhi 9, e saiu 0, segue reg.ini, deveria ser :

|0030|0|5|9|2|1|1|1|1|1|9|1|1|0|1|1|1|1|

cbbIND_ED=0- Digitação de dados
cbbIND_ARQ=5- Livros de resultados e obrigações
cbbPRF_ISS=9- Não obrigado a escriturar
cbbPRF_ICMS=2- Sim, com regime integral de escrituração e apuração normal do imposto
cbbPRF_RIDF=1- Não
cbbPRF_RUDF=1- Não
cbbPRF_LMC=1- Não
cbbPRF_RV=1- Não
cbbPRF_RI=1- Não
cbbIND_EC=9- Não obrigado a escriturar
cbbIND_ISS=1- Não
cbbIND_RT=1- Não
cbbIND_ST=1- Não
cbbIND_AT=1- Não
cbbIND_IPI=1- Não
cbbIND_RI=1- Não
cbbIND_ICMS=0- Sim

 

[EMBarbosa]

O que diz a legislação sobre o SEF II? Como reproduzir o problema utilizando o DEMO?

[andrefaria]

Bom dia;

 

  No demo não tem o inventario, não tem o bloco H feito, tive que fazer pessoalmente, segue codigo do meu bloco h.

 

   with ACBrSEF2.Bloco_H do
   begin
      with RegistroH001New do
      begin
         IND_DAD := icContConteudo;

         with RegistroH020New do
         begin
            IND_DT := 0;
            if (FormatDateTime('dd/mm', edtDataInventario.Date) <> '31/12') then
               IND_DT := 3;

            DT_INV := edtDataInventario.Date;
            VL_ESTQ := 0;

            stat1.Panels[0].Text := 'Inventario - Reg H030';
            ProgressBar1.Position := 0;

            qInventario.first;
            vvalor := 0;
            while not qInventario.eof do
            begin
               with RegistroH030New do
               begin
                  IND_POSSE := 0;
                  COD_PART := inttostr(dml.qLojasIDLOJA.AsInteger + 100000);
                  IND_ITEM := 0; //mercadoria propria para revenda
                  COD_NCM := strtoint(qInventarioCLASSIFICACAO_NCM.AsString);
                  COD_ITEM := qInventarioIDPRODUTO.AsString;
                  UNID := copy(qInventarioDESCRICAO_UNIDADE.AsString, 1, 10);
                  VL_UNIT := qInventarioCUSTO_DATA.AsCurrency;
                  QTD := qInventarioESTOQUE_FISCAL.AsCurrency;
                  VL_ITEM := RoundABNT(VL_UNIT * QTD, 2);

                  VL_ESTQ := VL_ESTQ + VL_ITEM;

               end;

               qInventario.next;
               ProgressBar1.StepIt;
            end;

            VL_ESTQ_NC := VL_ESTQ;

            with RegistroH040New do
            begin
               IND_POSSE := 0;
               VL_SUB_POSSE := VL_ESTQ;
            end;

            with RegistroH050New do
            begin
               IND_ITEM := 0;
               VL_SUB_ITEM := VL_ESTQ;
            end;

            stat1.Panels[0].Text := 'Inventario - Reg H060';
            ProgressBar1.Position := 0;

            vvalor := 0;
            qInventario.first;
            vncm := qInventarioCLASSIFICACAO_NCM.AsString;
            while not qInventario.eof do
            begin

               if (qInventarioESTOQUE_FISCAL.AsCurrency > 0) then
               begin
                  vvalor := vvalor + RoundABNT(qInventarioESTOQUE_FISCAL.AsCurrency * qInventarioCUSTO_DATA.AsCurrency, 2);
               end;

               qInventario.next;
               ProgressBar1.StepIt;

               if (qInventario.Eof) or (qInventarioCLASSIFICACAO_NCM.AsString <> vncm) then
               begin
                  with RegistroH060New do
                  begin
                     COD_NCM := strtoint(vncm);
                     VL_SUB_NCM := vvalor;
                  end;

                  vncm := qInventarioCLASSIFICACAO_NCM.AsString;
                  vvalor := 0;

               end;
            end;
         end;
      end;
   end;
   ACBrSEF2.WriteBloco_H;

 

[EMBarbosa]

Faltou a resposta as outras perguntas...

[andrefaria]

Não entendi o que voce perguntou sobre a legislação do SEF II, independente da legislação, estou escolhendo uma configuração, e esta salvando no bloco 0030 outra configuração.

Para simular, é so ir no demo, em delphi, e mandar gerar um arquivo qualquer, segue perfil gerado agora, e informacoes do Perfil que usei no demo :

|0030|0|0|0|0|0|1|1|1|1|0|1|1|1|1|1|1|1|

REG_030.ini

[eDOC]
cbbIND_ED=0- Digitação de dados
cbbIND_ARQ=5- Livros de resultados e obrigações
cbbPRF_ISS=9- Não obrigado a escriturar
cbbPRF_ICMS=2- Sim, com regime integral de escrituração e apuração normal do imposto
cbbPRF_RIDF=1- Não
cbbPRF_RUDF=1- Não
cbbPRF_LMC=1- Não
cbbPRF_RV=1- Não
cbbPRF_RI=1- Não
cbbIND_EC=9- Não obrigado a escriturar
cbbIND_ISS=1- Não
cbbIND_RT=1- Não
cbbIND_ST=1- Não
cbbIND_AT=1- Não
cbbIND_IPI=1- Não
cbbIND_RI=1- Não
cbbIND_ICMS=0- Sim

[Amanda Passos]

Prezados, alguém poderia me enviar um exemplo do arquivo SEF II Registro de Inventário? 

Desde já agradeço.

[ghsol]

BOA TARDE! ESTOU PRECISANDO GERAR O INVENTÁRIO PRA O SEFII. NUNCA UTILIZEI O COMPONENTE ACBRSEF2. GOSTARIA DE SABER SE ALGUÉM TERIA UMA ROTINA EXEMPLO PARA TER COMO REFERENCIA,

[Juliomar Marchetti]

6.3 - Mostre respeito pelo modo de escrever. Escreva de modo claro, gramaticalmente e semanticamente correto. Não escreva TUDO EM MAIÚSCULAS. Isso é lido como se estivesse gritando e é considerado rude. Favor leia as regras do fórum.