AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-

Browse Source
This commit is contained in:
rrene
2023-08-24 11:36:02 -07:00
parent 0811636213 e36f1786ed
commit e0800e68d2
23 changed files with 91 additions and 90 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Inventarios/AjustesSeccionAlmacen.aspx.vb
View File

@@ -279,7 +279,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
End Sub
Private Sub DescargarExcel()
Dim DtExcel As DataTable = (From row As GridViewRow In GvD.Rows
Dim DtExcel As DataTable = (From row As GridViewRow In GvD.Rows.Cast(Of GridViewRow)()
Where row.RowType = DataControlRowType.DataRow
Select New With
{

18
Inventarios/CatAlmacenes.aspx.vb
View File

@@ -244,8 +244,8 @@ Partial Class Inventarios_CatAlmacenes
'CargaSucursal()
Dim ObjAlmacen As New ClsInventarios
Dim TieneError = False
Dim Estatus = 0
If ChkEstatus.Checked Then Estatus = 1
Dim Estatus As Boolean = False
If ChkEstatus.Checked Then Estatus = True
Dim CuentaContable As Integer = 0
Dim CveCuenta As Integer = 0
@@ -271,7 +271,7 @@ Partial Class Inventarios_CatAlmacenes
Else
TieneError = True
End If
ElseIf ObjAlmacen.UpdateAlmacen(TxtAlmacen.Text.Trim, DdlTipoAlmacen.SelectedValue.ToEntero, DdlModalidad.SelectedValue.ToEntero, (CByte(Estatus)), HdnID.Value.ToEntero, CByte(DdlInventariable.SelectedValue), DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, TxtOrden.Text.ToEntero, CveCuenta, CveUsuarioAutoriza:=DdlUsuariosAutoriza.SelectedValue.ToEntero, CveAlmacenVirtual:=DdlAlmacenesVirtuales.SelectedValue.ToEntero) Then
ElseIf ObjAlmacen.UpdateAlmacen(TxtAlmacen.Text.Trim, DdlTipoAlmacen.SelectedValue.ToEntero, DdlModalidad.SelectedValue.ToEntero, Estatus, HdnID.Value.ToEntero, CByte(DdlInventariable.SelectedValue), DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, TxtOrden.Text.ToEntero, CveCuenta, CveUsuarioAutoriza:=DdlUsuariosAutoriza.SelectedValue.ToEntero, CveAlmacenVirtual:=DdlAlmacenesVirtuales.SelectedValue.ToEntero) Then
Alert("El Almacen se actualizo correctamente.", TipoMensaje.MsgInformacion)
UpDatos.Update()
ViewState("DTAlmacenes") = ObjAlmacen.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
@@ -290,7 +290,7 @@ Partial Class Inventarios_CatAlmacenes
Public Sub Agregar()
HdnModalidad.Value = "A"
UpDatos.Update()
If DdlModalidad.SelectedValue = 1 Then
If DdlModalidad.SelectedValue.ToEntero = 1 Then
DdlCuentasContables.Visible = True
End If
BtnAgregarAlmacen.Text = "Agregar"
@@ -328,9 +328,9 @@ Partial Class Inventarios_CatAlmacenes
UpDatos.Update()
BtnAgregarAlmacen.Text = "Actualizar"
myModalLabel.InnerText = "Actualizar Almacén"
DdlInventariable.SelectedValue = If((GvRow.DataKey("Inventariable")) = "True", 1, 0)
DdlModalidad.SelectedValue = If((GvRow.DataKey("Modalidad")) = "Solo Existencia", 0, 1)
divddlcc.Visible = If((DdlModalidad.SelectedValue) = 1, True, False)
DdlInventariable.SelectedValueExist(If((GvRow.DataKey("Inventariable")) = "True", 1, 0))
DdlModalidad.SelectedValueExist(If((GvRow.DataKey("Modalidad")) = "Solo Existencia", 0, 1))
divddlcc.Visible = If((DdlModalidad.SelectedValue.ToEntero) = 1, True, False)
DdlCuentasContables.SelectedValueExist(GvRow.DataKey("IdCtaContable"))
DdlCuentasSig.SelectedValueExist(-1)
DdlCuentasSig.SelectedValueExist(GvRow.DataKey("CveCuenta"))
@@ -354,7 +354,7 @@ Partial Class Inventarios_CatAlmacenes
End Sub
Private Sub DdlModalidad_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlModalidad.SelectedIndexChanged
If DdlModalidad.SelectedValue = 1 Then
If DdlModalidad.SelectedValue.ToEntero = 1 Then
divddlcc.Visible = True
CargaCuentasContables()
Else
@@ -366,7 +366,7 @@ Partial Class Inventarios_CatAlmacenes
Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
Dim ObjAlmacen As New ClsInventarios
If ObjAlmacen.GetAlmacenes(DdlTipoAlmacenFiltro.SelectedValue, DdlModalidadFiltro.SelectedValue, UsuarioActual.CveEmpresa, DdlSubProyectoFiltro.SelectedValue.ToEntero) Then
If ObjAlmacen.GetAlmacenes(DdlTipoAlmacenFiltro.SelectedValue.ToEntero, DdlModalidadFiltro.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlSubProyectoFiltro.SelectedValue.ToEntero) Then
GvDatos.DataSource = ObjAlmacen.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GvDatos.DataBind()
Else

28
Inventarios/ConsignacionesMaterial.aspx.vb
View File

@@ -29,7 +29,7 @@ Partial Class Inventarios_ConsignacionesMaterial
CreaDTCons()
InicializarListas()
TxtFecha.Text = Now
TxtFecha.Text = Now.ToString("dd/MM/yyyy")
End If
End Sub
Private Sub CreaDTCons()
@@ -108,7 +108,7 @@ Partial Class Inventarios_ConsignacionesMaterial
CveMovimientoC = Mov.AddMovimiento(dr("CveAlmacen").ToString.ToEntero, 6, 1, TxtFecha.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, -1, CvePersonal)
CveMovimientoC = Mov.AddMovimiento(dr("CveAlmacen").ToString.ToEntero, 6, 1, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, -1, CvePersonal)
If CveMovimientoC <= 0 Then
Alert("No se pudo almacenar el movimiento correctamente", TipoMensaje.MsgError)
@@ -120,7 +120,7 @@ Partial Class Inventarios_ConsignacionesMaterial
If Not gr.FCTextBox("tbCantR").Text.ToString = "" Then
If Not Mov.AddMovimientoDetalle(CveMovimientoC, gr.FCTextBox("tbCantR").Text.ToString.ToDouble, DTmp.Rows(gr.RowIndex)("CveUnidadMedida").ToString.ToEntero, DTmp.Rows(gr.RowIndex)("CvePS").ToString.ToEntero,
DTmp.Rows(gr.RowIndex)("PU").ToString.ToDouble, DTmp.Rows(gr.RowIndex)("CveSeccionAlmacen").ToString.ToEntero) Then
DTmp.Rows(gr.RowIndex)("PU").ToString.ToEntero, DTmp.Rows(gr.RowIndex)("CveSeccionAlmacen").ToString.ToEntero) Then
Mensaje = "Error al guardar los movimientos"
Exit For
End If
@@ -128,7 +128,7 @@ Partial Class Inventarios_ConsignacionesMaterial
Next
CveMovimiento = Mov.AddMovimiento(dr("CveAlmacen").ToString.ToEntero, 3, 1, TxtFecha.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, -1, CvePersonal)
CveMovimiento = Mov.AddMovimiento(dr("CveAlmacen").ToString.ToEntero, 3, 1, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, -1, CvePersonal)
If CveMovimiento <= 0 Then
Alert("No se pudo almacenar el movimiento correctamente", TipoMensaje.MsgError)
@@ -138,7 +138,7 @@ Partial Class Inventarios_ConsignacionesMaterial
For Each gr As GridViewRow In GvConsignacion.Rows
If Not gr.FCTextBox("tbCantR").Text.ToString = "" Then
If Not Mov.AddMovimientoDetalle(CveMovimiento, gr.FCTextBox("tbCantR").Text.ToString.ToDouble, DTmp.Rows(gr.RowIndex)("CveUnidadMedida").ToString.ToEntero, DTmp.Rows(gr.RowIndex)("CvePS").ToString.ToEntero,
DTmp.Rows(gr.RowIndex)("PU").ToString.ToDouble, DTmp.Rows(gr.RowIndex)("CveSeccionAlmacen").ToString.ToEntero) Then
DTmp.Rows(gr.RowIndex)("PU").ToString.ToEntero, DTmp.Rows(gr.RowIndex)("CveSeccionAlmacen").ToString.ToEntero) Then
Mensaje = "Error al guardar los movimientos"
Exit For
End If
@@ -181,7 +181,7 @@ Partial Class Inventarios_ConsignacionesMaterial
If CveConcepto = 7 Then
If tbCant.Text >= Total Then
If tbCant.Text.ToDouble >= Total Then
Alert("No hay existencia suficiente en el Inventario.", TipoMensaje.MsgInformacion)
ObjInventario.Dispose()
@@ -204,7 +204,7 @@ Partial Class Inventarios_ConsignacionesMaterial
End If
AddDTmp(tbCant.Text.ToDouble, ddlUnidad.SelectedValue.ToEntero, ddlUnidad.SelectedItem.ToString, ddlProducto.SelectedValue, ddlProducto.SelectedItem.ToString, DdlAlmacen.SelectedItem.ToString, DdlAlmacen.SelectedValue.ToEntero, DdlSeccion.SelectedValue.ToEntero)
AddDTmp(tbCant.Text.ToEntero, ddlUnidad.SelectedValue.ToEntero, ddlUnidad.SelectedItem.ToString, ddlProducto.SelectedValue.ToEntero, ddlProducto.SelectedItem.ToString, DdlAlmacen.SelectedItem.ToString, DdlAlmacen.SelectedValue.ToEntero, DdlSeccion.SelectedValue.ToEntero)
tbCant.Text = ""
GvConsignacion.DataSource = DTmp
GvConsignacion.DataBind()
@@ -240,7 +240,7 @@ Partial Class Inventarios_ConsignacionesMaterial
Protected Sub DdlPersonal_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPersonal.SelectedIndexChanged
Dim ObjInventario As New ClsInventarios
If ObjInventario.GetConsignaciones(UsuarioActual.CveEmpresa, DdlPersonal.SelectedValue) Then
If ObjInventario.GetConsignaciones(UsuarioActual.CveEmpresa, DdlPersonal.SelectedValue.ToEntero) Then
GvConsignacion.DataSource = ObjInventario.DtResultados
DTmp = ObjInventario.DtResultados
@@ -264,7 +264,7 @@ Partial Class Inventarios_ConsignacionesMaterial
CvePersonal = DdlPersonal.SelectedValue.ToEntero
For Each dr As DataRow In DTmp.FiltraParametros("", DistinctColumns:={"CveAlmacen"}).Rows
CveMovimiento = Mov.AddMovimiento(dr("CveAlmacen").ToString.ToEntero, 6, 1, TxtFecha.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, -1, CvePersonal)
CveMovimiento = Mov.AddMovimiento(dr("CveAlmacen").ToString.ToEntero, 6, 1, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, -1, CvePersonal)
If CveMovimiento <= 0 Then
Alert("No se pudo almacenar el movimiento correctamente", TipoMensaje.MsgError)
@@ -274,7 +274,7 @@ Partial Class Inventarios_ConsignacionesMaterial
For Each gr As GridViewRow In GvConsignacion.Rows
If Not gr.FCTextBox("tbCantR").Text.ToString = "" Then
If Not Mov.AddMovimientoDetalle(CveMovimiento, gr.FCTextBox("tbCantR").Text.ToString.ToDouble, DTmp.Rows(gr.RowIndex)("CveUnidadMedida").ToString.ToEntero, DTmp.Rows(gr.RowIndex)("CvePS").ToString.ToEntero,
DTmp.Rows(gr.RowIndex)("PU").ToString.ToDouble, DTmp.Rows(gr.RowIndex)("CveSeccionAlmacen").ToString.ToEntero) Then
DTmp.Rows(gr.RowIndex)("PU").ToString.ToEntero, DTmp.Rows(gr.RowIndex)("CveSeccionAlmacen").ToString.ToEntero) Then
Mensaje = "Error al guardar los movimientos"
Exit For
End If
@@ -314,7 +314,7 @@ Partial Class Inventarios_ConsignacionesMaterial
Protected Sub cbEC_CheckedChanged(sender As Object, e As EventArgs) Handles cbEC.CheckedChanged
If Not DdlPersonal.SelectedValue.ToEntero = -1 Then
Dim ObjInventario As New ClsInventarios
If ObjInventario.GetConsignaciones(UsuarioActual.CveEmpresa, DdlPersonal.SelectedValue) Then
If ObjInventario.GetConsignaciones(UsuarioActual.CveEmpresa, DdlPersonal.SelectedValue.ToEntero) Then
GvConsignacion.DataSource = ObjInventario.DtResultados
DTmp = ObjInventario.DtResultados
@@ -368,7 +368,7 @@ Partial Class Inventarios_ConsignacionesMaterial
CveMovimiento = Mov.AddMovimiento(dr("CveAlmacen").ToString.ToEntero, 7, 1, TxtFecha.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, -1, CvePersonal)
CveMovimiento = Mov.AddMovimiento(dr("CveAlmacen").ToString.ToEntero, 7, 1, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, -1, CvePersonal)
If CveMovimiento <= 0 Then
Alert("No se pudo almacenar el movimiento correctamente", TipoMensaje.MsgError)
@@ -379,7 +379,7 @@ Partial Class Inventarios_ConsignacionesMaterial
For Each row As DataRow In DTmp.FiltraParametros("Nuevo=1").Rows
If Not Mov.AddMovimientoDetalle(CveMovimiento, row("Cantidad").ToString.ToDouble, row("CveUnidadMedida").ToString.ToEntero, row("CvePS").ToString.ToEntero, row("PU").ToString.ToDouble,
If Not Mov.AddMovimientoDetalle(CveMovimiento, row("Cantidad").ToString.ToDouble, row("CveUnidadMedida").ToString.ToEntero, row("CvePS").ToString.ToEntero, row("PU").ToString.ToDecimal,
row("CveSeccionAlmacen").ToString.ToEntero) Then
Mensaje = "Error al guardar los movimientos"
Exit For
@@ -420,7 +420,7 @@ Partial Class Inventarios_ConsignacionesMaterial
Protected Sub GvConsignacion_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvConsignacion.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.DBCampo("Nuevo") = 0 Then
If e.Row.DBCampo("Nuevo").ToEntero = 0 Then
e.Row.FCImageButton("imgD").Visible = False
e.Row.FCTextBox("tbCantR").Attributes.Add("onchange", String.Format("ValidarCantidad(this,{0})", e.Row.DBCampo("Cantidad")))
End If

10
Inventarios/Equivalencia.aspx.vb
View File

@@ -72,12 +72,12 @@ Partial Class Inventarios_Equivalencia
End If
If psEquivalencias.AddPSEquivalencias(ddlProducto.SelectedValue.ToEntero, CveUnidadMedida, Cantidad, UnidadBase, Precio, 1) Then
If psEquivalencias.AddPSEquivalencias(ddlProducto.SelectedValue.ToEntero, CveUnidadMedida, Cantidad.ToDecimal, UnidadBase, Precio, 1) Then
gvEquivalencias.DataSource = psEquivalencias.DtResultados
ViewState("dtEquivalencias") = psEquivalencias.DtResultados
txtCantidad.Text = ""
@@ -137,7 +137,7 @@ Partial Class Inventarios_Equivalencia
If dt.Rows(i).Item("Base").ToString = "True" Then
Dim psEquivalencias As New ClsProductosServicios
If Not psEquivalencias.UpdatePSEquivalencias(ddlProducto.SelectedValue.ToEntero, dt.Rows(i).Item("CveUnidadMedida").ToString.ToEntero, dt.Rows(i).Item("Cantidad").ToString.ToDouble, False, dt.Rows(i).Item("Precio").ToString.ToDouble, 1) Then
If Not psEquivalencias.UpdatePSEquivalencias(ddlProducto.SelectedValue.ToEntero, dt.Rows(i).Item("CveUnidadMedida").ToString.ToEntero, dt.Rows(i).Item("Cantidad").ToString.ToDecimal, False, dt.Rows(i).Item("Precio").ToString.ToDouble, 1) Then
Alert("Error al actualizar registro.", TipoMensaje.MsgError)
Return dt
End If
@@ -266,7 +266,7 @@ Partial Class Inventarios_Equivalencia
Dim base As Boolean = DirectCast(gvEquivalencias.Rows(e.RowIndex).FindControl("cbEBase"), CheckBox).Checked
Dim CveUnidadMedida As Integer = DirectCast(gvEquivalencias.Rows(e.RowIndex).FindControl("ddlEUnidad"), DropDownList).SelectedValue.ToEntero
If psEquivalencias.UpdatePSEquivalencias(ddlProducto.SelectedValue.ToEntero, CveUnidadMedida, cantidad, base, precio, UsuarioActual.CveUsuario) Then
If psEquivalencias.UpdatePSEquivalencias(ddlProducto.SelectedValue.ToEntero, CveUnidadMedida, cantidad.ToDecimal, base, precio, UsuarioActual.CveUsuario) Then
dt = psEquivalencias.DtResultados
If base Then
@@ -277,7 +277,7 @@ Partial Class Inventarios_Equivalencia
ViewState("dtEquivalencias") = dt
gvEquivalencias.EditIndex = -1
gvEquivalencias.DataSource = dt
gvEquivalencias.DataBind()

20
Inventarios/InventarioFisicoDetalle.aspx.vb
View File

@@ -313,7 +313,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
GvIFD.DataSource = Nothing
End If
' DtDatos = Inventario.DtResultados
LtlTotalRegistros.Text = Inventario.DtResultados.Rows.Count
LtlTotalRegistros.Text = Inventario.DtResultados.Rows.Count.ToString
End If
Inventario.Dispose()
GvIFD.DataBind()
@@ -354,10 +354,10 @@ Partial Class Inventarios_InventarioFisicoDetalle
CveProducto = dr("CvePS").ToString.ToEntero
CveUnidadMedida = dr("CveUnidadMedida").ToString.ToEntero
'Dim AplicaSeccion As Boolean = dr("AplicaSeccion") = "1"
Dim AplicaCaducidad As Boolean = dr("AplicaCaducidad") = "1"
Dim AplicaLote As Boolean = dr("AplicaLote") = "1"
Dim AplicaSerie As Boolean = dr("AplicaSerie") = "1"
Dim AplicaSeccion As Boolean = dr("AplicaSeccion") = "1"
Dim AplicaCaducidad As Boolean = dr("AplicaCaducidad").ToString = "1"
Dim AplicaLote As Boolean = dr("AplicaLote").ToString = "1"
Dim AplicaSerie As Boolean = dr("AplicaSerie").ToString = "1"
Dim AplicaSeccion As Boolean = dr("AplicaSeccion").ToString = "1"
'divSeccionAlmacen.Visible = AplicaSeccion
divLote.Visible = AplicaLote
@@ -453,7 +453,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
If GvIFDUltimoRegistrado.Rows.Count > 0 Then
GvIFDUltimoRegistrado.Rows(0).Cells(0).Text = Now
GvIFDUltimoRegistrado.Rows(0).Cells(0).Text = Now.ToString("dd/MM/yyyy")
GvIFDUltimoRegistrado.Rows(0).Cells(1).Text = dr("CodigoBarras").ToString
GvIFDUltimoRegistrado.Rows(0).Cells(2).Text = dr("Codigo").ToString
GvIFDUltimoRegistrado.Rows(0).Cells(3).Text = dr("PSCodigo").ToString
@@ -620,7 +620,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
Protected Sub Impimir(Optional Formato As String = "PDF", Optional Agrupar As Boolean = False)
Dim DtDatos As New DataTable
Dim ObjInventario As New ClsInventarios()
If ObjInventario.GetInventarioFisicoDetalle(CveInventarioFisico, ddlUsuario.SelectedValue, Agrupar:=Agrupar) Then
If ObjInventario.GetInventarioFisicoDetalle(CveInventarioFisico, ddlUsuario.SelectedValue.ToEntero, Agrupar:=Agrupar) Then
DtDatos = ObjInventario.DtResultados.FiltraParametros("CveInventarioFisico > 0 ").Copy
End If
ObjInventario.Dispose()
@@ -773,9 +773,9 @@ Partial Class Inventarios_InventarioFisicoDetalle
Alert("La cantidad debe ser mayor a 0", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
Dim serie As String = IIf(TxtSerieLote.Text.ToString = "", "-1", TxtSerieLote.Text.ToString)
Dim Lote As String = IIf(TxtLoteEdit.Text.ToString = "", "-1", TxtLoteEdit.Text.ToString)
Dim FechaCaducidad As Date = IIf(TxtFechaCaducida.Text.ToString = "", MinFecha, TxtFechaCaducida.Text.ToString.ToDate)
Dim serie As String = If(TxtSerieLote.Text.ToString = "", "-1", TxtSerieLote.Text.ToString)
Dim Lote As String = If(TxtLoteEdit.Text.ToString = "", "-1", TxtLoteEdit.Text.ToString)
Dim FechaCaducidad As Date = If(TxtFechaCaducida.Text.ToString = "", MinFecha, TxtFechaCaducida.Text.ToString.ToDate)
If objInventario.UpdateInventarioFisicoDetalles(HfCveInventarioFisicoDetalle.Value.ToEntero, HfCvePS.Value.ToEntero, HfCveUM.Value.ToEntero, TxtCantidad.Text.ToDecimal, serie, Lote, FechaCaducidad) Then
If objInventario.GetInventarioFisicoDetalle(CveInventarioFisico, ddlUsuario.SelectedValue.ToString.ToEntero) Then

2
Inventarios/KardexAlmacen.aspx.vb
View File

@@ -66,7 +66,7 @@ Partial Class Inventarios_KardexAlmacen
Private Sub CargaPS()
If Not ddlProducto2.UsaWebService Then
Dim Filtro = If(DdlClasificacion.SelectedValue >= 0, String.Format("CveClasificacion={0} And CveTipoPS=2", DdlClasificacion.SelectedValue), "CveTipoPS=2")
Dim Filtro = If(DdlClasificacion.SelectedValue.ToEntero >= 0, String.Format("CveClasificacion={0} And CveTipoPS=2", DdlClasificacion.SelectedValue), "CveTipoPS=2")
ddlProducto2.ddl.Items.Clear()
ddlProducto2.DataSource = GlobalDTPS(UsuarioActual.CveEmpresa).FiltraParametros(Filtro, "PSCodigo")
ddlProducto2.DataBind()

12
Inventarios/KardexAlmacenHorizontal.aspx.vb
View File

@@ -22,7 +22,7 @@ Partial Class Inventarios_KardexAlmacen
DdlOrden.Visible = True
LblMarca.Visible = True
DdlMarca.Visible = True
DdlOrden.SelectedValue = 2
DdlOrden.SelectedValueExist(2)
End If
If UsuarioActual.CveEmpresa = 119 Then
@@ -154,7 +154,7 @@ Partial Class Inventarios_KardexAlmacen
Dim IncluyeTransitorios As Integer = DdlIncluyeTransitorios.SelectedValue.ToEntero
If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, -1, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), IncluyeTransitorios,
DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue,
DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue.ToEntero,
Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero, CveAlmacenes:=CveAlmacenes, GPO:=GPO) Then
If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then
dt = ObjMovimientos.DtResultados
@@ -189,7 +189,7 @@ Partial Class Inventarios_KardexAlmacen
GvDatos.DataBind()
For index = 4 To GvDatos.Rows(0).Cells.Count - 1
GvDatos.HeaderRow.Cells(index).Text = GvDatos.HeaderRow.Cells(index).Text.Split("|")(0)
GvDatos.HeaderRow.Cells(index).Text = GvDatos.HeaderRow.Cells(index).Text.Split("|"c)(0)
Next
End Sub
@@ -214,9 +214,9 @@ Partial Class Inventarios_KardexAlmacen
If IsNumeric(Celda) Then
Dim CveAlmacen2 As Integer = -1
If Index >= 5 Then
Dim Array = GvDatos.HeaderRow.Cells(Index).Text.Split("|")
Dim Array As String() = GvDatos.HeaderRow.Cells(Index).Text.Split("|"c)
If Array.Length > 1 Then
CveAlmacen2 = Array(1)
CveAlmacen2 = Array(1).ToEntero
End If
End If
@@ -511,7 +511,7 @@ Partial Class Inventarios_KardexAlmacen
Protected Sub BtnDescargarPOG_Click(sender As Object, e As EventArgs)
Dim Fecha As Date = txtFechaI.Text.ToDate
Dim Nombre As String = IIf(RBLPOG.SelectedValue = "0", "Ventas-", "Existencias-")
Dim Nombre As String = If(RBLPOG.SelectedValue = "0", "Ventas-", "Existencias-")
Using ObjInventario As New ClsInventarios

