--

Inicio.aspx.vb

@@ -53,6 +53,21 @@ Partial Class Inicio
         Return retorno
     End Function
 
+    Private Sub cargaUnuaUno()
+        GVPA_OI_UnoAUnoTableroGet.DataSource = New System.Data.DataTable()
+
+        Using ObjPA_O As ClsOIEventos = New ClsOIEventos()
+            If ObjPA_O.UnoAUnoTableroGet(UsuarioActual.CveEmpresa, DateTime.Now.ToString("yyyy/MM/dd"), UsuarioActual.CveUsuario) Then
+
+                If ObjPA_O.DtResultados.COUNT("CveUnoaUno", "CveUnoaUno = -1") > 0 Then
+                    RegistraScript("$('#DvUnoaUno').modal();")
+                End If
+            End If
+            GVPA_OI_UnoAUnoTableroGet.DataSource = ObjPA_O.DtResultados
+        End Using
+
+        GVPA_OI_UnoAUnoTableroGet.DataBind()
+    End Sub
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
 
@@ -60,6 +75,7 @@ Partial Class Inicio
                 Usuario.CerrarSession()
                 Exit Sub
             End If
+            cargaUnuaUno()
             'Reporte de ventas sin registrar sig
             If UsuarioActual.TienePermisoProceso(287) Then
 
@@ -209,7 +225,7 @@ Partial Class Inicio
     Private Sub MuestraVentasPUE()
         Dim objVentas As New ClsVentas
         Dim FechaInicio As Date = Now.AddYears(-2)
-        LblVentasPUE.Text = "Facturas apartir de " & FechaInicio.ToShortDateString
+        LblVentasPUE.Text = "Facturas a partir de: " & FechaInicio.ToShortDateString
         If objVentas.GetPUESinPago(FechaInicio, Now, -1, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
             If objVentas.DtResultados.Rows.Count > 0 Then
                 GvVtaPUE.DataSource = objVentas.DtResultados
@@ -1162,4 +1178,28 @@ Partial Class Inicio
     Protected Sub BtnEvaluarProveedores_Click(sender As Object, e As EventArgs)
 
     End Sub
+    Protected Sub LnkGuardarUnoaUno_Click(sender As Object, e As EventArgs)
+        Dim fecha As String = DateTime.Now.ToString("yyyy/MM/dd")
+        Dim continuar As Boolean = True
+
+        Using ObjPA_O As ClsOIEventos = New ClsOIEventos()
+
+            For Each gvrow As GridViewRow In GVPA_OI_UnoAUnoTableroGet.Rows
+
+                If continuar Then
+                    Dim CveUnoaUnoPregunta As Integer = gvrow.DataKey("CveUnoaUnoPregunta").ToEntero()
+
+                    If CveUnoaUnoPregunta > 0 Then
+                        Dim Comentarios As String = gvrow.FCTextBox("TxtComentarios").Text
+                        continuar = ObjPA_O.UnoAUnoTableroAdd(UsuarioActual.CveEmpresa, fecha, UsuarioActual.CveUsuario, CveUnoaUnoPregunta, Comentarios)
+                    End If
+                End If
+            Next
+        End Using
+
+        If continuar Then
+            Alert("Tus respuestas se han actualizado", ModExtensiones.TipoMensaje.ToastInformacion)
+        End If
+        RegistraScript("$('#DvUnoaUno').modal('hide')")
+    End Sub
 End Class