Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
41 lines (24 sloc) 1.22 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")