diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx
index 7fdbf74da..fde03b86f 100644
--- a/Contabilidad/RegPrePolizaS.aspx
+++ b/Contabilidad/RegPrePolizaS.aspx
@@ -145,7 +145,7 @@
@@ -159,7 +159,7 @@
@@ -202,9 +202,8 @@
-
-
-
+
+
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index 2c44b33e0..d8ace96b3 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -1963,8 +1963,15 @@ Partial Class ContabilidadC_RegPrePolizaS
Exit For
End If
- If Row("SubProyecto").ToString <> "" Then
- CveSubProyecto = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", String.Format("SubProyecto = '{0}'", Row("SubProyecto"))) 'Row("CveSubProyecto").ToString.ToEntero
+ If Row("SubProyecto").ToString.Trim <> "" Then
+ CveSubProyecto = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=-1).FiltroPrimeroValor("CveSubProyecto", String.Format("SubProyecto = '{0}'", Row("SubProyecto").ToString.Trim)).ToEntero 'Row("CveSubProyecto").ToString.ToEntero
+
+ If CveSubProyecto = 0 Then
+ Alert(String.Format("El subproyecto {0} no se reconoció, favor de verificar el archivo.", Row("SubProyecto")))
+ DtMovimientos.Clear()
+ Exit For
+ End If
+
End If
If CveConceptoContable = 69 Then
@@ -1983,8 +1990,8 @@ Partial Class ContabilidadC_RegPrePolizaS
dr("CveConcepto") = CveConceptoContable
dr("CveConceptoContable") = CveConceptoContable
dr("ConceptoContable") = Row("ConceptoAdministrativo").ToString
- dr("Cargo") = Row("Cargo").ToString.ToDecimal
- dr("Abono") = Row("Abono").ToString.ToDecimal
+ dr("Cargo") = Row("Cargo").ToString.ToDecimal.RoundSQL
+ dr("Abono") = Row("Abono").ToString.ToDecimal.RoundSQL
dr("Descripcion") = Row("Concepto").ToString
dr("CveSubProyecto") = CveSubProyecto
dr("CveProveedor") = -1
@@ -1995,12 +2002,13 @@ Partial Class ContabilidadC_RegPrePolizaS
dr("CveVenta") = -1
dr("CveCuenta") = CveCuenta
- TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDouble + TxtAbono.Text.ToDouble).ToString.FormatoNumero
- TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDouble + TxtCargo.Text.ToDouble).ToString.FormatoNumero
+
DtMovimientos.Rows.Add(dr)
DtMovimientos.AcceptChanges()
Next
+ TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero
+ TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero
GvMov.DataSource = DtMovimientos
GvMov.DataBind()
|