Merge branch 'master' of http://192.168.10.111:8383/SIG

App_Code/ClsProductosServicios.vb

@@ -415,7 +415,7 @@ Public Class ClsProductosServicios
                           Optional RegistroRSCO As String = "-1", Optional FechaVigenciaRSCO As Date = MinFecha, Optional VigenciaIndeterminadaRSCO As Boolean = False, Optional CveTipoEmpacado As Integer = -1, Optional CveTipoOrganico As Integer = -1,
                           Optional NombreComercial As String = "", Optional NotasAdicionales As String = "", Optional EcommerceEtiquetas As String = "", Optional ActivoEcommerce As Boolean = False, Optional EcommercePrecio As Decimal = 0,
                           Optional CveClasificacionEcommerce As Integer = -1, Optional EcommerceCantidad As Decimal = 0, Optional CodigoAlterno As String = "-1", Optional PSAlterno As String = "-1", Optional ProductoExhibicion As Boolean = False,
-                          Optional Imagen As String = "", Optional PorcentajeMinimoUtilidad As Decimal = 0, Optional CveSelectiva As Integer = -1) As Integer
+                          Optional Imagen As String = "", Optional PorcentajeMinimoUtilidad As Decimal = 0, Optional CveSelectiva As Integer = -1, Optional UltimoCosto As Decimal = 0) As Integer
         Dim Retorno As Integer = -1
 
         DataAdapter("PA_ProductosServiciosAdd")
@@ -527,6 +527,7 @@ Public Class ClsProductosServicios
             .Add("@Imagen", SqlDbType.VarChar).Value = Imagen
             .Add("@PorcentajeMinimoUtilidad", SqlDbType.Decimal).Value = PorcentajeMinimoUtilidad
             .Add("@CveSelectiva", SqlDbType.Int).Value = CveSelectiva
+            .Add("@UltimoCosto", SqlDbType.Money).Value = UltimoCosto
         End With
 
         Try

Bancos/ProveedoresAbonar.aspx.vb

@@ -1169,6 +1169,7 @@ Partial Class Bancos_ProveedoresAbonar
                         IDPoliza = 0
                     End If
 
+
                     If Not TieneError Then
 
                         ObjIE.Commit()
@@ -2022,12 +2023,12 @@ Partial Class Bancos_ProveedoresAbonar
             Dim IVARNC As Decimal = (ImporteRNC * PorcentajeIVA).RoundSQL(2)
             Dim TotalRNC As Decimal = (ImporteRNC + IVARNC).RoundSQL(2)
 
-            CompraRNC.ConfiguraRegistroRapido(CvePS_RNC, CveUM, UM, CveClasificacion, Clasificacion, PS, CveSubProyectoPrincipal, SubProyecto, ImporteRNC.RoundSQL(2), IVARNC, TotalRNC, PorcentajeIVA)
+            CompraRNC.ConfiguraRegistroRapido(CvePS_RNC, CveUM, UM, CveClasificacion, Clasificacion, PS, CveSubProyectoPrincipal, SubProyecto, ImporteRNC, IVARNC, TotalRNC, PorcentajeIVA)
 
             If CompraRNC.AddCompra(sqltransaccion) Then
-                Dim tImporteRNC = (ImporteRNC + IVARNC).RoundSQL(2) ' le agrego el importe del iva
+                'Dim tImporteRNC = (ImporteRNC + IVARNC).RoundSQL(2) ' le agrego el importe del iva
                 Dim Pago As New CompraPago
-                Pago.ImportePago = tImporteRNC
+                Pago.ImportePago = TotalRNC
                 Pago.CveMonedaPago = CompraActual.CveMoneda
                 Pago.CveCompraAmortizacion = CompraRNC.CveCompra
                 Pago.Referencia = CompraRNC.SerieFolio
