-
+
diff --git a/OS/CatEstatusOrdenServicio.aspx.vb b/OS/CatEstatusOrdenServicio.aspx.vb
index 71ccfd3a3..855413f00 100644
--- a/OS/CatEstatusOrdenServicio.aspx.vb
+++ b/OS/CatEstatusOrdenServicio.aspx.vb
@@ -42,18 +42,34 @@ Partial Class OS_CatEstatusOrdenServicio
ViewState("DTEstatusUsuarios") = value
End Set
End Property
+ Private Property DTUsuarios As DataTable
+ Get
+ Return CType(ViewState("DTUsuarios"), DataTable)
+ End Get
+ Set(value As Data.DataTable)
+ ViewState("DTUsuarios") = value
+ End Set
+ End Property
+ Private Property DtEstatusUsuariosAsociados As DataTable
+ Get
+ Return CType(ViewState("DtEstatusUsuariosAsociados"), DataTable)
+ End Get
+ Set(value As Data.DataTable)
+ ViewState("DtEstatusUsuariosAsociados") = value
+ End Set
+ End Property
#End Region
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
+ DTUsuarios = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
CargaDatos()
- CreaGrid("Req")
- CargaGridEstatusUsuarios()
- ViewState("Orden") = ""
-
+ 'CreaGrid()
+ 'CargaGridEstatusUsuarios()
+ AsociarEstatusUsuarios()
+ CargarUsuarioConEstatus()
CveEstatuOS = -1
-
End If
End Sub
@@ -171,79 +187,65 @@ Partial Class OS_CatEstatusOrdenServicio
#End Region
#Region "Configuracion"
- Private Sub CreaGrid(Tipo As String)
- Dim i As Integer = 1
-
- For Each Row As DataRow In GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).Rows
-
- GvEstatusUsuarios.Columns(i).HeaderText = Row("EstatusOrdenServicio").ToString.ToUpper
- GvEstatusUsuarios.Columns(i).FooterText = Row("CveEstatusOrdenServicio").ToString
-
- i += 1
+ Private Sub AsociarEstatusUsuarios()
+ Dim tableResultado As DataTable = DTUsuarios
+ For Each Estatus As DataRow In DtEstatusOS.Rows
+ Dim CveColumnaEstatus As String = Estatus.Item("CveEstatusOrdenServicio").ToString
+ tableResultado.Columns.Add(CveColumnaEstatus, Type.GetType("System.Boolean"))
+ For Each Usuario As DataRow In tableResultado.Rows
+ Usuario.Item(CveColumnaEstatus) = Not IsNothing(DTEstatusUsuarios.FiltroPrimero(String.Format("CveUsuario = {0} and CveEstatusOrdenServicio = {1}", Usuario.Item("CveUsuario"), CveColumnaEstatus)))
+ Next
Next
-
- While i <= 10
- GvEstatusUsuarios.Columns(i).Visible = False
- i += 1
- End While
+ DtEstatusUsuariosAsociados = tableResultado
End Sub
- Protected Sub CargaGridEstatusUsuarios()
- GvEstatusUsuarios.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
- GvEstatusUsuarios.DataBind()
- 'UPPEmp.Update()
+ Private Sub CargarUsuarioConEstatus()
+ For Each Estatus As DataRow In DtEstatusOS.Rows
+ Dim test As New CheckBoxField
+ test.HeaderText = Estatus.Item("EstatusOrdenServicio").ToString
+ test.DataField = Estatus.Item("CveEstatusOrdenServicio").ToString
+ Prueba.Columns.Add(test)
+ Next
+ Prueba.DataSource = DtEstatusUsuariosAsociados
+ Prueba.DataBind()
End Sub
- Protected Sub btnGuardarEstatusUsuariosREQ_Click(sender As Object, e As EventArgs) Handles btnGuardarEstatusUsuariosREQ.Click
+ Private Sub Prueba_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles Prueba.RowDataBound
+ If e.Row.RowType = DataControlRowType.DataRow Then
+ Dim PermisosDeUsuario As DataTable = DTEstatusUsuarios.FiltraParametros(String.Format("CveUsuario = {0}", e.Row.DBCampo("CveUsuario").ToString))
+ For i As Integer = 1 To e.Row.Cells.Count - 1
+ If e.Row.RowType = DataControlRowType.DataRow Then
+ Dim checkBox As CheckBox = TryCast(e.Row.Cells(i).Controls(0), CheckBox)
+ checkBox.Enabled = True
+ End If
+ Next
+ End If
+ End Sub
+
+ Private Sub GuardarDatosPrueba(sender As Object, e As EventArgs) Handles BtnGuardarPruebas.Click
Dim objEstatusOC As New ClsOS
objEstatusOC.IniciaTransacSQL()
Dim HuboErrores As Boolean = False
Dim CveSubProyecto = 59
- For Each Row As GridViewRow In GvEstatusUsuarios.Rows
- Dim r As Integer = 1
- For i = 0 To Row.Cells.Count - 1
-
- Dim CveEstatus As Integer = If(IsNumeric(GvEstatusUsuarios.Columns(i).FooterText), GvEstatusUsuarios.Columns(i).FooterText.ToEntero, 0)
-
- If CveEstatus > 0 Then
-
- If Row.FCCheckBox("chkEstatus" + r.ToString).Checked = False Then
- 'Eliminar el registro existente
- If Not objEstatusOC.RemoveEstatusUsuarios(CveEstatus, Row.DataKey("CveUsuario").ToString.ToEntero) Then
- HuboErrores = True
- Exit For
- End If
- ElseIf Row.FCCheckBox("chkEstatus" + r.ToString).Checked = True Then
- 'Guardado masivo cuando sea SubProyecto "Todos"
- If CveSubProyecto = -2 Then
- For Each dr As DataRow In GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).Rows
- If Not objEstatusOC.AddEstatusUsuarios(CveEstatus, Row.DataKey("CveUsuario").ToString.ToEntero, CveSubProyecto) Then
- HuboErrores = True
- Exit For
- End If
- Next
- If HuboErrores Then
- Exit For
- End If
-
- 'Insertar el nuevo registro
- Else
- If Not objEstatusOC.AddEstatusUsuarios(CveEstatus, Row.DataKey("CveUsuario").ToString.ToEntero, CveSubProyecto) Then
- HuboErrores = True
- Exit For
- End If
- End If
-
+ For Each Row As GridViewRow In Prueba.Rows
+ Dim controles As Integer = Row.Controls.Count
+ For i = 1 To Row.Cells.Count - 1
+ Dim chk As CheckBox = CType(Row.Cells(i).Controls(0), CheckBox)
+ Dim CveEstatus As Integer = DtEstatusOS.FiltroPrimeroValor("CveEstatusOrdenServicio", String.Format("EstatusOrdenServicio = '{0}'", Prueba.Columns(i).HeaderText)).ToEntero
+ If Not chk.Checked Then
+ If Not objEstatusOC.RemoveEstatusUsuarios(CveEstatus, Row.DataKey("CveUsuario").ToString.ToEntero) Then
+ HuboErrores = True
+ Exit For
+ End If
+ ElseIf chk.Checked Then
+ 'Guardado masivo cuando sea SubProyecto "Todos"
+ If Not objEstatusOC.AddEstatusUsuarios(CveEstatus, Row.DataKey("CveUsuario").ToString.ToEntero, CveSubProyecto) Then
+ HuboErrores = True
+ Exit For
End If
- r += 1
End If
Next
-
- 'Si tubo algun error terminamos el proceso (FOR)
- If HuboErrores Then
- Exit For
- End If
Next
If Not HuboErrores Then
@@ -253,27 +255,7 @@ Partial Class OS_CatEstatusOrdenServicio
objEstatusOC.RollBack()
Alert("Ocurrió un error al guardar los cambios. Por favor vuelva a intentar", TipoMensaje.MsgError)
End If
-
objEstatusOC.Dispose()
- CargaDatos()
- CargaGridEstatusUsuarios()
- End Sub
-
- Protected Sub GvEstatusUsuarios_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEstatusUsuarios.RowDataBound
- If e.Row.RowType = DataControlRowType.DataRow Then
- Dim PermisosDeUsuario As DataTable = DTEstatusUsuarios.FiltraParametros(String.Format("CveUsuario = {0}", e.Row.DBCampo("CveUsuario").ToString))
- Dim CveUsuario As String = e.Row.DBCampo("CveUsuario").ToString
- For i As Integer = 1 To 10
- Dim CveEstatus As Integer = GvEstatusUsuarios.Columns(i).FooterText.ToEntero
- If CveEstatus > 0 Then
- Dim auxiliarBandera As DataRow = PermisosDeUsuario.FiltroPrimero(String.Format("CveEstatusOrdenServicio = {0}", CveEstatus.ToString))
- If auxiliarBandera IsNot Nothing Then
- Dim chkEstatus As CheckBox = e.Row.FCCheckBox(String.Format("chkEstatus{0}", i))
- chkEstatus.Checked = True
- End If
- End If
- Next
- End If
End Sub
#End Region
End Class
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 59dacbbf0..07bac883c 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -14845,8 +14845,9 @@ Partial Class Ventas
If (CveAlmacenEntrada > 0 AndAlso CveTipoAlmacen <> 1) Or RemisionesLista.Count = 0 Then 'Con remisiones parciales ignoramos las surtidas ya realizadas
Dim MovDetalle As New DataTable
-
+ Dim AplicaMovimientoDetalleEntrada As Boolean = False
If RemisionesLista.Count > 0 Then
+ AplicaMovimientoDetalleEntrada = True
MovDetalle = CuadrarFacturaMovimientos(DtMovimientosDetalles.FiltraParametros($"CveMovimiento = {dr("CveMovimiento")} AND TieneSalidaxFactura IS NULL"))
Else
MovDetalle = DtMovimientosDetalles.FiltraParametros($"CveMovimiento = {dr("CveMovimiento")}")
@@ -14855,8 +14856,9 @@ Partial Class Ventas
If ErrorList.Count = 0 AndAlso MovDetalle.Rows.Count > 0 Then
Dim CveMovimientoSalidaPorTraspaso As Integer = -1
+
'Le damos salida de apartado por traspaso
- CveMovimientoSalidaPorTraspaso = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenSalida, 8, CveMoneda, CveRemision)
+ CveMovimientoSalidaPorTraspaso = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenSalida, 8, CveMoneda, CveRemision, AplicaMovimientoDetalleEntrada:=AplicaMovimientoDetalleEntrada)
If Not CveMovimientoSalidaPorTraspaso > 0 Then
OcurrioError = True
@@ -14993,7 +14995,7 @@ Partial Class Ventas
Return Not OcurrioError
End Function
- Private Function GenerarMovimientoAlmacen(ByRef ObjInventario As ClsInventarios, DtMovDetalle As DataTable, CveAlmacen As Integer, ConceptoEntrada As Integer, CveMoneda As Integer, CveVenta As Integer, Optional MovimientoPrePoliza As Boolean = False, Optional ByRef ObjConta As ClsContabilidad = Nothing, Optional CveMovimientoRelacionado As Integer = -1) As Integer
+ Private Function GenerarMovimientoAlmacen(ByRef ObjInventario As ClsInventarios, DtMovDetalle As DataTable, CveAlmacen As Integer, ConceptoEntrada As Integer, CveMoneda As Integer, CveVenta As Integer, Optional MovimientoPrePoliza As Boolean = False, Optional ByRef ObjConta As ClsContabilidad = Nothing, Optional CveMovimientoRelacionado As Integer = -1, Optional AplicaMovimientoDetalleEntrada As Boolean = False) As Integer
Dim OcurrioError As Boolean = False
Dim ContadorMovtosDetalles = 0
@@ -15037,7 +15039,13 @@ Partial Class Ventas
Exit For
End If
- If ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, Cantidad, CveUnidad, CveProducto, PU, -1, SerieLote:=SerieLote, CveVentaDetalle:=CveVentaDetalle) Then
+ 'CUANDO SEA REMISION FACTURADA DEBE RELACIONAR LOS NUEVOS MOVIMIENTOS POR EL DETALLE
+ Dim CveMovimientoDetalleEntrada As Integer = -1
+ If AplicaMovimientoDetalleEntrada Then
+ CveMovimientoDetalleEntrada = MovDet("CveMovimientoDetalle").ToString.ToEntero
+ End If
+
+ If ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, Cantidad, CveUnidad, CveProducto, PU, -1, SerieLote:=SerieLote, CveVentaDetalle:=CveVentaDetalle, CveMovimientoDetalleEntrada:=CveMovimientoDetalleEntrada) Then
ContadorMovtosDetalles += 1
Else
OcurrioError = True
@@ -17563,40 +17571,42 @@ Partial Class Ventas
Private Sub LbCancelarDocumento_Click(sender As Object, e As EventArgs) Handles LbCancelarDocumento.Click
- If VentaSaldoAlmacen <> 0 Then
- Alert("El pedido no se puede cancelar ya que tiene movimientos de almacén.
Nota: Primero hay que hacer la devolución al almacén", TipoMensaje.MsgAdvertencia)
- Else
- If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Dev", "Egs") Then
- Dim sb As New StringBuilder()
- sb.Append("La factura se encuentra en el siguiente estatus del SAT:
")
+ 'If VentaSaldoAlmacen <> 0 Then
+ ' Alert("El pedido no se puede cancelar ya que tiene movimientos de almacén.
Nota: Primero hay que hacer la devolución al almacén", TipoMensaje.MsgAdvertencia)
+ 'Else
- Dim TotalT As Decimal = TxtTotal.Text.ToDecimal
- Dim RFCReceptor As String = LblRFC.Text.Trim
- Dim Vigencia = Timbrado.VerificarVigenciaSAT(FolioFiscal, UsuarioActual.Empresa.RFC, RFCReceptor, TotalT.ToString(), True)
- If Vigencia IsNot Nothing Then
- If Vigencia.EsCancelable.ToUpper() = "NO CANCELABLE" Then
- Alert("Esta factura no es cancelable.", TipoMensaje.MsgAdvertencia)
- Exit Sub
- End If
- If String.IsNullOrEmpty(Vigencia.EsCancelable) Then
- sb.Append("
No encontrado ")
- Else
- sb.AppendFormat("
{0} ", Vigencia.EsCancelable)
- End If
+ 'End If
+
+ If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Dev", "Egs") Then
+ Dim sb As New StringBuilder()
+ sb.Append("La factura se encuentra en el siguiente estatus del SAT:
")
+
+ Dim TotalT As Decimal = TxtTotal.Text.ToDecimal
+ Dim RFCReceptor As String = LblRFC.Text.Trim
+ Dim Vigencia = Timbrado.VerificarVigenciaSAT(FolioFiscal, UsuarioActual.Empresa.RFC, RFCReceptor, TotalT.ToString(), True)
+ If Vigencia IsNot Nothing Then
+ If Vigencia.EsCancelable.ToUpper() = "NO CANCELABLE" Then
+ Alert("Esta factura no es cancelable.", TipoMensaje.MsgAdvertencia)
+ Exit Sub
+ End If
+ If String.IsNullOrEmpty(Vigencia.EsCancelable) Then
+ sb.Append("
No encontrado ")
Else
- sb.Append("
No encontrado ")
+ sb.AppendFormat("
{0} ", Vigencia.EsCancelable)
End If
-
- sb.Append("Está seguro de cancelar el documento?.")
-
- LblCancelarDocumento.Text = sb.ToString()
-
- RegistraScript("$('#ModalCancelarDocumento').modal();")
- UpCancelarDocumento.Update()
- 'Alert(sb.ToString(), TipoMensaje.MsgConfirmacion, JSBtnAceptar:="BtnCancelarDocumentoConfirmar()", TextoConfirmacion:=" Si ", TextoCancelacion:=" No ")
Else
- CancelarDocumento()
+ sb.Append("
No encontrado ")
End If
+
+ sb.Append("Está seguro de cancelar el documento?.")
+
+ LblCancelarDocumento.Text = sb.ToString()
+
+ RegistraScript("$('#ModalCancelarDocumento').modal();")
+ UpCancelarDocumento.Update()
+
+ Else
+ CancelarDocumento()
End If
End Sub