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

ventas, considerar en actualziar el recalculo de ieps

Browse Source
This commit is contained in:
rmolina
2019-12-06 11:32:27 -07:00
parent 955d1ffbeb
commit 8a13a4d967
5 changed files with 14 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Ventas/Clientes.aspx.vb
View File

@@ -9199,7 +9199,7 @@ Partial Class Clientes
Dim Serie As String = ""
If FolioNotaCredito(Tipo) Then
Folio = FolioNotaAcumulador
Folio = -1
Serie = SerieNotaAcumulador
End If
@@ -9305,9 +9305,9 @@ Partial Class Clientes
End If
ObjFactura.FechaEjecucion = Now
ObjFactura.CveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero
ObjFactura.CveSubProyectoCobranza = DdlSubProyecto.SelectedValue.ToEntero
ObjFactura.CveSubProyectoEjecucion = DdlSubProyecto.SelectedValue.ToEntero
ObjFactura.CveSubProyecto = UsuarioActual.CveSubProyecto
ObjFactura.CveSubProyectoCobranza = UsuarioActual.CveSubProyecto
ObjFactura.CveSubProyectoEjecucion = UsuarioActual.CveSubProyecto
ObjFactura.AtencionA = "-1"
ObjFactura.MotivoDescuento = ""
ObjFactura.Observaciones = ""

4
Ventas/Ventas.aspx.vb
View File

@@ -5897,6 +5897,8 @@ Partial Class Ventas
End If
Dim TotalCalculableImpuestos As Decimal = ((Cantidad * PU) - (Descuento))
Dim TotalCalculableImpuestosIVA As Decimal = 0
TotalCalculableImpuestosIVA = TotalCalculableImpuestos * (1 + TmpDT.Rows(e.RowIndex)("IEPSPorcentaje").ToString.ToDecimal)
TmpDT.Rows(e.RowIndex)("CveUM") = GvPS.Rows(e.RowIndex).FCDropDownList("DdlUnidadMedida").SelectedValue.ToEntero
@@ -5907,7 +5909,7 @@ Partial Class Ventas
TmpDT.Rows(e.RowIndex)("PU") = PU
TmpDT.Rows(e.RowIndex)("Descuento") = Descuento
TmpDT.Rows(e.RowIndex)("TotalImporte") = Math.Round(Cantidad * PU, NumeroDecimales)
TmpDT.Rows(e.RowIndex)("ImporteIVA") = Math.Round(TmpDT.Rows(e.RowIndex)("PorcentajeIVA").ToString.ToDecimal * TotalCalculableImpuestos, NumeroDecimales)
TmpDT.Rows(e.RowIndex)("ImporteIVA") = Math.Round(TmpDT.Rows(e.RowIndex)("PorcentajeIVA").ToString.ToDecimal * TotalCalculableImpuestosIVA, NumeroDecimales)
TmpDT.Rows(e.RowIndex)("ImporteIEPS") = Math.Round(TmpDT.Rows(e.RowIndex)("PorcentajeIEPS").ToString.ToDecimal * TotalCalculableImpuestos, NumeroDecimales)
TmpDT.Rows(e.RowIndex)("ImporteRetIVA") = Math.Round(ClienteRetIVA * TotalCalculableImpuestos, NumeroDecimales)
TmpDT.Rows(e.RowIndex)("ImporteRetISR") = Math.Round(ClienteRetISR * TotalCalculableImpuestos, NumeroDecimales)