@@ -2713,7 +2714,7 @@ Public Class ClsCompraManagerComprasCA
         Me.CveRetISRConcepto = -1
         Me.CveTipoPoliza = 3
         Me.NumeroReembolso = ""
-        Me.SubTotal = SubTotal
+        Me.SubTotal = SubTotal.RoundSQL
         Me.IVA = IVA
         Me.Total = Total
         Me.PorcentajeIVA = PorcentajeIVA
@@ -3664,7 +3665,7 @@ Public Class ClsCompraManagerComprasCA
         'HACEMOS CALCULOS
         LocalSubTotalIVA = TmpDT.SUMD("IVA")
         LocalSubTotalIEPSIVA = TmpDT.SUMD("IEPSPSIVA")
-        LocalSubTotal = (TmpDT.SUMD("Total") + TmpDT.SUMD("Descuento")).RoundSQL(8)
+        LocalSubTotal = (TmpDT.SUMD("Total") + TmpDT.SUMD("Descuento")).RoundSQL(2)
         LocalRetIVA = TmpDT.SUMD("RetIVA")
         LocalRetISR = TmpDT.SUMD("RetISR")
         LocalIEPSPS = TmpDT.SUMD("IEPSPS")

Compras/Compras.aspx.vb

@@ -22668,7 +22668,20 @@ Partial Class Compras_Compras
         nRow("SubTotal") = subtotalParcial.RoundSQL(4)
 
         nRow("Total") = totalParcialDeseado.RoundSQL(4)
-        nRow("PorcentajeIVA") = (ivaParcial / subtotalParcial).RoundSQL(2)
+
+
+        Dim tmpPorcentajeIVA As Decimal = 0
+        If ivaParcial > 0 Then
+            tmpPorcentajeIVA = (ivaParcial / subtotalParcial).RoundSQL(2)
+            If tmpPorcentajeIVA = 0.17 Or tmpPorcentajeIVA = 0.15 Then
+                tmpPorcentajeIVA = 0.16D
+            End If
+            If tmpPorcentajeIVA = 0.07 Or tmpPorcentajeIVA = 0.09 Then
+                tmpPorcentajeIVA = 0.16D
+            End If
+        End If
+
+        nRow("PorcentajeIVA") = tmpPorcentajeIVA
         nRow("Porcentaje") = ((totalParcialDeseado.RoundSQL(4) * 100) / TotalOriginal).RoundSQL(2)
 
         nRow("RetIVAPorcentaje") = (retIvaParcial / subtotalParcial).RoundSQL(4)

Compras/eFacturas.aspx

@@ -311,7 +311,7 @@
                                                     
                                                     <div class="col-md-4">
                                                         <div class="form-group form-md-line-input input-iconright" >
-                                                            <asp:TextBox ID="TxtNumeroReembolso" runat="server" Width="100%" CssClass=" form-control input-sm " />
+                                                            <asp:TextBox ID="TxtNumeroReembolso" runat="server" Width="100%" CssClass=" form-control " />
                                                             <label runat="server" id="LblNumeroReembolso" for="<%= TxtNumeroReembolso.ClientID.ToString()%>">Número de Reembolso:</label>
                                                             <asp:RequiredFieldValidator ID="RfvTxtNumeroReembolso" runat="server" ControlToValidate="TxtNumeroReembolso" InitialValue="" Display="Dynamic"
                                                                 ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Num. Reembolso''</b> es necesario, por favor ingreselo." ValidationGroup="GrpRegistraCompra">
@@ -321,6 +321,15 @@
 
                                                      <div class="col-md-4">                                                                  
                                                          
+                                                          <div class="form-group form-md-line-input input-iconright">
+     
+                                                             <asp:TextBox runat="server" ID="TxtObservaciones" CssClass="form-control" MaxLength="50" Width="100%" ></asp:TextBox>
+                                                             <label runat="server" id="Label3" for="<%= TxtObservaciones.ClientID.ToString()%>">Observaciones:</label>  
+
+                                                             <%--<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtObservaciones" InitialValue="" Display="Dynamic"
+                                                                 ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripción''</b> es necesario, por favor ingreselo." ValidationGroup="GrpRegistraCompra">
+                                                             </asp:RequiredFieldValidator>--%>
+                                                         </div>
                                                     </div> 
 
 
