-- option explicit

Ventas/ClientesAbonar.aspx.vb

@@ -221,20 +221,16 @@ Partial Class Ventas_ClientesAbonar
                     If UsuarioActual.TienePermisoProceso(209) Or UsuarioActual.TienePermisoProceso(204) Then
                         HlSaldarCuentasIncobrables.Visible = True
                     End If
-
                 End If
 
                 If CveMonedaFiltro = -1 Then
                     ChkPagarPesos.Visible = False
                     ChkPagarDolares.Visible = False
                 End If
-
                 RegistraScript($"TipoCambioActual = {GlobalTipoCambio(Fecha).FormatoNumero(4)}")
             End If
 
             RVTxtFechaDocumento.MaximumValue = Now.ToString("dd/MM/yyyy")
-
-
             If UsuarioActual.CveEmpresa.Contiene(13, 83, 158) Then
                 LnkAccionesModalSeleccionLayout.Visible = True
 
@@ -1185,7 +1181,7 @@ Partial Class Ventas_ClientesAbonar
                         For Each Fac As Modelos.Factura In ListaFacturasGenerarNC
                             Dim ListaNC As New List(Of Modelos.Factura)
                             ListaNC.Add(Fac)
-                            Dim Resp = GenerarNC(ObjIE.IniciaTransacSQL(), ObjConta, ListaNC)
+                            Dim Resp As RespuestaNotaCredrito = GenerarNC(ObjIE.IniciaTransacSQL(), ObjConta, ListaNC)
 
                             If Resp IsNot Nothing AndAlso Resp.Respuesta IsNot Nothing AndAlso Resp.Respuesta.CveVenta > 0 Then
                                 NCGeneradas.Add(Resp)
@@ -1223,8 +1219,8 @@ Partial Class Ventas_ClientesAbonar
                         Dim PorcentajePago As Double = 1
                         Dim Total As Double
                         Dim ObjVentas As New ClsVentas
-                        Dim ImporteOP = 0.0
-                        Dim IdCuentaOP = -1
+                        Dim ImporteOP As Decimal = 0
+                        Dim IdCuentaOP As Integer = -1
 
                         For Each gvr As GridViewRow In GvCxC.Rows
                             If gvr.FCCheckBox("Chk").Checked Then
@@ -1293,13 +1289,13 @@ Partial Class Ventas_ClientesAbonar
 
             If IDPoliza > 0 Then StrMsg.AppendFormat("Poliza: <a href='/Contabilidad/RegPoliza.aspx?IdPoliza={0}' target='_blank' class='Texto'>{1}</a> <br/>", IDPoliza, FolioPoliza)
 
-            Dim TextoComplementoPago = EmitirComplementoPago(CveIE, CveVentasPago, SeriesPago)
+            Dim TextoComplementoPago As String = EmitirComplementoPago(CveIE, CveVentasPago, SeriesPago)
 
-            For Each RespuestaNotaCredito In NCGeneradas
+            For Each RespuestaNotaCredito As RespuestaNotaCredrito In NCGeneradas
                 If RespuestaNotaCredito IsNot Nothing AndAlso RespuestaNotaCredito.Respuesta IsNot Nothing Then
                     Try
                         Dim ObjTimbradoNC As New Timbrado
-                        Dim TimbroNC = ObjTimbradoNC.TimbrarFactura(UsuarioActual, RespuestaNotaCredito.ObjFacturaNC)
+                        Dim TimbroNC As Boolean = ObjTimbradoNC.TimbrarFactura(UsuarioActual, RespuestaNotaCredito.ObjFacturaNC)
                         If Not TimbroNC Then
                             Alert(ObjTimbradoNC.MensajeErrorCFDI, TipoMensaje.MsgError)
                         End If
@@ -1363,7 +1359,7 @@ Partial Class Ventas_ClientesAbonar
         Dim Retorno As New RespuestaNotaCredrito()
         Try
 
-            Dim ObjFacturaDevolucion = New Modelos.Factura(UsuarioActual)
+            Dim ObjFacturaDevolucion As New Modelos.Factura(UsuarioActual)
             ObjFacturaDevolucion.TipoMensajeRespuesta = Modelos.TipoMensajeRespuesta.HTML
             ObjFacturaDevolucion.CveUsuario = UsuarioActual.CveUsuario
             ObjFacturaDevolucion.UsuarioCreo = UsuarioActual.Usuario
