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