Merge branch 'master' of http://192.168.10.111:8383/SIG

Compras/Compras.aspx.vb

@@ -6613,9 +6613,6 @@ Partial Class Compras_Compras
 
                                                                 Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
 
-                                                                If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2, UsuarioActual.CveUsuario) Then
-                                                                    ErrorMovInv = True
-                                                                End If
 
                                                                 If importeMovimiento > 0 Or TxtTotal.Text.ToDecimal = 0 Then
                                                                         RegistroCuentaPuente = True
@@ -13692,74 +13689,11 @@ Partial Class Compras_Compras
             End If
         End If
         ObjComprasComprobacion.Dispose()
-        Dim cvemovimientoentrada As Integer = -1
 
 
-
-
-        'DEVOLUCIÓN AUTOMATICA
-        If CheckDevAuto.Checked Then
-            Dim ErrorMovInv As Boolean = False
-
-            Dim folio As Integer
-            Dim fecha As Date = TxtFechaCancelacion.Text.ToDate
-            Dim importeconcepto As Decimal
-            Dim ObjInventario As New ClsInventarios
-            Dim ObjCompra As New ClsCompras
-            Dim tbmovs As DataTable = Nothing
-            Dim TmpDT As DataTable = Nothing
-            Dim TipoCambioGuardar As Decimal = 1
-            Dim tcvealmacen As Integer = 0
-
-            If ObjCompra.GetCompraDetalle(CveCompra, UsuarioActual.CveEmpresa) Then
-                If ObjCompra.DtResultados.Rows.Count > 0 Then
-                    TmpDT = ObjCompra.DtResultados
-                End If
-            End If
-
-            If ObjInventario.GetInv_ComprasMov(CveCompra, UsuarioActual.CveEmpresa) Then
-                If ObjInventario.DtResultados.Rows.Count > 0 Then
-                    tbmovs = ObjInventario.DtResultados
-                End If
-            End If
-
-            If DdlMoneda.SelectedValue.ToEntero > 1 Then
-                TipoCambioGuardar = If(DivTC.Visible, TxtTC.Text.ToDecimal, LblTC.Text.Substring(3).ToDecimal)
-            End If
-            TipoCambio = If(DivTC.Visible, TipoCambioGuardar, TipoCambio)
-
-            For Each dtMovs As DataRow In TmpDT.Rows
-                If TmpDT.Rows.Count > 0 Then
-                    tcvealmacen = dtMovs("AlmacenRegistrado").ToString.ToEntero
-                    Exit For
-                End If
-            Next
-
-            folio = ObjInventario.GetFolioSiguiente(13, UsuarioActual.CveEmpresa)
-            cvemovimientoentrada = ObjInventario.AddMovimiento(tcvealmacen, 13, 1, fecha, folio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, TipoCambio:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, TipoCambioGuardar), Modulo:="Devolucion Automatica")
-            If cvemovimientoentrada <= 0 Then
-                ErrorMovInv = True
-            Else
-                For Each dr As DataRow In tbmovs.Rows
-                    If dr("cvealmacen").ToString.ToEntero = tcvealmacen And dr("CveCompraDetalle").ToString.ToEntero <> -1 And dr("origen").ToString.ToEntero <> -1 And dr("Total").ToString.ToDecimal <> 0 Then
-                        'hay que restarle descuento
-                        importeconcepto = dr("Total").ToString.ToDecimal
-                        If Not ObjInventario.AddMovimientoDetalle(cvemovimientoentrada, dr("cantidad").ToString.ToDouble, dr("cveum").ToString.ToEntero, dr("cveps").ToString.ToEntero, importeconcepto, -1, CveCompraDetalle:=dr("CveCompraDetalle").ToString.ToEntero, Serie:=dr("Serie").ToString) Then
-                            ErrorMovInv = True
-                            Exit Sub
-                        End If
-                    End If
-                Next
-
-            End If
-
-            If ErrorMovInv = True Then
-                ObjInventario.RollBack()
-            End If
-            ObjInventario.Dispose()
-            ObjCompra.Dispose()
-        End If
-
+        Dim ObjCompras As New ClsCompras
+        Dim ObjContabilidad As New ClsContabilidad(ObjCompras.IniciaTransacSQL())
+        Dim ObjInventario As New ClsInventarios(ObjCompras.IniciaTransacSQL())
 
         Dim ObjAC As ClsContPAQi = Nothing
         If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") AndAlso UsuarioActual.Empresa.TipoContabilidad = 2 Then
@@ -13767,21 +13701,128 @@ Partial Class Compras_Compras
             ObjAC.IniciaTransacSQL()
         End If
 
-        Dim ObjCompras As New ClsCompras
-        Dim ObjContabilidad As New ClsContabilidad(ObjCompras.IniciaTransacSQL())
-
         Dim ErrorCancelar = False
         Dim IdPolizaNueva = -1
         Dim FolioPolizaNueva = -1
         Dim CvePrePolizaNueva = -1
