Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

41 lines (24 sloc) 1.246 kb
Me.txtFechaIngreso.Text = CDate(Now)
If Me.IsPostBack = False Then
If String.IsNullOrEmpty(Me.Request("Cliente")) = False Then
Dim ControlCliente As New cCliente
Dim dsDatosCliente As New DataSet
dsDatosCliente = ControlCliente.RecuperarClientePorId(Request("Cliente"))
Me.txtCliente.Text = dsDatosCliente.Tables(0).Rows(0).Item("NombreCliente")
Me.hdIdCliente.Value = Request("Cliente")
Me.IniciarConClienteAsignado()
LlenarTransportesPorCliente(Request("Cliente"))
LlenarTipoIngreso()
Me.btnVerComprobante.Visible = False
Else
Iniciar()
DeshabilitarForm()
Me.ddlbTransporte.Items.Insert("0", New ListItem("Seleccionar...", "0"))
LlenarTipoIngreso()
End If
'llenar desechos
llenarDesechos()
Me.btnBuscarCliente.Attributes.Add("onclick", "javascript:urlCliente();")
End If
Me.lblPuntoTransferencia.Text = Me.Session.Item("PuntoTransferencia")
Me.hdPuntoTransferencia.Value = Me.Session.Item("idPuntoTransferencia")
Jump to Line
Something went wrong with that request. Please try again.