@@ -448,15 +457,7 @@
 
                                                           </div>
                                                       </div>
-
-                                                     
-                                                           
-
                                                     </div>
-                                             
-
-                                             
-
                                               <div class="col-md-4" style="text-align: center;">
                                                   <asp:Button ID="BtnGuardarFacturas" runat="server" Text="Guardar" class="btn btn-primary" OnClick="BtnGuardarFacturas_Click"  ValidationGroup="GrpRegistraCompra"
                                                       Style="margin: 0; position: absolute; top: 50%; transform: translateY(30%);" />

Compras/eFacturas.aspx.vb

@@ -5801,7 +5801,7 @@ Partial Class Compras_eFacturas
 
                 If CompraActual.ConfiguraRegistroCompra(DdlPS.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, CveCajachica, CvePersonal,
                                                               DdlRetIVAConcepto.SelectedValue.ToEntero, DdlRetISRConcepto.SelectedValue.ToEntero, NumeroReembolso:=TxtNumeroReembolso.Text,
-                                                              DTProrrateo:=DTProrrateo, DTPagosDeudores:=DTPagosDeudores) Then
+                                                              DTProrrateo:=DTProrrateo, DTPagosDeudores:=DTPagosDeudores, Observaciones:=TxtObservaciones.Text) Then
                     If CompraActual.AddCompra(Objcompras.IniciaTransacSQL()) Then
                         Contador = Contador + 1
                     Else
@@ -6874,7 +6874,7 @@ Public Class ClsCompraManager
     End Sub
 
     Public Function ConfiguraRegistroCompra(CvePS As Integer, CveSubProyecto As Integer, CveCajaChica As Integer, CvePersonal As Integer, CveRetIVAConcepto As Integer, CveRetISRConcepto As Integer, NumeroReembolso As String, DTProrrateo As DataTable,
-                                            DTPagosDeudores As DataTable, Optional TipoComprobante As String = "") As Boolean
+                                            DTPagosDeudores As DataTable, Optional TipoComprobante As String = "", Optional Observaciones As String = "") As Boolean
 
         Dim respuesta As Boolean = True
         Me.CveSubProyecto = CveSubProyecto
@@ -6886,6 +6886,7 @@ Public Class ClsCompraManager
         Me.CveTipoPoliza = 3
         Me.NumeroReembolso = NumeroReembolso
         Me.DTPagosDeudores = DTPagosDeudores
+        Me.Observaciones = Observaciones
 
         If TipoComprobante.Length > 0 Then
             Me.TipoComprobante = TipoComprobante

Empresas/189/Formatos/Entradas.rdlc

@@ -2042,7 +2042,7 @@
                 <Paragraph>
                   <TextRuns>
                     <TextRun>
-                      <Value>Capturo:</Value>
+                      <Value>Capturó:</Value>
                       <Style>
                         <FontFamily>Myriad Pro</FontFamily>
                         <FontSize>8pt</FontSize>

Nomina/Nomina.aspx

@@ -817,7 +817,6 @@
                         </div>
 
                     </div>
-
                     <div class="modal-footer">
                         <asp:LinkButton ID="LnkGuardarASistencia" OnClick="LnkGuardarASistencia_Click" CssClass="btn btn-primary" runat="server">Guardar</asp:LinkButton>
                     </div>
@@ -2186,29 +2185,23 @@
                     </div>
                 </div>
 
-                <div id="ModalMovtoPermanente" class="modal ADS fade" role="dialog">
+            </ContentTemplate>
+            <Triggers>
+                <%--<asp:PostBackTrigger  ControlID="BtnImprimirsobrerecibo"  />--%>
+            </Triggers>
+        </asp:UpdatePanel>
+    </div>
 
