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

--merge Saldos iniciales

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2023-11-25 18:48:38 -07:00
parent 65771e7fbb 40b414f98e
commit adcfc84af2
20 changed files with 429 additions and 545 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
AC/RepSituacionFinanciera.aspx.vb
View File

@@ -181,8 +181,8 @@ Partial Class AC_SituacionFinanciera
Private Sub CargaDatos() Private Sub CargaDatos()
Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
Dim FechaI = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, CChar("0")), DdlEjercicio.SelectedValue) Dim FechaI As String = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, CChar("0")), DdlEjercicio.SelectedValue)
Dim FechaF = FechaI.ToDate.LastDayOfMonth.ToShortDateString Dim FechaF As String = FechaI.ToDate.LastDayOfMonth.ToShortDateString
TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero) TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero)
GvActivo.Columns(1).HeaderText = DdlEjercicio.SelectedValue GvActivo.Columns(1).HeaderText = DdlEjercicio.SelectedValue
@@ -191,7 +191,7 @@ Partial Class AC_SituacionFinanciera
GvPasivo.Columns(1).HeaderText = DdlEjercicio.SelectedValue GvPasivo.Columns(1).HeaderText = DdlEjercicio.SelectedValue
GvPasivo.Columns(2).HeaderText = (DdlEjercicio.SelectedValue.ToEntero - 1).ToString GvPasivo.Columns(2).HeaderText = (DdlEjercicio.SelectedValue.ToEntero - 1).ToString
Dim IdCuentaAhorroDesahorro = 9999 Dim IdCuentaAhorroDesahorro As Integer = 9999
If UsuarioActual.CveEmpresa = 48 Then If UsuarioActual.CveEmpresa = 48 Then
IdCuentaAhorroDesahorro = 87 IdCuentaAhorroDesahorro = 87
@@ -237,7 +237,7 @@ Partial Class AC_SituacionFinanciera
If UsuarioActual.CveEmpresa = 48 Then Orden7 = "00033%" Else Orden7 = "033%" If UsuarioActual.CveEmpresa = 48 Then Orden7 = "00033%" Else Orden7 = "033%"
'ACTIVO 'ACTIVO
Dim DtActivoCirculante = DtDatos.FiltraParametros($"Tipo in ('A','B','C') AND Orden LIKE '{Orden1}' ") Dim DtActivoCirculante As DataTable = DtDatos.FiltraParametros($"Tipo in ('A','B','C') AND Orden LIKE '{Orden1}' ")
Dim DtActivoNoCirculante As DataTable Dim DtActivoNoCirculante As DataTable
@@ -298,8 +298,8 @@ Partial Class AC_SituacionFinanciera
'PASIVO 'PASIVO
Dim DtPasivoCirculante = DtDatos.FiltraParametros($"Tipo in ('D') AND Orden LIKE '{Orden3}' ") Dim DtPasivoCirculante As DataTable = DtDatos.FiltraParametros($"Tipo in ('D') AND Orden LIKE '{Orden3}' ")
Dim DtPasivoNoCirculante = DtDatos.FiltraParametros($"Tipo in ('D') AND Orden LIKE '{Orden4}' ") Dim DtPasivoNoCirculante As DataTable = DtDatos.FiltraParametros($"Tipo in ('D') AND Orden LIKE '{Orden4}' ")
Row = DtPasivoCirculante.NewRow Row = DtPasivoCirculante.NewRow
If DtPasivoCirculante.Rows.Count > 0 Then If DtPasivoCirculante.Rows.Count > 0 Then
@@ -340,9 +340,9 @@ Partial Class AC_SituacionFinanciera
'PATRIMONIO 'PATRIMONIO
Dim DtPatrimonioContribuido = DtDatos.FiltraParametros($"Tipo in ('F') AND Orden LIKE '{Orden5}' ") Dim DtPatrimonioContribuido As DataTable = DtDatos.FiltraParametros($"Tipo in ('F') AND Orden LIKE '{Orden5}' ")
Dim DtPatrimonioGenerado = DtDatos.FiltraParametros($"Tipo in ('F') AND Orden LIKE '{Orden6}' ") Dim DtPatrimonioGenerado As DataTable = DtDatos.FiltraParametros($"Tipo in ('F') AND Orden LIKE '{Orden6}' ")
Dim DtPatrimonioActualizacion = DtDatos.FiltraParametros($"Tipo in ('F') AND Orden LIKE '{Orden7}' ") Dim DtPatrimonioActualizacion As DataTable = DtDatos.FiltraParametros($"Tipo in ('F') AND Orden LIKE '{Orden7}' ")
Row = DtPatrimonioContribuido.NewRow Row = DtPatrimonioContribuido.NewRow
If DtPatrimonioContribuido.Rows.Count > 0 Then If DtPatrimonioContribuido.Rows.Count > 0 Then
@@ -421,8 +421,7 @@ Partial Class AC_SituacionFinanciera
LbTotalPasivoPatrimonioActual.Text = TotalPasivoPatrimonioActual.ToString.FormatoNumero LbTotalPasivoPatrimonioActual.Text = TotalPasivoPatrimonioActual.ToString.FormatoNumero
LbTotalPasivoPatrimonioAnterior.Text = TotalPasivoPatrimonioAnterior.ToString.FormatoNumero LbTotalPasivoPatrimonioAnterior.Text = TotalPasivoPatrimonioAnterior.ToString.FormatoNumero
Dim Descuadre As Boolean = False
Dim Descuadre = False
'COLOREA ROJO SI NO CUADRAN TOTALES 'COLOREA ROJO SI NO CUADRAN TOTALES
If TotalActivoActual <> TotalPasivoPatrimonioActual Then If TotalActivoActual <> TotalPasivoPatrimonioActual Then
LbTotalActivoActual.ForeColor = Drawing.Color.Red LbTotalActivoActual.ForeColor = Drawing.Color.Red
@@ -603,8 +602,8 @@ Partial Class AC_SituacionFinanciera
Private Sub ImprimirReporte(Optional Formato As String = "PDF") Private Sub ImprimirReporte(Optional Formato As String = "PDF")
Dim FechaI = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, CChar("0")), DdlEjercicio.SelectedValue) Dim FechaI As String = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, CChar("0")), DdlEjercicio.SelectedValue)
Dim FechaF = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaI))).ToString("dd/MM/yyyy") Dim FechaF As String = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaI))).ToString("dd/MM/yyyy")
'nombre del archivo a generar 'nombre del archivo a generar
Dim fileName As String = "EdoSituacionFinanciera" Dim fileName As String = "EdoSituacionFinanciera"
'ubicacion del rdlc 'ubicacion del rdlc
@@ -615,13 +614,13 @@ Partial Class AC_SituacionFinanciera
If Not DtCuentasOrden.Columns.Contains("Importe") Then DtCuentasOrden.Columns.Add("Importe", GetType(String)) If Not DtCuentasOrden.Columns.Contains("Importe") Then DtCuentasOrden.Columns.Add("Importe", GetType(String))
If Not DtCuentasOrden.Columns.Contains("Nivel") Then DtCuentasOrden.Columns.Add("Nivel", GetType(String)) If Not DtCuentasOrden.Columns.Contains("Nivel") Then DtCuentasOrden.Columns.Add("Nivel", GetType(String))
Dim Dr = DtCuentasOrden.NewRow Dim Dr As DataRow = DtCuentasOrden.NewRow
Dr("Concepto") = "PRUEBA" Dr("Concepto") = "PRUEBA"
Dr("Importe") = "15236.85" Dr("Importe") = "15236.85"
Dr("Nivel") = "1" Dr("Nivel") = "1"
DtCuentasOrden.Rows.Add(Dr) DtCuentasOrden.Rows.Add(Dr)
Dim DDdr = DtCuentasOrden.NewRow Dim DDdr As DataRow = DtCuentasOrden.NewRow
DDdr("Concepto") = "PRUEBA 2" DDdr("Concepto") = "PRUEBA 2"
DDdr("Importe") = "15236.85" DDdr("Importe") = "15236.85"
DDdr("Nivel") = "2" DDdr("Nivel") = "2"

95
AF/AF.aspx.vb
View File

