Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git
This commit is contained in:
1
.gitignore
vendored
1
.gitignore
vendored
@@ -273,3 +273,4 @@ __pycache__/
|
||||
/Default.aspx.cs
|
||||
/App_WebReferences/WSRDLC
|
||||
/wwwSIGGIT.rar
|
||||
/Front
|
||||
|
||||
@@ -365,7 +365,7 @@ Partial Class AC_RegNomina
|
||||
|
||||
|
||||
Dim CtaCliente As Integer = 634 ' Municipio de hermosillo
|
||||
Dim CvePresupuestoIngreso As Integer = 195 ' 2015: 12, 2016: 152, 2017: 160, 2018: 183
|
||||
Dim CvePresupuestoIngreso As Integer = 214 ' 2015: 12, 2016: 152, 2017: 160, 2018: 183, 2019: 195
|
||||
Dim CtaPuente As Integer = 1774 ' INGRESO RECAUDADO PARA NOMINA EN MUNICIPIO, fijo
|
||||
Dim CtaServiciosPersonales As Integer = 1778 ' 2111 -- fijo
|
||||
Dim IdCtaPersonal As Integer = 0
|
||||
|
||||
@@ -302,6 +302,7 @@ Public Class CFDIConceptos
|
||||
Public Property ValorUnitario As Decimal = 0.00D
|
||||
Public Property Importe As Decimal = 0.00D
|
||||
Public Property CuentaPredial As String = ""
|
||||
Public Property NumeroPedimento As String = ""
|
||||
Public Property ClaveProdServ As String = ""
|
||||
Public Property ClaveUnidad As String = ""
|
||||
Public Property Impuestos As List(Of CFDIConceptosImpuestos)
|
||||
|
||||
@@ -2922,6 +2922,26 @@ Public Class ClsOIEventos
|
||||
#End Region
|
||||
|
||||
#Region "Documentos"
|
||||
Public Function ListadoDocumentos(CveEmpresa As Integer) As Boolean
|
||||
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
DataAdapter("PA_OI_ListarDocumentos")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
End With
|
||||
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
Retorno = True
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió un error al obtener el listado de documento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
Public Function GetDocumento(CveDocumento As Integer, CveEmpresa As Integer) As Boolean
|
||||
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
@@ -1164,6 +1164,7 @@ Public Class Timbrado
|
||||
End If
|
||||
Next
|
||||
If concep.CuentaPredial <> "" Then cfdi.agregarCuentaPredial(concep.CuentaPredial)
|
||||
If concep.NumeroPedimento <> "" Then cfdi.agregarInformacionAduanera(concep.NumeroPedimento)
|
||||
Next
|
||||
End If
|
||||
|
||||
@@ -1749,6 +1750,7 @@ Public Class Timbrado
|
||||
End If
|
||||
Next
|
||||
If concep.CuentaPredial <> "" Then cfdi.CuentaPredial(concep.CuentaPredial)
|
||||
If concep.NumeroPedimento <> "" Then cfdi.InformacionAduanera(concep.NumeroPedimento)
|
||||
Next
|
||||
End If
|
||||
|
||||
@@ -2365,6 +2367,11 @@ Public Class Timbrado
|
||||
End If
|
||||
|
||||
If concep.Noidentificacion <> "" Then comprobante.Conceptos(i).NoIdentificacion = concep.Noidentificacion
|
||||
If concep.CuentaPredial <> "" Then comprobante.Conceptos(i).CuentaPredial = New Profact.TimbraCFDI33.ComprobanteConceptoCuentaPredial() With {.Numero = concep.CuentaPredial}
|
||||
If concep.NumeroPedimento <> "" Then
|
||||
comprobante.Conceptos(i).InformacionAduanera = New Profact.TimbraCFDI33.ComprobanteConceptoInformacionAduanera(1) {} 'solo un codigo por el momento
|
||||
comprobante.Conceptos(i).InformacionAduanera(0) = New Profact.TimbraCFDI33.ComprobanteConceptoInformacionAduanera() With {.NumeroPedimento = concep.NumeroPedimento}
|
||||
End If
|
||||
|
||||
j = 0
|
||||
k = 0
|
||||
|
||||
@@ -27,8 +27,8 @@ Namespace Sigfox
|
||||
'respuesta.Datos = Datos
|
||||
|
||||
Dim DevID As String = params.device
|
||||
Dim Lat As Double = params.lat.ToDouble()
|
||||
Dim Lng As Double = params.lng.ToDouble()
|
||||
Dim Lat As Double = 90 'params.lat.ToDouble()
|
||||
Dim Lng As Double = 90 'params.lng.ToDouble()
|
||||
Dim Fecha As DateTime = params.time.ToDouble().ConvertFromUnixTimestamp()
|
||||
Dim Velocidad As Double = 0
|
||||
Dim MessageType As Integer = 0
|
||||
@@ -68,12 +68,16 @@ Namespace Sigfox
|
||||
End Try
|
||||
|
||||
Dim response As HttpResponseMessage
|
||||
If datos.Length > 0 Then
|
||||
Dim jsonString As String = $"{{""{params.device}"":{{""downlinkData"":""{datos}""}}}}"
|
||||
response = Me.Request.CreateResponse(HttpStatusCode.OK)
|
||||
response.Content = New StringContent(jsonString, Encoding.UTF8, "application/json")
|
||||
If respuesta.Correcto Then
|
||||
If datos.Length > 0 Then
|
||||
response = Me.Request.CreateResponse(HttpStatusCode.OK)
|
||||
response.Content = New StringContent($"{{""{params.device}"":{{""downlinkData"":""{datos}""}}}}", Encoding.UTF8, "application/json")
|
||||
Else
|
||||
response = Request.CreateResponse(HttpStatusCode.NoContent, "")
|
||||
End If
|
||||
Else
|
||||
response = Request.CreateResponse(HttpStatusCode.NoContent, "")
|
||||
response = Me.Request.CreateResponse(HttpStatusCode.OK)
|
||||
response.Content = New StringContent($"{{""Fail"":{{""Msg"":""Ocurrió un error al agregar la trama""}}}}", Encoding.UTF8, "application/json")
|
||||
End If
|
||||
Return response
|
||||
End Function
|
||||
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -1702,9 +1702,21 @@ Partial Class RegPoliza
|
||||
|
||||
If ObjConta.RemovePoliza(IDPoliza) Then
|
||||
If ObjMov.DesvincularPrePolizaContabilizada(IDPoliza, UsuarioActual.CveEmpresa) Then
|
||||
If ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Polizas", TxtNumeroPoliza.Text, DdlTipoPoliza.SelectedValue.ToEntero) Then
|
||||
If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Polizas", TxtNumeroPoliza.Text, DdlTipoPoliza.SelectedValue.ToEntero) Then
|
||||
|
||||
ErrorTrans = True
|
||||
Else
|
||||
End If
|
||||
|
||||
If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", TxtConcepto.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Polizas", TxtNumeroPoliza.Text, DdlTipoPoliza.SelectedValue.ToEntero) Then
|
||||
ErrorTrans = True
|
||||
End If
|
||||
|
||||
If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", TxtFechaPoliza.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Polizas", TxtNumeroPoliza.Text, DdlTipoPoliza.SelectedValue.ToEntero) Then
|
||||
ErrorTrans = True
|
||||
End If
|
||||
|
||||
If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", DdlTipoPoliza.SelectedItem.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Polizas", TxtNumeroPoliza.Text, DdlTipoPoliza.SelectedValue.ToEntero) Then
|
||||
ErrorTrans = True
|
||||
End If
|
||||
Else
|
||||
|
||||
@@ -50,34 +50,34 @@
|
||||
<TablixBody>
|
||||
<TablixColumns>
|
||||
<TablixColumn>
|
||||
<Width>1.57873cm</Width>
|
||||
<Width>2.19852cm</Width>
|
||||
</TablixColumn>
|
||||
<TablixColumn>
|
||||
<Width>2.54731cm</Width>
|
||||
<Width>2.26204cm</Width>
|
||||
</TablixColumn>
|
||||
<TablixColumn>
|
||||
<Width>0.70704cm</Width>
|
||||
<Width>0.69929cm</Width>
|
||||
</TablixColumn>
|
||||
<TablixColumn>
|
||||
<Width>1.66702cm</Width>
|
||||
<Width>1.65927cm</Width>
|
||||
</TablixColumn>
|
||||
<TablixColumn>
|
||||
<Width>1.99686cm</Width>
|
||||
<Width>1.98911cm</Width>
|
||||
</TablixColumn>
|
||||
<TablixColumn>
|
||||
<Width>1.96369cm</Width>
|
||||
<Width>1.95594cm</Width>
|
||||
</TablixColumn>
|
||||
<TablixColumn>
|
||||
<Width>1.75246cm</Width>
|
||||
<Width>1.74471cm</Width>
|
||||
</TablixColumn>
|
||||
<TablixColumn>
|
||||
<Width>0.85958cm</Width>
|
||||
<Width>0.85183cm</Width>
|
||||
</TablixColumn>
|
||||
<TablixColumn>
|
||||
<Width>1.6398cm</Width>
|
||||
<Width>1.63205cm</Width>
|
||||
</TablixColumn>
|
||||
<TablixColumn>
|
||||
<Width>1.77947cm</Width>
|
||||
<Width>1.50713cm</Width>
|
||||
</TablixColumn>
|
||||
</TablixColumns>
|
||||
<TablixRows>
|
||||
@@ -822,7 +822,7 @@
|
||||
<TablixMember>
|
||||
<Group Name="GPO" />
|
||||
<TablixHeader>
|
||||
<Size>3.06196cm</Size>
|
||||
<Size>3.05421cm</Size>
|
||||
<CellContents>
|
||||
<Textbox Name="RazonSocial">
|
||||
<CanGrow>true</CanGrow>
|
||||
@@ -863,7 +863,7 @@
|
||||
<Top>0.75875cm</Top>
|
||||
<Left>0.06614cm</Left>
|
||||
<Height>1.19472cm</Height>
|
||||
<Width>19.55393cm</Width>
|
||||
<Width>19.55408cm</Width>
|
||||
<Style>
|
||||
<Border>
|
||||
<Style>None</Style>
|
||||
@@ -891,8 +891,8 @@
|
||||
</Paragraph>
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>Textbox1</rd:DefaultName>
|
||||
<Top>0.07056cm</Top>
|
||||
<Left>0.06614cm</Left>
|
||||
<Top>0.0635cm</Top>
|
||||
<Left>0.01654cm</Left>
|
||||
<Height>0.58236cm</Height>
|
||||
<Width>19.58715cm</Width>
|
||||
<ZIndex>1</ZIndex>
|
||||
@@ -910,10 +910,10 @@
|
||||
<Height>0.87325in</Height>
|
||||
<Style />
|
||||
</Body>
|
||||
<Width>7.73752in</Width>
|
||||
<Width>7.7245in</Width>
|
||||
<Page>
|
||||
<PageHeader>
|
||||
<Height>2.22362cm</Height>
|
||||
<Height>2.32973cm</Height>
|
||||
<PrintOnFirstPage>true</PrintOnFirstPage>
|
||||
<ReportItems>
|
||||
<Textbox Name="Textbox1">
|
||||
@@ -935,9 +935,8 @@
|
||||
</Paragraph>
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>Textbox1</rd:DefaultName>
|
||||
<Left>2.43857cm</Left>
|
||||
<Height>0.6cm</Height>
|
||||
<Width>14.68354cm</Width>
|
||||
<Width>19.60369cm</Width>
|
||||
<Style>
|
||||
<Border>
|
||||
<Style>None</Style>
|
||||
@@ -983,9 +982,8 @@
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>Textbox2</rd:DefaultName>
|
||||
<Top>0.63528cm</Top>
|
||||
<Left>2.40329cm</Left>
|
||||
<Height>0.52945cm</Height>
|
||||
<Width>14.68354cm</Width>
|
||||
<Width>19.62022cm</Width>
|
||||
<ZIndex>1</ZIndex>
|
||||
<Style>
|
||||
<Border>
|
||||
@@ -1003,7 +1001,7 @@
|
||||
<Sizing>FitProportional</Sizing>
|
||||
<Left>0.06614cm</Left>
|
||||
<Height>2.22362cm</Height>
|
||||
<Width>2.33715cm</Width>
|
||||
<Width>4.64069cm</Width>
|
||||
<ZIndex>2</ZIndex>
|
||||
<Style>
|
||||
<Border>
|
||||
|
||||
@@ -761,7 +761,7 @@ public partial class General_PopUpPaqueteriasGuias : ClsPaginas
|
||||
strBody.Append("<head>");
|
||||
strBody.Append("<meta charset='UTF-8'>");
|
||||
strBody.Append("</head>");
|
||||
strBody.Append(" <body>");
|
||||
strBody.Append(" <body style='width:800px;'>");
|
||||
strBody.Append("<div>");
|
||||
strBody.Append($"<img src='http://sig.adssistemas.mx/Empresas/{UsuarioActual.CveEmpresa}/Logo.png' style='width:200px'></img>");
|
||||
strBody.Append("</div>");
|
||||
@@ -770,7 +770,7 @@ public partial class General_PopUpPaqueteriasGuias : ClsPaginas
|
||||
strBody.Append(" </p>");
|
||||
strBody.Append($" <p style='width:100%;text-align:center;font-family:Segoe UI Semibold;font-size:12pt'>{FolioVenta} - Pedido {Pedido} - Orden de Compra {OrdenCompra}</P>");
|
||||
strBody.Append(" <div style='width:100%;text-align:center'>");
|
||||
strBody.Append(" <table style='width:80%;font-family:Segoe UI Semibold;font-size:12pt'>");
|
||||
strBody.Append(" <table style='width:100%;font-family:Segoe UI Semibold;font-size:12pt'>");
|
||||
strBody.Append(DetalleTable);
|
||||
strBody.Append(" </table>");
|
||||
strBody.Append(" </div>");
|
||||
|
||||
@@ -1110,7 +1110,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
|
||||
strBody.Append("<head>");
|
||||
strBody.Append("<meta charset='UTF-8'>");
|
||||
strBody.Append("</head>");
|
||||
strBody.Append(" <body>");
|
||||
strBody.Append(" <body style='width:800px'>");
|
||||
strBody.Append("<div>");
|
||||
strBody.Append($"<img src='http://sig.adssistemas.mx/Empresas/{UsuarioActual.CveEmpresa}/Logo.png' style='width:200px'></img>");
|
||||
strBody.Append("</div>");
|
||||
@@ -1120,7 +1120,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
|
||||
strBody.Append($" <p style='width:100%;text-align:center;font-family:Segoe UI Semibold;font-size:12pt'>{FolioVenta} - Pedido {Pedido} - Orden de Compra {OrdenCompra}</P>");
|
||||
strBody.Append(" <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>Su Pedido:</p>");
|
||||
strBody.Append(" <div style='width:100%;text-align:center'>");
|
||||
strBody.Append(" <table style='width:80%;font-family:Segoe UI Semibold;font-size:12pt'>");
|
||||
strBody.Append(" <table style='width:100%;font-family:Segoe UI Semibold;font-size:12pt'>");
|
||||
strBody.Append(DetalleTable);
|
||||
strBody.Append(" </table>");
|
||||
strBody.Append(" </div>");
|
||||
|
||||
@@ -1183,7 +1183,7 @@
|
||||
<asp:BoundField HeaderText="Sección Alm" ReadOnly="true" DataField="SeccionAlmacen" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
|
||||
<asp:BoundField HeaderText="Serie" ReadOnly="true" DataField="Serie" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
|
||||
<asp:BoundField HeaderText="Lote" ReadOnly="true" DataField="Lote" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
|
||||
<asp:BoundField HeaderText="Caducidad" ReadOnly="true" DataField="FechaCaducidad" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
|
||||
<asp:BoundField HeaderText="Caducidad" ReadOnly="true" DataField="FechaCaducidad" DataFormatString="{0:d}" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="100px">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="LnkRemoveInvFisico" runat="server" AlternateText="Eliminar" OnClick="DeleteRowInvFisicoEntrada" CommandArgument='<%# Eval("No")%>' CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea eliminar el concepto?" data-btn-ok-label="si" />
|
||||
@@ -1275,7 +1275,7 @@
|
||||
<asp:BoundField HeaderText="Sección Alm" ReadOnly="true" DataField="SeccionAlmacen" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
|
||||
<asp:BoundField HeaderText="Serie" ReadOnly="true" DataField="Serie" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
|
||||
<asp:BoundField HeaderText="Lote" ReadOnly="true" DataField="Lote" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
|
||||
<asp:BoundField HeaderText="Caducidad" ReadOnly="true" DataField="FechaCaducidad" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
|
||||
<asp:BoundField HeaderText="Caducidad" ReadOnly="true" DataField="FechaCaducidad" DataFormatString="{0:d}" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="100px">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="LnkRemoveInvFisicoSalida" runat="server" AlternateText="Eliminar" OnClick="DeleteRowInvFisicoSalida" CommandArgument='<%# Eval("No")%>' CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea eliminar el concepto?" data-btn-ok-label="si" />
|
||||
|
||||
@@ -255,7 +255,7 @@ Partial Class Inventarios_EntradasSalidas
|
||||
|
||||
Public Property CveMovimientoDetalleEdit() As Integer
|
||||
Get
|
||||
Return ViewState("CveMovimientoDetalleEdit").ToString.ToEntero
|
||||
Return IfNull(ViewState("CveMovimientoDetalleEdit"), 0).ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveMovimientoDetalleEdit") = value
|
||||
@@ -2382,8 +2382,11 @@ Partial Class Inventarios_EntradasSalidas
|
||||
DdlClasificacion.Enabled = False
|
||||
DdlProducto2.Enabled = False
|
||||
DdlUnidad.Enabled = False
|
||||
|
||||
'codigo provisional, hay entradas con productos, que al asignar serie, debe de tener e ncantidad = 1
|
||||
If GvRow.DataKey("Cantidad").ToEntero() > 1 Then txtCantidad.Enabled = True
|
||||
End If
|
||||
txtCantidad.Text = GvRow.DataKey("Cantidad").ToEntero().ToString
|
||||
txtCantidad.Text = GvRow.DataKey("Cantidad").ToEntero().ToString
|
||||
DdlProducto2.SelectedValue = GvRow.DataKey("CvePS")
|
||||
DdlProducto2.SelectedText = GvRow.DataKey("CodigoPS")
|
||||
ElProductoChange()
|
||||
@@ -3480,9 +3483,9 @@ Partial Class Inventarios_EntradasSalidas
|
||||
Dim PS As String = ""
|
||||
|
||||
Dim CveSeccionAlmacen As Integer = DdlSeccionAlmacenEntrada.SelectedValue.ToEntero
|
||||
Dim Serie As String = If(TxtSerieEntrada.Text = "", "-1", TxtSerieEntrada.Text)
|
||||
Dim Lote As String = If(TxtLoteEntrada.Text = "", "-1", TxtLoteEntrada.Text)
|
||||
Dim Caducidad As String = If(TxtCaducidadEntrada.Text = "", "-1", TxtCaducidadEntrada.Text)
|
||||
Dim Serie As String = If(TxtSerieEntrada.Text = "", "", TxtSerieEntrada.Text)
|
||||
Dim Lote As String = If(TxtLoteEntrada.Text = "", "", TxtLoteEntrada.Text)
|
||||
Dim Caducidad As String = If(TxtCaducidadEntrada.Text = "", MinFecha.ToShortDateString, TxtCaducidadEntrada.Text)
|
||||
|
||||
Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimero("", "PS")
|
||||
If dr IsNot Nothing Then
|
||||
@@ -3517,6 +3520,12 @@ Partial Class Inventarios_EntradasSalidas
|
||||
GvEntradas.DataSource = DtTemp
|
||||
GvEntradas.DataBind()
|
||||
UpEntradasGv.Update()
|
||||
If DtTemp IsNot Nothing AndAlso DtTemp.Rows.Count > 0 Then
|
||||
GvEntradas.Columns(3).Visible = DtTemp.MAX("CveSeccionAlmacen").ToEntero > 0
|
||||
GvEntradas.Columns(4).Visible = DtTemp.MAX("Serie") <> ""
|
||||
GvEntradas.Columns(5).Visible = DtTemp.MAX("Lote") <> ""
|
||||
GvEntradas.Columns(6).Visible = DtTemp.MAX("FechaCaducidad").ToDate > MinFecha
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub DdlPSInvFisico_ValueChanged(sender As Object, e As EventArgs) Handles DdlPS.selectedindexchange
|
||||
@@ -3586,9 +3595,9 @@ Partial Class Inventarios_EntradasSalidas
|
||||
Dim PS As String = ""
|
||||
|
||||
Dim CveSeccionAlmacen As Integer = DdlSeccionAlmacenSalida.SelectedValue.ToEntero
|
||||
Dim Serie As String = If(TxtSerieSalida.Text = "", "-1", TxtSerieSalida.Text)
|
||||
Dim Lote As String = If(TxtLoteSalida.Text = "", "-1", TxtLoteSalida.Text)
|
||||
Dim Caducidad As String = If(TxtCaducidadSalida.Text = "", "-1", TxtCaducidadSalida.Text)
|
||||
Dim Serie As String = If(TxtSerieSalida.Text = "", "", TxtSerieSalida.Text)
|
||||
Dim Lote As String = If(TxtLoteSalida.Text = "", "", TxtLoteSalida.Text)
|
||||
Dim Caducidad As String = If(TxtCaducidadSalida.Text = "", MinFecha.ToShortDateString, TxtCaducidadSalida.Text)
|
||||
|
||||
Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimero("", "PS")
|
||||
If dr IsNot Nothing Then
|
||||
@@ -3623,6 +3632,12 @@ Partial Class Inventarios_EntradasSalidas
|
||||
GvSalidas.DataSource = DtTemp
|
||||
GvSalidas.DataBind()
|
||||
UpSalidaGv.Update()
|
||||
If DtTemp IsNot Nothing AndAlso DtTemp.Rows.Count > 0 Then
|
||||
GvSalidas.Columns(2).Visible = DtTemp.MAX("CveSeccionAlmacen").ToEntero > 0
|
||||
GvSalidas.Columns(3).Visible = DtTemp.MAX("Serie") <> ""
|
||||
GvSalidas.Columns(4).Visible = DtTemp.MAX("Lote") <> ""
|
||||
GvSalidas.Columns(5).Visible = DtTemp.MAX("FechaCaducidad").ToDate > MinFecha
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub DeleteRowInvFisicoSalida(ByVal sender As Object, ByVal e As EventArgs)
|
||||
@@ -4313,7 +4328,7 @@ Partial Class Inventarios_EntradasSalidas
|
||||
Private Sub ActualizarPS()
|
||||
|
||||
Dim ObjInventario As New ClsInventarios
|
||||
If Not ObjInventario.UpdateMovimientoDetalle(txtCantidad.Text.ToDouble, DdlUnidad.ToEntero, DdlProducto2.SelectedValue.ToEntero, txtPrecio.Text.ToDouble, CveAFEdit,
|
||||
If Not ObjInventario.UpdateMovimientoDetalle(txtCantidad.Text.ToDouble, DdlUnidad.SelectedValue.ToEntero, DdlProducto2.SelectedValue.ToEntero, txtPrecio.Text.ToDouble, CveAFEdit,
|
||||
CveMovimientoDetalleEdit, DdlSeccionAlmacen.SelectedValue.ToEntero, TxtnSerie.Text, TxtObservacionesdetalle.Text,
|
||||
CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
|
||||
Alert("Error al Actualizar los movimientos")
|
||||
@@ -4324,7 +4339,10 @@ Partial Class Inventarios_EntradasSalidas
|
||||
End Sub
|
||||
|
||||
Private Sub limpiarModalDetalle()
|
||||
|
||||
txtCantidad.Enabled = True
|
||||
DdlClasificacion.Enabled = True
|
||||
DdlProducto2.Enabled = True
|
||||
DdlUnidad.Enabled = True
|
||||
divCantidad.Visible = True
|
||||
divClasificacionProducto.Visible = True
|
||||
divUnidadMedida.Visible = True
|
||||
|
||||
@@ -886,9 +886,13 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
If CBool(e.Row.DBCampo("AplicaSeccion")) Then
|
||||
e.Row.FCDropDownList("DdlSeccionAlmacen").Visible = True
|
||||
If DdlAlmacen.SelectedValue.ToEntero > 0 Then
|
||||
e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero)
|
||||
Dim dtt As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero)
|
||||
e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = dtt
|
||||
e.Row.FCDropDownList("DdlSeccionAlmacen").DataBind()
|
||||
e.Row.FCDropDownList("DdlSeccionAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
If dtt.Rows.Count > 1 Then
|
||||
e.Row.FCDropDownList("DdlSeccionAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
End If
|
||||
dtt.Dispose()
|
||||
End If
|
||||
|
||||
Else
|
||||
@@ -3224,7 +3228,7 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
strBody.Append("<head>")
|
||||
strBody.Append("<meta charset='UTF-8'>")
|
||||
strBody.Append("</head>")
|
||||
strBody.Append(" <body>")
|
||||
strBody.Append(" <body style='width:800px'>")
|
||||
strBody.Append("<div>")
|
||||
strBody.Append($"<img src='http://sig.adssistemas.mx/Empresas/{UsuarioActual.CveEmpresa}/Logo.png' style='width:200px'></img>")
|
||||
strBody.Append("</div>")
|
||||
@@ -3235,7 +3239,7 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
strBody.Append(" </p>")
|
||||
strBody.Append($" <p style='width:100%;text-align:center;font-family:Segoe UI Semibold;font-size:12pt'>{FolioVenta} - Pedido {Pedido} - Orden de Compra {OrdenCompra}</P>")
|
||||
strBody.Append(" <div style='width:100%;text-align:center'>")
|
||||
strBody.Append(" <table style='width:80%;font-family:Segoe UI Semibold;font-size:12pt'>")
|
||||
strBody.Append(" <table style='width:100%;font-family:Segoe UI Semibold;font-size:12pt'>")
|
||||
strBody.Append(DetalleTable)
|
||||
strBody.Append(" ")
|
||||
strBody.Append(" </table>")
|
||||
|
||||
@@ -151,7 +151,7 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas
|
||||
strBody.Append("<head>");
|
||||
strBody.Append("<meta charset='UTF-8'>");
|
||||
strBody.Append("</head>");
|
||||
strBody.Append(" <body>");
|
||||
strBody.Append(" <body style='width:800px'>");
|
||||
strBody.Append("<div>");
|
||||
strBody.Append($"<img src='http://sig.adssistemas.mx/Empresas/{UsuarioActual.CveEmpresa}/Logo.png' style='width:200px'></img>");
|
||||
strBody.Append("</div>");
|
||||
@@ -161,7 +161,7 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas
|
||||
strBody.Append(" </p>");
|
||||
strBody.Append($" <p style='width:100%;text-align:center;font-family:Segoe UI Semibold;font-size:12pt'>{FolioVenta} - Pedido {Pedido} - Orden de Compra {OrdenCompra}</P>");
|
||||
strBody.Append(" <div style='width:100%;text-align:center'>");
|
||||
strBody.Append(" <table style='width:80%;font-family:Segoe UI Semibold;font-size:12pt'>");
|
||||
strBody.Append(" <table style='width:100%;font-family:Segoe UI Semibold;font-size:12pt'>");
|
||||
strBody.Append(DetalleTable);
|
||||
strBody.Append(" </table>");
|
||||
strBody.Append(" </div>");
|
||||
|
||||
@@ -229,7 +229,7 @@
|
||||
<div class="row" style="margin-top: 5px;">
|
||||
<label class="col-md-4">Código.Barras</label>
|
||||
<div class="col-md-8">
|
||||
<asp:TextBox runat="server" ID="TxtCodigoBarras" OnTextChanged="TxtCodigoBarras_Change" AutoPostBack="true"></asp:TextBox>
|
||||
<asp:TextBox runat="server" ID="TxtCodigoBarras" ></asp:TextBox>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row" style="margin-top: 5px;" runat="server" id="divSerie" visible="false">
|
||||
|
||||
@@ -57,7 +57,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
|
||||
|
||||
#Region " USUARIOS "
|
||||
Private Sub CargaUsuarios()
|
||||
ddlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
|
||||
ddlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 1", "Nombre")
|
||||
ddlUsuario.DataBind()
|
||||
UPPInventario.Update()
|
||||
ddlUsuario.SelectedValue = UsuarioActual.CveUsuario.ToString
|
||||
@@ -206,7 +206,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
|
||||
lbFechaI.Text = ObjInventario.FechaI
|
||||
lbFechaF.Text = ObjInventario.FechaF
|
||||
|
||||
Alert("Ocurrió un error al obterner el inventario fisico")
|
||||
Alert("Ocurrió un error al obterner el inventario fisico", TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
ObjInventario.Dispose()
|
||||
@@ -229,6 +229,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
|
||||
If Inventario.GetInventarioFisicoDetalle(CveInventarioFisico, ddlUsuario.SelectedValue.ToString.ToEntero) Then
|
||||
If Inventario.DtResultados.Rows.Count > 0 Then
|
||||
GvIFD.Columns(4).Visible = Inventario.DtResultados.MAX("CveSeccionAlmacen", "CveSeccionAlmacen IS NOT NULL").ToEntero > 0
|
||||
GvIFD.Columns(5).Visible = Inventario.DtResultados.MAX("SerieLote") <> ""
|
||||
GvIFD.Columns(6).Visible = Inventario.DtResultados.MAX("Lote") <> ""
|
||||
GvIFD.Columns(7).Visible = Inventario.DtResultados.MAX("FechaCaducidad", "FechaCaducidad IS NOT NULL").ToDate > MinFecha
|
||||
GvIFD.DataSource = Inventario.DtResultados '.AsEnumerable.OrderByDescending(Function(k) k!CveInventarioFisicoDetalle).Take(500).CopyToDataTable
|
||||
@@ -333,16 +334,16 @@ Partial Class Inventarios_InventarioFisicoDetalle
|
||||
CveSeccionAlmacen:=-1, Lote:=Lote, FechaCaducidad:=FechaCaducidad.ToDate) Then
|
||||
|
||||
GvIFDUltimoRegistrado.Columns(4).Visible = CveSeccionAlmacen > 0
|
||||
GvIFDUltimoRegistrado.Columns(5).Visible = Serie <> "-1"
|
||||
GvIFDUltimoRegistrado.Columns(5).Visible = Serie <> ""
|
||||
GvIFDUltimoRegistrado.Columns(6).Visible = Lote <> "-1"
|
||||
GvIFDUltimoRegistrado.Columns(7).Visible = FechaCaducidad <> "01/01/1900"
|
||||
GvIFDUltimoRegistrado.Columns(7).Visible = FechaCaducidad.ToDate > MinFecha
|
||||
|
||||
If GvIFDUltimoRegistrado.Rows.Count > 0 Then
|
||||
|
||||
GvIFDUltimoRegistrado.Rows(0).Cells(0).Text = Now
|
||||
GvIFDUltimoRegistrado.Rows(0).Cells(1).Text = dr("CodigoBarras").ToString
|
||||
GvIFDUltimoRegistrado.Rows(0).Cells(2).Text = dr("Codigo").ToString
|
||||
GvIFDUltimoRegistrado.Rows(0).Cells(3).Text = dr("PS").ToString
|
||||
GvIFDUltimoRegistrado.Rows(0).Cells(3).Text = dr("PSCodigo").ToString
|
||||
GvIFDUltimoRegistrado.Rows(0).Cells(4).Text = ""
|
||||
GvIFDUltimoRegistrado.Rows(0).Cells(5).Text = TxtCodigoSerie.Text.Trim
|
||||
GvIFDUltimoRegistrado.Rows(0).Cells(6).Text = Lote
|
||||
@@ -559,18 +560,21 @@ Partial Class Inventarios_InventarioFisicoDetalle
|
||||
'
|
||||
End Sub
|
||||
|
||||
Protected Sub TxtCodigoBarras_Change(sender As Object, e As EventArgs)
|
||||
Dim Producto As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{TxtCodigoBarras.Text}'")
|
||||
'Protected Sub TxtCodigoBarras_Change(sender As Object, e As EventArgs)
|
||||
' Dim Producto As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{TxtCodigoBarras.Text}'")
|
||||
|
||||
Dim AplicaSeccion As Boolean = Producto("AplicaSeccion") = "1"
|
||||
Dim AplicaCaducidad As Boolean = Producto("AplicaCaducidad") = "1"
|
||||
Dim AplicaLote As Boolean = Producto("AplicaLote") = "1"
|
||||
Dim AplicaSerie As Boolean = Producto("AplicaSerie") = "1"
|
||||
' If Producto IsNot Nothing Then
|
||||
' Dim AplicaSeccion As Boolean = Producto("AplicaSeccion") = "1"
|
||||
' Dim AplicaCaducidad As Boolean = Producto("AplicaCaducidad") = "1"
|
||||
' Dim AplicaLote As Boolean = Producto("AplicaLote") = "1"
|
||||
' Dim AplicaSerie As Boolean = Producto("AplicaSerie") = "1"
|
||||
|
||||
'divSeccionAlmacen.Visible = AplicaSeccion
|
||||
divLote.Visible = AplicaLote
|
||||
divFechaCaducidad.Visible = AplicaCaducidad
|
||||
divSerie.Visible = AplicaSerie
|
||||
UPAgregarPro.Update()
|
||||
End Sub
|
||||
' 'divSeccionAlmacen.Visible = AplicaSeccion
|
||||
' divLote.Visible = AplicaLote
|
||||
' divFechaCaducidad.Visible = AplicaCaducidad
|
||||
' divSerie.Visible = AplicaSerie
|
||||
' End If
|
||||
|
||||
' UPAgregarPro.Update()
|
||||
'End Sub
|
||||
End Class
|
||||
|
||||
@@ -665,7 +665,7 @@
|
||||
<asp:BoundField HeaderText="Caducidad" DataField="FechaCaducidad" DataFormatString="{0:d}" ItemStyle-Width="15%" />
|
||||
<asp:TemplateField HeaderText="Sección Almacén" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" Visible="false">
|
||||
<ItemTemplate>
|
||||
<asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="Seccion" Visible="false" AppendDataBoundItems="true" DataValueField="CveSeccion" Class="form-control input-sm select2me" Style="width: 95% !important" runat="server" CausesValidation="true">
|
||||
<asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="SeccionAlmacen" AppendDataBoundItems="true" DataValueField="CveSeccionAlmacen" Class="form-control input-sm select2me" Style="width: 95% !important" runat="server" CausesValidation="true">
|
||||
|
||||
</asp:DropDownList>
|
||||
</ItemTemplate>
|
||||
|
||||
@@ -1482,8 +1482,8 @@ Partial Class Inventarios_TraspasoAlmacen
|
||||
|
||||
GvDatosRecepcion.Columns(6).Visible = Dtt.MAX("Serie") <> ""
|
||||
GvDatosRecepcion.Columns(7).Visible = Dtt.MAX("Lote") <> ""
|
||||
GvDatosRecepcion.Columns(8).Visible = Dtt.MAX("FechaCaducidad") <> ""
|
||||
GvDatosRecepcion.Columns(9).Visible = Dtt.MAX("Serie") <> ""
|
||||
GvDatosRecepcion.Columns(8).Visible = Dtt.MAX("FechaCaducidad").ToDate > MinFecha
|
||||
GvDatosRecepcion.Columns(9).Visible = Dtt.MAX("CveSeccionAlmacen").ToEntero > 0
|
||||
'Dt.Dispose()
|
||||
End If
|
||||
|
||||
@@ -1533,10 +1533,15 @@ Partial Class Inventarios_TraspasoAlmacen
|
||||
Else
|
||||
e.Row.FCTextBox("TxtCantidad").Attributes.Add("onkeyup", String.Format("ValidaCantidad(this,{0});", e.Row.DBCampo("Cantidad")))
|
||||
If CBool(e.Row.DBCampo("AplicaSeccion")) AndAlso DdlAlmacenRecepcion.SelectedValue.ToEntero > 0 Then
|
||||
e.Row.FCDropDownList("DdlSeccionAlmacen").Visible = True
|
||||
e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenRecepcion.SelectedValue.ToEntero)
|
||||
|
||||
Dim dtt As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenRecepcion.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero)
|
||||
e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = dtt
|
||||
e.Row.FCDropDownList("DdlSeccionAlmacen").DataBind()
|
||||
e.Row.FCDropDownList("DdlSeccionAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
If dtt.Rows.Count > 1 Then
|
||||
e.Row.FCDropDownList("DdlSeccionAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
End If
|
||||
dtt.Dispose()
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
@@ -1425,6 +1425,93 @@ public partial class Nomina_Nomina2 : ClsPaginas
|
||||
}
|
||||
|
||||
|
||||
private class NConcepto
|
||||
{
|
||||
public string NoConceptoP { get; set; }
|
||||
public string ConceptoP { get; set; }
|
||||
public string LabelValorP { get; set; }
|
||||
public int CveConceptoP { get; set; }
|
||||
public double ImporteP { get; set; }
|
||||
public double ValorP { get; set; }
|
||||
public int EstatusP { get; set; }
|
||||
public bool isEditedP { get; set; }
|
||||
public int isOnlyBisibleP { get; set; }
|
||||
|
||||
|
||||
public string NoConceptoD { get; set; }
|
||||
public string ConceptoD { get; set; }
|
||||
public string LabelValorD { get; set; }
|
||||
public int CveConceptoD { get; set; }
|
||||
public double ImporteD { get; set; }
|
||||
public double ValorD { get; set; }
|
||||
public int EstatusD { get; set; }
|
||||
public bool isEditedD { get; set; }
|
||||
public int isOnlyBisibleD { get; set; }
|
||||
}
|
||||
|
||||
protected void GvConceptos_RowDataBound(object sender, GridViewRowEventArgs e)
|
||||
{
|
||||
|
||||
if (e.Row.RowType == DataControlRowType.DataRow)
|
||||
{
|
||||
// Datakeys
|
||||
// Concepto,CveConcepto,Importe,Estatus,ConceptoD,CveConceptoD,ImporteD,EstatusD
|
||||
int CveConcepto = e.Row.DataKey("CveConceptoP").ToEntero();
|
||||
int CveConceptoD = e.Row.DataKey("CveConceptoD").ToEntero();
|
||||
// Dim Importe As Decimal = e.Row.DataKey("Importe").ToDecimal()
|
||||
// Dim ImporteD As Decimal = e.Row.DataKey("ImporteD").ToDecimal()
|
||||
int Estatus = e.Row.DataKey("EstatusP").ToEntero();
|
||||
int EstatusD = e.Row.DataKey("EstatusD").ToEntero();
|
||||
int isOnlyBisibleP = e.Row.DataKey("isOnlyBisibleP").ToEntero();
|
||||
int isOnlyBisibleD = e.Row.DataKey("isOnlyBisibleD").ToEntero();
|
||||
|
||||
// Controles
|
||||
Label LtlConcepto = e.Row.FCLabel("LtlConcepto");
|
||||
LinkButton LnkConcepto = e.Row.FCLinkButton("LnkConcepto");
|
||||
Label LtlConceptoD = e.Row.FCLabel("LtlConceptoD");
|
||||
LinkButton LnkConceptoD = e.Row.FCLinkButton("LnkConceptod");
|
||||
Label LtlImporte = e.Row.FCLabel("LtlImporte");
|
||||
LinkButton LnkImporte = e.Row.FCLinkButton("LnkImporte");
|
||||
Label LtlImporteD = e.Row.FCLabel("LtlImporteD");
|
||||
LinkButton LnkImporteD = e.Row.FCLinkButton("LnkImporteD");
|
||||
//isEditedD
|
||||
if (isOnlyBisibleP == 1)
|
||||
{
|
||||
e.Row.CssClass = string.Format("{0} isOnlyBisibleP", e.Row.CssClass);
|
||||
}
|
||||
if (isOnlyBisibleD == 1)
|
||||
{
|
||||
e.Row.CssClass = string.Format("{0} isOnlyBisibleD", e.Row.CssClass);
|
||||
}
|
||||
|
||||
|
||||
if (Estatus < -1 | EstatusD < -1)
|
||||
e.Row.CssClass = "ConceptosTotales";
|
||||
if (CveConcepto == 0 && (Estatus == 0 || Estatus == -1 || Estatus == -3))
|
||||
LtlImporte.Text = "";
|
||||
|
||||
if (CveConceptoD == 0 && (EstatusD == 0 || EstatusD == -1))
|
||||
LtlImporteD.Text = "";
|
||||
|
||||
if (Estatus == -1)
|
||||
LtlConcepto.Visible = false;
|
||||
else if (Estatus > 0)
|
||||
LtlImporte.Visible = false;
|
||||
|
||||
if (EstatusD == -1)
|
||||
LtlConceptoD.Visible = false;
|
||||
else if (EstatusD > 0)
|
||||
LtlImporteD.Visible = false;
|
||||
|
||||
|
||||
LnkConcepto.Visible = !LtlConcepto.Visible;
|
||||
LnkConceptoD.Visible = !LtlConceptoD.Visible;
|
||||
LnkImporte.Visible = !LtlImporte.Visible;
|
||||
LnkImporteD.Visible = !LtlImporteD.Visible;
|
||||
}
|
||||
}
|
||||
#endregion
|
||||
|
||||
protected void LnkFormatoTabular_Click(object sender, EventArgs e)
|
||||
{
|
||||
try
|
||||
@@ -1641,93 +1728,6 @@ public partial class Nomina_Nomina2 : ClsPaginas
|
||||
Alert("Ocurrio un error al generar el Formato de nominas" + ex.ToString());
|
||||
}
|
||||
}
|
||||
private class NConcepto
|
||||
{
|
||||
public string NoConceptoP { get; set; }
|
||||
public string ConceptoP { get; set; }
|
||||
public string LabelValorP { get; set; }
|
||||
public int CveConceptoP { get; set; }
|
||||
public double ImporteP { get; set; }
|
||||
public double ValorP { get; set; }
|
||||
public int EstatusP { get; set; }
|
||||
public bool isEditedP { get; set; }
|
||||
public int isOnlyBisibleP { get; set; }
|
||||
|
||||
|
||||
public string NoConceptoD { get; set; }
|
||||
public string ConceptoD { get; set; }
|
||||
public string LabelValorD { get; set; }
|
||||
public int CveConceptoD { get; set; }
|
||||
public double ImporteD { get; set; }
|
||||
public double ValorD { get; set; }
|
||||
public int EstatusD { get; set; }
|
||||
public bool isEditedD { get; set; }
|
||||
public int isOnlyBisibleD { get; set; }
|
||||
}
|
||||
|
||||
protected void GvConceptos_RowDataBound(object sender, GridViewRowEventArgs e)
|
||||
{
|
||||
|
||||
if (e.Row.RowType == DataControlRowType.DataRow)
|
||||
{
|
||||
// Datakeys
|
||||
// Concepto,CveConcepto,Importe,Estatus,ConceptoD,CveConceptoD,ImporteD,EstatusD
|
||||
int CveConcepto = e.Row.DataKey("CveConceptoP").ToEntero();
|
||||
int CveConceptoD = e.Row.DataKey("CveConceptoD").ToEntero();
|
||||
// Dim Importe As Decimal = e.Row.DataKey("Importe").ToDecimal()
|
||||
// Dim ImporteD As Decimal = e.Row.DataKey("ImporteD").ToDecimal()
|
||||
int Estatus = e.Row.DataKey("EstatusP").ToEntero();
|
||||
int EstatusD = e.Row.DataKey("EstatusD").ToEntero();
|
||||
int isOnlyBisibleP = e.Row.DataKey("isOnlyBisibleP").ToEntero();
|
||||
int isOnlyBisibleD = e.Row.DataKey("isOnlyBisibleD").ToEntero();
|
||||
|
||||
// Controles
|
||||
Label LtlConcepto = e.Row.FCLabel("LtlConcepto");
|
||||
LinkButton LnkConcepto = e.Row.FCLinkButton("LnkConcepto");
|
||||
Label LtlConceptoD = e.Row.FCLabel("LtlConceptoD");
|
||||
LinkButton LnkConceptoD = e.Row.FCLinkButton("LnkConceptod");
|
||||
Label LtlImporte = e.Row.FCLabel("LtlImporte");
|
||||
LinkButton LnkImporte = e.Row.FCLinkButton("LnkImporte");
|
||||
Label LtlImporteD = e.Row.FCLabel("LtlImporteD");
|
||||
LinkButton LnkImporteD = e.Row.FCLinkButton("LnkImporteD");
|
||||
//isEditedD
|
||||
if (isOnlyBisibleP == 1)
|
||||
{
|
||||
e.Row.CssClass = string.Format("{0} isOnlyBisibleP", e.Row.CssClass);
|
||||
}
|
||||
if (isOnlyBisibleD == 1)
|
||||
{
|
||||
e.Row.CssClass = string.Format("{0} isOnlyBisibleD", e.Row.CssClass);
|
||||
}
|
||||
|
||||
|
||||
if (Estatus < -1 | EstatusD < -1)
|
||||
e.Row.CssClass = "ConceptosTotales";
|
||||
if (CveConcepto == 0 && (Estatus == 0 || Estatus == -1 || Estatus == -3))
|
||||
LtlImporte.Text = "";
|
||||
|
||||
if (CveConceptoD == 0 && (EstatusD == 0 || EstatusD == -1))
|
||||
LtlImporteD.Text = "";
|
||||
|
||||
if (Estatus == -1)
|
||||
LtlConcepto.Visible = false;
|
||||
else if (Estatus > 0)
|
||||
LtlImporte.Visible = false;
|
||||
|
||||
if (EstatusD == -1)
|
||||
LtlConceptoD.Visible = false;
|
||||
else if (EstatusD > 0)
|
||||
LtlImporteD.Visible = false;
|
||||
|
||||
|
||||
LnkConcepto.Visible = !LtlConcepto.Visible;
|
||||
LnkConceptoD.Visible = !LtlConceptoD.Visible;
|
||||
LnkImporte.Visible = !LtlImporte.Visible;
|
||||
LnkImporteD.Visible = !LtlImporteD.Visible;
|
||||
}
|
||||
}
|
||||
#endregion
|
||||
|
||||
protected void LnkConcepto_Click(object sender, EventArgs e)
|
||||
{
|
||||
|
||||
|
||||
@@ -97,7 +97,7 @@
|
||||
</div>
|
||||
<asp:UpdatePanel ID="UpDatosUsuarios" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:GridView ID="GvUsuarios" runat="server" AutoGenerateColumns="False" DataKeyNames="CveUsuario,Usuario" EmptyDataText="No se encontraron Categorías de Documentos Registrados"
|
||||
<asp:GridView ID="GvUsuarios" runat="server" AutoGenerateColumns="False" DataKeyNames="CveUsuario,Usuario,Correo" EmptyDataText="No se encontraron Categorías de Documentos Registrados"
|
||||
ToolTip="Listado de Categorías de Documentos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
|
||||
Style="margin-top: -10px; text-align: center; width: 100%; overflow-x: hidden" GridLines="None">
|
||||
<Columns>
|
||||
|
||||
@@ -7,6 +7,7 @@ using System.Web.UI.WebControls;
|
||||
using Extensiones;
|
||||
using System.Data;
|
||||
using System.IO;
|
||||
using System.Text;
|
||||
|
||||
public partial class OI_DocumentoDetalle : ClsPaginas
|
||||
{
|
||||
@@ -70,6 +71,18 @@ public partial class OI_DocumentoDetalle : ClsPaginas
|
||||
}
|
||||
}
|
||||
|
||||
private void CargarMensajeNuevoEditado()
|
||||
{
|
||||
string MensajeNuevoEditado = Page.Request["Mensaje"];
|
||||
if (MensajeNuevoEditado == "Nuevo")
|
||||
{
|
||||
Alert("El Documento ha sido creado correctamente");
|
||||
}else if(MensajeNuevoEditado == "Editado")
|
||||
{
|
||||
Alert("Los cambios en el Documento han sido guardado correctamente");
|
||||
}
|
||||
}
|
||||
|
||||
private void CargarUsuarios()
|
||||
{
|
||||
GvUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa);
|
||||
@@ -150,12 +163,13 @@ public partial class OI_DocumentoDetalle : ClsPaginas
|
||||
CargarDocumentoYaExistente();
|
||||
CargarUsuariosAutorizo();
|
||||
ConfiguracionActualizar();
|
||||
CargarMensajeNuevoEditado();
|
||||
}
|
||||
}
|
||||
#endregion
|
||||
|
||||
#region "GENERAR DOCUMENTO"
|
||||
|
||||
|
||||
|
||||
protected void LblGuardar_Click(object sender, EventArgs e)
|
||||
{
|
||||
@@ -166,19 +180,24 @@ public partial class OI_DocumentoDetalle : ClsPaginas
|
||||
//Esta variable es requerida más adelante
|
||||
int CveDocumento = 0;
|
||||
string RutaArchivo = "-1";
|
||||
string CorreosNotificacion = "";
|
||||
byte[] ArchivoNotifiacion = null;
|
||||
|
||||
CveDocumento = GuardarDocumento(ref ObjOI, ref TieneError);//Se crea el Documento
|
||||
if (!TieneError) { RutaArchivo = AsignarArchivoAlDocumento(CveDocumento, ref ObjOI, ref TieneError); }//Se guarda el archivo fisico y se asigna al Documento generado
|
||||
if (!TieneError) { GuardarUsuariosQueAutorizan(CveDocumento, RutaArchivo, ref ObjOI, ref TieneError); }//asignamos a los usuarios que participaran en aprovar este documento
|
||||
|
||||
if (!TieneError) { CorreosNotificacion = GuardarUsuariosQueAutorizan(CveDocumento, RutaArchivo, ref ObjOI, ref TieneError); }//asignamos a los usuarios que participaran en aprovar este documento
|
||||
if (!TieneError)
|
||||
{
|
||||
ArchivoNotifiacion = GenerarArchivoByte(RutaArchivo);
|
||||
NotificarPorCorreo(CorreosNotificacion, RutaArchivo, ArchivoNotifiacion);
|
||||
}
|
||||
|
||||
//Gestión de errores y resultados
|
||||
if (!TieneError)
|
||||
{
|
||||
ObjOI.Commit();
|
||||
Alert("Documento guardado correctamente");
|
||||
//this.CveDocumento = CveDocumento;
|
||||
Response.Redirect(string.Format("/OI/DocumentoDetalle.aspx?CveDocumento={0}",CveDocumento));
|
||||
string ParamMensaje = LkbGuardar.Text == "Guardar" ? "Nuevo" : "Editado";//Esto indica la acción de usuario la cual se mostrará como alert al cargar la página
|
||||
Response.Redirect(string.Format("/OI/DocumentoDetalle.aspx?CveDocumento={0}&Mensaje={1}", CveDocumento, ParamMensaje));
|
||||
}
|
||||
else
|
||||
{
|
||||
@@ -215,7 +234,7 @@ public partial class OI_DocumentoDetalle : ClsPaginas
|
||||
this.ErrorMensaje = "Hubo un error al asignar el archivo";
|
||||
}
|
||||
}
|
||||
else if(RutaArchivo == "Error")
|
||||
else if (RutaArchivo == "Error")
|
||||
{
|
||||
TieneError = true;
|
||||
this.ErrorMensaje = "Hubo un error al guardar el archivo";
|
||||
@@ -223,8 +242,9 @@ public partial class OI_DocumentoDetalle : ClsPaginas
|
||||
return RutaArchivo;
|
||||
}
|
||||
|
||||
private void GuardarUsuariosQueAutorizan(int CveDocumento, string RutaArchivo, ref ClsOIEventos ObjOI, ref bool TieneError)
|
||||
private string GuardarUsuariosQueAutorizan(int CveDocumento, string RutaArchivo, ref ClsOIEventos ObjOI, ref bool TieneError)
|
||||
{
|
||||
StringBuilder CorreosReturn = new StringBuilder("");
|
||||
GridViewRowCollection GridUsuarios = GvUsuarios.Rows;
|
||||
foreach (GridViewRow GvRow in GridUsuarios)
|
||||
{
|
||||
@@ -237,12 +257,19 @@ public partial class OI_DocumentoDetalle : ClsPaginas
|
||||
this.ErrorMensaje = "Hubo un error al asignar los usuarios a este documento";
|
||||
break;
|
||||
}
|
||||
else
|
||||
{
|
||||
CorreosReturn.AppendFormat("{0},", GvRow.DataKey("Correo"));
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
return CorreosReturn.ToString();
|
||||
}
|
||||
#endregion
|
||||
|
||||
#region "ARCHIVO ADJUNTO"
|
||||
|
||||
private string GuardarArchivo(int CveDocumento)
|
||||
{
|
||||
string RutaArchivo = "-1";
|
||||
@@ -278,9 +305,7 @@ public partial class OI_DocumentoDetalle : ClsPaginas
|
||||
return RutaArchivo;
|
||||
}
|
||||
|
||||
|
||||
|
||||
protected void LkbDescargarArchivo_Click(object sender,EventArgs e)
|
||||
protected void LkbDescargarArchivo_Click(object sender, EventArgs e)
|
||||
{
|
||||
string Ruta = string.Format("{0}Empresas/{1}/DocumentosRepo/{2}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, ArchivoAdjuntoNombre);
|
||||
byte[] archivoBytes = File.ReadAllBytes(Ruta);
|
||||
@@ -295,5 +320,57 @@ public partial class OI_DocumentoDetalle : ClsPaginas
|
||||
}
|
||||
#endregion
|
||||
|
||||
#region "NOTIFICACIONES CORREO"
|
||||
private void NotificarPorCorreo(string Para, string NombreArchivo, byte[] Adjunto)
|
||||
{
|
||||
string Descripcion = TxtDescripcion.Text;
|
||||
string Asunto = "Se le ha agregado como participante en el desarrollo de un Documento";
|
||||
string a = string.Format("{0} -- {1} --- {2}", Descripcion, Para, "");
|
||||
a.GuardaLog();
|
||||
|
||||
ClsSisMail Mail = new ClsSisMail();
|
||||
|
||||
if (Adjunto != null)
|
||||
{
|
||||
List<ClsSisMail.ArchivoMail> LSRutasMail = new List<ClsSisMail.ArchivoMail>();
|
||||
ClsSisMail.ArchivoMail itemMail = new ClsSisMail.ArchivoMail();
|
||||
|
||||
{
|
||||
var withBlock = itemMail;
|
||||
itemMail.ArchivoBinario = Adjunto;
|
||||
itemMail.NombreArchivo = NombreArchivo;
|
||||
}
|
||||
|
||||
LSRutasMail.Add(itemMail);
|
||||
|
||||
|
||||
Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Descripcion, "", LSRutasMail);
|
||||
Mail = null/* TODO Change to default(_) if this is not a reference type */;
|
||||
}
|
||||
else
|
||||
{
|
||||
Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Descripcion, "");
|
||||
Mail = null/* TODO Change to default(_) if this is not a reference type */;
|
||||
}
|
||||
}
|
||||
|
||||
private byte[] GenerarArchivoByte(string NombreArchivo)
|
||||
{
|
||||
string ArchivoEnviar = string.Format(@"{0}DocumentosRepo\{1}", UsuarioActual.Empresa.Ruta, NombreArchivo);
|
||||
if (File.Exists(ArchivoEnviar))
|
||||
{
|
||||
System.IO.FileStream fs = System.IO.File.Open(ArchivoEnviar, System.IO.FileMode.Open, System.IO.FileAccess.Read);
|
||||
byte[] buff = new byte[fs.Length + 1];
|
||||
if (fs.Length > 0)
|
||||
{
|
||||
fs.Read(buff, 0, (fs.Length.ToString().ToEntero() - 1));
|
||||
fs.Close();
|
||||
}
|
||||
return buff;
|
||||
}
|
||||
|
||||
return new byte[] { };
|
||||
}
|
||||
#endregion
|
||||
|
||||
}
|
||||
@@ -14,7 +14,7 @@
|
||||
<asp:UpdatePanel runat="server" ID="UpAgregar">
|
||||
<ContentTemplate>
|
||||
<li>
|
||||
<asp:LinkButton runat="server" ID="BtnAgregarDocumento" data-toggle="tooltip" data-placement="left" title="Agregar un Defecto" Text="<i class='fa fa-plus'></i>Agregar Documento"></asp:LinkButton>
|
||||
<asp:HyperLink runat="server" ID="BtnAgregarDocumento" data-toggle="tooltip" data-placement="left" NavigateUrl="/OI/DocumentoDetalle.aspx" title="Agregar un Defecto" Text="<i class='fa fa-plus'></i>Agregar Documento"></asp:HyperLink>
|
||||
</li>
|
||||
<li>
|
||||
<asp:LinkButton ID="LnkPDF" runat="server"><i class="fa fa-ad-pdf"></i> Imprimir PDF</asp:LinkButton>
|
||||
@@ -32,18 +32,13 @@
|
||||
EmptyDataText="No se encontraron Documentos Registrados" ToolTip="Listado de Documentos" CssClass="table table-striped table-advance table-hover"
|
||||
Style="margin-top: -10px; text-align: center; width: 100%" GridLines="None">
|
||||
<Columns>
|
||||
<asp:BoundField HeaderText="Descripcion" DataField="Descripcion" />
|
||||
<asp:BoundField HeaderText="Observacion" DataField="Observacion" />
|
||||
<asp:BoundField HeaderText="Versión" DataField="Version" />
|
||||
<asp:BoundField HeaderText="Responsable" DataField="Responsable" />
|
||||
<asp:BoundField HeaderText="Fecha Aprobacion" DataField="FechaAprobacion" />
|
||||
<asp:BoundField HeaderText="Fecha Inicio Vigencia" DataField="FechaInicioVigencia" />
|
||||
<asp:TemplateField ItemStyle-Width="13%" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Left" HeaderText="Editar">
|
||||
<ItemTemplate>
|
||||
<%--<asp:LinkButton ID="LnkEditar" OnClick="LnkEditar_Click" runat="server" Visible="true" AlternateText="Subir" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i title='Editar' class='fa fa-pencil' title='Editar' ></i>" />
|
||||
<asp:LinkButton ID="LnkEliminar" OnClick="LnkEliminar_Click" runat="server" Visible="true" AlternateText="Reasignar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i title='Reasignar' class='icon-trash' title='Eliminar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />--%>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:HyperLinkField HeaderText="Descripcion" DataTextField="Descripcion" DataNavigateUrlFields="CveDocumento" DataNavigateUrlFormatString="/OI/DocumentoDetalle.aspx?CveDocumento={0}" ItemStyle-HorizontalAlign="Left"/>
|
||||
<asp:HyperLinkField HeaderText="Observación" DataTextField="Observacion" DataNavigateUrlFields="CveDocumento" DataNavigateUrlFormatString="/OI/DocumentoDetalle.aspx?CveDocumento={0}" ItemStyle-HorizontalAlign="Left"/>
|
||||
<asp:HyperLinkField HeaderText="Versión" DataTextField="Version" DataNavigateUrlFields="CveDocumento" DataNavigateUrlFormatString="/OI/DocumentoDetalle.aspx?CveDocumento={0}"/>
|
||||
<asp:HyperLinkField HeaderText="SubCategoria" DataTextField="SubCategoria" DataNavigateUrlFields="CveDocumento" DataNavigateUrlFormatString="/OI/DocumentoDetalle.aspx?CveDocumento={0}"/>
|
||||
<asp:HyperLinkField HeaderText="Responsable" DataTextField="Responsable" DataNavigateUrlFields="CveDocumento" DataNavigateUrlFormatString="/OI/DocumentoDetalle.aspx?CveDocumento={0}" ItemStyle-HorizontalAlign="Left"/>
|
||||
<%--<asp:HyperLinkField HeaderText="Fecha Aprobacion" DataTextField="FechaAprobacion" DataNavigateUrlFields="CveDocumento" DataNavigateUrlFormatString="/OI/DocumentoDetalle.aspx?CveDocumento={0}"/>--%>
|
||||
<asp:HyperLinkField HeaderText="Fecha Inicio Vigencia" DataTextField="FechaInicioVigencia" DataNavigateUrlFields="CveDocumento" DataNavigateUrlFormatString="/OI/DocumentoDetalle.aspx?CveDocumento={0}"/>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</ContentTemplate>
|
||||
|
||||
@@ -20,7 +20,7 @@ public partial class OI_Documentos : ClsPaginas
|
||||
private void CargaDatos()
|
||||
{
|
||||
ClsOIEventos ObjOI = new ClsOIEventos();
|
||||
if (ObjOI.GetDocumento(-1,UsuarioActual.CveEmpresa))
|
||||
if (ObjOI.ListadoDocumentos(UsuarioActual.CveEmpresa))
|
||||
{
|
||||
GvDatos.DataSource = ObjOI.DtResultados;
|
||||
GvDatos.DataBind();
|
||||
|
||||
@@ -10,20 +10,26 @@
|
||||
Cargas Masivas
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
|
||||
<li><asp:HyperLink data-toggle="modal" data-target="#DModalCargaexcel" runat="server"><i class="fa fa-ad-excel" style="margin-right:5px"></i> Carga Masiva</asp:HyperLink></li>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
|
||||
<asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="portlet solid grey-cascade portlet-filter" style="">
|
||||
<div class="portlet-title portlet-filterT" style="">
|
||||
<div class="portlet-body" style="font-size:120%">
|
||||
<div class="tools">
|
||||
<asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
|
||||
<a href="javascript:;" class="expand"></a>
|
||||
<a onclick="document.getElementById('C_BtnConsultar').click();" class="reload"></a>
|
||||
</div>
|
||||
<div class="titlefiltros caption " style="font-size: 120%">
|
||||
<ul class="list-inline">
|
||||
<li>Cliente:
|
||||
<%--<li>Cliente:
|
||||
<asp:Button ID="BtnCargarClientes" runat="server" ClientIDMode="Static" Text="CargarClientes" Style="display: none;" />
|
||||
<asp:DropDownList ID="DdlCliente" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveCliente" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 250px !important;">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</li>
|
||||
</li>--%>
|
||||
<li>Proyecto:
|
||||
<asp:DropDownList ID="DdlProyecto" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 200px !important;" ValidationGroup="GrpGuardar">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
|
||||
@@ -34,26 +40,21 @@
|
||||
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</li>
|
||||
</ul>
|
||||
</div>
|
||||
<div class="tools">
|
||||
<asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
|
||||
<a href="javascript:;" class="expand"></a>
|
||||
<a onclick="document.getElementById('C_BtnConsultar').click();" class="reload"></a>
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body" style="display: none;font-size:120%">
|
||||
<ul class="list-inline">
|
||||
<li style="width: 297px;"> Turno:
|
||||
<li style="width: 297px;"> Turno:
|
||||
<asp:DropDownList ID="DdlTurno" runat="server" AppendDataBoundItems="true" DataTextField="Turno" DataValueField="CveTurno" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 100px !important;" ValidationGroup="GrpGuardar">
|
||||
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</li>
|
||||
<li>Supervisor:
|
||||
</li>
|
||||
</ul>
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body" style="display: none; font-size: 120%">
|
||||
<ul class="list-inline">
|
||||
<%--<li>Supervisor:
|
||||
<asp:DropDownList ID="DdlSupervisor" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveUsuario" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 200px !important;">
|
||||
<asp:ListItem Selected="True" Text="Sin Supervisor Asignado" Value="-1"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</li>
|
||||
</li>--%>
|
||||
</ul>
|
||||
</div>
|
||||
</div>
|
||||
@@ -61,55 +62,56 @@
|
||||
</asp:UpdatePanel>
|
||||
<br />
|
||||
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<table border="0" cellpadding="0" cellspacing="0">
|
||||
<tr>
|
||||
<td align="right">
|
||||
<ContentTemplate>
|
||||
<div style="text-align:right">
|
||||
<asp:Button ID="BtnGuardar" runat="server" Text="Guardar Cambios" ValidationGroup="GrpGuardar" class="btn btn-primary" />
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td align="left">
|
||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePersonal, CveSubProyecto" EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Asistencias" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; text-align: center;" GridLines="None">
|
||||
<br />
|
||||
<br />
|
||||
</div>
|
||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePersonal, CveSubProyecto" EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Asistencias"
|
||||
CssClass="table table-striped table-advance table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Nombre</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlNombre" runat="server" Text='<%# Eval("Nombre") %>'></asp:Literal>
|
||||
<asp:Literal ID="LtlNombre" runat="server" Text='<%# String.Format("{0}-{1}", Eval("Codigo"), Eval("Nombre"))%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
<ItemStyle Width="250px" HorizontalAlign="Left" />
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Proyecto</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:DropDownList ID="DdlGVProyecto" runat="server" AutoPostBack="True" DataTextField="Proyecto" DataValueField="CveProyecto" OnSelectedIndexChanged="DdlGVProyecto_SelectedIndexChanged" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 190px !important;"></asp:DropDownList>
|
||||
<asp:Literal runat="server" Text='<%# Eval("Proyecto") %>'></asp:Literal>
|
||||
<%--<asp:DropDownList ID="DdlGVProyecto" runat="server" AutoPostBack="True" DataTextField="Proyecto" DataValueField="CveProyecto" OnSelectedIndexChanged="DdlGVProyecto_SelectedIndexChanged" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 190px !important;"></asp:DropDownList>--%>
|
||||
</ItemTemplate>
|
||||
<ItemStyle HorizontalAlign="Left" />
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Sub Proyecto</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:DropDownList ID="DdlGVSubProyecto" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 190px !important;"></asp:DropDownList>
|
||||
<asp:Literal runat="server" Text='<%# Eval("SubProyecto") %>'></asp:Literal>
|
||||
<%--<asp:DropDownList ID="DdlGVSubProyecto" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 190px !important;"></asp:DropDownList>--%>
|
||||
</ItemTemplate>
|
||||
<ItemStyle HorizontalAlign="Left" />
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Turno</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:DropDownList ID="DdlTurno" runat="server" DataTextField="Turno" DataValueField="CveTurno" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 90px !important;">
|
||||
</asp:DropDownList>
|
||||
<asp:Literal runat="server" Text='<%# Eval("Turno") %>'></asp:Literal>
|
||||
<%--<asp:DropDownList ID="DdlTurno" runat="server" DataTextField="Turno" DataValueField="CveTurno" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 90px !important;"></asp:DropDownList>--%>
|
||||
</ItemTemplate>
|
||||
<ItemStyle HorizontalAlign="Left" />
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<%--<asp:TemplateField>
|
||||
<HeaderTemplate>Supervisor</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal runat="server" Text='<%# Eval("Proyecto") %>'></asp:Literal>
|
||||
<asp:DropDownList ID="DdlSupervisor" runat="server" DataTextField="Nombre" DataValueField="CveUsuario" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 140px !important;">
|
||||
</asp:DropDownList>
|
||||
</ItemTemplate>
|
||||
<ItemStyle HorizontalAlign="Left" />
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
</asp:TemplateField>--%>
|
||||
<asp:TemplateField HeaderStyle-Width="80px">
|
||||
<HeaderTemplate>SDD</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:TextBox ID="TxtSalarioDiario" runat="server" MaxLength="10" Text='<%# Eval("SalarioDiario", "{0:N2}") %>' Width="50px"></asp:TextBox>
|
||||
@@ -117,7 +119,7 @@
|
||||
<ajax:ValidatorCalloutExtender ID="VCOSalarioDiario" runat="server" HighlightCssClass="vco" TargetControlID="CVSalarioDiario" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</ItemTemplate>
|
||||
<ItemStyle HorizontalAlign="Left" />
|
||||
</asp:TemplateField>
|
||||
</asp:TemplateField >
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>SDI</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
@@ -125,9 +127,9 @@
|
||||
<asp:CompareValidator ID="CVSDI" runat="server" ControlToValidate="TxtSDI" Display="None" ErrorMessage="El campo <b>''SDI''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCOSDI" runat="server" HighlightCssClass="vco" TargetControlID="CVSDI" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</ItemTemplate>
|
||||
<ItemStyle HorizontalAlign="Left" />
|
||||
<ItemStyle HorizontalAlign="Left" Width="80px" />
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<asp:TemplateField HeaderStyle-Width="80px">
|
||||
<HeaderTemplate>SD IMSS</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:TextBox ID="TxtSalarioCotizado" runat="server" MaxLength="10" Text='<%# Eval("SalarioDiarioSS", "{0:N2}") %>' Width="60px"></asp:TextBox>
|
||||
@@ -140,11 +142,69 @@
|
||||
<RowStyle CssClass="Texto" />
|
||||
<HeaderStyle CssClass="Titulos" />
|
||||
</asp:GridView>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
|
||||
<div id="DModalCargaexcel" class="modal ADS fade" role="dialog">
|
||||
<asp:UpdatePanel ID="UpCargarexcel" class="modal-dialog" tabindex="-1" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="modal-content rowpadding">
|
||||
<div class="modal-header">
|
||||
<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">Cargar Nomina de excel</h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
|
||||
<div class="portlet light smmallpadding bordered">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="fa fa-download font-green"></i>
|
||||
<span class="caption-subject bold uppercase">Paso 1: Descargar Plantilla</span>
|
||||
</div>
|
||||
<div class="tools">
|
||||
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body rowpadding text-center">
|
||||
<asp:LinkButton ID="LnkFormato" OnClick="LnkFormato_Click" CssClass="btn btn-success" runat="server"><i class="fa fa-download"></i> Descargar Plantilla</asp:LinkButton>
|
||||
</div>
|
||||
</div>
|
||||
<%-- -recuerda Solo editar de las tercer fila en adelante.<br />
|
||||
-No se debe editar el nombre de la hoja 'Nomina'.<br />
|
||||
-la columna para referenciar al emplado es la primer columna 'Codigo', la columna empleado es solo es informativa.<br />
|
||||
-si desea agregar un empleado que no se encuentre en la lista solo debe de ingresar fila y el codigo del empleado.<br />
|
||||
-si no desea insertar un concepto puede borrar la columna.<br />
|
||||
-no se debe borrar la columna codigo.<br />--%>
|
||||
|
||||
<div class="portlet light smmallpadding bordered">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="fa fa-upload font-green"></i>
|
||||
<span class="caption-subject bold uppercase">Paso 2: cargar plantilla </span>
|
||||
</div>
|
||||
<div class="tools">
|
||||
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body rowpadding ">
|
||||
<asp:TextBox ID="TxtArchivoNomina" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="modal-footer">
|
||||
<asp:LinkButton ID="LnkCargarSalarios" OnClick="LnkCargarSalarios_Click" CssClass="btn btn-primary" runat="server">Procesar</asp:LinkButton>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
<Triggers>
|
||||
<asp:PostBackTrigger ControlID="LnkFormato" />
|
||||
</Triggers>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
|
||||
<script language="javascript" type="text/javascript">
|
||||
|
||||
@@ -11,7 +11,7 @@ Partial Class RH_ActualizacionMasiva
|
||||
If Not IsPostBack Then
|
||||
SetPermisos()
|
||||
|
||||
DdlCliente.Attributes.Add("onclick", "CargaClientes();")
|
||||
'DdlCliente.Attributes.Add("onclick", "CargaClientes();")
|
||||
CargaProyecto()
|
||||
CargaTurnos()
|
||||
CargaSupervisores()
|
||||
@@ -24,6 +24,14 @@ Partial Class RH_ActualizacionMasiva
|
||||
|
||||
#Region "Propiedades"
|
||||
|
||||
Private Property DTEmpleados As DataTable
|
||||
Get
|
||||
Return DirectCast(ViewState("DTEmpleados"), DataTable)
|
||||
End Get
|
||||
Set(value As DataTable)
|
||||
ViewState("DTEmpleados") = value
|
||||
End Set
|
||||
End Property
|
||||
Private ReadOnly Property DTUsuarios As DataTable
|
||||
Get
|
||||
Return DirectCast(ViewState("DTUsuarios"), DataTable)
|
||||
@@ -53,22 +61,22 @@ Partial Class RH_ActualizacionMasiva
|
||||
#Region "CargaCombos"
|
||||
|
||||
Private Sub CargaClientes()
|
||||
Dim ObjClientes As New ClsClientes
|
||||
If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
|
||||
DdlCliente.DataSource = ObjClientes.DtResultados
|
||||
Else
|
||||
DdlCliente.DataSource = Nothing
|
||||
End If
|
||||
ObjClientes.Dispose()
|
||||
'Application("GlobalDTResponsable")
|
||||
'Dim ObjClientes As New ClsClientes
|
||||
'If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
|
||||
' DdlCliente.DataSource = ObjClientes.DtResultados
|
||||
'Else
|
||||
' DdlCliente.DataSource = Nothing
|
||||
'End If
|
||||
'ObjClientes.Dispose()
|
||||
''Application("GlobalDTResponsable")
|
||||
|
||||
DdlCliente.DataBind()
|
||||
'DdlCliente.DataBind()
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnCargarClientes_Click(sender As Object, e As System.EventArgs) Handles BtnCargarClientes.Click
|
||||
CargaClientes()
|
||||
DdlCliente.Attributes.Remove("onclick")
|
||||
End Sub
|
||||
'Protected Sub BtnCargarClientes_Click(sender As Object, e As System.EventArgs) Handles BtnCargarClientes.Click
|
||||
' CargaClientes()
|
||||
' DdlCliente.Attributes.Remove("onclick")
|
||||
'End Sub
|
||||
|
||||
Private Sub CargaProyecto()
|
||||
ViewState("DTProyectos") = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa)
|
||||
@@ -102,8 +110,8 @@ Partial Class RH_ActualizacionMasiva
|
||||
Row("CveUsuario") = -1 : Row("Nombre") = "Sin Supervisor Asignado"
|
||||
DirectCast(ViewState("DTUsuarios"), DataTable).Rows.InsertAt(Row, 0)
|
||||
|
||||
DdlSupervisor.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa & " AND EsSupervisorRH = 1 ")
|
||||
DdlSupervisor.DataBind()
|
||||
'DdlSupervisor.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa & " AND EsSupervisorRH = 1 ")
|
||||
'DdlSupervisor.DataBind()
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
@@ -113,15 +121,16 @@ Partial Class RH_ActualizacionMasiva
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
|
||||
Dim ObjPersonal As New ClsRH
|
||||
|
||||
If ObjPersonal.GetPersonalMasivo(DdlTurno.SelectedValue.ToEntero, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlSupervisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
|
||||
GvDatos.DataSource = ObjPersonal.DtResultados
|
||||
Else
|
||||
GvDatos.DataSource = Nothing
|
||||
End If
|
||||
Using ObjPersonal As New ClsRH
|
||||
|
||||
If ObjPersonal.GetPersonalMasivo(DdlTurno.SelectedValue.ToEntero, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) Then
|
||||
GvDatos.DataSource = ObjPersonal.DtResultados
|
||||
Else
|
||||
GvDatos.DataSource = Nothing
|
||||
End If
|
||||
End Using
|
||||
|
||||
ObjPersonal.Dispose()
|
||||
|
||||
GvDatos.DataBind()
|
||||
UPDatos.Update()
|
||||
@@ -130,20 +139,20 @@ Partial Class RH_ActualizacionMasiva
|
||||
Protected Sub GvDatos_RowCreated(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowCreated
|
||||
If e.Row.RowType = DataControlRowType.DataRow AndAlso (e.Row.RowState = DataControlRowState.Alternate OrElse e.Row.RowState = DataControlRowState.Normal) Then
|
||||
|
||||
e.Row.FCDropDownList("DdlGVProyecto").DataSource = DTProyectos
|
||||
e.Row.FCDropDownList("DdlGVProyecto").DataBind()
|
||||
'e.Row.FCDropDownList("DdlGVProyecto").Items.Insert(0, New ListItem("Sin Proyecto asignado", "-1"))
|
||||
'e.Row.FCDropDownList("DdlGVProyecto").DataSource = DTProyectos
|
||||
'e.Row.FCDropDownList("DdlGVProyecto").DataBind()
|
||||
''e.Row.FCDropDownList("DdlGVProyecto").Items.Insert(0, New ListItem("Sin Proyecto asignado", "-1"))
|
||||
|
||||
e.Row.FCDropDownList("DdlGVSubProyecto").DataSource = DTSubProyectos
|
||||
e.Row.FCDropDownList("DdlGVSubProyecto").DataBind()
|
||||
'e.Row.FCDropDownList("DdlGVSubProyecto").Items.Insert(0, New ListItem("Sin SubProyecto asignado", "-1"))
|
||||
'e.Row.FCDropDownList("DdlGVSubProyecto").DataSource = DTSubProyectos
|
||||
'e.Row.FCDropDownList("DdlGVSubProyecto").DataBind()
|
||||
''e.Row.FCDropDownList("DdlGVSubProyecto").Items.Insert(0, New ListItem("Sin SubProyecto asignado", "-1"))
|
||||
|
||||
e.Row.FCDropDownList("DdlTurno").DataSource = DTTurno
|
||||
e.Row.FCDropDownList("DdlTurno").DataBind()
|
||||
'e.Row.FCDropDownList("DdlTurno").DataSource = DTTurno
|
||||
'e.Row.FCDropDownList("DdlTurno").DataBind()
|
||||
|
||||
e.Row.FCDropDownList("DdlSupervisor").DataSource = DTUsuarios
|
||||
e.Row.FCDropDownList("DdlSupervisor").DataBind()
|
||||
'e.Row.FCDropDownList("DdlSupervisor").Items.Insert(0, New ListItem("Sin Supervisor Asignado", "-1"))
|
||||
'e.Row.FCDropDownList("DdlSupervisor").DataSource = DTUsuarios
|
||||
'e.Row.FCDropDownList("DdlSupervisor").DataBind()
|
||||
''e.Row.FCDropDownList("DdlSupervisor").Items.Insert(0, New ListItem("Sin Supervisor Asignado", "-1"))
|
||||
|
||||
|
||||
End If
|
||||
@@ -154,25 +163,25 @@ Partial Class RH_ActualizacionMasiva
|
||||
|
||||
If e.Row.DBCampo("Turno") = "" AndAlso e.Row.DBCampo("Nombre") = "" Then
|
||||
e.Row.FCLiteral("LtlNombre").Text = "<b>Sub Proyecto:</b> " & If(e.Row.DBCampo("SubProyecto") = String.Empty, "Sin Proyecto Asignado", e.Row.DBCampo("SubProyecto"))
|
||||
e.Row.Cells(0).ColumnSpan = 8
|
||||
For i As Integer = 1 To 7
|
||||
e.Row.Cells(0).ColumnSpan = 7
|
||||
For i As Integer = 1 To 6
|
||||
e.Row.Cells(i).Visible = False
|
||||
Next
|
||||
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
|
||||
ElseIf e.Row.DBCampo("Turno") <> "" AndAlso e.Row.DBCampo("Nombre") = "" Then
|
||||
e.Row.FCLiteral("LtlNombre").Text = "<b>Turno:</b> " & e.Row.DBCampo("Turno")
|
||||
e.Row.Cells(0).ColumnSpan = 8
|
||||
For i As Integer = 1 To 7
|
||||
e.Row.Cells(0).ColumnSpan = 7
|
||||
For i As Integer = 1 To 6
|
||||
e.Row.Cells(i).Visible = False
|
||||
Next
|
||||
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
|
||||
Else
|
||||
If e.Row.DBCampo("CveProyecto") <> String.Empty Then e.Row.FCDropDownList("DdlGVProyecto").SelectedValue = e.Row.DBCampo("CveProyecto")
|
||||
CargaSubProyectoGV(e.Row.FCDropDownList("DdlGVProyecto"), e.Row.FCDropDownList("DdlGVSubProyecto"))
|
||||
If e.Row.DBCampo("CveSubProyecto") <> String.Empty Then e.Row.FCDropDownList("DdlGVSubProyecto").SelectedValue = e.Row.DBCampo("CveSubProyecto")
|
||||
e.Row.FCDropDownList("DdlGVSubProyecto").Attributes.Add("onChange", "F(this, " & e.Row.FCDropDownList("DdlGVProyecto").ClientID & ")")
|
||||
If e.Row.DBCampo("CveTurno") <> String.Empty Then e.Row.FCDropDownList("DdlTurno").SelectedValue = e.Row.DBCampo("CveTurno")
|
||||
If e.Row.DBCampo("CveSupervisor") <> String.Empty Then e.Row.FCDropDownList("DdlSupervisor").SelectedValue = e.Row.DBCampo("CveSupervisor")
|
||||
'If e.Row.DBCampo("CveProyecto") <> String.Empty Then e.Row.FCDropDownList("DdlGVProyecto").SelectedValue = e.Row.DBCampo("CveProyecto")
|
||||
'CargaSubProyectoGV(e.Row.FCDropDownList("DdlGVProyecto"), e.Row.FCDropDownList("DdlGVSubProyecto"))
|
||||
'If e.Row.DBCampo("CveSubProyecto") <> String.Empty Then e.Row.FCDropDownList("DdlGVSubProyecto").SelectedValue = e.Row.DBCampo("CveSubProyecto")
|
||||
'e.Row.FCDropDownList("DdlGVSubProyecto").Attributes.Add("onChange", "F(this, " & e.Row.FCDropDownList("DdlGVProyecto").ClientID & ")")
|
||||
'If e.Row.DBCampo("CveTurno") <> String.Empty Then e.Row.FCDropDownList("DdlTurno").SelectedValue = e.Row.DBCampo("CveTurno")
|
||||
'If e.Row.DBCampo("CveSupervisor") <> String.Empty Then e.Row.FCDropDownList("DdlSupervisor").SelectedValue = e.Row.DBCampo("CveSupervisor")
|
||||
|
||||
e.Row.FCTextBox("TxtSalarioCotizado").Text = e.Row.FCTextBox("TxtSalarioCotizado").Text.Replace(",", "")
|
||||
|
||||
@@ -181,39 +190,48 @@ Partial Class RH_ActualizacionMasiva
|
||||
'e.Row.Cells(5).Enabled = True : e.Row.Cells(6).Enabled = True : e.Row.Cells(7).Enabled = True
|
||||
|
||||
'25: CargaMasiva-Proy,Sup,Tur
|
||||
If Not UsuarioActual.TienePermisoProceso(25) Then e.Row.Cells(1).Enabled = False : e.Row.Cells(2).Enabled = False : e.Row.Cells(3).Enabled = False : e.Row.Cells(4).Enabled = False
|
||||
'26: CargaMasiva-Salarios
|
||||
If Not UsuarioActual.TienePermisoProceso(26) Then e.Row.Cells(5).Enabled = False : e.Row.Cells(6).Enabled = False : e.Row.Cells(7).Enabled = False
|
||||
'If Not UsuarioActual.TienePermisoProceso(25) Then e.Row.Cells(1).Enabled = False : e.Row.Cells(2).Enabled = False : e.Row.Cells(3).Enabled = False : e.Row.Cells(4).Enabled = False
|
||||
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
|
||||
Dim ObjPersonal As New ClsRH
|
||||
ObjPersonal.IniciaTransacSQL()
|
||||
'Dim ObjPersonal As New ClsRH
|
||||
'ObjPersonal.IniciaTransacSQL()
|
||||
|
||||
Dim OcurrioError As Boolean = False
|
||||
For Each Row As GridViewRow In GvDatos.Rows
|
||||
If Row.DataKey("CvePersonal") <> "" Then
|
||||
If Not ObjPersonal.UpdatePersonalMasivo(Row.FCDropDownList("DdlTurno").SelectedValue.ToEntero, Row.FCDropDownList("DdlGVSubProyecto").SelectedValue.ToEntero, Row.FCDropDownList("DdlSupervisor").SelectedValue.ToEntero,
|
||||
Row.FCTextBox("TxtSalarioDiario").Text.ToDouble, Row.FCTextBox("TxtSDI").Text.ToDouble, Row.FCTextBox("TxtSalarioCotizado").Text.ToDouble,
|
||||
Row.DataKey("CvePersonal").ToEntero, UsuarioActual.CveEmpresa) Then
|
||||
OcurrioError = True
|
||||
ObjPersonal.RollBack()
|
||||
Exit For
|
||||
|
||||
Using ObjPersonal As ClsRH = New ClsRH()
|
||||
For Each Row As GridViewRow In GvDatos.Rows
|
||||
If Row.DataKey("CvePersonal") <> "" Then
|
||||
'If Not ObjPersonal.UpdatePersonalMasivo(Row.FCDropDownList("DdlTurno").SelectedValue.ToEntero, Row.FCDropDownList("DdlGVSubProyecto").SelectedValue.ToEntero, Row.FCDropDownList("DdlSupervisor").SelectedValue.ToEntero,
|
||||
' Row.FCTextBox("TxtSalarioDiario").Text.ToDouble, Row.FCTextBox("TxtSDI").Text.ToDouble, Row.FCTextBox("TxtSalarioCotizado").Text.ToDouble,
|
||||
' Row.DataKey("CvePersonal").ToEntero, UsuarioActual.CveEmpresa) Then
|
||||
' OcurrioError = True
|
||||
' ObjPersonal.RollBack()
|
||||
' Exit For
|
||||
'End If
|
||||
If ObjPersonal.UpdateSalarios(Row.DataKey("CvePersonal").ToEntero(), DateTime.Now.ToString("yyyy/MM/dd"), UsuarioActual.CveEmpresa, Row.FCTextBox("TxtSalarioDiario").Text.ToDecimal(), Row.FCTextBox("TxtSDI").Text.ToDecimal(), Row.FCTextBox("TxtSalarioCotizado").Text.ToDecimal(), Row.FCTextBox("TxtSalarioDiario").Text.ToDecimal()) Then
|
||||
|
||||
Else
|
||||
OcurrioError = True
|
||||
ObjPersonal.RollBack()
|
||||
Exit For
|
||||
End If
|
||||
End If
|
||||
|
||||
Next
|
||||
If Not OcurrioError Then
|
||||
'ObjPersonal.Commit()
|
||||
Alert("La información se guardó correctamente.", TipoMensaje.MsgInformacion)
|
||||
Else
|
||||
Alert("Ocurrió un error al guardar la información.", TipoMensaje.MsgError)
|
||||
End If
|
||||
Next
|
||||
End Using
|
||||
|
||||
If Not OcurrioError Then
|
||||
ObjPersonal.Commit()
|
||||
Alert("La información se guardó correctamente.", TipoMensaje.MsgInformacion)
|
||||
Else
|
||||
Alert("Ocurrió un error al guardar la información.", TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
ObjPersonal.Dispose()
|
||||
'ObjPersonal.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaSubProyectoGV(DdlProyecto As DropDownList, DdlSubProyecto As DropDownList)
|
||||
@@ -234,4 +252,129 @@ Partial Class RH_ActualizacionMasiva
|
||||
|
||||
If DdlGVSubProyecto IsNot Nothing Then CargaSubProyectoGV(DirectCast(sender, DropDownList), DdlGVSubProyecto)
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkFormato_Click(ByVal sender As Object, ByVal e As EventArgs)
|
||||
Try
|
||||
Dim wb As ClosedXML.Excel.XLWorkbook = New ClosedXML.Excel.XLWorkbook()
|
||||
Dim libro = wb.AddWorksheet("Salario")
|
||||
Dim column As Integer = 1
|
||||
Dim Fila As Integer = 1
|
||||
libro.Cell(Fila, column).Value = "Codigo"
|
||||
column += 1
|
||||
libro.Cell(Fila, column).Value = "Empleado"
|
||||
column += 1
|
||||
libro.Column(column).Width = 35
|
||||
libro.Cell(Fila, column).Value = "SDD"
|
||||
column += 1
|
||||
libro.Cell(Fila, column).Value = "SDI"
|
||||
column += 1
|
||||
libro.Cell(Fila, column).Value = "SD IMSS"
|
||||
column += 1
|
||||
DTEmpleados = New DataTable()
|
||||
|
||||
libro.Row(1).CellsUsed().Style.Font.FontColor = ClosedXML.Excel.XLColor.White
|
||||
libro.Row(1).CellsUsed().Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189))
|
||||
Using ObjPersonal As New ClsRH
|
||||
If ObjPersonal.GetPersonalMasivo(DdlTurno.SelectedValue.ToEntero, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) Then
|
||||
DTEmpleados = ObjPersonal.DtResultados
|
||||
End If
|
||||
End Using
|
||||
For Each dro As DataRow In DTEmpleados.Select("CvePersonal > 0 AND LEN(Codigo)>0")
|
||||
column = 1
|
||||
Fila = Fila + 1
|
||||
|
||||
libro.Cell(Fila, column).Value = dro("Codigo")
|
||||
column += 1
|
||||
libro.Cell(Fila, column).Value = dro("Nombre")
|
||||
column += 1
|
||||
libro.Column(column).Width = 35
|
||||
libro.Cell(Fila, column).Value = dro("SalarioDiario")
|
||||
column += 1
|
||||
libro.Cell(Fila, column).Value = dro("SDI")
|
||||
column += 1
|
||||
libro.Cell(Fila, column).Value = dro("SalarioDiarioSS")
|
||||
column += 1
|
||||
Next
|
||||
|
||||
|
||||
Dim fs As System.IO.Stream = New System.IO.MemoryStream()
|
||||
wb.SaveAs(fs)
|
||||
fs.Position = 0
|
||||
Dim memoryStream As System.IO.MemoryStream = New System.IO.MemoryStream()
|
||||
|
||||
Using input As System.IO.Stream = fs
|
||||
input.CopyTo(memoryStream)
|
||||
End Using
|
||||
|
||||
memoryStream.Position = 0
|
||||
Response.Clear()
|
||||
Response.Buffer = True
|
||||
Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"
|
||||
Response.AddHeader("content-disposition", String.Format("attachment;filename={0}.xlsx", "FormatoCargaSalario"))
|
||||
Response.BinaryWrite(memoryStream.ToArray())
|
||||
Response.[End]()
|
||||
Catch ex As Exception
|
||||
Alert("Ocurrio un error al generar el Formato de salario" & ex.ToString())
|
||||
End Try
|
||||
End Sub
|
||||
Protected Sub LnkCargarSalarios_Click(sender As Object, e As EventArgs)
|
||||
Dim Filesgral As List(Of Archivo) = TxtArchivoNomina.getfiles().Archivos
|
||||
Dim continuar As Boolean = Filesgral.Count > 0
|
||||
Dim stringError As String = ""
|
||||
Dim fileItem As Archivo = If(continuar, Filesgral(0), Nothing)
|
||||
|
||||
If continuar Then
|
||||
Dim FileExtension As String = fileItem.Extencion.ToUpper()
|
||||
|
||||
If FileExtension = "XLS" Or FileExtension = "XLSX" Or FileExtension = "CSV" Then
|
||||
Else
|
||||
continuar = False
|
||||
stringError = "No se inserto un archivo de tipo Excel"
|
||||
End If
|
||||
End If
|
||||
|
||||
Dim DTEXcel As DataTable = New DataTable()
|
||||
|
||||
If continuar Then
|
||||
|
||||
Try
|
||||
DTEXcel = Extensiones.ModExtensiones.ReadExcelFile(fileItem.FileUrl, True).FiltraParametros(" LEN(Codigo)>0 ")
|
||||
Catch ex As Exception
|
||||
continuar = False
|
||||
stringError = "Ocurrio un Error al procesar el excel "
|
||||
String.Format("{0} " & vbCrLf & "{0}", stringError, ex.ToString()).GuardaLog()
|
||||
End Try
|
||||
End If
|
||||
If continuar Then
|
||||
|
||||
Dim OcurrioError As Boolean = False
|
||||
|
||||
Using ObjPersonal As ClsRH = New ClsRH()
|
||||
For Each Row As DataRow In DTEXcel.Rows
|
||||
If Row("Codigo").ToString() <> "" Then
|
||||
Dim drow As DataRow = DTEmpleados.FiltroPrimero(String.Format("Codigo='{0}'", Row("Codigo")))
|
||||
If Not IsNothing(drow) Then
|
||||
|
||||
Dim CvePersonal As Integer = drow("CvePersonal").ToString().ToEntero()
|
||||
If ObjPersonal.UpdateSalarios(CvePersonal, DateTime.Now.ToString("yyyy/MM/dd"), UsuarioActual.CveEmpresa, Row("SDD").ToString().ToDecimal(), Row("SDI").ToString().ToDecimal(), Row("SD IMSS").ToString().ToDecimal(), Row("SDD").ToString().ToDecimal()) Then
|
||||
|
||||
Else
|
||||
OcurrioError = True
|
||||
ObjPersonal.RollBack()
|
||||
Exit For
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
Next
|
||||
If Not OcurrioError Then
|
||||
'ObjPersonal.Commit()
|
||||
Alert("La información se guardó correctamente.", TipoMensaje.MsgInformacion)
|
||||
Else
|
||||
Alert("Ocurrió un error al guardar la información.", TipoMensaje.MsgError)
|
||||
End If
|
||||
End Using
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
@@ -1313,30 +1313,30 @@
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox CssClass="form-control" ID="TxtSalarioDiario" runat="server" MaxLength="10"></asp:TextBox>
|
||||
<asp:TextBox CssClass="form-control" ID="TxtSalarioDiario" Enabled ="false" runat="server" MaxLength="10"></asp:TextBox>
|
||||
<asp:Label runat="server" AssociatedControlID="TxtSalarioDiario" Enabled ="false" Text="Salario Diario (SDD):"></asp:Label>
|
||||
<asp:CompareValidator ID="CVSalarioDiario" runat="server" ControlToValidate="TxtSalarioDiario" CssClass="help-block errorimput" ErrorMessage="El campo <b>''Salario Diario''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>
|
||||
<%--<asp:CompareValidator ID="CVSalarioDiario" runat="server" ControlToValidate="TxtSalarioDiario" CssClass="help-block errorimput" ErrorMessage="El campo <b>''Salario Diario''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>--%>
|
||||
<i></i>
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox CssClass="form-control" ID="TxtSDI" Enabled ="false" runat="server" MaxLength="10"></asp:TextBox>
|
||||
<asp:Label runat="server" AssociatedControlID="TxtSDI" Text="Salario Diario Integrado (SDI):"></asp:Label>
|
||||
<asp:CompareValidator ID="CVSDI" runat="server" ControlToValidate="TxtSDI" CssClass="help-block errorimput" ErrorMessage="El campo <b>''SDI''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Double" ValidationGroup="GrpGuardar"></asp:CompareValidator>
|
||||
<%--<asp:CompareValidator ID="CVSDI" runat="server" ControlToValidate="TxtSDI" CssClass="help-block errorimput" ErrorMessage="El campo <b>''SDI''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Double" ValidationGroup="GrpGuardar"></asp:CompareValidator>--%>
|
||||
<i></i>
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright" style="display: none;">
|
||||
<asp:TextBox CssClass="form-control" ID="TxtSalarioDiarioPago" Enabled ="false" runat="server" MaxLength="10"></asp:TextBox>
|
||||
<asp:Label runat="server" AssociatedControlID="TxtSalarioDiarioPago" Text="Salario Diario de Pago:"></asp:Label>
|
||||
<asp:CompareValidator ID="CVSalario" runat="server" ControlToValidate="TxtSalarioDiarioPago" CssClass="help-block errorimput" ErrorMessage="El campo <b>''Salario Diario de Pago''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>
|
||||
<%--<asp:CompareValidator ID="CVSalario" runat="server" ControlToValidate="TxtSalarioDiarioPago" CssClass="help-block errorimput" ErrorMessage="El campo <b>''Salario Diario de Pago''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>--%>
|
||||
<i></i>
|
||||
</div>
|
||||
|
||||
<asp:Panel runat="server" ID="pnlSalarioIMSS" CssClass="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox CssClass="form-control" ID="TxtSalarioCotizado" Enabled ="false" runat="server" MaxLength="10"></asp:TextBox>
|
||||
<asp:Label runat="server" AssociatedControlID="TxtSalarioCotizado" Text="Salario Diario IMSS:"></asp:Label>
|
||||
<asp:CompareValidator ID="CVSDT" runat="server" ControlToValidate="TxtSalarioCotizado" CssClass="help-block errorimput" ErrorMessage="El campo <b>''Salario Diario Cotizado''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>
|
||||
<%--<asp:CompareValidator ID="CVSDT" runat="server" ControlToValidate="TxtSalarioCotizado" CssClass="help-block errorimput" ErrorMessage="El campo <b>''Salario Diario Cotizado''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>--%>
|
||||
|
||||
<i></i>
|
||||
</asp:Panel>
|
||||
|
||||
@@ -455,7 +455,7 @@ Partial Class Site
|
||||
If objgen.DtResultados.Rows.Count > 0 Then
|
||||
For Each dtrow As DataRow In objgen.DtResultados.Rows
|
||||
If dtrow("Contador").ToString().ToEntero() > 0 Then
|
||||
Notificaciones.Append(ItemNotificaciones(String.Format("Se registro una solicitud de descarga del sat con {0} XML del SAT", dtrow("Contador")), Ico:="fa fa-tags", Tipo:="info", Link:=String.Format("javascript:$('#{0}').val({1});$('#{2}').click();", TxtCveNotisat.ClientID, dtrow("CveSolicitudSat").ToString().ToEntero(), btnoknotisat.ClientID), tonewpage:=False)) '
|
||||
Notificaciones.Append(ItemNotificaciones(String.Format("Se registro una solicitud de descarga del SAT con {0} XML", dtrow("Contador")), Ico:="fa fa-tags", Tipo:="info", Link:=String.Format("javascript:$('#{0}').val({1});$('#{2}').click();", TxtCveNotisat.ClientID, dtrow("CveSolicitudSat").ToString().ToEntero(), btnoknotisat.ClientID), tonewpage:=False)) '
|
||||
countNotificaciones = countNotificaciones + 1
|
||||
|
||||
End If
|
||||
|
||||
@@ -17,9 +17,14 @@
|
||||
<package id="Microsoft.Bcl" version="1.1.9" targetFramework="net40" />
|
||||
<package id="Microsoft.Bcl.Async" version="1.0.168" targetFramework="net40" />
|
||||
<package id="Microsoft.Bcl.Build" version="1.0.14" targetFramework="net40" />
|
||||
<package id="Microsoft.Owin" version="3.0.1" targetFramework="net45" />
|
||||
<package id="Microsoft.IdentityModel.JsonWebTokens" version="5.3.0" targetFramework="net45" />
|
||||
<package id="Microsoft.IdentityModel.Logging" version="5.3.0" targetFramework="net45" />
|
||||
<package id="Microsoft.IdentityModel.Tokens" version="5.3.0" targetFramework="net45" />
|
||||
<package id="Microsoft.Owin" version="4.1.0" targetFramework="net45" />
|
||||
<package id="Microsoft.Owin.Host.SystemWeb" version="3.0.1" targetFramework="net45" />
|
||||
<package id="Microsoft.Owin.Security" version="3.0.1" targetFramework="net45" />
|
||||
<package id="Microsoft.Owin.Security" version="4.1.0" targetFramework="net45" />
|
||||
<package id="Microsoft.Owin.Security.Jwt" version="4.1.0" targetFramework="net45" />
|
||||
<package id="Microsoft.Owin.Security.OAuth" version="4.1.0" targetFramework="net45" />
|
||||
<package id="Microsoft.ReportingServices.ReportViewerControl.WebForms" version="150.1358.0" targetFramework="net45" />
|
||||
<package id="Microsoft.ReportViewer.2015.Runtime" version="12.0.2.2402" targetFramework="net4" />
|
||||
<package id="Microsoft.ReportViewer.Common.v12" version="12.0.0.1" targetFramework="net45" />
|
||||
@@ -28,8 +33,10 @@
|
||||
<package id="Microsoft.Web.Infrastructure" version="1.0.0.0" targetFramework="net4" />
|
||||
<package id="Microsoft.Web.Xdt" version="1.0.0" targetFramework="net4" />
|
||||
<package id="NC-OS-SessionStateProvider" version="4.4.0.0" targetFramework="net40" />
|
||||
<package id="Newtonsoft.Json" version="12.0.3" targetFramework="net45" />
|
||||
<package id="NuGet.Core" version="2.8.0" targetFramework="net4" />
|
||||
<package id="Owin" version="1.0" targetFramework="net45" />
|
||||
<package id="StackExchange.Redis.StrongName" version="1.0.488" targetFramework="net40" />
|
||||
<package id="System.IdentityModel.Tokens.Jwt" version="5.3.0" targetFramework="net45" />
|
||||
<package id="WebGrease" version="1.6.0" targetFramework="net40" />
|
||||
</packages>
|
||||
@@ -80,10 +80,6 @@
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user