Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git
This commit is contained in:
@@ -1926,7 +1926,7 @@ Public Class ClsBancos
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
Public Function GetIngresoEgresosDelDia(Fecha As Date, Tipo As String, CveEmpresa As Integer, Optional Opcion As Integer = -1) As Boolean
|
||||
Public Function GetIngresoEgresosDelDia(Fecha As Date, Tipo As String, CveEmpresa As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
DataAdapter("PA_Banc_IngresoEgresosDiariosGet")
|
||||
|
||||
@@ -1934,7 +1934,7 @@ Public Class ClsBancos
|
||||
.Add("@Fecha", SqlDbType.Date).Value = Fecha
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
.Add("@Tipo", SqlDbType.VarChar).Value = Tipo 'Ing Ingresp Egs Egreso
|
||||
.Add("@Opcion", SqlDbType.VarChar).Value = Opcion ' 1 Bancos 2 caja chica
|
||||
'.Add("@Opcion", SqlDbType.VarChar).Value = Opcion ' 1 Bancos 2 caja chica
|
||||
End With
|
||||
|
||||
Try
|
||||
|
||||
@@ -773,6 +773,21 @@ Public Class ClsCGame
|
||||
|
||||
#Region "HUERTAS"
|
||||
|
||||
Public Function GetOrigen(CveEmpresa As Integer, Optional CveOrigen As Integer = -1) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
DataAdapter("PA_CGame_OrigenGet")
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@CveOrigen", SqlDbType.Int).Value = CveOrigen
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
End With
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
Retorno = True
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió un error al obtener las huertas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
|
||||
End Try
|
||||
Return Retorno
|
||||
End Function
|
||||
Public Function GetHuerta(CveEmpresa As Integer, Optional CveHuerta As Integer = -1, Optional Estatus As Integer = -1) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
DataAdapter("PA_CGame_HuertaGet")
|
||||
|
||||
@@ -1153,7 +1153,7 @@ Public Class ClsInventarios
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
Public Function MovimientoRemove(CveMovimiento As Integer, CveEmpresa As Integer) As Boolean
|
||||
Public Function MovimientoRemove(CveMovimiento As Integer, CveEmpresa As Integer, Optional CveUsuario As Integer = -1) As Boolean
|
||||
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
@@ -1162,6 +1162,7 @@ Public Class ClsInventarios
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
|
||||
|
||||
End With
|
||||
|
||||
|
||||
@@ -609,7 +609,7 @@ Public Class ClsNominas
|
||||
End Try
|
||||
Return retorno
|
||||
End Function
|
||||
Public Function CalculosISRAguinaldo(fraccionII_1 As Decimal, salariomensual As Decimal, diasmes As Int32, ejercicio As Int32) As Boolean
|
||||
Public Function CalculosISRAguinaldo(fraccionII_1 As Decimal, salariomensual As Decimal, diasmes As Decimal, ejercicio As Int32) As Boolean
|
||||
Dim retorno As Boolean = False
|
||||
DataAdapter("PA_Nom_CalculosISRAguinaldo", CommandType.StoredProcedure)
|
||||
addParameters("@FraccionII_1", SqlDbType.Money, fraccionII_1)
|
||||
|
||||
@@ -29,6 +29,104 @@ Namespace Extensiones
|
||||
|
||||
#Region "E X T E N S I O N E S"
|
||||
Public Module ModExtensiones
|
||||
|
||||
Public ReadOnly Property foreign_characters As Dictionary(Of String, String)
|
||||
Get
|
||||
Dim fgk As Dictionary(Of String, String) = New Dictionary(Of String, String) From {
|
||||
{"äæǽ", "ae"},
|
||||
{"öœ", "oe"},
|
||||
{"ü", "ue"},
|
||||
{"Ä", "Ae"},
|
||||
{"Ü", "Ue"},
|
||||
{"Ö", "Oe"},
|
||||
{"ÀÁÂÃÄÅǺĀĂĄǍΑΆẢẠẦẪẨẬẰẮẴẲẶА", "A"},
|
||||
{"àáâãåǻāăąǎªαάảạầấẫẩậằắẵẳặа", "a"},
|
||||
{"Б", "B"},
|
||||
{"б", "b"},
|
||||
{"ÇĆĈĊČ", "C"},
|
||||
{"çćĉċč", "c"},
|
||||
{"Д", "D"},
|
||||
{"д", "d"},
|
||||
{"ÐĎĐΔ", "Dj"},
|
||||
{"ðďđδ", "dj"},
|
||||
{"ÈÉÊËĒĔĖĘĚΕΈẼẺẸỀẾỄỂỆЕЭ", "E"},
|
||||
{"èéêëēĕėęěέεẽẻẹềếễểệеэ", "e"},
|
||||
{"Ф", "F"},
|
||||
{"ф", "f"},
|
||||
{"ĜĞĠĢΓГҐ", "G"},
|
||||
{"ĝğġģγгґ", "g"},
|
||||
{"ĤĦ", "H"},
|
||||
{"ĥħ", "h"},
|
||||
{"ÌÍÎÏĨĪĬǏĮİΗΉΊΙΪỈỊИЫ", "I"},
|
||||
{"ìíîïĩīĭǐįıηήίιϊỉịиыї", "i"},
|
||||
{"Ĵ", "J"},
|
||||
{"ĵ", "j"},
|
||||
{"ĶΚК", "K"},
|
||||
{"ķκк", "k"},
|
||||
{"ĹĻĽĿŁΛЛ", "L"},
|
||||
{"ĺļľŀłλл", "l"},
|
||||
{"М", "M"},
|
||||
{"м", "m"},
|
||||
{"ÑŃŅŇΝН", "N"},
|
||||
{"ñńņňʼnνн", "n"},
|
||||
{"ÒÓÔÕŌŎǑŐƠØǾΟΌΩΏỎỌỒỐỖỔỘỜỚỠỞỢО", "O"},
|
||||
{"òóôõōŏǒőơøǿºοόωώỏọồốỗổộờớỡởợо", "o"},
|
||||
{"П", "P"},
|
||||
{"п", "p"},
|
||||
{"ŔŖŘΡР", "R"},
|
||||
{"ŕŗřρр", "r"},
|
||||
{"ŚŜŞȘŠΣС", "S"},
|
||||
{"śŝşșšſσςс", "s"},
|
||||
{"ȚŢŤŦτТ", "T"},
|
||||
{"țţťŧт", "t"},
|
||||
{"ÙÚÛŨŪŬŮŰŲƯǓǕǗǙǛŨỦỤỪỨỮỬỰУ", "U"},
|
||||
{"ùúûũūŭůűųưǔǖǘǚǜυύϋủụừứữửựу", "u"},
|
||||
{"ÝŸŶΥΎΫỲỸỶỴЙ", "Y"},
|
||||
{"ýÿŷỳỹỷỵй", "y"},
|
||||
{"В", "V"},
|
||||
{"в", "v"},
|
||||
{"Ŵ", "W"},
|
||||
{"ŵ", "w"},
|
||||
{"ŹŻŽΖЗ", "Z"},
|
||||
{"źżžζз", "z"},
|
||||
{"ÆǼ", "AE"},
|
||||
{"ß", "ss"},
|
||||
{"IJ", "IJ"},
|
||||
{"ij", "ij"},
|
||||
{"Œ", "OE"},
|
||||
{"ƒ", "f"},
|
||||
{"ξ", "ks"},
|
||||
{"π", "p"},
|
||||
{"β", "v"},
|
||||
{"μ", "m"},
|
||||
{"ψ", "ps"},
|
||||
{"Ё", "Yo"},
|
||||
{"ё", "yo"},
|
||||
{"Є", "Ye"},
|
||||
{"є", "ye"},
|
||||
{"Ї", "Yi"},
|
||||
{"Ж", "Zh"},
|
||||
{"ж", "zh"},
|
||||
{"Х", "Kh"},
|
||||
{"х", "kh"},
|
||||
{"Ц", "Ts"},
|
||||
{"ц", "ts"},
|
||||
{"Ч", "Ch"},
|
||||
{"ч", "ch"},
|
||||
{"Ш", "Sh"},
|
||||
{"ш", "sh"},
|
||||
{"Щ", "Shch"},
|
||||
{"щ", "shch"},
|
||||
{"ЪъЬь", ""},
|
||||
{"Ю", "Yu"},
|
||||
{"ю", "yu"},
|
||||
{"Я", "Ya"},
|
||||
{"я", "ya"}
|
||||
}
|
||||
Return fgk
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public ReadOnly Property DirectorioBaseEmpresas As String
|
||||
Get
|
||||
If IsNothing(System.Configuration.ConfigurationManager.AppSettings("DirectorioBaseEmpresas")) Then
|
||||
@@ -3826,11 +3924,71 @@ Namespace Extensiones
|
||||
Dim FechaF As DateTime = New DateTime(Year, 10, 1, 23, 59, 59).GetLastWeekdayOfMonth(DayOfWeek.Sunday) 'ULTIMO DOMINGO DE OCTUBRE
|
||||
|
||||
Return fecha >= FechaI AndAlso fecha <= FechaF
|
||||
End Function
|
||||
|
||||
<Runtime.CompilerServices.Extension()>
|
||||
Function RemoveDiacritics(ByVal c As Char) As Char
|
||||
For Each entry As KeyValuePair(Of String, String) In foreign_characters
|
||||
|
||||
If entry.Key.IndexOf(c) <> -1 Then
|
||||
Return entry.Value(0)
|
||||
End If
|
||||
Next
|
||||
|
||||
Return c
|
||||
End Function
|
||||
|
||||
<Runtime.CompilerServices.Extension()>
|
||||
Function RemoveDiacritics(ByVal s As String) As String
|
||||
Dim text As String = ""
|
||||
|
||||
For Each c As Char In s
|
||||
Dim len As Integer = text.Length
|
||||
|
||||
For Each entry As KeyValuePair(Of String, String) In foreign_characters
|
||||
|
||||
If entry.Key.IndexOf(c) <> -1 Then
|
||||
text += entry.Value
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
|
||||
If len = text.Length Then
|
||||
text += c
|
||||
End If
|
||||
Next
|
||||
|
||||
Return text
|
||||
End Function
|
||||
End Module
|
||||
#End Region
|
||||
|
||||
#Region "C L A S E S"
|
||||
|
||||
#Region "C L A S E S"
|
||||
Public Class TipoCambioActual
|
||||
Public Fecha As Date
|
||||
Public TipoCambio As Decimal
|
||||
End Class
|
||||
|
||||
Public Class MenuModal
|
||||
Public Sub New()
|
||||
HeaderBar = New StringBuilder("<li><i class='fa fa-home'></i><a href='/Inicio.aspx'>Inicio</a></li>")
|
||||
MenuHTML = New StringBuilder()
|
||||
modpadres = New List(Of String)
|
||||
End Sub
|
||||
|
||||
Property CveModuloSeleccionado As Integer
|
||||
Property CveModuloSeleccionadoPadre As Integer
|
||||
Property dt As DataTable
|
||||
|
||||
Property HeaderBar As StringBuilder
|
||||
Property MenuHTML As StringBuilder
|
||||
Property ScriptColorGrupoModulo As String
|
||||
Property strdomain As String
|
||||
Property modpadres As List(Of String)
|
||||
|
||||
|
||||
End Class
|
||||
Public Class Archivo
|
||||
Public Sub New()
|
||||
filename = ""
|
||||
|
||||
@@ -1677,8 +1677,18 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
|
||||
'If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, String.Format("{0}, Informacion = {1}", TxtDescripcion.Text, DescripcionDetalladaEliminar), "Inventarios", TxtFolio.Text + " / " + DdlConcepto.SelectedItem.Text) Then
|
||||
' TieneError = True
|
||||
'End If
|
||||
Dim CveUsuarioEliminoMovimiento As Integer = 100
|
||||
|
||||
If Not Inv.MovimientoRemove(CveMovimiento, CveEmpresa) Then
|
||||
Try
|
||||
Dim usuario As Usuario = UsuarioActual(context)
|
||||
CveUsuarioEliminoMovimiento = If(usuario.CveUsuario > 0, usuario.CveUsuario, 100)
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
|
||||
|
||||
If Not Inv.MovimientoRemove(CveMovimiento, CveEmpresa, CveUsuarioEliminoMovimiento) Then
|
||||
|
||||
TieneError = True
|
||||
End If
|
||||
|
||||
@@ -719,7 +719,10 @@ Partial Class Bancos_Creditos
|
||||
ErrorCredito = True
|
||||
End If
|
||||
|
||||
If ObjCredito.AddCreditos(TipoCreditoTemp, TxtCSReferencia.Text, TxtCSObservaciones.Text, DdlCuentaCredito.SelectedValue.ToEntero, HdnCveCompra.Value.ToEntero, -1, DdlCSTipoMoneda.SelectedValue.ToEntero, TxtCSFechaInicio.Text.Trim.ToDate, TxtCSFechaVencimiento.Text.Trim.ToDate, TxtCSTasa.Text.Trim.ToDouble, TxtCSSobreTasa.Text.Trim.ToDouble, -1, TxtCSPlazo.Text.ToEntero, CveIE, If(TipoCreditoTemp = 2, TxtCSTotalCredito.Text.ToEntero, TotalCompra), -1, -1, -1, CveProveedor, RBLClasificacionContable.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=DdlTarjetaCredito.SelectedValue.ToEntero, AplicaAnticipo:=If(RBLAnticipo.SelectedValue.ToEntero = 1, True, False)) > 0 Then
|
||||
If ObjCredito.AddCreditos(TipoCreditoTemp, TxtCSReferencia.Text, TxtCSObservaciones.Text, DdlCuentaCredito.SelectedValue.ToEntero, HdnCveCompra.Value.ToEntero, -1, DdlCSTipoMoneda.SelectedValue.ToEntero, TxtCSFechaInicio.Text.Trim.ToDate,
|
||||
TxtCSFechaVencimiento.Text.Trim.ToDate, TxtCSTasa.Text.Trim.ToDouble, TxtCSSobreTasa.Text.Trim.ToDouble, -1, TxtCSPlazo.Text.ToEntero, CveIE, If(TipoCreditoTemp = 2, TxtCSTotalCredito.Text.ToEntero, TotalCompra),
|
||||
-1, -1, -1, CveProveedor, RBLClasificacionContable.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=DdlTarjetaCredito.SelectedValue.ToEntero,
|
||||
AplicaAnticipo:=If(RBLAnticipo.SelectedValue.ToEntero = 1, True, False)) > 0 Then
|
||||
'Dim Fecha = If(TipoCreditoTemp = 2, TxtCSFechaDeposito.Text.ToDate, TxtCSFechaVencimiento.Text.ToDate)
|
||||
'For i = 1 To If(TipoCreditoTemp = 2, TxtCSPeriodos.Text.Trim.ToEntero, 1)
|
||||
'DateAdd("d", TxtPlazo.Text.ToEntero, Fecha)
|
||||
@@ -761,7 +764,10 @@ Partial Class Bancos_Creditos
|
||||
If CveCredito > 0 Then
|
||||
Dim TipoCreditoTemp = DdlTipoCredito.SelectedValue.ToEntero
|
||||
|
||||
If ObjCredito.UpdateCreditos(CveCredito, TipoCreditoTemp, TxtCSReferencia.Text, TxtCSObservaciones.Text, DdlCuentaCredito.SelectedValue.ToEntero, HdnCveCompra.Value.ToEntero, -1, DdlCSTipoMoneda.SelectedValue.ToEntero, TxtCSFechaInicio.Text.Trim.ToDate, TxtCSFechaVencimiento.Text.Trim.ToDate, TxtCSTasa.Text.Trim.ToDouble, TxtCSSobreTasa.Text.Trim.ToDouble, -1, TxtCSPlazo.Text.ToEntero, CveIE, If(TipoCreditoTemp = 2, TxtCSTotalCredito.Text.ToEntero, TotalCompra), -1, -1, -1, -1, RBLClasificacionContable.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=DdlTarjetaCredito.SelectedValue.ToEntero, AplicaAnticipo:=If(RBLAnticipo.SelectedValue.ToEntero = 1, True, False)) Then
|
||||
If ObjCredito.UpdateCreditos(CveCredito, TipoCreditoTemp, TxtCSReferencia.Text, TxtCSObservaciones.Text, DdlCuentaCredito.SelectedValue.ToEntero, HdnCveCompra.Value.ToEntero, -1, DdlCSTipoMoneda.SelectedValue.ToEntero, TxtCSFechaInicio.Text.Trim.ToDate,
|
||||
TxtCSFechaVencimiento.Text.Trim.ToDate, TxtCSTasa.Text.Trim.ToDouble, TxtCSSobreTasa.Text.Trim.ToDouble, -1, TxtCSPlazo.Text.ToEntero, CveIE, If(TipoCreditoTemp = 2, TxtCSTotalCredito.Text.ToEntero, TotalCompra),
|
||||
-1, -1, -1, -1, RBLClasificacionContable.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=DdlTarjetaCredito.SelectedValue.ToEntero,
|
||||
AplicaAnticipo:=If(RBLAnticipo.SelectedValue.ToEntero = 1, True, False)) Then
|
||||
If Not ObjCredito.UpdateCreditosDetalle(ObjCredito.CveCredito, TxtCSFechaVencimiento.Text.ToDate, If(TipoCreditoTemp = 2, TxtCSTotalCredito.Text.ToString.ToEntero, TotalCompra), 0.0, 0.0, 0.0, 0.0, 0.0, If(TipoCreditoTemp = 1, 101, 1)) Then
|
||||
ErrorCredito = True
|
||||
End If
|
||||
|
||||
@@ -50,50 +50,38 @@ Partial Class Bancos_FlujoDiario
|
||||
|
||||
Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
|
||||
Dim params As New List(Of ReportParameter)
|
||||
Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
|
||||
|
||||
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
||||
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
||||
|
||||
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
||||
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
|
||||
params.Add(New ReportParameter("Fecha", TxtFecha.Text.ToDate.ToLongDateString))
|
||||
|
||||
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
|
||||
|
||||
If Imagen.Exists Then
|
||||
If Imagen.Exists Then
|
||||
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
'SE LLENA TmpDTSaldosIniciales
|
||||
Dim Ban As New ClsBancos
|
||||
|
||||
Dim TmpDTIngresosDelDiaCajaChica As New DataTable
|
||||
Dim TmpDTGastosDelDiaCajaChica As New DataTable
|
||||
|
||||
If Ban.GetBancosSaldos(-1, -1, -1, MinFecha.ToString, TxtFecha.Text.ToDate.AddDays(-1).ToShortDateString, 0, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
TmpDTSaldosIniciales = Ban.DtResultados
|
||||
End If
|
||||
|
||||
'Se Llena TmpDTIngresosDelDia
|
||||
If Ban.GetIngresoEgresosDelDia(TxtFecha.Text.ToDate, "Ing", UsuarioActual.CveEmpresa, 1) Then
|
||||
TmpDTIngresosDelDia = Ban.DtResultados
|
||||
TmpDTIngresosDelDia = Ban.DtResultados
|
||||
End If
|
||||
|
||||
If Ban.GetIngresoEgresosDelDia(TxtFecha.Text.ToDate, "Ing", UsuarioActual.CveEmpresa, 2) Then
|
||||
TmpDTIngresosDelDiaCajaChica = Ban.DtResultados '.FiltraParametros("CveTipoTransaccion <> 8")
|
||||
If Ban.GetIngresoEgresosDelDia(TxtFecha.Text.ToDate, "Ing", UsuarioActual.CveEmpresa) Then
|
||||
TmpDTIngresosDelDia = Ban.DtResultados'.FiltraParametros("CveTipoTransaccion <> 8")
|
||||
End If
|
||||
|
||||
'Se Llena TmpDTGastosDelDia
|
||||
If Ban.GetIngresoEgresosDelDia(TxtFecha.Text.ToDate, "Egs", UsuarioActual.CveEmpresa, 1) Then
|
||||
TmpDTGastosDelDia = Ban.DtResultados '.FiltraParametros("CveTipoTransaccion <> 2")
|
||||
End If
|
||||
|
||||
If Ban.GetIngresoEgresosDelDia(TxtFecha.Text.ToDate, "Egs", UsuarioActual.CveEmpresa, 2) Then
|
||||
TmpDTGastosDelDiaCajaChica = Ban.DtResultados '.FiltraParametros("CveTipoTransaccion <> 2")
|
||||
If Ban.GetIngresoEgresosDelDia(TxtFecha.Text.ToDate, "Egs", UsuarioActual.CveEmpresa) Then
|
||||
TmpDTGastosDelDia = Ban.DtResultados'.FiltraParametros("CveTipoTransaccion <> 2")
|
||||
End If
|
||||
|
||||
'Se Llena TmpDTSaldosActuales
|
||||
@@ -110,15 +98,10 @@ Partial Class Bancos_FlujoDiario
|
||||
Dim rds5 As New ReportDataSource With {.Name = "DataSet5", .Value = If(TmpDTGastosDelDia IsNot Nothing, TmpDTGastosDelDia, New DataTable)}
|
||||
Dim rds4 As New ReportDataSource With {.Name = "DataSet4", .Value = If(TmpDTSaldosActuales IsNot Nothing, TmpDTSaldosActuales, New DataTable)}
|
||||
|
||||
Dim rds6 As New ReportDataSource With {.Name = "DataSet6", .Value = If(TmpDTIngresosDelDiaCajaChica IsNot Nothing, TmpDTIngresosDelDiaCajaChica, New DataTable)}
|
||||
Dim rds7 As New ReportDataSource With {.Name = "DataSet7", .Value = If(TmpDTGastosDelDiaCajaChica IsNot Nothing, TmpDTGastosDelDiaCajaChica, New DataTable)}
|
||||
|
||||
lrds.Add(rds)
|
||||
lrds.Add(rds2)
|
||||
lrds.Add(rds3)
|
||||
lrds.Add(rds4)
|
||||
lrds.Add(rds6)
|
||||
lrds.Add(rds7)
|
||||
'lrds.Add(rds5)-
|
||||
|
||||
|
||||
|
||||
@@ -69,7 +69,7 @@
|
||||
</div>
|
||||
<div class="portlet-body form">
|
||||
<asp:GridView ID="GVHuerta" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD GVCGame_TipoMaduracion mysmallbtn" Width="100%" data-sort="true" AutoGenerateColumns="False"
|
||||
DataKeyNames="CveHuerta,Huerta,CveOrigen,CveProveedor,RazonSocial,FechaIng,Estatus,CveUsuario,Usuario,CveEmpresa,Empresa,TipoCobro,Importe,CostoXTonelada" OnRowDataBound="GvHuerta_RowDataBound">
|
||||
DataKeyNames="CveHuerta,Huerta,CveOrigen,NombreRegistro,NumeroRegistro,CveProveedor,RazonSocial,FechaIng,Estatus,CveUsuario,Usuario,CveEmpresa,Empresa,TipoCobro,Importe,CostoXTonelada" OnRowDataBound="GvHuerta_RowDataBound">
|
||||
<Columns>
|
||||
<asp:TemplateField HeaderText="Huerta" ItemStyle-HorizontalAlign="Left">
|
||||
<ItemTemplate>
|
||||
@@ -149,10 +149,10 @@
|
||||
<ajax:ValidatorCalloutExtender ID="VcoHuerhuerta" runat="server" HighlightCssClass="vco" TargetControlID="RfvHuerhuerta"></ajax:ValidatorCalloutExtender>
|
||||
<label for="<%= TxtHuerhuerta.ClientID.ToString()%>">Productor:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright ocultar">
|
||||
<div class="form-group form-md-line-input input-iconright ">
|
||||
<asp:DropDownList ID="ddlOrigen" CssClass="form-control select2me" runat="server" AppendDataBoundItems="true" Style="width: 100%" DataValueField="CveOrigen" DataTextField="Origen">
|
||||
</asp:DropDownList>
|
||||
<label for="<%= DdlTipoCobro.ClientID.ToString()%>">Origen:</label>
|
||||
<label for="<%= ddlOrigen.ClientID.ToString()%>">Origen:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtNombreRegistro" CssClass="form-control" runat="server"></asp:TextBox>
|
||||
|
||||
@@ -2,8 +2,14 @@
|
||||
using System;
|
||||
using System.Collections.Generic;
|
||||
using System.Linq;
|
||||
using System.Web;
|
||||
using System.Web.UI.WebControls;
|
||||
using System.Web;
|
||||
using System.Web.UI.WebControls;
|
||||
using Extensiones;
|
||||
|
||||
public partial class CATHuerta :ClsPaginas
|
||||
{
|
||||
|
||||
#region Propiedades
|
||||
private int CveHuerta
|
||||
{
|
||||
get{return (ViewState["CveHuerta"] == null) ? 0 : Convert.ToInt32(ViewState["CveHuerta"]);}
|
||||
@@ -16,7 +22,8 @@
|
||||
if (!IsPostBack){
|
||||
CargaProveedor();
|
||||
CargaHuerta();
|
||||
#endregion
|
||||
}
|
||||
}
|
||||
protected void CargaHuerta()
|
||||
{
|
||||
ClsCGame ObjHuer =new ClsCGame();
|
||||
|
||||
@@ -6331,7 +6331,7 @@ Partial Class Compras_Compras
|
||||
funcionalidad = 317
|
||||
ConceptoContable = 243
|
||||
ElseIf DdlRetISRConcepto.SelectedValue.ToEntero = 3 Then
|
||||
funcionalidad = 349
|
||||
funcionalidad = 348
|
||||
ConceptoContable = 327
|
||||
End If
|
||||
importeMovimiento = CompraActual.RetISR
|
||||
@@ -8557,40 +8557,45 @@ Partial Class Compras_Compras
|
||||
|
||||
Dim CveMovimientoActual As Integer = diRow("CveMovimiento").ToString.ToEntero
|
||||
|
||||
Dim DTMovimientoActual As DataTable = DTInventarios.FiltraParametros($"CveMovimiento = {CveMovimientoActual} ")
|
||||
|
||||
Dim detalleDescripcion As String = ""
|
||||
Dim Description As String = ""
|
||||
|
||||
Dim FolioMovimiento As String = ""
|
||||
Dim ConceptoMovimiento As String = ""
|
||||
|
||||
For Each dRowMovActual As DataRow In DTMovimientoActual.Rows
|
||||
|
||||
If dRowMovActual("UM").ToString = "" Then
|
||||
FolioMovimiento = dRowMovActual("Folio").ToString
|
||||
ConceptoMovimiento = dRowMovActual("Concepto").ToString
|
||||
|
||||
Description = String.Format("Eliminación Compra {6},Movimiento con Concepto: {0}, Almacen: {1}, Fecha: {2}, Folio: {3}, Usuario: {4}, Observaciones adicionales: {5}, Productos Información:<br/>",
|
||||
ConceptoMovimiento,
|
||||
dRowMovActual("Almacen").ToString,
|
||||
dRowMovActual("FechaMovto").ToString.ToDate.ToString("dd/MM/yyyy"),
|
||||
FolioMovimiento,
|
||||
dRowMovActual("Usuario").ToString,
|
||||
dRowMovActual("Observaciones").ToString,
|
||||
$"{TxtSerie.Text}-{TxtFolio.Text}")
|
||||
Else
|
||||
detalleDescripcion = String.Format("- Cant: {0}, PS: {1}, PU: {2}, UM: {3}<br/>", dRowMovActual("Cantidad").ToString.ToEntero, dRowMovActual("CodigoPS"), dRowMovActual("PU"), dRowMovActual("UM"))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1,
|
||||
String.Format("{0}, Informacion = {1}", Description, detalleDescripcion),
|
||||
"Inventarios", FolioMovimiento + " / " + ConceptoMovimiento) Then
|
||||
If Not ObjInventarios.MovimientoRemove(CveMovimientoActual, UsuarioActual.CveEmpresa, CveUsuario:=UsuarioActual.CveUsuario) Then
|
||||
ErrorCompra = True
|
||||
Exit For
|
||||
End If
|
||||
|
||||
'Dim DTMovimientoActual As DataTable = DTInventarios.FiltraParametros($"CveMovimiento = {CveMovimientoActual} ")
|
||||
|
||||
'Dim detalleDescripcion As String = ""
|
||||
'Dim Description As String = ""
|
||||
|
||||
'Dim FolioMovimiento As String = ""
|
||||
'Dim ConceptoMovimiento As String = ""
|
||||
|
||||
'For Each dRowMovActual As DataRow In DTMovimientoActual.Rows
|
||||
|
||||
' If dRowMovActual("UM").ToString = "" Then
|
||||
' FolioMovimiento = dRowMovActual("Folio").ToString
|
||||
' ConceptoMovimiento = dRowMovActual("Concepto").ToString
|
||||
|
||||
' Description = String.Format("Eliminación Compra {6},Movimiento con Concepto: {0}, Almacen: {1}, Fecha: {2}, Folio: {3}, Usuario: {4}, Observaciones adicionales: {5}, Productos Información:<br/>",
|
||||
' ConceptoMovimiento,
|
||||
' dRowMovActual("Almacen").ToString,
|
||||
' dRowMovActual("FechaMovto").ToString.ToDate.ToString("dd/MM/yyyy"),
|
||||
' FolioMovimiento,
|
||||
' dRowMovActual("Usuario").ToString,
|
||||
' dRowMovActual("Observaciones").ToString,
|
||||
' $"{TxtSerie.Text}-{TxtFolio.Text}")
|
||||
' Else
|
||||
' detalleDescripcion = String.Format("- Cant: {0}, PS: {1}, PU: {2}, UM: {3}<br/>", dRowMovActual("Cantidad").ToString.ToEntero, dRowMovActual("CodigoPS"), dRowMovActual("PU"), dRowMovActual("UM"))
|
||||
' End If
|
||||
|
||||
'Next
|
||||
|
||||
'If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1,
|
||||
' String.Format("{0}, Informacion = {1}", Description, detalleDescripcion),
|
||||
' "Inventarios", FolioMovimiento + " / " + ConceptoMovimiento) Then
|
||||
' ErrorCompra = True
|
||||
' Exit For
|
||||
'End If
|
||||
Next
|
||||
|
||||
End If
|
||||
|
||||
@@ -162,99 +162,124 @@
|
||||
</asp:Panel>
|
||||
|
||||
<br />
|
||||
<div class="chequesie" style="width: 700px;" runat="server" id="TableExpedirCheque" visible="false">
|
||||
<div class="chequesie1">
|
||||
<div class="row">
|
||||
<label class="col-md-2 truncate" style="width: 130px;">Tipo Movimiento:</label>
|
||||
<div class="col-md-6">
|
||||
<asp:DropDownList ID="DdlTipoTransaccion" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="TipoTransaccion" DataValueField="CveTipoTransaccion" ValidationGroup="GrpGuardar">
|
||||
</asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVTipoTransaccion" runat="server" ControlToValidate="DdlTipoTransaccion" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Movimiento''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCETipoTransaccion" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipoTransaccion" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
<asp:HiddenField ID="HdnTipoTransaccion" runat="server" Value="" />
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<label class="col-md-2" style="width: 130px;">Cuenta:</label>
|
||||
<div class="col-md-6">
|
||||
<asp:DropDownList ID="DdlCuenta" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" ValidationGroup="GrpGuardar">
|
||||
</asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVCuenta" runat="server" ControlToValidate="DdlCuenta" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCOCuenta" runat="server" HighlightCssClass="vco" TargetControlID="RFVCuenta" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
<div class="col-md-4">
|
||||
<asp:CheckBox ID="ChkAbonoCuenta" ClientIDMode="Static" runat="server" Text="Abono en Cuenta"></asp:CheckBox>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="chequesie2">
|
||||
<div class="row">
|
||||
<div class="col-md-7"></div>
|
||||
<label class="col-md-2 control-label text-right">Fecha:</label>
|
||||
<div class="col-md-2">
|
||||
<div class="input-group input-small date date-picker" data-date-format="dd/mm/yyyy">
|
||||
<asp:TextBox ID="TxtFechaDocumento" runat="server" CssClass="form-control"></asp:TextBox>
|
||||
<span class="input-group-btn ">
|
||||
<asp:LinkButton runat="server" ID="ImgCalendario" class="btn default"><i class="fa fa-calendar"></i></asp:LinkButton>
|
||||
</span>
|
||||
|
||||
<div class="row" runat="server" id="TableExpedirCheque" visible="false" >
|
||||
|
||||
<div class="col-lg-8">
|
||||
|
||||
<div class="chequesie" style="width: 700px;" >
|
||||
<div class="chequesie1">
|
||||
<div class="row">
|
||||
<label class="col-md-2 truncate" style="width: 130px;">Tipo Movimiento:</label>
|
||||
<div class="col-md-6">
|
||||
<asp:DropDownList ID="DdlTipoTransaccion" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="TipoTransaccion" DataValueField="CveTipoTransaccion" ValidationGroup="GrpGuardar">
|
||||
</asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVTipoTransaccion" runat="server" ControlToValidate="DdlTipoTransaccion" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Movimiento''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCETipoTransaccion" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipoTransaccion" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
<asp:HiddenField ID="HdnTipoTransaccion" runat="server" Value="" />
|
||||
</div>
|
||||
</div>
|
||||
<ajax:MaskedEditExtender ID="MEEFecha" runat="server" TargetControlID="TxtFechaDocumento" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||
<ajax:CalendarExtender ID="Calendario" runat="server" TargetControlID="TxtFechaDocumento" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||
<asp:RequiredFieldValidator ID="RFVFechaDocumento" runat="server" ControlToValidate="TxtFechaDocumento" Display="None" ErrorMessage="El campo <b>''Fecha''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<asp:CompareValidator ID="CVFechaDocumento" runat="server" ControlToValidate="TxtFechaDocumento" Display="None" ErrorMessage="El campo <b>''Fecha''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCOFechaDocumento1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
<ajax:ValidatorCalloutExtender ID="VCOFechaDocumento2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
<asp:RangeValidator ID="RVTxtFechaDocumento" runat="server" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha del documento no puede ser superior a la fecha actual" ControlToValidate="TxtFechaDocumento" MinimumValue="01/01/1900" Type="Date" ValidationGroup="GrpGuardar"></asp:RangeValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCOFechaDocumento3" runat="server" HighlightCssClass="vco" TargetControlID="RVTxtFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
<div class="row">
|
||||
<label class="col-md-2" style="width: 130px;">Cuenta:</label>
|
||||
<div class="col-md-6">
|
||||
<asp:DropDownList ID="DdlCuenta" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" ValidationGroup="GrpGuardar">
|
||||
</asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVCuenta" runat="server" ControlToValidate="DdlCuenta" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCOCuenta" runat="server" HighlightCssClass="vco" TargetControlID="RFVCuenta" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
<div class="col-md-4">
|
||||
<asp:CheckBox ID="ChkAbonoCuenta" ClientIDMode="Static" runat="server" Text="Abono en Cuenta"></asp:CheckBox>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="chequesie2">
|
||||
<div class="row">
|
||||
<div class="col-md-7"></div>
|
||||
<label class="col-md-2 control-label text-right">Fecha:</label>
|
||||
<div class="col-md-2">
|
||||
<div class="input-group input-small date date-picker" data-date-format="dd/mm/yyyy">
|
||||
<asp:TextBox ID="TxtFechaDocumento" runat="server" CssClass="form-control"></asp:TextBox>
|
||||
<span class="input-group-btn ">
|
||||
<asp:LinkButton runat="server" ID="ImgCalendario" class="btn default"><i class="fa fa-calendar"></i></asp:LinkButton>
|
||||
</span>
|
||||
</div>
|
||||
<ajax:MaskedEditExtender ID="MEEFecha" runat="server" TargetControlID="TxtFechaDocumento" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||
<ajax:CalendarExtender ID="Calendario" runat="server" TargetControlID="TxtFechaDocumento" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||
<asp:RequiredFieldValidator ID="RFVFechaDocumento" runat="server" ControlToValidate="TxtFechaDocumento" Display="None" ErrorMessage="El campo <b>''Fecha''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<asp:CompareValidator ID="CVFechaDocumento" runat="server" ControlToValidate="TxtFechaDocumento" Display="None" ErrorMessage="El campo <b>''Fecha''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCOFechaDocumento1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
<ajax:ValidatorCalloutExtender ID="VCOFechaDocumento2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
<asp:RangeValidator ID="RVTxtFechaDocumento" runat="server" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha del documento no puede ser superior a la fecha actual" ControlToValidate="TxtFechaDocumento" MinimumValue="01/01/1900" Type="Date" ValidationGroup="GrpGuardar"></asp:RangeValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCOFechaDocumento3" runat="server" HighlightCssClass="vco" TargetControlID="RVTxtFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<label class="col-md-2 control-label">Folio:</label>
|
||||
<div class="col-md-3">
|
||||
<asp:TextBox ID="TxtFolio" CssClass="form-control input-sm" runat="server" MaxLength="12" Width="110px"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVFolio" runat="server" ControlToValidate="TxtFolio" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Folio''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCEFolio" runat="server" HighlightCssClass="vco" TargetControlID="RFVFolio" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
<div class="col-md-2"></div>
|
||||
<label class="col-md-2 control-label text-right">Importe:</label>
|
||||
<div class="col-md-2 input-icon">
|
||||
<i style="margin: 0px;">$</i>
|
||||
<asp:TextBox ID="TxtImporte" CssClass="form-control input-sm" runat="server" MaxLength="12" Width="140px" ClientIDMode="Static" Style="text-align: right;"></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender ID="ftbe" runat="server" TargetControlID="TxtImporte" FilterType="Custom, Numbers" ValidChars="+-.," />
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<label class="col-md-2">
|
||||
<asp:Label ID="LblPagueseA" runat="server" Text="Abónese a"></asp:Label>:</label>
|
||||
<div class="col-md-10">
|
||||
<asp:TextBox CssClass="form-control input-sm" ID="TxtAboneA" runat="server" MaxLength="70" Width="394px"></asp:TextBox>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<label class="col-md-2">Observaciones</label>
|
||||
<div class="col-md-7">
|
||||
<asp:TextBox ID="TxtObservaciones" CssClass="form-control input-sm" runat="server" MaxLength="500" Width="400px" Rows="3" TextMode="MultiLine" ClientIDMode="Static"></asp:TextBox>
|
||||
<asp:HiddenField ID="HdnObs" runat="server" ClientIDMode="Static" />
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<label class="col-md-2 control-label">Folio:</label>
|
||||
<div class="col-md-3">
|
||||
<asp:TextBox ID="TxtFolio" CssClass="form-control input-sm" runat="server" MaxLength="12" Width="110px"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVFolio" runat="server" ControlToValidate="TxtFolio" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Folio''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCEFolio" runat="server" HighlightCssClass="vco" TargetControlID="RFVFolio" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
<div class="col-md-2"></div>
|
||||
<label class="col-md-2 control-label text-right">Importe:</label>
|
||||
<div class="col-md-2 input-icon">
|
||||
<i style="margin: 0px;">$</i>
|
||||
<asp:TextBox ID="TxtImporte" CssClass="form-control input-sm" runat="server" MaxLength="12" Width="140px" ClientIDMode="Static" Style="text-align: right;"></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender ID="ftbe" runat="server" TargetControlID="TxtImporte" FilterType="Custom, Numbers" ValidChars="+-.," />
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<label class="col-md-2">
|
||||
<asp:Label ID="LblPagueseA" runat="server" Text="Abónese a"></asp:Label>:</label>
|
||||
<div class="col-md-10">
|
||||
<asp:TextBox CssClass="form-control input-sm" ID="TxtAboneA" runat="server" MaxLength="70" Width="394px"></asp:TextBox>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<label class="col-md-2">Observaciones</label>
|
||||
<div class="col-md-7">
|
||||
<asp:TextBox ID="TxtObservaciones" CssClass="form-control input-sm" runat="server" MaxLength="500" Width="400px" Rows="3" TextMode="MultiLine" ClientIDMode="Static"></asp:TextBox>
|
||||
<asp:HiddenField ID="HdnObs" runat="server" ClientIDMode="Static" />
|
||||
</div>
|
||||
|
||||
<div class="col-md-2 input-icon">
|
||||
<i style="margin: 0px;">$</i>
|
||||
<asp:TextBox ID="TxtOtrosImportes" runat="server" ReadOnly="true" CssClass="form-control input-sm" Visible="false" MaxLength="12" Width="140px" placeholder="Otros Importes" ClientIDMode="Static" Style="text-align: right;"></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender ID="FTEOtrosImportes" runat="server" TargetControlID="TxtOtrosImportes" FilterType="Custom, Numbers" ValidChars="+-.," />
|
||||
<asp:RangeValidator ID="RangeValidator1" runat="server" Enabled="false" Type="Currency" MinimumValue="0" MaximumValue="0" ErrorMessage="Importe Excedido" ControlToValidate="TxtOtrosImportes" Display="Dynamic" ValidationGroup="GrpGuardar"></asp:RangeValidator>
|
||||
<asp:TextBox ID="TxtTotal" runat="server" CssClass="form-control input-sm" Visible="false" MaxLength="12" Width="140px" placeholder="Total" Enabled="false" ClientIDMode="Static" Style="text-align: right;"></asp:TextBox>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row" runat="server" >
|
||||
<label class="col-md-2" runat="server" id="lblpagocomisiones">Otros Ingresos:</label>
|
||||
<div class="col-md-3">
|
||||
<asp:CheckBox ID="ChkAjusteOI" runat="server" AutoPostBack="true" />
|
||||
<div class="col-md-2 input-icon">
|
||||
<i style="margin: 0px;">$</i>
|
||||
<asp:TextBox ID="TxtOtrosImportes" runat="server" ReadOnly="true" CssClass="form-control input-sm" Visible="false" MaxLength="12" Width="140px" placeholder="Otros Importes" ClientIDMode="Static" Style="text-align: right;"></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender ID="FTEOtrosImportes" runat="server" TargetControlID="TxtOtrosImportes" FilterType="Custom, Numbers" ValidChars="+-.," />
|
||||
<asp:RangeValidator ID="RangeValidator1" runat="server" Enabled="false" Type="Currency" MinimumValue="0" MaximumValue="0" ErrorMessage="Importe Excedido" ControlToValidate="TxtOtrosImportes" Display="Dynamic" ValidationGroup="GrpGuardar"></asp:RangeValidator>
|
||||
<asp:TextBox ID="TxtTotal" runat="server" CssClass="form-control input-sm" Visible="false" MaxLength="12" Width="140px" placeholder="Total" Enabled="false" ClientIDMode="Static" Style="text-align: right;"></asp:TextBox>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row" runat="server" >
|
||||
<label class="col-md-2" runat="server" id="lblpagocomisiones">Otros Ingresos:</label>
|
||||
<div class="col-md-3">
|
||||
<asp:CheckBox ID="ChkAjusteOI" runat="server" AutoPostBack="true" />
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
<div class="col-lg-4">
|
||||
|
||||
<asp:UpdatePanel runat="server">
|
||||
<ContentTemplate>
|
||||
<div>
|
||||
<asp:TextBox ID="Anexo" CssClass="ADSdropzone hidden" data-maxFile="1" Text="" runat="server"></asp:TextBox>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
</div>
|
||||
|
||||
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</td>
|
||||
|
||||
@@ -521,6 +521,17 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
|
||||
Next
|
||||
|
||||
Dim filesgral As List(Of Archivo) = Anexo.getfiles().Archivos
|
||||
|
||||
Dim filemove As String = ""
|
||||
Dim Comprobante As String = ""
|
||||
Dim ComprobanteIE = ""
|
||||
|
||||
For Each fileItem As Archivo In filesgral
|
||||
Comprobante = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
|
||||
filemove = fileItem.filename
|
||||
Next
|
||||
|
||||
If HdnCheque.Value.ToEntero > 0 AndAlso Not ChkReembolsarSinBancos.Checked Then
|
||||
CveIERegistrado = DDlCheques.SelectedValue.ToEntero
|
||||
|
||||
@@ -569,14 +580,31 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
|
||||
If ChkChequeExcedente.Checked Then
|
||||
CvePrePolizaExcedente = ObjMov.AddPrePolizas("Compras/Comprobaciones3", 9, TxtImporte.Text.ToDecimal, TxtImporte.Text.ToDecimal, CveMoneda, TxtFechaDocumento.Text.ToDate, If(TxtObservaciones.Text.Trim = "", concepto, TxtObservaciones.Text.Trim), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
CveIEExcedente = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.ToDate, TxtFolio.Text.Trim, TxtAboneA.Text, TxtImporte.Text.ToDecimal, CveMoneda, 0.0, TxtObservaciones.Text, "", ChkAbonoCuenta.Checked, True, -1, CvePrePolizaExcedente, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FueConciliado:=If(ChkReembolsarSinBancos.Checked, True, False))
|
||||
CveIEExcedente = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.ToDate, TxtFolio.Text.Trim, TxtAboneA.Text, TxtImporte.Text.ToDecimal, CveMoneda, 0.0, TxtObservaciones.Text, "", ChkAbonoCuenta.Checked, True, -1, CvePrePolizaExcedente, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FueConciliado:=If(ChkReembolsarSinBancos.Checked, True, False))
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, TxtImporte.Text.ToDecimal, TxtObservaciones.Text, If(CveCajaChica > 0, 30, 29), TxtObservaciones.Text, TxtFechaDocumento.Text.ToDate, If(CveCajaChica > 0, IdCuentaBancaria, IdCtaPersonal), -1, CveIE:=CveIEExcedente, CvePersonal:=CvePersonal, CveCompra:=-1, CveProveedor:=-1, ImporteME:=If(tipoCambio = 1, 0, TxtImporte.Text.ToDecimal), ImporteMX:=TxtImporte.Text.ToDecimal * tipoCambio) Then
|
||||
MsgError = "Error al registrar detalle de concepto bancario"
|
||||
End If
|
||||
|
||||
If CveIEExcedente > 0 Then
|
||||
If filemove <> "" Then
|
||||
filemove.FilesMove(CveIEExcedente.ToString, String.Format("{0}IE", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False)
|
||||
Anexo.Text = ""
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End If
|
||||
ElseIf Not ChkReembolsarSinBancos.Checked Then
|
||||
CvePrePolizaIERegistrado = ObjMov.AddPrePolizas("Compras/Comprobaciones4", 9, TxtImporte.Text.ToDecimal, TxtImporte.Text.ToDecimal, CveMoneda, TxtFechaDocumento.Text.ToDate, If(TxtObservaciones.Text.Trim = "", concepto, TxtObservaciones.Text.Trim), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
CveIERegistrado = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.ToDate, TxtFolio.Text.Trim, TxtAboneA.Text, TxtImporte.Text.ToDecimal, CveMoneda, 0.0, TxtObservaciones.Text, "", ChkAbonoCuenta.Checked, True, -1, CvePrePolizaIERegistrado, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FueConciliado:=If(ChkReembolsarSinBancos.Checked, True, False))
|
||||
CveIERegistrado = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.ToDate, TxtFolio.Text.Trim, TxtAboneA.Text, TxtImporte.Text.ToDecimal, CveMoneda, 0.0, TxtObservaciones.Text, "", ChkAbonoCuenta.Checked, True, -1, CvePrePolizaIERegistrado, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FueConciliado:=If(ChkReembolsarSinBancos.Checked, True, False))
|
||||
|
||||
If CveIERegistrado > 0 Then
|
||||
If filemove <> "" Then
|
||||
filemove.FilesMove(CveIERegistrado.ToString, String.Format("{0}IE", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False)
|
||||
Anexo.Text = ""
|
||||
End If
|
||||
End If
|
||||
|
||||
'AGREGO PREPOLIZA IE BANCOS
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaIERegistrado, True, TxtImporte.Text.ToDecimal, TxtObservaciones.Text, 30, TxtObservaciones.Text, TxtFechaDocumento.Text.ToDate, IdCuentaBancaria, -1, CveIE:=CveIERegistrado, CvePersonal:=CvePersonal, CveCompra:=-1, CveProveedor:=-1, ImporteME:=If(tipoCambio = 1, 0, TxtImporte.Text.ToDecimal), ImporteMX:=TxtImporte.Text.ToDecimal * tipoCambio) Then
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@@ -1371,7 +1371,7 @@ Partial Class Inventarios_EntradasSalidas
|
||||
TieneError = True
|
||||
End If
|
||||
|
||||
If Inv.MovimientoRemove(CveMovimiento, UsuarioActual.CveEmpresa) Then
|
||||
If Inv.MovimientoRemove(CveMovimiento, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
|
||||
If HdnIdPoliza.Value.ToEntero > 0 Then
|
||||
If Not ObjConta.RemovePoliza(HdnIdPoliza.Value.ToEntero) Then
|
||||
TieneError = True
|
||||
|
||||
@@ -862,7 +862,7 @@ Partial Class Inventarios_RecepcionUsados
|
||||
End If
|
||||
|
||||
|
||||
If Inv.MovimientoRemove(CveMovimiento, UsuarioActual.CveEmpresa) Then
|
||||
If Inv.MovimientoRemove(CveMovimiento, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
|
||||
If HdnIdPoliza.Value.ToEntero > 0 Then
|
||||
If Not ObjConta.RemovePoliza(HdnIdPoliza.Value.ToEntero) Then
|
||||
TieneError = True
|
||||
|
||||
@@ -12,7 +12,9 @@
|
||||
.table-hover > tbody > tr:hover {
|
||||
background-color: #e5e5e5;
|
||||
}
|
||||
|
||||
.page-sidebar-menu .dnone {
|
||||
display: none;
|
||||
}
|
||||
.table-striped > tbody > tr:nth-of-type(odd).ADSRow,
|
||||
table > tbody > tr.ADSRow > td, table.table > tbody > tr.ADSRow > td,
|
||||
table > tr.ADSRow > td, table.table > tr.ADSRow > td,
|
||||
|
||||
@@ -435,7 +435,7 @@ public partial class Nomina_Aguinaldo : ClsPaginas
|
||||
//str.AppendFormat("SELECT dbo.Fnc_NomValues(40, 0, {2}, -1, {0}, {1}, {1}) isrFraccionII_2,", FraccionII_1, diasmes, DdlEjercicios.SelectedValue);
|
||||
//str.AppendFormat(" dbo.Fnc_NomValues(40, 0, {2}, -1, {0}, {1}, {1}) isrFraccionIII_1", salariomensual, diasmes, DdlEjercicios.SelectedValue);
|
||||
//if (objbase.runQuerystr(str.ToString()))
|
||||
if(objbase.CalculosISRAguinaldo(FraccionII_1, salariomensual, diasmes, DdlEjercicios.SelectedValue))
|
||||
if(objbase.CalculosISRAguinaldo(FraccionII_1, salariomensual, diasmes, DdlEjercicios.SelectedValue.ToEntero()))
|
||||
{
|
||||
DataRow drow = objbase.DtResultados.Rows[0];
|
||||
FraccionII_2 = drow["isrFraccionII_2"].ToString().ToDecimal();
|
||||
|
||||
@@ -34,7 +34,7 @@
|
||||
<div class="titlefiltros ">
|
||||
<ul class="list-inline">
|
||||
<li>Cliente:
|
||||
<asp:Button ID="BtnCargarClientes" runat="server" ClientIDMode="Static" Text="CargarClientes" Style="display: none;" />
|
||||
|
||||
<ADS:Dropdownlost CssClassDdl="select2me" ID="DdlCliente" Width="100%" data-metodo="getcliente" UsaWebService="true" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%"></ADS:Dropdownlost>
|
||||
<%--<asp:DropDownList ID="DdlCliente" runat="server" AppendDataBoundItems="true" Style="display: inline-block; width: 250px;" DataTextField="Nombre" DataValueField="CveCliente" Class="form-control input-sm select2me">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
|
||||
@@ -66,17 +66,20 @@
|
||||
<asp:ListItem Text="Cabecera" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</li>
|
||||
<li style="width: 227px">
|
||||
<li style="width: 167px">
|
||||
<asp:Label runat="server" AssociatedControlID="TxtFechaAsistencia">F. Asistencia: </asp:Label>
|
||||
<asp:TextBox ID="TxtFechaAsistencia" runat="server" MaxLength="10" Width="90px" Height="28px"></asp:TextBox><span class="input-group-btn "><asp:LinkButton ID="ImgFechaAsistencia" class="btn default " Style="padding: 4px 8px;" Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||
</span>
|
||||
<ajax:MaskedEditExtender ID="MEEFechaAsistencia" runat="server" TargetControlID="TxtFechaAsistencia" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||
<ajax:CalendarExtender runat="server" ID="CEFechaAsistencia" TargetControlID="TxtFechaAsistencia" PopupButtonID="ImgFechaAsistencia" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||
<asp:RequiredFieldValidator ID="RFVFechaAsistencia" runat="server" ControlToValidate="TxtFechaAsistencia" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha de Ingreso''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<asp:CompareValidator ID="CVFechaAsistencia" runat="server" ControlToValidate="TxtFechaAsistencia" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha de Ingreso''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCOFechaAsistencia1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaAsistencia" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
|
||||
<ajax:ValidatorCalloutExtender ID="VCOFechaAsistencia2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaAsistencia" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
<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 Width="80px" ID="txtFechaAsistencia" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
|
||||
<span class="input-group-btn ">
|
||||
<asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||
</span>
|
||||
</div>
|
||||
<ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaAsistencia" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||
<ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaAsistencia" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||
<asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaAsistencia" Display="None" ErrorMessage="El campo <b>''Fecha Asistencia''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
|
||||
<asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaAsistencia" Display="None" ErrorMessage="El campo <b>''Fecha Asistencia''</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="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
<ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
</li>
|
||||
</ul>
|
||||
</div>
|
||||
|
||||
@@ -9,7 +9,7 @@ Partial Class RH_Asistencias
|
||||
|
||||
If Not IsPostBack Then
|
||||
'CargaClientes()
|
||||
DdlCliente.Attributes.Add("onclick", "CargaClientes();")
|
||||
'DdlCliente.Attributes.Add("onclick", "CargaClientes();")
|
||||
CargaSuperioresOrganigrama()
|
||||
CargaProyecto()
|
||||
CargaTurnos()
|
||||
@@ -44,23 +44,23 @@ Partial Class RH_Asistencias
|
||||
|
||||
End Sub
|
||||
#End Region
|
||||
Private Sub CargaClientes()
|
||||
Dim ObjClientes As New ClsClientes
|
||||
If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1) Then
|
||||
DdlCliente.DataSource = ObjClientes.DtResultados
|
||||
Else
|
||||
DdlCliente.DataSource = Nothing
|
||||
End If
|
||||
ObjClientes.Dispose()
|
||||
'Application("GlobalDTResponsable")
|
||||
'Private Sub CargaClientes()
|
||||
' Dim ObjClientes As New ClsClientes
|
||||
' If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1) Then
|
||||
' DdlCliente.DataSource = ObjClientes.DtResultados
|
||||
' Else
|
||||
' DdlCliente.DataSource = Nothing
|
||||
' End If
|
||||
' ObjClientes.Dispose()
|
||||
' 'Application("GlobalDTResponsable")
|
||||
|
||||
DdlCliente.DataBind()
|
||||
End Sub
|
||||
' DdlCliente.DataBind()
|
||||
'End Sub
|
||||
|
||||
Protected Sub BtnCargarClientes_Click(sender As Object, e As System.EventArgs) Handles BtnCargarClientes.Click
|
||||
CargaClientes()
|
||||
DdlCliente.Attributes.Remove("onclick")
|
||||
End Sub
|
||||
'Protected Sub BtnCargarClientes_Click(sender As Object, e As System.EventArgs) Handles BtnCargarClientes.Click
|
||||
' 'CargaClientes()
|
||||
' 'DdlCliente.Attributes.Remove("onclick")
|
||||
'End Sub
|
||||
|
||||
Private Sub CargaProyecto()
|
||||
'DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", DistinctColumns:={"CveProyecto", "Proyecto"})
|
||||
|
||||
@@ -798,7 +798,7 @@
|
||||
<div class="modal-dialog">
|
||||
<div class="modal-content">
|
||||
<div class="modal-header ">
|
||||
<button type="button" class="close" data-dismiss="modal">×</button><h4 class="modal-title">Actualiazar alta</h4>
|
||||
<button type="button" class="close" data-dismiss="modal">×</button><h4 class="modal-title">Actualizar alta</h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
<asp:UpdatePanel runat="server" ID="UpAltasUpdate" UpdateMode="Conditional">
|
||||
|
||||
@@ -7062,7 +7062,7 @@ Partial Class RH_Personal
|
||||
|
||||
End If
|
||||
Using objrh As New ClsRH()
|
||||
If (objrh.PersonalAltasUpFechas(CvePersonalAltas, TxtFechaInicioUA.Text.ToDateTime().ToString("yyyy-MM-dd"), strfin, CvePersonal, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario)) Then
|
||||
If (objrh.PersonalAltasUpFechas(CvePersonalAltas, TxtFechaInicioUA.Text.ToDateTime().ToString("yyyy-MM-dd"), TxtFechaFinUA.Text.ToDateTime().ToString("yyyy-MM-dd"), CvePersonal, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario)) Then
|
||||
If objrh.GetPersonalAltas(CvePersonal) Then
|
||||
GvPersonalAltas.DataSource = objrh.DtResultados
|
||||
GvPersonalAltas.DataBind()
|
||||
|
||||
134
Site.master
134
Site.master
@@ -13,6 +13,11 @@
|
||||
<meta content="" name="description" />
|
||||
<meta content="" name="author" />
|
||||
<!-- BEGIN STYLES -->
|
||||
<style>
|
||||
.page-sidebar-menu .dnone {
|
||||
display: none;
|
||||
}
|
||||
</style>
|
||||
<%: Scripts.Render("~/bundles/modernizr") %>
|
||||
<%: Styles.Render("~/Content/AjaxControlToolkit/Styles/Bundle") %>
|
||||
<link rel="preconnect" href="https://fonts.googleapis.com">
|
||||
@@ -149,7 +154,7 @@
|
||||
<i aria-hidden="true" class="icon-magnifier"></i>
|
||||
</a>
|
||||
|
||||
<ul class="dropdown-menu">
|
||||
<ul class="dropdown-menu">
|
||||
<li id="tdCliente" runat="server" visible="false">
|
||||
<a onclick="javascript:AbrirVentana('/Ventas/PopUpBuscarClientes.aspx');">
|
||||
<i class="fa fa-users"></i>
|
||||
@@ -179,7 +184,7 @@
|
||||
<i class="fa fa-truck"></i>
|
||||
Buscar Proveedor
|
||||
</a>
|
||||
</li>
|
||||
</li>
|
||||
<li id="tdCheques" runat="server" visible="false">
|
||||
<a onclick="javascript:AbrirVentana('/Bancos/PopUpBuscarIE.aspx');">
|
||||
<i class="fa fa-university"></i>
|
||||
@@ -248,7 +253,7 @@
|
||||
Buscar Producto Servicios
|
||||
</a>
|
||||
</li>
|
||||
<li id="TdBuscaActivoFijo" runat="server" visible="False">
|
||||
<li id="TdBuscaActivoFijo" runat="server" visible="False">
|
||||
<a onclick="javascript:AbrirVentana('/AF/PopUpBuscarAF.aspx',800,600,'N');">
|
||||
<i class="fa fa-building"></i>
|
||||
Buscar Activo Fijo
|
||||
@@ -260,7 +265,7 @@
|
||||
Buscar Cuentas Proveedor
|
||||
</a>
|
||||
</li>
|
||||
<li id="tdBuscarMilitante" runat="server" visible="false">
|
||||
<li id="tdBuscarMilitante" runat="server" visible="false">
|
||||
<a onclick="javascript:AbrirVentana('/ZDG/PopUpBuscarMilitante.aspx',1250);">
|
||||
<i class="fa fa-male"></i>
|
||||
Buscar Militante
|
||||
@@ -284,7 +289,8 @@
|
||||
<li runat="server" id="DivPerfil" visible="false">
|
||||
<a runat="server" id="A1" href="/RH/MiPerfil.aspx" style="cursor: pointer;"><i class="fa fa-user"></i>Mi Perfil</a>
|
||||
</li>
|
||||
<li><asp:LinkButton ID="LnkDescargarManual" runat="server" Text="<i class='fa fa-download'></i> Descargar Manual SIG" OnClick="LnkDescargarManual_Click"></asp:LinkButton></li>
|
||||
<li>
|
||||
<asp:LinkButton ID="LnkDescargarManual" runat="server" Text="<i class='fa fa-download'></i> Descargar Manual SIG" OnClick="LnkDescargarManual_Click"></asp:LinkButton></li>
|
||||
<li><a onclick="javascript:AbrirVentana('/Sistemas/CatContrasenia.aspx');"><i class="fa fa-exchange"></i>Cambiar Contraseña</a></li>
|
||||
<li runat="server" id="DivConfiguracionEmpresa" visible="false"><a runat="server" id="BtnConfiguracionEmpresa" style="cursor: pointer;"><i class="fa fa-cog"></i>Configuración Empresa</a></li>
|
||||
<li><a runat="server" id="BtnCerrarSesion"><i class="fa fa-key"></i>Cerrar Sesión</a></li>
|
||||
@@ -388,15 +394,15 @@
|
||||
<div class="col-sm-2">
|
||||
<asp:TextBox ID="TxtTit" BorderStyle="None" CssClass="form-control input-sm" runat="server" Visible="false" Width="100%"></asp:TextBox>
|
||||
</div>
|
||||
<div class="col-sm-3 text-right" style="padding-top: 8px; white-space: nowrap; direction: rtl;">
|
||||
<div class="col-sm-3 text-right" style="padding-top: 8px; white-space: nowrap; direction: rtl;">
|
||||
<div style="direction: ltr">
|
||||
<i class="icon-calendar"></i>
|
||||
<asp:UpdatePanel ID="UPGP" runat="server" RenderMode="Inline">
|
||||
<ContentTemplate>
|
||||
<asp:Label ID="lblFecha" CssClass="thin uppercase hidden-xs" runat="server"></asp:Label>
|
||||
<asp:Label ID="lblFecha" CssClass="thin uppercase hidden-xs" runat="server"></asp:Label>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
|
||||
<asp:Label ID="lblTipoCambio" CssClass="thin uppercase hidden-xs" runat="server"></asp:Label>
|
||||
</div>
|
||||
</div>
|
||||
@@ -432,7 +438,7 @@
|
||||
</div>
|
||||
<div class="ContentPlaceHolderc">
|
||||
<asp:ContentPlaceHolder ID="C" runat="server">
|
||||
</asp:ContentPlaceHolder>
|
||||
</asp:ContentPlaceHolder>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
@@ -682,63 +688,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">×</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>
|
||||
<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">×</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>
|
||||
<div class="modal-footer">
|
||||
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</asp:panel>
|
||||
</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;">
|
||||
|
||||
284
Site.master.vb
284
Site.master.vb
@@ -1,9 +1,14 @@
|
||||
Option Explicit On
|
||||
Option Strict On
|
||||
|
||||
Imports System.Activities.Statements
|
||||
Imports System.Data
|
||||
Imports System.IO
|
||||
Imports System.Security.Cryptography.X509Certificates
|
||||
Imports ADSNetLibrary.SIGAPI.Services.SAT.DescargaCFDI
|
||||
Imports DocumentFormat.OpenXml.Math
|
||||
Imports DocumentFormat.OpenXml.Packaging
|
||||
Imports DocumentFormat.OpenXml.Spreadsheet
|
||||
Imports Extensiones
|
||||
'Imports Microsoft.AspNet.SignalR.Client
|
||||
'Imports ChatHub
|
||||
@@ -23,7 +28,7 @@ Partial Class Site
|
||||
|
||||
Public Overrides Property PopupWidth() As Integer
|
||||
Get
|
||||
Return HdnPopUpWidth.Value.ToEntero
|
||||
Return HdnPopUpWidth.Value.ToEntero()
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
HdnPopUpWidth.Value = value.ToString()
|
||||
@@ -39,7 +44,7 @@ Partial Class Site
|
||||
End Property
|
||||
Public Property countNotificaciones As Integer
|
||||
Get
|
||||
countNotificaciones = If(IsNothing(ViewState("countNotificaciones")), 0, ViewState("countNotificaciones").ToString().ToEntero)
|
||||
countNotificaciones = If(IsNothing(ViewState("countNotificaciones")), 0, ViewState("countNotificaciones").ToString().ToEntero())
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("countNotificaciones") = value
|
||||
@@ -206,7 +211,7 @@ Partial Class Site
|
||||
'End Sub
|
||||
'Private stringusers As String = "0"
|
||||
'Private Sub RptChatEmpresa_ItemDataBound(sender As Object, e As RepeaterItemEventArgs) Handles RptChatEmpresa.ItemDataBound
|
||||
' Dim CveEmpresa As Integer = e.Item.DataItem("CveEmpresa").ToString().ToEntero
|
||||
' Dim CveEmpresa As Integer = e.Item.DataItem("CveEmpresa").ToString().ToEntero()
|
||||
' Dim GlobalDTUsuarios As DataTable = DirectCast(Application("GlobalDTUsuarios"), DataTable).FiltraParametros(String.Format("CveUsuario in ({0}) AND CveEmpresa ={1}", stringusers, CveEmpresa))
|
||||
|
||||
' Dim rpthijo As Repeater = DirectCast(e.Item.FindControl("RPTChatuser"), Repeater)
|
||||
@@ -302,6 +307,65 @@ Partial Class Site
|
||||
' dt.ReadXml(String.Format("{0}\Menu\ERP\{1}_Conf.xml", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveUsuario))
|
||||
|
||||
'End Sub
|
||||
Private Function ArmarMenu(CveModulo As Integer, ByRef menuobj As MenuModal) As MenuModal
|
||||
Dim listaModulos As EnumerableRowCollection(Of DataRow) = From i In menuobj.dt.AsEnumerable Where i!CvePadre.Equals(CveModulo) Order By i!Orden
|
||||
Dim cveModuloActual As Integer
|
||||
Dim liga As String
|
||||
Dim modulo As String
|
||||
Dim estilo As String
|
||||
For Each drP As DataRow In listaModulos
|
||||
cveModuloActual = drP("CveModulo").ToString().ToEntero()
|
||||
|
||||
liga = If(drP("PopUp").ToString() = "S", String.Format("javascript:AbrirVentana('{0}',{1},{2},'N');", drP("LIGA"), drP("ANCHO"), drP("ALTO")), If(drP("IsAngular").ToString() = "1", String.Format("{1}:84{0}", drP("LIGA"), menuobj.strdomain), drP("LIGA").ToString()))
|
||||
modulo = drP("Modulo").ToString()
|
||||
estilo = If(drP("Estilo").ToString() <> "", String.Format("<i class='{0}'></i>", drP("Estilo")), "")
|
||||
|
||||
If menuobj.CveModuloSeleccionado = cveModuloActual Then
|
||||
menuobj.HeaderBar.AppendFormat("<li><i class='fa fa-angle-right'></i><a href='{0}'>{1}</a></li>", liga, modulo)
|
||||
menuobj.CveModuloSeleccionadoPadre = CveModulo
|
||||
menuobj.ScriptColorGrupoModulo = ColorPage(drP("CveGrupoModulo").ToString().ToEntero())
|
||||
End If
|
||||
|
||||
menuobj.MenuHTML.AppendFormat("<li><a id='m{0}' href=""{1}"">{2}<span class='title'>{3}</span>", cveModuloActual, liga, estilo, modulo)
|
||||
|
||||
|
||||
drP.Delete()
|
||||
menuobj.dt.AcceptChanges()
|
||||
If menuobj.dt.COUNT("CveModulo", String.Format("CvePadre ={0}", cveModuloActual)) > 0 Then
|
||||
menuobj.MenuHTML.AppendFormat("<span id='j{0}'></span><span class='arrow '></span></a><ul class='sub-menu'>", cveModuloActual)
|
||||
menuobj.modpadres.Add(modulo.RemoveDiacritics())
|
||||
menuobj = ArmarMenu(cveModuloActual, menuobj)
|
||||
menuobj.modpadres.RemoveAt(menuobj.modpadres.Count - 1)
|
||||
|
||||
If menuobj.CveModuloSeleccionadoPadre = cveModuloActual Then
|
||||
|
||||
|
||||
menuobj.MenuHTML.Replace(String.Format("id='m{0}'", cveModuloActual), String.Format("id='m{0}' class='active open '", cveModuloActual))
|
||||
menuobj.MenuHTML.Replace(String.Format("id='j{0}'", cveModuloActual), String.Format("id='j{0}' class='selected '", cveModuloActual))
|
||||
|
||||
'menuobj.MenuHTML = menuobj.MenuHTML.Replace(String.Format("id='m{0}'", cveModuloActual), String.Format("id='m{0}' class='active open'", cveModuloActual))
|
||||
'menuobj.MenuHTML = menuobj.MenuHTML.Replace(String.Format("id='j{0}'", cveModuloActual), String.Format("id='j{0}' class='selected'", cveModuloActual))
|
||||
|
||||
menuobj.HeaderBar.AppendFormat("<li><i class='fa fa-angle-right'></i><a href='{0}'>{1}</a></li>", liga, modulo)
|
||||
menuobj.CveModuloSeleccionadoPadre = CveModulo
|
||||
End If
|
||||
menuobj.MenuHTML.Append("</ul>")
|
||||
Else
|
||||
menuobj.MenuHTML.Append("</a>")
|
||||
End If
|
||||
|
||||
menuobj.MenuHTML.AppendFormat("<a class='dnone'>{0}", modulo.RemoveDiacritics())
|
||||
For Each items As String In menuobj.modpadres
|
||||
menuobj.MenuHTML.Append("-")
|
||||
menuobj.MenuHTML.AppendFormat("{0}", items)
|
||||
|
||||
Next
|
||||
menuobj.MenuHTML.Append("</a>")
|
||||
menuobj.MenuHTML.Append("</li>")
|
||||
Next
|
||||
Return menuobj
|
||||
|
||||
End Function
|
||||
|
||||
Private Sub CreaMenu()
|
||||
Dim dt As New DataTable
|
||||
@@ -312,104 +376,136 @@ Partial Class Site
|
||||
dt.ReadXml(String.Format("{0}\Menu\ERP\{1}.xml", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveUsuario))
|
||||
End If
|
||||
|
||||
Dim Inicio = From i In dt.AsEnumerable Where i!CvePadre.Equals(0) Order By i!Orden
|
||||
'Dim Inicio = From i In dt.AsEnumerable Where i!CvePadre.Equals(0) Order By i!Orden
|
||||
Dim CveModuloPadre, CveModuloPadreSeleccionado, CveModuloHijoSeleccionado, CveModuloNietoSeleccionado As Integer
|
||||
Dim CveModulo As Integer = CveModulomasterpage.Text.ToEntero
|
||||
Dim ScriptColorGrupoModulo As String = ""
|
||||
Dim LinkBase = "javascript:;"
|
||||
Dim HeaderBar As New StringBuilder("<li><i class='fa fa-home'></i><a href='/Inicio.aspx'>Inicio</a>")
|
||||
Dim LinkPadre = ""
|
||||
Dim Linkpapa As String = ""
|
||||
Dim LinkHijo = ""
|
||||
Dim Linkson As String = ""
|
||||
Dim LinkNieto = ""
|
||||
Dim ClassActive As String
|
||||
CveModuloPadreSeleccionado = 0 : CveModuloHijoSeleccionado = 0 : CveModuloNietoSeleccionado = 0
|
||||
|
||||
Dim strdomain = Request.Url.AbsoluteUri.Replace(Request.Url.PathAndQuery, "").Replace("https://", "http://")
|
||||
'Dim CveModulo As Integer = CveModulomasterpage.Text.ToEntero()
|
||||
'Dim ScriptColorGrupoModulo As String = ""
|
||||
'Dim LinkBase = "javascript:;"
|
||||
'Dim HeaderBar As New StringBuilder("<li><i class='fa fa-home'></i><a href='/Inicio.aspx'>Inicio</a>")
|
||||
'Dim LinkPadre = ""
|
||||
'Dim Linkpapa As String = ""
|
||||
'Dim LinkHijo = ""
|
||||
'Dim Linkson As String = ""
|
||||
'Dim LinkNieto = ""
|
||||
'Dim ClassActive As String
|
||||
'CveModuloPadreSeleccionado = 0 : CveModuloHijoSeleccionado = 0 : CveModuloNietoSeleccionado = 0
|
||||
Dim menuobj = New MenuModal()
|
||||
menuobj.dt = dt
|
||||
menuobj.CveModuloSeleccionado = CveModulomasterpage.Text.ToEntero()
|
||||
menuobj.strdomain = Request.Url.AbsoluteUri.Replace(Request.Url.PathAndQuery, "").Replace("https://", "http://")
|
||||
If Request.Url.Port <> 80 Then
|
||||
strdomain = strdomain.Replace(String.Format(":{0}", Request.Url.Port), "")
|
||||
menuobj.strdomain = menuobj.strdomain.Replace(String.Format(":{0}", Request.Url.Port), "")
|
||||
End If
|
||||
Dim MenuHTML As New StringBuilder
|
||||
For Each drP As DataRow In Inicio
|
||||
CveModuloPadre = drP("CveModulo").ToString().ToEntero
|
||||
LinkPadre = drP("LIGA").ToString()
|
||||
If drP("PopUp").ToString() = "S" Then LinkPadre = String.Format("javascript:AbrirVentana('{0}',{1},{2},'N');", drP("LIGA"), drP("ANCHO"), drP("ALTO"))
|
||||
Dim newmenuobj As MenuModal = ArmarMenu(0, menuobj)
|
||||
|
||||
Dim Hijos = From h In dt.AsEnumerable Where h!CvePadre.Equals(CveModuloPadre) Order By h!Orden
|
||||
If CveModulo = drP("CveModulo").ToString().ToEntero Then
|
||||
HeaderBar.AppendFormat("<i class='fa fa-angle-right'></i></li> <li><a href='{0}'>{1}</a>", LinkPadre, drP("Modulo").ToString())
|
||||
ScriptColorGrupoModulo = ColorPage(drP("CveGrupoModulo").ToString().ToEntero)
|
||||
End If
|
||||
If Hijos.Count > 0 Then
|
||||
Linkpapa = LinkPadre
|
||||
LinkPadre = LinkBase
|
||||
MenuHTML.AppendFormat("<li id='m{3}'><a href='{0}'>{2}<span class='title'>{1}</span><span id='j{3}' ></span><span class='arrow '></span></a><ul class='sub-menu'>", LinkPadre, drP("Modulo"), If(drP("Estilo").ToString() <> "", String.Format("<i class='{0}'></i>", drP("Estilo")), ""), drP("CveModulo"))
|
||||
For Each drH As DataRow In Hijos
|
||||
Dim CveModuloHijo As Integer = drH("CveModulo").ToString().ToEntero
|
||||
LinkHijo = drH("LIGA").ToString()
|
||||
If (drH("IsAngular").ToString() = "1") Then
|
||||
LinkHijo = String.Format("{1}:84{0}", drH("LIGA"), strdomain)
|
||||
End If
|
||||
|
||||
If CveModulo = drH("CveModulo").ToString().ToEntero Then
|
||||
CveModuloPadreSeleccionado = CveModuloPadre
|
||||
ClassActive = "class='active'"
|
||||
HeaderBar.AppendFormat("<i class='fa fa-angle-right'></i> </li><li><a href='{0}'>{1}</a> <i class='fa fa-angle-right'></i> </li><li><a href='{2}'>{3}</a>", Linkpapa, drP("Modulo").ToString(), LinkHijo, drH("Modulo").ToString())
|
||||
ScriptColorGrupoModulo = ColorPage(drH("CveGrupoModulo").ToString().ToEntero)
|
||||
Else
|
||||
'Dim MenuHTML As New StringBuilder
|
||||
'For Each drP As DataRow In Inicio
|
||||
' CveModuloPadre = drP("CveModulo").ToString().ToEntero()
|
||||
' LinkPadre = drP("LIGA").ToString()
|
||||
' If drP("PopUp").ToString() = "S" Then LinkPadre = String.Format("javascript:AbrirVentana('{0}',{1},{2},'N');", drP("LIGA"), drP("ANCHO"), drP("ALTO"))
|
||||
|
||||
ClassActive = ""
|
||||
End If
|
||||
If drH("PopUp").ToString() = "S" Then LinkHijo = String.Format("javascript:AbrirVentana('{0}',{1},{2},'N');", drH("LIGA"), drH("ANCHO"), drH("ALTO"))
|
||||
' Dim Hijos = From h In dt.AsEnumerable Where h!CvePadre.Equals(CveModuloPadre) Order By h!Orden
|
||||
' If CveModulo = drP("CveModulo").ToString().ToEntero() Then
|
||||
' HeaderBar.AppendFormat("<i class='fa fa-angle-right'></i></li> <li><a href='{0}'>{1}</a>", LinkPadre, drP("Modulo").ToString())
|
||||
' ScriptColorGrupoModulo = ColorPage(drP("CveGrupoModulo").ToString().ToEntero())
|
||||
' End If
|
||||
' If Hijos.Count > 0 Then
|
||||
' Linkpapa = LinkPadre
|
||||
' LinkPadre = LinkBase
|
||||
' MenuHTML.AppendFormat("<li id='m{3}'><a href='{0}'>{2}<span class='title'>{1}</span><span id='j{3}' ></span><span class='arrow '></span></a><ul class='sub-menu'>", LinkPadre, drP("Modulo"), If(drP("Estilo").ToString() <> "", String.Format("<i class='{0}'></i>", drP("Estilo")), ""), drP("CveModulo"))
|
||||
' For Each drH As DataRow In Hijos
|
||||
' Dim CveModuloHijo As Integer = drH("CveModulo").ToString().ToEntero()
|
||||
' LinkHijo = drH("LIGA").ToString()
|
||||
' If (drH("IsAngular").ToString() = "1") Then
|
||||
' LinkHijo = String.Format("{1}:84{0}", drH("LIGA"), strdomain)
|
||||
' End If
|
||||
|
||||
Dim Nietos = From h In dt.AsEnumerable Where h!CvePadre.Equals(CveModuloHijo) Order By h!Orden
|
||||
If Nietos.Count > 0 Then
|
||||
Linkson = LinkHijo
|
||||
LinkHijo = LinkBase
|
||||
MenuHTML.AppendFormat("<li id='m{3}'><a href='{0}'>{2}{1}<span class='arrow '></span> </a><ul class='sub-menu'>", LinkHijo, drH("Modulo"), If(drP("Estilo").ToString() <> "", String.Format("<i class='{0}'></i>", drH("Estilo")), ""), drH("CveModulo"))
|
||||
For Each drN As DataRow In Nietos
|
||||
LinkNieto = drN("LIGA").ToString()
|
||||
If (drN("IsAngular").ToString() = "1") Then
|
||||
LinkNieto = String.Format("{1}:84{0}", drN("LIGA"), strdomain)
|
||||
End If
|
||||
If CveModulo = drN("CveModulo").ToString().ToEntero Then
|
||||
CveModuloPadreSeleccionado = CveModuloPadre : CveModuloHijoSeleccionado = CveModuloHijo
|
||||
ClassActive = "class='active'"
|
||||
HeaderBar.AppendFormat("<i class='fa fa-angle-right'></i> </li><li><a href='{0}'>{1}</a> <i class='fa fa-angle-right'></i> </li><li><a href='{2}'>{3}</a> <i class='fa fa-angle-right'></i> </li><li><a href='{4}'>{5}</a>", Linkpapa, drP("Modulo").ToString(), Linkson, drH("Modulo").ToString(), LinkNieto, drN("Modulo"))
|
||||
ScriptColorGrupoModulo = ColorPage(drN("CveGrupoModulo").ToString().ToEntero)
|
||||
Else
|
||||
ClassActive = ""
|
||||
End If
|
||||
If drN("PopUp").ToString() = "S" Then LinkNieto = String.Format("javascript:AbrirVentana('{0}',{1},{2},'N');", drN("LIGA"), drN("ANCHO"), drN("ALTO"))
|
||||
MenuHTML.AppendFormat("<li {3}><a href=""{0}"">{2}{1}</a></li>", LinkNieto, drN("Modulo"), If(drP("Estilo").ToString() <> "", String.Format("<i class='{0}'></i>", drN("Estilo")), ""), ClassActive)
|
||||
Next
|
||||
MenuHTML.AppendFormat("</ul></li>")
|
||||
Else
|
||||
MenuHTML.AppendFormat("<li {3}><a href=""{0}"">{2}{1}</a></li>", LinkHijo, drH("Modulo"), If(drP("Estilo").ToString() <> "", String.Format("<i class='{0}'></i>", drH("Estilo")), ""), ClassActive)
|
||||
End If
|
||||
Next
|
||||
MenuHTML.AppendFormat("</ul></li>")
|
||||
Else
|
||||
MenuHTML.AppendFormat("<li><a href=""{0}"">{2}<span class='title'>{1}</span></a></li>", LinkPadre, drP("Modulo"), If(drP("Estilo").ToString() <> "", String.Format("<i class='{0}'></i>", drP("Estilo")), ""))
|
||||
End If
|
||||
Next
|
||||
' If CveModulo = drH("CveModulo").ToString().ToEntero() Then
|
||||
' CveModuloPadreSeleccionado = CveModuloPadre
|
||||
' ClassActive = "class='active'"
|
||||
' HeaderBar.AppendFormat("<i class='fa fa-angle-right'></i> </li><li><a href='{0}'>{1}</a> <i class='fa fa-angle-right'></i> </li><li><a href='{2}'>{3}</a>", Linkpapa, drP("Modulo").ToString(), LinkHijo, drH("Modulo").ToString())
|
||||
' ScriptColorGrupoModulo = ColorPage(drH("CveGrupoModulo").ToString().ToEntero())
|
||||
' Else
|
||||
|
||||
If CveModuloPadreSeleccionado > 0 Then
|
||||
MenuHTML = MenuHTML.Replace(String.Format("id='m{0}'", CveModuloPadreSeleccionado), String.Format("id='m{0}' class='active open'", CveModuloPadreSeleccionado))
|
||||
MenuHTML = MenuHTML.Replace(String.Format("id='j{0}'", CveModuloPadreSeleccionado), String.Format("id='j{0}' class='selected'", CveModuloPadreSeleccionado))
|
||||
Else
|
||||
End If
|
||||
If CveModuloHijoSeleccionado > 0 Then
|
||||
MenuHTML = MenuHTML.Replace(String.Format("id='m{0}'", CveModuloHijoSeleccionado), String.Format("id='m{0}' class='open'", CveModuloHijoSeleccionado))
|
||||
MenuHTML = MenuHTML.Replace(String.Format("id='j{0}'", CveModuloHijoSeleccionado), String.Format("id='j{0}' class='selected'", CveModuloHijoSeleccionado))
|
||||
End If
|
||||
HeaderBar.AppendFormat("</li>{0}", ScriptColorGrupoModulo)
|
||||
BarraNavegacion.Text = HeaderBar.ToString()
|
||||
' ClassActive = ""
|
||||
' End If
|
||||
' If drH("PopUp").ToString() = "S" Then LinkHijo = String.Format("javascript:AbrirVentana('{0}',{1},{2},'N');", drH("LIGA"), drH("ANCHO"), drH("ALTO"))
|
||||
|
||||
' Dim Nietos = From h In dt.AsEnumerable Where h!CvePadre.Equals(CveModuloHijo) Order By h!Orden
|
||||
' If Nietos.Count > 0 Then
|
||||
' Linkson = LinkHijo
|
||||
' LinkHijo = LinkBase
|
||||
' MenuHTML.AppendFormat("<li id='m{3}'><a href='{0}'>{2}{1}<span class='arrow '></span> </a><ul class='sub-menu'>", LinkHijo, drH("Modulo"), If(drP("Estilo").ToString() <> "", String.Format("<i class='{0}'></i>", drH("Estilo")), ""), drH("CveModulo"))
|
||||
' For Each drN As DataRow In Nietos
|
||||
' LinkNieto = drN("LIGA").ToString()
|
||||
' If (drN("IsAngular").ToString() = "1") Then
|
||||
' LinkNieto = String.Format("{1}:84{0}", drN("LIGA"), strdomain)
|
||||
' End If
|
||||
' If CveModulo = drN("CveModulo").ToString().ToEntero() Then
|
||||
' CveModuloPadreSeleccionado = CveModuloPadre : CveModuloHijoSeleccionado = CveModuloHijo
|
||||
' ClassActive = "class='active'"
|
||||
' HeaderBar.AppendFormat("<i class='fa fa-angle-right'></i> </li><li><a href='{0}'>{1}</a> <i class='fa fa-angle-right'></i> </li><li><a href='{2}'>{3}</a> <i class='fa fa-angle-right'></i> </li><li><a href='{4}'>{5}</a>", Linkpapa, drP("Modulo").ToString(), Linkson, drH("Modulo").ToString(), LinkNieto, drN("Modulo"))
|
||||
' ScriptColorGrupoModulo = ColorPage(drN("CveGrupoModulo").ToString().ToEntero())
|
||||
' Else
|
||||
' ClassActive = ""
|
||||
' End If
|
||||
' If drN("PopUp").ToString() = "S" Then LinkNieto = String.Format("javascript:AbrirVentana('{0}',{1},{2},'N');", drN("LIGA"), drN("ANCHO"), drN("ALTO"))
|
||||
|
||||
' Dim bizNietos = From h In dt.AsEnumerable Where h!CvePadre.Equals(drN("CveModulo").ToString().ToEntero()) Order By h!Orden
|
||||
' Dim LinkBizNieto As String
|
||||
' If bizNietos.Count = 0 Then
|
||||
' MenuHTML.AppendFormat("<li id='m{4}'{3}><a href=""{0}"">{2}{1}</a></li>", LinkNieto, drN("Modulo"), If(drN("Estilo").ToString() <> "", String.Format("<i class='{0}'></i>", drN("Estilo")), ""), ClassActive, drN("CveModulo").ToString().ToEntero())
|
||||
' Else
|
||||
' MenuHTML.AppendFormat("<li id='m{3}'><a href='{0}'>{2}{1}<span class='arrow '></span> </a><ul class='sub-menu'>", LinkNieto, drN("Modulo"), If(drN("Estilo").ToString() <> "", String.Format("<i class='{0}'></i>", drN("Estilo")), ""), drN("CveModulo"))
|
||||
' For Each drBN As DataRow In bizNietos
|
||||
' LinkBizNieto = drBN("LIGA").ToString()
|
||||
' If (drBN("IsAngular").ToString() = "1") Then
|
||||
' LinkBizNieto = String.Format("{1}:84{0}", drBN("LIGA"), strdomain)
|
||||
' End If
|
||||
' If CveModulo = drBN("CveModulo").ToString().ToEntero() Then
|
||||
' CveModuloPadreSeleccionado = CveModuloPadre : CveModuloHijoSeleccionado = CveModuloHijo
|
||||
' ClassActive = "class='active'"
|
||||
' HeaderBar.AppendFormat("<i class='fa fa-angle-right'></i> </li><li><a href='{0}'>{1}</a> <i class='fa fa-angle-right'></i> </li><li><a href='{2}'>{3}</a> <i class='fa fa-angle-right'></i> </li><li><a href='{4}'>{5}</a> <i class='fa fa-angle-right'></i> </li><li><a href='{6}'>{7}</a>", Linkpapa, drP("Modulo").ToString(), Linkson, drH("Modulo").ToString(), LinkNieto, drN("Modulo"), LinkBizNieto, drBN("Modulo"))
|
||||
' ScriptColorGrupoModulo = ColorPage(drBN("CveGrupoModulo").ToString().ToEntero())
|
||||
' Else
|
||||
' ClassActive = ""
|
||||
' End If
|
||||
' If drBN("PopUp").ToString() = "S" Then LinkBizNieto = String.Format("javascript:AbrirVentana('{0}',{1},{2},'N');", drBN("LIGA"), drBN("ANCHO"), drBN("ALTO"))
|
||||
' MenuHTML.AppendFormat("<li id='m{4}'{3}><a href=""{0}"">{2}{1}</a></li>", LinkBizNieto, drBN("Modulo"), If(drBN("Estilo").ToString() <> "", String.Format("<i class='{0}'></i>", drBN("Estilo")), ""), ClassActive, drBN("CveModulo").ToString().ToEntero())
|
||||
|
||||
' Next
|
||||
|
||||
' MenuHTML.AppendFormat("</ul></li>")
|
||||
' End If
|
||||
' Next
|
||||
' MenuHTML.AppendFormat("</ul></li>")
|
||||
' Else
|
||||
' MenuHTML.AppendFormat("<li {3}><a href=""{0}"">{2}{1}</a></li>", LinkHijo, drH("Modulo"), If(drP("Estilo").ToString() <> "", String.Format("<i class='{0}'></i>", drH("Estilo")), ""), ClassActive)
|
||||
' End If
|
||||
' Next
|
||||
' MenuHTML.AppendFormat("</ul></li>")
|
||||
' Else
|
||||
' MenuHTML.AppendFormat("<li><a href=""{0}"">{2}<span class='title'>{1}</span></a></li>", LinkPadre, drP("Modulo"), If(drP("Estilo").ToString() <> "", String.Format("<i class='{0}'></i>", drP("Estilo")), ""))
|
||||
' End If
|
||||
'Next
|
||||
|
||||
'If CveModuloPadreSeleccionado > 0 Then
|
||||
' menuobj.MenuHTML = menuobj.MenuHTML.Replace(String.Format("id='m{0}'", CveModuloPadreSeleccionado), String.Format("id='m{0}' class='active open'", CveModuloPadreSeleccionado))
|
||||
' menuobj.MenuHTML = menuobj.MenuHTML.Replace(String.Format("id='j{0}'", CveModuloPadreSeleccionado), String.Format("id='j{0}' class='selected'", CveModuloPadreSeleccionado))
|
||||
'Else
|
||||
'End If
|
||||
'If CveModuloHijoSeleccionado > 0 Then
|
||||
' menuobj.MenuHTML = menuobj.MenuHTML.Replace(String.Format("id='m{0}'", CveModuloHijoSeleccionado), String.Format("id='m{0}' class='open'", CveModuloHijoSeleccionado))
|
||||
' menuobj.MenuHTML = menuobj.MenuHTML.Replace(String.Format("id='j{0}'", CveModuloHijoSeleccionado), String.Format("id='j{0}' class='selected'", CveModuloHijoSeleccionado))
|
||||
'End If
|
||||
'HeaderBar.AppendFormat("</li>")
|
||||
menuobj.HeaderBar.AppendFormat("{0}", menuobj.ScriptColorGrupoModulo)
|
||||
BarraNavegacion.Text = menuobj.HeaderBar.ToString()
|
||||
'CargaMenu(MenuHTML)
|
||||
Menu.Text = MenuHTML.ToString()
|
||||
MenuHTML.Clear()
|
||||
HeaderBar.Clear()
|
||||
Menu.Text = menuobj.MenuHTML.ToString()
|
||||
menuobj.MenuHTML.Clear()
|
||||
menuobj.HeaderBar.Clear()
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -605,8 +701,4 @@ Partial Class Site
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
Public Class TipoCambioActual
|
||||
Public Fecha As Date
|
||||
Public TipoCambio As Decimal
|
||||
End Class
|
||||
@@ -1450,7 +1450,9 @@ Partial Class ProductosyServicios
|
||||
CveModelo:=DdlModelo.SelectedValue.ToEntero(), CveMedida:=DdlMedida.SelectedValue.ToEntero(), CveRinTamaño:=DdlRin.SelectedValue.ToEntero(),
|
||||
CveTipoEmpacado:=DdlEmpacado.SelectedValue.ToEntero(), CveTipoOrganico:=DdlTipoOrganico.SelectedValue.ToEntero(),
|
||||
ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString,
|
||||
ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked, TiempoCaducidad:=TiempoCaducidad, CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero(), PrecioLibre:=ChkPrecioLibre.Checked,
|
||||
ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked,
|
||||
AplicaSerie:=ChkSerie.Checked, AplicaLote:=ChkLote.Checked, AplicaCaducidad:=ChkCaducidad.Checked, AplicaSeccion:=ChkSeccion.Checked, TiempoCaducidad:=TiempoCaducidad,
|
||||
CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero(), PrecioLibre:=ChkPrecioLibre.Checked,
|
||||
CveMaterialPeligroso:=DdlMaterialPeligroso.SelectedValue.ToEntero, CveEmbalaje:=DdlEmbalaje.SelectedValue.ToEntero, PesoKg:=TxtPesoKg.Text.ToDecimal, Dimensiones:=TxtDimensiones.Text.Trim,
|
||||
CveObjetoImpuesto:=DdlObjetoImpuesto.SelectedValue.ToEntero, Litraje:=TxtLitraje.Text.ToDecimal, RegistroRSCO:=TxtRegistroRSCO.Text, FechaVigenciaRSCO:=TxtFechaVigenciaRSCO.Text.ToDate, VigenciaIndeterminadaRSCO:=ChkFechaIndeterminadaRSCO.Checked) > 0 Then
|
||||
ViewState("CvePS") = ObjProductosServicios.CvePS
|
||||
|
||||
@@ -422,7 +422,7 @@ Public Class WSApp
|
||||
ObjInv.IniciaTransacSQL()
|
||||
Dim TieneError = False
|
||||
|
||||
If Not ObjInv.MovimientoRemove(CveMovimiento, UsuarioActual.CveEmpresa) Then
|
||||
If Not ObjInv.MovimientoRemove(CveMovimiento, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
|
||||
TieneError = True
|
||||
End If
|
||||
|
||||
|
||||
Reference in New Issue
Block a user