acbr Sped Fiscal Preencher Bloco Registro0200New

[Werner dos Santos Souza]

 Estou com uma duvida básica, estou tendo dificudade de linkar a query com o preenchimento do bloco.

      Qry_Sped.first ;      // Aqui é a minha query
      While not Qry_Sped.eof do     // Faço o loop
     // for int0200 := 1 to 10 do      // Tirei este loop e substiuti pelo loop da query  
      begin
        with Registro0200New do
        begin
          COD_ITEM   := FormatFloat('000000', int0200);
          DESCR_ITEM := Qry_Sped.FieldByName('NOME').AsString + FormatFloat('000000', int0200);
          COD_BARRA := '';
          UNID_INV  := strUNID[int0200 mod (High(strUNID)+1)];
          TIPO_ITEM := tiMercadoriaRevenda;
          COD_NCM := Qry_Sped.FieldByName('CODIGO_MCM').AsString ;
          COD_GEN := '30';
          ALIQ_ICMS := Qry_Sped.FieldByName('ALIQUOTA_ICM').AsFloat ;

 

   Mas não esta funcionando.

 

   Alguém tem um exemplo ?

 

[Juliana Tamizou]

Bom dia,

Oque exatamente não está dando certo? Você chegou a ver os demos?

Att.

[Werner dos Santos Souza]

Em 18/02/2019 at 08:51, Juliana Tamizou disse:

Bom dia,

Oque exatamente não está dando certo? Você chegou a ver os demos?

Att.

Boa tarde.

    Sim estou com os demos, mas uma duvida persiste, de uma olhada no pedaço do fonte, 

 

            // REGISTRO C170: ITENS DO DOCUMENTO (CÓDIGO 01, 1B, 04 e 55).
          for IItens := 1 to 10 do == >   E AQUI QUE TROCO PELO LOOP DA QUERY,     WHILE NOT QUEYY.EOF        .....     eu inclui mas não esta dando certo.
          begin
            with RegistroC170New do // Inicio Adicionar os Itens:
            begin
              NUM_ITEM := FormatFloat('000', IItens);
              COD_ITEM := FormatFloat('000000', StrToInt(NUM_ITEM));

[EMBarbosa]

Em 17/02/2019 at 22:40, Werner dos Santos Souza disse:

Mas não esta funcionando.

O que não está funcionando?

 

1 hora atrás, Werner dos Santos Souza disse:

          for IItens := 1 to 10 do == >   E AQUI QUE TROCO PELO LOOP DA QUERY,     WHILE NOT QUEYY.EOF        .....     eu inclui mas não esta dando certo.

Isso parece correto.

Será necessário você dar mais informações sobre o que você esperava e o que está realmente acontecendo.

[Werner dos Santos Souza]

8 horas atrás, EMBarbosa disse:

O que não está funcionando?

 

Isso parece correto.

Será necessário você dar mais informações sobre o que você esperava e o que está realmente acontecendo.

  Este é o trecho do meu programa , esta correto ? 

      Qry_Sped.first ;
      While not Qry_Sped.eof do
     // for int0200 := 1 to 10 do
      begin
        with Registro0200New do
        begin
          COD_ITEM   := FormatFloat('000000', int0200);
          DESCR_ITEM := Qry_Sped.FieldByName('NOME').AsString + FormatFloat('000000', int0200);
          COD_BARRA := '';
          UNID_INV  := strUNID[int0200 mod (High(strUNID)+1)];
          TIPO_ITEM := tiMercadoriaRevenda;
          COD_NCM := Qry_Sped.FieldByName('CODIGO_MCM').AsString ;
          COD_GEN := '30';
          ALIQ_ICMS := Qry_Sped.FieldByName('ALIQUOTA_ICM').AsFloat ;

          with Registro0220New do    ======= >    aqui pego a unidade de medida, no meu caso só tenho um não preciso deste loop 
          begin
            UNID_CONV := strUNID[int0200 mod (High(strUNID)+1)];
            FAT_CONV := 1;
          end;
          Qry_Sped.next ;             =========>    aqui passo para o proximo  

        end;
      end;

 

 

[Juliana Tamizou]

Bom dia.

Ainda não ficou claro o que não está dando certo para você, os itens não estão sendo incluídos??

Att.

[Juliana Tamizou]

Tópico fechado por falta de retorno do usuário