GDiaz 2024.05.21

Compras/Compras.aspx.vb

@@ -3594,9 +3594,14 @@ Partial Class Compras_Compras
                 End If
             End If
 
+<<<<<<< HEAD
             CargaRetIVAConcepto(True, ObjProveedor.DIOTCveTipoOperacion)
             CargaRetISRConcepto(True, ObjProveedor.DIOTCveTipoOperacion)
 
+            CargaRetIVAConcepto(True, ObjProveedor.DIOTCveTipoOperacion)
+            CargaRetISRConcepto(True, ObjProveedor.DIOTCveTipoOperacion)
+>>>>>>> GDiaz  2024.05.21
+
             LbAgregar.Enabled = True
             UpPSS.Update()
             UpPS.Update()
@@ -3642,26 +3647,31 @@ Partial Class Compras_Compras
                 PorcentajeProntoPago = ObjProveedor.PorcentajeProntoPago
             End If
 
+<<<<<<< HEAD
+=======
+
+
+>>>>>>> GDiaz  2024.05.21
         Else
             Alert("El Proveedor solicitado no existe, por favor intente de nuevo.", TipoMensaje.MsgAdvertencia)
         End If
-        Else
-        Alert("Ocurrió un error al consultar el proveedor.", TipoMensaje.MsgError)
-        End If
 
 
 
 
+<<<<<<< HEAD
+=======
+>>>>>>> GDiaz  2024.05.21
         If UsuarioActual.Empresa.Funcionalidad(560) = "1" Then
-            If ObjProveedor.GetProveedoresEvaluacionPediente(Me.CveProveedor, UsuarioActual.CveEmpresa) Then
+                    If ObjProveedor.GetProveedoresEvaluacionPediente(Me.CveProveedor, UsuarioActual.CveEmpresa) Then
-                If ObjProveedor.DtResultados.Rows.Count > 0 Then
+                        If ObjProveedor.DtResultados.Rows.Count > 0 Then
-                    Me.RequiereEvaluacion = ObjProveedor.DtResultados.Rows(0)("RequiereEvaluacion").ToString() = "1"
+                            Me.RequiereEvaluacion = ObjProveedor.DtResultados.Rows(0)("RequiereEvaluacion").ToString() = "1"
-                    Me.CveUsuarioEvaluador = ObjProveedor.DtResultados.Rows(0)("CveUsuarioEvaluador").ToString().ToEntero()
+                            Me.CveUsuarioEvaluador = ObjProveedor.DtResultados.Rows(0)("CveUsuarioEvaluador").ToString().ToEntero()
+                        End If
+                    End If
                 End If
-            End If
-        End If
 
-        ObjProveedor.Dispose()
+                ObjProveedor.Dispose()
     End Sub
 
     Private Sub CargaAnticipos(CveProveedor As Integer, Optional FiltroTipo As String = "-1")

Contabilidad/RegPrePolizaS.aspx

@@ -155,7 +155,7 @@
                                         <div class="row">
                                             <div class="col-md-12">
                                                 <div class="form-group form-md-line-input input-iconright">
-                                                    <asp:TextBox ID="TxtConcepto" runat="server" Width="100%" CssClass="form-control" ></asp:TextBox>
+                                                    <asp:TextBox ID="TxtConcepto" runat="server" Width="100%" CssClass="form-control" onkeyup="asignaConcepto()" ClientIDMode="Static"></asp:TextBox>
                                                     <label for="<%= TxtConcepto.ClientID.ToString()%>">Concepto:</label>
                                                      <asp:RequiredFieldValidator ID="RFVConcepto" runat="server" ControlToValidate="TxtConcepto" Display="None" ErrorMessage="El campo <b>''Concepto''</b> es requerido, por favor ingrese uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                     <ajax:ValidatorCalloutExtender ID="VCEConcepto" runat="server" HighlightCssClass="vco" TargetControlID="RFVConcepto" Width="350px"></ajax:ValidatorCalloutExtender>
@@ -335,7 +335,7 @@
                                     <HeaderTemplate>Concepto</HeaderTemplate>
                                     <ItemTemplate>
                                           <%--<asp:Literal ID="LrlConcepto" runat="server" Text='<%# Eval("Concepto")%>'></asp:Literal>--%>
