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

cambios de extensiones .SUM de double a decimal

Browse Source
This commit is contained in:
rrene
2023-11-12 21:21:50 -07:00
parent 7ab88313cb
commit 053512112c
57 changed files with 747 additions and 811 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Contratos/FacturacionMasiva.aspx.vb
View File

@@ -211,13 +211,13 @@ Partial Class Contratos_FacturacionMasiva
End Sub
Private Sub EjecutarFacturacion(Optional FacturarTodos As Boolean = False)
Dim FacturadoCorrecto = True
Dim FacturadoCorrecto As Boolean = True
Dim sb As New StringBuilder()
For Each row As GridViewRow In GvCiclosComerciales.Rows
If FacturarTodos OrElse row.FCCheckBox("chkDis").Checked Then
Dim Resp = EmitirImprimir(row.DataKey("CveCicloComercial").ToString.ToEntero)
Dim Resp As MMensajeFacturacion = EmitirImprimir(row.DataKey("CveCicloComercial").ToString.ToEntero)
sb.AppendFormat("{0}</br></br>", Resp.Mensaje)
@@ -471,11 +471,11 @@ Partial Class Contratos_FacturacionMasiva
objContratos.Dispose()
Dim DtR As DataRow
ObjFactura.SubTotal = SUM(DTDetalle, "Total").ToDecimal
ObjFactura.IVA = SUM(DTDetalle, "ImporteIVA").ToDecimal
ObjFactura.RetIVA = SUM(DTDetalle, "ImporteRetIVA").ToDecimal
ObjFactura.RetISR = SUM(DTDetalle, "ImporteRetISR").ToDecimal
ObjFactura.IEPS = SUM(DTDetalle, "ImporteIEPS").ToDecimal
ObjFactura.SubTotal = SUM(DTDetalle, "Total")
ObjFactura.IVA = SUM(DTDetalle, "ImporteIVA")
ObjFactura.RetIVA = SUM(DTDetalle, "ImporteRetIVA")
ObjFactura.RetISR = SUM(DTDetalle, "ImporteRetISR")
ObjFactura.IEPS = SUM(DTDetalle, "ImporteIEPS")
ObjFactura.Total = ObjFactura.SubTotal + ObjFactura.IVA + ObjFactura.IEPS - (ObjFactura.RetIVA + ObjFactura.RetISR)
For Each row As DataRow In DTDetalle.Rows