-- cambios E140. recolecciones
This commit is contained in:
@@ -143,33 +143,33 @@ Partial Class AF_ValesCombustible
|
||||
#Region "DDL CHANGED & CHK CHANGED & TXT CHANGUED"
|
||||
Private Sub DdlActivoFijo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlActivoFijo.SelectedIndexChanged
|
||||
|
||||
Dim ObjValesCombustible As New ClsAF
|
||||
If ObjValesCombustible.GetValesCombustible(-1, -1, -1, -1, DdlActivoFijo.SelectedValue.ToEntero, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1) Then
|
||||
Dim dtAF As DataTable = ObjValesCombustible.DtResultados.FiltraParametros("", Orderby:="CveVale DESC")
|
||||
If dtAF.Rows.Count > 0 Then
|
||||
Dim dr As DataRow = dtAF.Rows(0)
|
||||
LblFecha.Text = dr("Fecha").ToString
|
||||
LblLitrosAF.Text = dr("Litros").ToString
|
||||
LblCombustible.Text = dr("Combustible").ToString
|
||||
LblOdometro.Text = dr("Odometro").ToString
|
||||
'Dim ObjValesCombustible As New ClsAF
|
||||
'If ObjValesCombustible.GetValesCombustible(-1, -1, -1, -1, DdlActivoFijo.SelectedValue.ToEntero, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1) Then
|
||||
' Dim dtAF As DataTable = ObjValesCombustible.DtResultados.FiltraParametros("", Orderby:="CveVale DESC")
|
||||
' If dtAF.Rows.Count > 0 Then
|
||||
' Dim dr As DataRow = dtAF.Rows(0)
|
||||
' LblFecha.Text = dr("Fecha").ToString
|
||||
' LblLitrosAF.Text = dr("Litros").ToString
|
||||
' LblCombustible.Text = dr("Combustible").ToString
|
||||
' LblOdometro.Text = dr("Odometro").ToString
|
||||
|
||||
If dr("CvePersonal").ToString.ToEntero > 0 Then
|
||||
LbPersonal.Text = String.Format("{0}, {1}", dr("NombreCompleto").ToString, dr("Recibe").ToString)
|
||||
Else
|
||||
LbPersonal.Text = dr("NombreCompleto").ToString
|
||||
End If
|
||||
' If dr("CvePersonal").ToString.ToEntero > 0 Then
|
||||
' LbPersonal.Text = String.Format("{0}, {1}", dr("NombreCompleto").ToString, dr("Recibe").ToString)
|
||||
' Else
|
||||
' LbPersonal.Text = dr("NombreCompleto").ToString
|
||||
' End If
|
||||
|
||||
|
||||
Else
|
||||
LblFecha.Text = ""
|
||||
LblLitrosAF.Text = ""
|
||||
LblCombustible.Text = ""
|
||||
LblOdometro.Text = ""
|
||||
LbPersonal.Text = ""
|
||||
UpConsumo.Update()
|
||||
End If
|
||||
End If
|
||||
ObjValesCombustible.Dispose()
|
||||
' Else
|
||||
' LblFecha.Text = ""
|
||||
' LblLitrosAF.Text = ""
|
||||
' LblCombustible.Text = ""
|
||||
' LblOdometro.Text = ""
|
||||
' LbPersonal.Text = ""
|
||||
' UpConsumo.Update()
|
||||
' End If
|
||||
'End If
|
||||
'ObjValesCombustible.Dispose()
|
||||
End Sub
|
||||
|
||||
'Private Sub DdProveedorVinculacion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdProveedorVinculacion.SelectedIndexChanged
|
||||
@@ -297,8 +297,8 @@ Partial Class AF_ValesCombustible
|
||||
|
||||
'Si TipoVale es 1 = Externo
|
||||
If ChkExterno.Checked = True Then
|
||||
CveVale = ObjVales.AddValesCombustible(FolioUsuario, 0, DdlProveedores.SelectedValue.ToEntero, DdlActivoFijo.SelectedValue.ToEntero, DdlRHPersonal.SelectedValue.ToEntero, TxtFechaVale.Text.ToDate, TxtNombreRecibe.Text, DdlSubProyecto.SelectedValue.ToEntero, TxtObservciones.Text, TxtOdometroActual.Text.ToEntero, DdlCombustible.SelectedValue.ToEntero, TxtLitros.Text.ToDouble, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
Folio = ObjVales.FolioVale
|
||||
'CveVale = ObjVales.AddValesCombustible(FolioUsuario, 0, DdlProveedores.SelectedValue.ToEntero, DdlActivoFijo.SelectedValue.ToEntero, DdlRHPersonal.SelectedValue.ToEntero, TxtFechaVale.Text.ToDate, TxtNombreRecibe.Text, DdlSubProyecto.SelectedValue.ToEntero, TxtObservciones.Text, TxtOdometroActual.Text.ToEntero, DdlCombustible.SelectedValue.ToEntero, TxtLitros.Text.ToDouble, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
'Folio = ObjVales.FolioVale
|
||||
|
||||
|
||||
If CveVale < 0 Then
|
||||
@@ -307,8 +307,8 @@ Partial Class AF_ValesCombustible
|
||||
|
||||
ElseIf ChkInterno.Checked = True Then
|
||||
|
||||
CveVale = ObjVales.AddValesCombustible(FolioUsuario, 0, DdlProveedores.SelectedValue.ToEntero, DdlActivoFijo.SelectedValue.ToEntero, DdlRHPersonal.SelectedValue.ToEntero, TxtFechaVale.Text.ToDate, TxtNombreRecibe.Text, DdlSubProyecto.SelectedValue.ToEntero, TxtObservciones.Text, TxtOdometroActual.Text.ToEntero, DdlCombustible.SelectedValue.ToEntero, TxtLitros.Text.ToDouble, 2, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
Folio = ObjVales.FolioVale
|
||||
'CveVale = ObjVales.AddValesCombustible(FolioUsuario, 0, DdlProveedores.SelectedValue.ToEntero, DdlActivoFijo.SelectedValue.ToEntero, DdlRHPersonal.SelectedValue.ToEntero, TxtFechaVale.Text.ToDate, TxtNombreRecibe.Text, DdlSubProyecto.SelectedValue.ToEntero, TxtObservciones.Text, TxtOdometroActual.Text.ToEntero, DdlCombustible.SelectedValue.ToEntero, TxtLitros.Text.ToDouble, 2, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
'Folio = ObjVales.FolioVale
|
||||
|
||||
'AGREGAMOS LA SALIDA
|
||||
|
||||
@@ -339,37 +339,37 @@ Partial Class AF_ValesCombustible
|
||||
'Si el odometro es mayor a la proxima recarga
|
||||
Else
|
||||
'Si TipoVale es 1 = Externo
|
||||
If ChkExterno.Checked = True Then
|
||||
CveVale = ObjVales.AddValesCombustible(FolioUsuario, 0, DdlProveedores.SelectedValue.ToEntero, DdlActivoFijo.SelectedValue.ToEntero, DdlRHPersonal.SelectedValue.ToEntero, TxtFechaVale.Text.ToDate, TxtNombreRecibe.Text, DdlSubProyecto.SelectedValue.ToEntero, TxtObservciones.Text, TxtOdometroActual.Text.ToEntero, DdlCombustible.SelectedValue.ToEntero, TxtLitros.Text.ToEntero, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
Folio = ObjVales.FolioVale
|
||||
'If ChkExterno.Checked = True Then
|
||||
' CveVale = ObjVales.AddValesCombustible(FolioUsuario, 0, DdlProveedores.SelectedValue.ToEntero, DdlActivoFijo.SelectedValue.ToEntero, DdlRHPersonal.SelectedValue.ToEntero, TxtFechaVale.Text.ToDate, TxtNombreRecibe.Text, DdlSubProyecto.SelectedValue.ToEntero, TxtObservciones.Text, TxtOdometroActual.Text.ToEntero, DdlCombustible.SelectedValue.ToEntero, TxtLitros.Text.ToEntero, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
' Folio = ObjVales.FolioVale
|
||||
|
||||
If CveVale < 0 Then
|
||||
ErrorMovInv = True
|
||||
End If
|
||||
' If CveVale < 0 Then
|
||||
' ErrorMovInv = True
|
||||
' End If
|
||||
|
||||
'Si TipoVale es 2 = Interno
|
||||
ElseIf ChkInterno.Checked = True Then
|
||||
CveVale = ObjVales.AddValesCombustible(FolioUsuario, 0, DdlProveedores.SelectedValue.ToEntero, DdlActivoFijo.SelectedValue.ToEntero, DdlRHPersonal.SelectedValue.ToEntero, TxtFechaVale.Text.ToDate, TxtNombreRecibe.Text, DdlSubProyecto.SelectedValue.ToEntero, TxtObservciones.Text, TxtOdometroActual.Text.ToEntero, DdlCombustible.SelectedValue.ToEntero, TxtLitros.Text.ToDouble, 2, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
Folio = ObjVales.FolioVale
|
||||
' 'Si TipoVale es 2 = Interno
|
||||
'ElseIf ChkInterno.Checked = True Then
|
||||
' CveVale = ObjVales.AddValesCombustible(FolioUsuario, 0, DdlProveedores.SelectedValue.ToEntero, DdlActivoFijo.SelectedValue.ToEntero, DdlRHPersonal.SelectedValue.ToEntero, TxtFechaVale.Text.ToDate, TxtNombreRecibe.Text, DdlSubProyecto.SelectedValue.ToEntero, TxtObservciones.Text, TxtOdometroActual.Text.ToEntero, DdlCombustible.SelectedValue.ToEntero, TxtLitros.Text.ToDouble, 2, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
' Folio = ObjVales.FolioVale
|
||||
|
||||
'AGREGAMOS LA SALIDA
|
||||
CveMovimientoSalida = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 3, 1, TxtFechaVale.Text.Trim.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1)
|
||||
FolioSalida = ObjInventario.Folio
|
||||
' 'AGREGAMOS LA SALIDA
|
||||
' CveMovimientoSalida = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 3, 1, TxtFechaVale.Text.Trim.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1)
|
||||
' FolioSalida = ObjInventario.Folio
|
||||
|
||||
If CveMovimientoSalida <= 0 Then
|
||||
TextoError = "No se pudo generar el movimiento de salida correctamente"
|
||||
ErrorMovInv = True
|
||||
Else
|
||||
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, TxtLitros.Text.Trim.ToEntero, CveUM, CvePS, -1, DdlActivoFijo.SelectedValue.ToEntero) Then
|
||||
ErrorMovInv = True
|
||||
TextoError = "Ocurrió un error al guardar los movimientos"
|
||||
End If
|
||||
' If CveMovimientoSalida <= 0 Then
|
||||
' TextoError = "No se pudo generar el movimiento de salida correctamente"
|
||||
' ErrorMovInv = True
|
||||
' Else
|
||||
' If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, TxtLitros.Text.Trim.ToEntero, CveUM, CvePS, -1, DdlActivoFijo.SelectedValue.ToEntero) Then
|
||||
' ErrorMovInv = True
|
||||
' TextoError = "Ocurrió un error al guardar los movimientos"
|
||||
' End If
|
||||
|
||||
End If
|
||||
' End If
|
||||
|
||||
Else
|
||||
Alert("Debe Seleccionar un Tipo de Vale", TipoMensaje.MsgError)
|
||||
End If
|
||||
'Else
|
||||
' Alert("Debe Seleccionar un Tipo de Vale", TipoMensaje.MsgError)
|
||||
'End If
|
||||
End If
|
||||
|
||||
If Not ErrorMovInv Then
|
||||
@@ -397,51 +397,51 @@ Partial Class AF_ValesCombustible
|
||||
|
||||
Private Sub BtnActualizar_Click(sender As Object, e As EventArgs) Handles BtnActualizar.Click
|
||||
|
||||
Dim ObjValesCombustible As New ClsAF
|
||||
For Each gvr As GridViewRow In GVBuscar.Rows
|
||||
If gvr.RowType = DataControlRowType.DataRow Then
|
||||
If gvr.FCCheckBox("Chk").Checked Then
|
||||
Dim CveProveedor = If(gvr.FCDropDownList("DdlBuscarP").Visible, gvr.FCDropDownList("DdlBuscarP").SelectedValue.ToEntero, gvr.FCLiteral("LtlProveedor").Text.ToEntero)
|
||||
ObjValesCombustible.UpdateValeCombustible(gvr.DataKey("CveVale").ToEntero, gvr.DataKey("CveCompra").ToEntero, CveProveedor, gvr.FCTextBox("TxtNombreRecibe").Text, gvr.FCTextBox("TxtCantidad").Text.ToDouble, gvr.FCTextBox("TxtRecibo").Text.ToEntero, gvr.FCTextBox("TxtImporte").Text.ToEntero, UsuarioActual.CveEmpresa)
|
||||
Alert("Se Actualizo con exito")
|
||||
ActualizarM()
|
||||
Else
|
||||
Alert("Seleccione una opcion")
|
||||
End If
|
||||
End If
|
||||
'Dim ObjValesCombustible As New ClsAF
|
||||
'For Each gvr As GridViewRow In GVBuscar.Rows
|
||||
' If gvr.RowType = DataControlRowType.DataRow Then
|
||||
' If gvr.FCCheckBox("Chk").Checked Then
|
||||
' Dim CveProveedor = If(gvr.FCDropDownList("DdlBuscarP").Visible, gvr.FCDropDownList("DdlBuscarP").SelectedValue.ToEntero, gvr.FCLiteral("LtlProveedor").Text.ToEntero)
|
||||
' ObjValesCombustible.UpdateValeCombustible(gvr.DataKey("CveVale").ToEntero, gvr.DataKey("CveCompra").ToEntero, CveProveedor, gvr.FCTextBox("TxtNombreRecibe").Text, gvr.FCTextBox("TxtCantidad").Text.ToDouble, gvr.FCTextBox("TxtRecibo").Text.ToEntero, gvr.FCTextBox("TxtImporte").Text.ToEntero, UsuarioActual.CveEmpresa)
|
||||
' Alert("Se Actualizo con exito")
|
||||
' ActualizarM()
|
||||
' Else
|
||||
' Alert("Seleccione una opcion")
|
||||
' End If
|
||||
' End If
|
||||
|
||||
Next
|
||||
ObjValesCombustible.Dispose()
|
||||
'Next
|
||||
'ObjValesCombustible.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Sub BtnBuscar_Click(sender As Object, e As EventArgs) Handles BtnBuscar.Click
|
||||
Dim ObjValesCombustible As New ClsAF
|
||||
'Dim ObjValesCombustible As New ClsAF
|
||||
|
||||
If ObjValesCombustible.GetValesCombustible(-1, -1, If(TxtBuscar.Text.Equals(""), -1, TxtBuscar.Text.ToEntero), DdlBuscarProveedor.SelectedValue.ToEntero, DdlBuscarActivo.SelectedValue.ToEntero, -1, -1, -1, -1, DdlBuscarPersonal.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1) Then
|
||||
GVBuscar.DataSource = ObjValesCombustible.DtResultados
|
||||
If ObjValesCombustible.DtResultados.Rows.Count > 0 Then
|
||||
BtnActualizar.Visible = True
|
||||
End If
|
||||
Else
|
||||
GVBuscar.DataSource = Nothing
|
||||
BtnActualizar.Visible = False
|
||||
End If
|
||||
ObjValesCombustible.Dispose()
|
||||
GVBuscar.DataBind()
|
||||
UpBuscar.Update()
|
||||
'If ObjValesCombustible.GetValesCombustible(-1, -1, If(TxtBuscar.Text.Equals(""), -1, TxtBuscar.Text.ToEntero), DdlBuscarProveedor.SelectedValue.ToEntero, DdlBuscarActivo.SelectedValue.ToEntero, -1, -1, -1, -1, DdlBuscarPersonal.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1) Then
|
||||
' GVBuscar.DataSource = ObjValesCombustible.DtResultados
|
||||
' If ObjValesCombustible.DtResultados.Rows.Count > 0 Then
|
||||
' BtnActualizar.Visible = True
|
||||
' End If
|
||||
'Else
|
||||
' GVBuscar.DataSource = Nothing
|
||||
' BtnActualizar.Visible = False
|
||||
'End If
|
||||
'ObjValesCombustible.Dispose()
|
||||
'GVBuscar.DataBind()
|
||||
'UpBuscar.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub ActualizarM()
|
||||
Dim ObjValesCombustible As New ClsAF
|
||||
'Dim ObjValesCombustible As New ClsAF
|
||||
|
||||
If ObjValesCombustible.GetValesCombustible(-1, -1, If(TxtBuscar.Text.Equals(""), -1, TxtBuscar.Text.ToEntero), DdlBuscarProveedor.SelectedValue.ToEntero, DdlBuscarActivo.SelectedValue.ToEntero, -1, -1, -1, -1, DdlBuscarPersonal.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1) Then
|
||||
GVBuscar.DataSource = ObjValesCombustible.DtResultados
|
||||
Else
|
||||
GVBuscar.DataSource = Nothing
|
||||
End If
|
||||
ObjValesCombustible.Dispose()
|
||||
GVBuscar.DataBind()
|
||||
UpBuscar.Update()
|
||||
'If ObjValesCombustible.GetValesCombustible(-1, -1, If(TxtBuscar.Text.Equals(""), -1, TxtBuscar.Text.ToEntero), DdlBuscarProveedor.SelectedValue.ToEntero, DdlBuscarActivo.SelectedValue.ToEntero, -1, -1, -1, -1, DdlBuscarPersonal.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1) Then
|
||||
' GVBuscar.DataSource = ObjValesCombustible.DtResultados
|
||||
'Else
|
||||
' GVBuscar.DataSource = Nothing
|
||||
'End If
|
||||
'ObjValesCombustible.Dispose()
|
||||
'GVBuscar.DataBind()
|
||||
'UpBuscar.Update()
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
Reference in New Issue
Block a user