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

Soporte Ventas en Facturar remision con amortizacion

Browse Source 
Soporte Compras Convertir pesos a dolares con impuestos
Correciones en Ordenes de Servicio
This commit is contained in:
Raul Pimienta
2019-09-09 15:20:20 -07:00
parent 02cce830a1
commit 91d5de0186
3 changed files with 26 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
Compras/Compras.aspx.vb
View File

@@ -15936,15 +15936,15 @@ Partial Class Compras_Compras
End If
For Each Dr As DataRow In TmpDT.Rows
Dr("PU") = Dr("PU").ToString.ToDouble * TipoCambioTemp
Dr("IVA") = Dr("IVA").ToString.ToDouble * TipoCambioTemp
Dr("RetIVA") = Dr("RetIVA").ToString.ToDouble * TipoCambioTemp
Dr("RetISR") = Dr("RetISR").ToString.ToDouble * TipoCambioTemp
Dr("IEPSPS") = Dr("IEPSPS").ToString.ToDouble * TipoCambioTemp
Dr("Descuento") = Dr("Descuento").ToString.ToDouble * TipoCambioTemp
Dr("OtrosGastos") = Dr("OtrosGastos").ToString.ToDouble * TipoCambioTemp
Dr("PU") = Dr("PU").ToString.ToDecimal * TipoCambioTemp
Dr("IVA") = Dr("IVA").ToString.ToDecimal * TipoCambioTemp
Dr("RetIVA") = Dr("RetIVA").ToString.ToDecimal * TipoCambioTemp
Dr("RetISR") = Dr("RetISR").ToString.ToDecimal * TipoCambioTemp
Dr("IEPSPS") = Dr("IEPSPS").ToString.ToDecimal * TipoCambioTemp
Dr("Descuento") = Dr("Descuento").ToString.ToDecimal * TipoCambioTemp
Dr("OtrosGastos") = Dr("OtrosGastos").ToString.ToDecimal * TipoCambioTemp
Dim Total = (Dr("Cantidad").ToString.ToDouble * Dr("PU").ToString.ToDouble) - Dr("Descuento").ToString.ToDouble + Dr("OtrosGastos").ToString.ToDouble
Dim Total = (Dr("Cantidad").ToString.ToDecimal * Dr("PU").ToString.ToDecimal) - Dr("Descuento").ToString.ToDecimal + Dr("OtrosGastos").ToString.ToDecimal
Dr("Total") = Total
Next
@@ -15953,22 +15953,23 @@ Partial Class Compras_Compras
UpPS.Update()
TxtSubTotal.Text = (TxtSubTotal.Text.ToDouble * TipoCambioTemp).ToString.FormatoNumero.Replace(","c, "")
TxtSubTotal2.Text = (TxtSubTotal2.Text.ToDouble * TipoCambioTemp).ToString.FormatoNumero.Replace(","c, "")
TxtIVA.Text = (TxtIVA.Text.ToDouble * TipoCambioTemp).ToString.FormatoNumero.Replace(","c, "")
TxtSubTotal.Text = (TmpDT.SUMD("Total") + TmpDT.SUMD("Descuento")).FormatoNumero
TxtSubTotal2.Text = TmpDT.SUMD("Total").FormatoNumero()
TxtIVA.Text = TmpDT.SUMD("IVA").FormatoNumero()
'IPP CAMBIADO - 5 DICIEMBRE 2016
'TxtTotal.Text = (TxtSubTotal2.Text.ToDouble + TxtIVA.Text.ToDouble).ToString.FormatoNumero.Replace(","c, "")
TxtTotal.Text = (TxtTotal.Text.ToDouble * TipoCambioTemp).ToString.FormatoNumero.Replace(","c, "")
TxtTotal.Text = (TmpDT.SUMD("Total") + TmpDT.SUMD("IVA") + TmpDT.SUMD("IEPSPS") - TmpDT.SUMD("RetIVA") - TmpDT.SUMD("RetISR")).FormatoNumero
SubTotalOriginal = TxtSubTotal.Text.ToDouble
SubTotal2Original = TxtSubTotal2.Text.ToDouble
If TrDescuento.Visible Then TxtDescuento.Text = (TxtDescuento.Text.ToDouble * TipoCambioTemp).ToString.FormatoNumero.Replace(","c, "")
If TrRetIVA.Visible Then TxtRetIVA.Text = (TxtRetIVA.Text.ToDouble * TipoCambioTemp).ToString.FormatoNumero.Replace(","c, "")
If TrRetISR.Visible Then TxtRetISR.Text = (TxtRetISR.Text.ToDouble * TipoCambioTemp).ToString.FormatoNumero.Replace(","c, "")
If TrIEPS.Visible Then TxtIEPS.Text = (TxtIEPS.Text.ToDouble * TipoCambioTemp).ToString.FormatoNumero.Replace(","c, "")
If TrOtrosImpuestos.Visible Then TxtOtrosImpuestos.Text = (TxtOtrosImpuestos.Text.ToDouble * TipoCambioTemp).ToString.FormatoNumero.Replace(","c, "")
If TrDescuento.Visible Then TxtDescuento.Text = (TmpDT.SUMD("Descuento")).ToString.FormatoNumero
If TrRetIVA.Visible Then TxtRetIVA.Text = (TmpDT.SUMD("RetIVA")).ToString.FormatoNumero
If TrRetISR.Visible Then TxtRetISR.Text = (TmpDT.SUMD("RetISR")).ToString.FormatoNumero
If TrIEPS.Visible Then TxtIEPS.Text = (TmpDT.SUMD("IEPSPS")).ToString.FormatoNumero
If TrOtrosImpuestos.Visible Then TxtOtrosImpuestos.Text = (TmpDT.SUMD("OtrosGastos")).ToString.FormatoNumero
If TrRedondeo.Visible Then TxtRedondeo.Text = (TxtRedondeo.Text.ToDouble * TipoCambioTemp).ToString.FormatoNumero.Replace(","c, "")