@@ -678,7 +678,7 @@ Partial Class AF_AF
End Sub End Sub
Private Sub CargaDispositivos() Private Sub CargaDispositivos()
DivDispositivo.Visible = False DivDispositivo.Visible = False
Dim AplicaGPSStr = GlobalDTSubTipoActivoFijo(CveEmpresaActual).FiltroPrimeroValor("AplicaGPS", $"CveSubTipoActivoFijo = {DdlSubTipoActivoFijo.SelectedValue.ToEntero}") Dim AplicaGPSStr As String = GlobalDTSubTipoActivoFijo(CveEmpresaActual).FiltroPrimeroValor("AplicaGPS", $"CveSubTipoActivoFijo = {DdlSubTipoActivoFijo.SelectedValue.ToEntero}")
Dim AplicaGPS As Boolean = CBool(If(String.IsNullOrEmpty(AplicaGPSStr), "False", AplicaGPSStr)) Dim AplicaGPS As Boolean = CBool(If(String.IsNullOrEmpty(AplicaGPSStr), "False", AplicaGPSStr))
If AplicaGPS Then If AplicaGPS Then
Dim ObjGPS As New ClsGPS Dim ObjGPS As New ClsGPS
@@ -719,7 +719,7 @@ Partial Class AF_AF
DdlGrupo.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlGrupo.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub End Sub
Private Sub CargaResponsable() Private Sub CargaResponsable()
Dim DtPersonal = GlobalDTRHPersonal(CveEmpresaActual).FiltraParametros("", "NombreCompleto") Dim DtPersonal As DataTable = GlobalDTRHPersonal(CveEmpresaActual).FiltraParametros("", "NombreCompleto")
DdlResponsable.DataSource = DtPersonal DdlResponsable.DataSource = DtPersonal
DdlResponsable.DataBind() DdlResponsable.DataBind()
End Sub End Sub
@@ -991,7 +991,7 @@ Partial Class AF_AF
TxtNoSerie.Text = ObjActivoFijo.NoSerie TxtNoSerie.Text = ObjActivoFijo.NoSerie
TxtAño.Text = ObjActivoFijo.Año.ToString TxtAño.Text = ObjActivoFijo.Año.ToString
'CargaSubProyecto() 'CargaSubProyecto()
DdlCtaContable.SelectedValue = ObjActivoFijo.Cuenta.ToString 'DdlCtaContable.SelectedValue = ObjActivoFijo.Cuenta.ToString
LblFechaCaptura.Text = ObjActivoFijo.FechaIng.ToShortDateString LblFechaCaptura.Text = ObjActivoFijo.FechaIng.ToShortDateString
LblUsuarioCapturo.Text = ObjActivoFijo.Usuario LblUsuarioCapturo.Text = ObjActivoFijo.Usuario
TxtPorDepreciacion.Text = ObjActivoFijo.PorDepreciacion.ToString TxtPorDepreciacion.Text = ObjActivoFijo.PorDepreciacion.ToString
@@ -1281,20 +1281,20 @@ Partial Class AF_AF
Dim ImgDownLoad As Literal = e.Row.FCLiteral("ImgDownLoad") Dim ImgDownLoad As Literal = e.Row.FCLiteral("ImgDownLoad")
Dim separado As Char() = ".".ToCharArray Dim separado As Char() = ".".ToCharArray
Dim array() As String = Adjunto.Split(separado) Dim array() As String = Adjunto.Split(separado)
Dim extencion As String = "" Dim extension As String = ""
If array.Length > 0 Then If array.Length > 0 Then
extencion = array(array.Length - 1) extension = array(array.Length - 1)
End If End If
If Adjunto.Trim.Length > 0 Then If Adjunto.Trim.Length > 0 Then
Dim linkDescarga = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/AF/Licencias/" & Adjunto & "." & extencion Dim linkDescarga As String = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/AF/Licencias/" & Adjunto & "." & extension
Dim linkDescargaArchivo = UsuarioActual.Empresa.Ruta & "AF/Licencias/" & Adjunto & "." & extencion Dim linkDescargaArchivo As String = UsuarioActual.Empresa.Ruta & "AF/Licencias/" & Adjunto & "." & extension
If File.Exists(linkDescargaArchivo) Then If File.Exists(linkDescargaArchivo) Then
ImgDownLoad.Visible = True ImgDownLoad.Visible = True
If extencion.Length > 0 Then If extension.Length > 0 Then
ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, "Licencia" & "." & extencion) ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, "Licencia" & "." & extension)
Else Else
ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, "Licencia") ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, "Licencia")
End If End If
@@ -1308,20 +1308,20 @@ Partial Class AF_AF
Dim ImgDownLoad As Literal = e.Row.FCLiteral("ImgDownLoad") Dim ImgDownLoad As Literal = e.Row.FCLiteral("ImgDownLoad")
Dim separado As Char() = ".".ToCharArray Dim separado As Char() = ".".ToCharArray
Dim array() As String = Adjunto.Split(separado) Dim array() As String = Adjunto.Split(separado)
Dim extencion As String = "" Dim extension As String = ""
If array.Length > 0 Then If array.Length > 0 Then
extencion = array(array.Length - 1) extension = array(array.Length - 1)
End If End If
If Adjunto.Trim.Length > 0 Then If Adjunto.Trim.Length > 0 Then
Dim linkDescarga = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/AF/Polizas/" & Adjunto & "." & extencion Dim linkDescarga As String = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/AF/Polizas/" & Adjunto & "." & extension
Dim linkDescargaArchivo = UsuarioActual.Empresa.Ruta & "AF/Polizas/" & Adjunto & "." & extencion Dim linkDescargaArchivo As String = UsuarioActual.Empresa.Ruta & "AF/Polizas/" & Adjunto & "." & extension
If File.Exists(linkDescargaArchivo) Then If File.Exists(linkDescargaArchivo) Then
ImgDownLoad.Visible = True ImgDownLoad.Visible = True
If extencion.Length > 0 Then If extension.Length > 0 Then
ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, "Poliza" & "." & extencion) ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, "Poliza" & "." & extension)
Else Else
ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, "Poliza") ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, "Poliza")
End If End If
@@ -1532,7 +1532,7 @@ Partial Class AF_AF
End Sub End Sub
Private Sub BtnAgregarFalla_Click(sender As Object, e As EventArgs) Handles BtnAgregarFalla.Click Private Sub BtnAgregarFalla_Click(sender As Object, e As EventArgs) Handles BtnAgregarFalla.Click
Dim ObjAF As New ClsAF Dim ObjAF As New ClsAF
Dim TieneError = False Dim TieneError As Boolean = False
If HdnModalidadFalla.Value = "A" Then If HdnModalidadFalla.Value = "A" Then
If ObjAF.AddFalla(CveActivoFijo, TxtAsuntoFalla.Text.Trim, TxtDescripcionFalla.Text.Trim, TxtAFMedida.Text.ToEntero, DdlPrioridad.SelectedValue.ToEntero, TxtFechaFalla.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTipoFallas.SelectedValue.ToEntero, TxtCorreoNotificacion.Text.Trim) Then If ObjAF.AddFalla(CveActivoFijo, TxtAsuntoFalla.Text.Trim, TxtDescripcionFalla.Text.Trim, TxtAFMedida.Text.ToEntero, DdlPrioridad.SelectedValue.ToEntero, TxtFechaFalla.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTipoFallas.SelectedValue.ToEntero, TxtCorreoNotificacion.Text.Trim) Then
@@ -1561,9 +1561,9 @@ Partial Class AF_AF
End Sub End Sub
Private Sub EnviaCorreoFallas() Private Sub EnviaCorreoFallas()
Try Try
Dim Para = TxtCorreoNotificacion.Text.Trim Dim Para As String = TxtCorreoNotificacion.Text.Trim
Dim Asunto = "Registro de Falla de Activo Fijo" Dim Asunto As String = "Registro de Falla de Activo Fijo"
Dim Body = "" Dim Body As String = ""
Dim strBody As New StringBuilder Dim strBody As New StringBuilder
strBody.Append("Registro de Falla de Activo Fijo") strBody.Append("Registro de Falla de Activo Fijo")
@@ -1720,7 +1720,7 @@ Partial Class AF_AF
End Sub End Sub
Private Sub BtnRegistrarAccidente_Click(sender As Object, e As EventArgs) Handles BtnRegistrarAccidente.Click Private Sub BtnRegistrarAccidente_Click(sender As Object, e As EventArgs) Handles BtnRegistrarAccidente.Click
Dim ObjAF As New ClsAF Dim ObjAF As New ClsAF
Dim TieneError = False Dim TieneError As Boolean = False
If HdnModalidadAccidente.Value = "A" Then If HdnModalidadAccidente.Value = "A" Then
If ObjAF.AddFalla(CveActivoFijo, TxtAsuntoAccidente.Text.Trim, TxtDescripcionAccidente.Text.Trim, TxtAFMedidaAccidente.Text.ToEntero, DdlPrioridadAccidente.SelectedValue.ToEntero, TxtFechaAccidente.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTipoFallaAccidente.SelectedValue.ToEntero, TxtCorreoNotificacionAccidente.Text.Trim) Then If ObjAF.AddFalla(CveActivoFijo, TxtAsuntoAccidente.Text.Trim, TxtDescripcionAccidente.Text.Trim, TxtAFMedidaAccidente.Text.ToEntero, DdlPrioridadAccidente.SelectedValue.ToEntero, TxtFechaAccidente.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTipoFallaAccidente.SelectedValue.ToEntero, TxtCorreoNotificacionAccidente.Text.Trim) Then
@@ -1747,9 +1747,9 @@ Partial Class AF_AF
End Sub End Sub
Private Sub EnviaCorreoAccidente() Private Sub EnviaCorreoAccidente()
Try Try
Dim Para = TxtCorreoNotificacion.Text.Trim Dim Para As String = TxtCorreoNotificacion.Text.Trim
Dim Asunto = "Registro de Accidente de Activo Fijo" Dim Asunto As String = "Registro de Accidente de Activo Fijo"
Dim Body = "" Dim Body As String = ""
Dim strBody As New StringBuilder Dim strBody As New StringBuilder
strBody.Append("Registro de Accidente de Activo Fijo") strBody.Append("Registro de Accidente de Activo Fijo")
@@ -1929,7 +1929,7 @@ Partial Class AF_AF
ObjMF.Dispose() ObjMF.Dispose()
End Sub End Sub
Private Sub BtnAgregarActividades_Click(sender As Object, e As EventArgs) Handles BtnAgregarActividades.Click Private Sub BtnAgregarActividades_Click(sender As Object, e As EventArgs) Handles BtnAgregarActividades.Click
Dim TieneError = False Dim TieneError As Boolean = False
If HdnIDActividades.Value.ToEntero > 0 Then If HdnIDActividades.Value.ToEntero > 0 Then
If TxtHorometroInicial.Text.ToEntero < HdnHorometroAnterior.Value.ToEntero Then If TxtHorometroInicial.Text.ToEntero < HdnHorometroAnterior.Value.ToEntero Then
@@ -2473,9 +2473,9 @@ Partial Class AF_AF
If CveActivoFijo <= 0 Then If CveActivoFijo <= 0 Then
'SALIDA DE ALMACEN PARA IMPORTACION 'SALIDA DE ALMACEN PARA IMPORTACION
Dim CveMovimientoSalidaInv = -1 Dim CveMovimientoSalidaInv As Integer = -1
If AFInvCvePS > 0 AndAlso AFInvCveAlmacen > 0 Then If AFInvCvePS > 0 AndAlso AFInvCveAlmacen > 0 Then
Dim CveUMInv = GlobalDTPS(CveEmpresaActual, CvePS:=AFInvCvePS).FiltroPrimeroValor("CveUM").ToEntero Dim CveUMInv As Integer = GlobalDTPS(CveEmpresaActual, CvePS:=AFInvCvePS).FiltroPrimeroValor("CveUM").ToEntero
If CveUMInv > 0 Then If CveUMInv > 0 Then
CveMovimientoSalidaInv = ObjInventarios.AddMovimiento(AFInvCveAlmacen, 3, 1, NowADS(), -1, UsuarioActual.CveUsuario, CveEmpresaActual, -1, -1, -1, -1, Observaciones:=$"Salida de inventario para Activo Fijo | {TxtCodigo.Text.Trim}", Modulo:="AF1") CveMovimientoSalidaInv = ObjInventarios.AddMovimiento(AFInvCveAlmacen, 3, 1, NowADS(), -1, UsuarioActual.CveUsuario, CveEmpresaActual, -1, -1, -1, -1, Observaciones:=$"Salida de inventario para Activo Fijo | {TxtCodigo.Text.Trim}", Modulo:="AF1")
If Not ObjInventarios.AddMovimientoDetalle(CveMovimientoSalidaInv, 1, CveUMInv, AFInvCvePS, 0, -1, Serie:=AFInvSerie, CveSeccionAlmacen:=AFInvCveSeccionAlmacen) Then If Not ObjInventarios.AddMovimientoDetalle(CveMovimientoSalidaInv, 1, CveUMInv, AFInvCvePS, 0, -1, Serie:=AFInvSerie, CveSeccionAlmacen:=AFInvCveSeccionAlmacen) Then
@@ -3027,11 +3027,11 @@ Partial Class AF_AF
#Region "GUARDAR ARCHIVO" #Region "GUARDAR ARCHIVO"
Protected Sub BtnGuardaArchivo1_Click(sender As Object, e As ImageClickEventArgs) Protected Sub BtnGuardaArchivo1_Click(sender As Object, e As ImageClickEventArgs)
Dim objResguardos As New ClsAF Dim objResguardos As New ClsAF
Dim cve = CType(sender, ImageButton).CommandArgument.ToEntero Dim cve As Integer = CType(sender, ImageButton).CommandArgument.ToEntero
Dim btn As ImageButton = CType(sender, ImageButton) Dim btn As ImageButton = CType(sender, ImageButton)
Dim URL As String = cve.ToString Dim URL As String = cve.ToString
Dim RutaGuardar = "" Dim RutaGuardar As String = ""
Dim RutaArchivo = "" Dim RutaArchivo As String = ""
Dim Archivo As String = "" Dim Archivo As String = ""
@@ -3067,11 +3067,11 @@ Partial Class AF_AF
Protected Sub BtnGuardaArchivo2_Click(sender As Object, e As ImageClickEventArgs) Protected Sub BtnGuardaArchivo2_Click(sender As Object, e As ImageClickEventArgs)
Dim objResguardos As New ClsAF Dim objResguardos As New ClsAF
Dim cve = CType(sender, ImageButton).CommandArgument.ToEntero Dim cve As Integer = CType(sender, ImageButton).CommandArgument.ToEntero
Dim btn As ImageButton = CType(sender, ImageButton) Dim btn As ImageButton = CType(sender, ImageButton)
Dim URL As String = cve.ToString Dim URL As String = cve.ToString
Dim RutaGuardar = "" Dim RutaGuardar As String = ""
Dim RutaArchivo2 = "" Dim RutaArchivo2 As String = ""
Dim Archivo2 As String = "" Dim Archivo2 As String = ""
@@ -3126,7 +3126,7 @@ Partial Class AF_AF
Else Else
Dim Conta As New ClsContPAQi(UsuarioActual.Empresa) Dim Conta As New ClsContPAQi(UsuarioActual.Empresa)
Dim CuentaPadre = UsuarioActual.Empresa.Funcionalidad(221).ToEntero Dim CuentaPadre As Integer = UsuarioActual.Empresa.Funcionalidad(221).ToEntero
If Conta.GetCuentasRecursiva(CuentaPadre, 1) Then If Conta.GetCuentasRecursiva(CuentaPadre, 1) Then
DtCuentas = Conta.DtResultados DtCuentas = Conta.DtResultados
@@ -3532,9 +3532,8 @@ Partial Class AF_AF
AFInvSerie = If(Inv_CveMetodoInventario = 5, TxtAFInvSerie.Text.Trim, "-1") AFInvSerie = If(Inv_CveMetodoInventario = 5, TxtAFInvSerie.Text.Trim, "-1")
Dim ObjInventario As New ClsInventarios Dim ObjInventario As New ClsInventarios
Dim Existencia = ObjInventario.GetExistenciasPS(DdlAFInvPS.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, DdlAFInvAlmacen.SelectedValue.ToEntero, CveSeccionAlmacen:=CveSeccionAlmacen, FechaMovto:=NowADS().ToDateTime.ToString("yyyy/MM/dd HH:mm"), Serie:=AFInvSerie) Dim Existencia As Decimal = ObjInventario.GetExistenciasPS(DdlAFInvPS.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, DdlAFInvAlmacen.SelectedValue.ToEntero, CveSeccionAlmacen:=CveSeccionAlmacen, FechaMovto:=NowADS().ToDateTime.ToString("yyyy/MM/dd HH:mm"), Serie:=AFInvSerie)
Dim Costo As Decimal = 0 Dim Costo As Decimal = 0
If Inv_CveMetodoInventario = 5 Then If Inv_CveMetodoInventario = 5 Then
Costo = ObjInventario.GetCostoPSSerie(DdlAFInvPS.SelectedValue.ToEntero, AFInvSerie, DdlAFInvAlmacen.SelectedValue.ToEntero, CveEmpresaActual) Costo = ObjInventario.GetCostoPSSerie(DdlAFInvPS.SelectedValue.ToEntero, AFInvSerie, DdlAFInvAlmacen.SelectedValue.ToEntero, CveEmpresaActual)
@@ -3688,7 +3687,7 @@ Partial Class AF_AF
Private Sub BtnAgregarGrupoAF_Click(sender As Object, e As EventArgs) Handles BtnAgregarGrupoAF.Click Private Sub BtnAgregarGrupoAF_Click(sender As Object, e As EventArgs) Handles BtnAgregarGrupoAF.Click
Dim ObjAF As New ClsAF Dim ObjAF As New ClsAF
Dim CveGrupo As Integer Dim CveGrupo As Integer
Dim TieneError = False Dim TieneError As Boolean = False
For Each Dr As DataRow In DTGrupos.Rows For Each Dr As DataRow In DTGrupos.Rows
@@ -3781,7 +3780,7 @@ Partial Class AF_AF
SBJS.Append("setTimeout(function(){initMapRastreo();") SBJS.Append("setTimeout(function(){initMapRastreo();")
Try Try
Dim Coord = "", Fecha = "", Vehiculo = "", Icono = "", Info As String = "" Dim Coord As String = "", Fecha As String = "", Vehiculo As String = "", Icono As String = "", Info As String = ""
If ObjGPS.UltimaPosicionEquipoGet($"{CveDispositivo};", CveClienteGPS) Then If ObjGPS.UltimaPosicionEquipoGet($"{CveDispositivo};", CveClienteGPS) Then
If ObjGPS.DtResultados.Rows.Count > 0 Then If ObjGPS.DtResultados.Rows.Count > 0 Then
For Each row As DataRow In ObjGPS.DtResultados.Rows For Each row As DataRow In ObjGPS.DtResultados.Rows
@@ -3850,7 +3849,7 @@ Partial Class AF_AF
Protected Sub BtnConsultarHistorico_Click(sender As Object, e As EventArgs) Protected Sub BtnConsultarHistorico_Click(sender As Object, e As EventArgs)
Dim ObjGPS As New ClsGPS Dim ObjGPS As New ClsGPS
Try Try
Dim CveDispositivo = DdlDispositivo.SelectedValue.ToEntero Dim CveDispositivo As Integer = DdlDispositivo.SelectedValue.ToEntero
If ObjGPS.GetPosicionEquipo(CveDispositivo, TxtFechaIH.Text.ToDateTime(), TxtFechaFH.Text.ToDateTime()) Then If ObjGPS.GetPosicionEquipo(CveDispositivo, TxtFechaIH.Text.ToDateTime(), TxtFechaFH.Text.ToDateTime()) Then
If ObjGPS.DtResultados.Rows.Count > 0 Then If ObjGPS.DtResultados.Rows.Count > 0 Then
Dim SBJS As New StringBuilder Dim SBJS As New StringBuilder
@@ -3858,10 +3857,10 @@ Partial Class AF_AF
Dim StrPolyPath As New StringBuilder Dim StrPolyPath As New StringBuilder
StrPolyPath.Append("[") StrPolyPath.Append("[")
Dim POLYPATH As String = "[" Dim POLYPATH As String = "["
Dim Contador = 0 Dim Contador As Integer = 0
Dim RowDispositivo As DataRow = GlobalDTDispositivosUsuarios(CveClienteGPS).FiltroPrimero($"CveDispositivo = {CveDispositivo}") Dim RowDispositivo As DataRow = GlobalDTDispositivosUsuarios(CveClienteGPS).FiltroPrimero($"CveDispositivo = {CveDispositivo}")
Dim CordenadaAnterior As String = "" Dim CordenadaAnterior As String = ""
Dim Coord = "", Fecha = "", Vehiculo = "", Icono = "", Info As String = "" Dim Coord As String = "", Fecha As String = "", Vehiculo As String = "", Icono As String = "", Info As String = ""
SBJS.Append("initMapHistorico();") SBJS.Append("initMapHistorico();")
For Each row As DataRow In ObjGPS.DtResultados.Rows For Each row As DataRow In ObjGPS.DtResultados.Rows
@@ -3914,9 +3913,9 @@ Partial Class AF_AF
Private Sub CargaDatosCombustible() Private Sub CargaDatosCombustible()
'LtlUnidad.Text = DdlDispositivo.SelectedItem.Text 'LtlUnidad.Text = DdlDispositivo.SelectedItem.Text
Dim CveDispositivo = DdlDispositivo.SelectedValue.ToEntero() Dim CveDispositivo As Integer = DdlDispositivo.SelectedValue.ToEntero()
Dim FechaI = TxtFechaIC.Text.ToDateTime Dim FechaI As DateTime = TxtFechaIC.Text.ToDateTime
Dim FechaF = TxtFechaFC.Text.ToDateTime Dim FechaF As DateTime = TxtFechaFC.Text.ToDateTime
'UpReportes.Update() 'UpReportes.Update()
Dim GPS As New ClsGPS Dim GPS As New ClsGPS
If GPS.RepCombustibleGet(DdlDispositivo.SelectedValue.ToEntero(), FechaI, FechaF) AndAlso GPS.DtResultados.Rows.Count > 0 Then If GPS.RepCombustibleGet(DdlDispositivo.SelectedValue.ToEntero(), FechaI, FechaF) AndAlso GPS.DtResultados.Rows.Count > 0 Then
@@ -4050,15 +4049,15 @@ Partial Class AF_AF
Protected Sub BtnConsultarGeoReferencia_Click(sender As Object, e As EventArgs) Protected Sub BtnConsultarGeoReferencia_Click(sender As Object, e As EventArgs)
Dim LastCoord As String = "" Dim LastCoord As String = ""
Dim DtPosiciones As New DataTable Dim DtPosiciones As New DataTable
Dim Info = "" Dim Info As String = ""
Dim SBBody As New StringBuilder Dim SBBody As New StringBuilder
Dim Icono As String = "/Imagenes/rsz_11rsz_car.png" Dim Icono As String = "/Imagenes/rsz_11rsz_car.png"
Dim CoordsPoligono As JArray Dim CoordsPoligono As JArray
Dim Coords As JObject Dim Coords As JObject
Dim Titulo = "" Dim Titulo As String = ""
Dim COUNT = 0 Dim COUNT As Integer = 0
Dim FechaI = If(TxtFechaIG.Text.Trim = "", MinFecha, TxtFechaIG.Text.Trim.ToDate) Dim FechaI As Date = If(TxtFechaIG.Text.Trim = "", MinFecha, TxtFechaIG.Text.Trim.ToDate)
Dim FechaF = If(TxtFechaFG.Text.Trim = "", MaxFecha, TxtFechaFG.Text.Trim.ToDate) Dim FechaF As Date = If(TxtFechaFG.Text.Trim = "", MaxFecha, TxtFechaFG.Text.Trim.ToDate)
Dim CveDispositivo As Integer = DdlDispositivo.SelectedValue.ToEntero Dim CveDispositivo As Integer = DdlDispositivo.SelectedValue.ToEntero
Dim SBJS As New StringBuilder Dim SBJS As New StringBuilder
Dim ArrayGeocercas As New JArray Dim ArrayGeocercas As New JArray

