AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2020-07-14 19:10:53 -07:00
parent 2c19a40bbf 72cf7f7afb
commit 6edabae022
46 changed files with 1187 additions and 372 deletions
Download Patch File Download Diff File Expand all files Collapse all files

56
AF/AF.aspx
View File

@@ -1362,7 +1362,55 @@
</asp:UpdatePanel>
</ContentTemplate>
</ajax:TabPanel>
<ajax:TabPanel ID="TabOrdenesdeServicio" Visible="false" runat="server" HeaderText="Ordenes de Servicio">
<ContentTemplate>
<asp:GridView ID="GVOrdenesdeServicio" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall" AutoGenerateColumns="False" data-height="400">
<Columns>
<asp:TemplateField HeaderText="Folio">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("Folio")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Fecha">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("Fecha", "{0:dd/MM/yyyy}")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Obra">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("Obra")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Tipo de Servicio">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("TipodeServicio")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Servicio">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("Servicio")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Estatus">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("Estatus")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Duración">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("Duracion")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Atendió">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("Atendio")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</ContentTemplate>
</ajax:TabPanel>
<ajax:TabPanel ID="TabGPS" HeaderText="GPS" runat="server" Visible="false">
<ContentTemplate>
<ajax:TabContainer ID="TabGPSContenido" runat="server" Width="100%">
@@ -2842,9 +2890,9 @@
<div class="row">
<div class="col-md-2">Producto:</div>
<div class="col-md-10">
<asp:DropDownList ID="DdlAFInvPS" AutoPostBack="true" DataTextField="PSCodigo" DataValueField="CvePS" CssClass="select2me" AppendDataBoundItems="true" runat="server" Width="475px" OnSelectedIndexChanged="DdlAFInvPS_SelectedIndexChanged"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVAFInvPS" runat="server" ControlToValidate="DdlAFInvPS" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Producto''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpAFInv"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEAFInvPS" runat="server" HighlightCssClass="vco" TargetControlID="RFVAFInvPS" Width="300px"></ajax:ValidatorCalloutExtender>
<ADS:Dropdownlost runat="server" ID="DdlAFInvPS" CssStyle="width: 100%;" CssClass="DdlPS " CssClassDdl="select2me " IncluyeTodos="false" DataTextField="PSCodigo" DataValueField="CvePS" Onselectedindexchange ="DdlAFInvPS_SelectedIndexChanged" />
<%-- <asp:RequiredFieldValidator ID="RFVAFInvPS" runat="server" ControlToValidate="DdlAFInvPS" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Producto''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpAFInv"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEAFInvPS" runat="server" HighlightCssClass="vco" TargetControlID="RFVAFInvPS" Width="300px"></ajax:ValidatorCalloutExtender>--%>
</div>
</div>
<div id="DivSerie" runat="server" visible="false" class="row">

100
AF/AF.aspx.vb
View File

