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

26
Ventas/Ventas.aspx.vb
View File

@@ -13779,14 +13779,14 @@ Partial Class Ventas
Dim FechaMovimiento As Date = ObjFactura.Fecha
Dim Concepto 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 Multiplicador As Integer
Dim CveIEPago As Integer
Dim FolioIE As Long
Dim CveIEAnticipo As Integer
Dim CveSubProyectoVenta = DdlSubProyectoDatos.SelectedValue.ToEntero()
Dim CveSubProyectoVenta As Integer = DdlSubProyectoDatos.SelectedValue.ToEntero()
Dim CveSubProyectoContabilizar As Integer
Dim SeContabiliza As Boolean = True
@@ -14294,7 +14294,7 @@ Partial Class Ventas
importeMovimiento = 0
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
'cuando es cancelación
@@ -14438,9 +14438,9 @@ Partial Class Ventas
Case 4 'Venta Clasificacion
If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC", "Ant", "Egs", "Dev") Then
Dim ConceptoContableAplicar = 4
Dim CveVentaAplicar = ObjFactura.CveVenta
Dim CveVentaAmortizacionAplicar = -1
Dim ConceptoContableAplicar As Integer = 4
Dim CveVentaAplicar As Integer = ObjFactura.CveVenta
Dim CveVentaAmortizacionAplicar As Integer = -1
If ObjFactura.TipoDocto.Contiene("Egs") And DdlTipoComprobante.SelectedValue = "Ant" And CveDevolucion > 0 And NuevaFactura = 1 Then
ConceptoContableAplicar = 11
@@ -14496,9 +14496,9 @@ Partial Class Ventas
Case 150 'Descuento sobre ventas
If (ObjFactura.TipoDocto.Contiene("Egs", "Dev") AndAlso Not EsNCAmortizacion) OrElse NCDescuento Then
Dim ConceptoContableAplicar = 150
Dim CveVentaAplicar = ObjFactura.CveVenta
Dim CveVentaAmortizacionAplicar = -1
Dim ConceptoContableAplicar As Integer = 150
Dim CveVentaAplicar As Integer = ObjFactura.CveVenta
Dim CveVentaAmortizacionAplicar As Integer = -1
DT = TmpDTDetalle.FiltraParametros($"CvePS <> {CvePSAmortizacion}", "", {"CveClasificacion", "CveSubProyecto", "PorcentajeIVA"})
@@ -14975,7 +14975,7 @@ Partial Class Ventas
CveConceptoAlmacen = 18
End If
Dim CveAlmacen = ddlAlmacen.SelectedValue.ToEntero()
Dim CveAlmacen As Integer = ddlAlmacen.SelectedValue.ToEntero()
If CveAlmacen <= 0 Then
OcurrioError = True
@@ -16542,7 +16542,7 @@ Partial Class Ventas
'NOTIFICACION DE SMS
Dim EstatusSMS = 0
Dim EstatusSMS As Integer = 0
If ObjFactura.TipoDocto = "Ing" Then
Dim ObjEventos As New ClsOIEventos
EnviarSMSTimbrado(ObjEventos)
@@ -16559,7 +16559,7 @@ Partial Class Ventas
'MUESTA Alert OK
'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)
TrEmitir.Visible = False
@@ -22352,7 +22352,7 @@ Partial Class Ventas
'Pago Tarjeta Debito
If TxtImporteDebito.Text.ToDecimal > 0 Then
If DdlCuentaTarjetaDebito.Items.Count > 0 Then
Dim DrDebito = DtPagos.NewRow
Dim DrDebito As DataRow = DtPagos.NewRow
DrDebito("CveTipoMovimiento") = 11
DrDebito("TipoMovimiento") = "Tarjeta de Debito"
DrDebito("CveCuenta") = DdlCuentaTarjetaDebito.SelectedValue