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

-option explicit

Browse Source
This commit is contained in:
rrene
2023-09-07 14:03:21 -07:00
parent 84c7e894d6
commit 64f54a081a
4 changed files with 78 additions and 79 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
Bancos/ProveedoresAbonar.aspx.vb
View File

@@ -4,8 +4,6 @@ Option Strict On
Imports System.Data Imports System.Data
Imports Extensiones Imports Extensiones
Imports Microsoft.Reporting.WebForms Imports Microsoft.Reporting.WebForms
Imports Stimulsoft.Report.StiOptions.Export
Partial Class Bancos_ProveedoresAbonar Partial Class Bancos_ProveedoresAbonar
Inherits ClsPaginas Inherits ClsPaginas
@@ -751,12 +749,10 @@ Partial Class Bancos_ProveedoresAbonar
If TxtReferenciaCIE.Text <> OriReferenciaCIE Or TxtConceptoCIE.Text <> OriConceptoCIE Then If TxtReferenciaCIE.Text <> OriReferenciaCIE Or TxtConceptoCIE.Text <> OriConceptoCIE Then
Dim ObjGrales As New ClsGenerales(ObjIE.IniciaTransacSQL) Dim ObjGrales As New ClsGenerales(ObjIE.IniciaTransacSQL)
If Not ObjGrales.UpdateCuentasDepositosEstatusPagoElectronicoGrupos(DdlCuentaDeposito.SelectedValue.ToEntero, -1, -1, "-1", TxtReferenciaCIE.Text.Trim, TxtConceptoCIE.Text.Trim) Then If Not ObjGrales.UpdateCuentasDepositosEstatusPagoElectronicoGrupos(DdlCuentaDeposito.SelectedValue.ToEntero, -1, -1, "-1", TxtReferenciaCIE.Text.Trim, TxtConceptoCIE.Text.Trim) Then
MsgError = "Error al actualziar Cuanta Referencia y Concepto Deposito." MsgError = "Error al actualizar cuenta Referencia y Concepto Deposito."
End If End If
End If End If
End If End If
'guardo el archivo 'guardo el archivo
@@ -840,6 +836,11 @@ Partial Class Bancos_ProveedoresAbonar
Pago.ImportePago = tImporteMN Pago.ImportePago = tImporteMN
If DivTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 Then If DivTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 Then
Dim ObjCredito As New ClsBancos
If ObjCredito.GetTarjetasCreditos(DdlCuenta.SelectedValue.ToEntero, DdlTarjeta.SelectedValue.ToEntero) Then
CveProveedor = ObjCredito.DtResultados.FiltroPrimeroValor("CveProveedor", "").ToEntero
End If
ObjCredito.Dispose()
Dim Importe42 As Decimal = Pago.ImportePago Dim Importe42 As Decimal = Pago.ImportePago
tImporteMN = If(Pago.CveMonedaPago = 2, If(DivTC.Visible, Importe42 / TxtTC.Text.ToDecimal * Pago.TCPago, Importe42 * Pago.TCPago), Importe42) tImporteMN = If(Pago.CveMonedaPago = 2, If(DivTC.Visible, Importe42 / TxtTC.Text.ToDecimal * Pago.TCPago, Importe42 * Pago.TCPago), Importe42)
@@ -1626,7 +1627,7 @@ Partial Class Bancos_ProveedoresAbonar
params.Add(New ReportParameter("Importe", $"${StrImporte}")) params.Add(New ReportParameter("Importe", $"${StrImporte}"))
params.Add(New ReportParameter("RazonSocial", TxtPagueseA.Text)) params.Add(New ReportParameter("RazonSocial", TxtPagueseA.Text))
params.Add(New ReportParameter("Fecha", TxtFechaDocumento.Text)) params.Add(New ReportParameter("Fecha", TxtFechaDocumento.Text))
Dim Transferencia = "", Banco = "", CLABE = "", Cuenta = "", Correo = "" Dim Transferencia As String = "", Banco As String = "", CLABE As String = "", Cuenta As String = "", Correo As String = ""
If DdlTipoTransaccion.SelectedValue.Contiene("2", "8") Then Transferencia = "Si" Else Transferencia = "No" If DdlTipoTransaccion.SelectedValue.Contiene("2", "8") Then Transferencia = "Si" Else Transferencia = "No"
If DdlCuentaDeposito.SelectedValue.ToEntero > 0 Then If DdlCuentaDeposito.SelectedValue.ToEntero > 0 Then
Dim dtt As DataTable = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor, CveCuentaDeposito:=DdlCuentaDeposito.SelectedValue.ToEntero) Dim dtt As DataTable = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor, CveCuentaDeposito:=DdlCuentaDeposito.SelectedValue.ToEntero)