-        Dim dt As DataTable
+
+        Try
+
+            'DEVOLUCIÓN AUTOMATICA
+            If CheckDevAuto.Checked Then
+
+                Dim fecha As Date = TxtFechaCancelacion.Text.ToDateTime().AddHours(23).AddMinutes(59)
+                Dim importeconcepto As Decimal
+
+                Dim tbmovs As DataTable = Nothing
+                Dim TmpDT As DataTable = Nothing
+                Dim TipoCambioGuardar As Decimal = 1
 
 
-        ' MES ANTERIOR, MOVIMIENTOS CONTRARIOS (NEGATIVOS)
-        If True Then
+                If ObjCompras.GetCompraDetalle(CveCompra, UsuarioActual.CveEmpresa) Then
+                    If ObjCompras.DtResultados.Rows.Count > 0 Then
+                        TmpDT = ObjCompras.DtResultados.Copy()
+                    End If
+                End If
 
+                If ObjInventario.GetInv_ComprasMov(CveCompra, UsuarioActual.CveEmpresa) Then
+                    If ObjInventario.DtResultados.Rows.Count > 0 Then
+                        tbmovs = ObjInventario.DtResultados
+                    End If
+                End If
+
+                If DdlMoneda.SelectedValue.ToEntero > 1 Then
+                    TipoCambioGuardar = If(DivTC.Visible, TxtTC.Text.ToDecimal, LblTC.Text.Substring(3).ToDecimal)
+                End If
+                TipoCambio = If(DivTC.Visible, TipoCambioGuardar, TipoCambio)
+
+                'For Each dtMovs As DataRow In TmpDT.Rows
+                '    If TmpDT.Rows.Count > 0 Then
+                '        tcvealmacen = dtMovs("AlmacenRegistrado").ToString.ToEntero
+                '        Exit For
+                '    End If
+                'Next
+
+                Dim DtMovimientos = tbmovs.FiltraParametros("Origen = 1", DistinctColumns:={"CveMovimiento", "CveConcepto", "CveAlmacen", "Origen"})
+
+                For Each RowMovto As DataRow In DtMovimientos.Rows
+
+                    Dim CveMovimientoEntrada As Integer = -1
+
+                    Dim Folio As Integer
+                    Dim CveAlmacen As Integer = RowMovto("CveAlmacen").ToString().ToEntero()
+                    Dim CveConceptoDevolucion As Integer = -1
+                    Dim CveConcetoEntrada = RowMovto("CveConcepto").ToString().ToEntero()
+                    Dim CveMovimientoReferencia As Integer = RowMovto("CveMovimiento").ToString().ToEntero()
+
+                    Select Case CveConcetoEntrada
+                        Case 2
+                            CveConceptoDevolucion = 13
+                    End Select
+
+                    Folio = ObjInventario.GetFolioSiguiente(CveConceptoDevolucion, UsuarioActual.CveEmpresa)
+                    CveMovimientoEntrada = ObjInventario.AddMovimiento(CveAlmacen, CveConceptoDevolucion, 1, fecha, Folio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, TipoCambio:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, TipoCambioGuardar), Modulo:="Devolucion Automatica")
+
+                    If CveMovimientoEntrada <= 0 Then
+                        ErrorCancelar = True
+                        Exit For
+                    Else
+                        For Each dr As DataRow In tbmovs.Rows
+                            If dr("CveAlmacen").ToString.ToEntero = CveAlmacen And dr("CveCompraDetalle").ToString.ToEntero <> -1 And dr("origen").ToString.ToEntero <> -1 And dr("Total").ToString.ToDecimal <> 0 Then
+                                'hay que restarle descuento
+                                importeconcepto = dr("Total").ToString.ToDecimal
+                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, dr("Cantidad").ToString.ToDouble, dr("CveUM").ToString.ToEntero, dr("CvePS").ToString.ToEntero, importeconcepto, -1, CveCompraDetalle:=dr("CveCompraDetalle").ToString.ToEntero, Serie:=dr("Serie").ToString) Then
+                                    ErrorCancelar = True
+                                    Exit For
+                                End If
+                            End If
+                        Next
+
+                    End If
+
+                    If CvePrePoliza > 0 Then
+                        Dim Total68 As Decimal = 0
+                        If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa) Then
+                            Total68 = ObjInventario.DtResultados.SUMD("Total").RoundSQL(2) * -1
+                        End If
+
+                        If ObjContabilidad.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) Then
+                            Dim DtPrePolizaAlmacen = ObjContabilidad.DtResultados.FiltraParametros($"CveMovimientoAlmacen = {CveMovimientoReferencia}")
+
+                            CvePrePolizaNueva = ObjContabilidad.AddPrePolizas("Compras/Cancelar", DtPrePolizaAlmacen.Rows(0)("CvePlantillaPoliza").ToString.ToEntero, DtPrePolizaAlmacen.Rows(0)("Cargos").ToString.ToDouble * -1, DtPrePolizaAlmacen.Rows(0)("Abonos").ToString.ToDouble * -1, DtPrePolizaAlmacen.Rows(0)("CveMoneda").ToString.ToEntero, TxtFechaCancelacion.Text.ToDate, String.Format("Cancelación: {0}", DtPrePolizaAlmacen.Rows(0)("Concepto").ToString), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+                            If CvePrePolizaNueva > 0 Then
+                                For Each dr As DataRow In DtPrePolizaAlmacen.Rows
+                                    If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePolizaNueva, CBool(dr("TipoMovto").ToString), Total68, dr("Referencia").ToString, dr("CveConceptoContable").ToString.ToEntero,
+                                                                                    dr("Concepto").ToString, TxtFechaCancelacion.Text.ToDate, dr("IdCtaContable").ToString.ToEntero, dr("IdSegmentoNegocio").ToString.ToEntero, dr("CveIE").ToString.ToEntero,
+                                                                                    dr("CveVenta").ToString.ToEntero, dr("CveCompra").ToString.ToEntero, dr("CveSubProyecto").ToString.ToEntero, dr("CveCliente").ToString.ToEntero, dr("CveProveedor").ToString.ToEntero, dr("CvePersonal").ToString.ToEntero,
+                                                                                    CveMovimientoEntrada,
+                                                                                    dr("CveActivoFijo").ToString.ToEntero, -1, -1, dr("CveCreditoDetalle").ToString.ToEntero,
+                                                                                    ImporteMX:=Total68, ImporteME:=Total68,
+                                                                                    CveTipoGasto:=dr("CveTipoGasto").ToString.ToEntero, CveClasificacion:=dr("CveClasificacion").ToString.ToEntero,
+                                                                                    PorcentajeImpuesto:=dr("PorcentajeImpuesto").ToString.ToDecimal,
+                                                                                    CveOCDetalle:=dr("CveOCDetalle").ToString.ToEntero) Then
+                                        ErrorCancelar = True
+                                        Exit For
+                                    End If
+                                Next
+                            Else
+                                ErrorCancelar = True
+                            End If
+                        Else
+                            ErrorCancelar = True
+                        End If
+                    End If
+
+                Next
+
+            End If
+
+            Dim dt As DataTable
+
+            ' MOVIMIENTOS CONTRARIOS (NEGATIVOS)
             'CREA POLIZA NEGATIVA
