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

-- quitar ligas de pdf pyme

Browse Source
This commit is contained in:
rrene
2022-06-04 17:24:05 -07:00
parent a40150b31a
commit f4aa095115
1 changed files with 1 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
Ventas/Ventas.aspx.vb
View File

@@ -14808,21 +14808,7 @@ Partial Class Ventas
Exit Sub Exit Sub
End If End If
If UsuarioActual.Empresa.CvePlataforma = 2 Then Select Case ConversionRemision
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
Case "*" Case "*"
For Each Row As DataRow In TmpDT.Rows For Each Row As DataRow In TmpDT.Rows
Row("PU") = Math.Round(Row("PU").ToString().ToDouble * TipoCambioRemision, NumeroDecimales) Row("PU") = Math.Round(Row("PU").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
@@ -14904,8 +14890,6 @@ Partial Class Ventas
End Select End Select
'PdfFacturaPyME(ObjFactura, TmpDT)
End If
End Sub End Sub
#End Region #End Region