22/9/23 - Cambios en Nota y nuevo servicio "NotificationService"

- Se modifico "Nota" para que cuando ya este guardado el pedido, ya no se puedan borrar los productos individuales.
- Se agregó el servicio "NotificationService" para interceptar notificaciones y por medio de un mensaje de WhatsApp (#NS http://10.0.0.205:1782), cambiar el servidor de DBReq.
- Se estandarizó el DBreqServer en Starter.DBReqServer.

B4A/C_Subs.bas

@@ -37,7 +37,7 @@ Sub dbInit As SQL
 	If File.Exists(File.DirInternal, "kmt.db") = False Then File.Copy(File.DirAssets, "kmt.db", File.DirInternal, "kmt.db")
 	db.Initialize(File.DirInternal,"kmt.db", True)
 	dbOk(True)
-	Log(db.IsInitialized)
+'	Log(db.IsInitialized)
 	Return db
 End Sub
 
@@ -561,7 +561,7 @@ Sub mandaPendientes 'ignore
 	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")
+	c=Starter.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
@@ -595,4 +595,4 @@ Sub mandaPendientes 'ignore
 		Next
 	End If
 	ab.Close
-End Sub
+End Sub