SMS - 2024.02.20

Compras/Compras.aspx.vb

@@ -14285,7 +14285,7 @@ Partial Class Compras_Compras
                     If DrTipoGasto IsNot Nothing Then
                         CveTipoGasto = DrTipoGasto("CveTipoGasto").ToString.ToEntero
                         TipoGasto = DrTipoGasto("TipoGasto").ToString
-                    End If
+                        End IfclsVa
                 End If
 
                 AddPS(Cantidad, CveUM, UM, CveClasificacion, Clasificacion, CvePS, PS, CveTipoPS, CveSubProyectoContrato, SubProyecto, Proyecto, CveProyecto, Obs, PU, Total, IVA, RetIVA, RetISR, IEPSPS, IEPSPSIVA, Descuento, CveOrdenCompraDetalle, False,

Compras/PopUpVerFactura.aspx.vb

@@ -3390,14 +3390,12 @@ Partial Class PopUpVerFactura
 
                     If CveCliente = 819998 Then
                         RutaFormato = "{0}Formatos\TrasladoAngeles.rdlc"
-
-                        If Consola <> "-1" And Consola.Trim.Length > 0 Then
-                            RutaFormato = "{0}Formatos\Consola.rdlc"
-                            params.Add(New ReportParameter("Consola", Consola))
-                        End If
-
                     End If
 
+                    If Consola <> "-1" And Consola.Trim.Length > 0 Then
+                        RutaFormato = "{0}Formatos\Consola.rdlc"
+                        params.Add(New ReportParameter("Consola", Consola))
+                    End If
 
 
 
@@ -3426,6 +3424,8 @@ Partial Class PopUpVerFactura
 
 
 
+
+
                     End If
                     ObjVentas.Dispose()