6
App_Code/ClsContPAQi.vb
View File

@@ -7333,7 +7333,7 @@ Public Class ClsContPAQi
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
StrSQL.Clear() StrSQL.Clear()
StrSQL.Append(" INSERT INTO [192.168.0.2].Ventas.dbo.Conta_Cuentas (CveClasificacionCuenta, Codigo, Nombre, Afectable,TipoCuenta,Estatus,FechaIng,CveUsuario,CveEmpresa,CveMoneda,IdCompaq,CvePadre) ") StrSQL.Append(" INSERT INTO [SERVIDOR].Ventas.dbo.Conta_Cuentas (CveClasificacionCuenta, Codigo, Nombre, Afectable,TipoCuenta,Estatus,FechaIng,CveUsuario,CveEmpresa,CveMoneda,IdCompaq,CvePadre) ")
StrSQL.Append("SELECT CASE ") StrSQL.Append("SELECT CASE ")
StrSQL.Append(" WHEN Tipo = 'A' THEN 1 ") StrSQL.Append(" WHEN Tipo = 'A' THEN 1 ")
StrSQL.Append(" WHEN Tipo = 'B' THEN 2 ") StrSQL.Append(" WHEN Tipo = 'B' THEN 2 ")
@@ -7351,10 +7351,10 @@ Public Class ClsContPAQi
StrSQL.Append(" Codigo, Nombre, Afectable, CtaMayor AS TipoCuenta, 1 AS Estatus, Getdate() AS FechaIng, 100 ASCveUsuario, ") StrSQL.Append(" Codigo, Nombre, Afectable, CtaMayor AS TipoCuenta, 1 AS Estatus, Getdate() AS FechaIng, 100 ASCveUsuario, ")
StrSQL.Append(" @CveEmpresa AS CveEmpresa, ") StrSQL.Append(" @CveEmpresa AS CveEmpresa, ")
StrSQL.Append(" IdMoneda AS CveMoneda, C.Id AS IdCompaq, ") StrSQL.Append(" IdMoneda AS CveMoneda, C.Id AS IdCompaq, ")
StrSQL.Append(" (select cc.CveCuenta from [192.168.0.2].Ventas.dbo.Conta_Cuentas cc where cc.IdCompaq = a.IdCtaSup AND cc.CveEmpresa = @CveEmpresa ) as CvePadre ") StrSQL.Append(" (select cc.CveCuenta from [SERVIDOR].Ventas.dbo.Conta_Cuentas cc where cc.IdCompaq = a.IdCtaSup AND cc.CveEmpresa = @CveEmpresa ) as CvePadre ")
StrSQL.Append(" FROM Cuentas c ") StrSQL.Append(" FROM Cuentas c ")
StrSQL.Append(" INNER JOIN Asociaciones a on c.Id = a.IdSubCtade ") StrSQL.Append(" INNER JOIN Asociaciones a on c.Id = a.IdSubCtade ")
StrSQL.Append(" WHERE c.Id IN(SELECT CC.Id FROM Cuentas CC LEFT JOIN [192.168.0.2].Ventas.dbo.Conta_Cuentas CS on CC.Id = CS.IdCompaq AND CS.CveEmpresa = @CveEmpresa WHERE CC.Codigo NOT IN('_BPASIVO') AND CS.CveCuenta IS NULL) ") StrSQL.Append(" WHERE c.Id IN(SELECT CC.Id FROM Cuentas CC LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_Cuentas CS on CC.Id = CS.IdCompaq AND CS.CveEmpresa = @CveEmpresa WHERE CC.Codigo NOT IN('_BPASIVO') AND CS.CveCuenta IS NULL) ")
StrSQL.Append(" ORDER BY Codigo; ") StrSQL.Append(" ORDER BY Codigo; ")

6
App_Code/ClsPaginas.vb
View File

@@ -2126,17 +2126,17 @@ Public Class ClsPaginas
Property GlobalDTTipoVenta(Optional CveEmpresa As Integer = -1) As DataTable Property GlobalDTTipoVenta(Optional CveEmpresa As Integer = -1) As DataTable
Get Get
Dim AppNombre As String = $"GlobalDTTipoVenta" Dim AppNombre As String = $"GlobalDTTipoVenta-{CveEmpresa}"
'sino existe, recarga los datos 'sino existe, recarga los datos
If Application(AppNombre) Is Nothing Then If Application(AppNombre) Is Nothing Then
Dim ObjVentas As New ClsVentas Dim ObjVentas As New ClsVentas
If ObjVentas.GetTipoVenta() Then Application(AppNombre) = ObjVentas.DtResultados If ObjVentas.GetTipoVenta(CveEmpresa) Then Application(AppNombre) = ObjVentas.DtResultados
ObjVentas.Dispose() ObjVentas.Dispose()
End If End If
GlobalDTTipoVenta = DirectCast(Application(AppNombre), DataTable) GlobalDTTipoVenta = DirectCast(Application(AppNombre), DataTable)
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Dim AppNombre As String = $"GlobalDTTipoVenta" Dim AppNombre As String = $"GlobalDTTipoVenta-{CveEmpresa}"
Application(AppNombre) = value Application(AppNombre) = value
End Set End Set
End Property End Property

6
App_Code/ClsVentas.vb
View File