2
Compras/Proveedores.aspx
View File

@@ -792,7 +792,7 @@
</div> </div>
<div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom"> <div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom">
<div class="form-body"> <div class="form-body">
<table border="0"> <table border="0" >
<tr> <tr>
<td>Tipo Tercero:</td> <td>Tipo Tercero:</td>
<td> <td>

116
Compras/Proveedores.aspx.vb
View File

@@ -978,68 +978,66 @@ Partial Class Compras_Proveedores
DdlCtaContRetIVAAcreditable.Attributes.Add("onclick", "CargaCuentas(20);") DdlCtaContRetIVAAcreditable.Attributes.Add("onclick", "CargaCuentas(20);")
End If End If
'CxP 'CxP
TxtLimiteCredito.Text = ObjProveedor.LimiteCredito.ToString.FormatoNumero TxtLimiteCredito.Text = ObjProveedor.LimiteCredito.ToString.FormatoNumero
TxtPlazoCobranza.Text = ObjProveedor.PlazoPago.ToString TxtPlazoCobranza.Text = ObjProveedor.PlazoPago.ToString
LblLimiteCredito.Text = ObjProveedor.LimiteCredito.ToString.FormatoNumero LblLimiteCredito.Text = ObjProveedor.LimiteCredito.ToString.FormatoNumero
LblPlazoCobranza.Text = ObjProveedor.PlazoPago.ToString LblPlazoCobranza.Text = ObjProveedor.PlazoPago.ToString
'Sistema 'Sistema
ChkEstado.Checked = ObjProveedor.Estatus = "Activo" ChkEstado.Checked = ObjProveedor.Estatus = "Activo"
LblFechaCaptura.Text = ObjProveedor.FechaIng.ToShortDateString LblFechaCaptura.Text = ObjProveedor.FechaIng.ToShortDateString
LblUsuarioCapturo.Text = ObjProveedor.Usuario LblUsuarioCapturo.Text = ObjProveedor.Usuario
TxtObservaciones.Text = ObjProveedor.Observaciones TxtObservaciones.Text = ObjProveedor.Observaciones
CargaCombos() CargaCombos()
ChkAplicarEvaluacion.Checked = If(ObjProveedor.DtResultados.Rows(0)("AplicarEvaluacion").ToString = "True", True, False) ChkAplicarEvaluacion.Checked = If(ObjProveedor.DtResultados.Rows(0)("AplicarEvaluacion").ToString = "True", True, False)
TxtFechaEva.Text = If(IsDate(ObjProveedor.DtResultados.Rows(0)("FechaEvaluacion").ToString()), ObjProveedor.DtResultados.Rows(0)("FechaEvaluacion").ToString().ToDate().ToString("dd/MM/yyyy"), "") TxtFechaEva.Text = If(IsDate(ObjProveedor.DtResultados.Rows(0)("FechaEvaluacion").ToString()), ObjProveedor.DtResultados.Rows(0)("FechaEvaluacion").ToString().ToDate().ToString("dd/MM/yyyy"), "")
LblFechaUltimaEvaluacion.Text = If(IsDate(ObjProveedor.DtResultados.Rows(0)("FechaUltimaEvaluacion").ToString()), ObjProveedor.DtResultados.Rows(0)("FechaUltimaEvaluacion").ToString().ToDate().ToString("dd/MM/yyyy"), "") LblFechaUltimaEvaluacion.Text = If(IsDate(ObjProveedor.DtResultados.Rows(0)("FechaUltimaEvaluacion").ToString()), ObjProveedor.DtResultados.Rows(0)("FechaUltimaEvaluacion").ToString().ToDate().ToString("dd/MM/yyyy"), "")
DdlCicloEvaluacion.SelectedValueExist(ObjProveedor.DtResultados.Rows(0)("CicloEvaluacion").ToString()) DdlCicloEvaluacion.SelectedValueExist(ObjProveedor.DtResultados.Rows(0)("CicloEvaluacion").ToString())
DdlUsuarioEvaluador.SelectedValueExist(ObjProveedor.DtResultados.Rows(0)("CveUsuarioEvaluador").ToString()) DdlUsuarioEvaluador.SelectedValueExist(ObjProveedor.DtResultados.Rows(0)("CveUsuarioEvaluador").ToString())
DdlConfianzaProveedor.SelectedValueExist(ObjProveedor.DtResultados.Rows(0)("CveConfianzaProveedor")) DdlConfianzaProveedor.SelectedValueExist(ObjProveedor.DtResultados.Rows(0)("CveConfianzaProveedor"))
DdlCveClasificacionProveedor.SelectedValue = ObjProveedor.CveProveedorClasificacion.ToString() DdlCveClasificacionProveedor.SelectedValue = ObjProveedor.CveProveedorClasificacion.ToString()
DdlCveUsuarioResponsable.SelectedValue = ObjProveedor.CveUsuarioResponsable.ToString DdlCveUsuarioResponsable.SelectedValue = ObjProveedor.CveUsuarioResponsable.ToString
DdlCveTipoProveedor.SelectedValue = ObjProveedor.CveTipoProveedor.ToString DdlCveTipoProveedor.SelectedValue = ObjProveedor.CveTipoProveedor.ToString
'EMD: Si no es prisila desablita este campo 'EMD: Si no es prisila desablita este campo
If UsuarioActual.CveEmpresa = 13 AndAlso Not UsuarioActual.CveUsuario.Contiene(58, 100) Then If UsuarioActual.CveEmpresa = 13 AndAlso Not UsuarioActual.CveUsuario.Contiene(58, 100) Then
DdlCveTipoProveedor.Enabled = False DdlCveTipoProveedor.Enabled = False
DdlCveTipoProveedor.Attributes.Add("disabled", "disabled") DdlCveTipoProveedor.Attributes.Add("disabled", "disabled")
End If End If
If TxtRazonSocial.Text.Trim = TxtNombreComercial.Text.Trim Then TxtRazonSocial.Attributes.Add("onKeyUp", "SetText(" & TxtRazonSocial.ClientID & ", " & TxtNombreComercial.ClientID & ")") If TxtRazonSocial.Text.Trim = TxtNombreComercial.Text.Trim Then TxtRazonSocial.Attributes.Add("onKeyUp", "SetText(" & TxtRazonSocial.ClientID & ", " & TxtNombreComercial.ClientID & ")")
If UsuarioActual.TienePermisoProceso(87) Then BtnGuardar.Visible = True 'Actualizar Proveedor If UsuarioActual.TienePermisoProceso(87) Then BtnGuardar.Visible = True 'Actualizar Proveedor
If UsuarioActual.TienePermisoProceso(86) Then BtnEliminar.Visible = True ' Eliminar Proveedor If UsuarioActual.TienePermisoProceso(86) Then BtnEliminar.Visible = True ' Eliminar Proveedor
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
Retorno = True Retorno = True
' enviaractivacion() ' enviaractivacion()
CargaEventoBitacora()
Else
CargaEventoBitacora()
Else
Alert("El Proveedor Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia) Alert("El Proveedor Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
BtnGuardar.Enabled = False BtnGuardar.Enabled = False
' LbAgregarSucursal.Enabled = False ' LbAgregarSucursal.Enabled = False
End If End If
End If End If
CargaProveedorSucursales() CargaProveedorSucursales()
CargaContactos(ObjProveedor) CargaContactos(ObjProveedor)
ObjProveedor.Dispose() ObjProveedor.Dispose()
Return Retorno Return Retorno
End Function End Function
Private Sub CargaUsuarioEvaluacionProveedor() Private Sub CargaUsuarioEvaluacionProveedor()
DdlUsuarioEvaluador.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) DdlUsuarioEvaluador.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DdlUsuarioEvaluador.DataBind() DdlUsuarioEvaluador.DataBind()
@@ -1125,7 +1123,7 @@ Partial Class Compras_Proveedores
CountAnticipos = ObjMovtos.DtResultados.FiltraParametros(" Tipo = 'Act' AND TipoDocto <> '' AND (CveCompra > 0 OR CveIE > 0) ").Rows.Count CountAnticipos = ObjMovtos.DtResultados.FiltraParametros(" Tipo = 'Act' AND TipoDocto <> '' AND (CveCompra > 0 OR CveIE > 0) ").Rows.Count
LblVencidoPesosAnt.Text = String.Format("{0}", ObjMovtos.DtResultados.SUM("Saldo", "CveMoneda = 1 And DiasVencidos > 0")).FormatoNumero LblVencidoPesosAnt.Text = String.Format("{0}", ObjMovtos.DtResultados.SUM("Saldo", "CveMoneda = 1 And DiasVencidos > 0")).FormatoNumero
LblTotalPesosAnt.Text = String.Format("{0}", ObjMovtos.DtResultados.SUM("Saldo", "CveMoneda = 1 ")).FormatoNumero LblTotalPesosAnt.Text = String.Format("{0}", ObjMovtos.DtResultados.SUM("Saldo", "CveMoneda = 1 ")).FormatoNumero
LblPorVencerPesosAnt.Text = CType(LblTotalPesosAnt.Text.ToDouble - LblVencidoPesosAnt.Text.ToDouble, String).FormatoNumero LblPorVencerPesosAnt.Text = CType(LblTotalPesosAnt.Text.ToDouble - LblVencidoPesosAnt.Text.ToDouble, String).FormatoNumero
@@ -1689,7 +1687,7 @@ Partial Class Compras_Proveedores
AplicarEvaluacion:=AplicarEvaluacion, FechaEvaluacion:=FechaEvaluacion, CicloEvaluacion:=CicloEvaluacion, DIOTCvePais:=DdlDIOTPais.SelectedValue.ToEntero, CveUsuarioEvaluador:=DdlUsuarioEvaluador.SelectedValue.ToEntero(), CP:=TxtCP.Text.ToEntero, DIOTNacionalidad:=TxtDIOTNacionalidad.Text, AplicarEvaluacion:=AplicarEvaluacion, FechaEvaluacion:=FechaEvaluacion, CicloEvaluacion:=CicloEvaluacion, DIOTCvePais:=DdlDIOTPais.SelectedValue.ToEntero, CveUsuarioEvaluador:=DdlUsuarioEvaluador.SelectedValue.ToEntero(), CP:=TxtCP.Text.ToEntero, DIOTNacionalidad:=TxtDIOTNacionalidad.Text,
CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero(), CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero) Then CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero(), CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero) Then
Dim NuevoCveProveedor = ObjProveedores.CveProveedor Dim NuevoCveProveedor As Integer = ObjProveedores.CveProveedor
''Agregar Cuentas Bancarias ''Agregar Cuentas Bancarias
If TempDTCuentasBancos.Rows.Count > 0 Then If TempDTCuentasBancos.Rows.Count > 0 Then
@@ -2034,8 +2032,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 SqlTransaction = Nothing, Optional IdCompaqPadre As Integer = -1, Optional CveProveedorCuenta As Integer = -1) As Boolean Private Function AltaCuentaContabilidadSIG(CodigoCuentaAltaCompaq As String, NombreCuentaCuentaAltaCompaq As String, IdCuentaAltaCompaq As Integer, CveConceptoContable As Integer, Optional Transaccion As SqlTransaction = Nothing, Optional IdCompaqPadre As Integer = -1, Optional CveProveedorCuenta As Integer = -1) As Boolean
If Not UsuarioActual.CveEmpresa.Contiene(7, 11, 145, 122) Then If Not UsuarioActual.CveEmpresa.Contiene(7, 11, 145, 122) Then
@@ -2782,6 +2778,8 @@ Partial Class Compras_Proveedores
End Sub End Sub
Private Sub CargaEventoBitacora() Private Sub CargaEventoBitacora()
If CveProveedor <= 0 Then Exit Sub
Dim ObjEventoBitacora As New ClsOIEventos() Dim ObjEventoBitacora As New ClsOIEventos()
If ObjEventoBitacora.GetAgendaBitacora(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor) Then If ObjEventoBitacora.GetAgendaBitacora(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor) Then
GvEB.DataSource = ObjEventoBitacora.DtResultados.FiltraParametros("CveTipoEvento = 6 OR CveTipoEvento = 2") GvEB.DataSource = ObjEventoBitacora.DtResultados.FiltraParametros("CveTipoEvento = 6 OR CveTipoEvento = 2")
@@ -3176,7 +3174,7 @@ Partial Class Compras_Proveedores
End Sub End Sub
Protected Sub LbAgregarCuentaBanco_Click(sender As Object, e As EventArgs) Protected Sub LbAgregarCuentaBanco_Click(sender As Object, e As EventArgs)
Dim EsBancomer = False Dim EsBancomer As Boolean = False
If TxtNombreBanco.Text.ToUpper.Contains("BBVA") Or TxtNombreBanco.Text.ToUpper.Contains("BANCOMER") Or (TxtCLABE.Text.Length = 18 AndAlso TxtCLABE.Text.Substring(0, 3) = "012") Then If TxtNombreBanco.Text.ToUpper.Contains("BBVA") Or TxtNombreBanco.Text.ToUpper.Contains("BANCOMER") Or (TxtCLABE.Text.Length = 18 AndAlso TxtCLABE.Text.Substring(0, 3) = "012") Then
EsBancomer = True EsBancomer = True
@@ -3329,7 +3327,7 @@ Partial Class Compras_Proveedores
Else Else
Dim index = CveCuentaBancaria Dim index As Integer = CveCuentaBancaria
Dim Row As DataRow = TempDTCuentasBancos.Rows(index) Dim Row As DataRow = TempDTCuentasBancos.Rows(index)
Row("BancoNombre") = NombreBanco Row("BancoNombre") = NombreBanco
Row("Sucursal") = NumeroSucursal Row("Sucursal") = NumeroSucursal
@@ -3380,8 +3378,8 @@ Partial Class Compras_Proveedores
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
If CveProveedor < 0 Then If CveProveedor < 0 Then
For index = 1 To TempDTCuentasBancos.Rows.Count For Index = 1 To TempDTCuentasBancos.Rows.Count
TempDTCuentasBancos.Rows(index - 1)("CveCuentaDeposito") = index TempDTCuentasBancos.Rows(Index - 1)("CveCuentaDeposito") = Index
Next Next
TempDTCuentasBancos.AcceptChanges() TempDTCuentasBancos.AcceptChanges()
End If End If
@@ -4426,24 +4424,24 @@ Partial Class Compras_Proveedores
Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String) Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String)
Dim dt As New DataTable Dim dt As New DataTable
Dim Conexion As Odbc.OdbcConnection = Nothing Dim Conexion As Odbc.OdbcConnection = Nothing
Dim ErrorArchivo = False Dim ErrorArchivo As Boolean = False
Try Try
Select Case Tipo Select Case Tipo
Case "CSV" Case "CSV"
Conexion = New Odbc.OdbcConnection("Driver={Microsoft Access Text Driver (*.txt, *.csv)};Dbq=" + Ruta + ";Extensions=asc,csv,tab,txt;") Conexion = New Odbc.OdbcConnection("Driver={Microsoft Access Text Driver (*.txt, *.csv)};Dbq=" + Ruta + ";Extensions=asc,csv,tab,txt;")
Conexion.Open() Conexion.Open()
Dim cmd = Conexion.CreateCommand() Dim cmd As Odbc.OdbcCommand = Conexion.CreateCommand()
cmd.CommandType = CommandType.Text cmd.CommandType = CommandType.Text
cmd.CommandText = $"SELECT * FROM [{FileName}]" cmd.CommandText = $"SELECT * FROM [{FileName}]"
Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd) Dim DataAdapter As New Odbc.OdbcDataAdapter(cmd)
DataAdapter.Fill(dt) DataAdapter.Fill(dt)
Case "EXCEL" Case "EXCEL"
Conexion = New Odbc.OdbcConnection("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" + Ruta + FileName + ";") Conexion = New Odbc.OdbcConnection("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" + Ruta + FileName + ";")
Conexion.Open() Conexion.Open()
Dim cmd = Conexion.CreateCommand() Dim cmd As Odbc.OdbcCommand = Conexion.CreateCommand()
cmd.CommandType = CommandType.Text cmd.CommandType = CommandType.Text
cmd.CommandText = "SELECT * FROM [Hoja1$]" cmd.CommandText = "SELECT * FROM [Hoja1$]"
Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd) Dim DataAdapter As New Odbc.OdbcDataAdapter(cmd)
DataAdapter.Fill(dt) DataAdapter.Fill(dt)
Case Else Case Else
Alert("El archivo no tiene el formato correcto", TipoMensaje.MsgError) Alert("El archivo no tiene el formato correcto", TipoMensaje.MsgError)
@@ -4480,7 +4478,7 @@ Partial Class Compras_Proveedores
If ObjProveedores.GetProveedoresConciliacion(CveProveedor, DataTableToXml(writer)) Then If ObjProveedores.GetProveedoresConciliacion(CveProveedor, DataTableToXml(writer)) Then
'ObjProveedores.DtResultados.ExportToExcel("Resultados") 'ObjProveedores.DtResultados.ExportToExcel("Resultados")
Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim logouri As String = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
Dim params As New List(Of ReportParameter) Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))

