...

B4A/C_Subs.bas

@@ -46,6 +46,7 @@ Sub dbOk(Success As Boolean)
 	End If
 End Sub
 
+'Inicializamos el DBReqServer.
 Sub reqManagerInit As DBRequestManager
 	Private rm As DBRequestManager
 	rm.Initialize(Me, traeDBReqServerDeBD(db))
@@ -53,6 +54,7 @@ Sub reqManagerInit As DBRequestManager
 	Return rm
 End Sub
 
+'Reinicializamos el DBReqServer.
 Sub reqManagerReInit
 	Log("reqManager ReInit")
 	reqManager = reqManagerInit
@@ -494,4 +496,92 @@ Sub notiLowReturn(title As String, Body As String, id As Int) As Notification 'i
 	notification.Notify(id)
 '	Log("notiLowReturn SetInfo")
 	Return notification
+End Sub
+
+'Regresa el almacen actual de la base de datos.
+Sub traeAlmacen As String 'ignore
+	Private c As Cursor
+	Private a As String
+	c = db.ExecQuery("select  ID_ALMACEN from CAT_ALMACEN")
+	c.Position = 0
+	a = C.GetString("ID_ALMACEN")
+	c.Close
+	Return a
+End Sub
+
+'Regresa la ruta actual de la base de datos.
+Sub traeRuta As String 'ignore
+	Private c As Cursor
+	Private r As String
+	c = db.ExecQuery("select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
+	r = "0"
+	If c.RowCount > 0 Then
+		c.Position=0
+		r = c.GetString("CAT_CL_RUTA")
+	End If
+	c.Close
+	Return r
+End Sub
+
+'Mandamos los pedidos pendientes (pc_envio_ok <> 1).
+Sub mandaPendientes 'ignore
+	Private logger As Boolean = False
+	'PEDIDO_CLIENTE (Pendientes)
+	Private c As Cursor = db.ExecQuery("SELECT PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT, PC_COSTO_SIN, PC_RUTA, PC_ALMACEN, PC_FACTURA FROM PEDIDO_CLIENTE where pc_envio_ok <> 1")
+	If logger Then Log($"Pedido_Cliente PENDIENTE: ${c.RowCount}"$)
+	Private almacen As String = traeAlmacen
+	Private ruta As String = traeRuta
+	If c.RowCount>0 Then
+		For i = 0 To c.RowCount - 1
+			c.Position = i
+			Dim cmd As DBCommand
+			cmd.Initialize
+			cmd.Name = "DELETE_PEDIDO_MARDS_PC"
+			cmd.Parameters = Array As Object(almacen, ruta, c.GetString("PC_CLIENTE") )
+			reqManager.ExecuteCommand(cmd , "DEL_PC")
+				
+			Dim cmd As DBCommand
+			cmd.Initialize
+			cmd.Name = "insert_pedidos_MARDS"
+			If logger Then Log($"${c.GetString("PC_CLIENTE")}, ${almacen}"$)
+			cmd.Parameters = Array As Object(C.GetString("PC_CLIENTE"), C.GetString("PC_FECHA"), C.GetString("PC_USER"), C.GetString("PC_NOART"), C.GetString("PC_MONTO"), C.GetString("PC_LON"), C.GetString("PC_LAT"), almacen, ruta, C.GetString("PC_COSTO_SIN"), C.GetString("PC_FACTURA"))
+			reqManager.ExecuteCommand(cmd , $"ins_pedidosPendientes_head_${c.GetString("PC_CLIENTE")}"$)
+		Next
+	End If
+
+	'PEDIDO (Pendientes)
+	c=B4XPages.MainPage.skmt.ExecQuery("SELECT PC_ENVIO_OK, 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 FROM pedido_cliente left join PEDIDO where pc_cliente = pe_cliente and pc_envio_ok <> 1")
+	If logger Then Log($"Pedido PENDIENTE: ${c.RowCount}"$)
+	If c.RowCount>0 Then
+		For i = 0 To c.RowCount - 1
+			c.Position = i
+			Dim cmd As DBCommand
+			
+			cmd.Initialize
+			cmd.Name = "DELETE_PEDIDO_MARDS_PE"
+			cmd.Parameters = Array As Object(almacen, ruta,c.GetString("PE_CLIENTE") )
+			reqManager.ExecuteCommand(cmd , "DEL_PE")
+			
+			cmd.Initialize
+			cmd.Name = "insert_pedido_MARDS"
+			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"))
+			reqManager.ExecuteCommand(cmd , $"ins_pedidosPendientes_prods_${c.GetString("PE_CLIENTE")}"$)
+		Next
+	End If
+
+	'ABONOS
+	Dim ab As Cursor = db.ExecQuery($"SELECT * from ABONOS where a_enviado is null"$)
+	If logger Then Log(ab.RowCount)
+	If ab.RowCount > 0 Then
+		For i = 0 To ab.RowCount - 1
+			ab.Position = i
+			Dim cmd As DBCommand
+			cmd.Initialize
+			cmd.Name = "insert_abono_MARDS"
+			cmd.Parameters = Array As Object( ab.GetString("a_usuario"), ab.GetString("a_ruta"), ab.GetString("a_cliente"), ab.GetString("a_abono"), ab.GetString("a_fecha") )
+			reqManager.ExecuteCommand(cmd , $"ins_abonosPendientes_${ab.GetString("a_cliente")}"$)
+			if logger then Log($"ins_abonosPendientes_${ab.GetString("a_cliente")}"$)
+		Next
+	End If
+	ab.Close
 End Sub