-- option strict on

asmx/WsTSoft.asmx

@@ -19,7 +19,7 @@ Public Class WsTSoft
     Inherits System.Web.Services.WebService
 
     <WebMethod()>
-    Public Function AddRemision(FolioRemision As String, NoEconomico As String, CveEstatus As Integer, GeoInicial As String, GeoCarga As String, GeoEntrega As String, Fecha As String) As String
+    Public Function AddRemision(FolioRemision As String, NoEconomico As String, CveEstatus As Integer, GeoInicial As String, GeoCarga As String, GeoEntrega As String, Fecha As Date) As String
         Dim retorno As String = ""
         Dim Continuar As Boolean = False
 
@@ -54,7 +54,7 @@ Public Class WsTSoft
     End Function
 
     <WebMethod()>
-    Public Function UpEstatusRemision(FolioRemision As String, CveEstatus As String) As String
+    Public Function UpEstatusRemision(FolioRemision As String, CveEstatus As Integer) As String
         Dim retorno As String = ""
         Dim objTsoft As New ClsTSoft
         Dim Continuar As Boolean = objTsoft.UpEstatusRemision(FolioRemision, CveEstatus)
@@ -106,7 +106,7 @@ Public Class WsTSoft
                         OnError("Ocurrió un error al asignar las direcciones", ex)
                     End Try
 
-                    Dim RowPosicion As DataRow = DtPosicion.Rows("0")
+                    Dim RowPosicion As DataRow = DtPosicion.Rows(0)
 
                     ObjPos.Fecha = RowPosicion("Fecha").ToString().ToDateTime().ToString("dd/MM/yyyy HH:mm:ss")
                     ObjPos.Lat = RowPosicion("Lat").ToString()