From 2d553f796cc16c16bacd4bea66d3f9584c432935 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 29 Jun 2021 18:16:33 -0700 Subject: [PATCH] mejora excel --- Contabilidad/RegPrePolizaS.aspx.vb | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index cd2a48d00..de6cbefbb 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -2075,7 +2075,7 @@ Partial Class ContabilidadC_RegPrePolizaS End If Folio = FolioExcel - ImporteDocumento = IIf(Row("Abono").ToString.ToEntero > 0, Row("Abono").ToString, Row("Cargo").ToString) + ImporteDocumento = IIf(Row("Abono").ToString.ToDecimal > 0, Row("Abono").ToString.ToDecimal, Row("Cargo").ToString.ToDecimal) Observaciones = Row("Referencia").ToString Beneficiario = Row("Concepto").ToString If Not TipoMov > 0 Then @@ -2150,8 +2150,9 @@ Partial Class ContabilidadC_RegPrePolizaS UPMovs.Update() Catch ex As Exception - Alert("No se pudo cargar el excel") + Alert("No se pudo cargar el excel", TipoMensaje.MsgAdvertencia) End Try + ArregloCuentasFolios = Nothing End If End Sub