Contabilidad2/CatCuentasAsignaciones.aspx.vb

@@ -31,6 +31,9 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
     End Sub
 
     Private Sub CargaDatosModal()
+
+        DdlConceptoNomina.DataSource = GlobalDTNomConceptos(UsuarioActual.CveEmpresa)
+        DdlConceptoNomina.DataBind()
         Dim ObjConta As New ClsContabilidad
 
         If ObjConta.GetConta_ConceptosContables() Then
@@ -60,6 +63,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         DdlClasificacion.DataBind()
         DdlAlmacen.DataBind()
 
+        DdlConceptoNomina.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlCconceptosContables.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlProveedor.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -72,6 +76,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         CveConceptoAsignacion = GvRow.DataKey("CveCuentaAsignacion").ToEntero
         DdlCconceptosContables.SelectedValue = GvRow.DataKey("CveConceptoContable").ToEntero
         DdlCuenta.SelectedValue = GvRow.DataKey("CveCuenta").ToEntero
+        DdlConceptoNomina.SelectedValue = GvRow.DataKey("CveConceptoNomina").ToEntero
         DdlProveedor.SelectedValue = GvRow.DataKey("CveProveedor").ToEntero
         DdlClasificacion.SelectedValue = GvRow.DataKey("CveClasificacion").ToEntero
         DdlAlmacen.SelectedValue = GvRow.DataKey("CveAlmacen").ToEntero
@@ -123,6 +128,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         DdlProveedor.SelectedValue = -1
         DdlClasificacion.SelectedValue = -1
         DdlAlmacen.SelectedValue = -1
+        DdlConceptoNomina.SelectedValue = -1
         TxtIdCuentaContable.Text = ""
         TxtPorcentajeIVA.Text = ""
         DdlClientes.ddl.DataSource = ""
@@ -143,13 +149,13 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
             If Not ObjConta.AddCuentasAsignaciones(DdlCconceptosContables.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero,
                                                DdlProveedor.SelectedValue.ToEntero, DdlClientes.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero,
                                                DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal) Then
-                ErrorString = "Error al Agregar"
+                ErrorString = "Error al agregar"
             End If
         ElseIf LbAgregar.Text = "Actualizar" Then
             If Not ObjConta.UpdateCuentasAsignaciones(CveConceptoAsignacion, DdlCconceptosContables.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero,
                                                DdlProveedor.SelectedValue.ToEntero, DdlClientes.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero,
                                                DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal) Then
-                ErrorString = "Error al Actualizar"
+                ErrorString = "Error al actualizar"
             End If
         End If
         ObjConta.Dispose()