mejora excel

This commit is contained in:
2021-06-29 18:16:33 -07:00
parent 59d1d10d8f
commit 2d553f796c

View File

@@ -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