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

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

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2025-03-07 19:29:58 -07:00
parent 8e3224645b 014bb919b4
commit 8133082dfc
20 changed files with 339 additions and 177 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
App_Code/ClsContabilidad.vb
View File

@@ -1278,7 +1278,7 @@ Public Class ClsContabilidad
Catch ex As Exception
If ex.Message.Contains("50015;") Then
OnError("No se puede actualizar una póliza en un ejercicio Cerrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
ElseIf ex.Message.Contains("IDX_UN_ContaPrePolizasCveEmpresaCveTipoPolizaFoliosAnioMes") Then
ElseIf ex.Message.Contains("UK_CveEmpresa_CveTipoPoliza_AnioMes_FolioPoliza") Then
OnError($"El Folio <b>{Folio}</b> ya esta registrado.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
Else
OnError("Ocurrió un error al contabilizar las prepoliza detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())

3
App_Code/ClsNominas.vb
View File

@@ -3020,7 +3020,7 @@ Public Class ClsNominas
Return retorno
End Function
Public Function PrimaRiesgoUP(CveEmpresa As Integer, Fecha As DateTime, PrimadeRiesgo As Decimal) As Boolean
Public Function PrimaRiesgoUP(CveEmpresa As Integer, Fecha As DateTime, PrimadeRiesgo As Decimal, CveRegistroPatronal As Integer) As Boolean
Dim retorno As Boolean = False
Try
DTSet = New DataSet()
@@ -3029,6 +3029,7 @@ Public Class ClsNominas
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@Fecha", SqlDbType.Date).Value = Fecha
.Add("@PrimadeRiesgo", SqlDbType.Money).Value = PrimadeRiesgo
.Add("@CveRegistroPatronal", SqlDbType.Money).Value = CveRegistroPatronal
End With
SqlAdapter.Fill(DTSet)
retorno = True

10
Ashx/SIGFacturacion.ashx
View File

@@ -60,13 +60,13 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
GuardaLogFacturacion("- Inicio de facturación ")
If CveEmpresa > 0 Then
GuardaLogFacturacion($"1.10 - CveE:{CveEmpresa}")
GuardaLogFacturacion($"1.10 - CveE:{CveEmpresa} - ")
Dim Usuario = ValidaUsuarioSistema(CveEmpresa)
Dim FechaI, FechaF As DateTime
'EnviarCorreoFactura(New Modelos.Factura(Usuario, 844966, 1, context.ModExtensiones.DirectorioBaseEmpresas), Usuario)
If String.IsNullOrEmpty(pFechaI) AndAlso String.IsNullOrEmpty(pFechaF) Then
GuardaLogFacturacion("1.200")
GuardaLogFacturacion("1.200 - ")
Dim FechaReferencia As Date = ClsPaginas.NowADS()
If FechaReferencia.DayOfWeek = DayOfWeek.Sunday Then
Dim Sabado = FechaReferencia.AddDays(-1)
@@ -81,7 +81,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
GuardaLogFacturacion("Ejecución no permitida, no es el dia permitido para ejecucion o no se espeficaron las fechas")
End If
Else
GuardaLogFacturacion("1.300")
GuardaLogFacturacion("1.300 - ")
FechaI = pFechaI.ToDateTime()
FechaF = pFechaF.ToDateTime()
@@ -137,7 +137,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
Dim DatosRemisiones As JObject = CargaRemisiones(FechaI, FechaF, CveCliente)
Dim CveRemisiones As String = DatosRemisiones("VentasConcatenadas").ToString()
GuardaLogFacturacion("1.25 -- ClavesRemisiones: " & CveRemisiones)
If Not String.IsNullOrEmpty(CveRemisiones) Then
Dim ObjClientes As New ClsClientes
If ObjClientes.GetVentasRemisionesTotales(CveCliente, CveRemisiones, 1, UsuarioActual.CveEmpresa) Then
@@ -228,7 +228,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
Dim UsuarioActual As Usuario = Nothing
Dim NombreCadena As String = ClsPaginas.GlobalNombreCadenaConexion(CveEmpresa)
Dim ObjUsuarios As New ClsSisUsuarioAutenticacion(NombreCadena:=NombreCadena)
UsuarioActual = ObjUsuarios.GetUsuarioDetalle(100)
UsuarioActual = ObjUsuarios.GetUsuarioDetalle(100, CveEmpresa)
If UsuarioActual IsNot Nothing Then
Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()

125
Ashx/TareasProgramadas.ashx
View File

File diff suppressed because one or more lines are too long

1
Bancos/FluctuacionCambiaria.aspx.vb
View File

@@ -668,6 +668,7 @@ Partial Class Bancos_FluctuacionCambiaria
'End If
tTipoMovto = dr("TipoMovto").ToString.ToBool
If TipoFluctuacion.Contiene(3) AndAlso tTipoMovto Then AjusteTotal = -AjusteTotal 'si es cleintes, abonado y el ajustes es positivo tiene que restar
If TipoFluctuacion.Contiene(1) AndAlso tTipoMovto = False Then AjusteTotal = -AjusteTotal 'si es prov, cargado y el ajustes es positivo tiene que restar
AjusteTotal = AjusteTotal + dr("Importe").ToString.ToDecimal

62
Compras/Compras.aspx.vb
View File

@@ -3266,7 +3266,6 @@ Partial Class Compras_Compras
If DdlRetIVAConcepto.SelectedValue.ToEntero > 0 Then
DdlRetIVAConcepto.Enabled = True
End If
If DdlRetISRConcepto.SelectedValue.ToEntero > 0 Then
DdlRetISRConcepto.Enabled = True
End If
@@ -7792,8 +7791,8 @@ Partial Class Compras_Compras
Alert("Ocurrió un Error al agregar el IVA.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
ElseIf ErrorMovInv Then
Alert("Ocurrió un Error al agregar el Producto o Servicio al Inventario.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
ElseIf TieneError Then
Alert("El total de los IMPORTES del FINANCIAMIENTO debe ser mayor que 0 y menor o igual al total de la compra", TipoMensaje.MsgAdvertencia)
'ElseIf TieneError Then
' Alert("El total de los IMPORTES del FINANCIAMIENTO debe ser mayor que 0 y menor o igual al total de la compra", TipoMensaje.MsgAdvertencia)
ElseIf ErrorAF Then
Alert("Error al actualizar la vinculacion del Activo Fijo", TipoMensaje.MsgAdvertencia)
ElseIf ErrorAC Then
@@ -7953,7 +7952,7 @@ Partial Class Compras_Compras
If CveEvaluacionProveedor > 0 Then
Msg.Append("<br/><br/>El proveedor tiene evaluaciones pendientes<br/>")
Msg.Append("¿Desea realizar una evaluacion al proveedor?")
Msg.Append("¿Desea realizar una evaluación al proveedor?")
Msg.AppendFormat($"</br><a class=""Texto"" target='_blank' href=""/Compras/EvaluacionProveedor.aspx?CveEvaluacionProveedor={CveEvaluacionProveedor}"">Evaluar Proveedor.</a>")
End If
@@ -13909,7 +13908,7 @@ Partial Class Compras_Compras
If realizadevolucion Then
subtotaldevolucion = subtotaldevolucion.RoundSQL(2)
'si el subtotal es igual a la nc lo guardo si no marco error
Dim tTolerancia As Decimal = 0
Dim tTolerancia As Decimal = 0.1D
Dim tAjustaUltimo As Boolean = True
If UsuarioActual.Empresa.Funcionalidad(574) = "1" Then
tTolerancia = Math.Abs(TxtSubTotal2.Text.ToDecimal - subtotaldevolucion)
@@ -13966,11 +13965,11 @@ Partial Class Compras_Compras
End If
Else
ErrorMovInv = True
Alert("El Total de la NC debe ser igual al total de la devolucion", TipoMensaje.MsgAdvertencia)
Alert("El Total de la NC debe ser igual al total de la devolución", TipoMensaje.MsgAdvertencia)
End If
End If
If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa, -1) Then
If Not ErrorMovInv AndAlso ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa, -1) Then
For Each drow As DataRow In ObjInventario.DtResultados.Rows
TotalSumaPU = TotalSumaPU + drow("Total").ToString.ToDecimal
@@ -14016,7 +14015,7 @@ Partial Class Compras_Compras
Dim objcompras As New ClsCompras()
If objcompras.GetCompraDetalleAlmacen(UsuarioActual.CveEmpresa, DDLDevolucion.SelectedValue.ToEntero) Then
GVDevolucion.DataSource = objcompras.DtResultados
FechaMovtoDev = objcompras.DtResultados.FiltroPrimeroValor("FechaMovto").ToDate.ToString("dd/MM/yyyy").ToDate
FechaMovtoDev = objcompras.DtResultados.FiltroPrimeroValor("FechaMovto").ToDate
End If
objcompras.Dispose()
GVDevolucion.DataBind()
@@ -14029,7 +14028,7 @@ Partial Class Compras_Compras
DdlAlmacenDevolucion.SelectedValueExist(CveAlmacen)
UPDevolucion.Update()
If EsGrupoDiaz AndAlso FechaMovtoDev <> MinFecha AndAlso (FechaMovtoDev >= TxtFecha.Text.ToDate) Then
If FechaMovtoDev <> MinFecha AndAlso (FechaMovtoDev >= TxtFecha.Text.ToDate) Then
Alert("La fecha de la devolución se cambiará a una fecha posterior al ingreso.", TipoMensaje.ToastAdventencia)
End If
@@ -14088,10 +14087,7 @@ Partial Class Compras_Compras
Dim IEPSCompra As Decimal = TxtIEPS.Text.ToDecimal()
Dim RetIVACompra As Decimal = TxtRetIVA.Text.ToDecimal()
Dim RetISRCompra As Decimal = TxtRetISR.Text.ToDecimal()
Dim Acumulado As Decimal = 0
'Dim TotalCalculable As Decimal = TotalCompra - IEPSCompra + RetIVACompra + RetISRCompra
Dim AcumuladoDevolucion As Decimal = 0
Dim IVAPorcentajeCompra As Decimal = Math.Round((IVACompra / SubTotalCompra), 2)
Dim Contador As Integer = 0
Dim Consec As Integer = 0
@@ -14127,12 +14123,12 @@ Partial Class Compras_Compras
Dim IVA As Decimal = IVAPorcentajeCompra 'Math.Round(Total * IVAPorcentajeCompra, 2)
Dim Descuento As Decimal = 0
Acumulado += (PU * Cantidad)
AcumuladoDevolucion += (PU * Cantidad)
Consec += 1
If Consec = Contador AndAlso tAjusteUltimo Then 'SubTotalCompra < Acumulado Then
If Consec = Contador AndAlso tAjusteUltimo Then 'SubTotalCompra < AcumuladoDevolucion Then
'ajusta el valor
Dim dif As Decimal = SubTotalCompra - Acumulado
Dim dif As Decimal = SubTotalCompra - AcumuladoDevolucion
If dif <> 0 Then
PU = ((PU * Cantidad) + dif) / Cantidad
Total = Cantidad * PU
@@ -14150,7 +14146,7 @@ Partial Class Compras_Compras
End If
Dim PSRow As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePSRNC).FiltroPrimero("")
Dim PS As String = PSRow("PSCodigo").ToString
Dim tDif As Decimal = TxtSubTotal2.Text.ToDecimal - Total
Dim tDif As Decimal = TxtSubTotal2.Text.ToDecimal - AcumuladoDevolucion
DevolucionImporteOriginal = tDif
AddPS(1, PSRow("CveUnidadMedida").ToString.ToEntero, PSRow("UnidadMedida").ToString,
@@ -15334,23 +15330,27 @@ Partial Class Compras_Compras
'PROCESO DE ASIGNACION DE CANTIDAD DEPENDIENDO DEL NoIdentificacion DEL XML Y EL NumeroParte DEL PRODUCTO
If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
For Each Gvr As GridViewRow In GvOC1.Rows
Dim Change As Boolean = False
For Each Dr2 As DataRow In TmpDT.Rows
If Gvr.DataKey("NumeroParte") = Dr2("NoIdentificacion").ToString() OrElse Gvr.DataKey("CvePS") = Dr2("CvePS").ToString() Then
' que la cantidad de la Fact no exceda a la de la OC
If Dr2("Cantidad").ToString.ToDecimal > Gvr.DataKey("CantidadF").ToDecimal Then
Gvr.FCTextBox("TxtCantidad").Text = Gvr.DataKey("CantidadF").ToDecimal.ToString("#,###.####")
Else
Gvr.FCTextBox("TxtCantidad").Text = Dr2("Cantidad").ToString
If CveFactura > 0 Then
For Each Gvr As GridViewRow In GvOC1.Rows
Dim Change As Boolean = False
For Each Dr2 As DataRow In TmpDT.Rows
If Gvr.DataKey("NumeroParte") = Dr2("NoIdentificacion").ToString() OrElse Gvr.DataKey("CvePS") = Dr2("CvePS").ToString() Then
' que la cantidad de la Fact no exceda a la de la OC
If Dr2("Cantidad").ToString.ToDecimal > Gvr.DataKey("CantidadF").ToDecimal Then
Gvr.FCTextBox("TxtCantidad").Text = Gvr.DataKey("CantidadF").ToDecimal.ToString("#,###.####")
Else
Gvr.FCTextBox("TxtCantidad").Text = Dr2("Cantidad").ToString
End If
Change = True
End If
Change = True
Next
If Not Change Then
Gvr.FCTextBox("TxtCantidad").Text = ""
End If
Next
If Not Change Then
Gvr.FCTextBox("TxtCantidad").Text = ""
End If
Next
End If
'detectar los ps que no están en la OC, códigos que no están en la OC
'mostrar los ps que no están en la oc
Dim strMsg As New StringBuilder

38
Contabilidad/Reportes/RepSituacionFinanciera.rdlc
View File

@@ -2726,7 +2726,7 @@
<Height>4.77456in</Height>
<Style />
</Body>
<Width>8.07238in</Width>
<Width>8.07239in</Width>
<Page>
<PageHeader>
<Height>0.74083cm</Height>
@@ -3037,36 +3037,50 @@
</ReportParameters>
<Variables>
<Variable Name="TotalActivoActual">
<Value>=Sum(iif(Fields!Tipo.Value.ToString() = "A" OR Fields!Tipo.Value.ToString() = "B" OR Fields!Tipo.Value.ToString() = "C" OR Cint(Fields!TipoCuenta.Value) = 9 , Fields!ImporteActual.Value, 0) , "DataSet1")</Value>
<Value>=Sum(
IIf(
(Fields!Tipo.Value = "A" OR Fields!Tipo.Value = "B" OR Fields!Tipo.Value = "C" OR CInt(Fields!TipoCuenta.Value) = 9)
AND IsNumeric(Fields!ImporteActual.Value),
CDbl(Fields!ImporteActual.Value),
0
),
"DataSet1"
)</Value>
</Variable>
<Variable Name="TotalActivoAnterior">
<Value>=Sum( iif(Fields!Sup.Value = "ACTIVO NO CIRCULANTE" OR Fields!Sup.Value="ACTIVO CIRCULANTE" OR Cint(Fields!TipoCuenta.value) = 9 , Cint(Fields!ImporteAnterior.Value) , 0.0), "DataSet1")</Value>
</Variable>
<Variable Name="TotalPasivoActual">
<Value>=Sum( iif(Fields!Sup.Value = "PASIVO CIRCULANTE" OR Fields!Sup.Value = "PASIVO NO CIRCULANTE" OR Fields!Sup.Value = "Pasivo a corto plazo" OR Fields!Sup.Value = "Pasivo a largo plazo",
Fields!ImporteActual.Value, 0), "DataSet1")</Value>
<Value>=Sum(
iif(
(Fields!Sup.Value = "PASIVO CIRCULANTE" OR Fields!Sup.Value = "PASIVO NO CIRCULANTE" OR Fields!Sup.Value = "Pasivo a corto plazo" OR Fields!Sup.Value = "Pasivo a largo plazo")
AND IsNumeric(Fields!ImporteActual.Value),
CDbl(Fields!ImporteActual.Value),
0
), "DataSet1")</Value>
</Variable>
<Variable Name="TotalPasivoAnterior">
<Value>=Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "PASIVO CIRCULANTE" OR Fields!Sup.Value = "PASIVO NO CIRCULANTE" , Cint(Fields!ImporteAnterior.Value), 0),"DataSet1")</Value>
<Writable>true</Writable>
</Variable>
<Variable Name="TotalPatrimonioCActual">
<Value>=Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "CAPITAL" OR Fields!Sup.Value = "CAPITAL CONTABLE" , Fields!ImporteActual.Value, 0),"DataSet1")</Value>
<Value>=Sum( iif( (Fields!Sup.Value = "CAPITAL" OR Fields!Sup.Value = "CAPITAL CONTABLE") AND IsNumeric(Fields!ImporteActual.Value) ,
CDbl(Fields!ImporteActual.Value),0),"DataSet1")</Value>
</Variable>
<Variable Name="TotalPatrimonioHActual">
<Value>=Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "CAPITAL"
OR Fields!Sup.Value = "CAPITAL CONTABLE"
OR Fields!Sup.Value = "Capital Contable"
OR Fields!Sup.Value = "Capital Social"
OR Fields!Sup.Value = "Capital",
Fields!ImporteActual.Value, 0),"DataSet1")</Value>
<Value>=Sum(Microsoft.VisualBasic.Interaction.iif( (Fields!Sup.Value = "CAPITAL"
OR Fields!Sup.Value = "CAPITAL CONTABLE"
OR Fields!Sup.Value = "Capital Contable"
OR Fields!Sup.Value = "Capital Social"
OR Fields!Sup.Value = "Capital") AND IsNumeric(Fields!ImporteActual.Value),
CDbl(Fields!ImporteActual.Value), 0),"DataSet1")</Value>
</Variable>
<Variable Name="TotalPatrimonioCAnterior">
<Value>=Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "CAPITAL" OR Fields!Sup.Value = "CAPITAL CONTABLE" , Cint(Fields!ImporteAnterior.Value), 0),"DataSet1")</Value>
<Writable>true</Writable>
</Variable>
<Variable Name="TotalPatrimonioHAnterior">
<Value>=Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "CAPITAL" OR Fields!Sup.Value = "CAPITAL CONTABLE" , Fields!ImporteActual.Value, 0),"DataSet1")</Value>
<Value>=Sum(Microsoft.VisualBasic.Interaction.iif((Fields!Sup.Value = "CAPITAL" OR Fields!Sup.Value = "CAPITAL CONTABLE") AND IsNumeric(Fields!ImporteActual.Value) , CDbl(Fields!ImporteActual.Value), 0),"DataSet1")</Value>
</Variable>
<Variable Name="TotalpasivoYHaciendaActual">
<Value>=Variables!TotalPasivoActual.Value+Variables!TotalPatrimonioHActual.Value</Value>