@@ -280,8 +280,64 @@ Partial Class AF_AF
End If
CargaAFInv()
cargaOrdenesdeservicio()
End If
End Sub
Private Sub cargaOrdenesdeservicio()
Dim dt As New DataTable()
dt.Columns.Add("Folio", GetType(String))
dt.Columns.Add("Fecha", GetType(Date))
dt.Columns.Add("Obra", GetType(String))
dt.Columns.Add("TipodeServicio", GetType(String))
dt.Columns.Add("Servicio", GetType(String))
dt.Columns.Add("Estatus", GetType(String))
dt.Columns.Add("Duracion", GetType(String))
dt.Columns.Add("Atendio", GetType(String))
Dim dr As DataRow = dt.NewRow()
dr("Folio") = "101"
dr("Fecha") = "2019/08/23"
dr("Obra") = "Ganaderos"
dr("TipodeServicio") = "Preventivo"
dr("Servicio") = "100 Hrs"
dr("Estatus") = "Terminada"
dr("Duracion") = "5 Hrs"
dr("Atendio") = "Juan perez"
dt.Rows.Add(dr)
dr = dt.NewRow()
dr("Folio") = "190"
dr("Fecha") = "2019/09/30"
dr("Obra") = "Ganaderos"
dr("TipodeServicio") = "Preventivo"
dr("Servicio") = "200 Hrs"
dr("Estatus") = "Terminada"
dr("Duracion") = "5 hrs"
dr("Atendio") = "Ernesto Lopez"
dt.Rows.Add(dr)
dr = dt.NewRow()
dr("Folio") = "501"
dr("Fecha") = "2019/11/30"
dr("Obra") = "Vildósola"
dr("TipodeServicio") = "Preventivo"
dr("Servicio") = "400 Hrs"
dr("Estatus") = "Terminada"
dr("Duracion") = "8 hrs"
dr("Atendio") = "Juan perez"
dt.Rows.Add(dr)
dr = dt.NewRow()
dr("Folio") = "505"
dr("Fecha") = "2019/12/14"
dr("Obra") = "Vildósola"
dr("TipodeServicio") = "Correctivo"
dr("Servicio") = "Rep. Mayor motor"
dr("Estatus") = "En proceso"
dr("Duracion") = "ND"
dr("Atendio") = "Juan perez"
dt.Rows.Add(dr)
GVOrdenesdeServicio.DataSource = dt
GVOrdenesdeServicio.DataBind()
End Sub
Private Sub CargaFechaGPS()
TxtFechaIH.Text = $"01/{DateTime.Now.ToString("MM")}/{DateTime.Now.Year} 00:00"
TxtFechaFH.Text = $"{DateTime.Now.ToString("dd/MM/yyyy")} 23:59"
@@ -472,20 +528,20 @@ Partial Class AF_AF
Private Sub CargaAFInv()
If UsuarioActual.Empresa.UsaInventarios AndAlso CveActivoFijo <= 0 Then
HLAFInv.Visible = True
HLAFInv.Visible= True
Dim StrAlmacenes As String = "CveTipoAlmacen IN (1,2)"
DdlAFInvAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, CveEmpresaActual, -1).FiltraParametros(StrAlmacenes)
Dim StrAlmacenes As String = "CveTipoAlmacen IN (1,2,12)"
DdlAFInvAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, CveEmpresaActual, CveTipoAlmacen:=-1).FiltraParametros(StrAlmacenes)
DdlAFInvAlmacen.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
DdlAFInvAlmacen.SelectedValue = "-1"
DdlAFInvAlmacen.DataBind()
DdlAFInvAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen)
DdlAFInvAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen)
DdlAFInvPS.setEsWebService(True)
DdlAFInvPS.DataSource = GlobalDTPS(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoPS = 2", "PSCodigo")
DdlAFInvPS.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
DdlAFInvPS.DataBind()
DdlAFInvPS.SelectedValue = "-1"
'DdlAFInvPS.DataSource = GlobalDTPS(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoPS = 2", "PSCodigo")
'DdlAFInvPS.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
'DdlAFInvPS.DataBind()
'DdlAFInvPS.SelectedValue = "-1"
End If
End Sub
Private Sub CargaMarcas()
@@ -2979,14 +3035,20 @@ Partial Class AF_AF
Catch ex As Exception
End Try
End Sub
End Sub
#End Region
#Region " AFInv "
Protected Sub BtnAFInv_Click(sender As Object, e As EventArgs)
If DdlAFInvPS.SelectedValue.ToEntero <= 0 Then
Alert("Seleccione un producto.")
Exit Sub
End If
AFInvSerie = ""
AFInvCvePS = -1
AFInvCveAlmacen = -1
@@ -3017,7 +3079,7 @@ Partial Class AF_AF
Exit Sub
End If
TxtDescripcion.Text = DdlAFInvPS.SelectedItem.Text
TxtDescripcion.Text = DdlAFInvPS.SelectedText
TxtValorCompra.Text = Costo.FormatoNumero
TxtFechaCompra.Text = Now.ToShortDateString
TxtNoSerie.Text = TxtAFInvSerie.Text.Trim
@@ -3035,11 +3097,11 @@ Partial Class AF_AF
DivAFInvAdvertencia.Visible = True
UpDatos.Update()
End Sub
End Sub
#End Region
#Region "AF GRUPOS"
Private Sub BtnAgregarGrupo_Click(sender As Object, e As EventArgs) Handles BtnAgregarGrupo.Click
TxtGrupoAF.Text = ""

46
App_Code/ClsGenerales.vb
View File

@@ -210,6 +210,52 @@ Public Class ClsGenerales
End Try
Return retorno
End Function
Public Function SAT_DescargaSolicitudeUUIDSGET(CveSolicitudSat As Int32) As Boolean
Dim retorno As Boolean = False
DataAdapter("[PA_Gral_DescargaSolicitudesUUIDSGET]", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters
.Add("@CveSolicitudSat", SqlDbType.Int).Value = CveSolicitudSat
End With
Try
SqlAdapter.Fill(Data)
retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener los registros de solicitudes CFDI SAT.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return retorno
End Function
Public Function SAT_DescargaSolicitudesAddNotificaciones(CveEmpresa As Int32, CveSolicitudSat As Int32) As Boolean
Dim retorno As Boolean = False
DataAdapter("[PA_Gral_SAT_DescargaSolicitudesAddNotificaciones]", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveSolicitudSat", SqlDbType.Int).Value = CveSolicitudSat
End With
Try
SqlAdapter.Fill(Data)
retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener los registros de solicitudes CFDI SAT.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return retorno
End Function
Public Function SAT_DescargaSolicitudesAddNotificacionesCOUNT(CveEmpresa As Int32) As Boolean
Dim retorno As Boolean = False
DataAdapter("[PA_Gral_SAT_DescargaSolicitudesAddNotificacionesCOUNT]", CommandType.StoredProcedure)
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 los registros de solicitudes CFDI SAT.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return retorno
End Function
#Region " I N D I C A D O R E S Y G R A F I C A S"
Public Function GetIndicadores(CveEmpresa As Integer) As DataSet
'Dim Retorno As Boolean = False

34
App_Code/ClsVentas.vb
View File

@@ -2862,6 +2862,40 @@ Public Class ClsVentas
Return OnError
End Function
Public Function GETVentasPendientesdeTimbrar(CveEmpresa As Integer) As Boolean
Dim OnError As Boolean = False
DataAdapter("PA_Vta_VentasPendientesdeTimbrar")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
OnError = True
Catch ex As Exception
Me.OnError("Ocurrió un error al obtener las facturas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return OnError
End Function
Public Function GETVentasPendientesdeCancelar(CveEmpresa As Integer) As Boolean
Dim OnError As Boolean = False
DataAdapter("PA_Vta_VentasPendientesdeCancelar")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
OnError = True
Catch ex As Exception
Me.OnError("Ocurrió un error al obtener las facturas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return OnError
End Function
Public Function GetFacturasCanceladasPendientes(FoliosFiscales As String, CveEmpresa As Integer) As Boolean
Dim OnError As Boolean = False
DataAdapter("PA_Vta_FacturasCanceladasPendientesGet")

2
App_Code/Modelos.vb
View File

@@ -1344,7 +1344,7 @@ Namespace Modelos
Public Sub GuardarVenta(ByRef factura As Modelos.Factura, ByRef ObjVentas As ClsVentas, ByRef ObjConta As ClsContabilidad, ByRef ObjInventario As ClsInventarios, ByRef ObjContr As ClsContratos, ByRef TmpDTDetalle As DataTable, CveNCaVincular As Integer, ByRef objContPaqi As ClsContPAQi, Optional ByRef ObjBancos As ClsBancos = Nothing, Optional ByRef ObjOS As ClsOS = Nothing, ByRef Optional ObjEventos As ClsOIEventos = Nothing, ByRef Optional ObjCGame As ClsCGame = Nothing, ByRef Optional ObjCliente As ClsClientes = Nothing, Optional EsNotaCredito As Boolean = False, Optional ObjAcum As ClsAcumuladores = Nothing)
Dim Msgok As New StringBuilder
factura.CvePrePoliza = ObjConta.AddPrePolizas("Ventas/GuardarVentaM", factura.CvePlantillaPoliza, factura.TotalTC, factura.TotalTC, factura.CveMoneda, factura.Fecha, If(factura.CveEmpresaCRM > 0, factura.EmpresaCRM, factura.Cliente.Nombre), factura.CveUsuario, factura.CveEmpresa)
factura.CvePrePoliza = ObjConta.AddPrePolizas("Modelos/GuardarVentaM", factura.CvePlantillaPoliza, factura.TotalTC, factura.TotalTC, factura.CveMoneda, factura.Fecha, If(factura.CveEmpresaCRM > 0, factura.EmpresaCRM, factura.Cliente.Nombre), factura.CveUsuario, factura.CveEmpresa)
If Not ObjVentas.AddVenta(factura.TipoDocto, factura.Folio, factura.CveCliente, factura.CveClienteSucursal, factura.SubTotalTC, factura.DescuentoTC,
factura.AmortizacionTC, factura.IVATC, factura.RetIVATC, factura.RetISRTC,

99
App_Code/WsSigfox.vb
View File

@@ -19,11 +19,12 @@ Namespace Sigfox
<HttpPost>
Public Function CrearTrama(<FromBody()> params As DispositivoGPS) As Object
Dim respuesta = New With {.Correcto = False, .Mensaje = "", .Datos = New JObject}
Dim datos As String = "" '"0104000000000000"
Dim ObjGPS As New ClsGPS()
Try
Dim Datos = GetSigfoxDataSuntechTool(params.data)
respuesta.Datos = Datos
'Dim Datos = GetSigfoxDataSuntechTool(params.data) se calcula por Base de datos revisar el AddTrama
'respuesta.Datos = Datos
Dim DevID As String = params.device
Dim Lat As Double = params.lat.ToDouble()
@@ -32,22 +33,26 @@ Namespace Sigfox
Dim Velocidad As Double = 0
Dim MessageType As Integer = 0
If Datos IsNot Nothing Then
If Datos.Item("Tipo-01") IsNot Nothing Then
If Datos("Tipo-01")("Latitud") IsNot Nothing Then
Lat = Datos("Tipo-01")("Latitud").ToString().ToDouble()
End If
If Datos("Tipo-01")("Longitud") IsNot Nothing Then
Lng = Datos("Tipo-01")("Longitud").ToString().ToDouble()
End If
End If
End If
'If Datos IsNot Nothing Then
' If Datos.Item("Tipo-01") IsNot Nothing Then
' If Datos("Tipo-01")("Latitud") IsNot Nothing Then
' Lat = Datos("Tipo-01")("Latitud").ToString().ToDouble()
' End If
' If Datos("Tipo-01")("Longitud") IsNot Nothing Then
' Lng = Datos("Tipo-01")("Longitud").ToString().ToDouble()
' End If
' End If
'End If
Dim Trama As String = String.Format("ST730;{0};{1};{2};{3};{4};{5};{6};{7};{8};{9};{10};{11};{12};{13}", params.data, DevID, Lat, Lng, Fecha,
Velocidad, MessageType, params.avgSnr, params.duplicate, params.rssi, params.seqNumber, params.snr,
params.station, params.time)
If ObjGPS.AddTrama(DevID, Trama, Lat, Lng, Fecha, Velocidad, "ST730") Then
If ObjGPS.DtResultados.Rows.Count > 0 Then
datos = ObjGPS.DtResultados.Rows(0)("Comando").ToString()
'CveDispositivo = ObjGPS.DtResultados.Rows(0)("CveDispositivo").ToString()
End If
respuesta.Correcto = True
respuesta.Mensaje = "La trama se agregó correctamente"
Else
@@ -61,10 +66,78 @@ Namespace Sigfox
Finally
ObjGPS.Dispose()
End Try
Return respuesta
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")
Else
response = Request.CreateResponse(HttpStatusCode.NoContent, "")
End If
Return response
End Function
#Region "F U N C I O N E S"
Public Function procesatrama(header As String, trama As String) As String
Dim retorno As String = ""
Dim strbyte As String = ""
Dim hexValue As String = ""
Dim index As Integer = 3
Dim longitud As Integer = trama.Length
While longitud > index
strbyte = trama.Substring(index, 2)
index = index + 2
Select Case strbyte
Case "01" 'GPS location
If longitud > (index + 12) Then
hexValue = trama.Substring(index, 6) 'latitud
index = index + 6
hexValue = trama.Substring(index, 6) 'longitude
index = index + 6
Else
index = index + 12
End If
Case "02" 'High resolution GPS location
If longitud > (index + 16) Then
hexValue = trama.Substring(index, 8) 'latitud
index = index + 8
hexValue = trama.Substring(index, 8) 'longitude
index = index + 8
Else
index = index + 8
End If
Case "03" 'Temperatura
hexValue = trama.Substring(index, 2)
index = index + 2
Case "04" 'Battery voltage
hexValue = trama.Substring(index, 2)
index = index + 2
Case "05" 'Battery level
hexValue = trama.Substring(index, 2)
index = index + 2
Case "06" 'Wifi Mac address (6 bytes) + 1 byte for RSSI (positive dBm)
hexValue = trama.Substring(index, 14)
index = index + 14
Case "07" 'Wifi Extended: 6 bytes for MAC address, 1 bytes for RSSI and 3 bytes for a NIC that as the same OUI as the 6 bytes MAC address
hexValue = trama.Substring(index, 20)
index = index + 20
Case "08" 'Accelerometer (2 bytes per axis)
hexValue = trama.Substring(index, 12)
index = index + 12
Case "09" 'Speed in km/h
hexValue = trama.Substring(index, 2)
index = index + 2
Case "8x" 'Fence number
hexValue = trama.Substring(index, 2)
index = index + 2
Case Else
index = index + 2 'se desconoce pero se avanza 1 bytes
End Select
End While
Return retorno
End Function
''' <summary>
''' Obtiene los valores de los datos usando la libreria de SigfoxParse.js
''' </summary>

4
App_Code/modExtensiones.vb
View File

@@ -463,10 +463,10 @@ Namespace Extensiones
''' <param name="ico">Icono clase example fa fa-bell-o</param>
''' <param name="tipo">'danger','success','warning','info'</param>
''' <remarks></remarks>
Public Function ItemNotificaciones(Mensaje As String, Optional Fecha As String = "", Optional Ico As String = "fa fa-bell-o", Optional Tipo As String = "info", Optional Link As String = "javascript:;") As String
Public Function ItemNotificaciones(Mensaje As String, Optional Fecha As String = "", Optional Ico As String = "fa fa-bell-o", Optional Tipo As String = "info", Optional Link As String = "javascript:;", Optional tonewpage As Boolean = True) As String
Dim Time As String = ""
If Fecha <> "" Then Time = String.Format("<span class=""time"">{0}</span>", Fecha)
Return String.Format("<li><a href=""{4}"" target=""_blank"">{0}<span class=""details""><span class=""label label-sm label-icon label-{1}""><i class=""{2}""></i></span>{3}</span></a></li>", Time, Tipo, Ico, Mensaje, Link)
Return String.Format("<li><a href=""{4}"" {5}>{0}<span class=""details""><span class=""label label-sm label-icon label-{1}""><i class=""{2}""></i></span>{3}</span></a></li>", Time, Tipo, Ico, Mensaje, Link, If(tonewpage, "target=""_blank""", ""))
End Function
'<Runtime.CompilerServices.Extension()>
'Public Function addindicador(Obj As Object, color As String, icono As String, titulo As String, comentario As String, link As String) As String

56
Ashx/SIGFacturacion.ashx
View File

@@ -2275,24 +2275,44 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
HttpContext.Current.Application("GlobalDTAlmacen") = value
End Set
End Property
Property GlobalDTAlmacenUsuarios(CveUsuario As Integer, CveEmpresa As Integer, Optional CveTipoAlmacen As Integer = 1) As DataTable
Get
If CveEmpresa <> -1 Then
Dim Str As New StringBuilder
Str.AppendFormat("CveUsuario = {0} AND CveEmpresa = {1} ", CveUsuario, CveEmpresa)
If CveTipoAlmacen > 0 Then Str.AppendFormat("AND CveTipoAlmacen = {0}", CveTipoAlmacen)
Dim Dv As New DataView(DirectCast(HttpContext.Current.Application("GlobalDTAlmacenUsuarios"), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
GlobalDTAlmacenUsuarios = Dv.ToTable
Dv.Dispose()
Else
GlobalDTAlmacenUsuarios = DirectCast(HttpContext.Current.Application("GlobalDTAlmacenUsuarios"), DataTable)
End If
End Get
Set(value As DataTable)
HttpContext.Current.Application("GlobalDTAlmacenUsuarios") = value
End Set
Property GlobalDTAlmacenUsuarios(CveUsuario As Integer, CveEmpresa As Integer, Optional CveTipoAlmacen As Integer = 1) As DataTable
Get
Dim AppNombre As String = String.Format("GlobalDTAlmacenUsuarios-{0}", CveEmpresa)
'sino existe, recarga los datos
If HttpContext.Current.Application(AppNombre) Is Nothing Then
Dim ObjUsr As New ClsSisUsuarios
If ObjUsr.GetAlmacen(-1, CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjUsr.DtResultados
ObjUsr.Dispose()
End If
Dim Str As New StringBuilder
Str.AppendFormat("CveUsuario = {0} AND CveEmpresa = {1} ", CveUsuario, CveEmpresa)
If CveTipoAlmacen > 0 Then Str.AppendFormat("AND CveTipoAlmacen = {0}", CveTipoAlmacen)
Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
GlobalDTAlmacenUsuarios = Dv.ToTable
Dv.Dispose()
End Get
Set(value As DataTable)
Dim AppNombre As String = String.Format("GlobalDTAlmacenUsuarios-{0}", CveEmpresa)
HttpContext.Current.Application(AppNombre) = value
End Set
'Get
' If CveEmpresa <> -1 Then
' Dim Str As New StringBuilder
' Str.AppendFormat("CveUsuario = {0} AND CveEmpresa = {1} ", CveUsuario, CveEmpresa)
' If CveTipoAlmacen > 0 Then Str.AppendFormat("AND CveTipoAlmacen = {0}", CveTipoAlmacen)
' Dim Dv As New DataView(DirectCast(HttpContext.Current.Application("GlobalDTAlmacenUsuarios"), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
' GlobalDTAlmacenUsuarios = Dv.ToTable
' Dv.Dispose()
' Else
' GlobalDTAlmacenUsuarios = DirectCast(HttpContext.Current.Application("GlobalDTAlmacenUsuarios"), DataTable)
' End If
'End Get
'Set(value As DataTable)
' HttpContext.Current.Application("GlobalDTAlmacenUsuarios") = value
'End Set
End Property
Property GlobalDTNom_Periodos() As DataTable
Get

2
Bancos/RegistroPagoIntermediario.aspx.vb
View File

@@ -246,7 +246,7 @@ Partial Class Bancos_PagosIntermediarios
Else
ObjIE.RollBack()
Alert(String.Format("Ocurrió un error al registrar el movimiento."), TipoMensaje.MsgError)
GuardaLog(MsgError)
GuardaLog($"RegistroPagoIntermediario --> {MsgError}")
End If
ObjIE.Dispose()

6
Compras/Compras.aspx.vb
View File

@@ -7712,7 +7712,7 @@ Partial Class Compras_Compras
' ImporteAnticipo += Ant.Importe ' RESTO DEL IMPORTE POR SI QUEDA DIFERENCIA DE LA SUMA DE LOS ANTICIPOS Y EL PROVEEDOR TIENE QUE PAGAR
'movimiento de pago proveedor, --no se regisra porque no se registra el total de la compra como deuda del proveedor, solo lo que queda a deber
'si es l moviemiento es de amortizacion con descuento, no registra el pago, ya esta descontado
If TieneAnticiposXML = False AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoCompra, Ant.Importe, " ", CveConceptoPago, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=Ant.Importe) Then
If TieneAnticiposXML = False AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoCompra, Ant.Importe, " ", CveConceptoPago, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=Ant.Importe, CveCompraAmortizacion:=CveCompraNC) Then
ErrorMovtosCxP = True
End If
PorcentajePago = (Ant.Importe) / TxtTotal.Text.ToDecimal
@@ -10630,7 +10630,7 @@ Partial Class Compras_Compras
e.Row.Cells(0).ToolTip = "Producto/Servicio NO Registrado"
e.Row.Cells(0).ID = String.Format("tr{0}", e.Row.RowIndex)
e.Row.Cells(0).ClientIDMode = ClientIDMode.Static
e.Row.Cells(0).Attributes.Add("onclick", String.Format("fnAltaPS('{0}','{1}',{2})", String.Format("tr{0}", e.Row.RowIndex), e.Row.DBCampo("PS").Replace("'", "").Replace(Chr(13), "").Replace(Chr(10), ""), e.Row.RowIndex))
e.Row.Cells(0).Attributes.Add("onclick", String.Format("fnAltaPS('{0}','{1}',{2})", String.Format("tr{0}", e.Row.RowIndex), e.Row.DBCampo("PS").Replace("'", "&#39;").Replace(Chr(13), "").Replace(Chr(10), ""), e.Row.RowIndex))
If e.Row.FCTextBox("TxtPrecioEdit") IsNot Nothing Then e.Row.FCTextBox("TxtPrecioEdit").Enabled = False
If e.Row.FCTextBox("TxtCantidadEdit") IsNot Nothing Then e.Row.FCTextBox("TxtCantidadEdit").Enabled = False
End If
@@ -17979,7 +17979,7 @@ Partial Class Compras_Compras
CvePS = DdlPSAlias2.SelectedValue.ToEntero
tPS = DdlPSAlias2.SelectedText
If PS.AddPSAlias(TxtPSAlias.Text.Trim, CvePS) Then
If PS.AddPSAlias(System.Web.HttpUtility.HtmlDecode(TxtPSAlias.Text.Trim), CvePS) Then
GlobalDTProductosServiciosAlias(-1) = PS.DtResultados
TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CvePS") = CvePS

6
Compras/PopUpVerFactura.aspx.vb
View File

@@ -2335,16 +2335,16 @@ Partial Class PopUpVerFactura
Dim ObjCompra As New ClsCompras()
If ObjCompra.GetCompras(CveCompra, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) AndAlso ObjCompra.DtResultados.Rows.Count > 0 Then
Dim dr As DataRow = ObjCompra.DtResultados.Rows(0)
Dim FechaCompra As Date = dr("Fecha").ToString.ToDate
Dim FechaCompra As Date = dr("FechaMovto").ToString.ToDate
Dim FechaVencimiento As Date = dr("FechaVencimiento").ToString.ToDate
params.Add(New ReportParameter("Fecha", FechaCompra.ToShortDateString))
params.Add(New ReportParameter("FechaVencimiento", FechaVencimiento.ToShortDateString))
params.Add(New ReportParameter("Plazo", DateDiff(DateInterval.Day, FechaCompra, FechaVencimiento).ToString))
params.Add(New ReportParameter("Folio", Folio.ToString))
'params.Add(New ReportParameter("Folio", Folio.ToString))
params.Add(New ReportParameter("Serie", dr("Serie").ToString))
'params.Add(New ReportParameter("NumeroOrden", dr("OCVinculada").ToString))
'params.Add(New ReportParameter("FacturaProveedor", dr("SerieFolio").ToString))
params.Add(New ReportParameter("FacturaProveedor", dr("SerieFolio").ToString))
params.Add(New ReportParameter("NombreProveedor", dr("RazonSocial").ToString))
params.Add(New ReportParameter("DireccionProveedor", dr("Direccion").ToString))
params.Add(New ReportParameter("CiudadProveedor", " "))

4
Contratos/RepPedidosDevolucionesXContrato.aspx
View File

@@ -140,7 +140,7 @@
<asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:#,##0.##}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="3%" />
<asp:BoundField HeaderText="Producto" DataField="CodigoPS" ItemStyle-Width="40%" />
<asp:BoundField HeaderText="Contrato Externo" DataField="ContratoExterno" ItemStyle-Width="3%" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="SerieLote" DataField="SerieLote" ItemStyle-Width="10%" />
<asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="10%" />
</Columns>
</asp:GridView>
</div>
@@ -180,7 +180,7 @@
<asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:#,##0.##}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="3%" />
<asp:BoundField HeaderText="Producto" DataField="CodigoPS" ItemStyle-Width="40%" />
<asp:BoundField HeaderText="Contrato Externo" DataField="ContratoExterno" ItemStyle-Width="3%" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="SerieLote" DataField="SerieLote" ItemStyle-Width="10%" />
<asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="10%" />
</Columns>
</asp:GridView>
</div>

2
GPS/FacturacionMasiva.aspx.vb
View File

@@ -611,7 +611,7 @@ Partial Class Contratos_FacturacionMasiva
Dim CveSubProyecto = TmpDTDetalle.Rows(0)("CveSubProyecto").ToString.ToEntero
factura.CvePrePoliza = ObjConta.AddPrePolizas("Ventas/GuardarVenta", factura.CvePlantillaPoliza, factura.Total, factura.Total, factura.CveMoneda, factura.Fecha, factura.Cliente.Nombre, factura.CveUsuario, factura.CveEmpresa)
factura.CvePrePoliza = ObjConta.AddPrePolizas("FacMas/GuardarVenta", factura.CvePlantillaPoliza, factura.Total, factura.Total, factura.CveMoneda, factura.Fecha, factura.Cliente.Nombre, factura.CveUsuario, factura.CveEmpresa)
If Not ObjVentas.AddVenta(factura.TipoDocto, factura.Folio, factura.CveCliente, factura.CveClienteSucursal, factura.SubTotalTC, factura.DescuentoTC,
factura.AmortizacionTC, factura.IVATC, factura.RetIVATC, factura.RetISRTC,
factura.TotalTC, factura.CveMoneda, factura.TipoCambio, factura.CveMetodoPago, factura.CondicionesPago, factura.FormaPago, factura.FechaPago, factura.Fecha, factura.MotivoDescuento,

4
General/PopUpPaqueteriasGuias.aspx.cs
View File

@@ -787,11 +787,11 @@ public partial class General_PopUpPaqueteriasGuias : ClsPaginas
strBody.Append(" <br/>");
strBody.Append(" <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>");
strBody.Append(" Gracias por realizar pedido <br/>");
strBody.Append(" Compuproveedores");
//strBody.Append(" Compuproveedores");
strBody.Append(" </p>");
strBody.Append(" <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%;text-align:center'>");
strBody.Append(" Sigue disfrutando de nuestros productos y servicios<br/>");
strBody.Append(" <a href='https://www.compuproveedoresti.com/'>www.compuproveedores.com</a>");
//strBody.Append(" <a href='https://www.compuproveedoresti.com/'>www.compuproveedores.com</a>");
strBody.Append("");
strBody.Append(" </p>");
strBody.Append(" </body>");

57
General/RepPaqueteriasGuias.aspx.cs
View File

@@ -202,7 +202,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
}
CargaDatos();
}
}
@@ -231,7 +231,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
DdlPaqueterias.DataBind();
DdlPaqueterias.Items.Insert(0, new ListItem("Todos ", "-1"));
}
DdlPaqueteriaEditar.DataSource = get_GlobalDTPaqueterias(UsuarioActual.CveEmpresa);
DdlPaqueteriaEditar.DataBind();
@@ -254,7 +254,8 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
if (UsuarioActual.CveRol == 1339)
{
DdlEstatus.Items.Insert(0, new ListItem("En Proceso ", "2"));
}else
}
else
{
DdlEstatus.Items.Insert(0, new ListItem("Todos ", "-1"));
DdlEstatus.Items.Insert(1, new ListItem("Pendiente ", "1"));
@@ -272,7 +273,8 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
DdlEstatusEditar.Items.Insert(4, new ListItem("Confirmado por Cliente", "4"));
DdlEstatusEditar.SelectedValue = "-1";
if(UsuarioActual.Empresa.Funcionalidad(280) == "1"){
if (UsuarioActual.Empresa.Funcionalidad(280) == "1")
{
DivEstatusEntrega.Visible = true;
}
@@ -282,7 +284,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
{
if (UsuarioActual.CveRol == 1339)
{
DdlUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa:UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveRol = {0}",UsuarioActual.CveRol));
DdlUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveRol = {0}", UsuarioActual.CveRol));
DdlUsuarios.DataBind();
}
else
@@ -336,7 +338,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
String FechaIngInicio = TxtFechaInicialIngreso.Text == "" ? "-1" : TxtFechaInicialIngreso.Text;
String FechaIngFin = TxtFechaFinalIngreso.Text == "" ? "-1" : TxtFechaFinalIngreso.Text;
if (ObjGeneral.GetPaqueteriasGuias(CvePaqueteriaGuia, CvePaqueteriaGuiaTipo, CvePaqueteria, CveEstatus, CveSubProyecto, CveEmpresa, Guia, FechaInicio, FechaFin,
if (ObjGeneral.GetPaqueteriasGuias(CvePaqueteriaGuia, CvePaqueteriaGuiaTipo, CvePaqueteria, CveEstatus, CveSubProyecto, CveEmpresa, Guia, FechaInicio, FechaFin,
FechaIngInicio, FechaIngFin, Filtro: Filtro, CveUsuarioEntrega: CveUsuarioEntrega, EsEntregaInterna: ChkLote.Checked))
{
DTDatos = ObjGeneral.DtResultados;
@@ -356,7 +358,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
int CvePaqueteriaGuiaTipo = DdlTipoEditar.SelectedValue.ToEntero();
int CveEstatus = DdlEstatusEditar.SelectedValue.ToEntero();
int CveSubProyecto = DdlSucursalesEditar.SelectedValue.ToEntero();
String Guia = (TxtGuia.Text != "") ? TxtGuia.Text : "-1";
String Rastreo = TxtRastreo.Text;
String Fecha = TxtFecha.Text;
@@ -372,7 +374,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
if (ObjGeneral.UpdatePaqueteriasGuias(CvePaqueteriaGuia, CvePaqueteriaGuiaTipo, CveSubProyecto, CvePaqueteria, CveEstatus, Fecha, Rastreo, Guia, NumCajas, Peso, Dimensiones, FechaEstimada, Observaciones, ImplicaCosto))
{
if (Guia == "-1")
{
Alert(String.Format("La Guía se ha actualizado correctamente."), ModExtensiones.TipoMensaje.MsgInformacion);
@@ -486,7 +488,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
TxtPeso.Text = String.Format("{0:N3}", GvRow.DataKey("Peso").ToDouble());
TxtDimensiones.Text = GvRow.DataKey("Dimensiones");
TxtObservaciones.Text = GvRow.DataKey("Observaciones");
ChkImplicaCosto.Checked = Boolean.Parse(GvRow.DataKey("ImplicaCosto"));
Boolean mostrarDescarga = CrearArchivo(false);
@@ -494,7 +496,8 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
if (mostrarDescarga)
{
DivDownloadGuia.Visible = true;
} else
}
else
{
DivDownloadGuia.Visible = false;
}
@@ -533,9 +536,9 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
{
BtnEliminarGuia.Visible = false;
}
UPEditarGuia.Update();
this.RegistraScript("$('#DivEditarGuia').modal('show');");
}
@@ -716,7 +719,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
int EstatusEntregado = 3;
//Mandamos a actualizar solo el estatus
if (!ObjGral.UpdatePaqueteriasGuias(CvePaqueteriaGuia,-1, -1, -1, EstatusEntregado, "-1", "", "", -1, -1, "-1", "-1", ""))
if (!ObjGral.UpdatePaqueteriasGuias(CvePaqueteriaGuia, -1, -1, -1, EstatusEntregado, "-1", "", "", -1, -1, "-1", "-1", ""))
{
TieneError = true;
}
@@ -732,7 +735,8 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
if (MensajeEnviado)
{
Alert(String.Format("El Archivo ha sido guardado y el estatus de la Guía ha sido actualizado correctamente. <br><br>Correo enviado exitosamente a {0}.", Destinatario));
}else
}
else
{
Alert(String.Format("El Archivo ha sido guardado y el estatus de la Guía ha sido actualizado correctamente. <br><br>Error al Notificar al Cliente a su correo: {0}.", Destinatario));
}
@@ -777,7 +781,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
{
String path = Path.Combine(UsuarioActual.Empresa.Ruta, "Documentos", "Guias", CvePaqueteriaGuia.ToString() + ".pdf");
System.IO.FileInfo file = new System.IO.FileInfo(path);
string[] fileEntries = Directory.GetFiles(Path.Combine(UsuarioActual.Empresa.Ruta, "Documentos", "Guias"));
foreach (string fileName in fileEntries)
@@ -793,7 +797,8 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
if (descargar)
{
DescargarArchivo(file);
}else
}
else
{
if (!file.Exists)
{
@@ -813,11 +818,11 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
{
Response.Clear();
Response.AddHeader("Content-Disposition", "attachment; filename="+ String.Format("Guia {0} - {1}{2}",Paqueteria, Guia,File.Extension));
Response.AddHeader("Content-Disposition", "attachment; filename=" + String.Format("Guia {0} - {1}{2}", Paqueteria, Guia, File.Extension));
Response.AddHeader("Content-Length", File.Length.ToString());
Response.ContentType = "application/octet-stream";
Response.WriteFile(File.FullName);
Response.End();
}
catch (Exception e)
@@ -1006,7 +1011,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
SerieFolio = String.Format("{0}-{1}", DbRowVenta["Serie"].ToString(), DbRowVenta["Folio"].ToString().ToEntero());
NombreCliente = DbRowVenta["ClienteNombre"].ToString();
//Si se subio Archivo
if (!SubirArchivo)
{
@@ -1037,7 +1042,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
private string getCorreoNotificacion(int CveCliente, int CveVendedor)
{
DataRow DatosCliente = get_GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(string.Format("CveCliente = {0}",CveCliente));
DataRow DatosCliente = get_GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(string.Format("CveCliente = {0}", CveCliente));
DataRow DatosVendedor = get_GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimero(string.Format("CveVendedor = {0}", CveVendedor));
if (DatosCliente != null && DatosVendedor != null)
{
@@ -1060,11 +1065,11 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
CveVenta = GvRow.DataKey("CveAgrupador").ToString().ToEntero();
Folio = GvRow.DataKey("Folio").ToString();
}
protected void BtnReasignar_Click(object sender, EventArgs e)
{
ClsGenerales ObjGeneral = new ClsGenerales();
if (ObjGeneral.AsignarEntregasPorRealizar(CvePaqueteriaGuiaReasignar, -1, CveMotivoRechazoPaqueteria:DdlMotivoRechazoGuia.SelectedValue.ToEntero()))
if (ObjGeneral.AsignarEntregasPorRealizar(CvePaqueteriaGuiaReasignar, -1, CveMotivoRechazoPaqueteria: DdlMotivoRechazoGuia.SelectedValue.ToEntero()))
{
Alert("La guía está lista para volver a ser asignada, disponible en el reporte <a style='color:#23527c' href='/Inventarios/EntregasPorRealizar.aspx'>Entregas Por Realizar</a>");
}
@@ -1072,7 +1077,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
CargaDatos();
UPDatos.Update();
CvePaqueteriaGuiaReasignar = -1;
EnviarCorreoNotificacionEntrega(3, Folio, "","","","","",-1,null);
EnviarCorreoNotificacionEntrega(3, Folio, "", "", "", "", "", -1, null);
this.RegistraScript("$('#ModalMotivoReasignacion').modal('hide')", "hidemodal3");
}
@@ -1080,7 +1085,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
{
ClsVentas ObjVentas = new ClsVentas();
if (ObjVentas.GetVenta(CveVenta,UsuarioActual.CveEmpresa))
if (ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa))
{
DataRow row = ObjVentas.DtResultados.Rows[0];
string ClienteNombre = row["ClienteNombre"].ToString();
@@ -1122,11 +1127,11 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
strBody.Append(" <br/>");
strBody.Append(" <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>");
strBody.Append(" Agradecemos su preferencia. <br/>");
strBody.Append(" Compuproveedores");
//strBody.Append(" Compuproveedores");
strBody.Append(" </p>");
strBody.Append(" <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%;text-align:center'>");
strBody.Append(" Sigue disfrutando de nuestros productos y servicios<br/>");
strBody.Append(" <a href='https://www.compuproveedoresti.com/'>www.compuproveedores.com</a>");
//strBody.Append(" <a href='https://www.compuproveedoresti.com/'>www.compuproveedores.com</a>");
strBody.Append("");
strBody.Append(" </p>");
strBody.Append(" </body>");

86
Inicio.aspx
View File

@@ -800,7 +800,93 @@
</div>
</div>
</div>
<div id="ModalVtasPendientesxTimbrarSAT" class="modal ADS fade " role="dialog">
<div class="modal-dialog">
<!-- Modal content-->
<div class="modal-content modal-lg">
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">&times;</button>
<h4 class="modal-title">Ventas emitidas sin validar en SAT</h4>
</div>
<div class="modal-body">
<div style="text-align: right">
<input type="text" id="TxtVtasPendientesxTimbrarSAT" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtVtasPendientesxTimbrarSAT','{0}')", GVVtasPendientesxTimbrarSAT.ClientID) %>" style="display: inline-block; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtVtasPendientesxTimbrarSAT','{0}')", GVVtasPendientesxTimbrarSAT.ClientID) %>" style="margin-top: -3px; margin-left: -13px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
<asp:GridView ID="GVVtasPendientesxTimbrarSAT" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron factura canceladas pendientes"
DataKeyNames="FolioFiscal,RFCReceptor,Total"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" Style="text-align: center;" GridLines="None" Width="99%">
<Columns>
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" HeaderText="Folio Fiscal">
<ItemTemplate>
<div style="white-space: nowrap">
<asp:Label runat="server" Text='<%# Eval("FolioFiscal")%>'> </asp:Label>
</div>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField HeaderText="Cliente" DataField="Cliente" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField HeaderText="Serie Folio" DataField="SerieFolio" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField HeaderText="Importe" DataField="Total" DataFormatString="{0:N2}" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Fecha" DataField="Fecha" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Center" />
</Columns>
<RowStyle CssClass="Texto" />
<HeaderStyle CssClass="Titulos" />
</asp:GridView>
</div>
<div class="modal-footer">
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
</div>
</div>
</div>
</div>
<div id="ModalVtasPendientesxCancelarSAT" class="modal ADS fade " role="dialog">
<div class="modal-dialog">
<!-- Modal content-->
<div class="modal-content modal-lg">
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">&times;</button>
<h4 class="modal-title">Cancelaciones de ventas sin validar en SAT</h4>
</div>
<div class="modal-body">
<div style="text-align: right">
<input type="text" id="TxtCancelacionespendientesSAT" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtCancelacionespendientesSAT','{0}')", GvCancelacionespendientesSAT.ClientID) %>" style="display: inline-block; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtCancelacionespendientesSAT','{0}')", GvCancelacionespendientesSAT.ClientID) %>" style="margin-top: -3px; margin-left: -13px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
<asp:GridView ID="GvCancelacionespendientesSAT" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron factura canceladas pendientes"
DataKeyNames="FolioFiscal,RFCReceptor,Total"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" Style="text-align: center;" GridLines="None" Width="99%">
<Columns>
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" HeaderText="Folio Fiscal">
<ItemTemplate>
<div style="white-space: nowrap">
<asp:Label runat="server" Text='<%# Eval("FolioFiscal")%>'> </asp:Label>
</div>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField HeaderText="Cliente" DataField="Cliente" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField HeaderText="Serie Folio" DataField="SerieFolio" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField HeaderText="Importe" DataField="Total" DataFormatString="{0:N2}" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Fecha Cancelación" DataField="FechaCancelacion" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Center" />
</Columns>
<RowStyle CssClass="Texto" />
<HeaderStyle CssClass="Titulos" />
</asp:GridView>
</div>
<div class="modal-footer">
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
</div>
</div>
</div>
</div>
<div id="ModalMitotereCancelaPendiente" class="modal ADS fade " role="dialog">
<div class="modal-dialog">

17
Inicio.aspx.vb
View File

@@ -89,6 +89,23 @@ Partial Class Inicio
End Using
GvFoliosSAT.DataBind()
End If
If UsuarioActual.CveUsuario = 100 Then
Using objventas As New ClsVentas
If objventas.GETVentasPendientesdeTimbrar(UsuarioActual.CveEmpresa) AndAlso objventas.DtResultados.Rows.Count > 0 Then
GVVtasPendientesxTimbrarSAT.DataSource = objventas.DtResultados
GVVtasPendientesxTimbrarSAT.DataBind()
RegistraScript("$('#ModalVtasPendientesxTimbrarSAT').modal();", "tikModalVtasPendientesxTimbrarSAT")
End If
If objventas.GETVentasPendientesdeCancelar(UsuarioActual.CveEmpresa) AndAlso objventas.DtResultados.Rows.Count > 0 Then
GvCancelacionespendientesSAT.DataSource = objventas.DtResultados
GvCancelacionespendientesSAT.DataBind()
RegistraScript("$('#ModalVtasPendientesxCancelarSAT').modal();", "tikModalVtasPendientesxCancelarSAT")
End If
End Using
End If
'Reporte de ventas pendientes de cancelar
If UsuarioActual.TienePermisoProceso(288) Then
Using objventas As New ClsVentas

7
Inventarios/CatAlmacenes.aspx.vb
View File

@@ -205,11 +205,8 @@ Partial Class Inventarios_CatAlmacenes
End Sub
Private Sub RecargaGlobalAlmacenesUsuarios()
Dim ObjUsuarios As New ClsSisUsuarios
If ObjUsuarios.GetAlmacen(-1) Then
Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados
End If
ObjUsuarios.Dispose()
GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
End Sub
'Private Sub CargaSucursal()
' DtSubProyectos = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveSubProyecto =" & DdlSubProyecto.SelectedValue.ToEntero)

5
Inventarios/EntradasSalidas.aspx
View File

@@ -1063,7 +1063,8 @@
</span>
<ajax:MaskedEditExtender ID="MEFechaInv" runat="server" TargetControlID="TxtFechaInvFisico" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CalEFehcInv" TargetControlID="TxtFechaInvFisico" PopupButtonID="ImgFechaInvFisico" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:CompareValidator ID="CvFechaInv" runat="server" ControlToValidate="TxtFechaInvFisico" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="InvFisico"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="VCFechaInvFormat" runat="server" HighlightCssClass="vco" TargetControlID="CvFechaInv" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
</div>
</div>
@@ -1278,7 +1279,7 @@
<div class="modal-footer">
<div class="row">
<div class="col-md-12" style="text-align: center;">
<asp:Button ID="BtnAplicarCambioInvFisico" runat="server" CssClass="btn btn-primary" Text="Aplicar" />
<asp:Button ID="BtnAplicarCambioInvFisico" runat="server" CssClass="btn btn-primary" Text="Aplicar" ValidationGroup="InvFisico"/>
</div>
</div>
</div>

4
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -1960,6 +1960,8 @@ Partial Class Inventarios_EntradasSalidas
If DdlConcepto.Items.FindByValue("1") Is Nothing Then
DdlConcepto.Items.Insert(If(DdlConcepto.Items.Count >= 1, 1, 0), New ListItem(" Inventario Inicial ", "1"))
End If
DdlConcepto.Items.Insert(If(DdlConcepto.Items.Count >= 1, 1, 0), New ListItem(" Salida por Ajuste ", "34"))
End If
'ACTIVO FIJO
@@ -1977,7 +1979,7 @@ Partial Class Inventarios_EntradasSalidas
If DdlConcepto.Items.FindByValue("2") Is Nothing Then
DdlConcepto.Items.Insert(If(DdlConcepto.Items.Count >= 2, 2, DdlConcepto.Items.Count), New ListItem("Entrada Almacen ", "2"))
End If
DdlConcepto.Items.Insert(If(DdlConcepto.Items.Count >= 1, 1, 0), New ListItem(" Salida por Ajuste ", "34"))
End If
'[IPP]: PARCHE PARA JAM

4
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -3256,11 +3256,11 @@ Partial Class Inventarios_EntregaAlmacen
strBody.Append(" <br/>")
strBody.Append(" <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>")
strBody.Append(" Gracias por su compra <br/>")
strBody.Append(" Compuproveedores")
'strBody.Append(" Compuproveedores")
strBody.Append(" </p>")
strBody.Append(" <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%;text-align:center'>")
strBody.Append(" Sigue disfrutando de nuestros productos y servicios<br/>")
strBody.Append(" <a href='https://www.compuproveedoresti.com/'>www.compuproveedores.com</a>")
'strBody.Append(" <a href='https://www.compuproveedoresti.com/'>www.compuproveedores.com</a>")
strBody.Append("")
strBody.Append(" </p>")
strBody.Append(" </body>")

4
Inventarios/EntregasPorRealizar.aspx.cs
View File

@@ -178,11 +178,11 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas
strBody.Append(" <br/>");
strBody.Append(" <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>");
strBody.Append(" Gracias por realizar su pedido <br/>");
strBody.Append(" Compuproveedores");
//strBody.Append(" Compuproveedores");
strBody.Append(" </p>");
strBody.Append(" <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%;text-align:center'>");
strBody.Append(" Sigue disfrutando de nuestros productos y servicios<br/>");
strBody.Append(" <a href='https://www.compuproveedoresti.com/'>www.compuproveedores.com</a>");
//strBody.Append(" <a href='https://www.compuproveedoresti.com/'>www.compuproveedores.com</a>");
strBody.Append("");
strBody.Append(" </p>");
strBody.Append(" </body>");

2
Inventarios/Remanufactura.aspx.vb
View File

@@ -674,7 +674,7 @@ Partial Class Inventarios_Remanufactura
Dim CveSubProyecto = TmpDTDetalle.Rows(0)("CveSubProyecto").ToString.ToEntero
factura.CvePrePoliza = ObjConta.AddPrePolizas("Ventas/GuardarVenta", factura.CvePlantillaPoliza, factura.Total, factura.Total, factura.CveMoneda, factura.Fecha, factura.Cliente.Nombre, factura.CveUsuario, factura.CveEmpresa)
factura.CvePrePoliza = ObjConta.AddPrePolizas("Reman/GuardarVenta", factura.CvePlantillaPoliza, factura.Total, factura.Total, factura.CveMoneda, factura.Fecha, factura.Cliente.Nombre, factura.CveUsuario, factura.CveEmpresa)
If Not ObjVentas.AddVenta(factura.TipoDocto, factura.Folio, factura.CveCliente, factura.CveClienteSucursal, factura.SubTotalTC, factura.DescuentoTC,
factura.AmortizacionTC, factura.IVATC, factura.RetIVATC, factura.RetISRTC,
factura.TotalTC, factura.CveMoneda, factura.TipoCambio, factura.CveMetodoPago, factura.CondicionesPago, factura.FormaPago, factura.FechaPago, factura.Fecha, factura.MotivoDescuento,

11
Inventarios/RepMovimientos.aspx
View File

@@ -177,11 +177,12 @@
<Columns>
<asp:BoundField HeaderText="Concepto" DataField="Concepto" ItemStyle-Width="10%" />
<asp:HyperLinkField DataNavigateUrlFields="CveMovimiento" DataNavigateUrlFormatString="~/inventarios/EntradasSalidas.aspx?CveMovimiento={0}" Target="_blank" ItemStyle-Width="15%" HeaderText="Movimiento" ControlStyle-CssClass="Texto" ItemStyle-HorizontalAlign="Left" DataTextField="Folio" />
<asp:BoundField HeaderText="Almacen" DataField="Almacen" ItemStyle-Width="20%" />
<asp:BoundField HeaderText="F. Movimiento" DataField="FechaMovto" DataFormatString="{0:d}" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField HeaderText="F. Ingreso" DataField="FechaIng" DataFormatString="{0:d}" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" />
<asp:HyperLinkField DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="~/Compras/Compras.aspx?CveCompra={0}" Target="_blank" ItemStyle-Width="12.5%" HeaderText="Compra" ControlStyle-CssClass="Texto" ItemStyle-HorizontalAlign="Left" DataTextField="SerieFolioCompra" />
<asp:HyperLinkField DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="~/Ventas/Ventas.aspx?CvePS={0}" Target="_blank" ItemStyle-Width="12.5%" HeaderText="Venta" ControlStyle-CssClass="Texto" ItemStyle-HorizontalAlign="Left" DataTextField="SerieFolioVenta" />
<asp:BoundField HeaderText="Almacen" DataField="Almacen" ItemStyle-Width="10%" />
<asp:BoundField HeaderText="Observación" DataField="Observaciones" ItemStyle-Width="20%" />
<asp:BoundField HeaderText="F. Movimiento" DataField="FechaMovto" DataFormatString="{0:d}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField HeaderText="F. Ingreso" DataField="FechaIng" DataFormatString="{0:d}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center" />
<asp:HyperLinkField DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="~/Compras/Compras.aspx?CveCompra={0}" Target="_blank" ItemStyle-Width="5%" HeaderText="Compra" ControlStyle-CssClass="Texto" ItemStyle-HorizontalAlign="Left" DataTextField="SerieFolioCompra" />
<asp:HyperLinkField DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="~/Ventas/Ventas.aspx?CvePS={0}" Target="_blank" ItemStyle-Width="5%" HeaderText="Venta" ControlStyle-CssClass="Texto" ItemStyle-HorizontalAlign="Left" DataTextField="SerieFolioVenta" />
</Columns>
</asp:GridView>
</ContentTemplate>

316
Nomina/Nomina2.aspx
View File

@@ -4,6 +4,10 @@
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
<style>
td.cellFail {
color: red;
}
.addropzone {
min-height: 130px;
}
@@ -1298,7 +1302,6 @@
</div>
<div id="DmodalCompareSua" class="modal ADS fade" role="dialog">
<asp:UpdatePanel ID="UpArchivoSua" class="modal-dialog" tabindex="-1" runat="server" UpdateMode="Conditional">
<ContentTemplate>
@@ -1333,64 +1336,36 @@
<div class="portlet-title">
<div class="caption font-green">
<i class="fa fa-download font-green"></i>
<span class="caption-subject bold uppercase">Paso 2:Resultado</span>
<span class="caption-subject bold uppercase">Paso 2:Resultado (Periodo :
<asp:Literal ID="LtlPeriodo" runat="server"></asp:Literal>)</span>
</div>
<div class="tools">
<a href="javascript:;" class="expand" data-original-title="" title=""></a>
</div>
<script>
function shownew() {
setTimeout(function () {
let collapse = $('#resultadoprocesasua .collapse');
let body = $('#resultadoprocesasua .portlet-body');
if (collapse && collapse.length > 0) {
collapse.removeClass('collapse');
collapse.addClass('expand');
}
if (body && body.length > 0) {
body.css('display', 'none');
}
collapse = $('#cargaarchivoprocesasua .expand');
body = $('#cargaarchivoprocesasua .portlet-body');
if (collapse && collapse.length > 0) {
collapse.addClass('collapse');
collapse.removeClass('expand');
}
if (body && body.length > 0) {
body.css('display', '');
}
}, 400);
}
function showResult() {
setTimeout(function () {
let collapse = $('#cargaarchivoprocesasua .expand');
let body = $('#cargaarchivoprocesasua .portlet-body');
if (collapse && collapse.length > 0) {
collapse.removeClass('collapse');
collapse.addClass('expand');
}
if (body && body.length > 0) {
body.css('display', 'none');
}
collapse = $('#resultadoprocesasua .collapse');
body = $('#resultadoprocesasua .portlet-body');
if (collapse && collapse.length > 0) {
collapse.addClass('collapse');
collapse.removeClass('expand');
}
if (body && body.length > 0) {
body.css('display', '');
}
}, 400);
}
</script>
<div class="actions">
<div class="btn-group">
<asp:LinkButton ID="LnkDownExcelSua" OnClick="LnkDownExcelSua_Click" CssClass="btn btn-default" runat="server"><i class="fa fa-ad-excel"></i>Descargar</asp:LinkButton>
</div>
</div>
</div>
<div class="portlet-body rowpadding " style="display: none;">
<div style="width: 1200px; height: 350px; overflow: auto;">
<div style="width: 1200px; min-height: 340px;">
<table id="headerProcesaSUA" style="display: none">
<tr>
<th></th>
<th colspan="2">Salario</th>
<th colspan="2">Cuota Fija</th>
<th colspan="2">Cuota Excedente</th>
<th colspan="2">Prestaciones en Dinero</th>
<th colspan="2">Gastos Medicos</th>
<th colspan="2">Riesgos de Trabajo</th>
<th colspan="2">Invalidez y Vida</th>
<th colspan="2">Guarderia</th>
<th colspan="2">Retiro</th>
</tr>
</table>
<asp:GridView ID="GVProcesarSUA" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD" AutoGenerateColumns="False"
OnDataBound="GVProcesarSUA_DataBound" data-height="300"
OnRowDataBound="GVProcesarSUA_RowDataBound" data-height="300" data-tableheader="#headerProcesaSUA"
DataKeyNames="CvePersonal,CodigoNombreCompleto,CuotaFijaSUA,CuotaFijaSIG,CuotaExcedenteSUA,CuotaExcedenteSIG,PrestacionesDineroSUA,PrestacionesSIG,GastosMedPenSUA,GastosMedicosSIG,RiesgosdeTrabajoSUA,RiesgoTrabajoSIG,InvalidezyVidaSUA,InvalidezyVidaSIG,GuarderiaSUA,GuarderiaSIG,RetiroSUA,RetiroSIG,SalarioSUA,SalarioSIG">
<Columns>
<asp:TemplateField HeaderText="Nombre">
@@ -1398,148 +1373,94 @@
<asp:Label ID="lblcodigoNombreCompleto" runat="server" Text='<%# Eval("CodigoNombreCompleto")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Salario">
<asp:TemplateField HeaderText="SUA">
<ItemTemplate>
<table>
<tr class="titulorow">
<td>SUA</td>
<td>SIG</td>
</tr>
<tr class="itemrow">
<td>
<asp:Label runat="server" Text='<%# Eval("SalarioSUA","{0:N2}")%>'> </asp:Label></td>
<td>
<asp:Label runat="server" Text='<%# Eval("SalarioSIG","{0:N2}")%>'> </asp:Label></td>
</tr>
</table>
<asp:Label runat="server" Text='<%# Eval("SalarioSUA","{0:N2}")%>'> </asp:Label></td>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Cuota Fija">
<asp:TemplateField HeaderText="SIG">
<ItemTemplate>
<table>
<tr class="titulorow">
<td>SUA</td>
<td>SIG</td>
</tr>
<tr class="itemrow">
<td>
<asp:Label runat="server" Text='<%# Eval("CuotaFijaSUA","{0:N2}")%>'> </asp:Label></td>
<td>
<asp:Label runat="server" Text='<%# Eval("CuotaFijaSIG","{0:N2}")%>'> </asp:Label></td>
</tr>
</table>
<asp:Label runat="server" Text='<%# Eval("SalarioSIG","{0:N2}")%>'> </asp:Label></td>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Cuota Excedente">
<asp:TemplateField HeaderText="SUA">
<ItemTemplate>
<table>
<tr class="titulorow">
<td>SUA</td>
<td>SIG</td>
</tr>
<tr class="itemrow">
<td>
<asp:Label runat="server" Text='<%# Eval("CuotaExcedenteSUA","{0:N2}")%>'> </asp:Label></td>
<td>
<asp:Label runat="server" Text='<%# Eval("CuotaExcedenteSIG","{0:N2}")%>'> </asp:Label></td>
</tr>
</table>
<asp:Label runat="server" Text='<%# Eval("CuotaFijaSUA","{0:N2}")%>'> </asp:Label></td>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Prestaciones en Dinero">
<asp:TemplateField HeaderText="SIG">
<ItemTemplate>
<table>
<tr class="titulorow">
<td>SUA</td>
<td>SIG</td>
</tr>
<tr class="itemrow">
<td>
<asp:Label runat="server" Text='<%# Eval("PrestacionesDineroSUA","{0:N2}")%>'> </asp:Label></td>
<td>
<asp:Label runat="server" Text='<%# Eval("PrestacionesSIG","{0:N2}")%>'> </asp:Label></td>
</tr>
</table>
<asp:Label runat="server" Text='<%# Eval("CuotaFijaSIG","{0:N2}")%>'> </asp:Label></td>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Gastos Medicos">
<asp:TemplateField HeaderText="SUA">
<ItemTemplate>
<table>
<tr class="titulorow">
<td>SUA</td>
<td>SIG</td>
</tr>
<tr class="itemrow">
<td>
<asp:Label runat="server" Text='<%# Eval("GastosMedPenSUA","{0:N2}")%>'> </asp:Label></td>
<td>
<asp:Label runat="server" Text='<%# Eval("GastosMedicosSIG","{0:N2}")%>'> </asp:Label></td>
</tr>
</table>
<asp:Label runat="server" Text='<%# Eval("CuotaExcedenteSUA","{0:N2}")%>'> </asp:Label></td>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Riesgos de Trabajo">
<asp:TemplateField HeaderText="SIG">
<ItemTemplate>
<table>
<tr class="titulorow">
<td>SUA</td>
<td>SIG</td>
</tr>
<tr class="itemrow">
<td>
<asp:Label runat="server" Text='<%# Eval("RiesgosdeTrabajoSUA","{0:N2}")%>'> </asp:Label></td>
<td>
<asp:Label runat="server" Text='<%# Eval("RiesgoTrabajoSIG","{0:N2}")%>'> </asp:Label></td>
</tr>
</table>
<asp:Label runat="server" Text='<%# Eval("CuotaExcedenteSIG","{0:N2}")%>'> </asp:Label></td>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Invalidez y Vida">
<asp:TemplateField HeaderText="SUA">
<ItemTemplate>
<table>
<tr class="titulorow">
<td>SUA</td>
<td>SIG</td>
</tr>
<tr class="itemrow">
<td>
<asp:Label runat="server" Text='<%# Eval("InvalidezyVidaSUA","{0:N2}")%>'> </asp:Label></td>
<td>
<asp:Label runat="server" Text='<%# Eval("InvalidezyVidaSIG","{0:N2}")%>'> </asp:Label></td>
</tr>
</table>
<asp:Label runat="server" Text='<%# Eval("PrestacionesDineroSUA","{0:N2}")%>'> </asp:Label></td>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Guarderia">
<asp:TemplateField HeaderText="SIG">
<ItemTemplate>
<table>
<tr class="titulorow">
<td>SUA</td>
<td>SIG</td>
</tr>
<tr class="itemrow">
<td>
<asp:Label runat="server" Text='<%# Eval("GuarderiaSUA","{0:N2}")%>'> </asp:Label></td>
<td>
<asp:Label runat="server" Text='<%# Eval("GuarderiaSIG","{0:N2}")%>'> </asp:Label></td>
</tr>
</table>
<asp:Label runat="server" Text='<%# Eval("PrestacionesSIG","{0:N2}")%>'> </asp:Label></td>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Retiro">
<asp:TemplateField HeaderText="SUA">
<ItemTemplate>
<table>
<tr class="titulorow">
<td>SUA</td>
<td>SIG</td>
</tr>
<tr class="itemrow">
<td>
<asp:Label runat="server" Text='<%# Eval("RetiroSUA","{0:N2}")%>'> </asp:Label></td>
<td>
<asp:Label runat="server" Text='<%# Eval("RetiroSIG","{0:N2}")%>'> </asp:Label></td>
</tr>
</table>
<asp:Label runat="server" Text='<%# Eval("GastosMedPenSUA","{0:N2}")%>'> </asp:Label></td>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="SIG">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("GastosMedicosSIG","{0:N2}")%>'> </asp:Label></td>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="SUA">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("RiesgosdeTrabajoSUA","{0:N2}")%>'> </asp:Label></td>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="SIG">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("RiesgoTrabajoSIG","{0:N2}")%>'> </asp:Label></td>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="SUA">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("InvalidezyVidaSUA","{0:N2}")%>'> </asp:Label></td>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="SIG">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("InvalidezyVidaSIG","{0:N2}")%>'> </asp:Label></td>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="SUA">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("GuarderiaSUA","{0:N2}")%>'> </asp:Label></td>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="SIG">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("GuarderiaSIG","{0:N2}")%>'> </asp:Label></td>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="SUA">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("RetiroSUA","{0:N2}")%>'> </asp:Label></td>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="SIG">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("RetiroSIG","{0:N2}")%>'> </asp:Label></td>
</ItemTemplate>
</asp:TemplateField>
</Columns>
@@ -1556,13 +1477,13 @@
<ContentTemplate>
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
</ContentTemplate>
<%--<Triggers >
<asp:PostBackTrigger ControlID ="LnkGetTxtsSUA" />
</Triggers>--%>
</asp:UpdatePanel>
</div>
</div>
</ContentTemplate>
<Triggers>
<asp:PostBackTrigger ControlID="LnkDownExcelSua" />
</Triggers>
</asp:UpdatePanel>
</div>
<div id="DmodalGetSua" class="modal ADS fade" role="dialog">
@@ -1581,7 +1502,7 @@
<div class="col-md-6">
<div style="width: 140px; display: inline-block;">
<div class="form-group form-md-line-input">
<asp:TextBox ID="TxtFechaInicio" Enabled="false" CssClass="form-control" runat="server"></asp:TextBox>
<asp:TextBox ID="TxtFechaInicio" CssClass="form-control" runat="server"></asp:TextBox>
<asp:Label runat="server" AssociatedControlID="TxtFechaInicio">Fecha Inicio:</asp:Label>
<ajax:MaskedEditExtender ID="MEEFechaInicio" runat="server" TargetControlID="TxtFechaInicio" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CEEFechaInicio" TargetControlID="TxtFechaInicio" PopupButtonID="LnkFechaInicio" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
@@ -1599,7 +1520,7 @@
<div class="col-md-6">
<div style="width: 140px; display: inline-block;">
<div class="form-group form-md-line-input">
<asp:TextBox ID="TXTFechaFin" Enabled="false" CssClass="form-control" runat="server"></asp:TextBox>
<asp:TextBox ID="TXTFechaFin" CssClass="form-control" runat="server"></asp:TextBox>
<asp:Label runat="server" AssociatedControlID="TXTFechaFin">Fecha Inicio:</asp:Label>
<ajax:MaskedEditExtender ID="MEEFechaFin" runat="server" TargetControlID="TXTFechaFin" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CEEFechaFin" TargetControlID="TXTFechaFin" PopupButtonID="LnkFechaFin" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
@@ -1639,6 +1560,53 @@
<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
<script>
function shownew() {
setTimeout(function () {
let collapse = $('#resultadoprocesasua .collapse');
let body = $('#resultadoprocesasua .portlet-body');
if (collapse && collapse.length > 0) {
collapse.removeClass('collapse');
collapse.addClass('expand');
}
if (body && body.length > 0) {
body.css('display', 'none');
}
collapse = $('#cargaarchivoprocesasua .expand');
body = $('#cargaarchivoprocesasua .portlet-body');
if (collapse && collapse.length > 0) {
collapse.addClass('collapse');
collapse.removeClass('expand');
}
if (body && body.length > 0) {
body.css('display', '');
}
}, 400);
}
function showResult() {
setTimeout(function () {
let collapse = $('#cargaarchivoprocesasua .expand');
let body = $('#cargaarchivoprocesasua .portlet-body');
if (collapse && collapse.length > 0) {
collapse.removeClass('collapse');
collapse.addClass('expand');
}
if (body && body.length > 0) {
body.css('display', 'none');
}
collapse = $('#resultadoprocesasua .collapse');
body = $('#resultadoprocesasua .portlet-body');
if (collapse && collapse.length > 0) {
collapse.addClass('collapse');
collapse.removeClass('expand');
}
if (body && body.length > 0) {
body.css('display', '');
}
setTimeout(function () { loadadscroll(); }, 50);
}, 400);
}
function SaveCsv(filename, data) {
var blob = new Blob([data], { type: 'text/csv' });
if (window.navigator.msSaveOrOpenBlob) {

213
Nomina/Nomina2.aspx.cs
View File

@@ -52,6 +52,16 @@ public partial class Nomina_Nomina2 : ClsPaginas
set { ViewState["dtempleados"] = value; }
}
private DataTable DtSuaProcesado
{
get
{
if (ViewState["dtempleados"] == null) { return null; }
else { return (DataTable)ViewState["dtempleados"]; }
}
set { ViewState["dtempleados"] = value; }
}
protected bool PermisoCancelarEmitido
{
@@ -3841,12 +3851,12 @@ public partial class Nomina_Nomina2 : ClsPaginas
{
TxtArchivoSua.Text = "";
GVProcesarSUA.DataSource = null;
GVProcesarSUA.DataBind();
GVProcesarSUA.DataBind();
RegistraScript("$('#DmodalCompareSua').modal();shownew();");
UpArchivoSua.Update();
}
protected void LnkUpSuaFile_Click(object sender, EventArgs e)
{
{
string fileurl = "";
GVProcesarSUA.DataSource = null;
Files archivos = TxtArchivoSua.getfiles();
@@ -3858,7 +3868,14 @@ public partial class Nomina_Nomina2 : ClsPaginas
{
if (ObjPersonal.ProcesarSUA(SuaFiletext, UsuarioActual.CveEmpresa))
{
GVProcesarSUA.DataSource = ObjPersonal.DTSetResultados.Tables[3];
if (ObjPersonal.DTSetResultados.Tables.Count > 4)
{
DateTime dateperiodo;
DateTime.TryParseExact( string.Format ("{0}01",ObjPersonal.DTSetResultados.Tables[1].Rows[0]["Periodo"]), "yyyyMMdd", new System.Globalization.CultureInfo("es-MX"), System.Globalization.DateTimeStyles.None,out dateperiodo);
LtlPeriodo.Text = dateperiodo.Date.ToString("MMMM yyyy", new System.Globalization.CultureInfo("es-MX"));
DtSuaProcesado = ObjPersonal.DTSetResultados.Tables[3];
GVProcesarSUA.DataSource = ObjPersonal.DTSetResultados.Tables[3];
}
}
}
@@ -3870,8 +3887,196 @@ public partial class Nomina_Nomina2 : ClsPaginas
}
protected void GVProcesarSUA_DataBound(object sender, EventArgs e)
protected void GVProcesarSUA_RowDataBound(object sender, GridViewRowEventArgs e)
{
if (e.Row.RowType == DataControlRowType.DataRow)
{
string SalarioSUA = string.Format("{0:N2}", e.Row.DataKey("SalarioSUA").ToDecimal());
string SalarioSIG = string.Format("{0:N2}", e.Row.DataKey("SalarioSIG").ToDecimal());
int celda = 1;
if (SalarioSUA != SalarioSIG)
{
e.Row.Cells[celda].CssClass = "cellFail";
e.Row.Cells[celda + 1].CssClass = "cellFail";
}
celda = celda + 2;
string CuotaFijaSUA = string.Format("{0:N2}", e.Row.DataKey("CuotaFijaSUA").ToDecimal());
string CuotaFijaSIG = string.Format("{0:N2}", e.Row.DataKey("CuotaFijaSIG").ToDecimal());
if (CuotaFijaSUA != CuotaFijaSIG)
{
e.Row.Cells[celda].CssClass = "cellFail";
e.Row.Cells[celda + 1].CssClass = "cellFail";
}
celda = celda + 2;
string CuotaExcedenteSUA = string.Format("{0:N2}", e.Row.DataKey("CuotaExcedenteSUA").ToDecimal());
string CuotaExcedenteSIG = string.Format("{0:N2}", e.Row.DataKey("CuotaExcedenteSIG").ToDecimal());
if (CuotaExcedenteSUA != CuotaExcedenteSIG)
{
e.Row.Cells[celda].CssClass = "cellFail";
e.Row.Cells[celda + 1].CssClass = "cellFail";
}
celda = celda + 2;
string PrestacionesDineroSUA = string.Format("{0:N2}", e.Row.DataKey("PrestacionesDineroSUA").ToDecimal());
string PrestacionesSIG = string.Format("{0:N2}", e.Row.DataKey("PrestacionesSIG").ToDecimal());
if (PrestacionesDineroSUA != PrestacionesSIG)
{
e.Row.Cells[celda].CssClass = "cellFail";
e.Row.Cells[celda + 1].CssClass = "cellFail";
}
celda = celda + 2;
string GastosMedPenSUA = string.Format("{0:N2}", e.Row.DataKey("GastosMedPenSUA").ToDecimal());
string GastosMedicosSIG = string.Format("{0:N2}", e.Row.DataKey("GastosMedicosSIG").ToDecimal());
if (GastosMedPenSUA != GastosMedicosSIG)
{
e.Row.Cells[celda].CssClass = "cellFail";
e.Row.Cells[celda + 1].CssClass = "cellFail";
}
celda = celda + 2;
string RiesgosdeTrabajoSUA = string.Format("{0:N2}", e.Row.DataKey("RiesgosdeTrabajoSUA").ToDecimal());
string RiesgoTrabajoSIG = string.Format("{0:N2}", e.Row.DataKey("RiesgoTrabajoSIG").ToDecimal());
if (RiesgosdeTrabajoSUA != RiesgoTrabajoSIG)
{
e.Row.Cells[celda].CssClass = "cellFail";
e.Row.Cells[celda + 1].CssClass = "cellFail";
}
celda = celda + 2;
string InvalidezyVidaSUA = string.Format("{0:N2}", e.Row.DataKey("InvalidezyVidaSUA").ToDecimal());
string InvalidezyVidaSIG = string.Format("{0:N2}", e.Row.DataKey("InvalidezyVidaSIG").ToDecimal());
if (InvalidezyVidaSUA != InvalidezyVidaSIG)
{
e.Row.Cells[celda].CssClass = "cellFail";
e.Row.Cells[celda + 1].CssClass = "cellFail";
}
celda = celda + 2;
string GuarderiaSUA = string.Format("{0:N2}", e.Row.DataKey("GuarderiaSUA").ToDecimal());
string GuarderiaSIG = string.Format("{0:N2}", e.Row.DataKey("GuarderiaSIG").ToDecimal());
if (GuarderiaSUA != GuarderiaSIG)
{
e.Row.Cells[celda].CssClass = "cellFail";
e.Row.Cells[celda + 1].CssClass = "cellFail";
}
celda = celda + 2;
string RetiroSUA = string.Format("{0:N2}", e.Row.DataKey("RetiroSUA").ToDecimal());
string RetiroSIG = string.Format("{0:N2}", e.Row.DataKey("RetiroSIG").ToDecimal());
if (RetiroSUA != RetiroSIG)
{
e.Row.Cells[celda].CssClass = "cellFail";
e.Row.Cells[celda + 1].CssClass = "cellFail";
}
}
}
protected void LnkDownExcelSua_Click(object sender, EventArgs e)
{
ClosedXML.Excel.XLWorkbook wb = new ClosedXML.Excel.XLWorkbook();
var libro = wb.AddWorksheet("SUA");
int Fila = 1;
libro.Column(1).Width = 50;
ClosedXML.Excel.IXLRange range = libro.Range(Fila, 2, Fila, 3);
range.Merge();
range.Value = "Salario";
range = libro.Range(Fila,4, Fila, 5);
range.Merge();
range.Value = "Cuota Fija";
range = libro.Range(Fila, 6, Fila,7 );
range.Merge();
range.Value = "Cuota Excedente";
range = libro.Range(Fila,8, Fila, 9);
range.Merge();
range.Value = "Prestaciones en Dinero";
range = libro.Range(Fila, 10, Fila,11 );
range.Merge();
range.Value = "Gastos Medicos";
range = libro.Range(Fila, 12, Fila, 13);
range.Merge();
range.Value = "Riesgos de Trabajo";
range = libro.Range(Fila, 14, Fila,15 );
range.Merge();
range.Value = "Invalidez y Vida";
range = libro.Range(Fila,16 , Fila, 17);
range.Merge();
range.Value = "Guarderia";
range = libro.Range(Fila, 18, Fila, 19);
range.Merge();
range.Value = "Retiro";
Fila = Fila + 1;
libro.Cell(Fila, 1).Value = "Empleado";
libro.Cell(Fila, 2).Value = "SUA"; //SalarioSUA
libro.Cell(Fila, 3).Value = "SIG";//SalarioSIG
libro.Cell(Fila, 4).Value = "SUA";//CuotaFijaSUA
libro.Cell(Fila, 5).Value = "SIG";//CuotaFijaSIG
libro.Cell(Fila, 6).Value = "SUA";//CuotaExcedenteSUA
libro.Cell(Fila, 7).Value = "SIG";//CuotaExcedenteSIG
libro.Cell(Fila, 8).Value = "SUA";//PrestacionesDineroSUA
libro.Cell(Fila, 9).Value = "SIG";//PrestacionesSIG
libro.Cell(Fila, 10 ).Value = "SUA";//GastosMedPenSUA
libro.Cell(Fila, 11 ).Value = "SIG";//GastosMedicosSIG
libro.Cell(Fila, 12 ).Value = "SUA";//RiesgosdeTrabajoSUA
libro.Cell(Fila, 13 ).Value = "SIG";//RiesgoTrabajoSIG
libro.Cell(Fila, 14 ).Value = "SUA";//InvalidezyVidaSUA
libro.Cell(Fila, 15 ).Value = "SIG";//InvalidezyVidaSIG
libro.Cell(Fila, 16 ).Value = "SUA";//GuarderiaSUA
libro.Cell(Fila, 17 ).Value = "SIG";//GuarderiaSIG
libro.Cell(Fila, 18 ).Value = "SUA";//RetiroSUA
libro.Cell(Fila, 19 ).Value = "SIG";//RetiroSIG
libro.Cell(1, 1).Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
libro.Cell(1, 1).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
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));
libro.Row(2).CellsUsed().Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
libro.Row(2).CellsUsed().Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
foreach (DataRow erow in DtSuaProcesado.Rows)
{
Fila++;
libro.Cell(Fila, 1).Value = erow["CodigoNombreCompleto"];
libro.Cell(Fila, 2).Value = string.Format("{0:N2}",erow["SalarioSUA"]);
libro.Cell(Fila, 3).Value = string.Format("{0:N2}",erow["SalarioSIG"]);
libro.Cell(Fila, 4).Value = string.Format("{0:N2}",erow["CuotaFijaSUA"]);
libro.Cell(Fila, 5).Value = string.Format("{0:N2}", erow["CuotaFijaSIG"]);
libro.Cell(Fila, 6).Value = string.Format("{0:N2}",erow["CuotaExcedenteSUA"]);
libro.Cell(Fila, 7).Value = string.Format("{0:N2}",erow["CuotaExcedenteSIG"]);
libro.Cell(Fila, 8).Value = string.Format("{0:N2}",erow["PrestacionesDineroSUA"]);
libro.Cell(Fila, 9).Value = string.Format("{0:N2}",erow["PrestacionesSIG"]);
libro.Cell(Fila, 10).Value = string.Format("{0:N2}",erow["GastosMedPenSUA"]);
libro.Cell(Fila, 11).Value = string.Format("{0:N2}",erow["GastosMedicosSIG"]);
libro.Cell(Fila, 12).Value = string.Format("{0:N2}",erow["RiesgosdeTrabajoSUA"]);
libro.Cell(Fila, 13).Value = string.Format("{0:N2}",erow["RiesgoTrabajoSIG"]);
libro.Cell(Fila, 14).Value = string.Format("{0:N2}",erow["InvalidezyVidaSUA"]);
libro.Cell(Fila, 15).Value = string.Format("{0:N2}",erow["InvalidezyVidaSIG"]);
libro.Cell(Fila, 16).Value = string.Format("{0:N2}",erow["GuarderiaSUA"]);
libro.Cell(Fila, 17).Value = string.Format("{0:N2}",erow["GuarderiaSIG"]);
libro.Cell(Fila, 18).Value = string.Format("{0:N2}",erow["RetiroSUA"]);
libro.Cell(Fila, 19).Value = string.Format("{0:N2}",erow["RetiroSIG"]);
}
//libro.Row(2).SetAutoFilter();
System.IO.Stream fs = new System.IO.MemoryStream();
wb.SaveAs(fs);
fs.Position = 0;
System.IO.MemoryStream memoryStream = new System.IO.MemoryStream();
using (System.IO.Stream input = fs)
{
input.CopyTo(memoryStream);
}
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", "FormatoCargaNominas"));
Response.BinaryWrite(memoryStream.ToArray());
Response.End();
}
}

2
OC/RepOCSinFactura.aspx
View File

@@ -26,7 +26,7 @@
<div class="row">
<label class="col-md-1 truncate">Sucursal:</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlSucursal" runat="server" AppendDataBoundItems="true" DataTextField="Sucursal" DataValueField="CveSucursal" CssClass="form-control input-sm select2me">
<asp:DropDownList ID="DdlSucursal" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me">
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div>

2
OC/RepOCSinFactura.aspx.vb
View File

@@ -17,7 +17,7 @@ Partial Class OC_RepOCSinFactura
Private Sub CargaCombos()
'CargaSucursales
DdlSucursal.DataSource = GlobalDTSucursales.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlSucursal.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSucursal.DataBind()
'Vendedor

2
PortalCliente/PortalCliente.aspx.vb
View File

@@ -3449,7 +3449,7 @@ Partial Class Ventas_PortalCliente
Dim EsDevolucionVenta = -1
Dim TotalImpuestoLocal As Double = 0
factura.CvePrePoliza = ObjConta.AddPrePolizas("Ventas/GuardarVenta", factura.CvePlantillaPoliza, factura.Total, factura.Total, factura.CveMoneda, factura.Fecha, factura.Cliente.Nombre, factura.CveUsuario, factura.CveEmpresa)
factura.CvePrePoliza = ObjConta.AddPrePolizas("PortalC/GuardarVenta", factura.CvePlantillaPoliza, factura.Total, factura.Total, factura.CveMoneda, factura.Fecha, factura.Cliente.Nombre, factura.CveUsuario, factura.CveEmpresa)
If Not ObjVentas.AddVenta(factura.TipoDocto, factura.Folio, factura.CveCliente, factura.CveClienteSucursal, factura.SubTotalTC, factura.DescuentoTC,
factura.AmortizacionTC, factura.IVATC, factura.RetIVATC, factura.RetISRTC,
factura.TotalTC, factura.CveMoneda, factura.TipoCambio, factura.CveMetodoPago, factura.CondicionesPago, factura.FormaPago, factura.FechaPago, factura.Fecha, factura.MotivoDescuento,

26
RH/Personal.aspx
View File

@@ -1314,27 +1314,27 @@
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtSalarioDiario" runat="server" MaxLength="10"></asp:TextBox>
<asp:Label runat="server" AssociatedControlID="TxtSalarioDiario" Text="Salario Diario (SDD):"></asp:Label>
<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>
<i></i>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtSDI" runat="server" MaxLength="10"></asp:TextBox>
<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>
<i></i>
</div>
<div class="form-group form-md-line-input input-iconright" style="display: none;">
<asp:TextBox CssClass="form-control" ID="TxtSalarioDiarioPago" runat="server" MaxLength="10"></asp:TextBox>
<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>
<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" runat="server" MaxLength="10"></asp:TextBox>
<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>
@@ -1343,20 +1343,20 @@
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtBono" runat="server" MaxLength="10" Text="0"></asp:TextBox>
<label for="<%= TxtBono.ClientID.ToString()%>">Bono: </label>
<asp:Label runat="server" AssociatedControlID="TxtBono" Text="Bono:"></asp:Label>
<asp:CompareValidator ID="CVBono" runat="server" ControlToValidate="TxtBono" CssClass="help-block errorimput" ErrorMessage="El campo <b>''Bono''</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="TxtNumDiasAguinaldo" runat="server" MaxLength="10"></asp:TextBox>
<label for="<%= TxtNumDiasAguinaldo.ClientID.ToString()%>">Número de días Aguinaldo: </label>
<asp:Label runat="server" AssociatedControlID="TxtNumDiasAguinaldo" Text="Número de días Aguinaldo:"></asp:Label>
<i></i>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtPorPrimaVacacional" runat="server" MaxLength="10"></asp:TextBox>
<label for="<%= TxtPorPrimaVacacional.ClientID.ToString()%>">Prima Vacacional: </label>
<asp:Label runat="server" AssociatedControlID="TxtPorPrimaVacacional" Text="Prima Vacacional:"></asp:Label>
<i>%</i>
</div>
@@ -1364,8 +1364,7 @@
<asp:DropDownList ID="DdlMetodoPago" runat="server" AppendDataBoundItems="true" CausesValidation="true" CssClass="form-control input-sm select2me" DataTextField="MetodoPago" DataValueField="CveMetodoPago" ValidationGroup="GrpGuardar">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
<label for="<%= DdlMetodoPago.ClientID.ToString()%>">Método de Pago: </label>
<asp:Label runat="server" AssociatedControlID="DdlMetodoPago" Text="Método de Pago:"></asp:Label>
<asp:RequiredFieldValidator ID="RFVMetodoPago" runat="server" ControlToValidate="DdlMetodoPago" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Método de Pago''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<i></i>
</div>
@@ -1373,22 +1372,19 @@
<asp:DropDownList ID="DdlBanco" runat="server" AppendDataBoundItems="true" DataTextField="Banco" DataValueField="CveSATBanco" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
<asp:ListItem Selected="True" Text="Sin asignar Banco" Value="-1"></asp:ListItem>
</asp:DropDownList>
<label for="<%= DdlBanco.ClientID.ToString()%>">Banco: </label>
<asp:Label runat="server" AssociatedControlID="DdlBanco" Text="Banco:"></asp:Label>
<i></i>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtBancoNumCuenta" runat="server"></asp:TextBox>
<label for="<%= TxtBancoNumCuenta.ClientID.ToString()%>"># Cuenta: </label>
<asp:Label runat="server" AssociatedControlID="TxtBancoNumCuenta" Text="Cuenta:"></asp:Label>
<i></i>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtCLABE" runat="server" MaxLength="20"></asp:TextBox>
<label for="<%= TxtCLABE.ClientID.ToString()%>">CLABE: </label>
<asp:Label runat="server" AssociatedControlID="TxtCLABE" Text="CLABE:"></asp:Label>
<i></i>
</div>
</div>
</div>
</div>

2
RH/RepDocumentacionVencida.aspx
View File

@@ -198,7 +198,7 @@
<div class="col-md-1 truncate">Sucursal</div>
<div class="col-md-1">
<asp:DropDownList ID="DDLSucursal" runat="server" DataTextField="Sucursal" DataValueField="CveSucursal" CssClass="form-control input-sm select2me js-referencia-programmatic marginFixRow" Width="150px">
<asp:DropDownList ID="DDLSucursal" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me js-referencia-programmatic marginFixRow" Width="150px">
</asp:DropDownList>
<asp:RequiredFieldValidator InitialValue="-1" ID="RequiredFieldValidator1" CssClass="help-block errorimput" ControlToValidate="DDLSucursal"
ValidationGroup="registro" runat="server" Text="*" ErrorMessage="Seleccione una de las opciones"></asp:RequiredFieldValidator>

2
RH/RepDocumentacionVencida.aspx.vb
View File

@@ -87,7 +87,7 @@ Partial Class RH_RepDocumentacionVencida
DDLSucursal.DataSource = GlobalDTSubProyectos(UsuarioActual.Empresa.CveEmpresa)
DDLSucursal.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
DDLSucursal.DataBind()
DDLSucursal.Items.Insert(0, New ListItem("Todos", "-1"))
If UsuarioActual.CveSucursal > 0 Then

18
Scripts/custom.js
View File

@@ -136,8 +136,8 @@ function buscadorMenuCaudi() {
$('ul#ulmenulateralmaster li.sidebar-toggler-wrapper').append(buscador);
let tickBar = 0;
let input = $('#' + idTxtMaster)
function BuscarMenu() {
let input = $('#' + idTxtMaster);
let BuscarMenu =function() {
tickBar = tickBar + 1;
tickBarnew = tickBar;
@@ -232,7 +232,7 @@ setchecktotag = function () {
$(mychecktotag.get(i)).css({ "display": "none" });
}
}
}
};
setswitch = function () {
if ($("span.make-switchsd input")) {
var mycheckswitch = $("span.make-switchsd input");
@@ -304,7 +304,7 @@ setswitch = function () {
mdspan.append(mdlbel);
}
}
}
};
function ADScroller2() {
$('table.ADSCROLLER2').each(function () {
@@ -738,14 +738,14 @@ ADSScroll = function (tablescroll) {
});
}
sort = false;
let divcontainer = $('<div class="ADScroller"></div>')
let divcontainer = $('<div class="ADScroller"></div>');
let divbody = $('<div class="ADScroller-body"></div>');
let divheader = $('<div class="ADScroller-header"></div>');
let divfooter = $('<div class="ADScroller-footer"></div>');
let tableheader = $('<table></table>').append($('<tbody></tbody>'));
tableheader.attr('id', 'ADSH-' + tablescroll.attr('id'))
tableheader.attr('id', 'ADSH-' + tablescroll.attr('id'));
let tablefooter = $('<table></table>').append($('<tbody></tbody>'));
tablefooter.attr('id', 'ADSF-' + tablescroll.attr('id'))
tablefooter.attr('id', 'ADSF-' + tablescroll.attr('id'));
let trWwidth = $('<tr class="trnopadding ADtr SearchADHeader"></tr>');
let idTheader = tablescroll.data('tableheader');
let rowVisibles = isNaN(Number(tablescroll.data('rows'))) ? 1 : Number(tablescroll.data('rows'));
@@ -768,7 +768,7 @@ ADSScroll = function (tablescroll) {
if (sort) {
trWwidth.addClass('TRSort');
}
tablescroll.removeClass("ScrollAD")
tablescroll.removeClass("ScrollAD");
tableheader.addClass(tablescroll.attr('class')).removeClass("table-advance");
tableheader.attr('style', tablescroll.attr('style'));
tablefooter.addClass(tablescroll.attr('class')).removeClass("table-advance");
@@ -782,7 +782,7 @@ ADSScroll = function (tablescroll) {
rowVisibles += 1;
});
} else {
log("Tabla titulo No encontrada '" + idTheader + "'.")
log("Tabla titulo No encontrada '" + idTheader + "'.");
}
}
let firsttr = null;

12
Sistemas/CatSesiones.aspx.vb
View File

@@ -153,9 +153,10 @@ Partial Class Sistemas_CatSesiones
Private Sub CargaAlmacenUsuarios()
Dim Obj As New ClsSisUsuarios
If Obj.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = Obj.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
Obj.Dispose()
GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
'Dim Obj As New ClsSisUsuarios
'If Obj.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = Obj.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
'Obj.Dispose()
End Sub
Private Sub CargaClientes()
@@ -267,8 +268,9 @@ Partial Class Sistemas_CatSesiones
Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados
Else
Application("GlobalDTUsuarios") = Nothing
End If
If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
End If
GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
'If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
ObjUsuarios.Dispose()
'Fin Carga Usuarios
End Sub

4
Sistemas/UsuarioDetalle.aspx.vb
View File

@@ -1323,7 +1323,7 @@ Partial Class Sistemas_UsuarioDetalle
'RECARGA GLOBAL ALMACEN
If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
If ObjUsuarios.GetAlmacen(-1, UsuarioActual.CveEmpresa) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
'RECARGA GLOBAL EMPRESAS USUARIOS
@@ -2068,7 +2068,7 @@ Partial Class Sistemas_UsuarioDetalle
Private Sub CargaDtAlmacen()
Dim ClsUsuarios As New ClsSisUsuarios
If ClsUsuarios.GetAlmacen(CveUsuario) Then
If ClsUsuarios.GetAlmacen(CveUsuario, UsuarioActual.CveEmpresa) Then
DtAlmacenes = ClsUsuarios.DtResultados.FiltraParametros(String.Format("CveUsuario = {0}", CveUsuario))
Else
DtAlmacenes = Nothing

57
Site.master
View File

@@ -666,6 +666,63 @@
<!-- END FOOTER -->
<!-- END JAVASCRIPTS -->
<asp:panel runat="server" id="pnlNotificacionSAT" Visible="false" CssClass="modal ADS fade" role="dialog">
<asp:UpdatePanel ID="UpNotificacionesFoliosSAT" 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">&times;</span>
</button>
<h4 class="modal-title" runat="server" style="text-align: left">Folios descargados</h4>
</div>
<div class="modal-body" style="min-width:1000px;">
<asp:TextBox ID="TxtCveNotisat" CssClass="hidden" runat="server"></asp:TextBox><asp:Button ID="btnoknotisat" OnClick="btnoknotisat_Click" CssClass="hidden" runat="server" Text="Button" />
<asp:GridView ID="GVnotiFoliosSAT" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall GVFoliosSAT" AutoGenerateColumns="False"
DataKeyNames="UUID" data-sort="2">
<Columns>
<asp:TemplateField HeaderText="Folio Fiscal ">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("UUID")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Tipo Comprobante">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("TipoComprobante")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="RFC">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("RFCDe")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Serie - Folio ">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("SerieFolio")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Fecha">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("FechaFactura","{0: dd/MM/yyyy}")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("Total","{0:N2}")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</div>
<div class="modal-footer">
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</asp:panel>
<div id="pogresspostback" class="hidden" style="z-index: 10000;" runat="server">
<div style="width: 200px; position: absolute; margin: 0 0 0 -100px; top: 50%; left: 50%; background-color: transparent;">
<div class="loading-spinner" style="width: 300px;">

25
Site.master.vb
View File

@@ -448,7 +448,21 @@ Partial Class Site
End If
OC.Dispose()
End If
If UsuarioActual.TienePermisoProceso(303) Then
Using objgen As New ClsGenerales
pnlNotificacionSAT.Visible = True
objgen.SAT_DescargaSolicitudesAddNotificacionesCOUNT(UsuarioActual.CveEmpresa)
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)) '
countNotificaciones = countNotificaciones + 1
End If
Next
End If
End Using
End If
''OC Pendientes por atender
'Dim OC As New ClsOC
@@ -527,6 +541,17 @@ Partial Class Site
#End Region
Protected Sub btnoknotisat_Click(sender As Object, e As EventArgs)
GVnotiFoliosSAT.DataSource = New DataTable()
Using objgen As New ClsGenerales
objgen.SAT_DescargaSolicitudesAddNotificaciones(UsuarioActual.CveEmpresa, TxtCveNotisat.Text.ToEntero())
GVnotiFoliosSAT.DataSource = objgen.DtResultados
End Using
GVnotiFoliosSAT.DataBind()
UpNotificacionesFoliosSAT.Update()
RegistraScript(String.Format("$('#{0}').modal();", pnlNotificacionSAT.ClientID))
End Sub
End Class
Public Class TipoCambioActual
Public Fecha As Date

2
SiteGPS.master
View File

@@ -8,7 +8,7 @@
<!-- BEGIN HEAD -->
<head runat="server" id="HeadAD">
<meta charset="utf-8" />
<title>SIG GPS</title>
<title>SIGNAL GPS</title>
<meta http-equiv="X-UA-Compatible" content="IE=edge">
<meta content="width=device-width, initial-scale=1" name="viewport" />
<meta content="Preview page of Metronic Admin Theme #3 for " name="description" />

114
TareasProgramadas/Tareas119.ashx
View File

@@ -10,6 +10,7 @@ using System.Web.Services.Protocols;
using GemBox.Spreadsheet;
using System.Data;
using System.Text;
using System.Collections.Generic;
public class TareasJam : IHttpHandler
{
@@ -57,9 +58,21 @@ public class TareasJam : IHttpHandler
DataTable DTClientes = new DataTable();
DataTable DTAlmacenes = new DataTable();
string FTPServer = "ftp://127.0.0.1/";
string TFPUsr = "Toor";
string FTPPass = "agj-3500";
string RutaProductos = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Productos{DateTime.Now.ToString("yyyyMMdd")}.xlsx";
string RutaVentas = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Ventas{DateTime.Now.ToString("yyyyMMdd")}.xlsx";
string RutaClientes = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Clientes{DateTime.Now.ToString("yyyyMMdd")}.xlsx";
string RutaAlmacenes = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Almacenes{DateTime.Now.ToString("yyyyMMdd")}.xlsx";
//"ftp://us2.hostedftp.com/", "agrojam", "A12345678";
//string FTPServer = "ftp://127.0.0.1/";
//string TFPUsr = "Toor";
//string FTPPass = "agj-3500";
string FTPServer = "ftp://us2.hostedftp.com";
string TFPUsr = "agrojam";
string FTPPass = "A12345678";
bool ErrorProceso = false;
@@ -131,13 +144,58 @@ public class TareasJam : IHttpHandler
DTClientes.Columns[7].ColumnName = "address.street1";
DTClientes.Columns[8].ColumnName = "address.street2";
DTClientes.Columns[9].ColumnName = "address.postalCode";
DTClientes.Columns[9].ColumnName = "phone.intCode";
DTClientes.Columns[9].ColumnName = "phone.areaCode";
DTClientes.Columns[9].ColumnName = "phone.number";
DTClientes.Dispose();
DTClientes.Columns[10].ColumnName = "phone.intCode";
DTClientes.Columns[11].ColumnName = "phone.areaCode";
DTClientes.Columns[12].ColumnName = "phone.number";
DTClientes.Columns.RemoveAt(12);
DTClientes.Columns.RemoveAt(11);
DTClientes.Columns.RemoveAt(10);
DTClientes.Columns.RemoveAt(8);
DTClientes.Columns.RemoveAt(7);
DTClientes.AcceptChanges();
DTVentas.Columns.RemoveAt(7);
DTVentas.Columns.RemoveAt(6);
DTVentas.AcceptChanges();
DataTable dtCloned = DTVentas.Clone();
dtCloned.Columns[3].DataType = typeof(string);
foreach (DataRow row in DTVentas.Rows)
{
dtCloned.ImportRow(row);
}
DTVentas = dtCloned;
foreach(DataRow dRow in DTVentas.Rows)
{
string tmpString = dRow[3].ToString().ToDate().ToString("yyyy/MM/dd");
dRow[3] = tmpString;
}
DTVentas.AcceptChanges();
dtCloned = DTAlmacenes.Clone();
dtCloned.Columns[3].DataType = typeof(string);
foreach (DataRow row in DTAlmacenes.Rows)
{
dtCloned.ImportRow(row);
}
DTAlmacenes = dtCloned;
foreach(DataRow dRow in DTAlmacenes.Rows)
{
string tmpString = dRow[3].ToString().ToDate().ToString("yyyy/MM/dd");
dRow[3] = tmpString;
}
DTAlmacenes.AcceptChanges();
}
catch (Exception e)
{
@@ -152,10 +210,7 @@ public class TareasJam : IHttpHandler
if (!ErrorProceso)
{
string RutaProductos = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Productos{DateTime.Now.ToString("yyyyMMdd")}.xlsx";
string RutaVentas = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Ventas{DateTime.Now.ToString("yyyyMMdd")}.xlsx";
string RutaClientes = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Clientes{DateTime.Now.ToString("yyyyMMdd")}.xlsx";
string RutaAlmacenes = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Almacenes{DateTime.Now.ToString("yyyyMMdd")}.xlsx";
SpreadsheetInfo.SetLicense(Extensiones.ModExtensiones.SerialGemBoxSpreadsheet());
@@ -299,24 +354,53 @@ public class TareasJam : IHttpHandler
string Cuerpo = Respuesta ? $"<b>Correcto</b><br>Tarea de carga de archios Corteva realizada correctamente<br> {SBLog.ToString()}" : $"<b>Error</b><br> Error tarea de carga de archios Corteva<br> {SBLog.ToString()}" ;
MandaCorreo(Cuerpo, Respuesta);
MandaCorreo(Cuerpo, Respuesta, RutaProductos, RutaVentas, RutaClientes, RutaAlmacenes);
return Respuesta;
}
private void MandaCorreo(string Cuerpo, bool ErrorProceso)
private void MandaCorreo(string Cuerpo, bool ErrorProceso, string RutaProductos, string RutaVentas, string RutaClientes, string RutaAlmacenes)
{
try
{
List<ClsSisMail.ArchivoMail> ListaArchivos = new List<ClsSisMail.ArchivoMail>();
ClsSisMail.ArchivoMail Productos = new ClsSisMail.ArchivoMail();
ClsSisMail.ArchivoMail Ventas = new ClsSisMail.ArchivoMail();
ClsSisMail.ArchivoMail Clientes = new ClsSisMail.ArchivoMail();
ClsSisMail.ArchivoMail Almacenes = new ClsSisMail.ArchivoMail();
Productos.Ruta = RutaProductos;
Ventas.Ruta = RutaVentas;
Clientes.Ruta = RutaClientes;
Almacenes.Ruta = RutaAlmacenes;
//FileInfo FIp = new FileInfo(RutaProductos);
//FileInfo FIv = new FileInfo(RutaVentas);
//FileInfo FIc = new FileInfo(RutaClientes);
//FileInfo FIa = new FileInfo(RutaAlmacenes);
ListaArchivos.Add(Productos);
ListaArchivos.Add(Ventas);
ListaArchivos.Add(Clientes);
ListaArchivos.Add(Almacenes);
ClsSisMail Correo = new ClsSisMail();
string Para = "julian@adssistemas.mx;rene.molina@adssistemas.mx;oscar.irigoyen@adssistemas.mx";
//string Para = "oscar.irigoyen@adssistemas.mx";
// string Para = "oscar.irigoyen@adssistemas.mx";
string Asunto = ErrorProceso ? $"Carga Layout Corteva {DateTime.Now.ToString("yyyy-MM-dd")}" : $"Carga Layout Corteva Error {DateTime.Now.ToString("yyyy-MM-dd")}";
Correo.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Cuerpo);
Correo.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Cuerpo, Archivos:ListaArchivos);
}catch(Exception ex)
{

4
Ventas/CatMesas.aspx
View File

@@ -60,7 +60,7 @@
</thead>
<tr>
<td style="text-align: center">
<asp:DropDownList ID="ddlSucursal" runat="server" DataValueField="CveSucursal" DataTextField="Sucursal" Width="134px" AutoPostBack="true"></asp:DropDownList>
<asp:DropDownList ID="ddlSucursal" runat="server" DataValueField="CveSubProyecto" DataTextField="SubProyecto" Width="134px" AutoPostBack="true"></asp:DropDownList>
<asp:RangeValidator ID="RVSucursal" runat="server" ControlToValidate="ddlSucursal" Display="None" Type="Integer" MinimumValue="1" MaximumValue="2147483647" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sucursal''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RangeValidator>
<ajax:ValidatorCalloutExtender ID="VCESucursal" runat="server" HighlightCssClass="vco" TargetControlID="RVSucursal" Width="300px"></ajax:ValidatorCalloutExtender>
</td>
@@ -88,7 +88,7 @@
<asp:Literal ID="LtlSucursal" runat="server" Text='<%# Eval("Sucursal", "&nbsp;{0}") %>'></asp:Literal>
</ItemTemplate>
<EditItemTemplate>
<asp:DropDownList ID="ddlSucursal" runat="server" Width="134" DataValueField="CveSucursal" DataTextField="Sucursal"></asp:DropDownList>
<asp:DropDownList ID="ddlSucursal" runat="server" Width="134" DataValueField="CveSubProyecto" DataTextField="SubProyecto"></asp:DropDownList>
</EditItemTemplate>
</asp:TemplateField>
<asp:TemplateField>

4
Ventas/CatMesas.aspx.vb
View File

@@ -42,7 +42,7 @@ Partial Class Ventas_CatMesas
End Sub
Public Sub CargaSucursales()
ddlSucursal.DataSource = GlobalDTSucursales().FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
ddlSucursal.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
ddlSucursal.DataBind()
ddlSucursal.Items.Insert(0, New ListItem("Todas", "-1"))
End Sub
@@ -106,7 +106,7 @@ Partial Class Ventas_CatMesas
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
e.Row.FCDropDownList("ddlSucursal").DataSource = GlobalDTSucursales().FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
e.Row.FCDropDownList("ddlSucursal").DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
e.Row.FCDropDownList("ddlSucursal").DataBind()
e.Row.FCDropDownList("ddlSucursal").SelectedValue = e.Row.DBCampo("CveSucursal")
End If

87
Ventas/SolicitudesSAT.aspx
View File

@@ -3,6 +3,11 @@
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
<style>
.GVSAT_DescargaSolicitudes a {
width: 100%;
}
</style>
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
Solicitudes CFDI SAT
@@ -121,8 +126,8 @@
<asp:UpdatePanel ID="upDatosSAT" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GVSAT_DescargaSolicitudes" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall" AutoGenerateColumns="False"
DataKeyNames="Tipo,TipoText,FechaIngreso,idSolicitud,FechaInicioSolicitud,FechaFinSolicitud,FechaDescarga,NoCFDI" data-sort="2">
<asp:GridView ID="GVSAT_DescargaSolicitudes" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall GVSAT_DescargaSolicitudes" AutoGenerateColumns="False"
DataKeyNames="CveSolicitudSat,Tipo,TipoText,FechaIngreso,idSolicitud,FechaInicioSolicitud,FechaFinSolicitud,FechaDescarga,NoCFDI" data-sort="2">
<Columns>
<asp:TemplateField HeaderText="Tipo ">
<ItemTemplate>
@@ -131,7 +136,7 @@
</asp:TemplateField>
<asp:TemplateField HeaderText="Fecha Ingreso">
<ItemTemplate>
<asp:Label ID="lblfechaIngreso" runat="server" Text='<%# Eval("FechaIngreso","{0:dd/MM/yyyy}")%>' data-toggle="tooltip" title='<%# Eval("FechaIngreso","{0:dd/MM/yyyy HH:mm}")%>'> </asp:Label>
<asp:Label ID="lblfechaIngreso" runat="server" Text='<%# Eval("FechaIngreso","{0:dd/MM/yyyy}")%>' data-toggle="tooltip" title='<%# Eval("FechaIngreso","{0:dd/MM/yyyy HH:mm}")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="id Solicitud" Visible="false">
@@ -141,12 +146,12 @@
</asp:TemplateField>
<asp:TemplateField HeaderText="Fecha Inicio Solicitud">
<ItemTemplate>
<asp:Label ID="lblfechaInicioSolicitud" runat="server" Text='<%# Eval("FechaInicioSolicitud","{0:dd/MM/yyyy}")%>' data-toggle="tooltip" title='<%# Eval("FechaInicioSolicitud","{0:dd/MM/yyyy HH:mm}")%>'> </asp:Label>
<asp:Label ID="lblfechaInicioSolicitud" runat="server" Text='<%# Eval("FechaInicioSolicitud","{0:dd/MM/yyyy}")%>' data-toggle="tooltip" title='<%# Eval("FechaInicioSolicitud","{0:dd/MM/yyyy HH:mm}")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Fecha Fin Solicitud">
<ItemTemplate>
<asp:Label ID="lblfechaFinSolicitud" runat="server" Text='<%# Eval("FechaFinSolicitud","{0:dd/MM/yyyy}")%>' data-toggle="tooltip" title='<%# Eval("FechaFinSolicitud","{0:dd/MM/yyyy HH:mm}")%>'> </asp:Label>
<asp:Label ID="lblfechaFinSolicitud" runat="server" Text='<%# Eval("FechaFinSolicitud","{0:dd/MM/yyyy}")%>' data-toggle="tooltip" title='<%# Eval("FechaFinSolicitud","{0:dd/MM/yyyy HH:mm}")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Estatus">
@@ -161,7 +166,7 @@
</asp:TemplateField>
<asp:TemplateField HeaderText="No CFDI">
<ItemTemplate>
<asp:Label ID="lblnoCFDI" runat="server" Text='<%# Eval("NoCFDI")%>'> </asp:Label>
<asp:LinkButton ID="LnknoCFDI" OnClick="LnknoCFDI_Click" runat="server" Text='<%# Eval("NoCFDI")%>'> </asp:LinkButton>
</ItemTemplate>
</asp:TemplateField>
</Columns>
@@ -170,6 +175,61 @@
</asp:UpdatePanel>
<div id="ModalFoliosSolicitud" class="modal ADS fade" role="dialog">
<asp:UpdatePanel ID="UpFoliosSAT" 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">&times;</span>
</button>
<h4 class="modal-title" runat="server" style="text-align: left">Folios descargados</h4>
</div>
<div class="modal-body" style="min-width:1000px;">
<asp:GridView ID="GVFoliosSAT" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall GVFoliosSAT" AutoGenerateColumns="False"
DataKeyNames="UUID" data-sort="2">
<Columns>
<asp:TemplateField HeaderText="Folio Fiscal ">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("UUID")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Tipo Comprobante">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("TipoComprobante")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="RFC">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("RFCDe")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Serie - Folio ">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("SerieFolio")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Fecha">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("FechaFactura","{0: dd/MM/yyyy}")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("Total","{0:N2}")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</div>
<div class="modal-footer">
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div id="ModalSolicitarSat" class="modal ADS fade" role="dialog">
<asp:UpdatePanel ID="UpModalDefaults" class="modal-dialog" tabindex="-1" runat="server" UpdateMode="Conditional">
@@ -179,7 +239,7 @@
<button type="button" class="close" data-dismiss="modal" aria-label="Close">
<span aria-hidden="true">&times;</span>
</button>
<h4 class="modal-title" runat="server" style="text-align: left">Valores reconstruccion</h4>
<h4 class="modal-title" runat="server" style="text-align: left">Solicitar Descarga SAT</h4>
</div>
<div class="modal-body">
@@ -225,7 +285,7 @@
</div>
</div>--%>
<div class="col-md-4" data-date-format="dd/mm/yyyy" style ="padding-right: 0px;">
<div class="col-md-4" data-date-format="dd/mm/yyyy" style="padding-right: 0px;">
<div class="form-group form-md-line-input form-md-floating-label input-iconright">
<asp:TextBox ID="txtFechaIAdd" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<asp:Label runat="server" Text="Fecha Inicio" AssociatedControlID="txtFechaIAdd"></asp:Label>
@@ -236,17 +296,17 @@
<asp:CompareValidator ID="cvFechaIAdd" runat="server" ControlToValidate="txtFechaIAdd" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaIAdd" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaIAdd" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
<div class="col-md-2" style ="padding-top: 14px;padding-left: 0px;">
<div class="input-group input-sm input-small date date-picker " style ="padding-left: 0px;" data-date-format="dd/mm/yyyy" >
<div class="col-md-2" style="padding-top: 14px; padding-left: 0px;">
<div class="input-group input-sm input-small date date-picker " style="padding-left: 0px;" data-date-format="dd/mm/yyyy">
<span class="input-group-btn ">
<asp:LinkButton ID="LnkFechaIAdd" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
</div>
<div class="col-md-4" data-date-format="dd/mm/yyyy" style ="padding-right: 0px;">
<div class="col-md-4" data-date-format="dd/mm/yyyy" style="padding-right: 0px;">
<div class="form-group form-md-line-input form-md-floating-label input-iconright">
<asp:TextBox ID="txtFechaFAdd" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<asp:Label runat="server" Text="Fecha Fin" AssociatedControlID="txtFechaFAdd"></asp:Label>
@@ -271,6 +331,7 @@
<div class="modal-footer">
<asp:LinkButton ID="LnkSolicitarCFDI" CssClass="btn btn-primary" OnClick="LnkSolicitarCFDI_Click" runat="server">Solicitar SAT</asp:LinkButton>
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
</div>
</div>
</ContentTemplate>

35
Ventas/SolicitudesSAT.aspx.cs
View File

@@ -19,7 +19,16 @@ public partial class Ventas_SolicitudesSAT : ClsPaginas
string rfIngFin = Request["fIngFin"] == null ? "" : Request["fIngFin"].ToString().Trim();
string rfSolInicio = Request["fSolInicio"] == null ? "" : Request["fSolInicio"].ToString().Trim();
string rfSolFin = Request["fSolFin"] == null ? "" : Request["fSolFin"].ToString().Trim();
if (rfIngInicio == "")
{
rfIngInicio = string.Format("{0:01/MM/yyyy}",DateTime.Now);
}
if (rfIngFin == "")
{
rfIngFin = string.Format("{0:dd/MM/yyyy}",string.Format("{0:01/MM/yyyy}", DateTime.Now).ToDateTime().AddMonths(1).AddDays(-1));
}
DateTime dValor = DateTime.Now;
dValor = DateTime.Now; if (DateTime.TryParse(rfIngInicio, out dValor)) { rfIngInicio = string.Format("{0:dd/MM/yyyy}", dValor); } else { rfIngInicio = ""; }
dValor = DateTime.Now; if (DateTime.TryParse(rfIngFin, out dValor)) { rfIngFin = string.Format("{0:dd/MM/yyyy}", dValor); } else { rfIngFin = ""; }
@@ -29,7 +38,7 @@ public partial class Ventas_SolicitudesSAT : ClsPaginas
DdlTipo.SelectedValueExist(rtipo);
txtFechaI.Text = rfIngInicio;
txtFechaF.Text = rfIngFin;
txtFechaISol.Text = rfSolInicio;
txtFechaISol.Text = rfSolInicio;
txtFechaFSol.Text = rfSolFin;
cargarDatos();
}
@@ -59,10 +68,10 @@ public partial class Ventas_SolicitudesSAT : ClsPaginas
protected void LnkVerificarSolicitudes_Click(object sender, EventArgs e)
{
string direxe = string.Format("{0}{1}",AppDomain.CurrentDomain.BaseDirectory, "Utilerias\\ADSUtilerias.exe");
string direxe = string.Format("{0}{1}", AppDomain.CurrentDomain.BaseDirectory, "Utilerias\\ADSUtilerias.exe");
String json = string.Format("{{cveTareaProgramada:{0},cveEmpresa:{1},CveTareaProgramadaHistorial:{2},recursividad:{3},Resultado:{4},parametros:'Tipo=SP'}}", 1, UsuarioActual.CveEmpresa,-1, 0, 1);//Mod.ToLiteral(new System.Web.Script.Serialization.JavaScriptSerializer().Serialize(tarea));
//this.Alert(string.Format("json:{0} : --mod TareaProgramada --Item {1}", DateTime.Now, json));
String json = string.Format("{{cveTareaProgramada:{0},cveEmpresa:{1},CveTareaProgramadaHistorial:{2},recursividad:{3},Resultado:{4},parametros:'Tipo=SP'}}", 1, UsuarioActual.CveEmpresa, -1, 0, 1);//Mod.ToLiteral(new System.Web.Script.Serialization.JavaScriptSerializer().Serialize(tarea));
//this.Alert(string.Format("json:{0} : --mod TareaProgramada --Item {1}", DateTime.Now, json));
try
{
string Mensajes = "";
@@ -97,7 +106,7 @@ public partial class Ventas_SolicitudesSAT : ClsPaginas
string direxe = string.Format("{0}{1}", AppDomain.CurrentDomain.BaseDirectory, "Utilerias\\ADSUtilerias.exe");
String json = string.Format("{{cveTareaProgramada:{0},cveEmpresa:{1},CveTareaProgramadaHistorial:{2},recursividad:{3},Resultado:{4},parametros:'Tipo={5}&fechai={6}&fechaf={7}'}}", 1, UsuarioActual.CveEmpresa, -1, 0, 1,DdlTipoAdd.SelectedValue, FechaI, FechaF);//Mod.ToLiteral(new System.Web.Script.Serialization.JavaScriptSerializer().Serialize(tarea));
String json = string.Format("{{cveTareaProgramada:{0},cveEmpresa:{1},CveTareaProgramadaHistorial:{2},recursividad:{3},Resultado:{4},parametros:'Tipo={5}&fechai={6}&fechaf={7}'}}", 1, UsuarioActual.CveEmpresa, -1, 0, 1, DdlTipoAdd.SelectedValue, FechaI, FechaF);//Mod.ToLiteral(new System.Web.Script.Serialization.JavaScriptSerializer().Serialize(tarea));
//this.Alert(string.Format("json:{0} : --mod TareaProgramada --Item {1}", DateTime.Now, json));
try
{
@@ -125,4 +134,18 @@ public partial class Ventas_SolicitudesSAT : ClsPaginas
cargarDatos();
Alert("La solicitud ha sido enviada");
}
protected void LnknoCFDI_Click(object sender, EventArgs e)
{
GridViewRow gvrow = (GridViewRow)(((LinkButton)sender).NamingContainer);
int CveSolicitudSat = gvrow.DataKey("CveSolicitudSat").ToEntero();
using (ClsGenerales objgeneral = new ClsGenerales())
{
objgeneral.SAT_DescargaSolicitudeUUIDSGET(CveSolicitudSat);
GVFoliosSAT.DataSource = objgeneral.DtResultados;
}
GVFoliosSAT.DataBind();
RegistraScript("$('#ModalFoliosSolicitud').modal();");
UpFoliosSAT.Update();
}
}

8
Ventas/Ventas.aspx
View File

@@ -1300,11 +1300,11 @@
</div>
</ContentTemplate>
</asp:UpdatePanel>
<div id="DivOCRelacionadas" class="modal ADS fade" role="dialog" runat="server" visible="false">
<asp:GridView runat="server" ID="GvOCRelacionadas" Caption="Ordenes de Compra Relacionadas:" AutoGenerateColumns="False" DataKeyNames="CveOrdenCompra,Folio"
CssClass="table table-striped table-advance table-hover Widthall mysmallbtn" GridLines="None" ShowHeader="False">
<div id="DivOCRelacionadas" class="col-md-3" runat="server" visible="false">
<asp:GridView runat="server" ID="GvOCRelacionadas" Caption="OC Relacionadas:" AutoGenerateColumns="False" DataKeyNames="CveOrdenCompra,Folio"
CssClass="table table-striped table-advance table-hover Widthall mysmallbtn" GridLines="None">
<Columns>
<asp:HyperLinkField DataTextField="Folio" DataNavigateUrlFields="CveOrdenCompra" DataNavigateUrlFormatString="/OC/OC.aspx?OC={0}" />
<asp:HyperLinkField DataTextField="Folio" DataNavigateUrlFields="CveOrdenCompra" DataNavigateUrlFormatString="/OC/OC.aspx?OC={0}" HeaderText="Orden Compra" />
</Columns>
</asp:GridView>
</div>

4
Ventas/Ventas.aspx.vb
View File

@@ -10902,8 +10902,8 @@ Partial Class Ventas
Case 103 'Descuento
If ObjFactura.Descuento <> 0 AndAlso Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") AndAlso DdlTipoAmortizacionAnticipo.SelectedValue = "-1" Then
importeMovimiento = ObjFactura.Descuento * ValorMultiplicador
importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador
importeMovimiento = ObjFactura.Descuento * Multiplicador * ValorMultiplicador
importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador * ValorMultiplicador
FechaMovimiento = ObjFactura.FechaPago
CveSubProyectoContabilizar = CveSubProyectoVenta

2
vwd.webinfo
View File

@@ -80,6 +80,8 @@