-                                        <asp:TextBox ID="TxtConcepto" runat="server" Text='<%# Eval("Concepto")%>' Width="100%"></asp:TextBox>
+                                        <asp:TextBox ID="TxtConcepto" runat="server" Text='<%# Eval("Concepto")%>' Width="100%" CssClass="selTxtConcepto"></asp:TextBox>
                                     </ItemTemplate>
                                     <ItemStyle />
                                 </asp:TemplateField>
@@ -1203,9 +1203,17 @@
         }
 
 
+
+
         function valorIE() {
 
         }
 
+
+        function asignaConcepto() {                
+            let valor = $('#TxtConcepto').val();
+            $('input[type="text"].selTxtConcepto').val(valor);            
+        }
+
     </script>
 </asp:Content>

Ventas/PVCobranza.aspx

@@ -191,6 +191,12 @@
 <asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
     <asp:UpdatePanel ID="UpHB" runat="server">
         <ContentTemplate>
+
+            <li>
+                <asp:LinkButton ID="LnkCobrosEnTranscurso"  runat="server" OnClick="LnkCobrosEnTranscurso_Click"><i class="fa fa-money"></i>  Cobros en Transcurso</asp:LinkButton>
+            </li>
+
+            
             <li>
                 <asp:LinkButton ID="LkbEstadodeCaja" Visible="false" runat="server"><i class="fa fa-ad-excel"></i>  Estado de Caja</asp:LinkButton>
             </li>
@@ -315,7 +321,7 @@
                                             CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-print'></i>" ToolTip="Imprimir"
                                             OnClick="LnkImprimir_Click" Visible="false" />
                                         &nbsp;
-                        <asp:LinkButton ID="BtnPagar" runat="server" CssClass="btn btn-xs btn-success" Text="Cobrar" CommandName="Cobrar" CommandArgument='<%# Eval("CveVenta") %>' />
+                                        <asp:LinkButton ID="BtnPagar" runat="server" CssClass="btn btn-xs btn-success" Text="Cobrar" CommandName="Cobrar" CommandArgument='<%# Eval("CveVenta") %>' />
                                     </ItemTemplate>
                                 </asp:TemplateField>
                             </Columns>
@@ -952,6 +958,46 @@
  </div>
 
 
+
+
+    <div id="DVModalCobrosEnTranscurso" class="modal ADS fade" role="dialog">
+
+        <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpDVModalCobrosEnTranscurso" UpdateMode="Conditional">
+            <ContentTemplate>
+
+                <div class="modal-content">
+                    <div class="modal-header ">
+                        <h4 class="modal-title">
+                            <asp:Label ID="Label1" runat="server">Cobros en Transcurso</asp:Label>
+                        </h4>
+                    </div>
+                    <div class="modal-body">
+
+                        <asp:GridView ID="GvModalCobrosEnTranscurso" runat="server" AutoGenerateColumns="False" Width="100%"
+                         EmptyDataText="Cobros en Transcursos" data-sort="true" ToolTip="Cobros en Transcurso"
+                         CssClass="ScrollAD table table-striped table-hover Widthall mysmallbtn" data-heighterror="320" data-freezecols="0" data-freezerows="0" GridLines="None"
+                         DataKeyNames="CveVenta,TipoDocto,Saldo,AtencionA,CveFormaPago33,SerieFolio">
+                         <Columns>
+                             <asp:BoundField HeaderText="Atención" DataField="AtencionA" />
+                             <asp:HyperLinkField HeaderText="Folio" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" DataTextField="SerieFolio" ItemStyle-HorizontalAlign="Center" />
+                             <asp:BoundField HeaderText="Fecha/Hora" DataField="Fecha" ItemStyle-HorizontalAlign="Center" />
+                             <asp:BoundField HeaderText="Importe" DataField="Saldo" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />                             
+                             <asp:BoundField HeaderText="Usuario" DataField="UsuarioCobranza" />                             
+                         </Columns>
+                     </asp:GridView>
+                        
+
+                    </div>
+                    <div class="modal-footer">                        
+                        <button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
+                    </div>
+                </div>
+
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
+
+
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
     <script src="/Scripts/PrintJS/print.min.js"></script>

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