26
Ventas/Ventas.aspx.vb
View File

@@ -13779,14 +13779,14 @@ Partial Class Ventas
Dim FechaMovimiento As Date = ObjFactura.Fecha Dim FechaMovimiento As Date = ObjFactura.Fecha
Dim Concepto As String = ObjFactura.SerieFolio Dim Concepto As String = ObjFactura.SerieFolio
Dim Referencia As String = ObjFactura.SerieFolio Dim Referencia As String = ObjFactura.SerieFolio
Dim Fecha = TxtFecha.Text.Trim.ToDate Dim Fecha As Date = TxtFecha.Text.Trim.ToDate
Dim importeMX As Decimal Dim importeMX As Decimal
Dim Multiplicador As Integer Dim Multiplicador As Integer
Dim CveIEPago As Integer Dim CveIEPago As Integer
Dim FolioIE As Long Dim FolioIE As Long
Dim CveIEAnticipo As Integer Dim CveIEAnticipo As Integer
Dim CveSubProyectoVenta = DdlSubProyectoDatos.SelectedValue.ToEntero() Dim CveSubProyectoVenta As Integer = DdlSubProyectoDatos.SelectedValue.ToEntero()
Dim CveSubProyectoContabilizar As Integer Dim CveSubProyectoContabilizar As Integer
Dim SeContabiliza As Boolean = True Dim SeContabiliza As Boolean = True
@@ -14294,7 +14294,7 @@ Partial Class Ventas
importeMovimiento = 0 importeMovimiento = 0
Case 91 'Amortizacion Nota de Credito Case 91 'Amortizacion Nota de Credito
Dim Contabilizable = If(UsuarioActual.CveEmpresa = 119, False, True) Dim Contabilizable As Boolean = If(UsuarioActual.CveEmpresa = 119, False, True)
If ValorMultiplicador = -1 Then If ValorMultiplicador = -1 Then
'cuando es cancelación 'cuando es cancelación
@@ -14438,9 +14438,9 @@ Partial Class Ventas
Case 4 'Venta Clasificacion Case 4 'Venta Clasificacion
If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC", "Ant", "Egs", "Dev") Then If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC", "Ant", "Egs", "Dev") Then
Dim ConceptoContableAplicar = 4 Dim ConceptoContableAplicar As Integer = 4
Dim CveVentaAplicar = ObjFactura.CveVenta Dim CveVentaAplicar As Integer = ObjFactura.CveVenta
Dim CveVentaAmortizacionAplicar = -1 Dim CveVentaAmortizacionAplicar As Integer = -1
If ObjFactura.TipoDocto.Contiene("Egs") And DdlTipoComprobante.SelectedValue = "Ant" And CveDevolucion > 0 And NuevaFactura = 1 Then If ObjFactura.TipoDocto.Contiene("Egs") And DdlTipoComprobante.SelectedValue = "Ant" And CveDevolucion > 0 And NuevaFactura = 1 Then
ConceptoContableAplicar = 11 ConceptoContableAplicar = 11
@@ -14496,9 +14496,9 @@ Partial Class Ventas
Case 150 'Descuento sobre ventas Case 150 'Descuento sobre ventas
If (ObjFactura.TipoDocto.Contiene("Egs", "Dev") AndAlso Not EsNCAmortizacion) OrElse NCDescuento Then If (ObjFactura.TipoDocto.Contiene("Egs", "Dev") AndAlso Not EsNCAmortizacion) OrElse NCDescuento Then
Dim ConceptoContableAplicar = 150 Dim ConceptoContableAplicar As Integer = 150
Dim CveVentaAplicar = ObjFactura.CveVenta Dim CveVentaAplicar As Integer = ObjFactura.CveVenta
Dim CveVentaAmortizacionAplicar = -1 Dim CveVentaAmortizacionAplicar As Integer = -1
DT = TmpDTDetalle.FiltraParametros($"CvePS <> {CvePSAmortizacion}", "", {"CveClasificacion", "CveSubProyecto", "PorcentajeIVA"}) DT = TmpDTDetalle.FiltraParametros($"CvePS <> {CvePSAmortizacion}", "", {"CveClasificacion", "CveSubProyecto", "PorcentajeIVA"})
@@ -14975,7 +14975,7 @@ Partial Class Ventas
CveConceptoAlmacen = 18 CveConceptoAlmacen = 18
End If End If
Dim CveAlmacen = ddlAlmacen.SelectedValue.ToEntero() Dim CveAlmacen As Integer = ddlAlmacen.SelectedValue.ToEntero()
If CveAlmacen <= 0 Then If CveAlmacen <= 0 Then
OcurrioError = True OcurrioError = True
@@ -16542,7 +16542,7 @@ Partial Class Ventas
'NOTIFICACION DE SMS 'NOTIFICACION DE SMS
Dim EstatusSMS = 0 Dim EstatusSMS As Integer = 0
If ObjFactura.TipoDocto = "Ing" Then If ObjFactura.TipoDocto = "Ing" Then
Dim ObjEventos As New ClsOIEventos Dim ObjEventos As New ClsOIEventos
EnviarSMSTimbrado(ObjEventos) EnviarSMSTimbrado(ObjEventos)
@@ -16559,7 +16559,7 @@ Partial Class Ventas
'MUESTA Alert OK 'MUESTA Alert OK
'MensajeAlert.Append("El Documento se generó correctamente") 'MensajeAlert.Append("El Documento se generó correctamente")
Dim Liga = If(UsuarioActual.CveRol = 1165, "document.location.href=""/Ventas/Ventas.aspx?CveVenta=-1"";", $"document.location.href=""/Ventas/Clientes.aspx?CveCliente={CveCliente}&Opt=2"";") Dim Liga As String = If(UsuarioActual.CveRol = 1165, "document.location.href=""/Ventas/Ventas.aspx?CveVenta=-1"";", $"document.location.href=""/Ventas/Clientes.aspx?CveCliente={CveCliente}&Opt=2"";")
Alert(MensajeAlert.ToString(), TipoMensaje.MsgInformacion, Liga) Alert(MensajeAlert.ToString(), TipoMensaje.MsgInformacion, Liga)
TrEmitir.Visible = False TrEmitir.Visible = False
@@ -22352,7 +22352,7 @@ Partial Class Ventas
'Pago Tarjeta Debito 'Pago Tarjeta Debito
If TxtImporteDebito.Text.ToDecimal > 0 Then If TxtImporteDebito.Text.ToDecimal > 0 Then
If DdlCuentaTarjetaDebito.Items.Count > 0 Then If DdlCuentaTarjetaDebito.Items.Count > 0 Then
Dim DrDebito = DtPagos.NewRow Dim DrDebito As DataRow = DtPagos.NewRow
DrDebito("CveTipoMovimiento") = 11 DrDebito("CveTipoMovimiento") = 11
DrDebito("TipoMovimiento") = "Tarjeta de Debito" DrDebito("TipoMovimiento") = "Tarjeta de Debito"
DrDebito("CveCuenta") = DdlCuentaTarjetaDebito.SelectedValue DrDebito("CveCuenta") = DdlCuentaTarjetaDebito.SelectedValue