cambios en método de pago

RH/CatPersonal.aspx.vb

@@ -338,9 +338,9 @@ Partial Class RH_CatPersonal
     End Sub
 
     Private Sub CargaMetodosPago()
-        DdlMetodoPago.DataSource = GlobalDTMetodosPago
+        DdlMetodoPago.DataSource = GlobalDTVtaMetodoPago
         DdlMetodoPago.DataBind()
-        DdlMetodoPagoAdd.DataSource = GlobalDTMetodosPago
+        DdlMetodoPagoAdd.DataSource = GlobalDTVtaMetodoPago
         DdlMetodoPagoAdd.DataBind()
     End Sub
 
@@ -807,7 +807,7 @@ Partial Class RH_CatPersonal
         crow = 1
         ccol = ccol + 1
         Catalogos.Cell(crow, ccol).Value = "Metodo pago"
-        For Each row As DataRow In GlobalDTMetodosPago.Rows
+        For Each row As DataRow In GlobalDTVtaMetodoPago.Rows
             crow = crow + 1
             Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CveMetodoPago"), row("MetodoPago"))
         Next

RH/Personal.aspx.vb

@@ -1410,7 +1410,7 @@ Partial Class RH_Personal
         'DdlPermisosReemplazo.DataBind()
     End Sub
     Private Sub CargaMetodosPago()
-        DdlMetodoPago.DataSource = GlobalDTMetodosPago
+        DdlMetodoPago.DataSource = GlobalDTVtaMetodoPago
         DdlMetodoPago.DataBind()
     End Sub