Merge branch 'master' of http://agonzalez@192.168.10.111:8383/SIG.git
This commit is contained in:
Antonio Gonzalez
@@ -87,8 +87,8 @@ Partial Class AF_CatAF
|
||||
DdlEstatus.DataSource = GlobalDTEstadoActivoFijo
|
||||
DdlEstatus.DataBind()
|
||||
DdlEstatus.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
|
||||
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto)
|
||||
GvDatos.Columns(7).HeaderText = LblSubProyecto.Text
|
||||
DivProyecto.Visible = LblProyecto.Visible
|
||||
DivProyectoDdl.Visible = LblProyecto.Visible
|
||||
'DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.CveEmpresa)
|
||||
|
||||
@@ -118,7 +118,7 @@
|
||||
Proyecto:
|
||||
|
||||
</div>
|
||||
<div class="col-md-1" runat="server" id="Div1">Aplica NC:</div>
|
||||
<div class="col-md-1" runat="server" id="Div1">Aplica NC/Dev:</div>
|
||||
<div class="col-md-1" id="ds" style="width: 120px;">
|
||||
<asp:DropDownList CssClass="form-control select2me input-sm" ID="DdlAplicaNC" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%">
|
||||
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
|
||||
|
||||
@@ -137,7 +137,7 @@
|
||||
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
<div class="col-md-1" data-toggle="tooltip" data-placement="left" title="Aplica Nota de Crédito">Aplica NC:</div>
|
||||
<div class="col-md-1" data-toggle="tooltip" data-placement="left" title="Aplica Nota de Crédito">Aplica NC/Dev:</div>
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList CssClass="form-control input-sm" ID="AplicaNC" runat="server" AppendDataBoundItems="true" Style="height: 30px;">
|
||||
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
|
||||
|
||||
@@ -682,7 +682,7 @@
|
||||
</asp:Panel>
|
||||
|
||||
|
||||
<asp:GridView ID="GvPS" ShowHeader="false" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePS,Cantidad,CveUM,UM,PU,Descuento,OtrosGastos,CvePresupuestoEgreso,PS,Clasificacion,CveClasificacion,CveOrdenCompraDetalle,IVA,IVAPorcentaje,RetIVAPorcentaje,RetISRPorcentaje,IEPSPSPorcentaje,Obs,Total,CveProyecto,CveSubProyecto,Proyecto,SubProyecto,Consec,CveTipoGasto,NoDeducible" GridLines="none" BorderWidth="0" EmptyDataText="Sin Productos o Servicios agregados" CssClass="table GvPS table-striped table-hover table-advance Widthall ScrollAD mysmallbtn">
|
||||
<asp:GridView ID="GvPS" ShowHeader="false" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePS,Cantidad,CveUM,UM,PU,Descuento,OtrosGastos,CvePresupuestoEgreso,PS,Clasificacion,CveClasificacion,CveOrdenCompraDetalle,IVA,IVAPorcentaje,RetIVAPorcentaje,RetISRPorcentaje,IEPSPSPorcentaje,Obs,Total,CveProyecto,CveSubProyecto,Proyecto,SubProyecto,Consec,CveTipoGasto,NoDeducible,DifPSSat" GridLines="none" BorderWidth="0" EmptyDataText="Sin Productos o Servicios agregados" CssClass="table GvPS table-striped table-hover table-advance Widthall ScrollAD mysmallbtn">
|
||||
<Columns>
|
||||
<%-- 0 --%>
|
||||
<asp:TemplateField ItemStyle-Width="15px">
|
||||
|
||||
@@ -1511,6 +1511,8 @@ Partial Class Compras_Compras
|
||||
CargaFletesAgregados()
|
||||
End If
|
||||
|
||||
|
||||
|
||||
InicializaOC()
|
||||
|
||||
'Valida si el IVA del XML es está bien calculado
|
||||
@@ -2396,6 +2398,8 @@ Partial Class Compras_Compras
|
||||
EstatusAlmacen = dr("EstatusAlmacen").ToString.ToEntero
|
||||
DdlTipoCompra.SelectedValueExist(dr("CveTipoCompra"))
|
||||
CveTipoConcepto = dr("CveTipoConcepto").ToString.ToEntero
|
||||
|
||||
ChkEsNoDeducible.Checked = Boolean.Parse(dr("NoDeducible").ToString)
|
||||
'Select Case dr("PorcentajeIVA").ToString.ToDouble
|
||||
' Case 0
|
||||
' DdlIVA.SelectedValue = "1"
|
||||
@@ -2620,6 +2624,7 @@ Partial Class Compras_Compras
|
||||
TmpDT.Columns.Add("EntregaDirecta", GetType(Integer))
|
||||
|
||||
TmpDT.Columns.Add("CveContrato", GetType(Integer))
|
||||
TmpDT.Columns.Add("DifPSSat", GetType(Integer))
|
||||
|
||||
|
||||
|
||||
@@ -3612,6 +3617,7 @@ Partial Class Compras_Compras
|
||||
tPSCodigo = String.Format("{1} - {0}", ValorXML(node, "descripcion").ToUpper.Trim.Replace(vbCrLf, " ").Replace(vbLf, " ").Replace("'", "''"), ValorXML(node, "noIdentificacion").Trim)
|
||||
End If
|
||||
|
||||
'Alert(ValorXML(node, "ClaveProdServ").Trim)
|
||||
|
||||
If Version = "3.3" Then
|
||||
If node IsNot Nothing AndAlso node.ChildNodes.Count > 0 Then
|
||||
@@ -3721,6 +3727,8 @@ Partial Class Compras_Compras
|
||||
'AGREGA A TMPDT
|
||||
AddPS(ValorXML(node, "cantidad").ToDouble, CveUM, UMM, tCveClasif, Clasif, tCvePS, PSS, TipoPS, "-1", "SE", "SE", "-1", Obs, PU, Total, IVA, RetIVA, RetISR, IEPS, 0, Descuento, PSCodigo:=tPSCodigo, TCalculaTotales:=False, CveSATPS:=ValorXML(node, "ClaveProdServ").ToEntero(), CargaXml:=True, PorcentajeIVA:=PorcentajeIVA, PorcentajeRetIVA:=PorcentajeRetIVA, PorcentajeRetISR:=PorcentajeRetISR, PorcentajeIEPS:=PorcentajeIEPS)
|
||||
|
||||
|
||||
|
||||
Next
|
||||
End If
|
||||
|
||||
@@ -4484,6 +4492,17 @@ Partial Class Compras_Compras
|
||||
'si el registro es manual, toma el mismo dato
|
||||
If CveFactura <= 0 Then TotalOriginal = TxtTotal.Text.ToDecimal
|
||||
|
||||
For Each GvRow As GridViewRow In GvPS.Rows
|
||||
If GvRow.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
If GvRow.FCCheckBox("ChkEsNoDeduciblePS").Checked = False Then
|
||||
EsNoDeducible = False
|
||||
Exit For
|
||||
End If
|
||||
|
||||
End If
|
||||
Next
|
||||
|
||||
'Compra
|
||||
If ObjCompras.AddCompra(DdlTipoComprobante.SelectedValue, TxtDescripcion.Text.Trim, TxtSerie.Text.Trim, TxtFolio.Text.Trim, TxtFolioSecundario.Text.Trim, CveProveedor, TxtSubTotal.Text.ToDouble, TxtDescuento.Text.ToDouble,
|
||||
LblAmortizacion.Text.ToDouble, TxtIVA.Text.ToDouble, TxtRetIVA.Text.ToDouble, TxtRetISR.Text.ToDouble, TxtIEPS.Text.ToDouble, TxtOtrosImpuestos.Text.ToDouble,
|
||||
@@ -10755,6 +10774,14 @@ Partial Class Compras_Compras
|
||||
|
||||
End If
|
||||
|
||||
|
||||
If e.Row.DataKey("DifPSSat").ToEntero = 1 Then
|
||||
'#e35b5a
|
||||
e.Row.BackColor = Drawing.Color.FromArgb(1, 227, 91, 90)
|
||||
e.Row.Attributes.Add("data-toggle", "tooltip")
|
||||
e.Row.Attributes.Add("title", "El código del producto del SAT no es igual al código del producto registrado.")
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
Protected Sub GvPS_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvPS.RowDeleting
|
||||
@@ -11018,6 +11045,8 @@ Partial Class Compras_Compras
|
||||
TmpDT.Columns.Add("ImporteConImpuestos", GetType(Double))
|
||||
TmpDT.Columns.Add("NoDeducible", GetType(Boolean))
|
||||
|
||||
TmpDT.Columns.Add("DifPSSat", GetType(Integer))
|
||||
|
||||
TmpDTOriginal = New DataTable
|
||||
TmpDTOriginal.Columns.Add("Consec", GetType(Integer))
|
||||
TmpDTOriginal.Columns.Add("Cantidad", GetType(Decimal))
|
||||
|
||||
@@ -329,7 +329,7 @@ Partial Class RH_CatCursos
|
||||
|
||||
Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/CursosInvitados.rdlc"
|
||||
|
||||
If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then
|
||||
If Not File.Exists($"{Extensiones.DirectorioBaseEmpresas}/{Archivo}") Then
|
||||
Archivo = "Empresas/Grales/Formatos/CursosInvitados.rdlc"
|
||||
End If
|
||||
|
||||
@@ -613,7 +613,7 @@ Partial Class RH_CatCursos
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
Dim objConstancias As New ClsConstancias
|
||||
Dim DocumenBitArray As Byte() = Nothing
|
||||
Dim RutaBase As String = Server.MapPath("~")
|
||||
Dim RutaBase As String = Extensiones.DirectorioBaseEmpresas
|
||||
|
||||
Dim CvePersonal As Integer = GvRow.DataKey("CvePersonal").ToEntero
|
||||
|
||||
@@ -650,7 +650,7 @@ Partial Class RH_CatCursos
|
||||
Dim Contenido As String = "Buen día. Estimado(a) " & _Nombres & vbLf & vbLf & vbLf & vbLf & " Por medio de la presente, el departamento de Capital Humano de esta " & UsuarioActual.Empresa.Empresa & " le hace la cordial invitación para asistir al curso " & _Curso & " impartido por el capacitador " & _Capacitador & ", el día " & dia & " de " & mesArray(mes - 1) & " de " & año & " en lugar " & _Ubicacion & "." & vbLf & vbLf & vbLf & vbLf & "Esperamos contar con su asistencia."
|
||||
|
||||
If Not File.Exists(RutaArchivo) Then
|
||||
RutaArchivo = $"{Server.MapPath("~")}\Empresas\Grales\Formatos\CursoInvitacion.docx"
|
||||
RutaArchivo = $"{ Extensiones.DirectorioBaseEmpresas }\Empresas\Grales\Formatos\CursoInvitacion.docx"
|
||||
End If
|
||||
|
||||
Dim params As New List(Of ReportParameter)
|
||||
@@ -658,24 +658,22 @@ Partial Class RH_CatCursos
|
||||
params.Add(New ReportParameter("Contenido", Contenido))
|
||||
params.Add(New ReportParameter("Fecha", Today.ToString))
|
||||
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||
Dim DtDatos As New DataTable
|
||||
Return StreamPDF("Empresas/72/Formatos/CursoInvitacion.rdlc", DtDatos, params, "Invitación a curso", "PDF")
|
||||
|
||||
'Dim objGemBoxDocument As New clsGemBoxDocument(RutaArchivo)
|
||||
'Dim Tags As New List(Of TagsDocumentos)
|
||||
Dim DtDatos As New DataTable
|
||||
|
||||
|
||||
Dim objGemBoxDocument As New clsGemBoxDocument(RutaArchivo)
|
||||
Dim Tags As New List(Of TagsDocumentos)
|
||||
|
||||
|
||||
Tags.Add(New TagsDocumentos("{Curso}", _Curso))
|
||||
Tags.Add(New TagsDocumentos("{Contenido}", Contenido))
|
||||
|
||||
|
||||
objGemBoxDocument.SustituirTags(Tags)
|
||||
objGemBoxDocument.GuardarStreamPDF()
|
||||
|
||||
|
||||
'Tags.Add(New TagsDocumentos("{Curso}", _Curso))
|
||||
'Tags.Add(New TagsDocumentos("{Contenido}", Contenido))
|
||||
|
||||
''objGemBoxDocument.AgregarImagen(RutaLogo, 61.0, 53.0)
|
||||
'objGemBoxDocument.SustituirTags(Tags)
|
||||
'objGemBoxDocument.GuardarStream()
|
||||
|
||||
|
||||
'Return objGemBoxDocument.GetBytesDocumento
|
||||
Return objGemBoxDocument.GetBytesDocumento
|
||||
|
||||
End Function
|
||||
|
||||
@@ -795,12 +793,9 @@ Partial Class RH_CatCursos
|
||||
ContenidoSB.AppendLine("")
|
||||
ContenidoSB.AppendLine("</table>")
|
||||
|
||||
|
||||
|
||||
|
||||
Dim BytesDocumento As Byte() = GenerarImvitacion(_Curso, _Capacitador, _Nombres, _CvePersonal, _Fecha, _Ubicacion)
|
||||
MandaCorreo("Invitación a Curso " & Curso, _Correo, "", ContenidoSB.ToString, BytesDocumento)
|
||||
|
||||
Dim BytesDocumento As Byte() = GenerarImvitacion(_Curso, _Capacitador, _Nombres, _CvePersonal, _Fecha, _Ubicacion)
|
||||
MandaCorreo("Invitación a Curso " & Curso, _Correo, "", ContenidoSB.ToString, BytesDocumento)
|
||||
|
||||
Contador = Contador + 1
|
||||
Dim valor As Boolean = False
|
||||
|
||||
|
||||
@@ -57,14 +57,10 @@
|
||||
</li>
|
||||
|
||||
<li>
|
||||
<asp:LinkButton ID="LinkPDF" runat="server" Style="color: #686868;"> <i class="fa fa-ad-pdf" style="margin-right:5px;"></i>Imprimir</asp:LinkButton>
|
||||
</li>
|
||||
|
||||
<li>
|
||||
<asp:LinkButton ID="LinkButton1" runat="server" Style="color: #686868;"> <i class="fa fa-ad-pdf" style="margin-right:5px;"></i>Imprimir</asp:LinkButton>
|
||||
<asp:LinkButton ID="LinkPDF" runat="server"> <i class="fa fa-file-pdf-o" style="margin-right:5px;font-weight:bold"></i>Descargar PDF</asp:LinkButton>
|
||||
</li>
|
||||
<li>
|
||||
<asp:LinkButton ID="LnkExportar" runat="server" Style="color: #686868;"><i class="fa fa-ad-excel" style="margin-right:5px"></i>Excel</asp:LinkButton>
|
||||
<asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-file-excel-o" style="margin-right:5px;font-weight:bold"></i>Descargar Excel</asp:LinkButton>
|
||||
</li>
|
||||
<li>
|
||||
<asp:HyperLink NavigateUrl="#" data-toggle="modal" data-target="#DivPersonalizar" ID="HyperLink1" runat="server" Style="color: #686868;"><i class="fa fa-pencil" style="color:#686868;margin-left:3px;margin-right:2px"></i>Personalizar</asp:HyperLink>
|
||||
@@ -389,7 +385,6 @@
|
||||
<asp:Literal ID="LtlTurno" runat="server" Text='<%# Eval("Turno", "{0}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Puesto</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
@@ -434,7 +429,7 @@
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField Visible="false">
|
||||
<HeaderTemplate>SubProyecto</HeaderTemplate>
|
||||
<%--<HeaderTemplate>SubProyecto</HeaderTemplate>--%>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlSubProyecto" runat="server" Text='<%# Eval("SubProyecto", "{0}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
|
||||
@@ -190,12 +190,12 @@ Partial Class RH_CatPersonal
|
||||
DdlEstatusPersonal.DataBind()
|
||||
End Sub
|
||||
Private Sub CargaProyecto()
|
||||
DdlProyectoAsignado.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
|
||||
DdlProyectoAsignado.DataBind()
|
||||
'DdlProyectoAsignado.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
|
||||
'DdlProyectoAsignado.DataBind()
|
||||
CargaTipoCentroCosto()
|
||||
If DivProyecto.Visible Then
|
||||
CargaSubProyectos()
|
||||
End If
|
||||
'If DivProyecto.Visible Then
|
||||
' CargaSubProyectos()
|
||||
'End If
|
||||
End Sub
|
||||
|
||||
Private Sub CargaSubProyectos()
|
||||
@@ -214,34 +214,10 @@ Partial Class RH_CatPersonal
|
||||
End Sub
|
||||
|
||||
Private Sub CargaTipoCentroCosto()
|
||||
If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
|
||||
DdlSubProyectoAsignado.Items.Clear()
|
||||
DivProyecto.Visible = False
|
||||
LblProyecto.Visible = False
|
||||
LblSubProyecto.Text = "Sucursal:"
|
||||
|
||||
DdlSubProyectoAsignado.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
|
||||
DdlSubProyectoAsignado.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
DdlSubProyectoAsignado.DataBind()
|
||||
|
||||
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
|
||||
DdlSubProyectoAsignado.Items.Clear()
|
||||
DivProyecto.Visible = False
|
||||
LblProyecto.Visible = False
|
||||
LblSubProyecto.Text = "Proyecto:"
|
||||
|
||||
DdlSubProyectoAsignado.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
|
||||
DdlSubProyectoAsignado.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
DdlSubProyectoAsignado.DataBind()
|
||||
|
||||
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
|
||||
LblProyecto.Text = "Sucursal:"
|
||||
LblSubProyecto.Text = "Proyecto:"
|
||||
|
||||
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
|
||||
LblProyecto.Text = "Proyecto:"
|
||||
LblSubProyecto.Text = "Sucursal:"
|
||||
End If
|
||||
CargarCentrosDeCosto(DdlProyectoAsignado, DdlSubProyectoAsignado, LblProyecto, LblSubProyecto)
|
||||
DivProyecto.Visible = LblProyecto.Visible
|
||||
ChkSubProyecto.Text = LblSubProyecto.Text
|
||||
GvDatos.Columns(12).HeaderText = LblSubProyecto.Text
|
||||
End Sub
|
||||
|
||||
Private Sub CargaSupervisores()
|
||||
|
||||
@@ -568,20 +568,20 @@
|
||||
<label for="<%= DdlClienteAsignado.ClientID.ToString()%>">Cliente: </label>
|
||||
<i></i>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<div class="form-group form-md-line-input input-iconright" runat="server" id="DivProyectosAsignado">
|
||||
<asp:Label runat="server" ID="LblProyectoAsignado" CssClass="form-line" for="<%= DdlProyectoAsignado.ClientID.ToString()%>" style="margin-bottom:unset;color:#888888">Proyecto: </asp:Label>
|
||||
<asp:DropDownList ID="DdlProyectoAsignado" runat="server" AppendDataBoundItems="True" AutoPostBack="True" DataTextField="Proyecto" DataValueField="CveProyecto" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
|
||||
<%-- <asp:ListItem Selected="True" Text="Sin Proyecto asignado" Value="-1"></asp:ListItem>--%>
|
||||
</asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RfvDdlProyectoAsignado" runat="server" InitialValue="-1" ControlToValidate="DdlProyectoAsignado" ValidationGroup="GrpGuardar" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Proyecto''</b> es necesario, por favor seleccione uno."></asp:RequiredFieldValidator>
|
||||
<label for="<%= DdlProyectoAsignado.ClientID.ToString()%>">Proyecto: </label>
|
||||
<i></i>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:Label runat="server" ID="LblSubProyectoAsignado" CssClass="form-line" for="<%= DdlSubProyectoAsignado.ClientID.ToString()%>" style="margin-bottom:unset;color:#888888">SubProyecto: </asp:Label>
|
||||
<asp:DropDownList ID="DdlSubProyectoAsignado" runat="server" AppendDataBoundItems="True" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
|
||||
<asp:ListItem Selected="True" Text="Sin SubProyecto asignado" Value="-1"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RfvDdlSubProyectoAsignado" runat="server" InitialValue="-1" ControlToValidate="DdlSubProyectoAsignado" ValidationGroup="GrpGuardar" 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."></asp:RequiredFieldValidator>
|
||||
<label for="<%= DdlSubProyectoAsignado.ClientID.ToString()%>">SubProyecto: </label>
|
||||
<i></i>
|
||||
</div>
|
||||
<%-- <div class="form-group form-md-line-input input-iconright">
|
||||
@@ -1523,10 +1523,10 @@
|
||||
|
||||
<asp:DropDownList ID="DdlInfoTipoAplicacion" AutoPostBack="true" runat="server" Class="form-control select2me" Width="100%">
|
||||
<asp:ListItem Text="Seleccione" Value="-1"></asp:ListItem>
|
||||
<asp:ListItem Text="Infonavit(Movto Permanente)" Value="5000"></asp:ListItem>
|
||||
<asp:ListItem Text="Infonavit(Porcentaje)" Value="5001"></asp:ListItem>
|
||||
<asp:ListItem Text="Infonavit(Factor Descuento)" Value="5002"></asp:ListItem>
|
||||
<asp:ListItem Text="Infonavit(Cuota Fija)" Value="5003"></asp:ListItem>
|
||||
<asp:ListItem Text="Infonavit (Movto Permanente)" Value="5000"></asp:ListItem>
|
||||
<asp:ListItem Text="Infonavit (Porcentaje)" Value="5001"></asp:ListItem>
|
||||
<asp:ListItem Text="Infonavit (Factor Descuento)" Value="5002"></asp:ListItem>
|
||||
<asp:ListItem Text="Infonavit (Cuota Fija)" Value="5003"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
</div>
|
||||
@@ -1602,8 +1602,8 @@
|
||||
|
||||
<asp:DropDownList ID="DdlFonTipoAplicacion" runat="server" Class="form-control select2me" Width="100%">
|
||||
<asp:ListItem Text="Seleccione" Value="-1"></asp:ListItem>
|
||||
<asp:ListItem Text="Fonacot(Importe fijo)" Value="3001"></asp:ListItem>
|
||||
<asp:ListItem Text="Fonacot(Por días Labarados)" Value="3002"></asp:ListItem>
|
||||
<asp:ListItem Text="Fonacot (Importe fijo)" Value="3001"></asp:ListItem>
|
||||
<asp:ListItem Text="Fonacot (Por días Laborados)" Value="3002"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
</div>
|
||||
@@ -3538,7 +3538,7 @@
|
||||
|
||||
|
||||
<asp:GridView ID="GvLicencias" Width="100%" runat="server" GridLines="None" BorderWidth="0" data-heighterror="330" data-freezecols="0" data-freezerows="1"
|
||||
DataKeyNames="CveLicencia,Licencia,FechaExpedicion,FechaVencimiento"
|
||||
DataKeyNames="CveLicencia,Licencia,FechaExpedicion,FechaVencimiento,Estatus"
|
||||
CssClass=" table table-striped table-advance table-hover Widthall" ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true"
|
||||
AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
|
||||
<Columns>
|
||||
@@ -4614,7 +4614,7 @@
|
||||
<button type="button" class="close" data-dismiss="modal" aria-label="Close">
|
||||
<span aria-hidden="true">×</span>
|
||||
</button>
|
||||
<h4 class="modal-title" runat="server" style="text-align: left">modificar Salario</h4>
|
||||
<h4 class="modal-title" runat="server" style="text-align: left">Modificar Salario</h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
<div>
|
||||
|
||||
@@ -1041,11 +1041,13 @@ Partial Class RH_Personal
|
||||
|
||||
Private Sub CargaProyecto()
|
||||
|
||||
DdlProyectoAsignado.Items.Clear()
|
||||
DdlProyectoAsignado.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, 1)
|
||||
DdlProyectoAsignado.DataBind()
|
||||
CargarCentrosDeCosto(DdlProyectoAsignado, DdlSubProyectoAsignado, LblProyectoAsignado, LblSubProyectoAsignado)
|
||||
DivProyectosAsignado.Visible = LblProyectoAsignado.Visible
|
||||
'DdlProyectoAsignado.Items.Clear()
|
||||
'DdlProyectoAsignado.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, 1)
|
||||
'DdlProyectoAsignado.DataBind()
|
||||
|
||||
DdlProyectoAsignado.Items.Insert(0, New ListItem("Sin Proyecto asignado", "-1"))
|
||||
'DdlProyectoAsignado.Items.Insert(0, New ListItem("Sin Proyecto asignado", "-1"))
|
||||
|
||||
DdlProyectoAsistenciaC.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", "", {"CveProyecto", "Proyecto"})
|
||||
DdlProyectoAsistenciaC.DataBind()
|
||||
@@ -4671,12 +4673,17 @@ Partial Class RH_Personal
|
||||
Dim Fecha As String = DateTime.Now.ToString("dd/MM/yyyy")
|
||||
Dim Solicitante As String = UsuarioActual.Nombre
|
||||
Dim anio As Integer = GvRow.DataKey("FechaInicio").ToDate().Year
|
||||
Dim FechaPeriodo As String = GvRow.DataKey("Periodo")
|
||||
|
||||
|
||||
|
||||
|
||||
If Periodoingreso > PeriodoInicio Then
|
||||
anio = anio - 1
|
||||
End If
|
||||
|
||||
|
||||
Dim FechaPeriodo As String = String.Format("{0:dd/MM}/{1}", fechaIngreso, anio)
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If File.Exists(RutaFormato) Then
|
||||
|
||||
Dim objGemDocument As New clsGemBoxDocument(RutaFormato)
|
||||
@@ -6123,10 +6130,36 @@ Partial Class RH_Personal
|
||||
End If
|
||||
If TxtFIPrimaVacacional.Text = "0" Or TxtFIPrimaVacacional.Text = "" Or TxtFIAguinaldo.Text = "-1" Then
|
||||
TxtFIPrimaVacacional.Text = "25"
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
TxtFISalariodiarioImss.Text = TxtSalarioCotizado.Text
|
||||
TxtFactordeIntegracion.Text = ""
|
||||
TxtFISalarioDiarioIntegrado.Text = ""
|
||||
TxtFISalarioDiarioIntegrado.Text = ""
|
||||
|
||||
|
||||
|
||||
Dim objRH As New ClsRH
|
||||
|
||||
If objRH.VacacionesResumenGet(CvePersonal, UsuarioActual.Empresa.CveEmpresa) Then
|
||||
If objRH.DtResultados.Rows.Count > 0 Then
|
||||
|
||||
If objRH.DtResultados.Rows.Count > 0 Then
|
||||
TxtFIDiasVacaciones.Text = objRH.DtResultados(0)("Dias").ToString
|
||||
Else
|
||||
TxtFIDiasVacaciones.Text = "6"
|
||||
End If
|
||||
Else
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
objRH.Dispose()
|
||||
|
||||
|
||||
|
||||
|
||||
RegistraScript("$('#DmodalFactordeIntegraccion').modal()")
|
||||
UpFactordeintegracion.Update()
|
||||
End Sub
|
||||
|
||||
@@ -181,7 +181,7 @@ Partial Class RH_RepPersonalInconsistencias
|
||||
|
||||
Dim ObjAF As New ClsAF()
|
||||
If ObjAF.GetLicenciasVencidas(-1, -1, UsuarioActual.CveEmpresa, Estatus:=1) Then
|
||||
GvLicencias.DataSource = ObjAF.DtResultados
|
||||
GvLicencias.DataSource = ObjAF.DtResultados.FiltraParametros("CveEstatusPersonal = 1")
|
||||
|
||||
Else
|
||||
GvLicencias.DataSource = Nothing
|
||||
|
||||
@@ -66,13 +66,31 @@ public class Tareas72 : IHttpHandler
|
||||
string JsonStringFormat = JsonString.Replace("Resultado(", "{\"Resultado\":").Replace(")", "}");
|
||||
DataSet dataSet = JsonConvert.DeserializeObject<DataSet>(JsonStringFormat);
|
||||
DataTable dataTable = dataSet.Tables["Resultado"];
|
||||
if (dataTable.Rows[0]["eventoId"].ToString() == "Hdc")
|
||||
string eventoId = dataTable.Rows[0]["eventoId"].ToString();
|
||||
if (eventoId == "Hdc" | eventoId == "HDC")
|
||||
{
|
||||
int EstatusEntregado = 3;
|
||||
|
||||
//MANDAMOS A ACTUALIZAR CON ESTATUS DE ENTREGADO
|
||||
if (ObjGenerales.UpdatePaqueteriasGuias(CvePaqueteriaGuia, -1, -1, -1, EstatusEntregado, "-1", "", "", -1, -1, "-1", "-1", ""))
|
||||
{
|
||||
#region 'DESCARGAR IMAGEN'
|
||||
string rastreo = Guia["Rastreo"].ToString();
|
||||
string uriConsultaFirma = string.Format("https://cc.paquetexpress.com.mx/ptxws/rest/api/v1/entrega/firma/{0}/@1@2@3@4@5", rastreo);
|
||||
|
||||
HttpClient ClientFirma = new HttpClient();
|
||||
HttpResponseMessage ResponseMessageFirma = ClientFirma.GetAsync(uriConsultaFirma).Result;
|
||||
string JsonStringFirma = ResponseMessageFirma.Content.ReadAsStringAsync().Result;
|
||||
string JsonStringFormatFirma = JsonStringFirma.Replace("callback(", "{\"callback\":").Replace(")", "}");
|
||||
DataSet dataSetFirma = JsonConvert.DeserializeObject<DataSet>(JsonStringFormatFirma);
|
||||
DataTable dataTableFirma = dataSetFirma.Tables["callback"];
|
||||
|
||||
string ImagenBase64 = dataTableFirma.Rows[0]["imagen"].ToString();
|
||||
byte[] ImagenByteArray = Convert.FromBase64String(ImagenBase64);
|
||||
string rutaDestino = ModExtensiones.DirectorioEmpresas + "72\\" + "Documentos\\Guias\\" + CvePaqueteriaGuia + ".jpg";
|
||||
File.WriteAllBytes(rutaDestino,ImagenByteArray);
|
||||
#endregion
|
||||
|
||||
#region 'MANDAR CORREOS'
|
||||
int CveCliente = Guia["CveCliente"].ToString().ToEntero();
|
||||
int CveVenta = Guia["CveAgrupador"].ToString().ToEntero();
|
||||
@@ -123,7 +141,7 @@ public class Tareas72 : IHttpHandler
|
||||
ObjVentas.Dispose();
|
||||
ObjVendedores.Dispose();
|
||||
ObjEmpresa.Dispose();
|
||||
return false;
|
||||
return retorno;
|
||||
}
|
||||
|
||||
public bool IsReusable
|
||||
|
||||
@@ -80,6 +80,10 @@
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user