+    <div id="ModalMovtoPermanente" class="modal ADS fade" role="dialog">
         <asp:UpdatePanel ID="UpMovtosPermanentesModal" UpdateMode="Conditional" class="modal-dialog" runat="server">
             <ContentTemplate>
-                            <div class="modal-content">
+                <div class="modal-content" style="max-width: 600px;">
                     <div class="modal-header ">
-
                         <button type="button" class="close" onclick="$('#ModalMovtoPermanente').modal('hide');return;">&times;</button>
                         <h4 class="modal-title">Movimiento permanente</h4>
                     </div>
                     <div class="modal-body">
-                                    <asp:Panel runat="server" Visible="false" CssClass="portlet light  xspadding bordered " ID="pnlAddupMovto">
+                        <asp:Panel runat="server" Visible="false" ID="pnlAddupMovto">
-                                        <div class="portlet-title">
-                                            <div class="caption ">
-                                                <i class="icon-pin font-yellow-gold"></i>
-                                                <span class="caption-subject font-yellow-gold bold uppercase">
-                                                    <asp:Literal ID="LtlMovtoPermanenteaddup" runat="server"></asp:Literal></span>
-                                            </div>
-                                            <div class="tools">
-                                                <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
-                                            </div>
-                                        </div>
-                                        <div class="portlet-body ">
                             <div class="form-group form-md-line-input input-iconright">
                                 <asp:TextBox ID="TxtDescripcion" CssClass="form-control" runat="server"></asp:TextBox>
                                 <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtDescripcion" CssClass="help-block errorimput"
@@ -2310,10 +2303,12 @@
                                     <asp:CheckBox ID="ChkPermEsAcumulado" CssClass="chksino " Text=" " runat="server" />
                                 </div>
                             </div>
-                                        </div>
-                                    </asp:Panel>
 
-                                    <asp:GridView ID="GVMovtoPermanenteSaldos" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall" AutoGenerateColumns="False"
+                        </asp:Panel>
+                        <br />
+                        <div class="row">
+                            <div class="col-md-12">
+                                <asp:GridView ID="GVMovtoPermanenteSaldos" runat="server" GridLines="None" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" BorderWidth="1" BorderColor="#D3D3D3" CellSpacing="0" Width="100%" AutoGenerateColumns="False" data-heighterror="600"
                                     DataKeyNames="CveTipo,Nombre,Concepto,CveMovtoPermanente,FechaFin,CvePeriodo,NoPagos,ImportePagos,Pagado,Total,Saldo,Fecha">
                                     <Columns>
                                         <asp:TemplateField HeaderText="Nombre">
@@ -2321,26 +2316,6 @@
                                                 <asp:Label ID="lblnombre" runat="server" Text='<%# Eval("Nombre")%>'> </asp:Label>
                                             </ItemTemplate>
                                         </asp:TemplateField>
-                                            <%--<asp:TemplateField HeaderText="Concepto">
-                                                                                <ItemTemplate>
-                                                                                    <asp:Label ID="lblconcepto" runat="server" Text='<%# Eval("Concepto")%>'> </asp:Label>
-                                                                                </ItemTemplate>
-                                                                            </asp:TemplateField>
-                                                                            <asp:TemplateField HeaderText="Cve Movto Permanente">
-                                                                                <ItemTemplate>
-                                                                                    <asp:Label ID="lblcveMovtoPermanente" runat="server" Text='<%# Eval("CveMovtoPermanente")%>'> </asp:Label>
-                                                                                </ItemTemplate>
-                                                                            </asp:TemplateField>--%>
-                                            <%--<asp:TemplateField HeaderText="Fecha Fin">
-                                                                                <ItemTemplate>
-                                                                                    <asp:Label ID="lblfechaFin" runat="server" Text='<%# Eval("FechaFin")%>'> </asp:Label>
-                                                                                </ItemTemplate>
-                                                                            </asp:TemplateField>--%>
-                                            <%--<asp:TemplateField HeaderText="Cve Periodo">
-                                                                                <ItemTemplate>
-                                                                                    <asp:Label ID="lblcvePeriodo" runat="server" Text='<%# Eval("CvePeriodo")%>'> </asp:Label>
-                                                                                </ItemTemplate>
-                                                                            </asp:TemplateField>--%>
                                         <asp:TemplateField HeaderText="Fecha">
                                             <ItemTemplate>
                                                 <asp:Label ID="lblfecha" runat="server" Text='<%# Eval("Fecha")%>'> </asp:Label>