-            If IdPoliza > 0 AndAlso ObjAC IsNot Nothing AndAlso UsuarioActual.Empresa.UsaAC Then
+            If Not ErrorCancelar AndAlso IdPoliza > 0 AndAlso ObjAC IsNot Nothing AndAlso UsuarioActual.Empresa.UsaAC Then
                 If ObjAC.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjAC.DtResultados.Rows.Count > 0 Then
                     dt = ObjAC.DtResultados
 
@@ -13809,47 +13850,21 @@ Partial Class Compras_Compras
             End If
 
             'CREA PRE-POLIZA NEGATIVA
-            If DdlTipoComprobante.SelectedValue.Contiene("NC") Then
-                If ObjCompras.GetCancelarNC(CveCompra, UsuarioActual.CveEmpresa) Then
-                    dt = ObjCompras.DtResultados
-
-                    CvePrePolizaNueva = ObjContabilidad.AddPrePolizas("Compras/Cancelar", dt.Rows(0)("CvePlantillaPoliza").ToString.ToEntero, dt.Rows(0)("Cargos").ToString.ToDouble * -1, dt.Rows(0)("Abonos").ToString.ToDouble * -1, dt.Rows(0)("CveMoneda").ToString.ToEntero, TxtFechaCancelacion.Text.ToDate, String.Format("Cancelación: {0}", dt.Rows(0)("Concepto").ToString), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-                    If CvePrePolizaNueva > 0 Then
-                        For Each dr As DataRow In dt.Rows
-                            If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePolizaNueva, CBool(dr("TipoMovto").ToString), dr("Importe").ToString.ToDecimal * -1, dr("Referencia").ToString, dr("CveConceptoContable").ToString.ToEntero,
-                                                                        dr("Concepto").ToString, TxtFechaCancelacion.Text.ToDate, dr("IdCtaContable").ToString.ToEntero, dr("IdSegmentoNegocio").ToString.ToEntero, dr("CveIE").ToString.ToEntero,
-                                                                        dr("CveVenta").ToString.ToEntero, dr("CveCompra").ToString.ToEntero, dr("CveSubProyecto").ToString.ToEntero, dr("CveCliente").ToString.ToEntero, dr("CveProveedor").ToString.ToEntero, dr("CvePersonal").ToString.ToEntero,
-                                                                        dr("CveMovimientoAlmacen").ToString.ToEntero, dr("CveActivoFijo").ToString.ToEntero, -1, -1, dr("CveCreditoDetalle").ToString.ToEntero,
-                                                                        ImporteMX:=dr("Importe").ToString.ToDecimal * -1, ImporteME:=dr("Importe").ToString.ToDecimal * -1, CveTipoGasto:=dr("CveTipoGasto").ToString.ToEntero, CveClasificacion:=dr("CveClasificacion").ToString.ToEntero,
-                                                                        PorcentajeImpuesto:=dr("PorcentajeImpuesto").ToString.ToDecimal, CveOCDetalle:=dr("CveOCDetalle").ToString.ToEntero,
-                                                                        CveCompraAmortizacion:=dr("CveCompraAmortizacion").ToString.ToEntero) Then
-                                ErrorCancelar = True
-                                Exit For
-                            End If
-                        Next
-                    Else
-                        ErrorCancelar = True
-                    End If
-                Else
-                    ErrorCancelar = True
-                End If
-            Else
-                If CvePrePoliza > 0 Then
-                    If ObjContabilidad.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) Then
-                        dt = ObjContabilidad.DtResultados
+            If Not ErrorCancelar Then
+                If DdlTipoComprobante.SelectedValue.Contiene("NC") Then
+                    If ObjCompras.GetCancelarNC(CveCompra, UsuarioActual.CveEmpresa) Then
+                        dt = ObjCompras.DtResultados
 
                         CvePrePolizaNueva = ObjContabilidad.AddPrePolizas("Compras/Cancelar", dt.Rows(0)("CvePlantillaPoliza").ToString.ToEntero, dt.Rows(0)("Cargos").ToString.ToDouble * -1, dt.Rows(0)("Abonos").ToString.ToDouble * -1, dt.Rows(0)("CveMoneda").ToString.ToEntero, TxtFechaCancelacion.Text.ToDate, String.Format("Cancelación: {0}", dt.Rows(0)("Concepto").ToString), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                         If CvePrePolizaNueva > 0 Then
                             For Each dr As DataRow In dt.Rows
                                 If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePolizaNueva, CBool(dr("TipoMovto").ToString), dr("Importe").ToString.ToDecimal * -1, dr("Referencia").ToString, dr("CveConceptoContable").ToString.ToEntero,
-                                                                            dr("Concepto").ToString, TxtFechaCancelacion.Text.ToDate, dr("IdCtaContable").ToString.ToEntero, dr("IdSegmentoNegocio").ToString.ToEntero, dr("CveIE").ToString.ToEntero,
-                                                                            dr("CveVenta").ToString.ToEntero, dr("CveCompra").ToString.ToEntero, dr("CveSubProyecto").ToString.ToEntero, dr("CveCliente").ToString.ToEntero, dr("CveProveedor").ToString.ToEntero, dr("CvePersonal").ToString.ToEntero,
-                                                                            If(cvemovimientoentrada > 0, cvemovimientoentrada, dr("CveMovimientoAlmacen").ToString.ToEntero),
-                                                                            dr("CveActivoFijo").ToString.ToEntero, -1, -1, dr("CveCreditoDetalle").ToString.ToEntero,
-                                                                            ImporteMX:=dr("Importe").ToString.ToDecimal * -1, ImporteME:=dr("Importe").ToString.ToDecimal * -1,
-                                                                            CveTipoGasto:=dr("CveTipoGasto").ToString.ToEntero, CveClasificacion:=dr("CveClasificacion").ToString.ToEntero,
-                                                                            PorcentajeImpuesto:=dr("PorcentajeImpuesto").ToString.ToDecimal,
-                                                                            CveOCDetalle:=dr("CveOCDetalle").ToString.ToEntero) Then
+                                                                                dr("Concepto").ToString, TxtFechaCancelacion.Text.ToDate, dr("IdCtaContable").ToString.ToEntero, dr("IdSegmentoNegocio").ToString.ToEntero, dr("CveIE").ToString.ToEntero,
+                                                                                dr("CveVenta").ToString.ToEntero, dr("CveCompra").ToString.ToEntero, dr("CveSubProyecto").ToString.ToEntero, dr("CveCliente").ToString.ToEntero, dr("CveProveedor").ToString.ToEntero, dr("CvePersonal").ToString.ToEntero,
+                                                                                dr("CveMovimientoAlmacen").ToString.ToEntero, dr("CveActivoFijo").ToString.ToEntero, -1, -1, dr("CveCreditoDetalle").ToString.ToEntero,
+                                                                                ImporteMX:=dr("Importe").ToString.ToDecimal * -1, ImporteME:=dr("Importe").ToString.ToDecimal * -1, CveTipoGasto:=dr("CveTipoGasto").ToString.ToEntero, CveClasificacion:=dr("CveClasificacion").ToString.ToEntero,
+                                                                                PorcentajeImpuesto:=dr("PorcentajeImpuesto").ToString.ToDecimal, CveOCDetalle:=dr("CveOCDetalle").ToString.ToEntero,
+                                                                                CveCompraAmortizacion:=dr("CveCompraAmortizacion").ToString.ToEntero) Then
                                     ErrorCancelar = True
                                     Exit For
                                 End If
