Commit inicial Ventas Productivo

PortalGPS/PruebaTSoft.aspx.vb.exclude

@@ -0,0 +1,32 @@
+Option Strict On
+Imports Extensiones
+Partial Class PruebaTSoft
+    Inherits System.Web.UI.Page
+    Private Sub BtnAddRemision_Click(sender As Object, e As EventArgs) Handles BtnAddRemision.Click
+        Dim ObjWS As New MyPRTSoft.WsTSoftSoapClient
+        Dim Resultado = ObjWS.AddRemision(TxtRemision2.Text, TxtNoEconomico2.Text, TxtCveEstatus.Text.ToEntero, TxtGeoInicio.Text, TxtGeoFin.Text, TxtFecha.Text)
+        LblAddRemision.Text = Resultado
+        UpDatos.Update()
+    End Sub
+
+    Private Sub BtnGetRemision_Click(sender As Object, e As EventArgs) Handles BtnGetRemision.Click
+        Dim ObjWS As New MyPRTSoft.WsTSoftSoapClient
+        Dim Resultado = ObjWS.GetRemisionHistorial(TxtFolioRemision.Text, TxtNoEconomico.Text)
+        LtlRemision.Text = Resultado
+        UpDatos.Update()
+    End Sub
+
+    Private Sub BtnUpdateREmision_Click(sender As Object, e As EventArgs) Handles BtnUpdateREmision.Click
+        Dim ObjWS As New MyPRTSoft.WsTSoftSoapClient
+        Dim Resultado = ObjWS.UpEstatusRemision(TxtFolioRemision3.Text, TxtClaveEstatus3.Text)
+        LblUpdateRemision.Text = Resultado
+        UpDatos.Update()
+    End Sub
+
+    Private Sub BtnTerminoRemision_Click(sender As Object, e As EventArgs) Handles BtnTerminoRemision.Click
+        Dim ObjWS As New MyPRTSoft.WsTSoftSoapClient
+        Dim Resultado = ObjWS.TerminoRemision(TxtFolio4.Text, TxtNoEconomico4.Text)
+        LblTerminoRemision.Text = Resultado
+        UpDatos.Update()
+    End Sub
+End Class