@@ -5953,10 +5953,12 @@ Public Class ClsVentas
#Region "TIPO VENTA" #Region "TIPO VENTA"
Public Function GetTipoVenta() As Boolean Public Function GetTipoVenta(CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Vta_TipoVentaGet") DataAdapter("PA_Vta_TipoVentaGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Retorno = True Retorno = True

56
Compras/Proveedores.aspx
View File

@@ -867,14 +867,24 @@
<asp:HiddenField ID="HdnCuenta" runat="server" ClientIDMode="Static" Value="0" /> <asp:HiddenField ID="HdnCuenta" runat="server" ClientIDMode="Static" Value="0" />
<div id="divCuentas" runat="server" visible="false"> <div id="divCuentas" runat="server" visible="false">
<div class="col-md-6">
<asp:GridView ID="GvCta" runat="server" DataKeyNames="ConceptoContable,NombreCuenta" AutoGenerateColumns="False" EmptyDataText="" ToolTip="Listado de Historial de Ventas" CssClass="table table-striped table-advance table-hover" Style=" width: 100%;" GridLines="None"> <asp:Button ID="BtnVincularCuenta" runat="server" CssClass="btn btn-primary btn-sm" Text="+ Cuenta" Visible="false" />
<asp:Button ID="BtnCuentaDesglose" runat="server" CssClass="btn btn-primary btn-sm" Text="+ Crear Cuenta Proveedores" Visible="false" CommandArgument="Proveedores" OnClick="BtnCuentaDesglose_Click" />
<asp:GridView ID="GvCta" runat="server" DataKeyNames="CveConceptoContable,CveCuentaAsignacion,CveCuenta" AutoGenerateColumns="False" EmptyDataText="" ToolTip="Listado de Historial de Ventas" CssClass="table table-striped table-advance table-hover" Style=" width: 100%;" GridLines="None">
<Columns> <Columns>
<asp:BoundField HeaderText="Concepto Contable" DataField="ConceptoContable" /> <asp:BoundField HeaderText="Concepto Contable" DataField="ConceptoContable" />
<asp:BoundField HeaderText="Nombre Cuenta" DataField="NombreCuenta" /> <asp:BoundField HeaderText="Nombre Cuenta" DataField="NombreCuenta" />
<asp:TemplateField ItemStyle-Width="49px">
<ItemTemplate>
<asp:LinkButton ID="ImgE" runat="server" AlternateText="Editar" CausesValidation="False" OnClick="ActualizaContaCuenta" CssClass="btn btn-circle btn-xs green" Text="<i class='fa fa-pencil'></i>" />
</ItemTemplate>
</asp:TemplateField>
</Columns> </Columns>
</asp:GridView> </asp:GridView>
</div>
<div>
</div>
</div> </div>
<div id="divCuentasContp" runat="server" visible="false"> <div id="divCuentasContp" runat="server" visible="false">
<table> <table>
@@ -4160,6 +4170,46 @@
</div> </div>
</div> </div>
<div id="ModalContaCuenta" class="modal ADS fade" role="dialog">
<div class="modal-dialog">
<!-- Modal content-->
<div class="modal-content">
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">&times;</button>
<h4 class="modal-title">Cuenta</h4>
</div>
<div class="modal-body">
<asp:UpdatePanel ID="UPPCta" UpdateMode="Conditional" runat="server">
<ContentTemplate>
<div>
<asp:HiddenField ID="HdnCveCuentaAsignacion" runat="server" />
<asp:HiddenField ID="HdnCveConceptoContable" runat="server" />
<asp:DropDownList ID="DdlConceptosContables" CssClass="form-control input-sm input-small select2me" runat="server" Width="80%" DataTextField="ConceptoContable" DataValueField="CveConceptoContable">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
<asp:DropDownList ID="DdlContaCuenta" CssClass="form-control input-sm input-small select2me" runat="server" Width="80%" DataTextField="CtaCodigo" DataValueField="CveCuenta">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
<asp:Button ID="Button2" runat="server" CssClass="btn btn-primary btn-sm" Text="+" Visible="False" />
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div class="modal-footer">
<asp:UpdatePanel runat="server">
<ContentTemplate>
<asp:Button ID="BtnCuentaAsociar" Text="Vincular Cuenta" runat="server" ClientIDMode="Static" OnClick="BtnCuentaAsociar_Click" CssClass="btn btn-primary" />
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</div>
</div>
<iframe id="my_iframe" style="display: none;"></iframe> <iframe id="my_iframe" style="display: none;"></iframe>
</asp:Content> </asp:Content>

442
Compras/Proveedores.aspx.vb
View File

@@ -518,7 +518,7 @@ Partial Class Compras_Proveedores
'Configuración de Modalidad Update 'Configuración de Modalidad Update
ActivarRegistroAutomatico() 'ActivarRegistroAutomatico()
BtnGuardar.Text = "Guardar Cambios" BtnGuardar.Text = "Guardar Cambios"
LtlTitulo.Text = "Proveedor:" LtlTitulo.Text = "Proveedor:"
'ImgAddVenta 'ImgAddVenta
@@ -589,7 +589,6 @@ Partial Class Compras_Proveedores
If UsuarioActual.TienePermisoProceso(256) Then LnkParametros.Visible = True 'Actualizar Límite de Crédito If UsuarioActual.TienePermisoProceso(256) Then LnkParametros.Visible = True 'Actualizar Límite de Crédito
ActivarRegistroAutomatico()
End If End If
'Crea y carga CuentasBancarias - tab:Bancos 'Crea y carga CuentasBancarias - tab:Bancos
@@ -692,34 +691,25 @@ Partial Class Compras_Proveedores
If CveProveedor > 0 Then If CveProveedor > 0 Then
Dim ObjProveedores As New ClsCompProveedores Dim ObjProveedores As New ClsCompProveedores
If ObjProveedores.GetRePresentanteLegal(-1, UsuarioActual.CveEmpresa, CveProveedor) Then If ObjProveedores.GetRePresentanteLegal(-1, UsuarioActual.CveEmpresa, CveProveedor) Then
GvRepresentante.DataSource = ObjProveedores.DtResultados GvRepresentante.DataSource = ObjProveedores.DtResultados
Else
GvRepresentante.DataSource = Nothing
End If End If
ObjProveedores.Dispose() ObjProveedores.Dispose()
GvRepresentante.DataBind() GvRepresentante.DataBind()
End If End If
End Sub End Sub
Private Sub CargaCuentasContables(Optional IdCuentaPadre As Integer = -1) Private Sub CargaCuentasContables(Optional IdCuentaPadre As Integer = -1)
If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaContabilidad Then 'If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaContabilidad Then
Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa) ' Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
If ObjContabilidad.GetCuentasRecursiva(IdCuentaPadre, 1) Then ' If ObjContabilidad.GetCuentasRecursiva(IdCuentaPadre, 1) Then
DtCuentasContables = ObjContabilidad.DtResultados ' DtCuentasContables = ObjContabilidad.DtResultados
Else ' Else
DtCuentasContables = Nothing ' DtCuentasContables = Nothing
End If ' End If
ObjContabilidad.Dispose() ' ObjContabilidad.Dispose()
ElseIf UsuarioActual.Empresa.TipoContabilidad = 1 Then If UsuarioActual.Empresa.TipoContabilidad = 1 OrElse UsuarioActual.CveEmpresa.Contiene(13, 83) Then
Dim ObjContabilidad As New ClsContabilidad Dim ObjContabilidad As New ClsContabilidad
If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
DtCuentasContables = ObjContabilidad.DtResultados DtCuentasContables = ObjContabilidad.DtResultados
@@ -916,7 +906,7 @@ Partial Class Compras_Proveedores
DdlRegimenFiscal.SelectedValueExist(ObjProveedor.CveRegimenFiscal DdlRegimenFiscal.SelectedValueExist(ObjProveedor.CveRegimenFiscal
) )
If UsuarioActual.Empresa.TipoContabilidad = 1 Then If UsuarioActual.Empresa.TipoContabilidad = 1 OrElse UsuarioActual.CveEmpresa.Contiene(13, 83) Then
CargaCuentasConceptos() CargaCuentasConceptos()
divCuentas.Visible = True divCuentas.Visible = True
divCuentasContp.Visible = False divCuentasContp.Visible = False
@@ -1042,12 +1032,18 @@ Partial Class Compras_Proveedores
End Sub End Sub
Private Sub CargaCuentasConceptos() Private Sub CargaCuentasConceptos()
If UsuarioActual.TienePermisoProceso(88) OrElse UsuarioActual.TienePermisoProceso(87) Then
BtnVincularCuenta.Visible = True
If UsuarioActual.CveEmpresa = 13 Then BtnCuentaDesglose.Visible = True
End If
Dim ObjConta As New ClsContabilidad Dim ObjConta As New ClsContabilidad
If ObjConta.GetCuentasConceptos(1, UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor) Then If ObjConta.GetCuentasConceptos(-1, UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor) Then
GvCta.DataSource = ObjConta.DtResultados GvCta.DataSource = ObjConta.DtResultados
If ObjConta.DtResultados.Rows.Count = 0 Then BtnCuentaDesglose.Visible = True Else BtnCuentaDesglose.Visible = False
End If End If
ObjConta.Dispose() ObjConta.Dispose()
GvCta.DataBind() GvCta.DataBind()
UPPContable.Update()
End Sub End Sub
@@ -1550,128 +1546,13 @@ Partial Class Compras_Proveedores
Dim codigo As String = "-1" Dim codigo As String = "-1"
Dim MsgCuentaContable As String = "" Dim MsgCuentaContable As String = ""
Dim IdCuentaContable As Integer = -1
Dim IdCuentaAltaCompaq As Integer = -1
Dim CodigoCuentaAltaCompaq As String = ""
Dim NombreCuentaCuentaAltaCompaq As String = ""
Dim IdProveedor As Integer = -1
Dim errorContPaq As Boolean = False
Dim AplicarEvaluacion As Boolean = ChkAplicarEvaluacion.Checked Dim AplicarEvaluacion As Boolean = ChkAplicarEvaluacion.Checked
Dim FechaEvaluacion As String = If(IsDate(TxtFechaEva.Text.Trim()), TxtFechaEva.Text, "-1") Dim FechaEvaluacion As String = If(IsDate(TxtFechaEva.Text.Trim()), TxtFechaEva.Text, "-1")
Dim CicloEvaluacion As Integer = If(AplicarEvaluacion, DdlCicloEvaluacion.SelectedValue.ToEntero(), -1) Dim CicloEvaluacion As Integer = If(AplicarEvaluacion, DdlCicloEvaluacion.SelectedValue.ToEntero(), -1)
'Dim IdContPaqi As Integer
'Dim CodigoPersona As Integer
'If UsuarioActual.Empresa.Funcionalidad(522).ToString = "1" Then
' Dim ObjContPaqi As New ClsContPAQi(UsuarioActual.Empresa)
' If UsuarioActual.Empresa.UsaContabilidad Then
' If ObjContPaqi.GetPersona(TxtRFC.Text) Then
' If ObjContPaqi.DtResultados.Rows.Count > 0 Then
' IdContPaqi = ObjContPaqi.DtResultados.Rows(0)("Id").ToString.ToEntero
' CodigoPersona = ObjContPaqi.DtResultados.Rows(0)("Codigo").ToString.ToEntero
' Dim Cont_EsProveedor As Integer = If(Boolean.Parse(ObjContPaqi.DtResultados.Rows(0)("EsProveedor").ToString), 1, 0)
' Dim Cont_Nombre As String = ObjContPaqi.DtResultados(0)("Nombre").ToString
' Dim Cont_RFC As String = ObjContPaqi.DtResultados(0)("RFC").ToString
' If ObjContPaqi.UpdatePersona(IdContPaqi, Cont_Nombre, Cont_RFC, 1, Cont_EsProveedor) Then
' errorContPaq = False
' Else
' errorContPaq = True
' End If
' Else
' If ObjContPaqi.AddPersona(TxtNombreComercial.Text.Trim, TxtRFC.Text.Trim, 0, 1) Then
' IdContPaqi = ObjContPaqi.DtResultados.Rows(0)("IdContPaqiPersona").ToString.ToEntero
' CodigoPersona = ObjContPaqi.DtResultados.Rows(0)("Codigo").ToString.ToEntero
' errorContPaq = False
' Else
' errorContPaq = True
' End If
' End If
' End If
' End If
' If Not errorContPaq Then
' ObjContPaqi.Commit()
' ObjContPaqi.Dispose()
' Else
' ObjContPaqi.RollBack()
' ObjContPaqi.Dispose()
' Exit Sub
' End If
'End If
Dim ClaveFuncionalidad As Integer = UsuarioActual.Empresa.Funcionalidad(201).ToEntero
If CveProveedor = -1 Then If CveProveedor = -1 Then
Dim ObjContaAC As ClsContPAQi = Nothing
If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ((UsuarioActual.Empresa.Funcionalidad(200).ToEntero > 0 AndAlso UsuarioActual.Empresa.Funcionalidad(201).ToEntero > 0)) Then 'FUNCIONALIDAD 112=AGREGAR CTA CONTABLE PROVEEDOR
ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
ObjContaAC.IniciaTransacSQL()
If DdlCveTipoProveedor.SelectedValue = "2" Then 'cuando es acreedor
ClaveFuncionalidad = UsuarioActual.Empresa.Funcionalidad(202).ToEntero
End If
If UsuarioActual.Empresa.Funcionalidad(322).ToString.Trim.ToEntero > 0 Then
IdCuentaContable = UsuarioActual.Empresa.Funcionalidad(322).ToString.Trim.ToEntero
Else
IdCuentaContable = ObjContaAC.AddSiguienteCuentaHijo(ClaveFuncionalidad, TxtRazonSocial.Text.Trim, "D", 2)
IdCuentaAltaCompaq = IdCuentaContable
End If
If IdCuentaContable > 0 Then
ObjContaAC.GetCuentas(IdCuentaContable, "-1", -1)
Dim dt As DataTable = ObjContaAC.DtResultados
Dim CtaCodigo As String
If dt.Rows.Count = 1 Then
Dim row As DataRow = dt.Rows(0)
CtaCodigo = CStr(row("CtaCodigo"))
CodigoCuentaAltaCompaq = CStr(row("Codigo"))
NombreCuentaCuentaAltaCompaq = TxtRazonSocial.Text.Trim
DdlCtaContProveedores.Items.Add(New ListItem(CtaCodigo, IdCuentaContable.ToString)) : DdlCtaContProveedores.SelectedValueExist(IdCuentaContable.ToString)
End If
IdProveedor = ObjContaAC.AddProveedor(IdCuentaContable, TxtRFC.Text.Trim, TxtRazonSocial.Text.Trim, "")
If IdProveedor > 0 Then
Else
ObjContaAC.RollBack()
Alert("Ocurrio un error al guardar en el padron de proveedores")
ErrorConta = True
End If
Else
ObjContaAC.RollBack()
ErrorConta = True
Alert("Ocurrio un error al guardar la cuenta contable")
End If
End If
Dim ObjProveedores As New ClsCompProveedores() Dim ObjProveedores As New ClsCompProveedores()
Dim ObjCuentasDeposito As New ClsGenerales(ObjProveedores.IniciaTransacSQL()) Dim ObjCuentasDeposito As New ClsGenerales(ObjProveedores.IniciaTransacSQL())
@@ -1696,13 +1577,6 @@ Partial Class Compras_Proveedores
Next Next
End If End If
'If UsuarioActual.CveEmpresa = 119 Then
' If Not AsignaCuentasAutomaticas(ObjProveedores, NuevoCveProveedor) Then
' ErrorCuentasContables = True
' End If
'End If
''Agrega Sucursales ''Agrega Sucursales
If TempDTSucursales.Rows.Count > 0 Then If TempDTSucursales.Rows.Count > 0 Then
For Each row As DataRow In TempDTSucursales.Rows For Each row As DataRow In TempDTSucursales.Rows
@@ -1742,25 +1616,8 @@ Partial Class Compras_Proveedores
Next Next
End If End If
If IdCuentaAltaCompaq > 0 Then
Dim CveConceptoContable As Integer
If DdlCveTipoProveedor.SelectedValue.ToEntero.Contiene(1, 3) Then
CveConceptoContable = 5
Else
CveConceptoContable = 305
End If
If Not AltaCuentaContabilidadSIG(CodigoCuentaAltaCompaq, NombreCuentaCuentaAltaCompaq, IdCuentaAltaCompaq, CveConceptoContable, ObjProveedores.IniciaTransacSQL, IdCompaqPadre:=ClaveFuncionalidad, CveProveedorCuenta:=NuevoCveProveedor) Then
ErrorCuentasContablesSIG = True
End If
End If
If ErrorBancos Or ErrorContactos Or ErrorSucursales Or ErrorCuentasContables Or ErrorCuentasContablesSIG Then ''se deben validar las 3 juntas???????? If ErrorBancos Or ErrorContactos Or ErrorSucursales Or ErrorCuentasContables Or ErrorCuentasContablesSIG Then ''se deben validar las 3 juntas????????
ObjProveedores.RollBack() ObjProveedores.RollBack()
If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
If ErrorBancos Then If ErrorBancos Then
Alert("Ocurrió un error al registrar las Cuentas Bancarias", TipoMensaje.MsgError) Alert("Ocurrió un error al registrar las Cuentas Bancarias", TipoMensaje.MsgError)
Else Else
@@ -1779,8 +1636,6 @@ Partial Class Compras_Proveedores
End If End If
Else Else
ObjProveedores.Commit() ObjProveedores.Commit()
If ObjContaAC IsNot Nothing Then ObjContaAC.Commit()
'ACTUALIZAR GLOBAL 'ACTUALIZAR GLOBAL
GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = Nothing GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = Nothing
GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, -1) = Nothing GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, -1) = Nothing
@@ -1792,43 +1647,9 @@ Partial Class Compras_Proveedores
ObjProveedores.Dispose() ObjProveedores.Dispose()
ObjCuentasDeposito.Dispose() ObjCuentasDeposito.Dispose()
If ObjContaAC IsNot Nothing Then ObjContaAC.Dispose()
Else Else
'If UsuarioActual.Empresa.Funcionalidad(522).ToString = "1" Then
' If UsuarioActual.Empresa.UsaContabilidad Then
' Dim ObjContPaqi As New ClsContPAQi(UsuarioActual.Empresa)
' If Not errorContPaq Then
' If ObjContPaqi.GetProveedor(TxtRFC.Text.Trim) Then
' If ObjContPaqi.DtResultados.Rows.Count > 0 Then
' IdProveedor = ObjContPaqi.DtResultados.Rows(0)("Id").ToString.ToEntero
' errorContPaq = False
' Else
' IdProveedor = ObjContPaqi.AddProveedor(DdlCtaContProveedores.SelectedValue.ToEntero, TxtRFC.Text.Trim, TxtNombreComercial.Text.Trim, "", CodigoPersona)
' If IdProveedor > 0 Then
' errorContPaq = False
' Else
' errorContPaq = True
' End If
' End If
' Else
' errorContPaq = True
' End If
' End If
' If Not errorContPaq Then
' ObjContPaqi.Commit()
' ObjContPaqi.Dispose()
' Else
' ObjContPaqi.RollBack()
' ObjContPaqi.Dispose()
' Alert("Se Presento un Error al Guardar el Proveedor en ContPAQi.", TipoMensaje.MsgError)
' Exit Sub
' End If
' End If
'End If
Dim CreoCuenta As Boolean = False Dim CreoCuenta As Boolean = False
If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (UsuarioActual.Empresa.UsaAC Or (UsuarioActual.Empresa.UsaContabilidad And UsuarioActual.Empresa.Funcionalidad(322).ToString.Trim.ToEntero = 0)) Then If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (UsuarioActual.Empresa.UsaAC Or (UsuarioActual.Empresa.UsaContabilidad And UsuarioActual.Empresa.Funcionalidad(322).ToString.Trim.ToEntero = 0)) Then
@@ -2022,73 +1843,6 @@ Partial Class Compras_Proveedores
End Sub End Sub
Private Function AltaCuentaContabilidadSIG(CodigoCuentaAltaCompaq As String, NombreCuentaCuentaAltaCompaq As String, IdCuentaAltaCompaq As Integer, CveConceptoContable As Integer, Optional Transaccion As SqlClient.SqlTransaction = Nothing, Optional IdCompaqPadre As Integer = -1, Optional CveProveedorCuenta As Integer = -1) As Boolean
If Not UsuarioActual.CveEmpresa.Contiene(7, 11, 145, 122) Then
Return True
End If
If Not IdCompaqPadre > 0 Then
Alert("Erroa al agregar la cuenta SIG, IdCompaq sin definir.", TipoMensaje.MsgError)
Return False
End If
Dim Respuesta As Boolean = False
Dim DisposeClases As Boolean = False
Dim Tipo As String = "B"
If CveConceptoContable.Contiene(5, 305) Then
Tipo = "D"
ElseIf CveConceptoContable.Contiene(10) Then
Tipo = "A"
End If
Dim ObjContabilidad As ClsContabilidad
If Transaccion Is Nothing Then
ObjContabilidad = New ClsContabilidad
DisposeClases = True
Else
ObjContabilidad = New ClsContabilidad(Transaccion)
DisposeClases = False
End If
If UsuarioActual.CveEmpresa.Contiene(7, 11, 145, 122) Then
If ObjContabilidad.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
Dim CvePadre As Integer = ObjContabilidad.DtResultados.FiltroPrimeroValor("CveCuenta", $"IdCompaq={IdCompaqPadre}").ToEntero
If CvePadre > 0 Then
Dim CvecuentaNueva As Integer = ObjContabilidad.AddCuenta(CvePadre, CodigoCuentaAltaCompaq, NombreCuentaCuentaAltaCompaq, Tipo, 2, 1, CveProveedor:=CveProveedor, IdCompaq:=IdCuentaAltaCompaq)
If CvecuentaNueva > 0 Then
If ObjContabilidad.AddCuentasAsignaciones(CveConceptoContable, UsuarioActual.CveEmpresa, CvecuentaNueva, CveProveedor:=CveProveedorCuenta, PorcentajeIVA:=0) Then
Respuesta = True
End If
End If
End If
End If
Else
Respuesta = True
End If
If DisposeClases Then
ObjContabilidad.Dispose()
If Not Respuesta Then
Alert("Se presento un error al agregar y asignar la cuenta (Conta SIG).", TipoMensaje.MsgAdvertencia)
End If
End If
Return Respuesta
End Function
#End Region #End Region
@@ -4371,11 +4125,9 @@ Partial Class Compras_Proveedores
Else Else
TieneError = True TieneError = True
End If End If
'If Not AltaCuentaContabilidadSIG(Codigo, NombreCuenta, IdCuentaContable, CveConceptoContable, ObjProveedores.IniciaTransacSQL, IdCompaqPadre:=CuentaPadre, CveProveedorCuenta:=CveProveedor) Then
' TieneError = True
If Not AltaCuentaContabilidadSIG(Codigo, NombreCuenta, IdCuentaContable, CveConceptoContable, ObjProveedores.IniciaTransacSQL, IdCompaqPadre:=CuentaPadre, CveProveedorCuenta:=CveProveedor) Then 'End If
TieneError = True
End If
If Not TieneError Then If Not TieneError Then
@@ -5437,11 +5189,11 @@ Partial Class Compras_Proveedores
Dim Row As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) Dim Row As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
CargaEvaluacion(Row) CargaEvaluacion(Row)
Dim Fecha = TxtFechaE.Text.ToDateTime() Dim Fecha As DateTime = TxtFechaE.Text.ToDateTime()
Dim Mes = Fecha.ToString("MMMM", New CultureInfo("es-MX")) Dim Mes As String = Fecha.ToString("MMMM", New CultureInfo("es-MX"))
Dim Obs = TxtObsE.Text.Trim() Dim Obs As String = TxtObsE.Text.Trim()
Dim Calificacion = TxtCalificacion.Text.ToEntero() Dim Calificacion As Integer = TxtCalificacion.Text.ToEntero()
Dim Firma = TxtFirma.Text Dim Firma As String = TxtFirma.Text
Dim Resultado As String = "" Dim Resultado As String = ""
@@ -5459,12 +5211,12 @@ Partial Class Compras_Proveedores
Dim Row As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) Dim Row As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
CargaEvaluacion(Row) CargaEvaluacion(Row)
Dim Fecha = TxtFechaE.Text.ToDateTime() Dim Fecha As DateTime = TxtFechaE.Text.ToDateTime()
Dim Mes = Fecha.ToString("MMMM", New CultureInfo("es-MX")) Dim Mes As String = Fecha.ToString("MMMM", New CultureInfo("es-MX"))
Dim Obs = TxtObsE.Text.Trim() Dim Obs As String = TxtObsE.Text.Trim()
Dim Calificacion = TxtCalificacion.Text.ToEntero() Dim Calificacion As Integer = TxtCalificacion.Text.ToEntero()
Dim Firma = TxtFirma.Text Dim Firma As String = TxtFirma.Text
Dim Resultado As String = "" Dim Resultado As String = ""
@@ -5485,9 +5237,9 @@ Partial Class Compras_Proveedores
e.Row.FCRadioButtonList("RblRespuesta").Visible = False e.Row.FCRadioButtonList("RblRespuesta").Visible = False
End If End If
If e.Row.DBCampo("TipoDato") = "2" Then If e.Row.DBCampo("TipoDato") = "2" Then
Dim CvePregunta = e.Row.DBCampo("CvePreguntaEvaluacion").ToEntero() Dim CvePregunta As Integer = e.Row.DBCampo("CvePreguntaEvaluacion").ToEntero()
If CvePregunta > 0 AndAlso DtRespuestasEvaluacion IsNot Nothing Then If CvePregunta > 0 AndAlso DtRespuestasEvaluacion IsNot Nothing Then
Dim Respuesta = DtRespuestasEvaluacion.FiltroPrimeroValor("RespuestaBit", $"CvePreguntaEvaluacion={CvePregunta}") Dim Respuesta As String = DtRespuestasEvaluacion.FiltroPrimeroValor("RespuestaBit", $"CvePreguntaEvaluacion={CvePregunta}")
e.Row.FCRadioButtonList("RblRespuesta").SelectedValue = Respuesta e.Row.FCRadioButtonList("RblRespuesta").SelectedValue = Respuesta
End If End If
End If End If
@@ -5497,8 +5249,8 @@ Partial Class Compras_Proveedores
Private Sub CargaEvaluacion(Row As GridViewRow) Private Sub CargaEvaluacion(Row As GridViewRow)
LimpiarDatosEvaluacion() LimpiarDatosEvaluacion()
Dim CveEvaluacionProveedor = Row.DataKey("CveEvaluacionProveedor").ToEntero() Dim CveEvaluacionProveedor As Integer = Row.DataKey("CveEvaluacionProveedor").ToEntero()
Dim CveCompra = Row.DataKey("CveCompra").ToEntero() Dim CveCompra As Integer = Row.DataKey("CveCompra").ToEntero()
TxtRS.Text = Row.DataKey("RazonSocial") TxtRS.Text = Row.DataKey("RazonSocial")
TxtCodigoE.Text = Row.DataKey("Codigo") TxtCodigoE.Text = Row.DataKey("Codigo")
@@ -5567,7 +5319,7 @@ Partial Class Compras_Proveedores
End Sub End Sub
Protected Function GetTagsCartaEvaluacion(Proveedor As String, Dia As String, Mes As String, Calificacion As String, Resultado As String) As List(Of TagsDocumentos) Protected Function GetTagsCartaEvaluacion(Proveedor As String, Dia As String, Mes As String, Calificacion As String, Resultado As String) As List(Of TagsDocumentos)
Dim ListaTagsDocumentost = New List(Of TagsDocumentos) Dim ListaTagsDocumentost As New List(Of TagsDocumentos)
ListaTagsDocumentost.Add(New TagsDocumentos("{{Proveedor}}", Proveedor)) ListaTagsDocumentost.Add(New TagsDocumentos("{{Proveedor}}", Proveedor))
ListaTagsDocumentost.Add(New TagsDocumentos("{{Dia}}", Dia)) ListaTagsDocumentost.Add(New TagsDocumentos("{{Dia}}", Dia))
ListaTagsDocumentost.Add(New TagsDocumentos("{{Mes}}", Mes)) ListaTagsDocumentost.Add(New TagsDocumentos("{{Mes}}", Mes))
@@ -5598,7 +5350,7 @@ Partial Class Compras_Proveedores
Return ListaTagsDocumentost Return ListaTagsDocumentost
End Function End Function
Protected Function GetTagsFormatoEvaluacion() As List(Of TagsDocumentos) Protected Function GetTagsFormatoEvaluacion() As List(Of TagsDocumentos)
Dim ListaTagsDocumentos = New List(Of TagsDocumentos) Dim ListaTagsDocumentos As New List(Of TagsDocumentos)
ListaTagsDocumentos.Add(New TagsDocumentos("{{Proveedor}}", TxtRS.Text.Trim())) ListaTagsDocumentos.Add(New TagsDocumentos("{{Proveedor}}", TxtRS.Text.Trim()))
ListaTagsDocumentos.Add(New TagsDocumentos("{{Codigo}}", TxtCodigoE.Text.Trim())) ListaTagsDocumentos.Add(New TagsDocumentos("{{Codigo}}", TxtCodigoE.Text.Trim()))
ListaTagsDocumentos.Add(New TagsDocumentos("{{Fecha}}", TxtFechaE.Text)) ListaTagsDocumentos.Add(New TagsDocumentos("{{Fecha}}", TxtFechaE.Text))
@@ -5883,7 +5635,7 @@ Partial Class Compras_Proveedores
Private Sub BtnSendMail_Click(sender As Object, e As EventArgs) Handles BtnSendMail.Click Private Sub BtnSendMail_Click(sender As Object, e As EventArgs) Handles BtnSendMail.Click
'NotificacionPago(HdnCveIE.Value.ToEntero, Txt) 'NotificacionPago(HdnCveIE.Value.ToEntero, Txt)
Dim ObjMail As New ClsSisMail() Dim ObjMail As New ClsSisMail()
Dim Body = GeneraCorreo(HdnCveIE.Value.ToEntero) Dim Body As String = GeneraCorreo(HdnCveIE.Value.ToEntero)
Dim ListaArchivos As New List(Of ClsSisMail.ArchivoMail) Dim ListaArchivos As New List(Of ClsSisMail.ArchivoMail)
@@ -6079,6 +5831,122 @@ Partial Class Compras_Proveedores
End If End If
ObjBancos.Dispose() ObjBancos.Dispose()
End Sub End Sub
#Region "Asignación-Cuentas"
Protected Sub BtnCuentaDesglose_Click(sender As Object, e As EventArgs)
Dim tCveConcepto As Integer = 5
Dim tError As Boolean = False
Dim Msg As String = ""
Dim ObjConta As New ClsContabilidad
Dim ObjContai As ClsContPAQi = Nothing
ObjConta.IniciaTransacSQL()
Dim CveCuentaGlobal As Integer = -2
If UsuarioActual.CveEmpresa = 13 Then
CveCuentaGlobal = 84157
Else
End If
'If ObjConta.GetCuentasGlobales(UsuarioActual.CveEmpresa, tCveConcepto) Then
Dim Cve As Integer = ObjConta.GeneraCuentaDesglose(tCveConcepto, 1, CveCuentaGlobal, CveProveedor, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If Cve > 0 Then
If ObjConta.GetCuentas(Cve, "-1", -1, UsuarioActual.CveEmpresa) Then
Dim drt As DataRow
drt = ObjConta.DtResultados.FiltroPrimero("")
If drt IsNot Nothing Then
Msg = drt("Codigo").ToString & "-" & drt("Nombre").ToString
End If
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
If ObjConta.GetCuentas(drt("CvePadre").ToString.ToEntero, "-1", -1, UsuarioActual.CveEmpresa) Then
Dim idpadre As Integer = ObjConta.DtResultados.FiltroPrimeroValor("IdCompaq").ToEntero
ObjContai = New ClsContPAQi(UsuarioActual.Empresa)
Dim tidcon As Integer = ObjContai.AddCuenta(drt("Codigo").ToString, drt("Nombre").ToString, "D", 2, 0, 1, 0, "", 1, idpadre)
If tidcon > 0 Then
If Not ObjConta.UpdateCuentaCompaq(Cve, tidcon, UsuarioActual.CveEmpresa) Then
tError = True
End If
Else
tError = True
End If
End If
If Not tError AndAlso UsuarioActual.CveEmpresa.Contiene(13) Then
'para EMD, vincular la de anticipos
ObjConta.AddCuentasAsignaciones(10, UsuarioActual.CveEmpresa, Cve, CveProveedor:=CveProveedor)
End If
End If
End If
Else
tError = True
End If
'End If
'crear la cuenta en el contpaqi
If Not tError Then
Alert("Cuenta Generada correctamente.<br>" & Msg)
ObjConta.Commit()
If ObjContai IsNot Nothing Then ObjContai.Commit()
CargaCuentasConceptos()
Else
ObjConta.RollBack()
If ObjContai IsNot Nothing Then ObjContai.RollBack()
ObjConta.Dispose()
End If
ObjConta.Dispose()
End Sub
Private Sub BtnVincularCuenta_Click(sender As Object, e As EventArgs) Handles BtnVincularCuenta.Click
RegistraScript("$('#ModalContaCuenta').modal('show');")
DdlContaCuenta.DataSource = GlobalDTContaCuentasContables(UsuarioActual.CveEmpresa, Afectable:=1)
DdlContaCuenta.DataBind()
DdlConceptosContables.DataSource = GlobalDTContaConceptosContables(-1).FiltraParametros(" CveConceptoContable in (5,305,10,311)")
DdlConceptosContables.DataBind()
UPPCta.Update()
End Sub
Protected Sub BtnCuentaAsociar_Click(sender As Object, e As EventArgs)
Dim ObjConta As New ClsContabilidad
ObjConta.IniciaTransacSQL()
Dim ErrorString As String = ""
If HdnCveCuentaAsignacion.Value.ToEntero <= 0 Then
If Not ObjConta.AddCuentasAsignaciones(DdlConceptosContables.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlContaCuenta.SelectedValue.ToEntero, CveProveedor:=CveProveedor) Then
ErrorString = "Error al agregar"
End If
ElseIf HdnCveCuentaAsignacion.Value.ToEntero > 0 Then
If Not ObjConta.UpdateCuentasAsignaciones(HdnCveCuentaAsignacion.Value.ToEntero, DdlConceptosContables.SelectedValue.ToEntero, CveCuenta:=DdlContaCuenta.SelectedValue.ToEntero, CveProveedor:=CveProveedor) Then
ErrorString = "Error al actualizar"
End If
End If
If ErrorString.Length > 0 Then
ObjConta.RollBack()
Else
ObjConta.Commit()
RegistraScript("$('#ModalContaCuenta').modal('hide');")
Alert("Agregado correctamente")
End If
ObjConta.Dispose()
End Sub
Protected Sub ActualizaContaCuenta(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim CveConceptoContable As Integer = GvRow.DataKey("CveConceptoContable").ToString.ToEntero
HdnCveCuentaAsignacion.Value = GvRow.DataKey("CveCuentaAsignacion").ToString
HdnCveConceptoContable.Value = GvRow.DataKey("CveConceptoContable").ToString
DdlConceptosContables.DataSource = GlobalDTContaConceptosContables(-1).FiltraParametros(" CveConceptoContable in (5,305,10,311)")
DdlConceptosContables.DataBind()
DdlContaCuenta.DataSource = GlobalDTContaCuentasContables(UsuarioActual.CveEmpresa, Afectable:=1)
DdlContaCuenta.DataBind()
DdlContaCuenta.SelectedValue = GvRow.DataKey("CveCuenta").ToString
DdlConceptosContables.SelectedValueExist(GvRow.DataKey("CveConceptoContable"))
RegistraScript("$('#ModalContaCuenta').modal('show');")
UPPCta.Update()
End Sub
#End Region
End Class End Class

3
Contabilidad/RegPrePolizaS.aspx.vb
View File

@@ -1086,10 +1086,9 @@ Partial Class ContabilidadC_RegPrePolizaS
If MsgError = "" AndAlso Not ObjMov.ValidacionesPrePoliza(CvePrePolizaInsertada, UsuarioActual) Then If MsgError = "" AndAlso Not ObjMov.ValidacionesPrePoliza(CvePrePolizaInsertada, UsuarioActual) Then
If ObjMov.ValorPolizaDescuadre > 0 Then If ObjMov.ValorPolizaDescuadre > 0 Then
GuardaLogAD($"Contabilidad/RegPrePolizas | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePolizaInsertada}", "LogPrePolizas") GuardaLogAD($"Contabilidad/RegPrePolizas | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePolizaInsertada}", "LogPrePolizas")
MsgError = ObjMov.MensajePolizaDescuadre MsgError = ObjMov.MensajePolizaDescuadre & "."
End If End If
End If End If
Else Else
MsgError = "No se pudo insertar la póliza" MsgError = "No se pudo insertar la póliza"
End If End If

16
Contabilidad2/RepSituacionFinanciera.aspx.vb
View File

@@ -497,8 +497,8 @@ Partial Class AC2_SituacionFinanciera
e.Row.FCLabel("LbNombre").Font.Bold = True e.Row.FCLabel("LbNombre").Font.Bold = True
e.Row.Attributes.Add("style", "border-top: thick solid; border-top-width: thin;") e.Row.Attributes.Add("style", "border-top: thick solid; border-top-width: thin;")
Else Else
e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, TipoReporte) e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.FirstDayOfMonth.ToShortDateString, e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, TipoReporte)
e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString, TipoReporte) e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.FirstDayOfMonth.ToShortDateString, e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString, TipoReporte)
End If End If
If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then
@@ -529,8 +529,10 @@ Partial Class AC2_SituacionFinanciera
e.Row.Attributes.Add("style", "border-top: thick solid; border-top-width: thin;") e.Row.Attributes.Add("style", "border-top: thick solid; border-top-width: thin;")
'Cuentas 'Cuentas
Else Else
e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString) e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.FirstDayOfMonth.ToShortDateString, e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, TipoReporte)
e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString) e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.FirstDayOfMonth.ToShortDateString, e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString, TipoReporte)
'e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString)
'e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString)
End If End If
@@ -563,8 +565,10 @@ Partial Class AC2_SituacionFinanciera
'e.Row.ControlStyle.ForeColor = Drawing.Color.White 'e.Row.ControlStyle.ForeColor = Drawing.Color.White
'e.Row.ControlStyle.Font.Bold = True 'e.Row.ControlStyle.Font.Bold = True
ElseIf e.Row.DBCampo("CveCuenta") <> "55276" Then ElseIf e.Row.DBCampo("CveCuenta") <> "55276" Then
e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString) e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.FirstDayOfMonth.ToShortDateString, e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, TipoReporte)
e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString) e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.FirstDayOfMonth.ToShortDateString, e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString, TipoReporte)
'e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString)
'e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString)
End If End If
If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then