2
Inventarios/PrestamosdeProveedor.aspx.vb
View File

@@ -223,7 +223,7 @@ Partial Class Inventarios_PrestamosdeProveedor
ErrorMovInv = True
End If
Dim CveClasifCosto As Integer = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", String.Format("CvePS ={0} ", CvePS))
Dim CveClasifCosto As Integer = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", String.Format("CvePS ={0} ", CvePS)).ToEntero
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAlmacen, tValorInventario, tValorInventario, 68, TxtObservacionesEntrega.Text.Trim, TxtObservacionesEntrega.Text.Trim, CveMovimientoAlmacen:=CveMovimientoSalida) Then
ErrorMovInv = True

4
Inventarios/RepUMEquivalencia.aspx.vb
View File

@@ -22,7 +22,7 @@ Partial Class Inventarios_RepUMEquivalencia
Public Sub CargaDatos()
Dim ObjInv As New ClsInventarios
If ObjInv.RepExistenciasEquivalencias( DdlClasificacion.SelectedValue,-1,UsuarioActual.CveEmpresa) Then
If ObjInv.RepExistenciasEquivalencias(DdlClasificacion.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) Then
GVDatos.DataSource = ObjInv.DtResultados
If ObjInv.DtResultados.Columns.Count <= 5 Then
divGvdatos.Style.Add("width", "50%")
@@ -44,7 +44,7 @@ Partial Class Inventarios_RepUMEquivalencia
divHeader.Style.Add("width", "96.5%")
End If
End If
divGvdatos.Visible = True
divGvdatos.Visible = True
UpDatos.Update()
ObjInv.Dispose()
GVDatos.DataBind()

