modificaciones de pedido sugerido de abordo

2026-04-21 20:09:13 +00:00 · 2024-04-29 17:56:28 -06:00
parent f2fac1d020
commit 255374dca0
7 changed files with 104 additions and 18 deletions
--- a/B4A/C_Principal.bas
+++ b/B4A/C_Principal.bas
@@ -610,6 +610,7 @@ Sub cargar_Click
 		Starter.skmt.ExecNonQuery2("delete from kmt_info where substr(CAT_CL_CODIGO,1,1) <> ?", Array As Object ("N"))
 		Starter.skmt.ExecNonQuery("delete from cod_result")
 		Starter.skmt.ExecNonQuery("delete from hist_gest")
+		Starter.skmt.ExecNonQuery("delete from pedido_sugerido")
 		Starter.skmt.ExecNonQuery("delete from cat_gunaprod")
 		Starter.skmt.ExecNonQuery("delete from cat_gunaprod2")
 		Starter.skmt.ExecNonQuery("DELETE FROM CAT_GUNAPROD5")
@@ -1049,12 +1050,12 @@ Sub JobDone(Job As HttpJob)
 				For Each records() As Object In RESULT.Rows
 					Dim ID_PRODUCTO As String = records(RESULT.Columns.Get("ID_PRODUCTO"))
 					Dim CANTIDAD As String = records(RESULT.Columns.Get("PROMEDIO"))
-					c = Starter.skmt.ExecQuery2("SELECT * FROM CAT_GUNAPROD WHERE CAT_GP_ID = ?",Array As String(ID_PRODUCTO))
-					If c.RowCount > 0 Then
-						c.Position = 0 
-						Subs.actualizaProducto(ALMACEN, c.GetString("CAT_GP_PRECIO"),CANTIDAD, c.GetString("CAT_GP_NOMBRE"), ID_PRODUCTO,"0",Subs.traeFecha,usuario,e_ruta.Text,c.GetString("CAT_GP_PRECIO"),"ABORDO")
-					End If
-'					Starter.skmt.ExecNonQuery2("INSERT INTO PEDIDO(PE_TIPO, PE_RUTA, PE_CEDIS, PE_CANT,PE_PROID,PE_CLIENTE, PE_USUARIO) VALUES (?,?,?,?,?,?,?)", Array As Object ("ABORDO", e_ruta.Text, ALMACEN, CANTIDAD, ID_PRODUCTO, "0", usuario))
+'					c = Starter.skmt.ExecQuery2("SELECT * FROM CAT_GUNAPROD WHERE CAT_GP_ID = ?",Array As String(ID_PRODUCTO))
+'					If c.RowCount > 0 Then
+'						c.Position = 0 
+'						Subs.actualizaProducto(ALMACEN, c.GetString("CAT_GP_PRECIO"),CANTIDAD, c.GetString("CAT_GP_NOMBRE"), ID_PRODUCTO,"0",Subs.traeFecha,usuario,e_ruta.Text,c.GetString("CAT_GP_PRECIO"),"ABORDO")
+'					End If
+					Starter.skmt.ExecNonQuery2("INSERT INTO PEDIDO_SUGERIDO(ID_PRODUCTO, PROMEDIO,RUTA, ALMACEN) VALUES (?,?,?,?)", Array As Object (ID_PRODUCTO, CANTIDAD, e_ruta.Text, ALMACEN))
 				Next
 			End If
 		End If
@@ -1142,9 +1143,10 @@ Sub JobDone(Job As HttpJob)
 					Dim CAT_GP_DEV As String = records(RESULT.Columns.Get("CAT_GP_DEV"))
 					Dim CAT_GP_TIPOPROD As Int = records(RESULT.Columns.Get("CAT_GP_TIPOPROD"))
 					Dim CAT_GP_INICIATIVA As Int = records(RESULT.Columns.Get("CAT_GP_INICIATIVA"))
+					Dim CAT_GP_TIPOPROD2 As String = records(RESULT.Columns.Get("CAT_GP_TIPOPROD2"))
 					'CAT_GP_INICIATIVA = 5
 					'  skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_DEV) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_DEV))