13
General/SaldosIniciales.aspx.vb
View File

@@ -1252,8 +1252,6 @@ Partial Class General_SaldosIniciales
End If End If
ObjClientes.IniciaTransacSQL() ObjClientes.IniciaTransacSQL()
For Each Row As DataRow In dt.FiltraParametros("RFC <> ''").Rows For Each Row As DataRow In dt.FiltraParametros("RFC <> ''").Rows
NumRow = NumRow + 1 NumRow = NumRow + 1
@@ -1389,13 +1387,8 @@ Partial Class General_SaldosIniciales
Exit Select Exit Select
Case Else Case Else
CveFormaPago33 = 99 CveFormaPago33 = 99
End Select End Select
'Dim RazonSocial As String = Row("RazonSocial").ToString()
'Contacto 'Contacto
If CveCliente > 0 Then If CveCliente > 0 Then
@@ -1422,16 +1415,10 @@ Partial Class General_SaldosIniciales
CveTipoGasto:=-1, RegeneraCuenta:=False) Then CveTipoGasto:=-1, RegeneraCuenta:=False) Then
ErrorClientes = True ErrorClientes = True
End If End If
End If End If
End If End If
Next Next
If Not ErrorClientes Then If Not ErrorClientes Then
ObjClientes.Commit() ObjClientes.Commit()
'If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, -1) Then Application("GlobalDTCliente") = ObjClientes.DtResultados 'If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, -1) Then Application("GlobalDTCliente") = ObjClientes.DtResultados

