RepCxC y Detalle Metas, entrga almacen correcion descarga PDF

CxC/RepCxCDetalle.aspx.vb

@@ -234,7 +234,12 @@ Partial Class RepCxCDetalle
                 ChkCuentaContableReferencia.Visible = True
             End If
             CargaAsignarCobranza()
-            TxtFechaCobranza.Text = Now.ToShortDateString
+            TxtFechaCobranza.Text = Now.ToShortDateString
+
+            If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                DVCartera.Visible = True
+            End If
+
         End If
 
     End Sub
@@ -447,15 +452,28 @@ Partial Class RepCxCDetalle
                                    CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, LimiteCredito:=LimiteCredito, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero,
                                    CveMoneda:=CveMoneda, EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticiposPagados:=If(ChkAnticipos.Checked, 1, 0)) Then
 
-            GvDatos.DataSource = ObjMovtos.DtResultados
-            dt = ObjMovtos.DtResultados
+            GvDatos.DataSource = ObjMovtos.DSResultados.Tables(0)
+            dt = ObjMovtos.DSResultados.Tables(0)
+            If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                GvCartera.DataSource = ObjMovtos.DSResultados.Tables(1)
+            End If
+
+
         Else
             GvDatos.DataSource = Nothing
         End If
 
         ObjMovtos.Dispose()
-        GvDatos.DataBind()
+        GvDatos.DataBind()
+
+
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            GvCartera.DataBind()
+        End If
+
+
         UPDatos.Update()
+        UpCartera.Update()
 
         Return dt