Cambios para visualizar las listas de precios en productos (Perfiles)

B4A/C_Principal.bas

@@ -613,18 +613,13 @@ Sub Subir_Click
 '				cmd.Name = "update_folio"
 '				cmd.Parameters = Array As Object(armafolio,l_ruta.Text , "1")
 '				reqManager.ExecuteQuery(cmd , 0, "folio")
-
-	
 		If PERFIL = "V-ESPECIAL" Then
-
-		
 			c=skmt.ExecQuery("SELECT PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO, PE_COSTO_SIN, PE_RUTA, PE_DESC, PE_FOLIO,PE_TIPO FROM PEDIDO ORDER BY PE_CLIENTE")
 			d=skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDO FROM PEDIDO")
 			d.Position=0
 			If c.RowCount>0 Then
 				For i=0 To c.RowCount -1
 					c.Position=i
-			 
 					Dim cmd As DBCommand
 					cmd.Initialize
 					cmd.Name = "insert_pedido_esp_DUR"
@@ -642,7 +637,6 @@ Sub Subir_Click
 				For i=0 To c.RowCount -1
 					c.Position=i
 					TIEMPO =  TIEMPO + 1
-					
 					If TIEMPO  > 20 Then
 						If L_P_2.Text = "Envio de Pedidos" Then
 							L_P_2.Text = "Envio de Pedidos --"
@@ -659,7 +653,6 @@ Sub Subir_Click
 						T3.Enabled = True
 						Wait For  t3_tick
 						TIEMPO = 0
-			 	
 					End If
 					conteo = conteo + 1
 					cuantos_ped = D.GetString("CUANTOS_PEDIDO")
@@ -669,13 +662,10 @@ Sub Subir_Click
 					cmd.Name = "insert_pedido_DUR"
 					cmd.Parameters = Array As Object(C.GetString("PE_CEDIS"),ALMACEN,C.GetString("PE_COSTO_TOT"),C.GetString("PE_COSTOU"),C.GetString("PE_CANT"),C.GetString("PE_PRONOMBRE"),C.GetString("PE_PROID"),C.GetString("PE_CLIENTE"),C.GetString("PE_FECHA"),C.GetString("PE_USUARIO"),C.GetString("PE_RUTA"), C.GetString("PE_COSTO_SIN"),C.GetString("PE_DESC"),c.GetString("PE_FOLIO"), c.GetString("PE_TIPO"))
 					reqManager.ExecuteQuery(cmd , 0, "ins_pedido")
-
 				Next
 				c.Close
 			End If
-		
 		End If
-	
 		cuantos_pedido = D.GetString("CUANTOS_PEDIDO")
 		d.Close