6
MF/CatOperadores.aspx.vb
View File

@@ -21,7 +21,7 @@ Partial Class MF_CatOperadores
Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
End If
ElseIf HdnModalidad.Value = "U" Then
If ObjMF.UpdateOperador(HdnID.Value, TxtOperador.Text, Estatus) Then
If ObjMF.UpdateOperador(HdnID.Value.ToEntero, TxtOperador.Text, Estatus) Then
CargaDatos()
Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
End If
@@ -75,7 +75,7 @@ Partial Class MF_CatOperadores
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
HdnID.Value = GvRow.DataKey("CveOperador")
UpDatos.Update()
If ObjMF.RemoveOperador(HdnID.Value) Then
If ObjMF.RemoveOperador(HdnID.Value.ToEntero) Then
CargaDatos()
Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion)
End If
@@ -90,7 +90,7 @@ Partial Class MF_CatOperadores
Private Sub GvOperador_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvOperador.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.DBCampo("Estatus") = True Then
If Boolean.Parse(e.Row.DBCampo("Estatus")) = True Then
e.Row.FCLabel("LblEstatus").Text = "Activo"
e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Green

6
Nomina/ReportePTU.aspx.vb
View File

@@ -157,7 +157,7 @@ Partial Class Nomina_ReportePTU
If Not IsNothing(rowc) Then
CveConcepto = rowc("CveConcepto").ToString().ToEntero()
Else
CveConcepto = objNomina.AddConcepto("PTU", "Utilidades", "P", "", True, True, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, 0, -1, 0, 0, 0, 0, 0, -1, 1, -1, -1, -1, -1)
CveConcepto = objNomina.AddConcepto("PTU", "Utilidades", "P", "", True, True, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, False, -1, 0, 0, 0, 0, 0, -1, 1, -1, -1, -1, -1)
End If
If CveConcepto < 1 Then
continuar = False
@@ -171,7 +171,7 @@ Partial Class Nomina_ReportePTU
CvePeriodo = CvePeriodoSeleccionado
If continuar Then
continuar = objNomina.AddUtilidad(CvePersonal, Importe, CvePeriodo, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ejercicio, DiasLaborados, SueldoTotal)
continuar = objNomina.AddUtilidad(CvePersonal, Importe, CvePeriodo, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ejercicio, DiasLaborados, SueldoTotal.ToDecimal)
End If
If Not continuar Then
Exit For
@@ -233,7 +233,7 @@ Partial Class Nomina_ReportePTU
End Sub
Protected Sub GVTipoPeriodo_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then
If (Not IsNothing(dtPeriodos) AndAlso dtPeriodos.Rows.Count()) Then
If (Not IsNothing(dtPeriodos) AndAlso dtPeriodos.Rows.Count > 0) Then
Dim dddlperiodo As DropDownList = e.Row.FCDropDownList("ddlPeriodo")
dddlperiodo.DataSource = dtPeriodos.FiltraParametros(String.Format("CveTipoPeriodo={0}", e.Row.DataKey("CveTipoPeriodo")))
dddlperiodo.DataBind()

