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

-- mejora carga excel

Browse Source
This commit is contained in:
rrene
2022-07-18 17:01:00 -07:00
parent d0f35ab3a1
commit 951d291545
1 changed files with 11 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
Contabilidad/RegPrePolizaS.aspx.vb
View File

@@ -817,6 +817,8 @@ Partial Class ContabilidadC_RegPrePolizaS
GvMov.DataSource = DtMovimientos GvMov.DataSource = DtMovimientos
GvMov.DataBind() GvMov.DataBind()
GvPrePoliza.DataBind() ''limpio el grid
UpPrePoliza.Update()
UPMovs.Update() UPMovs.Update()
End Sub End Sub
@@ -982,9 +984,12 @@ Partial Class ContabilidadC_RegPrePolizaS
FolioPoliza = ObjMov.FolioPoliza FolioPoliza = ObjMov.FolioPoliza
Dim Gv As GridView = GvMov Dim Gv As GridView = GvMov
If DdlPlantilla.SelectedValue = "53" Then If DdlPlantilla.SelectedValue = "53" OrElse GvPrePoliza.Visible = True Then
Gv = GvPrePoliza If GvPrePoliza.Rows.Count > 0 Then
TipoGrid = 1 Gv = GvPrePoliza
TipoGrid = 1
End If
End If End If
'inserto las compras que voy a pagarDdlSaldos 'inserto las compras que voy a pagarDdlSaldos
@@ -1164,10 +1169,6 @@ Partial Class ContabilidadC_RegPrePolizaS
If row.FCCheckBox("chkModificado").Checked Then If row.FCCheckBox("chkModificado").Checked Then
contador = contador + 1 contador = contador + 1
Dim ImporteIE As Decimal = If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal) Dim ImporteIE As Decimal = If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal)
If row.DataKey("CveConceptoContable").ToEntero = 30 AndAlso ImporteIE > 0 AndAlso row.DataKey("CveIE").ToDecimal <= 0 Then If row.DataKey("CveConceptoContable").ToEntero = 30 AndAlso ImporteIE > 0 AndAlso row.DataKey("CveIE").ToDecimal <= 0 Then
@@ -1182,9 +1183,6 @@ Partial Class ContabilidadC_RegPrePolizaS
End If End If
End If End If
If Not ObjContabilidad.UpdatePrePolizasDetalle(row.DataKey("CvePrePolizaDetalle").ToEntero, row.FCLiteral("TxtConcepto").Text, row.DataKey("CveSubProyecto").ToEntero, If Not ObjContabilidad.UpdatePrePolizasDetalle(row.DataKey("CvePrePolizaDetalle").ToEntero, row.FCLiteral("TxtConcepto").Text, row.DataKey("CveSubProyecto").ToEntero,
row.DataKey("IdCtaContable").ToEntero, If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, row.DataKey("IdCtaContable").ToEntero, If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0,
row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero), row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero),
@@ -1242,7 +1240,7 @@ Partial Class ContabilidadC_RegPrePolizaS
If Not OcurrioError Then If Not OcurrioError Then
If IdPoliza > 0 AndAlso contador Then If IdPoliza > 0 AndAlso contador Then
' BtnContabilizar_Click(Nothing, Nothing) Contabilizar()
End If End If
End If End If
@@ -2304,7 +2302,6 @@ Partial Class ContabilidadC_RegPrePolizaS
DdlPlantilla.SelectedValue = DdlPlantilla2.SelectedValue DdlPlantilla.SelectedValue = DdlPlantilla2.SelectedValue
dt = ReadExcelFile(Ruta + FileName, True) dt = ReadExcelFile(Ruta + FileName, True)
If Not ErrorArchivo Then If Not ErrorArchivo Then
If Not dt.Columns(0).ColumnName.ToUpper = "CONCEPTOADMINISTRATIVO" Then If Not dt.Columns(0).ColumnName.ToUpper = "CONCEPTOADMINISTRATIVO" Then
@@ -2512,6 +2509,8 @@ Partial Class ContabilidadC_RegPrePolizaS
ContadorRegistros = ContadorRegistros + 1 ContadorRegistros = ContadorRegistros + 1
Next Next
GvMov.DataBind()
divMovtos.Visible = False
GvPrePoliza.DataSource = DtMovimientos GvPrePoliza.DataSource = DtMovimientos
GvPrePoliza.DataBind() GvPrePoliza.DataBind()
UpPrePoliza.Update() UpPrePoliza.Update()
@@ -2599,8 +2598,6 @@ Partial Class ContabilidadC_RegPrePolizaS
Dim FolioManual As Integer = If(TxtFolio.Text.ToEntero > 0, TxtFolio.Text.ToEntero, -1) Dim FolioManual As Integer = If(TxtFolio.Text.ToEntero > 0, TxtFolio.Text.ToEntero, -1)
If ObjConta.ContabilizaDesContabilizaPrePoliza(CvePrePoliza, True, UsuarioActual.CveEmpresa, Folio:=FolioManual) Then If ObjConta.ContabilizaDesContabilizaPrePoliza(CvePrePoliza, True, UsuarioActual.CveEmpresa, Folio:=FolioManual) Then
Alert($"Contabilizado Correctamente Folio <b>{ ObjConta.ContaFolio.ToString()}.</b>", TipoMensaje.MsgInformacion) Alert($"Contabilizado Correctamente Folio <b>{ ObjConta.ContaFolio.ToString()}.</b>", TipoMensaje.MsgInformacion)
@@ -2618,7 +2615,6 @@ Partial Class ContabilidadC_RegPrePolizaS
Else Else
If IdPoliza > 0 Then 'si está bloqueada, lo desbloqueaprimero If IdPoliza > 0 Then 'si está bloqueada, lo desbloqueaprimero
ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False)
End If End If
@@ -2637,10 +2633,6 @@ Partial Class ContabilidadC_RegPrePolizaS
End If End If
ObjConta.Dispose() ObjConta.Dispose()
End Sub End Sub