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()