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

mejora visual y manejo de la carga en excel

Browse Source
This commit is contained in:
rrene
2021-06-02 19:16:28 -07:00
parent ab74b09054
commit 764084ce3b
2 changed files with 18 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
Contabilidad/RegPrePolizaS.aspx.vb
View File

@@ -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 <b>{0}</b> 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()