@@ -2374,24 +2349,19 @@
                                     </Columns>
                                 </asp:GridView>
                             </div>
+                        </div>
+                    </div>
                     <div class="modal-footer">
                         <asp:LinkButton ID="LnkAddMovto" OnClick="LnkAddMovto_Click" ValidationGroup="GrpGuardarMovyoPerma" CssClass="btn btn-primary" runat="server">Guardar</asp:LinkButton>
                         <asp:LinkButton ID="LnkUpMovto" OnClick="LnkUpMovto_Click" ValidationGroup="GrpGuardarMovyoPerma" CssClass="btn btn-success" runat="server">Actualizar</asp:LinkButton>
 
                         <button type="button" class="btn btn-danger" onclick="$('#ModalMovtoPermanente').modal('hide');return;">Cancelar</button>
-
                     </div>
                 </div>
-
             </ContentTemplate>
         </asp:UpdatePanel>
     </div>
-            </ContentTemplate>
+
-            <Triggers>
-                <%--<asp:PostBackTrigger  ControlID="BtnImprimirsobrerecibo"  />--%>
-            </Triggers>
-        </asp:UpdatePanel>
-    </div>
     <div id="ModalUpConcepto" class="modal ADS fade" role="dialog">
 
         <asp:UpdatePanel class="modal-dialog " runat="server" ID="UPpanelModalUpConcepto" UpdateMode="Conditional">
@@ -2525,12 +2495,11 @@
                     </div>
                     <div class="modal-body">
 
-
-
                         <div style="text-align: right;">
                             <input type="text" id="TxtBusquedaNPT" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaNPT','{0}')", GVNominaPendiente.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
                             <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaNPT','{0}')", GVNominaPendiente.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm font-bold yellow-gold"><i class="icon-magnifier"></i></a>
                         </div>
+
                         <asp:GridView ID="GVNominaPendiente" runat="server" CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD Widthall GvNominas" DataKeyNames="CvePeriodo,CvePersonal,CveNomina"
                             Style="text-align: center;" GridLines="None" data-rows="1" data-heighterror="500" ShowHeaderWhenEmpty="true" ShowHeader="true" AutoGenerateColumns="false"
                             OnRowDataBound="GVNominaPendiente_RowDataBound">
@@ -5208,9 +5177,6 @@
                         </h4>
                     </div>
                     <div class="modal-body">
-
-
-
                         <div class="portlet light bordered xspadding" id="portletpersonalizarxls">
                             <div class="portlet-title">
                                 <div class="caption font-green">
@@ -5285,7 +5251,6 @@
                                 </asp:TemplateField>
                             </Columns>
                         </asp:GridView>
-
                     </div>
                     <div class="modal-footer">
                         <asp:LinkButton ID="LnkFormatoPersonalizado" OnClick="LnkFormatoPersonalizado_Click" runat="server" CssClass="btn btn-primary" ValidationGroup="grpno-validacion"> Descargar</asp:LinkButton>

Nomina/Nomina.aspx.cs

@@ -7678,7 +7678,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
         pnlAddupMovto.Visible = true;
         LnkAddMovto.Visible = true;
         LnkUpMovto.Visible = false;
