GDiaz 2024.05.21

Ventas/PVCobranza.aspx.vb

@@ -1099,4 +1099,26 @@ Partial Class Ventas_PVCobranza
 
 #End Region
 
+
+    Protected Sub LnkCobrosEnTranscurso_Click(sender As Object, e As EventArgs)
+
+        Dim ObjMovtos As New ClsMovimientos()
+        Dim FechaI, FechaF As Date
+
+        FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim().ToDate, MinFecha)
+        FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim().ToDate, MaxFecha).AddDays(1)
+
+        If ObjMovtos.GetRemisionesCobranza(UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero, FechaI, FechaF) Then
+
+            Dim dtt As DataTable = ObjMovtos.DtResultados.FiltraParametros($"CveVenta > 0 AND CveUsuarioCobranza > 0 ")
+            GvModalCobrosEnTranscurso.DataSource = dtt
+
+        End If
+
+        ObjMovtos.Dispose()
+        GvModalCobrosEnTranscurso.DataBind()
+        UpDVModalCobrosEnTranscurso.Update()
+        RegistraScript("$('#DVModalCobrosEnTranscurso').modal('show');")
+
+    End Sub
 End Class