33 lines
1.5 KiB
Plaintext
33 lines
1.5 KiB
Plaintext
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
|