-        LtlMovtoPermanenteaddup.Text = "Agregar Movimiento";
+        //LtlMovtoPermanenteaddup.Text = "Agregar Movimiento";
 
         TxtDescripcion.Text = "";
         TxtValor.Text = "";
@@ -7687,8 +7687,12 @@ public partial class Nomina_Nomina2 : ClsPaginas
         TxtFechaAplicacion.Text = "";
         ChkEstatus.Visible = true;
         ChkEstatus.Checked = true;
+
+        GVMovtoPermanenteSaldos.DataSource = null;
+        GVMovtoPermanenteSaldos.DataBind();
+
         UpMovtosPermanentesModal.Update();
-        RegistraScript("$('#ModalMovtoPermanente').modal()");
+        RegistraScript("$('#ModalMovtoPermanente').modal({backdrop: 'static', keyboard: false});");
 
     }
 
@@ -7831,9 +7835,18 @@ public partial class Nomina_Nomina2 : ClsPaginas
         TxtVecesAplicar.Text = vecesAplicar.ToString();
         TxtMontoLimite.Text = montoLimite.ToString();
         TxtFechaAplicacion.Text = $"{fechaInicioAplicacion:dd/MM/yyyy}";
+        if (CveCuenta > 0)
+        {
+            DdlCtaContable.SelectedValueExist(CveCuenta);
+        }
+        else
+        {
             DdlCtaContable.SelectedValueExist("-1");
+        }
+
+
         ChkEstatus.Checked = estatus;
-        RegistraScript("$('#ModalMovtoPermanente').modal()");
+        RegistraScript("$('#ModalMovtoPermanente').modal({backdrop: 'static', keyboard: false});");
 
 
         pnlAddupMovto.Visible = true;
@@ -8195,7 +8208,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
             }
         }
         UpModalAsistencia.Update();
-        RegistraScript("$('#DModalModAsistencia').modal();");
+        RegistraScript("$('#DModalModAsistencia').modal({backdrop: 'static', keyboard: false});");
     }
 
     protected void LnkSimulador_Click(object sender, EventArgs e)

OC/OC.aspx.vb

@@ -1105,7 +1105,10 @@ Partial Class OC_OC
                 End If
             End If
 
+            If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
                 DdlUsoCFDI.SelectedValueExist(1)
+            End If
+
 
         End If
 

Ventas/Clientes.aspx

@@ -5753,7 +5753,7 @@
                             </div>
                             <div class="row">
                                 <div style="height: 300px; overflow-y: auto;">
-                                    <asp:GridView ID="GvImportarSaldos" DataKeyNames="CveIE, CveCliente,Total,IVA,Original,PorcentajeIVA,Tipo,CveVenta" AutoGenerateColumns="false" GridLines="None"
+                                    <asp:GridView ID="GvImportarSaldos" DataKeyNames="CveIE, CveCliente,Total,IVA,Original,PorcentajeIVA,Tipo,CveVenta,Folio" AutoGenerateColumns="false" GridLines="None"
                                         CssClass="table table-striped table-hover Widthall" runat="server">
                                         <Columns>
                                             <asp:TemplateField ItemStyle-Width="5%">

Ventas/Clientes.aspx.vb

@@ -3850,6 +3850,7 @@ Partial Class Clientes
         End If
         ObjEventoBitacora.Dispose()
         GvEB.DataBind()
+        UPEventoBitacora.Update()
     End Sub
 
     Protected Sub DownloadFile(ByVal sender As Object, ByVal e As EventArgs)
@@ -4801,6 +4802,8 @@ Partial Class Clientes
 
         Dim ObjConta As New ClsContabilidad
         ObjConta.IniciaTransacSQL()
+        Dim ObjEventoBitacora As New ClsOIEventos(ObjConta.IniciaTransacSQL())
+
         Dim TieneError As Boolean = False
 
 