11
Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc
View File

@@ -4256,7 +4256,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>="3. Página " &amp; code.PageNumber &amp; " de " &amp; code.TotalPages</Value>
<Value>3. Página 1 de 1 Páginas</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
@@ -5298,7 +5298,7 @@
<DataSetName>DataSet3</DataSetName>
<Top>0.06703cm</Top>
<Height>1cm</Height>
<Width>17.83459cm</Width>
<Width>17.8346cm</Width>
<Style>
<Border>
<Style>None</Style>
@@ -5310,7 +5310,7 @@
<Top>11.49939cm</Top>
<Left>1.33863cm</Left>
<Height>1.06703cm</Height>
<Width>17.83459cm</Width>
<Width>17.8346cm</Width>
<ZIndex>21</ZIndex>
<Style>
<Border>
@@ -6636,6 +6636,7 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox14</rd:DefaultName>
<Top>0cm</Top>
<Left>14.75588cm</Left>
<Height>0.54708cm</Height>
<Width>4.70062cm</Width>
@@ -6988,11 +6989,11 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
</ReportParameter>
</ReportParameters>
<Code>Function PageNumber() As String
Return Me.Report.Globals!PageNumber
Return Me.Report.Globals!OverallPageNumber
End Function
Function TotalPages() As String
Return Me.Report.Globals!TotalPages
Return Me.Report.Globals!OverallTotalPages
End Function </Code>
<Language>es-MX</Language>
<ConsumeContainerWhitespace>true</ConsumeContainerWhitespace>

