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

Contratos

Browse Source
This commit is contained in:
Rakcsle Supertramp
2020-12-05 11:11:05 -07:00
parent 798155e820
commit 9a37b6be08
4 changed files with 23 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Contratos/ContratoObra.aspx.vb
View File

@@ -606,7 +606,7 @@ Partial Class Contratos_ContratoObra
TxtFechaFinal.Text = ""
TxtPorIVA.Text = ""
DdlProyecto.SelectedValue = "-1"
'DdlProyecto.SelectedValue = "-1"
TxtCantidad.Text = ""
TxtPU.Text = ""
@@ -779,7 +779,7 @@ Partial Class Contratos_ContratoObra
TxtPorAnticipo.Text = ObjContratos.PorAmortizacionAnticipo.FormatoNumero
TxtPorAmortizacionAnticipo.Text = ObjContratos.PorAmortizacionAnticipo.FormatoNumero
TxtPorGarantia.Text = ObjContratos.PorGarantia.FormatoNumero
DdlProyecto.SelectedValue = ObjContratos.CveProyecto.ToString
'DdlProyecto.SelectedValue = ObjContratos.CveProyecto.ToString
LblSubProyecto.Text = ObjContratos.SubProyectoContrato
DdlTipoContratoObra.SelectedValueExist(ObjContratos.CveContratoTipo)
'CargaSubProyectoContrato(DdlProyecto.SelectedValue.ToEntero)
@@ -4592,11 +4592,11 @@ Partial Class Contratos_ContratoObra
Dim CantidadAvance As Decimal = DTDatos.Rows(0)("Cantidad").ToString.ToDecimal
Dim ImporteAvance As Decimal = DTDatos.Rows(0)("AvanceImporte").ToString.ToDecimal
Dim TotalAvancePorcentaje As Decimal = (ImporteAvance * 100 / TotalAvanceVentas).RoundSQL(2)
Dim TotalAvancePorcentaje As Decimal = If(ImporteAvance > 0, (ImporteAvance * 100 / TotalAvanceVentas).RoundSQL(2), 0)
Dim CantidadInterno As Decimal = DTDatos.Rows(0)("CantidadInterno").ToString.ToDecimal
Dim ImporteInterno As Decimal = DTDatos.Rows(0)("ImporteInterno").ToString.ToDecimal
Dim TotalFaltantePorcentaje As Decimal = (ImporteInterno * 100 / TotalAvanceInterno).RoundSQL(2)
Dim TotalFaltantePorcentaje As Decimal = If(ImporteInterno > 0, (ImporteInterno * 100 / TotalAvanceInterno).RoundSQL(2), 0)
LtlAvanceImporte.Text = $"$ { ImporteAvance.ToString("###,###,###.00") }"