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

App_Code/ClsContabilidad.vb

@@ -1000,6 +1000,12 @@ Public Class ClsContabilidad
             ElseIf ex1.Message.Contains("UK_Vw_Val_Conta_CuentasResultados_SubProyectos") Then
                 Dim Concepto3 As String = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("ConceptoContable", String.Format("CveConceptoContable = {0}", CveConceptoContable))
                 OnError(String.Format("El concepto '{0}' requiere centro de costo", Concepto3), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            ElseIf ex1.Message.Contains("50025;") Then
+                OnError("La empresa no tiene un formato de cuenta asignado.", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            ElseIf ex1.Message.Contains("50026;") Then
+                OnError("El proveedor ya tiene asignada una cuenta.", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            ElseIf ex1.Message.Contains("50027;") Then
+                OnError("No se pudo asignar la cuenta al proveedor.", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
             Else
                 OnError("Ocurrió un error al Guardar", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
             End If '

Contabilidad2/CatCuentasAsignaciones.aspx

@@ -239,6 +239,7 @@
                                         <div class="form-group form-md-line-input input-iconright" id="div3" runat="server" >
                                             <asp:DropDownList ID="DdlTipoGlobal" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server"   Width="240px" ValidationGroup="GrpModulo2" >
                                                 <asp:ListItem Text="Mayor" Value="1"></asp:ListItem>
+                                                <asp:ListItem Text="Desglosado" Value="2"></asp:ListItem>
                                             </asp:DropDownList>
                                             <label for="<%= DdlTipoGlobal.ClientID.ToString()%>">Tipo Global: </label>
                                         </div> 

Inventarios/RecepcionUsados.aspx.vb

@@ -2803,11 +2803,20 @@ Partial Class Inventarios_RecepcionUsados
                         PS = Dr("PSCodigo").ToString
                         UnidadMedida = Dr("UnidadMedida").ToString
                         Clasificacion = Dr("Clasificacion").ToString
+
                     End If
                     PorcentajeIVA = 0.16D
                     IVA = SubTotal * PorcentajeIVA
+                    Dim Descuento As Decimal = 0
 
-                    AddPSRNC(ObjRemisionNC.DtDetalle, Cantidad, CveUnidadMedida, UnidadMedida, CveClasificacion, Clasificacion, CvePS, PS, "", PU, 0, -1, "",
+                    Dim ImporteCargo As Decimal = GlobalDTAcumTamaños().FiltroPrimeroValor("Cargo", String.Format("CveTamaño = {0} AND CveEmpresa = {1}", CveTamaño, UsuarioActual.CveEmpresa)).ToDecimal()
+
+                    'SI ES AJUSTE O GARANTIA SOLO DEBE SUMAR EL IMPORTE DE LA GARANTIA SI NO RECIBIO USADO
+                    If RblUsadosAjuste.SelectedValue = "1" AndAlso ImporteCargo <= 0 Then
+                        Descuento = (Cantidad * PU).RoundSQL(6)
+                    End If
+
+                    AddPSRNC(ObjRemisionNC.DtDetalle, Cantidad, CveUnidadMedida, UnidadMedida, CveClasificacion, Clasificacion, CvePS, PS, "", PU, Descuento, -1, "",
                             ObjRemisionNC.CveSubProyecto, ObjRemisionNC.SubProyecto.SubProyecto, PorcentajeIVA:=PorcentajeIVA, CveTamaño:=CveTamaño)
                 Else
                     Alert("No se pudo cargar el producto", TipoMensaje.MsgError)
@@ -2863,14 +2872,14 @@ Partial Class Inventarios_RecepcionUsados
         Dim ImporteRetIVA As Decimal = ObjRemisionNC.DtDetalle.SUM("ImporteRetIVA").ToDecimal()
         Dim ImporteRetISR As Decimal = ObjRemisionNC.DtDetalle.SUM("ImporteRetISR").ToDecimal()
         Dim ImporteIEPS As Decimal = ObjRemisionNC.DtDetalle.SUM("ImporteIEPS").ToDecimal()
-        Dim Descuento As Decimal = ObjRemisionNC.DtDetalle.SUM("Descuento").ToDecimal()
+        Dim DescuentoTotal As Decimal = ObjRemisionNC.DtDetalle.SUM("Descuento").ToDecimal()
         Dim Amortizacion As Decimal = 0
 
-        Dim Total As Decimal = (TotalImporte + ImporteIVA + ImporteIEPS) - (ImporteRetIVA + ImporteRetISR + Descuento + Amortizacion)
+        Dim Total As Decimal = (TotalImporte + ImporteIVA + ImporteIEPS) - (ImporteRetIVA + ImporteRetISR + DescuentoTotal + Amortizacion)
 
         'DETALLES
         ObjRemisionNC.SubTotal = TotalImporte
-        ObjRemisionNC.Descuento = Descuento
+        ObjRemisionNC.Descuento = DescuentoTotal
         ObjRemisionNC.Amortizacion = Amortizacion
         ObjRemisionNC.IVA = ImporteIVA
         ObjRemisionNC.RetIVA = ImporteRetIVA

LogIn.aspx

@@ -90,7 +90,7 @@
                             </div>
 
                             <div class="copyright">
-                                <asp:Literal ID="Ltlcopyright" runat="server">2019 © AD Sistemas.</asp:Literal>
+                                <asp:Literal ID="Ltlcopyright" runat="server">2022 © AD Sistemas.</asp:Literal>
                             </div>
                             <%--<div class="col-lg-offset-4 col-md-offset-4 col-sm-offset-3 col-lg-4 col-md-4 col-sm-6 col-xs-12 text-right">
                                 <asp:LinkButton ID="linkRegistrar" runat="server" CssClass="restaurar-password" OnClientClick="window.location.href='ActivarUsuario.aspx'">Registrar</asp:LinkButton>

Sistemas/PopUpSeleccionarEmpresa.aspx

@@ -46,14 +46,14 @@
                         <AlternatingRowStyle CssClass="TextoAlterno" />
                     </asp:GridView>
 
-                    <asp:GridView ID="GvPortalRastreo" runat="server" DataKeyNames="CveUsuario, CveCliente, Contraseña, Usuario" AutoGenerateColumns="false" ShowHeaderWhenEmpty="false"
+                    <asp:GridView ID="GvPortalRastreo" runat="server" DataKeyNames="CveUsuario, CveCliente, Contraseña, Usuario,CveEmpresa" AutoGenerateColumns="false" ShowHeaderWhenEmpty="false" OnRowDataBound="GvPortalRastreo_RowDataBound"
                         Width="100%" ToolTip="Listado de Empresas a las que tiene acceso." CssClass="table table-striped table-advance table-hover GVSearch"
                         Style="margin-top: -10px; text-align: center;" GridLines="None">
                         <Columns>
                             <asp:TemplateField>
                                 <HeaderTemplate>Portal Rastreo</HeaderTemplate>
                                 <ItemTemplate>
-                                    <asp:LinkButton ID="LnkEmp" runat="server" CssClass="Texto" Text='<%# Eval("Cliente")%>' CommandArgument='<%# Eval("CveCliente") %>' CommandName="Cambia"></asp:LinkButton>
+                                    <asp:HyperLink ID="HlpPortal" runat="server" CssClass="Texto" Target="_blank" Text='<%# Eval("Cliente")%>' ></asp:HyperLink>
                                 </ItemTemplate>
                                 <ItemStyle HorizontalAlign="Left" />
                                 <HeaderStyle HorizontalAlign="Left" />
@@ -113,8 +113,9 @@
             $('#BtnSeleccionar').click();
         }
 
-        function Ir2() {
+        function Ir2(url) {
-            gotourl('/PortalGPS/InicioGPS.aspx');
+            //gotourl('/PortalGPS/InicioGPS.aspx');
+            gotourl(url);
         }
 
         function Ir3() {

Sistemas/PopUpSeleccionarEmpresa.aspx.vb

@@ -93,41 +93,6 @@ Partial Class PopUpSeleccionarEmpresa
             End If
         End If
 
-    End Sub
-    Protected Sub GvPortalRastreo_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) Handles GvPortalRastreo.RowCommand
-        If e.CommandName = "Cambia" Then
-            Dim gvr As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).BindingContainer, GridViewRow)
-
-            If gvr IsNot Nothing Then
-
-                Dim ObjUsuario As New ClsSisUsuarios
-                Dim Usuario As Usuario = Nothing
-                Usuario = ObjUsuario.ValidaUsuarioGPS2(gvr.DataKey("CveCliente"), gvr.DataKey("Usuario"), gvr.DataKey("Contraseña"))
-                ObjUsuario.Dispose()
-
-                If Usuario IsNot Nothing Then
-                    Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario)
-                    Dim ModoSimulacion As Boolean = ADSSession.ADSSessionConfig.sessionUser.ModoSimulacion
-                    Usuario.ModoSimulacion = ModoSimulacion
-                    ADSSession.ADSSessionConfig.sessionUser = Usuario
-                    ADSSession.ADSSessionConfig.sessionDpage = False
-
-                    If dt IsNot Nothing Then
-                        If dt.Rows.Count >= 1 Then
-                            If dt.Rows.Count > 1 Then Usuario.MultipleEmpresa = True
-                            Usuario.CvePlataforma = 3
-                            CreaObjetoEmpresa(Usuario)
-                            'si la contraseña es la prederminada, pide la nueva contraseña
-                            'FormsAuthentication.RedirectFromLoginPage(Encripta(Usuario.CveUsuario.ToString), False)
-                            RegistraScript("Ir2();")
-                        End If
-                    End If
-                    dt.Dispose()
-                End If
-
-            End If
-
-        End If
     End Sub
     Protected Sub GvPortalCliente_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) Handles GvPortalCliente.RowCommand
         If e.CommandName = "Cambia" Then
@@ -263,4 +228,15 @@ Partial Class PopUpSeleccionarEmpresa
     End Sub
 #End Region
 
+    Protected Sub GvPortalRastreo_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            Dim Parametros As String = Encripta($"OPCION=PORTALGPS&CVEEMPRESA={e.Row.DBCampo("CveEmpresa")}&CVECLIENTE={e.Row.DBCampo("CveCliente")}&CVEUSUARIO={UsuarioActual.CveUsuario}&TICKS={Now.Ticks}")
+
+            Dim SitioGPS As String = "https://gps.signalsgps.com/"
+
+            Dim URLGPS As String = $"{SitioGPS}LogIn.aspx?P={Parametros}"
+
+            e.Row.FCHyperLink("HlpPortal").NavigateUrl = URLGPS
+        End If
+    End Sub
 End Class

Ventas/Ventas.aspx.vb

@@ -27021,7 +27021,7 @@ Partial Class Ventas
 
         Dim ObjMovtos As New ClsMovimientos()
         If ObjMovtos.GetRemisionesNCCliente(CveCliente, True, CveMoneda:=-1) Then
-            Me.TmpDTRNCDetalle = ObjMovtos.DtResultados.Copy()
+            Me.TmpDTRNCDetalle = ObjMovtos.DtResultados.FiltraParametros("Total > 0")
         End If
         ObjMovtos.Dispose()