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

24
Contratos/ContratoObra.aspx.vb
View File

@@ -986,8 +986,8 @@ Partial Class Contratos_ContratoObra
UpGVInsumos.Update()
UPGVInt.Update()
TotalAvanceVentas = TmpDT.FiltraParametros("CveTipoPresupuesto=2 AND CveContratoDetalle > 0").SUM("Total").ToDecimal
TotalAvanceInterno = TmpDT.FiltraParametros("CveTipoPresupuesto=1 AND CveContratoDetalle > 0").SUM("Total").ToDecimal
TotalAvanceVentas = TmpDT.FiltraParametros("CveTipoPresupuesto=2 AND CveContratoDetalle > 0").SUM("Total")
TotalAvanceInterno = TmpDT.FiltraParametros("CveTipoPresupuesto=1 AND CveContratoDetalle > 0").SUM("Total")
LbTotalGeneral.Text = TmpDT.FiltraParametros("CveTipoPresupuesto=2 AND CveContratoDetalle > 0").SUM("Total").FormatoNumero()
LbTotalGeneralInsumos.Text = TmpDT.FiltraParametros("CveTipoPresupuesto=1 AND CveContratoDetalle > 0").SUM("Total").FormatoNumero()
@@ -1031,11 +1031,11 @@ Partial Class Contratos_ContratoObra
Dim TieneError = False
Dim Modificado = False
Dim TieneError As Boolean = False
Dim Modificado As Boolean = False
' Dim Extension = Session("FileExtension").ToString
Dim Archivo = Session("FileUpload").ToString
Dim Ruta = Session("FileFolder").ToString
Dim Archivo As String = Session("FileUpload").ToString
Dim Ruta As String = Session("FileFolder").ToString
Dim Minimo, Maximo, Total As Double
@@ -1065,7 +1065,7 @@ Partial Class Contratos_ContratoObra
TipoContrato = DdlTipoContratoObra.SelectedValue.ToEntero
'Crear Contrato
Dim ImporteSubTotal As Decimal = TmpDT.SUM("Total", " CveContratoDetalle > 0 AND CveTipoPresupuesto=2 ").ToDecimal
Dim ImporteSubTotal As Decimal = TmpDT.SUM("Total", " CveContratoDetalle > 0 AND CveTipoPresupuesto=2 ")
If Not CveContrato > 0 Then
Dim EstatusContrato As Integer = 1
@@ -4559,7 +4559,7 @@ Partial Class Contratos_ContratoObra
Dim FileExtension As String = "-1"
Dim Filesgral As List(Of Archivo) = TxtModalCargaPresupuesto.getfiles().Archivos
Dim Filename As String = ""
Dim DTPS = New DataTable
Dim DTPS As New DataTable
For Each fileItem As Archivo In Filesgral
@@ -4573,8 +4573,8 @@ Partial Class Contratos_ContratoObra
Dim tempArray() As String
tempArray = fileItem.filename.ToString().Split("-".ToCharArray())
SpreadsheetInfo.SetLicense(Extensiones.SerialGemBoxSpreadsheet)
Dim workbook = ExcelFile.Load(fileItem.FileUrl)
Dim worksheet = workbook.Worksheets(Hoja)
Dim workbook As ExcelFile = ExcelFile.Load(fileItem.FileUrl)
Dim worksheet As ExcelWorksheet = workbook.Worksheets(Hoja)
DTPS = worksheet.CreateDataTable(New CreateDataTableOptions() With
{
.ColumnHeaders = True,
@@ -4613,9 +4613,9 @@ Partial Class Contratos_ContratoObra
DTCargaPresupuestoIndirectos.CaseSensitive = False
End If
Dim ErrorProceso = False
Dim ErrorProceso As Boolean = False
Dim DTPS = New DataTable
Dim DTPS As New DataTable
DTPS.Columns.Add("CveContratoDetalle", GetType(Integer))
DTPS.Columns.Add("Cantidad", GetType(Double))
DTPS.Columns.Add("CantidadContratada", GetType(Double))

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