LOOP UM DENTRO DO OUTRO

   If Ckb_NFe_Entradas.Checked = True Then
                    Try [ô]ENTRADAS - NFE
                        con.Open()
                        Dim sql As String
                        Dim cmd As OleDbCommand
                        For j = 0 To Dgv_Fornecedor_BlocoC100.Rows.Count - 1
                            sql = [Ô]SELECT Compras.[codigo], Compras.[modelo], Compras.[serie], Compras.[NumeroNotaFiscal], Compras.[ChaveNFe], Compras.[CodigoFornecedor], Compras.[DataEmissao], Compras.[DataEntrada], Compras.[Valor_Total_Nota], Compras.[Vrl_Total_Produto], Compras.[Vlr_Total_Desconto], Compras.[Vlr_Total_Frete], Compras.[Vlr_Total_Seguro], Compras.[Vlr_Total_OutrasDesp], Compras.[Vlr_total_bsCal_icms], Compras.[Vlr_total_vlr_icms], Compras.[Vlr_total_bsCal_icmsST], Compras.[modFrete], Compras.[Vlr_total_vlr_icmsST], Compras.[Vlr_total_IPI], Compras.[Indicador_Pagamento], Compras.[Vlr_Total_PIS], Compras.[Vlr_Total_COFINS] FROM Compras WHERE DataEntrada between @datainicial and @datafinal and codigo=?[Ô]
                            cmd = New OleDbCommand(sql, con)

                            cmd.Parameters.AddWithValue([Ô]@datainicial[Ô], mskDIni.Value.Date)
                            cmd.Parameters.AddWithValue([Ô]@datafinal[Ô], mskDFim.Value.Date)
                            cmd.Parameters.Add(New OleDb.OleDbParameter([Ô]@codigo[Ô], Dgv_Fornecedor_BlocoC100.Rows(j).Cells([Ô]codigo[Ô]).Value.ToString()))

                            Limpa_variaveis_Bloco_C100()

                            dr = cmd.ExecuteReader
                            If dr.HasRows Then
                                dr.Read()
                                If Not IsDBNull(dr.Item([Ô]codigo[Ô])) Then COD_PART = dr.Item([Ô]codigo[Ô])
                                COD_PART = Format(CInt(COD_PART), [Ô]00000[Ô])
                                COD_PART = [Ô]F[Ô] & COD_PART
                                If Not IsDBNull(dr.Item([Ô]modelo[Ô])) Then COD_MOD = dr.Item([Ô]modelo[Ô])
                                If Not IsDBNull(dr.Item([Ô]serie[Ô])) Then SER = dr.Item([Ô]serie[Ô])
                              
                                Qtd_Linha_Bloco_C = Qtd_Linha_Bloco_C + 1
                                Qtd_Linha_Bloco_C100 = Qtd_Linha_Bloco_C100 + 1
                                Qtd_Linha_ArquivoDigital = Qtd_Linha_ArquivoDigital + 1


                                If Ckb_Itens.Checked = True Then
                                    For P = 0 To Dgv_ItensProdtCompra_BlocoC170.Rows.Count - 1
                                        sql = [Ô]SELECT Compras.DataEntrada, Itens_Compra.id_compra, Itens_Compra.id_produto, produtos.descricao, Itens_Compra.qtd_item, produtos.undMedida, Itens_Compra.vrl_total_item, Itens_Compra.desconto, Itens_Compra.cst, Itens_Compra.Cfop_Nota, produtos.Cst_Ipi FROM produtos INNER JOIN (Compras INNER JOIN Itens_Compra ON Compras.[codigo] = Itens_Compra.[id_compra]) ON produtos.[codigo] = Itens_Compra.[id_produto] WHERE DataEntrada between @datainicial and @datafinal and Itens_Compra.id_produto=? and Itens_Compra.id_compra=?[Ô] [ô]Itens_Compra.id_produto=?[Ô]
                                        cmd = New OleDbCommand(sql, con)

                                        cmd.Parameters.AddWithValue([Ô]@datainicial[Ô], mskDIni.Value.Date)
                                        cmd.Parameters.AddWithValue([Ô]@datafinal[Ô], mskDFim.Value.Date)
                                        cmd.Parameters.Add(New OleDb.OleDbParameter([Ô]@id_produto[Ô], Dgv_ItensProdtCompra_BlocoC170.Rows(P).Cells([Ô]id_produto[Ô]).Value.ToString()))
                                        cmd.Parameters.Add(New OleDb.OleDbParameter([Ô]@id_compra[Ô], Dgv_ItensProdtCompra_BlocoC170.Rows(P).Cells([Ô]id_compra[Ô]).Value.ToString()))

                                        dr = cmd.ExecuteReader
                                        If dr.HasRows Then
                                            dr.Read()
                                            Num_Seq_Item_Doc = Num_Seq_Item_Doc + 1

                                            If Not IsDBNull(dr.Item([Ô]id_produto[Ô])) Then Cod_Item_Doc = dr.Item([Ô]id_produto[Ô])
                                            Cod_Item_Doc = Format(CInt(Cod_Item_Doc), [Ô]00000[Ô])
                                            Cod_Item_Doc = [Ô]P[Ô] & Cod_Item_Doc
                                            If Not IsDBNull(dr.Item([Ô]descricao[Ô])) Then Desc_Item_Doc = dr.Item([Ô]descricao[Ô])
                                     
                                            Qtd_Linha_Bloco_C = Qtd_Linha_Bloco_C + 1
                                            Qtd_Linha_Bloco_C170 = Qtd_Linha_Bloco_C170 + 1
                                            Qtd_Linha_ArquivoDigital = Qtd_Linha_ArquivoDigital + 1

                                        End If
                                    Next
                                End If

                            End If
                        Next
                    Catch ex As Exception
                        MsgBox([Ô]Ocorreu um erro ao carregar os dados da Compra - Bloco C100.[Ô], MsgBoxStyle.Exclamation)
                    Finally
                        con.Close()
                    End Try
                End If