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 End If
Folio = FolioExcel 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 Observaciones = Row("Referencia").ToString
Beneficiario = Row("Concepto").ToString Beneficiario = Row("Concepto").ToString
If Not TipoMov > 0 Then If Not TipoMov > 0 Then
@@ -2150,8 +2150,9 @@ Partial Class ContabilidadC_RegPrePolizaS
UPMovs.Update() UPMovs.Update()
Catch ex As Exception Catch ex As Exception
Alert("No se pudo cargar el excel") Alert("No se pudo cargar el excel", TipoMensaje.MsgAdvertencia)
End Try End Try
ArregloCuentasFolios = Nothing
End If End If
End Sub End Sub