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

App_Code/ClsRH.vb

@@ -2264,6 +2264,24 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         End Try
         Return Retorno
     End Function
+    Public Function PersonalUitimoCodigoGET(CveEmpresa As Integer, prefijo As String) As String
+        Dim Codigo As String = "-1"
+        SqlDataAdapter("PA_RH_PersonalUitimoCodigoGET")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Prefijo", SqlDbType.VarChar).Value = prefijo
+            .Add("@Codigo", SqlDbType.Int).Direction = ParameterDirection.Output
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Codigo = SqlAdapter.SelectCommand.Parameters("@Codigo").Value.ToString()
+        Catch ex As SqlException
+            OnError("Ocurrió un error al intentar guardar los cambios en el Personal.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Codigo
+    End Function
+
+
     Public Function Updateestemporal(CvePersonal As Integer, CveEmpresa As Integer, estemporal As Boolean) As Boolean
         Dim Retorno As Boolean = False
         SqlDataAdapter("PA_RH_PersonalUpdateesTemporal")

Ashx/SigFiles.ashx

@@ -12,6 +12,10 @@ public class SigFiles : IHttpHandler
         //context.Response.ContentType = "text/plain";
         //context.Response.Write("Hello World");
         string path = "";
+        if (context.Request["Ru"] != null)
+        {
+            path = string.Format("{0}",ModExtensiones.Decripta( context.Request["Ru"]));
+        }
         if (context.Request["FileUrl"] != null)
         {
             path = string.Format("{0}{1}", ModExtensiones.DirectorioBaseEmpresas, context.Request["FileUrl"]);

Compras/Compras.aspx.vb

@@ -7818,10 +7818,8 @@ Partial Class Compras_Compras
                                             End If
                                         End If
                                     Next
-
                                 End If
 
-
                                 'GUARDA BITACORA TIPO CAMBIO OC
                                 If Not ErrorOC And TipoCambioOC > 0 Then
                                     If Not ObjEventos.AddEventoBitacora(String.Format("La vinculación con la orden de compra fue con un tipo de cambio de ${0}", TipoCambioOC.ToString), "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=CveCompra) Then
@@ -7829,21 +7827,6 @@ Partial Class Compras_Compras
                                     End If
                                 End If
 
-
-                                'If tDTAcarreos.Rows.Count > 0 Then
-                                '    If TotAcarreos = TxtSubTotal.Text.ToDouble Then
-                                '        'ACARREOS
-                                '        For Each tDTAcar As DataRow In tDTAcarreos.Rows
-                                '            If Not ObjAcar.UpdatePreEstimacion(CInt(tDTAcar("CvePreEstimacion")), CveCompra) Then
-                                '                ErrorAddAcarreos = True
-                                '                Exit For
-                                '            End If
-                                '        Next
-                                '    Else
-                                '        ErrorAddAcarreos = True
-                                '    End If
-                                'End If
-
                                 'AGREGAR OTROS GASTOS A ORDEN DE CORTE
                                 If CveOrdenCorte > 0 And UsuarioActual.CveEmpresa = 126 Then
                                     If ObjCGame.AddCorteGasto(CveOrdenCorte, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Now, 0, CveCompra) Then
@@ -8364,17 +8347,12 @@ Partial Class Compras_Compras
                     'If gvr.DataKey("Fecha").ToDate > Fecha Then Fecha = gvr.DataKey("Fecha").ToDate 'guardo la fecha mayor
                     Importe += gvr.FCTextBox("TxtAnticipo").Text.ToDouble
                     If Math.Round(Importe, 2) - Math.Round(CompraSaldo, 2) > 0.01 Then gvr.FCTextBox("TxtAnticipo").Text = "" : gvr.FCCheckBox("Chk").Checked = False
-
                 End If
             Next
-
         Else
             Contador = 1
         End If
 
-
-
-
         'If TxtFecha.Text.ToDate > Fecha Then Fecha = TxtFecha.Text.ToDate
         Fecha = TxtFechaEjecucion.Text.ToDate
 
@@ -8429,6 +8407,8 @@ Partial Class Compras_Compras
                     CompraActual.IdCtaContableProvComplementaria = CtaProveedorComplementaria
                     CompraActual.EsImportacion = chkImportacion.Checked
 
+                    Dim CvePrePolizaNueva As Integer = ObjConta.AddPrePolizas("Compras/Anticipos", 52, Importe, Importe, DdlMoneda.SelectedValue.ToEntero, Fecha, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
                     For Each gvr As GridViewRow In GVAnticipos.Rows
                         If gvr.FCCheckBox("Chk") IsNot Nothing AndAlso gvr.FCCheckBox("Chk").Checked Then
 
@@ -8476,20 +8456,20 @@ Partial Class Compras_Compras
                                 PorcentajePago = gvr.FCTextBox("TxtAnticipo").Text.ToDecimal / TxtTotal.Text.ToDecimal
 
                                 Dim ImporteAntMNComision As Decimal = (ImporteAnt + ImporComisionAnticipo) * TipoCambioAnt
-                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoCompra, (ImporteAnt + ImporComisionAnticipo), "", CveConceptoCompra, "", TxtFechaPago.Text.ToDate, IdCtaContable, -1, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteAntMNComision, ImporteME:=If(TipoCambioAnt = 1, 0, (ImporteAnt + ImporComisionAnticipo)), CveSubProyecto:=CveSubProyectoAnticipo) Then
+                                If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimientoCompra, (ImporteAnt + ImporComisionAnticipo), "", CveConceptoCompra, "", TxtFechaPago.Text.ToDate, IdCtaContable, -1, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteAntMNComision, ImporteME:=If(TipoCambioAnt = 1, 0, (ImporteAnt + ImporComisionAnticipo)), CveSubProyecto:=CveSubProyectoAnticipo) Then
                                     ErrorMovtosCxP = 1
                                 End If
 
                                 If CveMonedaAnticipo > 1 Then
                                     Dim ImporteAntMN As Decimal = TipoCambioAnt * ImporteAnt - ImporteAnt
-                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoCompra, ImporteAntMN, "", CveConceptoCompraComplementaria, "", TxtFechaPago.Text.ToDate, IdCtaContableComp, -1, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteAntMN, ImporteME:=If(TipoCambioAnt = 1, 0, ImporteAnt), CveSubProyecto:=CveSubProyectoAnticipo) Then
+                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimientoCompra, ImporteAntMN, "", CveConceptoCompraComplementaria, "", TxtFechaPago.Text.ToDate, IdCtaContableComp, -1, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteAntMN, ImporteME:=If(TipoCambioAnt = 1, 0, ImporteAnt), CveSubProyecto:=CveSubProyectoAnticipo) Then
                                         ErrorMovtosCxP = 1
                                     End If
                                 End If
 
                                 Pago.CveIE = CveIE
                                 Pago.CveCompraAmortizacion = CveCompraNC
