-- carga excel

This commit is contained in:
2021-05-06 13:36:09 -07:00
parent 65de982159
commit 4a5ebee40b
2 changed files with 17 additions and 5 deletions

View File

@@ -2185,6 +2185,8 @@ Partial Class ContabilidadC_RegPrePoliza
Dim YaExiste As Boolean = False
Dim CveConceptoContable As Integer = Row("CveConceptoContable").ToString.ToEntero
Dim IdCtaContable As Integer = Row("IdCtaContable").ToString.ToEntero
'sino viene el cveconcepto, busca por le nombre del concepto
If CveConceptoContable = 0 Then CveConceptoContable = GlobalDTContaConceptosContables(-1).FiltroPrimeroValor("CveConceptoContable", String.Format("ConceptoContable = '{0}'", Row("ConceptoContable"))).ToEntero
If ObjConta.GetCuentas(-1, Cuenta.Replace("-", ""), 1, UsuarioActual.CveEmpresa) Then
If ObjConta.DtResultados.Rows.Count > 0 Then