Quitar lineas extra.

seleccion.bas

@@ -855,26 +855,19 @@ Sub Subir_Click
 '			Next
 '		End If
 '		c.Close
-'	
-	
-	
-		
 		' DROP
 
 		t1.Initialize("T1", 20000) ' 1000 = 1 second
 		t1.Enabled = True
   
 		img2.Visible =True
-	
-	
 		'	ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True)
 		If S_CP.Text = "SUBIENDO" Then
 			S_CP.Text = "VALIDANDO"
 		End If
-		
-
 	End If
 End Sub
+
 Sub cargar_Click
 	Log(SERVER)
 	CARGA = "CARGAR"
@@ -1766,10 +1759,8 @@ Sub JobDone(Job As HttpJob)
 			Dim RESULT As DBResult = reqManager.HandleJob(Job)
 			If RESULT.Tag = "ins_pedido" Then 'query tag
 				For Each records() As Object In RESULT.Rows
-		
 					PB2.Progress = PB2.Progress + 5
 					''			S_CP.Text = "SUBIENDO"
-			  
 				Next
 				PB2.Progress = 100
 				S_CP.Text = "LISTO"
@@ -1794,12 +1785,7 @@ Sub JobDone(Job As HttpJob)
 			Dim RESULT As DBResult = reqManager.HandleJob(Job)
 			If RESULT.Tag = "count_cli" Then 'query tag
 				For Each records() As Object In RESULT.Rows
-           
 					COUNT_CLIE = records(RESULT.Columns.Get("COUNT_CLIE"))
-        
-		   
-						   
-		   
 				Next
 			End If
 		End If
@@ -1810,14 +1796,8 @@ Sub JobDone(Job As HttpJob)
 				skmt.ExecNonQuery("delete from telefonos")
 					
 				For Each records() As Object In RESULT.Rows
-           
 					Dim FOLIO_PE As String = records(RESULT.Columns.Get("FOLIO"))
-           
 					skmt.ExecNonQuery2("INSERT INTO telefonos (PR_CD_CREDITO) VALUES (?)", Array As Object (FOLIO_PE))
-	   
-		   
-						   
-		   
 				Next
 				PASO_info = 1
 			End If