Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

App_Code/ClsGenerales.vb

@@ -3984,7 +3984,7 @@ Public Class ClsGenerales
         Return Retorno
     End Function
 
-    Public Function AsignaEntregaAlmacenRuta(CveCamion As Integer, CveChofer As Integer, FechaEntrega As Date, CveEntregaAlmacen As Integer, CveEmpresa As Integer) As Boolean
+    Public Function AsignaEntregaAlmacenRuta(CveCamion As Integer, CveChofer As Integer, FechaEntrega As Date, FechaLlegada As DateTime, CveEntregaAlmacen As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_EntregaAlmacenRutaAsignar")
 
@@ -3992,6 +3992,7 @@ Public Class ClsGenerales
             .Add("@CveCamion", SqlDbType.Int).Value = CveCamion
             .Add("@CveChofer", SqlDbType.Int).Value = CveChofer
             .Add("@FechaEntrega", SqlDbType.DateTime).Value = FechaEntrega
+            .Add("@FechaLlegada", SqlDbType.DateTime).Value = FechaLlegada
             .Add("@CveEntregaAlmacen", SqlDbType.Int).Value = CveEntregaAlmacen
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
 

App_Code/ClsNominas.vb

@@ -353,6 +353,14 @@ Public Class ClsNominas
         Try
             SqlAdapter.Fill(DTSet)
             retorno = True
+
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("x50102;") Then
+                Alert("No se puede eliminar el finiquito ya que se encuentra vinculado a un periodo autorizado.", TipoMensaje.MsgAdvertencia)
+                GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ocurrió un error al  eliminar finiquito ", Ex1.ToString, vbCrLf, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()))
+            Else
+                Me.OnError("Ocurrió un error al  consultar  las vacaciones.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
         Catch ex As Exception
             OnError("Ocurrió un error al eliminar el finiquito.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         End Try
@@ -2735,9 +2743,13 @@ Public Class ClsNominas
             End With
             SqlAdapter.Fill(Data)
             retorno = True
-        Catch sqEx As SqlException
+        Catch Ex1 As SqlException
-            retorno = False
+            If Ex1.Message.Contains("x50102;") Then
-            OnError("Ocurrió un error al agregar las tablas de nomina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+                Alert("No se pueden registrar las vacaciones en el periodo indicado ya que exixte un periodo autorizado.", TipoMensaje.MsgAdvertencia)
+                GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ocurrió un error al  consultar  las vacacionesa ", Ex1.ToString, vbCrLf, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()))
+            Else
+                Me.OnError("Ocurrió un error al  consultar  las vacaciones.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
         Catch ex As Exception
             retorno = False
             OnError("Ocurrió un error al agregar las tablas de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
@@ -2764,9 +2776,13 @@ Public Class ClsNominas
             End With
             SqlAdapter.Fill(Data)
             retorno = True
-        Catch sqEx As SqlException
+        Catch Ex1 As SqlException
-            retorno = False
+            If Ex1.Message.Contains("x50102;") Then
-            OnError("Ocurrió un error al actualizar las tablas de nomina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+                Alert("No se pueden registrar las vacaciones en el periodo indicado ya que exixte un periodo autorizado.", TipoMensaje.MsgAdvertencia)
+                GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ocurrió un error al  consultar  las vacacionesa ", Ex1.ToString, vbCrLf, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()))
+            Else
+                Me.OnError("Ocurrió un error al  consultar  las vacaciones.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
         Catch ex As Exception
             retorno = False
             OnError("Ocurrió un error al actualizar las tablas de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
@@ -2783,9 +2799,13 @@ Public Class ClsNominas
             End With
             SqlAdapter.Fill(Data)
             retorno = True
-        Catch sqEx As SqlException
+        Catch Ex1 As SqlException
-            retorno = False
+            If Ex1.Message.Contains("x50102;") Then
-            OnError("Ocurrió un error al eliminar las tablas de nomina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+                Alert("No se pueden registrar las vacaciones en el periodo indicado ya que exixte un periodo autorizado.", TipoMensaje.MsgAdvertencia)
+                GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ocurrió un error al  consultar  las vacacionesa ", Ex1.ToString, vbCrLf, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()))
+            Else
+                Me.OnError("Ocurrió un error al  consultar  las vacaciones.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
         Catch ex As Exception
             retorno = False
             OnError("Ocurrió un error al eliminar las tablas de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())

App_Code/ClsRH.vb

@@ -2063,7 +2063,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         CveJornada As Integer, IdCtaContPersonal As Integer, CtaContPersonal As String, IdCtaContPrestamos As Integer, CtaContPrestamos As String, CveEmpresa As Integer, CveUsuarioNomina As Integer, Optional CveSubProyectoZona As Integer = Nothing, Optional CveUniforme As Integer = -1,
         Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveUsuarioModifico As Integer = -1,
         Optional FechaActivo As Date = MinFecha, Optional FechaReingreso As Date = MinFecha, Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Integer = -1, Optional CvePais As Integer = -1, Optional Pensionado As Boolean = False, Optional CveRegistroPatronal As Integer = -1,
-        Optional CveEmpresaAsignado As Integer = -1, Optional CveMedioTransporte As Integer = -1, Optional EsReserva As Integer = -1) As Boolean
+        Optional CveEmpresaAsignado As Integer = -1, Optional CveMedioTransporte As Integer = -1, Optional EsReserva As Integer = -1, Optional Fiscalizable As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -2155,9 +2155,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
             .Add("@CveEmpresaAsignado", SqlDbType.Int).Value = CveEmpresaAsignado
             .Add("@CveMedioTransporte", SqlDbType.Int).Value = CveMedioTransporte
             .Add("@EsReserva", SqlDbType.Int).Value = EsReserva
-
+            .Add("@Fiscalizable", SqlDbType.Int).Value = Fiscalizable
-
-
 
         End With
 
@@ -2167,6 +2165,9 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         Catch Ex1 As SqlException
             If Ex1.Message.Contains("Número: 2627;") Then
                 Alert("El Personal no se guardó debido a que actualmente se encuentra registrado.", TipoMensaje.MsgAdvertencia)
+            ElseIf Ex1.Message.Contains("TR_RH_PersonalAltas000") Then
+                Alert("El personal no se guardó el periodo de inicio y fin laboral del empleado está en conflicto con los anteriores, si es un reingreso favor de ingresar una fecha inicio mayor a la última fecha baja registrada.", TipoMensaje.MsgAdvertencia)
+                GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ocurrió un error al intentar guardar los cambios en el Personal.", Ex1.ToString, vbCrLf, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()))
             Else
                 Me.OnError("Ocurrió un error al intentar guardar los cambios en el Personal.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
             End If
@@ -2580,7 +2581,10 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
             Retorno = True
         Catch Ex1 As SqlException
             If Ex1.Message.Contains("Número: 2627;") Then
-                Alert("Ya se registró la Asistencia del día " & Fecha & " para el empleado.", TipoMensaje.MsgAdvertencia)
+                Alert("Ya se registró la Asistencia del día " & Fecha & " para el empleado.", TipoMensaje.MsgAdvertencia)
+            ElseIf Ex1.Message.Contains("x50102;") Then
+                Alert("No se puede editar o agregar la asistencia ya que se encuentra vinculada a un periodo autorizado.", TipoMensaje.MsgAdvertencia)
+                GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ocurrió un error al editar o agregar la asistencia ", Ex1.ToString, vbCrLf, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()))
             Else
                 Me.OnError("Ocurrió un error al guardar la Asistencia.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
             End If
@@ -5896,6 +5900,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("x50102;") Then
+                Alert("No se pueden registrar las vacaciones en el periodo indicado ya que exixte un periodo autorizado.", TipoMensaje.MsgAdvertencia)
+                GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ocurrió un error al  consultar  las vacacionesa ", Ex1.ToString, vbCrLf, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()))
+            Else
+                Me.OnError("Ocurrió un error al  consultar  las vacaciones.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
         Catch ex As Exception
             OnError("Ocurrió un error al  consultar  las vacaciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try
@@ -5917,6 +5928,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("x50102;") Then
+                Alert("No se pueden registrar las vacaciones en el periodo indicado ya que exixte un periodo autorizado.", TipoMensaje.MsgAdvertencia)
+                GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ocurrió un error al  consultar  las vacacionesa ", Ex1.ToString, vbCrLf, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()))
+            Else
+                Me.OnError("Ocurrió un error al  consultar  las vacaciones.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
         Catch ex As Exception
             OnError("Ocurrió un error al  consultar  las vacaciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try
@@ -5932,6 +5950,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("x50102;") Then
+                Alert("No se pueden registrar las vacaciones en el periodo indicado ya que exixte un periodo autorizado.", TipoMensaje.MsgAdvertencia)
+                GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ocurrió un error al  consultar  las vacacionesa ", Ex1.ToString, vbCrLf, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()))
+            Else
+                Me.OnError("Ocurrió un error al  consultar  las vacaciones.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
         Catch ex As Exception
             OnError("Ocurrió un error al Eliminar vacaciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try
@@ -5955,6 +5980,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("x50102;") Then
+                Alert("No se pueden registrar las vacaciones en el periodo indicado ya que exixte un periodo autorizado.", TipoMensaje.MsgAdvertencia)
+                GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ocurrió un error al  consultar  las vacacionesa ", Ex1.ToString, vbCrLf, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()))
+            Else
+                Me.OnError("Ocurrió un error al  consultar  las vacaciones.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
         Catch ex As Exception
             OnError("Ocurrió un error al  consultar  las vacaciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try

App_Code/LogicNominas.vb

@@ -28,7 +28,7 @@ Public Class LogicNominas
                 ObjFactura.Folio = cfdi.Comprobante.Folio.ToEntero()
                 ObjFactura.Serie = cfdi.Comprobante.Serie
                 ObjFactura.Timbre = cfdi
-                If Not ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura, CvePAC, False) Then
+                If Not ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura, CvePAC) Then
                     Retorno = ObjTimbrado.MensajeErrorCFDI
                 End If
             End If
@@ -175,7 +175,7 @@ Public Class LogicNominas
                 If continuar AndAlso objPersonal.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) AndAlso objPersonal.DtResultados.Rows.Count > 0 Then
                     RFC = objPersonal.RFC
                     cfdi.Emisor.RegistroPatronal = objPersonal.DtResultados.Rows(0)("RegistroPatronal").ToString()
-                    NombreCompleto = objPersonal.NombreCompleto
+                    NombreCompleto = String.Format("{0} {1} {2}", objPersonal.Nombres, objPersonal.APaterno, objPersonal.AMaterno)
                     CodigoPostal = objPersonal.CP
                     Sindicalizado = objPersonal.DtResultados.Rows(0)("Sindicalizado").ToString().ToUpper().Contiene("TRUE", "1")
                     CURP = objPersonal.CURP
@@ -318,7 +318,8 @@ Public Class LogicNominas
             cfdi.Emisor.CURP = UsuarioActual.Empresa.CURP
         End If
         cfdi.Nomina.CveNomina = CveNomina
-        cfdi.Receptor.UsoCFDI = "P01"
+
+        cfdi.Receptor.UsoCFDI = If(UsuarioActual.Empresa.Funcionalidad(350).Contiene("1"), "CN01", "P01")
         cfdi.Receptor.RFC = RFC
         cfdi.Receptor.Nombre = NombreCompleto
 
@@ -426,7 +427,7 @@ Public Class LogicNominas
         If ObjDeducciones IsNot Nothing AndAlso ObjDeducciones.Count > 0 Then cfdi.Nomina.Deducciones = ObjDeducciones
 
 
-        cfdi.Comprobante.Version = "3.3"
+        cfdi.Comprobante.Version = If(UsuarioActual.Empresa.Funcionalidad(350).Contiene("1"), "4.0", "3.3")
         cfdi.Comprobante.Serie = Serie
         cfdi.Comprobante.Folio = Folio
         cfdi.Comprobante.Fecha = Now
@@ -439,7 +440,7 @@ Public Class LogicNominas
         cfdi.Comprobante.TipoDocto = "Egs"
         cfdi.Comprobante.MetodoPago = "PUE"
         cfdi.Comprobante.CondicionesdePago = "" '"CONTADO"
-        cfdi.Comprobante.FormadePago = "99"
+        cfdi.Comprobante.FormadePago = If(UsuarioActual.Empresa.Funcionalidad(350).Contiene("1"), "", "99")
         cfdi.Comprobante.LugarExpedicion = UsuarioActual.Empresa.CP.ToString() ' AHORITA SOLO SE REQUIERE ESPECIFICAR EL CODIGO POSTAL
         cfdi.Comprobante.NumCuentaPago = "" 'objPersonal.BancoNumCuenta
         '4.0
@@ -466,7 +467,7 @@ Public Class LogicNominas
         cfdi.Nomina.Receptor.Sindicalizado = If(Sindicalizado, "Si", "No")
         cfdi.Nomina.Receptor.CodigoEntidadFederativa = ClaveEstado
 
-        cfdi.Conceptos.Add(New CFDIConceptos With {.Cantidad = 1, .ClaveUnidad = "ACT", .ClaveProdServ = "84111505", .Descripcion = "Pago de nómina", .ValorUnitario = cfdi.Comprobante.Subtotal, .Importe = cfdi.Comprobante.Subtotal, .Descuento = cfdi.Nomina.TotalDeducciones.ToString().ToDecimal()})
+        cfdi.Conceptos.Add(New CFDIConceptos With {.Cantidad = 1, .ClaveUnidad = "ACT", .ClaveProdServ = "84111505", .Descripcion = "Pago de nómina", .ValorUnitario = cfdi.Comprobante.SubTotal, .Importe = cfdi.Comprobante.SubTotal, .Descuento = cfdi.Nomina.TotalDeducciones.ToString().ToDecimal(), .ObjetoImpuesto = "01"})
 
 
         If continuar Then

App_Code/Timbrado.vb

@@ -1192,7 +1192,7 @@ Public Class Timbrado
         Return Timbre
 
     End Function
-    Public Function TimbrarFactura(UsuarioActual As Usuario, Ventas As Modelos.Factura, Optional CvePACEspecial As Integer = -1, Optional NomUsaPac4 As Boolean = True) As Boolean
+    Public Function TimbrarFactura(UsuarioActual As Usuario, Ventas As Modelos.Factura, Optional CvePACEspecial As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
         Dim tCvePAC As Integer = UsuarioActual.Empresa.CvePAC
@@ -1228,15 +1228,15 @@ Public Class Timbrado
                 Retorno = If(Ret = "", True, False)
 
             Case 3
-                If UsuarioActual.Empresa.Funcionalidad(350) = "1" AndAlso NomUsaPac4 Then
+                If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
-                    Retorno = TimbrarFacturaProFactV40(UsuarioActual, Ventas)
+                    Retorno = TimbrarFacturaProFactv40(UsuarioActual, Ventas)
                 Else
                     Retorno = TimbrarFacturaProFact(UsuarioActual, Ventas)
                 End If
 
                     'Retorno = TimbrarFacturaProFact(UsuarioActual, Ventas, TmpDTConceptos, TmpDTImpuestos, TmpDTComplementos, Ruta, LstFordASN, FordGSDBM, ObjV)
             Case 4
-                If UsuarioActual.Empresa.Funcionalidad(350) = "1" AndAlso NomUsaPac4 Then
+                If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
                     Dim Ret As String = TimbrarFacturaGoCFDIv40(Ventas, UsuarioActual, CvePACEspecial)
                     If Ret <> "" Then MensajeErrorCFDI = Ret
                     Retorno = If(Ret = "", True, False)
@@ -1248,7 +1248,7 @@ Public Class Timbrado
 
 
             Case 5
-                If UsuarioActual.Empresa.Funcionalidad(350) = "1" AndAlso NomUsaPac4 Then
+                If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
                     Dim Ret As String = TimbrarFacturaPADEv40(Ventas, UsuarioActual, CvePACEspecial)
                     If Ret <> "" Then MensajeErrorCFDI = Ret
                     Retorno = If(Ret = "", True, False)

Contabilidad/RegPrePolizaS.aspx.vb

@@ -817,6 +817,8 @@ Partial Class ContabilidadC_RegPrePolizaS
 
         GvMov.DataSource = DtMovimientos
         GvMov.DataBind()
+        GvPrePoliza.DataBind() ''limpio el grid
+        UpPrePoliza.Update()
         UPMovs.Update()
 
     End Sub
@@ -982,9 +984,12 @@ Partial Class ContabilidadC_RegPrePolizaS
                     FolioPoliza = ObjMov.FolioPoliza
 
                     Dim Gv As GridView = GvMov
-                    If DdlPlantilla.SelectedValue = "53" Then
+                    If DdlPlantilla.SelectedValue = "53" OrElse GvPrePoliza.Visible = True Then
-                        Gv = GvPrePoliza
+                        If GvPrePoliza.Rows.Count > 0 Then
-                        TipoGrid = 1
+                            Gv = GvPrePoliza
+                            TipoGrid = 1
+                        End If
+
                     End If
 
                     'inserto las compras que voy a pagarDdlSaldos
@@ -994,7 +999,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                         'End If
 
                         'Registra movimieno bancario
-                        If gvr.DataKey("CveConceptoContable").ToEntero = 30 AndAlso gvr.DataKey("ContadoImporte").ToDecimal <> 0 Then
+                        If gvr.DataKey("CveConceptoContable").ToEntero = 30 AndAlso (gvr.DataKey("ContadoImporte").ToDecimal <> 0 OrElse TipoGrid = 1) Then
 
                             CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text, gvr.DataKey("ContadoNumeroFolio"),
                                                        gvr.DataKey("ContadoBeneficiario"), gvr.DataKey("ContadoImporte").ToDecimal, CveMoneda, 0, gvr.DataKey("ContadoObservaciones"), "",
@@ -1058,7 +1063,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                         If idCuentaContabilizacion = 1 AndAlso (IdCtaContable = 0) Then
                             idCuentaContabilizacion = 0
                         End If
-                        If Importe <> 0 Then
+                        If Importe <> 0 OrElse TipoGrid = 1 Then 'si es diferente de cero o si viene de grid prepolizas, que registre todo
                             Dim tCveCuenta As Integer = gvr.DataKey("CveCuenta").ToEntero
                             Dim tReferencia, tConcepto As String
                             Dim tCveSubProyecto, tCveTipoGasto As Integer
@@ -1164,10 +1169,6 @@ Partial Class ContabilidadC_RegPrePolizaS
                 If row.FCCheckBox("chkModificado").Checked Then
                     contador = contador + 1
 
-
-
-
-
                     Dim ImporteIE As Decimal = If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal)
 
                     If row.DataKey("CveConceptoContable").ToEntero = 30 AndAlso ImporteIE > 0 AndAlso row.DataKey("CveIE").ToDecimal <= 0 Then
@@ -1182,9 +1183,6 @@ Partial Class ContabilidadC_RegPrePolizaS
                         End If
                     End If
 
-
-
-
                     If Not ObjContabilidad.UpdatePrePolizasDetalle(row.DataKey("CvePrePolizaDetalle").ToEntero, row.FCLiteral("TxtConcepto").Text, row.DataKey("CveSubProyecto").ToEntero,
                                                                        row.DataKey("IdCtaContable").ToEntero, If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0,
                                                                        row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero),
@@ -1242,7 +1240,7 @@ Partial Class ContabilidadC_RegPrePolizaS
 
         If Not OcurrioError Then
             If IdPoliza > 0 AndAlso contador Then
-                ' BtnContabilizar_Click(Nothing, Nothing)
+                Contabilizar()
             End If
 
         End If
@@ -2304,7 +2302,6 @@ Partial Class ContabilidadC_RegPrePolizaS
         DdlPlantilla.SelectedValue = DdlPlantilla2.SelectedValue
         dt = ReadExcelFile(Ruta + FileName, True)
 
-
         If Not ErrorArchivo Then
 
             If Not dt.Columns(0).ColumnName.ToUpper = "CONCEPTOADMINISTRATIVO" Then
@@ -2512,6 +2509,8 @@ Partial Class ContabilidadC_RegPrePolizaS
                     ContadorRegistros = ContadorRegistros + 1
                 Next
 
+                GvMov.DataBind()
+                divMovtos.Visible = False
                 GvPrePoliza.DataSource = DtMovimientos
                 GvPrePoliza.DataBind()
                 UpPrePoliza.Update()
@@ -2599,8 +2598,6 @@ Partial Class ContabilidadC_RegPrePolizaS
 
                 Dim FolioManual As Integer = If(TxtFolio.Text.ToEntero > 0, TxtFolio.Text.ToEntero, -1)
 
-
-
                 If ObjConta.ContabilizaDesContabilizaPrePoliza(CvePrePoliza, True, UsuarioActual.CveEmpresa, Folio:=FolioManual) Then
 
                     Alert($"Contabilizado Correctamente Folio <b>{ ObjConta.ContaFolio.ToString()}.</b>", TipoMensaje.MsgInformacion)
@@ -2618,7 +2615,6 @@ Partial Class ContabilidadC_RegPrePolizaS
 
         Else
 
-
             If IdPoliza > 0 Then 'si está bloqueada, lo desbloqueaprimero
                 ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False)
             End If
@@ -2637,10 +2633,6 @@ Partial Class ContabilidadC_RegPrePolizaS
 
         End If
 
-
-
-
-
         ObjConta.Dispose()
     End Sub
 

Inventarios/EntradasSalidas.aspx

@@ -1717,9 +1717,6 @@
                             <asp:Literal ID="TdTotal" runat="server" Visible="false"></asp:Literal>
                         </div>
 
-
-                         
-
                       <div runat="server" id="DVCultivosCuadro"   class="form-group form-md-line-input input-iconright" visible="false">
                           <asp:DropDownList ID="DdlModalCultivosCuadro" CssClass=" form-control input-sm select2me" runat="server" DataTextField="TemporadaCuadro" Style="width: 100%; max-width: 600px;"
                               DataValueField="CveCultivoCuadroDetalle" ValidationGroup="GrpProduccion">
@@ -1731,10 +1728,6 @@
                           <i></i>
                       </div>
 
-                                  
-
-
-
                     </div>
                     <div class="modal-footer">
                         <asp:LinkButton ID="LkAgregarDetalle" runat="server" CssClass="btn btn-primary" Text="Agregar"></asp:LinkButton>

RH/CatPersonal.aspx

@@ -316,7 +316,7 @@
                         
                     </div>
                     <div class="row">
-                        <label class="col-md-1 truncate">clasificacación:</label>
+                        <label class="col-md-1 truncate">clasificación:</label>
                         <div class="col-md-2">
                             <asp:DropDownList ID="ddlclasificacion" runat="server" Width="100%" CssClass="select2me" AppendDataBoundItems="true" DataTextField="Genero" DataValueField="CveGenero" ValidationGroup="GrpGuardar">
                                 <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>

RH/CatPersonal.aspx.vb

@@ -1194,21 +1194,27 @@ Partial Class RH_CatPersonal
                 ) Then
                 Dim filesgral As List(Of Archivo) = TxtFoto.getfiles().Archivos
                 Dim filemove As String = ""
-                For Each fileItem As Archivo In filesgral
+                If ObjPersonal.CvePersonal > 0 Then
-                    Dim extension = fileItem.Extension.Replace(".", "")
-                    If (extension.Contiene("jpg", "png", "bmp")) Then
-                        Dim dir As String = String.Format("{0}RH\Personal\", UsuarioActual.Empresa.Ruta)
-                        System.IO.Directory.CreateDirectory(dir)
-                        Dim file As String = String.Format("{0}{1}.{2}", dir, ObjPersonal.CvePersonal, extension)
-                        System.IO.File.Move(fileItem.FileUrl, file)
-                    End If
 
-                Next
+                    For Each fileItem As Archivo In filesgral
+                        Dim extension = fileItem.Extension.Replace(".", "")
+                        If (extension.Contiene("jpg", "png", "bmp")) Then
+                            Dim dir As String = String.Format("{0}RH\Personal\", UsuarioActual.Empresa.Ruta)
+                            System.IO.Directory.CreateDirectory(dir)
+                            Dim file As String = String.Format("{0}{1}.{2}", dir, ObjPersonal.CvePersonal, extension)
+                            If (System.IO.File.Exists(file)) Then
+                                System.IO.File.Delete(file)
+                            End If
+                            System.IO.File.Move(fileItem.FileUrl, file)
+                        End If
+
+                    Next
+                    Alert(String.Format("El empleado a sido agregado satisfactoriamente <a href=""/RH/Personal.aspx?CvePersonal={0}"">Ver empleado</a>", ObjPersonal.CvePersonal), TipoMensaje.ToastInformacion, "", 0)
+                End If
 
                 ObjPersonal.AgroDepartamentoPersonalUp(UsuarioActual.CveEmpresa, DDlAgroDepartamento.SelectedValue.ToEntero(), ObjPersonal.CvePersonal, If(ChkCharolaForanea.Checked, 1, 0))
 
                 TxtFoto.Text = "[]"
-                Alert(String.Format("El empleado a sido agregado satisfactoriamente <a href=""/RH/Personal.aspx?CvePersonal={0}"">Ver empleado</a>", ObjPersonal.CvePersonal), TipoMensaje.ToastInformacion, "", 0)
                 continuar = True
                 ISChange = True
                 ObjPersonal.Commit()

RH/Personal.aspx

@@ -627,6 +627,10 @@
                                                             <asp:Label AssociatedControlID="chkEsReserva" CssClass="lblforchk" runat="server" Text="Es reserva:"></asp:Label>
                                                             <asp:CheckBox ID="chkEsReserva" CssClass="chksino " Text=" " runat="server" />
                                                         </div>
+                                                        <div class="col-md-6">
+                                                            <asp:Label AssociatedControlID="chkNoFiscalizar" CssClass="lblforchk" runat="server" Text="No Fiscalizar:"></asp:Label>
+                                                            <asp:CheckBox ID="chkNoFiscalizar" CssClass="chksino " Text=" " runat="server" />
+                                                        </div>
                                                     </div>
                                                     <div class="row" style="display: none;">
                                                         <div class="col-md-6">

RH/Personal.aspx.vb

@@ -1686,7 +1686,8 @@ Partial Class RH_Personal
                 DdlSubProyectoAsignado.SelectedValue = ObjPersonal.CveSubProyecto.ToString()
                 DdlSubProyectoAsignado_SelectedIndexChanged1(Nothing, Nothing)
                 DdlMedioTransporte.SelectedValueExist(drow("CveMedioTransporte").ToString())
-                chkEsReserva.Checked = (drow("CharolaForanea").ToString().ToUpper().Contiene("1", "TRUE"))
+                chkEsReserva.Checked = (drow("EsReserva").ToString().ToUpper().Contiene("1", "TRUE"))
+                chkNoFiscalizar.Checked = Not (drow("Fiscalizable").ToString().ToUpper().Contiene("1", "TRUE"))
                 cargatipoTrabajador()
                 DdlTipoTrabajador.SelectedValueExist(drow("CveTipoTrabajador").ToString())
                 cargaagrodeptos()
@@ -1980,7 +1981,7 @@ Partial Class RH_Personal
                DdlPrestamos.SelectedValue.ToEntero(), DdlPrestamos.SelectedItem.Text, UsuarioActual.CveEmpresa, DDLUsuarioNomina.SelectedValue.ToEntero(), DdlSubproyectoZona.SelectedValue.ToEntero(), CveUniforme:=DdlUniforme.SelectedValue.ToEntero(),
                TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveUsuarioModifico:=UsuarioActual.CveUsuario,
                CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=If(ChkSindicalizado.Checked, 1, 0), Pensionado:=ChkPensionado.Checked, CvePais:=DdlPais.SelectedValue.ToEntero(),
-               CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero(), CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero) Then
+               CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero(), CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero(), EsReserva:=If(chkEsReserva.Checked, 1, 0), Fiscalizable:=If(chkNoFiscalizar.Checked, 0, 1)) Then
 
                 'Funsion usa RH Familiares
                 If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then

Ventas/Clientes.aspx

@@ -634,18 +634,21 @@
                                         </div>
                                              </div>
                                          <div class="row">
-                                            <div class="form-group form-md-line-input input-iconright col-md-6">
+                                              <div class=" col-md-6">
+                                            <div class="form-group form-md-line-input input-iconright">
                                                 <asp:DropDownList ID="DdlSubProyecto" runat="server" CssClass="form-control  select2me" AutoPostBack="true" OnSelectedIndexChanged="DdlSubProyecto_SelectedIndexChanged" DataTextField="SubProyecto" DataValueField="CveSubProyecto" ValidationGroup="GrpGuardar"></asp:DropDownList>
                                                 <asp:RequiredFieldValidator ID="RFVSubProyecto" runat="server" ControlToValidate="DdlSubProyecto" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''SubProyecto''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                 <label for="<%= DdlSubProyecto.ClientID.ToString()%>">Sucursal del Cliente:  </label>
                                                 <i></i>
                                             </div>
-
+                                                  </div>
-                                            <div class="form-group form-md-line-input input-iconright col-md-6">
+                                              <div class=" col-md-6">
+                                            <div class="form-group form-md-line-input input-iconright">
                                                 <asp:DropDownList ID="DdlPrecioLista" runat="server" CssClass="form-control  select2me" DataTextField="PrecioLista" DataValueField="CvePrecioLista"></asp:DropDownList>
                                                 <label for="<%= DdlPrecioLista.ClientID.ToString()%>">Precio Lista:  </label>
                                                 <i></i>
                                             </div>
+                                             </div>
                                                </div>
                                          <div class="row">
 

vwd.webinfo

@@ -518,6 +518,8 @@
     
   
     
+  
+