4
Nomina/SobreRecibo.aspx.vb
View File

@@ -36,7 +36,7 @@ Partial Class Nominas_SobreRecibo
If CvePersonal > 0 AndAlso CvePeriodo > 0 Then
CargaDatos()
CargaPersonal()
DdlPersonal.SelectedValue = CvePersonal
DdlPersonal.SelectedValueExist(CvePersonal)
LtNombrePersonal.Text = DdlPersonal.SelectedItem.Text
UPFiltros.Visible = False
End If
@@ -134,7 +134,7 @@ Partial Class Nominas_SobreRecibo
e.Row.Cells(0).Style.Add("padding-left", "16px")
End If
e.Row.FCLabel("LtlImporte").Text = e.Row.FCLabel("LtlImporte").Text.ToDecimal
e.Row.FCLabel("LtlImporte").Text = e.Row.FCLabel("LtlImporte").Text
End If
End Sub

6
OC/CotizacionEnLinea.aspx.vb
View File

@@ -306,7 +306,7 @@ Partial Class OC_CotizacionEnLinea
End If
For Each dr As GridViewRow In GvD.Rows
If Not objCotizacion.UpdateCotizacionDetalle(dr.DataKey("CveCotizacionDetalle").ToEntero, dr.FCTextBox("TxtPU").Text.ToDouble, dr.FCTextBox("txtCantidadSurtir").Text.ToDouble, If(dr.FCTextBox("txtFechaEntrega").Text.Trim = "" Or dr.FCTextBox("txtFechaEntrega").Text = "__/__/____", "-1", dr.FCTextBox("txtFechaEntrega").Text), dr.FCTextBox("txtObservacion").Text.ToString) Then
If Not objCotizacion.UpdateCotizacionDetalle(dr.DataKey("CveCotizacionDetalle").ToEntero, dr.FCTextBox("TxtPU").Text.ToDecimal, dr.FCTextBox("txtCantidadSurtir").Text.ToDecimal, If(dr.FCTextBox("txtFechaEntrega").Text.Trim = "" Or dr.FCTextBox("txtFechaEntrega").Text = "__/__/____", "-1", dr.FCTextBox("txtFechaEntrega").Text), dr.FCTextBox("txtObservacion").Text.ToString) Then
TieneError = True
Exit For
End If
@@ -366,12 +366,12 @@ Partial Class OC_CotizacionEnLinea
If objCotizacion.GetOC(CveOrdenCompra, CveEmpresa) Then
Dim Folio = "", Descripcion = "", Justificacion = "", Estatus = "", Empresa = "", FechaEstimadaEntrega = ""
Folio = objCotizacion.Folio
Folio = objCotizacion.Folio.ToString
Descripcion = objCotizacion.Descripcion
Justificacion = objCotizacion.Justificacion
Estatus = objCotizacion.Estatus
Empresa = objCotizacion.Empresa
FechaEstimadaEntrega = objCotizacion.FechaEstimadaEntrega
FechaEstimadaEntrega = objCotizacion.FechaEstimadaEntrega.ToString("dd/MM/yyyy")
If objCotizacion.GetCotizaciones(-1, CveCotizacion) Then
strBody.Append("<html xmlns=""http://www.w3.org/1999/xhtml""> ")