@@ -4871,18 +4874,54 @@ Partial Class Clientes
                         End If
                     End If
 
+
+                    If Not TieneError Then
+                        Dim CveIE As Integer = -1
+                        Dim Folio As String = Gvr.DataKey("Folio")
+                        Dim Liga As String = ""
+
+                        Select Case Tipo
+                            Case "Ant", "NC"
+                                CveVenta = Gvr.DataKey("CveVenta").ToEntero()
+                                Liga = $"./Ventas.aspx?CveVenta={CveVenta}"
+                            Case "IxC"
+                                CveIE = Gvr.DataKey("CveIE").ToEntero()
+                                Liga = $"../Bancos/IE.aspx?CveIE={CveIE}"
+                        End Select
+
+                        Dim DescripcioBitacora As String = $"Ha sido reclasificado el folio <a href='{Liga}' target='_blank' class='Texto' >{Folio}</a> al cliente: {DdlClienteImportarSaldos.txtText.Value}"
+
+                        If Not ObjEventoBitacora.AddEventoBitacora(DescripcioBitacora, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, DdlClienteImportarSaldos.SelectedValue.ToEntero(), -1, -1, -1, -1, -1) Then
+                            TieneError = True
                         End If
+
+                        If Not TieneError Then
+                            If Not ObjEventoBitacora.AddEventoBitacora(DescripcioBitacora, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, CveCliente, -1, -1, -1, -1, -1) Then
+                                TieneError = True
+                            End If
+                        End If
+
+
+                    End If
+
+                End If
+
             Next
         Else
             TieneError = True
         End If
 
 
+
+
+
+
         If Not TieneError Then
             ObjConta.Commit()
             Alert($"La importación de saldos se hizo correctamente.", TipoMensaje.MsgInformacion)
             TxtSaldoImportar.Text = ""
             ConsultarAnticiposSaldosClientes()
+            CargaEventoBitacora()
         Else
             ObjConta.RollBack()
             Alert("Ocurrió un error al importar los saldos. Por favor vuelva a intentar.", TipoMensaje.MsgError)

Ventas/ProductosServicios.aspx

@@ -114,7 +114,7 @@
                                                     <asp:TextBox ID="TxtCodigo" CssClass="form-control " runat="server" MaxLength="50"></asp:TextBox>
                                                     <label class="truncate" style="padding-left: 16px;" for="<%= TxtCodigo.ClientID.ToString()%>">Código:</label>
                                                     <i></i>
-                                                    <asp:Button ID="BtnConsultaCodigo" runat="server" Text="" Visible="false"  style="display:none;" OnClick="BtnConsultaCodigo_Click" />
+                                                    <asp:Button ID="BtnConsultaCodigo" runat="server" Text="" Visible="false" Style="display: none;" OnClick="BtnConsultaCodigo_Click" />
                                                 </asp:Panel>
                                             </div>
                                             <div class="form-group form-md-line-input input-iconright col-xs-4">
@@ -1206,11 +1206,12 @@
                                                 </div>
                                                 <div class="row" style="margin-top: 5px;">
                                                     <label class="col-md-6 truncate">Ultimo Costo</label>
-                                                    <div class="col-md-1">
+                                                    <div class="col-md-1" id="DivUltimoCosto" runat="server">
                                                         <asp:Label ID="LblUltimoCosto" runat="server"></asp:Label>
                                                     </div>
-                                                    <div class="col-md-5" runat="server" id="DVEditaUltimoCosto" visible="false" style="text-align:left">
+                                                    <div class="col-md-5" runat="server" style="text-align: left">
-                                                        <asp:LinkButton ID="LnkEditarUltimoCostoMostrarModal" runat="server" CssClass="btn btn-circle btn-sm green" OnClick="LnkEditarUltimoCostoMostrarModal_Click" Text="<i class='fa fa-pencil'></i>" />
+                                                        <asp:TextBox ID="TxtUltimoCosto" CssClass="form-control " runat="server" Visible="false" Width="100px"></asp:TextBox>
+                                                        <asp:LinkButton ID="LnkEditarUltimoCostoMostrarModal" runat="server" visible="false" CssClass="btn btn-circle btn-sm green" OnClick="LnkEditarUltimoCostoMostrarModal_Click" Text="<i class='fa fa-pencil'></i>" />
                                                     </div>
                                                 </div>
                                                 <div class="row" style="margin-top: 5px;">