-                                AplicaPrePolizaPagoCompra(CompraActual, pago, CvePrePoliza, ObjConta)
+                                AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePolizaNueva, ObjConta)
                             End If
                         End If
 

Compras/eFacturas.aspx.vb

@@ -1351,6 +1351,7 @@ Partial Class Compras_eFacturas
                         If Not ObjDatos.UpdateEstatus(ObjValidacion.EsValida, GvRow.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa) Then
                             ErrorTrans = True
                         End If
+                        ObjDatos.Dispose()
                     End If
                     ObjValidacion.Dispose()
                 End If

RH/CatPersonal.aspx

@@ -347,7 +347,7 @@
     <div class="portlet light smmallpadding bordered">
         <div class="portlet-title">
             <div class="caption">
-                <i class="icon-user"></i><span class="caption-subject bold uppercase" style="font-size: 18px;">Personal (<span id="contaper" ></span>)</span>
+                <i class="icon-user"></i><span class="caption-subject bold uppercase" style="font-size: 18px;">Personal (<span id="contaper"></span>)</span>
             </div>
             <div class="tools">
                 <div style="display: inline-block">
@@ -758,7 +758,7 @@
                                             <asp:CheckBox ID="ChkRiesgoPuesto" runat="server" Text="Riesgo de puesto" Checked="false" />
                                         </div>
                                     </div>
-                                    <div class="row" runat="server" Visible="false">
+                                    <div class="row" runat="server" visible="false">
                                         <div class="col-md-3">
                                             <asp:CheckBox ID="ChkSalarioDiarioSS" runat="server" Text="SalarioDiarioSS" />
                                         </div>
@@ -1071,12 +1071,12 @@
                                                     <asp:RequiredFieldValidator ID="RFVRiesgoPuesto" runat="server" ControlToValidate="DdlRiesgoPuesto" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Riesgo Puesto''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardarAddS"></asp:RequiredFieldValidator>
                                                 </div>
 
-                                                    <div class="form-group form-md-line-input input-iconright">
+                                                <div class="form-group form-md-line-input input-iconright">
-                                                        <asp:DropDownList ID="DdlRegistroPatronal" runat="server" Width="100%" DataTextField="RegistroPatronal" CssClass="form-control input-sm select2me" DataValueField="CveRegistroPatronal">
+                                                    <asp:DropDownList ID="DdlRegistroPatronal" runat="server" Width="100%" DataTextField="RegistroPatronal" CssClass="form-control input-sm select2me" DataValueField="CveRegistroPatronal">
-                                                        </asp:DropDownList>
+                                                    </asp:DropDownList>
-                                                        <asp:Label runat="server" AssociatedControlID="DdlRegistroPatronal" Text="Registro Patronal:"></asp:Label>
+                                                    <asp:Label runat="server" AssociatedControlID="DdlRegistroPatronal" Text="Registro Patronal:"></asp:Label>
-                                                        <%--<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="DdlRiesgoPuesto" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Riesgo Puesto''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>--%>
+                                                    <%--<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="DdlRiesgoPuesto" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Riesgo Puesto''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>--%>
-                                                    </div>
+                                                </div>
                                             </div>
                                             <div class="col-md-3">
                                                 <div class="form-group form-md-line-input input-iconright">
