From f4aa0951153bfcaac57ff8d0cd693cf12689adcb Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 4 Jun 2022 17:24:05 -0700
Subject: [PATCH] -- quitar ligas de pdf pyme

---
 Ventas/Ventas.aspx.vb | 18 +-----------------
 1 file changed, 1 insertion(+), 17 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 05f4bff20..8e83b3ff2 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -14808,21 +14808,7 @@ Partial Class Ventas
             Exit Sub
         End If
 
-        If UsuarioActual.Empresa.CvePlataforma = 2 Then
-            PdfFacturaPyME(ObjFactura, TmpDT, False)
-        Else
-
-            'REINICIA VALORES DE CONVERSION DE MONEDA
-            'If Not ObjFactura.ConvertirPesos And ChkConvertirDoctoPesos.Checked Then
-            '    For Each Row As DataRow In TmpDT.Rows
-            '        Row("PU") = Row("PU").ToString().ToDouble / TxtTipoCambio.Text.Trim.ToDecimal
-            '        Row("Total") = Row("Cantidad").ToString().ToDouble / Row("PU").ToString().ToDouble
-            '        Row("Descuento") = Row("Descuento").ToString().ToDouble / TxtTipoCambio.Text.Trim.ToDecimal
-            '        Row("IEPS") = Row("IEPS").ToString().ToDouble / TxtTipoCambio.Text.Trim.ToDecimal
-            '    Next
-            'End If
-
-            Select Case ConversionRemision
+        Select Case ConversionRemision
                 Case "*"
                     For Each Row As DataRow In TmpDT.Rows
                         Row("PU") = Math.Round(Row("PU").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
@@ -14904,8 +14890,6 @@ Partial Class Ventas
 
             End Select
 
-            'PdfFacturaPyME(ObjFactura, TmpDT)
-        End If
     End Sub
 
 #End Region