GPS - Administracion de Trayectos por otros clientes
This commit is contained in:
@@ -715,7 +715,7 @@ Partial Class Clientes
|
||||
TdBusqueda.Visible = True
|
||||
HyperLink7.Visible = False
|
||||
ChkSist.Visible = False
|
||||
|
||||
DivTrayectos.Visible = True
|
||||
CargaEmpresasUsuario(UsuarioActual.CveEmpresa)
|
||||
End If
|
||||
|
||||
@@ -1633,14 +1633,15 @@ Partial Class Clientes
|
||||
End If
|
||||
|
||||
DdlMotivoTraslado.SelectedValueExist(ObjClientes.CveMotivoTraslado)
|
||||
TxtNumRegIdTrib.Text = ObjClientes.NumRegIdTrib
|
||||
|
||||
|
||||
'If ObjClientes.CveUsoCFDI > 0 Then DdlUsoCFDI.Items.RemoveAt(0)
|
||||
'If ObjClientes.CveMetodoPago33 > 0 Then DdlMetodoPago33.Items.RemoveAt(0)
|
||||
'If ObjClientes.CveFormaPago33 > 0 Then DdlFormaPago33.Items.RemoveAt(0)
|
||||
|
||||
'DIAS DE PAGO
|
||||
TxtNumRegIdTrib.Text = ObjClientes.NumRegIdTrib
|
||||
|
||||
DdlAdminTrayecto.SelectedValueExist(ObjClientes.DtResultados(0)("CveAdminTrayecto").ToString())
|
||||
DdlAdminTrayecto_SelectedIndexChanged(DdlAdminTrayecto, EventArgs.Empty)
|
||||
'If ObjClientes.CveUsoCFDI > 0 Then DdlUsoCFDI.Items.RemoveAt(0)
|
||||
'If ObjClientes.CveMetodoPago33 > 0 Then DdlMetodoPago33.Items.RemoveAt(0)
|
||||
'If ObjClientes.CveFormaPago33 > 0 Then DdlFormaPago33.Items.RemoveAt(0)
|
||||
|
||||
'DIAS DE PAGO
|
||||
If ObjClientes.RecepcionPagos <> "" AndAlso ObjClientes.RecepcionPagos.Length = 11 Then
|
||||
Dim array As String() = ObjClientes.RecepcionPagos.Split(New Char() {"-"c})
|
||||
If array(0) = "1" Then ChkLunes.Checked = True
|
||||
@@ -2573,7 +2574,7 @@ Partial Class Clientes
|
||||
CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(), CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero(), DesglosaIEPS:=ChkDesglosarIEPS.Checked, AplicaComercioExterior:=ChkAplicaComercioExterior.Checked, CveTipoOperacion:=DdlTipoOperacion.SelectedValue.ToEntero(), CvePedimento:=DdlClavePedimento.SelectedValue.ToEntero(), CveIncoterm:=DdlIncoterm.SelectedValue.ToEntero(),
|
||||
CvePais:=DdlPais.SelectedValue.ToEntero(), CveEstado:=DdlEstado.SelectedValue.ToEntero(), CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero(), CveColonia:=DdlColonia.SelectedValue.ToEntero(), CveMotivoTraslado:=IIf(DdlMotivoTraslado.SelectedValue = "-1", "0", DdlMotivoTraslado.SelectedValue).ToString().ToEntero(), NumRegIdTrib:=IIf(TxtNumRegIdTrib.Text = "", "-1", TxtNumRegIdTrib.Text).ToString(),
|
||||
ComExtEstado:=IIf(TxtComExtEstado.Text = "", "-1", TxtComExtEstado.Text).ToString(), ComExtMunicipio:=IIf(TxtComExtMunicipio.Text = "", "-1", TxtComExtMunicipio.Text).ToString(), ComExtColonia:=IIf(TxtComExtColonia.Text = "", "-1", TxtComExtColonia.Text).ToString(), RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked,
|
||||
TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero()) Then
|
||||
TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(), CveAdminTrayecto:=DdlAdminTrayecto.SelectedValue.ToEntero()) Then
|
||||
|
||||
ViewState("CveCliente") = ObjClientes.CveCliente
|
||||
|
||||
@@ -2668,7 +2669,7 @@ Partial Class Clientes
|
||||
CveMotivoTraslado:=IIf(DdlMotivoTraslado.SelectedValue = "-1", "0", DdlMotivoTraslado.SelectedValue).ToString().ToEntero(), NumRegIdTrib:=IIf(TxtNumRegIdTrib.Text = "", "-1", TxtNumRegIdTrib.Text).ToString(),
|
||||
ComExtEstado:=IIf(TxtComExtEstado.Text = "", "-1", TxtComExtEstado.Text).ToString(), ComExtMunicipio:=IIf(TxtComExtMunicipio.Text = "", "-1", TxtComExtMunicipio.Text).ToString(), ComExtColonia:=IIf(TxtComExtColonia.Text = "", "-1", TxtComExtColonia.Text).ToString(),
|
||||
ApellidoPaternoPF:=IIf(TxtApellidoPaterno.Text = "", "-1", TxtApellidoPaterno.Text).ToString(), ApellidoMaternoPF:=IIf(TxtApellidoMaterno.Text = "", "-1", TxtApellidoMaterno.Text).ToString(), NombresPF:=IIf(TxtNombres.Text = "", "-1", TxtNombres.Text).ToString(),
|
||||
RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero()) Then
|
||||
RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(), CveAdminTrayecto:=DdlAdminTrayecto.SelectedValue.ToEntero()) Then
|
||||
|
||||
|
||||
ObjClientes.LimpiaImpuestosLocales(CveCliente)
|
||||
@@ -5124,7 +5125,11 @@ Partial Class Clientes
|
||||
GvDatosGPS.DataSource = Nothing
|
||||
End If
|
||||
ObjGPS.Dispose()
|
||||
GvDatosGPS.DataBind()
|
||||
GvDatosGPS.DataBind()
|
||||
|
||||
GvDatosGPS.Columns(9).Visible = DdlAdminTrayecto.SelectedValue = "2"
|
||||
'GvDatosGPS.Columns(10).Visible = DdlAdminTrayecto.SelectedValue = "2"
|
||||
|
||||
UpDispositivos.Update()
|
||||
End Sub
|
||||
Private Sub CargaGlobalDispositos()
|
||||
@@ -5153,8 +5158,22 @@ Partial Class Clientes
|
||||
e.Row.FCLabel("LblEstatus").Text = "Inactivo"
|
||||
e.Row.FCLabel("LblEstatus").CssClass = "label label-danger"
|
||||
e.Row.FindControl("imgD").Visible = False
|
||||
End If
|
||||
|
||||
If CBool(e.Row.DBCampo("Dispuesto")) Then
|
||||
e.Row.FCLabel("LblDisponible").Text = "Si"
|
||||
e.Row.FCLabel("LblDisponible").CssClass = "label label-success"
|
||||
|
||||
e.Row.FCLinkButton("imgDisponer").CssClass = "btn btn-circle btn-sm red"
|
||||
e.Row.FCLinkButton("imgDisponer").Text = "<i class='fa fa-refresh'></i>"
|
||||
Else
|
||||
e.Row.FCLabel("LblDisponible").Text = "No"
|
||||
e.Row.FCLabel("LblDisponible").CssClass = "label label-default"
|
||||
|
||||
e.Row.FCLinkButton("imgDisponer").CssClass = "btn btn-circle btn-sm blue"
|
||||
e.Row.FCLinkButton("imgDisponer").Text = "<i class='fa fa-refresh'></i>"
|
||||
End If
|
||||
|
||||
End If
|
||||
e.Row.FCLinkButton("imgE").Attributes.Add("onclick", $"javascript:AbrirVentana('/GPS/WizardDispositivos.aspx?CveDispositivo={e.Row.DBCampo("CveDispositivo").ToString()}&CveCliente={CveCliente}&EsPopup=1', 801, 701);")
|
||||
End If
|
||||
End Sub
|
||||
@@ -10577,6 +10596,36 @@ Partial Class Clientes
|
||||
End Using
|
||||
|
||||
Return retorno
|
||||
End Function
|
||||
End Function
|
||||
Protected Sub DdlAdminTrayecto_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
DivUnidadesDisponibles.Visible = DdlAdminTrayecto.SelectedValue = "1"
|
||||
|
||||
GvDatosGPS.Columns(9).Visible = DdlAdminTrayecto.SelectedValue = "2"
|
||||
|
||||
If DivUnidadesDisponibles.Visible AndAlso Me.CveCliente > 0 Then
|
||||
Using ObjGPS As New ClsGPS
|
||||
If ObjGPS.GetUnidadesDispuestas(-1, -1, UsuarioActual.CveEmpresa) Then
|
||||
GvUnidadesDisponibles.DataSource = ObjGPS.DtResultados
|
||||
End If
|
||||
End Using
|
||||
GvUnidadesDisponibles.DataBind()
|
||||
End If
|
||||
|
||||
UpTrayectos.Update()
|
||||
UpDispositivos.Update()
|
||||
End Sub
|
||||
Protected Sub imgDisponer_Click(sender As Object, e As EventArgs)
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
Dim CveDispositivo As Integer = GvRow.DataKey("CveDispositivo").ToEntero()
|
||||
Dim ValorDisposicion As Boolean = CBool(GvRow.DataKey("Dispuesto"))
|
||||
|
||||
Using ObjGPS As New ClsGPS
|
||||
If ObjGPS.UpdateUnidadesDispuestas(CveDispositivo, Not ValorDisposicion) Then
|
||||
Alert("Se cambió el estatus de disposición")
|
||||
End If
|
||||
End Using
|
||||
|
||||
CargaDispositivos(DdlEstatusDispositivos.SelectedValue.ToEntero())
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
Reference in New Issue
Block a user