Ventas/ProductosServicios.aspx.vb

@@ -356,9 +356,16 @@ Partial Class ProductosyServicios
             End If
 
 
-            If CvePS > 0 And UsuarioActual.TienePermisoProceso(402) Then
+            If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
-                DVEditaUltimoCosto.Visible = True
+                If CvePS > 0 Then
+                    LnkEditarUltimoCostoMostrarModal.Visible = UsuarioActual.TienePermisoProceso(402)
+                Else
+                    DivUltimoCosto.Visible = False
+                    TxtUltimoCosto.Visible = True
                 End If
+                UpConta.Update()
+            End If
+
 
         End If
     End Sub
@@ -1423,6 +1430,13 @@ Partial Class ProductosyServicios
     End Sub
     Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
 
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso CvePS <= 0 AndAlso DdlTipoPS.SelectedValue = "2" Then
+            If TxtUltimoCosto.Text.ToDecimal() <= 0 Then
+                Alert("El campo 'Ultimo costo' es requerido.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+        End If
+
 
         If DdlFraccionArancelaria.SelectedValue.ToEntero > 0 AndAlso TxtCodigo.Text.Trim.Length = 0 Then
             Alert("El campo Numero de Parte / Código es requerido (al seleccionar una Fracción Arancelaria el campo Numero de Parte / Código se vuelve requerido).", TipoMensaje.MsgAdvertencia)
@@ -1583,7 +1597,7 @@ Partial Class ProductosyServicios
                                                CveObjetoImpuesto:=DdlObjetoImpuesto.SelectedValue.ToEntero, Litraje:=TxtLitraje.Text.ToDecimal, RegistroRSCO:=TxtRegistroRSCO.Text, FechaVigenciaRSCO:=TxtFechaVigenciaRSCO.Text.ToDate, VigenciaIndeterminadaRSCO:=ChkFechaIndeterminadaRSCO.Checked,
                                                NombreComercial:=TxtNombreComercial.Text.Trim, NotasAdicionales:=TxtEcommerceNota.Text.Trim, EcommerceEtiquetas:=TxtEcommerceEtiquetas.Text.Trim.Replace(".", ""), EcommercePrecio:=TxtEcommercePrecio.Text.Trim.ToDecimal,
                                                CveClasificacionEcommerce:=DdlEcommerceClasificacion.SelectedValue.ToEntero, EcommerceCantidad:=TxtEcommerceCantidad.Text.Trim.ToDecimal, CodigoAlterno:=TxtCodigoAlterno.Text.Trim, PSAlterno:=TxtPSAlterno.Text.Trim, ProductoExhibicion:=ChkPSExhibicion.Checked,
-                                               PorcentajeMinimoUtilidad:=TxtPorMinimoUtilidad.Text.ToDecimal(), CveSelectiva:=DdlSelectiva.SelectedValue.ToEntero()) > 0 Then
+                                               PorcentajeMinimoUtilidad:=TxtPorMinimoUtilidad.Text.ToDecimal(), CveSelectiva:=DdlSelectiva.SelectedValue.ToEntero(), UltimoCosto:=TxtUltimoCosto.Text.ToDecimal()) > 0 Then
                     ViewState("CvePS") = ObjProductosServicios.CvePS
                     For Each GVR As GridViewRow In GvImpuestosLocales.Rows
                         If GVR.FCCheckBox("ChkDeduccion").Checked Then