@@ -13860,64 +13875,53 @@ Partial Class Compras_Compras
                     Else
                         ErrorCancelar = True
                     End If
-                End If
-            End If
+                Else
+                    If CvePrePoliza > 0 Then
+                        If ObjContabilidad.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) Then
+                            dt = ObjContabilidad.DtResultados.FiltraParametros("ISNULL(CveMovimientoAlmacen,0) <=0")
 
-            'MES ACTUAL
-        Else
-
-            'LIMPIA POLIZA PONIENDO IMPORTE EN CEROS
-            If IdPoliza > 0 AndAlso ObjAC IsNot Nothing Then
-                If ObjAC.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjAC.DtResultados.Rows.Count > 0 Then
-                    dt = ObjAC.DtResultados
-
-                    For Each dr As DataRow In dt.Rows
-                        If Not ObjAC.UpdateMovimiento(dr("Id").ToString.ToEntero, dr("IdCuenta").ToString.ToEntero, dr("TipoMovto").ToString = "1", 0, dr("Referencia").ToString, dr("Concepto").ToString, dr("IdSegNeg").ToString.ToEntero, dr("Fecha").ToString.ToDate) Then
-                            ErrorCancelar = True : Exit For
-                        End If
-                    Next
-
-                    'AJUSTA POLIZA
-                    If Not ErrorCancelar Then
-                        If Not ObjAC.AjustaPoliza(IdPoliza) Then
+                            CvePrePolizaNueva = ObjContabilidad.AddPrePolizas("Compras/Cancelar", dt.Rows(0)("CvePlantillaPoliza").ToString.ToEntero, dt.Rows(0)("Cargos").ToString.ToDouble * -1, dt.Rows(0)("Abonos").ToString.ToDouble * -1, dt.Rows(0)("CveMoneda").ToString.ToEntero, TxtFechaCancelacion.Text.ToDate, String.Format("Cancelación: {0}", dt.Rows(0)("Concepto").ToString), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                            If CvePrePolizaNueva > 0 Then
+                                For Each dr As DataRow In dt.Rows
+                                    If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePolizaNueva, CBool(dr("TipoMovto").ToString), dr("Importe").ToString.ToDecimal * -1, dr("Referencia").ToString, dr("CveConceptoContable").ToString.ToEntero,
+                                                                                    dr("Concepto").ToString, TxtFechaCancelacion.Text.ToDate, dr("IdCtaContable").ToString.ToEntero, dr("IdSegmentoNegocio").ToString.ToEntero, dr("CveIE").ToString.ToEntero,
+                                                                                    dr("CveVenta").ToString.ToEntero, dr("CveCompra").ToString.ToEntero, dr("CveSubProyecto").ToString.ToEntero, dr("CveCliente").ToString.ToEntero, dr("CveProveedor").ToString.ToEntero, dr("CvePersonal").ToString.ToEntero,
+                                                                                    dr("CveMovimientoAlmacen").ToString.ToEntero,
+                                                                                    dr("CveActivoFijo").ToString.ToEntero, -1, -1, dr("CveCreditoDetalle").ToString.ToEntero,
+                                                                                    ImporteMX:=dr("Importe").ToString.ToDecimal * -1, ImporteME:=dr("Importe").ToString.ToDecimal * -1,
+                                                                                    CveTipoGasto:=dr("CveTipoGasto").ToString.ToEntero, CveClasificacion:=dr("CveClasificacion").ToString.ToEntero,
+                                                                                    PorcentajeImpuesto:=dr("PorcentajeImpuesto").ToString.ToDecimal,
+                                                                                    CveOCDetalle:=dr("CveOCDetalle").ToString.ToEntero) Then
+                                        ErrorCancelar = True
+                                        Exit For
+                                    End If
+                                Next
+                            Else
+                                ErrorCancelar = True
+                            End If
+                        Else
                             ErrorCancelar = True
                         End If
                     End If
