Correcion en metodo de pago al generar RNC

Inventarios/RecepcionUsados.aspx.vb

@@ -2272,12 +2272,24 @@ Partial Class Inventarios_RecepcionUsados
 
                 Me.ObjRemisionNC.CveMetodoPago = ObjCliente.CveMetodoPago33
 
-                If GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33)).Rows.Count > 0 Then
-                    Me.ObjRemisionNC.MetodoPago = GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33)).Rows(0)("MetodoPago").ToString
-                Else
-                    Me.ObjRemisionNC.CveMetodoPago = 1
-                    Me.ObjRemisionNC.MetodoPago = "Efectivo"
+                If GlobalDTMetodosPago IsNot Nothing Then
+                    Dim DtMetodoPago = GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33))
+
+                    If DtMetodoPago IsNot Nothing Then
+
+                        If DtMetodoPago.Rows.Count > 0 Then
+                            Me.ObjRemisionNC.MetodoPago = DtMetodoPago.Rows(0)("MetodoPago").ToString
+                        Else
+                            Me.ObjRemisionNC.CveMetodoPago = 1
+                            Me.ObjRemisionNC.MetodoPago = "Efectivo"
+                        End If
+
+                        DtMetodoPago.Dispose()
+                        DtMetodoPago = Nothing
+                    End If
+
                 End If
+
             End If
         End If