2
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -973,7 +973,7 @@ Partial Class Inventarios_EntradasSalidas
If Mov.CveOrdenCompraLiga > 0 Then If Mov.CveOrdenCompraLiga > 0 Then
HplOrdenCompra.Visible = True HplOrdenCompra.Visible = True
HdnCveOrdenCompra.Value = Mov.CveOrdenCompraLiga.ToString HdnCveOrdenCompra.Value = Mov.CveOrdenCompraLiga.ToString
HplOrdenCompra.Text = DtMov.Rows(0)("FolioOC").ToString HplOrdenCompra.Text = $"OC: {DtMov.Rows(0)("FolioOC")}"
If UsuarioActual.TienePermisoProceso(201) Then If UsuarioActual.TienePermisoProceso(201) Then
HplOrdenCompra.NavigateUrl = String.Format("/OC/OC.aspx?OC={0}", Mov.CveOrdenCompraLiga) HplOrdenCompra.NavigateUrl = String.Format("/OC/OC.aspx?OC={0}", Mov.CveOrdenCompraLiga)
End If End If

48
Nomina/Nomina.aspx.cs
View File

@@ -9018,20 +9018,10 @@ public partial class Nomina_Nomina2 : ClsPaginas
protected void LnkGuardarConceptosProvision_Click(object sender, EventArgs e) protected void LnkGuardarConceptosProvision_Click(object sender, EventArgs e)
{ {
bool continuar = true; bool continuar = true;
DataTable dtconta = null;
using (ClsContabilidad ObjConta = new ClsContabilidad()) using (ClsContabilidad ObjConta = new ClsContabilidad())
{ {
int CveProveedor = -1; int CveClasificacion = -1;
int CveClientes = -1;
int CveClasificacion = -1;
int CveAlmacen = -1;
if (ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa))
{
dtconta = ObjConta.DtResultados;
}
ObjConta.IniciaTransacSQL(); ObjConta.IniciaTransacSQL();
foreach (GridViewRow gvrow in GVProvision.Rows) foreach (GridViewRow gvrow in GVProvision.Rows)
{ {
@@ -9039,42 +9029,19 @@ public partial class Nomina_Nomina2 : ClsPaginas
if (continuar && CveConceptoNomina > 0) if (continuar && CveConceptoNomina > 0)
{ {
int CvePersonal = gvrow.DataKey("CvePersonal").ToEntero(); int CvePersonal = gvrow.DataKey("CvePersonal").ToEntero();
int CveconceptosContables = ((DropDownList)gvrow.FindControl("DdlCconceptosContables")).SelectedValue.ToEntero(); int CveconceptosContables = gvrow.FCDropDownList("DdlCconceptosContables").SelectedValue.ToEntero();
int Cve = ((DropDownList)gvrow.FindControl("Ddlcuentassd")).SelectedValue.ToEntero(); int CveCuenta = gvrow.FCDropDownList("Ddlcuentassd").SelectedValue.ToEntero();
int CveCuenta = -1;
int IdCuentaContable = -1;
if (UsuarioActual.Empresa.TipoContabilidad == 1)
{
DataRow drcuenta = dtconta.FiltroPrimero(string.Format(" CveCuenta ={0}", Cve));
if (drcuenta != null)
{
IdCuentaContable = drcuenta["IdCompaq"].ToString().ToEntero();
}
CveCuenta = Cve;
}
else
{
DataRow drcuenta = dtconta.FiltroPrimero(string.Format("IdCompaq ={0}", Cve));
if (drcuenta != null)
{
CveCuenta = drcuenta["CveCuenta"].ToString().ToEntero();
}
IdCuentaContable = Cve;
}
if (CveconceptosContables > 0 && CveCuenta > 0) if (CveconceptosContables > 0 && CveCuenta > 0)
{ {
if (!ObjConta.AddCuentasAsignaciones(CveconceptosContables, UsuarioActual.CveEmpresa, CveCuenta, CveProveedor, CveClientes, if (!ObjConta.AddCuentasAsignaciones(CveconceptosContables, UsuarioActual.CveEmpresa, CveCuenta,
CvePersonal, CveClasificacion, CveAlmacen, -1, CveBancoCuenta: -1, CveConceptoNomina: CveConceptoNomina)) CvePersonal: CvePersonal, CveClasificacion: CveClasificacion, CveConceptoNomina: CveConceptoNomina))
{ continuar = false; } { continuar = false; }
} }
else { continuar = false; } else { continuar = false; }
} }
} }
if (continuar) if (continuar)
{ {
ObjConta.Commit(); ObjConta.Commit();
} }
else else
@@ -9082,7 +9049,6 @@ public partial class Nomina_Nomina2 : ClsPaginas
ObjConta.RollBack(); ObjConta.RollBack();
} }
} }
if (continuar) if (continuar)
{ {
Alert("las cuentas hán sido asignadas."); Alert("las cuentas hán sido asignadas.");

4
OC/OC.aspx.vb
View File

@@ -989,7 +989,7 @@ Partial Class OC_OC
Dim DrPS As DataRow = GlobalDTPS(CveEmpresaActual, CvePS:=Dr("CvePS").ToString.ToEntero).FiltroPrimero("") Dim DrPS As DataRow = GlobalDTPS(CveEmpresaActual, CvePS:=Dr("CvePS").ToString.ToEntero).FiltroPrimero("")
If DrPS IsNot Nothing AndAlso DrPS("IVA").ToString.ToEntero = -1 Then If DrPS IsNot Nothing AndAlso DrPS("IVA").ToString.ToEntero = -1 Then
Dr("IVA") = Math.Round(Dr("Total").ToString.ToDecimal * Porcentaje, 6) Dr("IVA") = Math.Round(Dr("Total").ToString.ToDecimal * Porcentaje, 6)
Dr("IVAPorcentaje") = Math.Round(Porcentaje, 2) Dr("IVAPorcentaje") = If(Math.Round(Porcentaje, 2) > 0.14, 0.16, Math.Round(Porcentaje, 2))
' Tipo Dato '0' es Cuando es Nuevo, '1' para editar y '2' viene de la BD ' Tipo Dato '0' es Cuando es Nuevo, '1' para editar y '2' viene de la BD
Dr("TipoDato") = If(Dr("TipoDato").ToString.ToEntero = 0, 0, 1) Dr("TipoDato") = If(Dr("TipoDato").ToString.ToEntero = 0, 0, 1)
@@ -2592,7 +2592,7 @@ Partial Class OC_OC
Dim PorcentajeIVADetalle As Decimal = Me.DtDetalle.MAX("IVAPorcentaje", "IVAPorcentaje > 0").ToDecimal() Dim PorcentajeIVADetalle As Decimal = Me.DtDetalle.MAX("IVAPorcentaje", "IVAPorcentaje > 0").ToDecimal()
If PorcentajeIVADetalle > 0 AndAlso (PorcentajeIVA <> PorcentajeIVADetalle) Then If PorcentajeIVADetalle > 0 AndAlso (PorcentajeIVA <> PorcentajeIVADetalle) Then
Alert("El IVA de los conceptos no coincide con el IVA a facturar.", TipoMensaje.MsgAdvertencia) Alert($"El IVA de los conceptos no coincide con el IVA a facturar.[{PorcentajeIVA}-{PorcentajeIVADetalle}]", TipoMensaje.MsgAdvertencia)
TieneError = True TieneError = True
End If End If

2
PortalCliente/PortalCliente.aspx.vb
View File

@@ -1879,7 +1879,7 @@ Partial Class Ventas_PortalCliente
End If End If
If MsgError = "" Then If MsgError = "" Then
If ObjMov.sValidacionePrePoliza(CvePrePoliza, UsuarioActual) Then If ObjMov.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then
If ObjMov.ValorPolizaDescuadre > 0 Then If ObjMov.ValorPolizaDescuadre > 0 Then
GuardaLogAD($"Bancos/IE | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") GuardaLogAD($"Bancos/IE | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
End If End If

6
Sistemas/CatRoles.aspx.vb
View File

@@ -86,7 +86,7 @@ Partial Class CatRoles
Protected Sub GvDatos_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvDatos.RowCommand Protected Sub GvDatos_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvDatos.RowCommand
If e.CommandName = "Permisos" Then If e.CommandName = "Permisos" Then
Dim Array = e.CommandArgument.ToString.Split("|"c) Dim Array As String() = e.CommandArgument.ToString.Split("|"c)
If Array.Length = 2 Then If Array.Length = 2 Then
Dim ObjPermisos As New ClsSisRoles() Dim ObjPermisos As New ClsSisRoles()
ViewState("CveRol") = Array(0).ToEntero ViewState("CveRol") = Array(0).ToEntero
@@ -105,7 +105,7 @@ Partial Class CatRoles
End If End If
End If End If
If e.CommandName = "Procesos" Then If e.CommandName = "Procesos" Then
Dim Array = e.CommandArgument.ToString.Split("|"c) Dim Array As String() = e.CommandArgument.ToString.Split("|"c)
If Array.Length = 2 Then If Array.Length = 2 Then
Dim ObjPermisos As New ClsSisRoles() Dim ObjPermisos As New ClsSisRoles()
ViewState("CveProceso") = Array(0).ToEntero ViewState("CveProceso") = Array(0).ToEntero
@@ -173,7 +173,7 @@ Partial Class CatRoles
Protected Sub GvDatos_RowDeleting(ByVal sender As Object, ByVal e As GridViewDeleteEventArgs) Handles GvDatos.RowDeleting Protected Sub GvDatos_RowDeleting(ByVal sender As Object, ByVal e As GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
Dim Rol As New ClsSisRoles Dim Rol As New ClsSisRoles
Dim Clave = GvDatos.Rows(e.RowIndex).DataKey("CveRol").ToEntero Dim Clave As Integer = GvDatos.Rows(e.RowIndex).DataKey("CveRol").ToEntero
If Rol.RemoveRol(Clave) Then If Rol.RemoveRol(Clave) Then
Alert("Se ha eliminado correctamente.", TipoMensaje.MsgInformacion) Alert("Se ha eliminado correctamente.", TipoMensaje.MsgInformacion)
UpDatos.Update() UpDatos.Update()

2
Ventas/CatClasificaciones.aspx
View File

@@ -101,7 +101,7 @@
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Cuenta Ingresos"> <asp:TemplateField HeaderText="Cuenta Ingresos" Visible="true">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LtlCuentaIngresos" runat="server" Text=''></asp:Label> <asp:Label ID="LtlCuentaIngresos" runat="server" Text=''></asp:Label>
</ItemTemplate> </ItemTemplate>

8
Ventas/CatClasificacionesDetalle.aspx
View File

@@ -110,7 +110,7 @@
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" ShowHeader="True" DataKeyNames="CveClasificacion,CveSubProyecto" EmptyDataText="No se encontraron Clasificaciones Registradas" ToolTip="Listado de Clasificaciones" CssClass="table table-striped table-hover Widthall" Style="text-align: left;" GridLines="None"> <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" ShowHeader="True" DataKeyNames="CveClasificacion,CveSubProyecto,CveCuentaAsignacionGasto" EmptyDataText="No se encontraron Clasificaciones Registradas" ToolTip="Listado de Clasificaciones" CssClass="table table-striped table-hover Widthall btn-sm" Style="text-align: left;" GridLines="None">
<Columns> <Columns>
<asp:TemplateField HeaderText="Proyecto"> <asp:TemplateField HeaderText="Proyecto">
<ItemTemplate> <ItemTemplate>
@@ -135,11 +135,11 @@
<asp:Literal ID="LtlCuentaGasto" runat="server" Text='<%# Eval("CuentaGasto")%>'></asp:Literal> <asp:Literal ID="LtlCuentaGasto" runat="server" Text='<%# Eval("CuentaGasto")%>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
<EditItemTemplate> <EditItemTemplate>
<asp:DropDownList ID="DdlCuentaGasto" DataTextField="CtaCodigo" CssClass="form-control input-sm select2me" DataValueField="Id" runat="server" Width="144px"></asp:DropDownList> <asp:DropDownList ID="DdlCuentaGasto" DataTextField="CtaCodigo" CssClass="form-control input-sm select2me" DataValueField="CveCuenta" runat="server" Width="100%"></asp:DropDownList>
</EditItemTemplate> </EditItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Cuenta Costos"> <asp:TemplateField HeaderText="Cuenta Costos" Visible="false">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlCuentaCostos" runat="server" Text='<%# Eval("CuentaCostos")%>'></asp:Literal> <asp:Literal ID="LtlCuentaCostos" runat="server" Text='<%# Eval("CuentaCostos")%>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
@@ -148,7 +148,7 @@
</EditItemTemplate> </EditItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Cuenta Ingresos" HeaderStyle-Width="400px"> <asp:TemplateField HeaderText="Cuenta Ingresos" HeaderStyle-Width="400px" Visible="false">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlCuentaIngresos" runat="server" Text='<%# Eval("CuentaIngresos")%>'></asp:Literal> <asp:Literal ID="LtlCuentaIngresos" runat="server" Text='<%# Eval("CuentaIngresos")%>'></asp:Literal>
</ItemTemplate> </ItemTemplate>

160
Ventas/CatClasificacionesDetalle.aspx.vb
View File

@@ -40,32 +40,32 @@ Partial Class CatClasificacionesDetalle
If CargaDatos() Then If CargaDatos() Then
If UsuarioActual.Empresa.TipoContabilidad = 2 Then 'If UsuarioActual.Empresa.TipoContabilidad = 2 Then
Dim Cuenta As New ClsContPAQi(UsuarioActual.Empresa) ' Dim Cuenta As New ClsContPAQi(UsuarioActual.Empresa)
If Cuenta.GetCuentas(-1, "-1", -1) Then ' If Cuenta.GetCuentas(-1, "-1", -1) Then
DtCuentas = Cuenta.DtResultados ' DtCuentas = Cuenta.DtResultados
End If ' End If
Cuenta.Dispose() ' Cuenta.Dispose()
Try ' Try
DdlCuentaGasto.DataSource = DtCuentas : DdlCuentaGasto.DataBind() ' DdlCuentaGasto.DataSource = DtCuentas : DdlCuentaGasto.DataBind()
Catch ex As Exception ' Catch ex As Exception
End Try ' End Try
Try ' Try
DdlCuentaCostos.DataSource = DtCuentas : DdlCuentaCostos.DataBind() ' DdlCuentaCostos.DataSource = DtCuentas : DdlCuentaCostos.DataBind()
Catch ex As Exception ' Catch ex As Exception
End Try ' End Try
Try ' Try
DdlCuentaIngresos.DataSource = DtCuentas : DdlCuentaIngresos.DataBind() ' DdlCuentaIngresos.DataSource = DtCuentas : DdlCuentaIngresos.DataBind()
Catch ex As Exception ' Catch ex As Exception
End Try ' End Try
End If 'End If
DdlCuentaGasto.Items.Insert(0, New ListItem("-", "-1")) DdlCuentaGasto.Items.Insert(0, New ListItem("-", "-1"))
DdlCuentaCostos.Items.Insert(0, New ListItem("-", "-1")) DdlCuentaCostos.Items.Insert(0, New ListItem("-", "-1"))
DdlCuentaIngresos.Items.Insert(0, New ListItem("-", "-1")) DdlCuentaIngresos.Items.Insert(0, New ListItem("-", "-1"))
@@ -103,9 +103,9 @@ Partial Class CatClasificacionesDetalle
If dr IsNot Nothing Then If dr IsNot Nothing Then
TxtClasificacion.Text = dr("Clasificacion").ToString TxtClasificacion.Text = dr("Clasificacion").ToString
LblClasificacion.Text = dr("Clasificacion").ToString LblClasificacion.Text = dr("Clasificacion").ToString
DdlCuentaGasto.SelectedValue = dr("IdCuentaGasto").ToString 'DdlCuentaGasto.SelectedValue = dr("CveCuentaGasto").ToString
DdlCuentaCostos.SelectedValue = dr("IdCuentaCostos").ToString 'DdlCuentaCostos.SelectedValue = dr("IdCuentaCostos").ToString
DdlCuentaIngresos.SelectedValue = dr("IdCuentaIngresos").ToString 'DdlCuentaIngresos.SelectedValue = dr("IdCuentaIngresos").ToString
DdlCategoria.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa) DdlCategoria.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
DdlCategoria.DataBind() DdlCategoria.DataBind()
@@ -117,7 +117,6 @@ Partial Class CatClasificacionesDetalle
If ObjClasificaciones.GetClasificacionesSubProyecto(CveClasificacion, UsuarioActual.CveEmpresa) Then If ObjClasificaciones.GetClasificacionesSubProyecto(CveClasificacion, UsuarioActual.CveEmpresa) Then
ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados
Else Else
Me.GvDatos.DataSource = Nothing Me.GvDatos.DataSource = Nothing
End If End If
@@ -159,34 +158,34 @@ Partial Class CatClasificacionesDetalle
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.RowIndex = 0 Then 'If e.Row.RowIndex = 0 Then
e.Row.Cells(0).Width = Unit.Pixel(150) ' e.Row.Cells(0).Width = Unit.Pixel(150)
e.Row.Cells(1).Width = Unit.Pixel(150) ' e.Row.Cells(1).Width = Unit.Pixel(150)
e.Row.Cells(2).Width = Unit.Pixel(220) ' e.Row.Cells(2).Width = Unit.Pixel(220)
e.Row.Cells(3).Width = Unit.Pixel(220) ' e.Row.Cells(3).Width = Unit.Pixel(220)
e.Row.Cells(4).Width = Unit.Pixel(60) ' e.Row.Cells(4).Width = Unit.Pixel(60)
e.Row.Cells(5).Width = Unit.Pixel(61) ' e.Row.Cells(5).Width = Unit.Pixel(61)
'e.Row.Cells(7).Width = Unit.Pixel(50) ' 'e.Row.Cells(7).Width = Unit.Pixel(50)
'e.Row.Cells(8).Width = Unit.Pixel(50) ' 'e.Row.Cells(8).Width = Unit.Pixel(50)
End If 'End If
If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
e.Row.FCDropDownList("DdlCuentaGasto").DataSource = DtCuentas e.Row.FCDropDownList("DdlCuentaGasto").DataSource = GlobalDTContaCuentasContables(UsuarioActual.CveEmpresa, Afectable:=1)
e.Row.FCDropDownList("DdlCuentaGasto").DataBind() e.Row.FCDropDownList("DdlCuentaGasto").DataBind()
e.Row.FCDropDownList("DdlCuentaGasto").Items.Insert(0, New ListItem("-", "-1")) e.Row.FCDropDownList("DdlCuentaGasto").Items.Insert(0, New ListItem("-", "-1"))
e.Row.FCDropDownList("DdlCuentaGasto").SelectedValue = e.Row.DBCampo("IdCuentaGasto") e.Row.FCDropDownList("DdlCuentaGasto").SelectedValue = e.Row.DBCampo("CveCuentaGasto")
e.Row.FCDropDownList("DdlCuentaCostos").DataSource = DtCuentas 'e.Row.FCDropDownList("DdlCuentaCostos").DataSource = DtCuentas
e.Row.FCDropDownList("DdlCuentaCostos").DataBind() 'e.Row.FCDropDownList("DdlCuentaCostos").DataBind()
e.Row.FCDropDownList("DdlCuentaCostos").Items.Insert(0, New ListItem("-", "-1")) 'e.Row.FCDropDownList("DdlCuentaCostos").Items.Insert(0, New ListItem("-", "-1"))
e.Row.FCDropDownList("DdlCuentaCostos").SelectedValue = e.Row.DBCampo("IdCuentaCostos") 'e.Row.FCDropDownList("DdlCuentaCostos").SelectedValue = e.Row.DBCampo("IdCuentaCostos")
e.Row.FCDropDownList("DdlCuentaIngresos").DataSource = DtCuentas 'e.Row.FCDropDownList("DdlCuentaIngresos").DataSource = DtCuentas
e.Row.FCDropDownList("DdlCuentaIngresos").DataBind() 'e.Row.FCDropDownList("DdlCuentaIngresos").DataBind()
e.Row.FCDropDownList("DdlCuentaIngresos").Items.Insert(0, New ListItem("-", "-1")) 'e.Row.FCDropDownList("DdlCuentaIngresos").Items.Insert(0, New ListItem("-", "-1"))
e.Row.FCDropDownList("DdlCuentaIngresos").SelectedValue = e.Row.DBCampo("IdCuentaIngresos") 'e.Row.FCDropDownList("DdlCuentaIngresos").SelectedValue = e.Row.DBCampo("IdCuentaIngresos")
'e.Row.FCDropDownList("DdlCuentaInventario").DataSource = DtCuentas 'e.Row.FCDropDownList("DdlCuentaInventario").DataSource = DtCuentas
'e.Row.FCDropDownList("DdlCuentaInventario").DataBind() 'e.Row.FCDropDownList("DdlCuentaInventario").DataBind()
@@ -210,15 +209,27 @@ Partial Class CatClasificacionesDetalle
End Sub End Sub
Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
Dim ObjClasificaciones As New ClsClasificaciones 'Dim ObjClasificaciones As New ClsClasificaciones
If ObjClasificaciones.RemoveClasificacion(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then 'If ObjClasificaciones.RemoveClasificacion(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
' GvDatos.EditIndex = -1
' ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
' Alert("La Clasificación se eliminó correctamente.", TipoMensaje.MsgInformacion)
'Else
' Alert("Ocurrió un error al eliminar la clasificación. Por favor vuelva a intentar.", TipoMensaje.MsgError)
'End If
'CargaGlobal()
'ObjClasificaciones.Dispose()
Dim ObjClasificaciones As New ClsContabilidad
If ObjClasificaciones.RemoveCuentasAsignaciones(GvDatos.Rows(e.RowIndex).DataKey("CveCuentaAsignacionGasto").ToEntero) Then
GvDatos.EditIndex = -1 GvDatos.EditIndex = -1
ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) CargaDatos()
'ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
Alert("La Clasificación se eliminó correctamente.", TipoMensaje.MsgInformacion) Alert("La Clasificación se eliminó correctamente.", TipoMensaje.MsgInformacion)
Else Else
Alert("Ocurrió un error al eliminar la clasificación. Por favor vuelva a intentar.", TipoMensaje.MsgError) Alert("Ocurrió un error al eliminar la clasificación. Por favor vuelva a intentar.", TipoMensaje.MsgError)
End If End If
CargaGlobal()
ObjClasificaciones.Dispose() ObjClasificaciones.Dispose()
If ViewState("Orden").ToString() <> String.Empty Then If ViewState("Orden").ToString() <> String.Empty Then
@@ -227,7 +238,6 @@ Partial Class CatClasificacionesDetalle
CargaGrid("") CargaGrid("")
End If End If
End Sub End Sub
Protected Sub GvDatos_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvDatos.RowCancelingEdit Protected Sub GvDatos_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvDatos.RowCancelingEdit
@@ -240,14 +250,14 @@ Partial Class CatClasificacionesDetalle
End Sub End Sub
Protected Sub GvDatos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatos.RowUpdating Protected Sub GvDatos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatos.RowUpdating
Dim ObjClasificaciones As New ClsClasificaciones 'Dim ObjClasificaciones As New ClsClasificaciones
Dim CveSubProyecto As Integer = e.Keys("CveSubProyecto").ToString.ToEntero Dim CveSubProyecto As Integer = e.Keys("CveSubProyecto").ToString.ToEntero
Dim tCveClasificacion As Integer = e.Keys("CveClasificacion").ToString.ToEntero Dim tCveClasificacion As Integer = e.Keys("CveClasificacion").ToString.ToEntero
Dim DdlGasto As DropDownList = GvDatos.Rows(e.RowIndex).FCDropDownList("DdlCuentaGasto") Dim DdlGasto As DropDownList = GvDatos.Rows(e.RowIndex).FCDropDownList("DdlCuentaGasto")
Dim DdlCostos As DropDownList = GvDatos.Rows(e.RowIndex).FCDropDownList("DdlCuentaCostos") 'Dim DdlCostos As DropDownList = GvDatos.Rows(e.RowIndex).FCDropDownList("DdlCuentaCostos")
Dim DdlIngresos As DropDownList = GvDatos.Rows(e.RowIndex).FCDropDownList("DdlCuentaIngresos") 'Dim DdlIngresos As DropDownList = GvDatos.Rows(e.RowIndex).FCDropDownList("DdlCuentaIngresos")
'If ObjClasificaciones.UpdateClasificacionSubProyecto(tCveClasificacion, CveSubProyecto, DdlIngresos.SelectedValue.ToEntero, DdlIngresos.SelectedItem.Text) Then 'If ObjClasificaciones.UpdateClasificacionSubProyecto(tCveClasificacion, CveSubProyecto, DdlIngresos.SelectedValue.ToEntero, DdlIngresos.SelectedItem.Text) Then
' GvDatos.EditIndex = -1 ' GvDatos.EditIndex = -1
@@ -256,6 +266,54 @@ Partial Class CatClasificacionesDetalle
'Else 'Else
' Alert("Ocurrió un error al actualizar la clasificación. Por favor vuelva a intentar.", TipoMensaje.MsgError) ' Alert("Ocurrió un error al actualizar la clasificación. Por favor vuelva a intentar.", TipoMensaje.MsgError)
'End If 'End If
Dim gvr As GridViewRow = GvDatos.Rows(e.RowIndex)
Dim ObjClasificaciones As New ClsContabilidad
If gvr.DataKey("CveCuentaAsignacionGasto").ToEntero = 0 Then
If ObjClasificaciones.AddCuentasAsignaciones(6, UsuarioActual.CveEmpresa,
DdlGasto.SelectedValue.ToEntero,
CveClasificacion:=gvr.DataKey("CveClasificacion").ToEntero,
CveSubProyecto:=gvr.DataKey("CveSubProyecto").ToEntero) Then
GvDatos.EditIndex = -1
CargaDatos()
'ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
Alert("La Clasificación se registró correctamente.", TipoMensaje.MsgInformacion)
Else
Alert("Ocurrió un error al registró la clasificación. Por favor vuelva a intentar.", TipoMensaje.MsgError)
End If
Else
If DdlGasto.SelectedValue.ToEntero > 0 Then
If ObjClasificaciones.UpdateCuentasAsignaciones(gvr.DataKey("CveCuentaAsignacionGasto").ToEntero,
CveConceptoContable:=6,
CveCuenta:=DdlGasto.SelectedValue.ToEntero,
CveClasificacion:=gvr.DataKey("CveClasificacion").ToEntero,
CveSubProyecto:=gvr.DataKey("CveSubProyecto").ToEntero) Then
GvDatos.EditIndex = -1
CargaDatos()
'ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
Alert("La Clasificación se actualizo correctamente.", TipoMensaje.MsgInformacion)
Else
Alert("Ocurrió un error se actualizó la clasificación. Por favor vuelva a intentar.", TipoMensaje.MsgError)
End If
Else
If ObjClasificaciones.RemoveCuentasAsignaciones(gvr.DataKey("CveCuentaAsignacionGasto").ToEntero) Then
GvDatos.EditIndex = -1
CargaDatos()
'ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
Alert("La Clasificación se eliminó correctamente.", TipoMensaje.MsgInformacion)
Else
Alert("Ocurrió un error se eliminó la clasificación. Por favor vuelva a intentar.", TipoMensaje.MsgError)
End If
End If
End If
ObjClasificaciones.Dispose() ObjClasificaciones.Dispose()

12
Ventas/Clientes.aspx.vb
View File

@@ -800,11 +800,11 @@ Partial Class Clientes
If Request("ATI") IsNot Nothing AndAlso IsNumeric(Request("ATI")) Then If Request("ATI") IsNot Nothing AndAlso IsNumeric(Request("ATI")) Then
Tab.ActiveTabIndex = Request("ATI").ToEntero() Tab.ActiveTabIndex = Request("ATI").ToEntero()
End If End If
'CargaCuentasyConceptos()
If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso UsuarioActual.TienePermisoProceso(353) Then If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso UsuarioActual.TienePermisoProceso(353) Then
DVLnkCambiarVendedor.Visible = True DVLnkCambiarVendedor.Visible = True
DdlVendedor.Enabled = True
End If End If
@@ -10325,12 +10325,6 @@ Partial Class Clientes
Exit Sub Exit Sub
End If End If
If CveVendedorOriginal = DdlVendedor.SelectedValue.ToEntero Then
Alert("Debe de seleccionar un vendedor distinto para actualizar.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
Dim ObjVentas As New ClsVentas Dim ObjVentas As New ClsVentas
Dim ErrorCambio As Boolean = False Dim ErrorCambio As Boolean = False

58
Ventas/Ventas.aspx.vb
View File

@@ -8911,13 +8911,9 @@ Partial Class Ventas
Exit Sub Exit Sub
End If End If
If Not LblRFC.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso RegimenFiscalCliente = "616" Then 'hay RFC con regimen 616, con evidencia de constancia
Alert("El Regimen fiscal del cliente no puede ser <b>'616 - Sin obligaciones fiscales'</b> si no se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia) 'If Not LblRFC.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso RegimenFiscalCliente = "616" Then
Exit Sub ' Alert("El Regimen fiscal del cliente no puede ser <b>'616 - Sin obligaciones fiscales'</b> si no se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
End If
'If Not LblRFC.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlUsoCFDI.SelectedValue = "23" Then
' Alert("El uso cfdi del cliente no puede ser <b>'S01 - Sin efectos fiscales'</b> si no se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
' Exit Sub ' Exit Sub
'End If 'End If
@@ -15739,10 +15735,8 @@ Partial Class Ventas
End Sub End Sub
Private Sub AplicaAnticipos() Private Sub AplicaAnticipos()
If CveVenta > 0 And CveCliente > 0 And Not EsCreaApartirDe And CveDevolucion <= 0 Then If CveVenta > 0 And CveCliente > 0 And Not EsCreaApartirDe And CveDevolucion <= 0 Then
Dim EsAnticipo2017Jam As Boolean = False Dim EsAnticipo2017Jam As Boolean = False
For Each gvr As GridViewRow In GVAnticipos.Rows For Each gvr As GridViewRow In GVAnticipos.Rows
If gvr.FCCheckBox("Chk" & gvr.RowIndex) IsNot Nothing AndAlso gvr.FCCheckBox("Chk" & gvr.RowIndex).Checked Then If gvr.FCCheckBox("Chk" & gvr.RowIndex) IsNot Nothing AndAlso gvr.FCCheckBox("Chk" & gvr.RowIndex).Checked Then
@@ -15764,20 +15758,7 @@ Partial Class Ventas
Dim ErrorConta As Boolean Dim ErrorConta As Boolean
Dim CveIEAnticipo As Integer Dim CveIEAnticipo As Integer
Dim CvePlantillaPoliza As Integer = 10 Dim CvePlantillaPoliza As Integer = 10
'Dim PorcentajeAmortizacion As Decimal
'Dim sumaAmorticaciones As Decimal = 0
'Dim alertaContabilizacion As String = "Se enviaron correctamente las siguientes pólizas:<br><br>"
'Dim CveCuentaContabilizacion As Integer = 1
Dim CuentasContablesInvalidas As New StringBuilder
Dim ContaIdPoliza As Integer = 0
'Dim ConceptoAmortizacion As Integer = 0
'Dim UsaComplementariaClientes As Boolean = True
''[IPP] PARCHE TEMPORAL PARA ANTICIPOS DE JAM
'If FechaMaxima < "01/01/2018".ToDate And UsuarioActual.CveEmpresa = 119 Then
' FechaMaxima = "01/01/2018".ToDate
'End If
'Dim NowADS() As DateTime = New DateTime(2020, 2, 19)
Try Try
CvePrePoliza = ObjConta.AddPrePolizas("Ventas/Anticipos", CvePlantillaPoliza, TxtTotal.Text.ToDecimal, TxtTotal.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero(), TxtFechaAnticipoCliente.Text.ToDate, String.Format("{0} {1} {2}-{3}", If(EsAnticipo2017Jam, "Aplicación Anticipo 2017", ""), NombreCliente, Serie, TxtFolio.Text), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) CvePrePoliza = ObjConta.AddPrePolizas("Ventas/Anticipos", CvePlantillaPoliza, TxtTotal.Text.ToDecimal, TxtTotal.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero(), TxtFechaAnticipoCliente.Text.ToDate, String.Format("{0} {1} {2}-{3}", If(EsAnticipo2017Jam, "Aplicación Anticipo 2017", ""), NombreCliente, Serie, TxtFolio.Text), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
@@ -15802,7 +15783,6 @@ Partial Class Ventas
Dim tFecha As Date = NowADS() Dim tFecha As Date = NowADS()
Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha) Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha)
If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then
If UltimaFluctuacion.FechaFluctuacion <= tFecha Then If UltimaFluctuacion.FechaFluctuacion <= tFecha Then
FechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion FechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion
@@ -15923,39 +15903,19 @@ Partial Class Ventas
ErrorConta = AplicaPrePolizaPagoVenta(VentaActual, Pago, CvePrePoliza, ObjConta) ErrorConta = AplicaPrePolizaPagoVenta(VentaActual, Pago, CvePrePoliza, ObjConta)
'Dim Pago As New VentaPago
'Pago.ImportePagoVenta = importeMovimiento
'Pago.ImportePago = importeMovimiento
'Pago.CveIE = CveIEAnticipo
'Pago.CveMonedaPago = gvr.DataKey("CveMoneda").ToEntero()
'Pago.TCPago = gvr.DataKey("TipoCambio").ToDecimal
'Pago.TipoPago = "I"
'Pago.FechaDocumentoRelacionado = gvr.DataKey("Fecha").ToDate
'Pago.CveVentaAmortizacion = gvr.DataKey("CveVenta").ToEntero()
'Pago.Referencia = gvr.DataKey("Folio")
'importeMovimiento = ((gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / TxtTotal.Text.ToDecimal) * TxtIVA.Text.ToDecimal)
'importeMN = Math.Round(importeMovimiento * tipoCambioPago, 2, MidpointRounding.AwayFromZero)
''Agregamos el 92
'importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal 'gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal - ((gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.DataKey("TotalAnticipo" & gvr.RowIndex).ToDecimal) * gvr.DataKey("IVAAnticipo").ToDecimal)
'importeMN = Math.Round(importeMovimiento * tipoCambioPago, 2, MidpointRounding.AwayFromZero)
End If End If
End If End If
End Select End Select
End If End If
Next Next
Else Else
ErrorConta = True ErrorConta = True
End If End If
''OPCION:99 - NO SIMPLIFICAR
If ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, 3) Then If Not ErrorConta AndAlso ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=99, AutoConta:=False) Then
If ObjConta.ValorPolizaDescuadre > 0 Then If ObjConta.ValorPolizaDescuadre > 0 Then
GuardaLogAD($"Ventas/Ventas-Anticipos | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") GuardaLogAD($"Ventas/Ventas-Anticipos | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
ErrorConta = True ErrorConta = True
End If End If
End If End If
@@ -15972,8 +15932,8 @@ Partial Class Ventas
Msg.Append("Se ha amortizado correctamente") Msg.Append("Se ha amortizado correctamente")
'AJUSTA POLIZA 'AJUSTA POLIZA
If ContaIdPoliza > 0 Then If ObjConta.ContaFolio > 0 Then
Msg.AppendFormat("<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", ContaIdPoliza) Msg.AppendFormat("<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}"">Ver Póliza</a>", CvePrePoliza)
End If End If
ObjConta.Commit() ObjConta.Commit()
@@ -16130,14 +16090,12 @@ Partial Class Ventas
End If End If
End If End If
LblAmortizacion.Text = Amortizacion.FormatoNumero(2) LblAmortizacion.Text = Amortizacion.FormatoNumero
HdnTipoDescuento.Value = "-1" HdnTipoDescuento.Value = "-1"
HdnDescuento.Value = "0" HdnDescuento.Value = "0"
RegistraScript("BorraDescuentos();") RegistraScript("BorraDescuentos();")
HdnTieneAnticiposVinculados.Value = "1" HdnTieneAnticiposVinculados.Value = "1"
End If End If
CalculaTotalesVenta(ValidarDescuentos:=True) CalculaTotalesVenta(ValidarDescuentos:=True)
End If End If