+                End If
+            End If
 
-                Else
+            If Not ErrorCancelar Then
+                If Not ObjCompras.CancelarCompraOC(CveCompra, UsuarioActual.CveEmpresa) Then
                     ErrorCancelar = True
                 End If
             End If
 
-            'LIMPIA PRE-POLIZA PONIENDO IMPORTE EN CEROS
-            If CvePrePoliza > 0 Then
-                If ObjContabilidad.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) Then
-                    dt = ObjContabilidad.DtResultados
-
-                    For Each dr As DataRow In dt.Rows
-                        If Not ObjContabilidad.UpdatePrePolizasDetalle(dr("CvePrePolizaDetalle").ToString.ToEntero, dr("Concepto").ToString, dr("CveSubProyecto").ToString.ToEntero, dr("IdCtaContable").ToString.ToEntero, CBool(dr("TipoMovto").ToString), 0, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
-                            ErrorCancelar = True : Exit For
-                        End If
-                    Next
-                Else
+            'CANCELA COMPRA
+            If Not ErrorCancelar Then
+                If Not ObjCompras.UpdateEstatusCompra(CveCompra, -2) Then
                     ErrorCancelar = True
                 End If
             End If
-
-        End If
-
-        If Not ErrorCancelar Then
-            If Not ObjCompras.CancelarCompraOC(CveCompra, UsuarioActual.CveEmpresa) Then
-                ErrorCancelar = True
-            End If
-        End If
-
-        'CANCELA COMPRA
-        If Not ErrorCancelar Then
-            If Not ObjCompras.UpdateEstatusCompra(CveCompra, -2) Then
-                ErrorCancelar = True
-            End If
-        End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al cancelar la compra", ex)
+            ErrorCancelar = True
+        End Try
 
         If Not ErrorCancelar Then
             If ObjAC IsNot Nothing Then

RH/CatTurno.aspx

@@ -74,7 +74,7 @@
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:BoundField DataField="FechaIng" HeaderText="Fecha de Ingreso" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
-                    <asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Center" />
+                    <asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" />
                     <asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Comandos">
                         <ItemTemplate>
                             <asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" OnClick="Edit_Click" Text="<i class='fa fa-pencil'></i>" />
@@ -112,49 +112,67 @@
                                     <asp:DropDownList ID="DdlChecadorHorario" DataValueField="CveChecadorHorario" DataTextField="ChecadorHorario" runat="server" CssClass="form-control select2me" Width="150px"></asp:DropDownList>
                                     <label for="<%= DdlChecadorHorario.ClientID.ToString()%>">Checador de Horario:</label>
                                 </div>
-                                <div class="form-group form-md-line-input input-iconright">
-                                    <asp:TextBox ID="TxtHorarioDe" runat="server" CausesValidation="true" CssClass="form-control" MaxLength="10" Width="104px"></asp:TextBox>
-                                    <asp:RequiredFieldValidator ID="RFVHorarioDe" runat="server" ControlToValidate="TxtHorarioDe" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Hr. Entrada''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
-                                    <ajax:ValidatorCalloutExtender ID="VCOHorarioDe1" runat="server" HighlightCssClass="vco" TargetControlID="RFVHorarioDe" Width="300px"></ajax:ValidatorCalloutExtender>
-                                    <ajax:MaskedEditExtender ID="MEEHorarioDe" runat="server" TargetControlID="TxtHorarioDe" Mask="99:99:99" MaskType="Time" InputDirection="RightToLeft"></ajax:MaskedEditExtender>
-                                    <ajax:MaskedEditValidator ID="MEVHorarioDe" runat="server" ControlExtender="MEEHorarioDe" ControlToValidate="TxtHorarioDe" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Hr. Entrada''</b> no tiene el formato correcto, por favor corrija (Formato 24 Horas)." IsValidEmpty="true" MaximumValue="23:59:59" MinimumValue="00:00:00" ToolTip="Formato 24 Horas" ValidationGroup="GrpObligatorio"></ajax:MaskedEditValidator>
-                                    <ajax:ValidatorCalloutExtender ID="VCOHorarioDe2" runat="server" HighlightCssClass="vco" TargetControlID="MEVHorarioDe"></ajax:ValidatorCalloutExtender>
-                                    <label for="<%= TxtHorarioDe.ClientID.ToString()%>">Hora de Entrada:</label>
-                                </div>
-                                <div class="form-group form-md-line-input input-iconright">
-                                    <asp:TextBox ID="TxtHorarioA" runat="server" CausesValidation="true" CssClass="form-control" MaxLength="10" Width="84px" ValidationGroup="GrpObligatorio"></asp:TextBox>
-                                    <asp:RequiredFieldValidator ID="RFVHorarioA" runat="server" ControlToValidate="TxtHorarioA" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Hr. Salida''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
-                                    <ajax:ValidatorCalloutExtender ID="VCOHorarioA1" runat="server" HighlightCssClass="vco" TargetControlID="RFVHorarioA" Width="300px"></ajax:ValidatorCalloutExtender>
-                                    <ajax:MaskedEditExtender ID="MEEHorarioA" runat="server" TargetControlID="TxtHorarioA" Mask="99:99:99" MaskType="Time" InputDirection="RightToLeft"></ajax:MaskedEditExtender>
-                                    <ajax:MaskedEditValidator ID="MEVHorarioA" runat="server" ControlExtender="MEEHorarioA" ControlToValidate="TxtHorarioA" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Hr. Salida''</b> no tiene el formato correcto, por favor corrija (Formato 24 Horas)." IsValidEmpty="true" MaximumValue="23:59:59" MinimumValue="00:00:00" ToolTip="Formato 24 Horas" ValidationGroup="GrpObligatorio"></ajax:MaskedEditValidator>
-                                    <ajax:ValidatorCalloutExtender ID="VCOHorarioA2" runat="server" HighlightCssClass="vco" TargetControlID="MEVHorarioA"></ajax:ValidatorCalloutExtender>
-                                    <label for="<%= TxtHorarioDe.ClientID.ToString()%>">Hora de Salida:</label>
+
+
+                                <div class="row">
+                                    <div class="col-lg-6">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:TextBox ID="TxtHorarioDe" runat="server" CausesValidation="true" CssClass="form-control" MaxLength="10" Width="104px"></asp:TextBox>
+                                            <asp:RequiredFieldValidator ID="RFVHorarioDe" runat="server" ControlToValidate="TxtHorarioDe" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Hr. Entrada''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
+                                            <ajax:ValidatorCalloutExtender ID="VCOHorarioDe1" runat="server" HighlightCssClass="vco" TargetControlID="RFVHorarioDe" Width="300px"></ajax:ValidatorCalloutExtender>
+                                            <ajax:MaskedEditExtender ID="MEEHorarioDe" runat="server" TargetControlID="TxtHorarioDe" Mask="99:99:99" MaskType="Time" InputDirection="RightToLeft"></ajax:MaskedEditExtender>
+                                            <ajax:MaskedEditValidator ID="MEVHorarioDe" runat="server" ControlExtender="MEEHorarioDe" ControlToValidate="TxtHorarioDe" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Hr. Entrada''</b> no tiene el formato correcto, por favor corrija (Formato 24 Horas)." IsValidEmpty="true" MaximumValue="23:59:59" MinimumValue="00:00:00" ToolTip="Formato 24 Horas" ValidationGroup="GrpObligatorio"></ajax:MaskedEditValidator>
+                                            <ajax:ValidatorCalloutExtender ID="VCOHorarioDe2" runat="server" HighlightCssClass="vco" TargetControlID="MEVHorarioDe"></ajax:ValidatorCalloutExtender>
+                                            <label for="<%= TxtHorarioDe.ClientID.ToString()%>">Hora de Entrada:</label>
+                                        </div>
+                                    </div>
+                                    <div class="col-lg-6">
+                                          <div class="form-group form-md-line-input input-iconright">
+                                            <asp:TextBox ID="TxtHorarioA" runat="server" CausesValidation="true" CssClass="form-control" MaxLength="10" Width="84px" ValidationGroup="GrpObligatorio"></asp:TextBox>
+                                            <asp:RequiredFieldValidator ID="RFVHorarioA" runat="server" ControlToValidate="TxtHorarioA" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Hr. Salida''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
+                                            <ajax:ValidatorCalloutExtender ID="VCOHorarioA1" runat="server" HighlightCssClass="vco" TargetControlID="RFVHorarioA" Width="300px"></ajax:ValidatorCalloutExtender>
+                                            <ajax:MaskedEditExtender ID="MEEHorarioA" runat="server" TargetControlID="TxtHorarioA" Mask="99:99:99" MaskType="Time" InputDirection="RightToLeft"></ajax:MaskedEditExtender>
+                                            <ajax:MaskedEditValidator ID="MEVHorarioA" runat="server" ControlExtender="MEEHorarioA" ControlToValidate="TxtHorarioA" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Hr. Salida''</b> no tiene el formato correcto, por favor corrija (Formato 24 Horas)." IsValidEmpty="true" MaximumValue="23:59:59" MinimumValue="00:00:00" ToolTip="Formato 24 Horas" ValidationGroup="GrpObligatorio"></ajax:MaskedEditValidator>
+                                            <ajax:ValidatorCalloutExtender ID="VCOHorarioA2" runat="server" HighlightCssClass="vco" TargetControlID="MEVHorarioA"></ajax:ValidatorCalloutExtender>
+                                            <label for="<%= TxtHorarioDe.ClientID.ToString()%>">Hora de Salida:</label>
+                                        </div>
+                                    </div>
                                 </div>
 
-                                
+                              
+                               
+                                 
                                 <div class="form-group form-md-line-input input-iconright">
                                     <asp:CheckBox ID="chkComida" runat="server" CssClass="form-control" />
                                     <label for="<%= chkComida.ClientID.ToString()%>">Con Horario de comida:</label>
                                 </div>
-                                <div class="form-group form-md-line-input input-iconright">
-                                    <asp:TextBox ID="TxtComidade" runat="server" CausesValidation="true" CssClass="form-control" MaxLength="10" Width="104px"></asp:TextBox>
-                                    <asp:RequiredFieldValidator ID="RFVComidade" runat="server" ControlToValidate="TxtComidade" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Hr. Entrada''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
-                                    <ajax:ValidatorCalloutExtender ID="VCOComidade1" runat="server" HighlightCssClass="vco" TargetControlID="RFVComidade" Width="300px"></ajax:ValidatorCalloutExtender>
-                                    <ajax:MaskedEditExtender ID="MEEComidade" runat="server" TargetControlID="TxtComidade" Mask="99:99:99" MaskType="Time" InputDirection="RightToLeft"></ajax:MaskedEditExtender>
-                                    <ajax:MaskedEditValidator ID="MEVComidade" runat="server" ControlExtender="MEEComidade" ControlToValidate="TxtComidade" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Hr. Entrada''</b> no tiene el formato correcto, por favor corrija (Formato 24 Horas)." IsValidEmpty="true" MaximumValue="23:59:59" MinimumValue="00:00:00" ToolTip="Formato 24 Horas" ValidationGroup="GrpObligatorio"></ajax:MaskedEditValidator>
-                                    <ajax:ValidatorCalloutExtender ID="VCOComidade2" runat="server" HighlightCssClass="vco" TargetControlID="MEVComidade"></ajax:ValidatorCalloutExtender>
-                                    <label for="<%= TxtComidade.ClientID.ToString()%>">Hora de Comida Entrada:</label>
-                                </div>
+                                    
+
+                                <div class="row">                                  
+                                    <div class="col-lg-6">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:TextBox ID="TxtComidade" runat="server" CausesValidation="true" CssClass="form-control" MaxLength="10" Width="104px"></asp:TextBox>
+                                            <asp:RequiredFieldValidator ID="RFVComidade" runat="server" ControlToValidate="TxtComidade" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Hr. Entrada''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
+                                            <ajax:ValidatorCalloutExtender ID="VCOComidade1" runat="server" HighlightCssClass="vco" TargetControlID="RFVComidade" Width="300px"></ajax:ValidatorCalloutExtender>
+                                            <ajax:MaskedEditExtender ID="MEEComidade" runat="server" TargetControlID="TxtComidade" Mask="99:99:99" MaskType="Time" InputDirection="RightToLeft"></ajax:MaskedEditExtender>
+                                            <ajax:MaskedEditValidator ID="MEVComidade" runat="server" ControlExtender="MEEComidade" ControlToValidate="TxtComidade" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Hr. Entrada''</b> no tiene el formato correcto, por favor corrija (Formato 24 Horas)." IsValidEmpty="true" MaximumValue="23:59:59" MinimumValue="00:00:00" ToolTip="Formato 24 Horas" ValidationGroup="GrpObligatorio"></ajax:MaskedEditValidator>
+                                            <ajax:ValidatorCalloutExtender ID="VCOComidade2" runat="server" HighlightCssClass="vco" TargetControlID="MEVComidade"></ajax:ValidatorCalloutExtender>
+                                            <label for="<%= TxtComidade.ClientID.ToString()%>">Hora de Comida Entrada:</label>
+                                        </div>
+                                    </div>
+                                    <div class="col-lg-6">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:TextBox ID="TxtComidaA" runat="server" CausesValidation="true" CssClass="form-control" MaxLength="10" Width="104px"></asp:TextBox>
+                                            <asp:RequiredFieldValidator ID="RFVComidaA" runat="server" ControlToValidate="TxtComidaA" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Hr. Entrada''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
+                                            <ajax:ValidatorCalloutExtender ID="VCOComidaA1" runat="server" HighlightCssClass="vco" TargetControlID="RFVComidaA" Width="300px"></ajax:ValidatorCalloutExtender>
+                                            <ajax:MaskedEditExtender ID="MEEComidaA" runat="server" TargetControlID="TxtComidaA" Mask="99:99:99" MaskType="Time" InputDirection="RightToLeft"></ajax:MaskedEditExtender>
+                                            <ajax:MaskedEditValidator ID="MEVComidaA" runat="server" ControlExtender="MEEComidaA" ControlToValidate="TxtComidaA" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Hr. Entrada''</b> no tiene el formato correcto, por favor corrija (Formato 24 Horas)." IsValidEmpty="true" MaximumValue="23:59:59" MinimumValue="00:00:00" ToolTip="Formato 24 Horas" ValidationGroup="GrpObligatorio"></ajax:MaskedEditValidator>
+                                            <ajax:ValidatorCalloutExtender ID="VCOComidaA2" runat="server" HighlightCssClass="vco" TargetControlID="MEVComidaA"></ajax:ValidatorCalloutExtender>
+                                            <label for="<%= TxtComidaA.ClientID.ToString()%>">Hora de Comida Salida:</label>
+                                        </div>
+                                    </div>
+                                </div>                                                                
                                 
-                                <div class="form-group form-md-line-input input-iconright">
-                                    <asp:TextBox ID="TxtComidaA" runat="server" CausesValidation="true" CssClass="form-control" MaxLength="10" Width="104px"></asp:TextBox>
-                                    <asp:RequiredFieldValidator ID="RFVComidaA" runat="server" ControlToValidate="TxtComidaA" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Hr. Entrada''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
-                                    <ajax:ValidatorCalloutExtender ID="VCOComidaA1" runat="server" HighlightCssClass="vco" TargetControlID="RFVComidaA" Width="300px"></ajax:ValidatorCalloutExtender>
-                                    <ajax:MaskedEditExtender ID="MEEComidaA" runat="server" TargetControlID="TxtComidaA" Mask="99:99:99" MaskType="Time" InputDirection="RightToLeft"></ajax:MaskedEditExtender>
-                                    <ajax:MaskedEditValidator ID="MEVComidaA" runat="server" ControlExtender="MEEComidaA" ControlToValidate="TxtComidaA" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Hr. Entrada''</b> no tiene el formato correcto, por favor corrija (Formato 24 Horas)." IsValidEmpty="true" MaximumValue="23:59:59" MinimumValue="00:00:00" ToolTip="Formato 24 Horas" ValidationGroup="GrpObligatorio"></ajax:MaskedEditValidator>
-                                    <ajax:ValidatorCalloutExtender ID="VCOComidaA2" runat="server" HighlightCssClass="vco" TargetControlID="MEVComidaA"></ajax:ValidatorCalloutExtender>
-                                    <label for="<%= TxtComidaA.ClientID.ToString()%>">Hora de Comida Salida:</label>
-                                </div>
                                 <div class="form-group form-md-line-input input-iconright">
                                     <asp:TextBox ID="TxtRetardo" runat="server" CausesValidation="true" CssClass="form-control" ValidationGroup="GrpObligatorio"></asp:TextBox>
                                     <asp:Label AssociatedControlID="TxtRetardo" runat="server" Text="Tolerancia Entrada"></asp:Label>

Scripts/custom.js

@@ -1099,7 +1099,7 @@ function ADDropzone(txtid) {
         var urldown = txt.data('urldown'); if ((urldown) && (urldown != "")) { } else { urldown = domain + "/Ashx/SIGWeb.ashx"; }
         var urlget = txt.data('urlget'); if ((urlget) && (urlget != "")) { } else { urlget = domain + "/temp/"; }
 
-        var maxFilesize = txt.data('maxfilesize'); if (maxFilesize) { } else { maxFilesize = 10; }
+        var maxFilesize = txt.data('maxfilesize'); if (maxFilesize) { } else { maxFilesize = 20; }
         var maxFile = txt.attr('data-maxFile'); if (maxFile) { } else { maxFile = null; }
         var mydiv = $("<div id='" + txtid + "-drop' class='addropzone'></div>");
         var mypaste = $("<div id='" + txtid + "-paste' contenteditable='true' class='mypaste'></div>")