@@ -1114,6 +1114,11 @@
                                                     <asp:RequiredFieldValidator ID="RFVPuesto" runat="server" ControlToValidate="DdlPuestoAdd" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Puesto''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardarAddS"></asp:RequiredFieldValidator>
                                                     <i></i>
                                                 </div>
+                                                <div class="form-group form-md-line-input input-iconright">
+                                                    <asp:Label AssociatedControlID="ChkEstemporal" CssClass="lblforchk" runat="server" Text="¿es Temporal?:"></asp:Label>
+                                                    <asp:CheckBox ID="ChkEstemporal" Text=" "  CssClass="chksino" runat="server" />
+                                                </div>
+
                                             </div>
                                             <div class="col-md-4">
                                                 <div class="form-group form-md-line-input input-iconright">

RH/CatPersonal.aspx.vb

@@ -73,6 +73,7 @@ Partial Class RH_CatPersonal
                 DdlRegistroPatronal.DataSource = Nothing
             End If
             DdlRegistroPatronal.DataBind()
+            DdlRegistroPatronal.SelectedValueExist("21") 'empresa 158
             ObjRH.Dispose()
 
             ' GvDatos.Rows(0).FCLabel("LtlSubProyectoConfigurado").Text = LblSubProyectoAsignado.Text
@@ -1217,6 +1218,8 @@ Partial Class RH_CatPersonal
                     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
 
+                If ObjPersonal.Updateestemporal(ObjPersonal.CvePersonal, UsuarioActual.CveEmpresa, ChkEstemporal.Checked) Then
+                End If
                 ObjPersonal.AgroDepartamentoPersonalUp(UsuarioActual.CveEmpresa, DDlAgroDepartamento.SelectedValue.ToEntero(), ObjPersonal.CvePersonal, If(ChkCharolaForanea.Checked, 1, 0))
 
                 TxtFoto.Text = "[]"
@@ -1247,6 +1250,10 @@ Partial Class RH_CatPersonal
         TxtNumeroSS.Text = ""
         TxtCURP.Text = ""
         TxtRFC.Text = ""
+        TxtCodigo.Text = "-1"
+        Using objrh = New ClsRH()
+            TxtCodigo.Text = objrh.PersonalUitimoCodigoGET(UsuarioActual.CveEmpresa, "")
+        End Using
     End Sub
 
     Protected Sub LnkAddPersonalSimplificado_Click(sender As Object, e As EventArgs)

RH/Personal.aspx.vb

@@ -1642,18 +1642,21 @@ Partial Class RH_Personal
                 End If
 
                 If File.Exists(UsuarioActual.Empresa.Ruta & "RH\Personal\" & CvePersonal & ".jpg") Then
-                    Dim LogoRutaFisica As String = String.Format("Empresas\{0}\RH\Personal\{1}.jpg", UsuarioActual.CveEmpresa, CvePersonal)
+                    'Dim LogoRutaFisica As String = String.Format("Empresas\{0}\RH\Personal\{1}.jpg", UsuarioActual.CveEmpresa, CvePersonal)
-                    Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica))
+                    Dim LogoRutaFisica As String = String.Format("{0}RH\Personal\{1}.jpg", UsuarioActual.Empresa.Ruta, CvePersonal)
+                    Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?Ru={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica))
 
                     ImgPersonal.ImageUrl = logouri
                 ElseIf File.Exists(UsuarioActual.Empresa.Ruta & "RH\Personal\" & CvePersonal & ".png") Then
-                    Dim LogoRutaFisica As String = String.Format("Empresas\{0}\RH\Personal\{1}.png", UsuarioActual.CveEmpresa, CvePersonal)
+                    'Dim LogoRutaFisica As String = String.Format("Empresas\{0}\RH\Personal\{1}.png", UsuarioActual.CveEmpresa, CvePersonal)
-                    Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica))
+                    Dim LogoRutaFisica As String = String.Format("{0}RH\Personal\{1}.png", UsuarioActual.Empresa.Ruta, CvePersonal)
+                    Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?Ru={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica))
 
                     ImgPersonal.ImageUrl = logouri
                 ElseIf File.Exists(UsuarioActual.Empresa.Ruta & "RH\Personal\" & CvePersonal & ".bmp") Then
-                    Dim LogoRutaFisica As String = String.Format("Empresas\{0}\RH\Personal\{1}.bmp", UsuarioActual.CveEmpresa, CvePersonal)
+                    'Dim LogoRutaFisica As String = String.Format("Empresas\{0}\RH\Personal\{1}.bmp", UsuarioActual.CveEmpresa, CvePersonal)
-                    Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica))
+                    Dim LogoRutaFisica As String = String.Format("{0}RH\Personal\{1}.bmp", UsuarioActual.Empresa.Ruta, CvePersonal)
+                    Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?Ru={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica))
 
                     ImgPersonal.ImageUrl = logouri
                 End If

vwd.webinfo

@@ -562,14 +562,6 @@
     
   
     
-  
-    
-  
-    
-  
-    
-  
-