- VERSION 4.11.01

- Se agregó Durakelo al envio y validación

B4A/Subs.bas

@@ -172,6 +172,19 @@ Sub traeRuta As String 'ignore
 	Return r
 End Sub
 
+'Regresa la ruta del cliente dado de la tabla pedido.
+Sub traeRutaPedidoCliente(idcliente As String) As String 'ignore
+	Private r As String
+	Private c As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select PE_RUTA from pedido where PE_CLIENTE = '${idcliente}'"$)
+	r = "0"
+	If c.RowCount > 0 Then
+		c.Position = 0
+		r = c.GetString("PE_RUTA")
+	End If
+	c.Close
+	Return r
+End Sub
+
 'Regresa el cliente actual desde CUENTAA.
 Sub traeCliente As String 'ignore
 	Private c As Cursor