-					Starter.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD,CAT_GP_INICIATIVA,CAT_GP_DEV,CAT_GP_CODPROMO) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,0)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD, CAT_GP_INICIATIVA,CAT_GP_DEV))
+					Starter.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD,CAT_GP_INICIATIVA,CAT_GP_DEV,CAT_GP_CODPROMO,CAT_GP_TIPOPROD2) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD, CAT_GP_INICIATIVA,CAT_GP_DEV, CAT_GP_TIPOPROD2))
 				Next
 				Starter.skmt.TransactionSuccessful
 				Starter.skmt.EndTransaction
@@ -2097,6 +2099,7 @@ Sub e_ruta_EnterPressed
 		If res = DialogResponse.POSITIVE Then
 			e_ruta.Text = ""
 			Starter.skmt.ExecNonQuery("delete from pedido_cliente")
+			Starter.skmt.ExecNonQuery("delete from pedido_sugerido")
 			Starter.skmt.ExecNonQuery("delete from pedido")
 			Starter.skmt.ExecNonQuery("delete from BITACORAGPS")
 			Starter.skmt.ExecNonQuery("delete from noventa")
@@ -2504,17 +2507,84 @@ Sub Resumen_Click
 		L_ABORDO.Text = c.GetString("TOTAL")
 		c.Close
 	End If
+	b.Close
 End Sub

 Sub B_PROXIMA_Click
-	If horaentrada Then
-		Starter.skmt.ExecNonQuery("delete from CUENTAA")
-		Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object("0"))
-		Starter.tipov = "ABORDO"
-		B4XPages.ShowPage("Productos")
-	Else
+	
+	b = Starter.skmt.ExecQuery("Select count(*) as CUANTOS from pedido where pe_cliente = 0 and pe_tipo = 'ABORDO' " )
+	b.Position = 0
+	
+	If b.GetString("CUANTOS") > 0 Then
+		
+		If horaentrada Then
+			Starter.skmt.ExecNonQuery("delete from CUENTAA")
+			Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object("0"))
+			Starter.tipov = "ABORDO"
+			B4XPages.ShowPage("Productos")
+		Else
+	
+		End If
+		
+	Else If b.GetString("CUANTOS") = 0 Then
+		
+		e = Starter.skmt.ExecQuery("SELECT * FROM PEDIDO_SUGERIDO")
+		If e.RowCount > 0 Then
+			
+			Msgbox2Async("Tienes un pedido sugerido, ¿Deseas aceptarlo?","Atención", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"),False)
+			Wait For Msgbox_Result (result As Int)
+			If result = DialogResponse.POSITIVE Then
+				
+				If horaentrada Then
+					
+					For i = 0 To e.RowCount - 1
+						e.Position = i
+						c = Starter.skmt.ExecQuery2("SELECT * FROM CAT_GUNAPROD WHERE CAT_GP_ID = ?",Array As String(e.GetString("ID_PRODUCTO")))
+						If c.RowCount > 0 Then
+							c.Position = 0
+							Subs.actualizaProducto(e.GetString("ALMACEN"), c.GetString("CAT_GP_PRECIO"),e.GetString("PROMEDIO"), c.GetString("CAT_GP_NOMBRE"), e.GetString("ID_PRODUCTO"),"0",Subs.traeFecha,usuario,e.GetString("RUTA"),c.GetString("CAT_GP_PRECIO"),"ABORDO")
+						End If
+				
+					Next
+					Starter.skmt.ExecNonQuery("delete from CUENTAA")
+					Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object("0"))
+					Starter.tipov = "ABORDO"
+					B4XPages.ShowPage("Productos")
+				
+				Else
+	
+				End If
+			
+			Else If result = DialogResponse.NEGATIVE Then

+				If horaentrada Then
+					Starter.skmt.ExecNonQuery("delete from CUENTAA")
+					Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object("0"))
+					Starter.tipov = "ABORDO"
+					B4XPages.ShowPage("Productos")
+				Else
+	
+				End If
+			
+			End If
+		
+		Else If c.RowCount = 0 Then
+			
+			If horaentrada Then
+				Starter.skmt.ExecNonQuery("delete from CUENTAA")
+				Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object("0"))
+				Starter.tipov = "ABORDO"
+				B4XPages.ShowPage("Productos")
+			Else
+	
+			End If
+			
+		End If
+		e.Close
+		
 	End If
+	b.Close
+	
 End Sub

 Sub horaentrada As Boolean