@@ -1770,9 +1766,9 @@ Partial Class Ventas_ClientesAbonar
 
         Dim Cantidad As Decimal = 1
         Dim CveProyecto As Integer = DrSubProyecto("CveProyecto").ToString().ToEntero()
-        Dim CveSubProyecto = DrSubProyecto("CveSubProyecto").ToString.ToEntero
-        Dim SubProyecto = DrSubProyecto("SubProyecto").ToString
-        Dim Proyecto = DrSubProyecto("Proyecto").ToString
+        Dim CveSubProyecto As Integer = DrSubProyecto("CveSubProyecto").ToString.ToEntero
+        Dim SubProyecto As String = DrSubProyecto("SubProyecto").ToString
+        Dim Proyecto As String = DrSubProyecto("Proyecto").ToString
 
         Dim CveSATNC As Integer
         Dim ArrayNC As String() = UsuarioActual.Empresa.Funcionalidad(591).Split(",".ToCharArray())
@@ -1780,7 +1776,7 @@ Partial Class Ventas_ClientesAbonar
         If ArrayNC.Length > 6 Then 'CONCEPTO DE PRONTO PAGO
             CveSATNC = ArrayNC(6).ToEntero()
         End If
-        Dim DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CveSATNC, AplicaParaVenta:=1).FiltroPrimero("")
+        Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CveSATNC, AplicaParaVenta:=1).FiltroPrimero("")
 
         For Each Dr As DataRow In DtImpuestos.Rows
             AgregaTempDTNC(ObjFacturaDevolucion.DtDetalle, DrPS("CvePS").ToString.ToEntero, DrPS("PS").ToString, DrPS("Codigo").ToString, DrPS("PSCodigo").ToString, DrPS("CveTipoPS").ToString.ToEntero, DrPS("Inv_CveMetodoInventario").ToString.ToEntero,
@@ -1812,7 +1808,7 @@ Partial Class Ventas_ClientesAbonar
         End If
         ObjVentas.Dispose()
 
-        Dim DtImpuestosLocal = TmpDT.FiltraParametros("", "", {"PorcentajeIVA", "PorcentajeRetIVA", "PorcentajeRetISR", "PorcentajeIEPS", "CveSubProyecto"}).Copy
+        Dim DtImpuestosLocal As DataTable = TmpDT.FiltraParametros("", "", {"PorcentajeIVA", "PorcentajeRetIVA", "PorcentajeRetISR", "PorcentajeIEPS", "CveSubProyecto"}).Copy
         DtImpuestosLocal.Columns.Add("ImportePU", GetType(Decimal))
         DtImpuestosLocal.Columns.Add("ImporteTotal", GetType(Decimal))
         DtImpuestosLocal.Columns.Add("ImporteIVA", GetType(Decimal))
@@ -1878,7 +1874,7 @@ Partial Class Ventas_ClientesAbonar
     End Function
 
     Protected Function CreaDTDetalleNC() As DataTable
-        Dim TmpDT = New DataTable
+        Dim TmpDT As New DataTable
         TmpDT.Columns.Add("CveVenta", GetType(Integer))
         TmpDT.Columns.Add("Consec", GetType(Integer))
         TmpDT.Columns.Add("Cantidad", GetType(Decimal))
@@ -1962,7 +1958,7 @@ Partial Class Ventas_ClientesAbonar
         Return TmpDT
     End Function
     Private Function InicializaDTVentasNC() As DataTable
-        Dim DtVentasNC = New DataTable
+        Dim DtVentasNC As New DataTable
         DtVentasNC.Columns.Add("CveVenta", GetType(Integer))
         DtVentasNC.Columns.Add("Importe", GetType(Decimal))
         DtVentasNC.Columns.Add("FolioFiscal", GetType(String))
@@ -2281,7 +2277,6 @@ Partial Class Ventas_ClientesAbonar
 
 #Region "SALDAR CUENTAS"
 
-
     Private Sub BtnSaldarCuentasIncobrables_Click(sender As Object, e As EventArgs) Handles BtnSaldarCuentasIncobrables.Click
         Dim ObjConta As New ClsContabilidad
         ObjConta.IniciaTransacSQL()