3
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -1176,7 +1176,6 @@ Partial Class Inventarios_EntradasSalidas
DtMovimientos.PrimaryKey = keys
CargaGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' "))
End If
PermisoVerImportes()
@@ -1184,8 +1183,6 @@ Partial Class Inventarios_EntradasSalidas
If IfNull(Request("Conta"), "0").ToString = "1" Then
Contabilizar()
End If
Else
Alert("Movimiento No encontrado", TipoMensaje.MsgError)

15
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -4672,8 +4672,21 @@ Partial Class Inventarios_EntregaAlmacen
If CveOSEstatusFinalizada > 0 Then
Dim ObjOS As New ClsOS(TransaccionSql)
'obtener estatus de la os, actual, si es cancelada, no se debe de cambiar el estatus.
Dim CveEstatusActual As Integer = 1
Dim CveTipoOS As Integer = -1
If ObjOS.GetOrdenesServicios(CveOSCerrar, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
CveEstatusActual = ObjOS.CveEstatusOrdenServicio
CveTipoOS = ObjOS.DtResultados.FiltroPrimeroValor("TipoEstatus").ToEntero
End If
'si es cancelada. no se actualiza(5.Cancelada)
If CveTipoOS <> 5 Then
Respuesta = ObjOS.UpdateOrdenesServiciosEstatus(CveOSEstatusFinalizada, UsuarioActual.CveUsuario, CveOSCerrar)
Else
Respuesta = True
End If
Respuesta = ObjOS.UpdateOrdenesServiciosEstatus(CveOSEstatusFinalizada, UsuarioActual.CveUsuario, CveOSCerrar)
Dim cancelarPeido As Boolean = CancelarPedido(TransaccionSql, CveMovimientoGenerado, Respuesta)
If Respuesta Then
Dim ObjInventario As New ClsInventarios(TransaccionSql)

9
Inventarios/KardexAlmacenHorizontal.aspx
View File

@@ -165,18 +165,18 @@ table.adssigscroll {
background-color: inherit; /* Para que no se superponga con otros elementos */
z-index: 4; /* Asegura que esté sobre otros elementos */
}
.tr_order > th::after {
.tr_order tr > th::after {
content: "\f0dc";
font:normal normal normal 14px / 1 FontAwesome;
display: inline-block;
margin-left: 5px;
color: #32A1CF;
}
.tr_order > th.asce::after {
.tr_order tr > th.asce::after {
content: "\f0de";
}
.tr_order > th.desc::after {
.tr_order tr > th.desc::after {
content: "\f0dd";
}
/*END ScrollADS V2*/
@@ -353,8 +353,7 @@ table.adssigscroll {
<div class="divContainerads">
<asp:GridView ID="GvDatos" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="True" ShowHeaderWhenEmpty="true"
DataKeyNames="CvePS" CssClass="adssigscrollJS table table-striped table-advance table-hover " data-cols="2" data-rows="2" data-heightmenos="300" GridLines="None" >
<HeaderStyle CssClass="tr_order" />
DataKeyNames="CvePS" CssClass="adssigscrollJS tr_order table table-striped table-advance table-hover " data-cols="2" data-rows="2" data-heightmenos="300" GridLines="None" >
<Columns>
<asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="120px">
<HeaderTemplate>

30
Inventarios/PrestamosdeProveedor.aspx
View File

@@ -10,6 +10,18 @@
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<asp:UpdatePanel runat="server" UpdateMode="Conditional" ID="UpAcciones">
<ContentTemplate>
<li>
<asp:LinkButton ID="LnkExportar" runat="server" Visible="true"><i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
</li>
</ContentTemplate>
<Triggers>
<asp:PostBackTrigger ControlID="LnkExportar" />
</Triggers>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
</asp:Content>
@@ -133,7 +145,7 @@
<ContentTemplate>
<asp:GridView ID="GvD" DataKeyNames="CveUM,CvePS,CveSeccionAlmacen,Serie,Lote,FechaCaducidad,CveMovimientoDetalle,CveMovimiento, AplicaLote, AplicaCaducidad,PS" runat="server" AutoGenerateColumns="False" EmptyDataText="No hay movimientos pendientes" CssClass="table table-hover Widthall" GridLines="None">
<Columns>
<asp:TemplateField ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center">
<asp:TemplateField ItemStyle-Width="45px" ItemStyle-HorizontalAlign="Center">
<%--<HeaderTemplate>
<input type="checkbox" id="ChkAll" onclick="CheckAll();" />
</HeaderTemplate>--%>
@@ -141,18 +153,18 @@
<asp:CheckBox ID="Chk" Checked="true" runat="server" Visible="false"></asp:CheckBox>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Cantidad" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center">
<asp:TemplateField HeaderText="Cantidad" ItemStyle-Width="105px" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:TextBox ID="TxtCantidad" Visible="false" Width="60px" runat="server" Text="0" Enabled="false" Style="text-align: right;"></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="SoloNumeros2" runat="server" TargetControlID="TxtCantidad" FilterType="Custom, Numbers" ValidChars="." />
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField HeaderText="Disponible" DataField="Cantidad" DataFormatString="{0:#,##0.######}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="10%" />
<asp:BoundField HeaderText="Unidad" DataField="UnidadMedida" ItemStyle-Width="10%" />
<asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-Width="10%" />
<asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-Width="35%" />
<asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="10%" Visible="false" />
<asp:TemplateField HeaderText="Lote" ItemStyle-Width="10%" HeaderStyle-HorizontalAlign="Center" Visible="false">
<asp:BoundField HeaderText="Disponible" DataField="Cantidad" DataFormatString="{0:#,##0.######}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="105px" />
<asp:BoundField HeaderText="Unidad" DataField="UnidadMedida" ItemStyle-Width="105px" />
<asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-Width="105px" />
<asp:BoundField HeaderText="Producto" DataField="PS" />
<asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="125px" Visible="false" />
<asp:TemplateField HeaderText="Lote" ItemStyle-Width="125px" HeaderStyle-HorizontalAlign="Center" Visible="false">
<ItemTemplate>
<asp:Literal ID="LtlLote" runat="server" Text='<%# Eval("Lote", "{0}") %>'></asp:Literal>
<asp:TextBox ID="TxtLote" runat="server" Visible="false" Width="70px" Text='<%# Eval("Lote", "{0}") %>'></asp:TextBox>
@@ -160,7 +172,7 @@
<ItemStyle HorizontalAlign="Center" />
</asp:TemplateField>
<asp:TemplateField HeaderText="Fecha" ItemStyle-Width="25%" HeaderStyle-HorizontalAlign="Center" Visible="false">
<asp:TemplateField HeaderText="Fecha" ItemStyle-Width="125px" HeaderStyle-HorizontalAlign="Center" Visible="false">
<ItemTemplate>
<asp:Literal ID="LtlFechaCaducidad" runat="server" Text='<%# Eval("FechaCaducidad", "{0:d}") %>'></asp:Literal>
<asp:TextBox ID="TxtFechaCaducidad" runat="server" Visible="false" Width="75px" Text='<%# Eval("FechaCaducidad", "{0:d}") %>'></asp:TextBox>

55
Inventarios/PrestamosdeProveedor.aspx.vb
View File

@@ -93,7 +93,8 @@ Partial Class Inventarios_PrestamosdeProveedor
e.Row.FCTextBox("TxtCantidad").Visible = False
e.Row.Cells(2).Text = String.Format("Folio: <a class=""texto"" style=""color:white;"" target='_blank' href='/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}'>{0}</a> ", e.Row.DBCampo("FolioSalida"), e.Row.DBCampo("CveMovimientoSalida"))
e.Row.Cells(3).Text = String.Format("{0}", e.Row.DBCampo("FechaMovto").ToString.ToDate.ToShortDateString)
e.Row.Cells(3).Text = String.Format("{0}", e.Row.DBCampo("FechaMovto").ToDate.ToShortDateString)
e.Row.Cells(4).Text = String.Format("{0}", e.Row.DBCampo("Almacen"))
e.Row.Cells(5).Text = String.Format("Proveedor: {0} ", e.Row.DBCampo("RazonSocial"))
Else
@@ -104,35 +105,28 @@ Partial Class Inventarios_PrestamosdeProveedor
If e.Row.DataKey("AplicaLote").ToString = "True" Then
e.Row.FCLiteral("LtlLote").Visible = False
e.Row.FCTextBox("TxtLote").Visible = True
End If
If e.Row.DataKey("AplicaCaducidad").ToString = "True" Then
e.Row.FCLiteral("LtlFechaCaducidad").Visible = False
e.Row.FCTextBox("TxtFechaCaducidad").Visible = True
End If
End If
End If
e.Row.FCTextBox("TxtCantidad").Visible = True
e.Row.FCTextBox("TxtCantidad").Attributes.Add("onkeyup", String.Format("ValidaCantidad(this,{0});", e.Row.DBCampo("Cantidad")))
End If
''FUNCIONALIDAD PISTOLA DE CODIGOS
'If UsuarioActual.Empresa.Funcionalidad(132) = "1" And e.Row.DBCampo("CodigoBarras").Trim <> "" Then
' e.Row.FCTextBox("TxtCantidad").Enabled = False
'End If
''FUNCIONALIDAD PISTOLA DE CODIGOS
'If UsuarioActual.Empresa.Funcionalidad(132) = "1" And e.Row.DBCampo("CodigoBarras").Trim <> "" Then
' e.Row.FCTextBox("TxtCantidad").Enabled = False
'End If
End If
End If
End Sub
Protected Sub BtnRecibir_Click(sender As Object, e As EventArgs)
If GvD.Rows.Count > 0 Then
'Valida Movimientos
@@ -146,7 +140,7 @@ Partial Class Inventarios_PrestamosdeProveedor
Dim FechaCaducidad As Date = MinFecha
If gvr.DataKey("Serie") <> "" Then Serie = gvr.DataKey("Serie")
If gvr.DataKey("AplicaLote") = "True" Then Lote = gvr.FCTextBox("TxtLote").Text ' gvr.DataKey("Lote")
If gvr.DataKey("AplicaCaducidad") = "True" Then FechaCaducidad = gvr.FCTextBox("TxtFechaCaducidad").Text.todate ' gvr.DataKey("Lote")
If gvr.DataKey("AplicaCaducidad") = "True" Then FechaCaducidad = gvr.FCTextBox("TxtFechaCaducidad").Text.ToDate ' gvr.DataKey("Lote")
'If gvr.DataKey("FechaCaducidad").ToDate > MinFecha Then FechaCaducidad = gvr.DataKey("FechaCaducidad")
Dim Valido = ValidaExistencia(gvr.FCTextBox("TxtCantidad").Text.ToDecimal, gvr.DataKey("CvePS").ToEntero, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CveSeccionAlmacen").ToEntero, Serie, Lote, FechaCaducidad, gvr.DataKey("PS"))
@@ -162,9 +156,6 @@ Partial Class Inventarios_PrestamosdeProveedor
Alert("No hay movimientos que realizar. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
Dim ObjInventario As New ClsInventarios
Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL())
@@ -250,10 +241,8 @@ Partial Class Inventarios_PrestamosdeProveedor
Else
ErrorMovInv = True
End If
End If
If Not ErrorMovInv Then
ObjInventario.Commit()
@@ -307,5 +296,31 @@ Partial Class Inventarios_PrestamosdeProveedor
Private Sub BtnCargaPendientes_Click(sender As Object, e As EventArgs) Handles BtnCargaPendientes.Click
CargaDatos()
End Sub
Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
Dim SbFiltros As New StringBuilder()
'SbFiltros.AppendFormat("Fecha Inicio: {0} Fecha Fin: {1}|", $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}")
Dim listFiltros As New List(Of String)
listFiltros.Add($"SubProyecto : {DdlSubProyecto.SelectedItem.Text}")
If ddlProveedor.txtValue.Value.ToEntero > 0 Then
listFiltros.Add($"Proveedor : { ddlProveedor.txtText.Value}")
Else
listFiltros.Add($"Proveedor : Todos")
End If
If TxtFolioEntrega.Text.Trim.Length > 0 Then listFiltros.Add($"Folio : {TxtFolioEntrega.Text}")
GvD.Columns(1).Visible = False
UppEntrega.Update()
GvD.ExportToExcelGembox($"PrestamoProveedores_{NowADS().ToString("yyyy.MM.dd.HHmmss")}", UsuarioActual, $"Préstamos de Proveedores", DatoTituloExtra:="", DatosFiltros:=String.Join(", ", listFiltros))
GvD.Columns(1).Visible = True
UppEntrega.Update()
End Sub
Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
End Sub
End Class

50
Nomina/Nomina.aspx
View File

@@ -2591,7 +2591,7 @@
<asp:GridView ID="GVProvision" runat="server" DataKeyNames="CveConcepto,CvePersonal,CveConceptoContable" OnRowDataBound="GVProvision_RowDataBound" CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD Widthall GvNominas"
Style="text-align: center;" GridLines="None" data-rows="2" data-heighterror="360" ShowHeaderWhenEmpty="true" ShowHeader="true" AutoGenerateColumns="false">
GridLines="None" data-rows="2" data-heighterror="360" ShowHeaderWhenEmpty="true" ShowHeader="true" AutoGenerateColumns="false">
<Columns>
<asp:TemplateField HeaderText="Concepto Contable">
<ItemTemplate>
@@ -2610,12 +2610,12 @@
</asp:TemplateField>
<asp:TemplateField HeaderText="Asignar a Concepto ">
<ItemTemplate>
<asp:DropDownList ID="DdlCconceptosContables" CssClass="form-control input-sm select2me select2me" runat="server" AppendDataBoundItems="true" DataTextField="ConceptoContable" DataValueField="CveConceptoContable"></asp:DropDownList>
<asp:DropDownList ID="DdlCconceptosContables" Width="100%" CssClass="form-control input-sm select2me select2me" runat="server" AppendDataBoundItems="true" DataTextField="ConceptoContable" DataValueField="CveConceptoContable"></asp:DropDownList>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Asignar a cuenta ">
<ItemTemplate>
<asp:DropDownList ID="Ddlcuentassd" runat="server" AppendDataBoundItems="True" DataTextField="CtaCodigo" DataValueField="CveCuenta" Class="form-control hidden input-sm select2me" Width="100%"></asp:DropDownList>
<asp:DropDownList ID="Ddlcuentassd" runat="server" Width="100%" AppendDataBoundItems="True" DataTextField="CtaCodigo" DataValueField="CveCuenta" Class="form-control hidden input-sm select2me" ></asp:DropDownList>
</ItemTemplate>
</asp:TemplateField>
</Columns>
@@ -3166,7 +3166,7 @@
</div>
<div class="portlet-body " style="display: none">
<div class="row">
<div class="col-md-4">
<div class="col-md-2">
<div class="form-group form-md-line-input input-iconright" style="width: 120px; display: inline-block">
<asp:TextBox ID="TxtPrimaRiesgo" runat="server" CausesValidation="True" CssClass="form-control"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvTxtPrimaRiesgo" runat="server" ControlToValidate="TxtPrimaRiesgo" CssClass="dnone"
@@ -3175,24 +3175,33 @@
<asp:Label runat="server" Text="Prima de riesgo: " AssociatedControlID="TxtPrimaRiesgo"></asp:Label>
<ajax:ValidatorCalloutExtender ID="VcoTxtPrimaRiesgo" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtPrimaRiesgo" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
</div>
<div class="col-md-4">
<div class="form-group form-md-line-input input-iconright" style="width: 120px; display: inline-block">
<asp:TextBox ID="TxtFechaPRT" runat="server" CausesValidation="True" CssClass="form-control"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvTxtFechaPRT" runat="server" ControlToValidate="TxtFechaPRT" CssClass="dnone"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario "
ValidationGroup="GrpGuardarprimariesgo"></asp:RequiredFieldValidator>
<asp:Label runat="server" Text="Fecha: " AssociatedControlID="TxtFechaPRT"></asp:Label>
</div>
<div class="col-md-2">
<asp:Label runat="server" Text="Fecha: " AssociatedControlID="TxtFechaPRT"></asp:Label>
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
<asp:TextBox ID="TxtFechaPRT" runat="server" CausesValidation="True" CssClass="form-control" Width="80px" MaxLength="10"></asp:TextBox>
<span class="input-group-btn " style="display: inline-block">
<asp:LinkButton ID="ImgFechaRT" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
<asp:RequiredFieldValidator ID="RfvTxtFechaPRT" runat="server" ControlToValidate="TxtFechaPRT" CssClass="dnone"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario "
ValidationGroup="GrpGuardarprimariesgo"></asp:RequiredFieldValidator>
<ajax:MaskedEditExtender ID="MKEFechaBaja" runat="server" TargetControlID="TxtFechaPRT" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left" BehaviorID="_content_MKEFechaBaja" Century="2000" CultureAMPMPlaceholder="" CultureCurrencySymbolPlaceholder="" CultureDateFormat="" CultureDatePlaceholder="" CultureDecimalPlaceholder="" CultureThousandsPlaceholder="" CultureTimePlaceholder=""></ajax:MaskedEditExtender>
<ajax:CalendarExtender ID="CEFechaBaja" runat="server" TargetControlID="TxtFechaPRT" PopupButtonID="ImgFechaBaja" PopupPosition="BottomRight" BehaviorID="_content_CEFechaBaja"></ajax:CalendarExtender>
<asp:CompareValidator ID="CVFechaBaja" runat="server" ControlToValidate="TxtFechaPRT" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha de Baja''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardarprimariesgo" Visible="False"></asp:CompareValidator>
</div>
<span class="input-group-btn " style="display: inline-block">
<asp:LinkButton ID="ImgFechaBaja" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
<ajax:ValidatorCalloutExtender ID="vcoTxtFechaPRT" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtFechaPRT" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="vcoTxtFechaPRT" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtFechaPRT" Width="250px"></ajax:ValidatorCalloutExtender>
</div>
<div class="col-md-4">
<div class="col-md-3">
<asp:Label runat="server" AssociatedControlID="DdlRegistroPatronalPR" Text="Registro Patronal:" ></asp:Label>
<div >
<asp:DropDownList ID="DdlRegistroPatronalPR" runat="server" Width="100%" DataTextField="RegistroPatronal" CssClass="form-control input-sm select2me" DataValueField="CveRegistroPatronal" ></asp:DropDownList>
</div>
</div>
<div class="col-md-1">
<asp:LinkButton ID="LnkupPrimaRiesgo" OnClick="LnkupPrimaRiesgo_Click" CssClass="btn btn-primary" ValidationGroup="GrpGuardarprimariesgo" runat="server">Actualizar</asp:LinkButton>
</div>
</div>
@@ -3223,6 +3232,11 @@
<asp:Label ID="lblRiesgodeTrabajo" runat="server" Text='<%# Eval("Riesgo de trabajo","{0:N2}")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Registro Patronal" ItemStyle-HorizontalAlign="right">
<ItemTemplate>
<asp:Label ID="lblRegistroPatronal" runat="server" Text='<%# Eval("Registro Patronal","{0:N2}")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</div>

32
Nomina/Nomina.aspx.cs
View File

@@ -463,8 +463,10 @@ public partial class Nomina_Nomina2 : ClsPaginas
{
DdlRegistroPatronal.DataSource = onom.DtResultados;
DdlRegistroPatronal.DataBind();
DdlRegistroPatronalPR.DataSource = onom.DtResultados;
DdlRegistroPatronalPR.DataBind();
}
}
}
if (dtperinc != null)
{
DdlSRINCcveTipodeIncidencia.DataSource = dtperinc.FiltraParametros("Tipo = -1 OR Tipo =1 ");
@@ -9730,14 +9732,14 @@ public partial class Nomina_Nomina2 : ClsPaginas
{
if (objnom.DTSetResultados.Tables.Count > 1)
{
using (ClsContabilidad ObjContaz = new ClsContabilidad())
{
if (ObjContaz.GetConta_ConceptosContables())
{
ContaConceptossource = ObjContaz.DtResultados;
}
}
ContaConceptossource= get_GlobalDTContaConceptosContables(-1).FiltraParametros("AplicaPersonal = 1");
//using (ClsContabilidad ObjContaz = new ClsContabilidad())
//{
// if (ObjContaz.GetConta_ConceptosContables())
// {
// ContaConceptossource = ObjContaz.DtResultados;
// }
//}
if (UsuarioActual.Empresa.TipoContabilidad == 1)
{
@@ -9839,16 +9841,22 @@ public partial class Nomina_Nomina2 : ClsPaginas
protected void LnkupPrimaRiesgo_Click(object sender, EventArgs e)
{
int CveRegistroPatronal = DdlRegistroPatronalPR.SelectedValue.ToEntero();
if (CveRegistroPatronal > 0)
{
using (ClsNominas objnom = new ClsNominas())
{
if (objnom.PrimaRiesgoUP(UsuarioActual.CveEmpresa, TxtFechaPRT.Text.ToDateTime(), TxtPrimaRiesgo.Text.ToDecimal()))
if (objnom.PrimaRiesgoUP(UsuarioActual.CveEmpresa, TxtFechaPRT.Text.ToDateTime(), TxtPrimaRiesgo.Text.ToDecimal(), CveRegistroPatronal))
{
}
}
loadtablas();
}
else
{
Alert("Favor de seleccionar un registro patronal", TipoMensaje.MsgAdvertencia);
}
}

5
OS/OrdenesServicios.aspx.vb
View File

@@ -3839,6 +3839,11 @@ Partial Class OS_OrdenesServicios
Dim LigaRedirigir As String = ""
If CveVenta = 0 Then
Alert("El Material no se puede cancelar, ya que la remisión ya no está vigente y/o asociada.", TipoMensaje.MsgError)
Exit Sub
End If
Dim ObjFacturaCancelacion As New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=True, VerificaAlmacen:=True)
Try
Dim resp As Modelos.Factura.MCancelacionVentaMensaje = Nothing

53
RH/CalculoSBC.aspx.cs
View File

@@ -686,7 +686,7 @@ public partial class RH_CalculoSBC : ClsPaginas
$"************* 00{(contador < 1000 ? "0" : "")}{(contador < 100 ? "0" : "")}{(contador < 10 ? "0" : "")}{contador} 00001 9");
Script = string.Format("{0}SaveCsv(\"Movtos{3}_{2:ddMMMyyyy}.txt\", '{1}');", Script, MovtosmodSalario, TxtFechaPago.Text.ToDateTimeExcat("dd/MM/yyyy"), oldRegistroPatronal);
guardarArchivomodsalario(MovtosmodSalario);
MovtosmodSalario = "";
concater = "";
contador = 0;
@@ -706,30 +706,6 @@ public partial class RH_CalculoSBC : ClsPaginas
}
string rutarchivos = string.Format("{0}modificacionsalarios\\", UsuarioActual.Empresa.Ruta);
if (!System.IO.Directory.Exists(rutarchivos))
{
System.IO.Directory.CreateDirectory(rutarchivos);
}
string namearchivoO = TxtFechaPago.Text.ToDateTimeExcat("dd/MM/yyyy").ToString("yyyy-MM-dd");
string namearchivo = namearchivoO;
int contadorz = 1;
while (System.IO.File.Exists(string.Format("{0}{1}", rutarchivos, namearchivo)))
{
namearchivo = string.Format("{0}({1})", namearchivoO, contadorz++);
}
System.IO.StreamWriter archivoW = null;
try { archivoW = new System.IO.StreamWriter(string.Format("{0}{1}", rutarchivos, namearchivo), true, System.Text.Encoding.UTF8); } catch (Exception) { }
if (archivoW != null)
{
try { archivoW.WriteLine(MovtosmodSalario); } catch (Exception) { }
try
{
archivoW.Close();
archivoW.Dispose();
}
catch (Exception) { }
}
RegistraScript(Script);
// RegistraScript(string.Format("SaveCsv(\"MovtosmodSalario{1:ddMMMyyyy}.txt\", '{0}');", MovtosmodSalario, TxtFechaPago.Text.ToDateTimeExcat("dd/MM/yyyy")));
@@ -737,7 +713,34 @@ public partial class RH_CalculoSBC : ClsPaginas
//RegistraScript("$('#DmodalGetSua').modal('hide');");
}
}
private void guardarArchivomodsalario(string MovtosmodSalario)
{
string rutarchivos = string.Format("{0}modificacionsalarios\\", UsuarioActual.Empresa.Ruta);
if (!System.IO.Directory.Exists(rutarchivos))
{
System.IO.Directory.CreateDirectory(rutarchivos);
}
string namearchivoO = TxtFechaPago.Text.ToDateTimeExcat("dd/MM/yyyy").ToString("yyyy-MM-dd");
string namearchivo = namearchivoO;
int contadorz = 1;
while (System.IO.File.Exists(string.Format("{0}{1}", rutarchivos, namearchivo)))
{
namearchivo = string.Format("{0}({1})", namearchivoO, contadorz++);
}
System.IO.StreamWriter archivoW = null;
try { archivoW = new System.IO.StreamWriter(string.Format("{0}{1}.txt", rutarchivos, namearchivo), true, System.Text.Encoding.UTF8); } catch (Exception) { }
if (archivoW != null)
{
try { archivoW.WriteLine(MovtosmodSalario); } catch (Exception) { }
try
{
archivoW.Close();
archivoW.Dispose();
}
catch (Exception) { }
}
}
protected void LnkGuardarCambios_Click(object sender, EventArgs e)
{
string fecha = TxtFechaPago.Text.ToDateTimeExcat("dd/MM/yyyy").ToString("yyyy/MM/dd");

2
Scripts/custom.js
View File

@@ -481,7 +481,7 @@ table#${Tid}.adssigscroll tr:nth-child(${numberitem}) { top: ${top}px; }`;
}
function LoadSortSticky() {
$('body').on('click', 'table.adssigscroll tr.tr_order:not(.tsorterblock) > th ,table.adssigscroll tr.tr_order:not(.tsorterblock) > td ', function (e) {
$('body').on('click', 'table.adssigscroll.tr_order tr:not(.tsorterblock) > th ', function (e) {
var tthis = $(this);
if (tthis.closest('.NoClick').length == 0 && !($(e.target).is('a,input'))) {

6
Styles/Custom.css
View File

@@ -57,7 +57,7 @@ table.adssigscroll {
z-index: 4; /* Asegura que est<73> sobre otros elementos */
}
.tr_order > th::after {
.tr_order tr > th::after {
content: "\f0dc";
font: normal normal normal 14px / 1 FontAwesome;
display: inline-block;
@@ -65,11 +65,11 @@ table.adssigscroll {
color: #32A1CF;
}
.tr_order > th.asce::after {
.tr_order tr > th.asce::after {
content: "\f0de";
}
.tr_order > th.desc::after {
.tr_order tr > th.desc::after {
content: "\f0dd";
}
/*END ScrollADS V2*/

4
Ventas/Ventas.aspx.vb
View File

@@ -6544,6 +6544,7 @@ Partial Class Ventas
HdnVentaSaldo.Value = drv("Total").ToString()
TxtMotivoDescuento.Text = drv("MotivoDescuento").ToString()
TxtObsFact.Text = drv("Observaciones").ToString()
TxtOrdenCompra.Text = drv("OrdenCompra").ToString()
DdlMoneda.SelectedValue = drv("CveMoneda").ToString()
CambiaMoneda()
TxtTipoCambio.Text = drv("TipoCambio").ToString()
@@ -6639,7 +6640,8 @@ Partial Class Ventas
Private Sub CargaFormaPago(CveMetodoPago As Integer)
Dim dtt As DataTable = Nothing
If CveMetodoPago > 0 Then
dtt = GlobalDTVtaFormaPago.FiltraParametros(If(CveMetodoPago = 1, " CveFormaPago <> 20 ", "CveFormaPago = 20"))
'si es PPD, siempre tiene que ser "99", pero si es PUE, si puede seleccionar hasta el "99"
dtt = GlobalDTVtaFormaPago.FiltraParametros(If(CveMetodoPago = 1, "", "CveFormaPago = 20"))
Else
dtt = GlobalDTVtaFormaPago
End If