2
OC/CotizacionEnvio.aspx.vb
View File

@@ -234,7 +234,7 @@ Partial Class OC_CotizacionEnvio
'Agrega CveCotizacion a la lista
OrdenCotizacion.Add(objCotizacion.CveCotizacion)
For Each RowCD As DataRow In objCotizacion.DtResultados.Rows
If Not objCotizacion.AddCotizacionDetalle(objCotizacion.CveCotizacion, RowCD("CvePS").ToString.ToEntero, -1, RowCD("Cantidad").ToString.ToDouble, RowCD("CveUnidadMedida").ToString.ToEntero, 0, "-1", "", RowCD("CveOrdenCompraDetalle").ToString.ToEntero) Then TieneError = True : Exit For
If Not objCotizacion.AddCotizacionDetalle(objCotizacion.CveCotizacion, RowCD("CvePS").ToString.ToEntero, -1, RowCD("Cantidad").ToString.ToDecimal, RowCD("CveUnidadMedida").ToString.ToEntero, 0, "-1", "", RowCD("CveOrdenCompraDetalle").ToString.ToEntero) Then TieneError = True : Exit For
Next
'If TieneError = False Then

9
OC/OC.aspx.vb
View File

@@ -1,4 +1,5 @@
Option Explicit On
Option Strict On
Imports System.Data
Imports System.IO
@@ -3319,7 +3320,7 @@ Partial Class OC_OC
If ChkCotizacion.Checked AndAlso NoProveedoresCot > 0 AndAlso (NumCotizacionesGanadoras > 0 OrElse Not (NumCotizacionesGanadoras <= 0 AndAlso CveConfianzaProveedor = 1)) Then
Dim CveProveedor = -1
Dim TotalCot = 0.0, IVACot = 0D, RetIVA = 0.0, RetISR = 0.0
Dim PorIVA As Decimal = 0
Dim PorIVA As Decimal = 0
Dim IdPoliza = -1
@@ -3343,7 +3344,7 @@ Partial Class OC_OC
If (Not HuboError) AndAlso objOrdenCompra.AddOrdenCompra("OC", -1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusInicialOC, TxtFechaEstimadaEntrega.Text, LugarEntrega,
CveUsuario, CveEmpresaActual, 0, pCveProveedor:=CveProveedor, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
PorcentajeIVA:=PorIVA, IVA:=IVACot, RetIVA:=RetIVA.ToString.ToDecimal, RetISR:=RetISR.ToString.ToDecimal, IDPoliza:=IdPoliza, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text,
PorcentajeIVA:=PorIVA.ToDecimal, IVA:=IVACot, RetIVA:=RetIVA.ToString.ToDecimal, RetISR:=RetISR.ToString.ToDecimal, IDPoliza:=IdPoliza, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text,
EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), IEPS:=TxtIEPS.Text.ToDecimal,
CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=ImporteAnticipos, Promocion:=Promocion, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, NumRemision:=TxtNumRemision.Text.Trim) Then
@@ -8537,7 +8538,7 @@ Partial Class OC_OC
Dim IdCuentaComprometido As Integer = If(HdnCveCuentaComprometido.Value = String.Empty, -1, HdnCveCuentaComprometido.Value.ToEntero)
Dim CveOrdenCompraDetalle As Integer = DtDetalle.MAX("CveOrdenCompraDetalle").ToEntero + 100
AddPS(Cantidad, CvePS, PS, "", PrecioUnitario, 0, TotalPS, CveUnidadMedida, IvaPS, IEPSPS, IEPSPSIVA, CveClasificacion, UM, Clasificacion, CveProyecto, Proyecto, CveSubProyecto, SubProyecto, LblCodigo.Text,
AddPS(Cantidad.ToString, CvePS, PS, "", PrecioUnitario, 0, TotalPS, CveUnidadMedida, IvaPS, IEPSPS, IEPSPSIVA, CveClasificacion, UM, Clasificacion, CveProyecto, Proyecto, CveSubProyecto, SubProyecto, LblCodigo.Text,
CveActivoFijo, 0, CveOrdenCompraDetalle, CveOrdenCompra, IdCuentaPorEjercer, IdCuentaComprometido, DdlACGeneral1.SelectedValue.ToEntero, DdlACGeneral2.SelectedValue.ToEntero, DdlACGeneral3.SelectedValue.ToEntero, DdlACGeneral4.SelectedValue.ToEntero,
DdlACGeneral5.SelectedValue.ToEntero, RetIVA, RetISR)
@@ -8662,7 +8663,7 @@ Partial Class OC_OC
If Cantidad > 0 Then
AddPS(Cantidad, CvePS, PS, PS, PU, 0, TotalPS,
AddPS(Cantidad.ToString, CvePS, PS, PS, PU, 0, TotalPS,
CveUnidadMedida, IvaPS, IEPSPS, IEPSPSIVA, CveClasificacion, UMAbreviatura, Clasificacion, CveProyecto, Proyecto,
CveSubProyecto, SubProyecto, Codigo, -1, 0, -1, -1, IdCuentaPorEjercer,
IdCuentaComprometido, -1, -1, -1, -1,

2
OC/RegOp.aspx.vb
View File

@@ -30,7 +30,7 @@ Partial Class RegOp
Master.EsPopup = True
If Request("p") IsNot Nothing Then
If Decripta(Request("p")) Then
If Decripta(Request("p")).Length > 0 Then
Dim Par As Hashtable = ClsPaginas.UrlParametros
Select Case Par("OP").ToString

2
OC/RepCotizaciones.aspx.vb
View File

@@ -260,7 +260,7 @@ Partial Class RepCotizaciones
'Ingresar los detalles
For Each RowD As DataRow In DtCotizacionesDetalle.FiltraParametros("CveCotizacion = " + CveCotizacion.ToString).Rows
If Not objCotizacion.AddOrdenCompraDetalle(CveOrdenCompra, RowD("Cantidad").ToString.ToDouble, RowD("CveUnidadMedida").ToString.ToEntero, RowD("CvePS").ToString.ToEntero, 0, -1, If(Not IsDBNull(Row("CveActivoFijo")), Row("CveActivoFijo").ToString.ToEntero, -1), Row("Observacion").ToString, UsuarioActual.CveUsuario) Then
If Not objCotizacion.AddOrdenCompraDetalle(CveOrdenCompra, RowD("Cantidad").ToString.ToDecimal, RowD("CveUnidadMedida").ToString.ToEntero, RowD("CvePS").ToString.ToEntero, 0, -1, If(Not IsDBNull(Row("CveActivoFijo")), Row("CveActivoFijo").ToString.ToEntero, -1), Row("Observacion").ToString, UsuarioActual.CveUsuario) Then
HuboError = True
End If
Next

2
OI/Circular.aspx.vb
View File

@@ -55,7 +55,7 @@ Partial Class OI_Circular
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
params.Add(New ReportParameter("FechaImpresion", Today))
params.Add(New ReportParameter("FechaImpresion", Now.ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("Filtros", String.Format("Fecha Inicial: {0} Fecha Final: {1}", TxtFechaI.Text, TxtFechaF.Text)))
ImprimirPDF("Empresas/Grales/Formatos/Circulares.rdlc", DtDatos, params, "Circulares", "PDF", RDSName:="DataSet1")

26
OI/CircularDetalle.aspx.vb
View File

@@ -55,15 +55,15 @@ Partial Class OI_CircularDetalle
If ObjOI.GetCircular(UsuarioActual.CveEmpresa, CveCircular) Then
Dim Circular As DataRow = ObjOI.DtResultados(0)
TxtAsunto.Text = Circular.Item("Asunto")
TxtCorreo.Value = Circular.Item("CorreosInternos")
TxtCorreoAdicional.Value = Circular.Item("CorreosExternos")
TxtCircular.Text = Circular.Item("Circular")
TxtAsunto.Text = Circular.Item("Asunto").ToString
TxtCorreo.Value = Circular.Item("CorreosInternos").ToString
TxtCorreoAdicional.Value = Circular.Item("CorreosExternos").ToString
TxtCircular.Text = Circular.Item("Circular").ToString
If Circular.Item("ArchivoAdjunto") <> "" Then
If Circular.Item("ArchivoAdjunto").ToString <> "" Then
archivosDiv.Visible = True
HkArchivo.NavigateUrl = $"~/Empresas/{UsuarioActual.CveEmpresa}/Formatos/{Circular.Item("ArchivoAdjunto")}"
HkArchivo.Text = Circular.Item("ArchivoAdjunto")
HkArchivo.Text = Circular.Item("ArchivoAdjunto").ToString
End If
UpCliente.Update()
@@ -84,7 +84,7 @@ Partial Class OI_CircularDetalle
Dim ObjOI As New ClsOIEventos
If CveCircular > 0 Then
Dim AdjuntoValidate As String = NombreArchivo().Split("-")(1)
Dim AdjuntoValidate As String = NombreArchivo().Split("-"c)(1)
If ObjOI.UpdateCircular(CveCircular, TxtAsunto.Text, TxtCircular.Text, TxtCorreo.Value, TxtCorreoAdicional.Value, AdjuntoValidate) Then
GuardarArchivo(CveCircular)
@@ -93,7 +93,7 @@ Partial Class OI_CircularDetalle
Else
Dim CorreoExtra As String = If(TxtCorreoAdicional.Value = "", "-1", TxtCorreoAdicional.Value)
Dim AdjuntoValidate As String = NombreArchivo().Split("-")(1)
Dim AdjuntoValidate As String = NombreArchivo().Split("-"c)(1)
Dim CircularInsertado As Integer = ObjOI.AddCircular(TxtAsunto.Text, TxtCircular.Text, TxtCorreo.Value, Today.ToString, UsuarioActual.CveUsuario,
UsuarioActual.CveEmpresa, CorreoExtra, AdjuntoValidate)
If CircularInsertado > 0 Then
@@ -118,8 +118,8 @@ Partial Class OI_CircularDetalle
End Sub
Private Sub LimpiarModal()
DdlRolesFiltro.SelectedValue = -1
DdlSucursales.SelectedValue = -1
DdlRolesFiltro.SelectedValueExist(-1)
DdlSucursales.SelectedValueExist(-1)
GvUsuarios.DataSource = Nothing
GvUsuarios.DataBind()
UpUsuarios.Update()
@@ -222,7 +222,7 @@ Partial Class OI_CircularDetalle
Protected Sub LnkMandarCorreo_Click() Handles LnkMandarCorreo.Click
Dim correos() As String
correos = TxtCorreo.Value.Split(Environment.NewLine)
correos = TxtCorreo.Value.Split(New String() {Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
Dim ArchivoBytes As Byte() = ArchivoBytesArrya(HkArchivo.Text)
Dim Contador As Integer = 0
@@ -263,9 +263,9 @@ Partial Class OI_CircularDetalle
Dim ArchivoEnviar As String = String.Format("{0}Formatos\{1}", UsuarioActual.Empresa.Ruta, ArchivoNombre)
If File.Exists(ArchivoEnviar) Then
Dim fs As System.IO.FileStream = System.IO.File.Open(ArchivoEnviar, IO.FileMode.Open, IO.FileAccess.Read)
Dim buff(fs.Length) As Byte
Dim buff(fs.Length.ToEntero) As Byte
If fs.Length > 0 Then
fs.Read(buff, 0, fs.Length - 1)
fs.Read(buff, 0, fs.Length.ToEntero - 1)
fs.Close()
End If
Return buff

6
OI/Normatividad.aspx.vb
View File

@@ -213,7 +213,7 @@ Partial Class OI_Normatividad
ArbolCuentas.DataSource = DtDatos
Dim item As ADServerControl.DragableItem = DirectCast(ArbolCuentas.FindControl(String.Format("{0}", DdlSubtitulo.SelectedValue.ToEntero)), ADServerControl.DragableItem)
item.Attributes.Item("data-hijos") = item.Attributes.Item("data-hijos").ToEntero + 1
item.Attributes.Item("data-hijos") = (item.Attributes.Item("data-hijos").ToEntero + 1).ToString
Dim objul As ADServerControl.DragableUL = DirectCast(ArbolCuentas.FindControl(String.Format("ul{0}", DdlSubtitulo.SelectedValue.ToEntero)), ADServerControl.DragableUL)
If (IsNothing(objul)) Then
objul = New ADServerControl.DragableUL
@@ -235,7 +235,7 @@ Partial Class OI_Normatividad
End Sub
Private Sub LimpiarCampos()
Ttitulo.Text = ""
DdlSubtitulo.SelectedValue = -1
DdlSubtitulo.SelectedValueExist(-1)
TxtObservaciones.Text = ""
Guardar.Visible = False
@@ -265,7 +265,7 @@ Partial Class OI_Normatividad
ArbolCuentas.DataSource = DtDatos
Dim item As ADServerControl.DragableItem = DirectCast(ArbolCuentas.FindControl(String.Format("{0}", IDSelected)), ADServerControl.DragableItem)
Dim padre As ADServerControl.DragableItem = DirectCast(ArbolCuentas.FindControl(String.Format("{0}", item.CvePadre)), ADServerControl.DragableItem)
padre.Attributes.Item("data-hijos") = padre.Attributes.Item("data-hijos").ToEntero - 1
padre.Attributes.Item("data-hijos") = (padre.Attributes.Item("data-hijos").ToEntero - 1).ToString
ArbolCuentas.Controls.Remove(item)
'RegistraScript(String.Format("$('#{0}').click();", editar.ClientID))

4
OI/Proyecto.aspx.cs
View File

@@ -309,8 +309,8 @@ public partial class OI_Proyecto : ClsPaginas
else
{
chkpara.Enabled = false;
chkCCpara.Enabled = false;
//chkpara.Enabled = false;
//chkCCpara.Enabled = false;
}
string palomitavisto = "";
string palomitasinver = "<i class=\"fa fa-check\" aria-hidden=\"true\"></i>";

2
OI/SubidasADS.aspx.vb
View File

@@ -127,7 +127,7 @@ Partial Class OI_SubidasADS
If Not ChkCompletado Is Nothing And GvRow.DataKey("Actualizable").ToEntero = 1 Then
If ChkCompletado.Checked Then
If Not ObjDesarrollo.DesarrolloAddUpdate(GvRow.DataKey("CveDesarrollo").ToEntero, GvRow.DataKey("Desarrollo"), GvRow.DataKey("CveEvento").ToEntero, GvRow.DataKey("CveUsuarioResponsable").ToEntero, GvRow.DataKey("CveUsuarioPruebas"), GvRow.DataKey("CveModulo").ToEntero, GvRow.DataKey("Descripcion"), GvRow.DataKey("CveUsuarioAsignado").ToEntero, Nothing, -1, 5, -1, UsuarioActual.CveUsuario) Then
If Not ObjDesarrollo.DesarrolloAddUpdate(GvRow.DataKey("CveDesarrollo").ToEntero, GvRow.DataKey("Desarrollo"), GvRow.DataKey("CveEvento").ToEntero, GvRow.DataKey("CveUsuarioResponsable").ToEntero, GvRow.DataKey("CveUsuarioPruebas").ToEntero, GvRow.DataKey("CveModulo").ToEntero, GvRow.DataKey("Descripcion"), GvRow.DataKey("CveUsuarioAsignado").ToEntero, Nothing, -1, 5, -1, UsuarioActual.CveUsuario) Then
Alert("Se presento un error al actulizar los estados")
Exit For
End If

6
PortalGPS/Penske.aspx.vb
View File

@@ -36,15 +36,15 @@ Partial Class PortalGPS_Penske
Dim ws As New WSPenske.ReceiveGPSInfo
Dim info As New WSPenske.GPSInfo
info.Proveedor = row("Proveedor").ToString
info.Latitud = row("Lat").ToString
info.Longitud = row("Lng").ToString
info.Latitud = row("Lat").ToString.ToDecimal
info.Longitud = row("Lng").ToString.ToDecimal
info.NumUnidad = row("NoEconomico").ToString
info.NumRemolque = row("NumeroRemolque").ToString
info.Velocidad = row("Velocidad").ToString
info.Placas = row("PlacasVehiculo").ToString
info.Trackingnumber = row("TrackingNumber").ToString
info.Ubicacion = direccion
info.FechaHoraEvento = row("FechaTrama").ToString
info.FechaHoraEvento = row("FechaTrama").ToString.ToDate
info.FechaRecepcion = DateTime.Now.AddMinutes(120)
info.Username = row("Usuario").ToString
info.Password = row("PWD").ToString