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

Acumuladores/Tamaños.aspx.vb

@@ -137,6 +137,7 @@ Partial Class Acumuladores_Tamaños
                 UpGral.Update()
 
                 Alert("Tamaño Agregado Correctamente", TipoMensaje.MsgInformacion)
+                GlobalDTAcumTamaños(UsuarioActual.CveEmpresa) = Nothing
             Else
                 Alert("Ocurrio un error al guardar  el Tamaño", TipoMensaje.MsgError)
             End If
@@ -156,6 +157,7 @@ Partial Class Acumuladores_Tamaños
 
                 UpGral.Update()
                 Alert("Tamaño Actualizado Correctamente", TipoMensaje.MsgInformacion)
+                GlobalDTAcumTamaños(UsuarioActual.CveEmpresa) = Nothing
             Else
                 Alert("Ocurrio un error al Actualizar  el Tamaño", TipoMensaje.MsgError)
             End If

General/SaldosIniciales.aspx.vb

@@ -347,27 +347,36 @@ Partial Class General_SaldosIniciales
                     End If
 
                     If RblFormato.SelectedValue = "17" Then
-                        If Not dt.Columns(17).ColumnName = "Cantidad" Then
+
-                            Alert("El nombre de la Decimoctava columna debe ser 'Cantidad'. Favor de corregirlo", TipoMensaje.MsgError)
+                        If Not dt.Columns(17).ColumnName = "Vendedor" Then
+                            Alert("El nombre de la Decimoctava columna debe ser 'Vendedor'. Favor de corregirlo", TipoMensaje.MsgError)
                             Exit Sub
                         End If
 
-                        If Not dt.Columns(18).ColumnName = "Codigo" Then
+                        If Not dt.Columns(18).ColumnName = "Cantidad" Then
-                            Alert("El nombre de la Decimonovena columna debe ser 'Codigo'. Favor de corregirlo", TipoMensaje.MsgError)
+                            Alert("El nombre de la Decimonovena columna debe ser 'Cantidad'. Favor de corregirlo", TipoMensaje.MsgError)
                             Exit Sub
                         End If
-                        If Not dt.Columns(19).ColumnName = "PU" Then
+
-                            Alert("El nombre de la Vigésima columna debe ser 'PU'. Favor de corregirlo", TipoMensaje.MsgError)
+                        If Not dt.Columns(19).ColumnName = "Codigo" Then
+                            Alert("El nombre de la Vigésima columna debe ser 'Codigo'. Favor de corregirlo", TipoMensaje.MsgError)
                             Exit Sub
                         End If
-                        If Not dt.Columns(20).ColumnName = "IVADetalle" Then
+                        If Not dt.Columns(20).ColumnName = "PU" Then
-                            Alert("El nombre de la Vigésimo primera columna debe ser 'IVADetalle'. Favor de corregirlo", TipoMensaje.MsgError)
+                            Alert("El nombre de la Vigésimo primera columna debe ser 'PU'. Favor de corregirlo", TipoMensaje.MsgError)
                             Exit Sub
                         End If
-                        If Not dt.Columns(21).ColumnName = "IEPS" Then
+                        If Not dt.Columns(21).ColumnName = "IVADetalle" Then
-                            Alert("El nombre de la Vigésimo segunda columna debe ser 'IEPS'. Favor de corregirlo", TipoMensaje.MsgError)
+                            Alert("El nombre de la  Vigésimo segunda columna debe ser 'IVADetalle'. Favor de corregirlo", TipoMensaje.MsgError)
                             Exit Sub
                         End If
+                        If Not dt.Columns(22).ColumnName = "IEPS" Then
+                            Alert("El nombre de la Vigésimo tercera columna debe ser 'IEPS'. Favor de corregirlo", TipoMensaje.MsgError)
+                            Exit Sub
+                        End If
+
+
+
                     End If
                 End If
 

Ventas/PVCobranza.aspx.vb

@@ -1319,7 +1319,7 @@ Partial Class Ventas_PVCobranza
 
         If ObjPVenta.GetVta_MetodosPago(CveCorte) Then
             If ObjPVenta.DtResultados.Rows.Count > 0 Then
-                GvMetodosPago.DataSource = ObjPVenta.DtResultados
+                GvMetodosPago.DataSource = ObjPVenta.DtResultados.FiltraParametros(" CveTipoTransaccion <> 2")
                 GvMetodosPago.DataBind()
                 UpMetodosPago.Update()
             End If

Ventas/Promociones.aspx

@@ -165,10 +165,23 @@
                             
                             <div class="row">
                                 <label class="col-md-2 truncate">Estatus:</label>
-                                <div class="col-md-4">
+                                <div class="col-md-2">
                                     <asp:CheckBox ID="ChkEstatus" runat="server" />
                                 </div>
+                                <div class="col-md-1">
+                                    Usuario:
+                                </div>
+                                <div class="col-md-4">
+                                    <asp:Label runat="server" ID="LblUsuario"></asp:Label>
+                                </div>
+                                <div class="col-md-1">
+                                    Fecha:
+                                </div>
+                                <div class="col-md-2">
+                                    <asp:Label runat="server" ID="LblFechaIng"></asp:Label>
+                                </div>
                             </div>
+                            
 
                         </div>
                     </div>

Ventas/Promociones.aspx.vb

@@ -431,6 +431,8 @@ Partial Class Ventas_Promociones
             TxtFechaF.Text = Dr("FechaFin").ToString.ToDate.ToShortDateString
             DdlSubProyecto.SelectedValue = Dr("CveSubProyecto").ToString
             DdlMarca.SelectedValue = Dr("CveMarca").ToString
+            LblUsuario.Text = Dr("Usuario").ToString
+            LblFechaIng.Text = Dr("FechaIng").ToString.ToDate.ToString("dd/MM/yyyy")
             If Dr("CveVendedor").ToString.ToEntero > 0 Then DdlVendedor.SelectedValue = Dr("CveVendedor").ToString
 
             If Dr("CveCliente").ToString.ToEntero > 0 Then

Ventas/Ventas.aspx.vb

@@ -10,6 +10,7 @@ Imports System.Security.Cryptography.X509Certificates
 Imports ADSNetLibrary.SIGAPI.Models.CRM.Request
 Imports ADSNetLibrary.SIGAPI.Services.CRM
 Imports ADSTimbrado
+Imports com.itextpdf.text.pdf.languages
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
 Imports Modelos
@@ -7777,8 +7778,9 @@ Partial Class Ventas
 
             End If
         End If
-
+        Dim tTipoDocto As String = ""
-        If Not EsFilial AndAlso (((DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot", "PA") AndAlso CveVenta <= 0) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Cot", "Rem") AndAlso CveVenta > 0)) AndAlso RBLPago.SelectedValue = "1" AndAlso PermiteCredito) Then
+        If ValorAutorizacion = "3" Then tTipoDocto = "Rem"
+        If Not EsFilial AndAlso (((DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot", "PA") AndAlso CveVenta <= 0) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Cot", tTipoDocto) AndAlso CveVenta > 0)) AndAlso RBLPago.SelectedValue = "1" AndAlso PermiteCredito) Then
             'FUNCIONALIDAD 702 - NO VERIFICAR LIMITE DE CRÉDITO Y CANDADOS DE VENTA
             If Not UsuarioActual.Empresa.Funcionalidad(702) = "1" Then
 
@@ -9476,7 +9478,7 @@ Partial Class Ventas
     Private Sub GvInv_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvInv.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
 
-            If UsuarioActual.Empresa.Funcionalidad(567) = "1" Then
+            If UsuarioActual.Empresa.Funcionalidad(567) = "1" OrElse (UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso DdlTipoComprobante.SelectedValue = "Dev") Then
                 e.Row.FCCheckBox("cbInv").Checked = True
             End If
 
@@ -16552,7 +16554,7 @@ Partial Class Ventas
                     Next
                 End If
 
-                If UsuarioActual.Empresa.Funcionalidad(567) = "1" AndAlso factura.TipoDocto.Contiene("Ing", "Dev") AndAlso DivAlmacen.Visible AndAlso GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) > 0 Then
+                If factura.TipoDocto.Contiene("Ing", "Dev") AndAlso DivAlmacen.Visible AndAlso GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) > 0 Then
 
                     Dim Filtro As String = ""
                     Select Case factura.TipoDocto
@@ -16640,12 +16642,22 @@ Partial Class Ventas
                                         If drPU IsNot Nothing Then
                                             PU = drPU("PU").ToString.ToDecimal
                                         Else
-                                            'sino se encontró valor, manda mensaje
+                                            'OBTENGO EL ÚLTIMO COSTO
-                                            ErrorList.Add("Ocurrió un error al obtener el costo.<br />")
+                                            Dim ObjInventarios As New ClsInventarios
-                                            OcurrioError = True
+                                            If ObjInventarios.GetUltimoCosto(UsuarioActual.CveEmpresa, Dr("CvePS").ToString.ToEntero) Then
-                                            Exit For
+                                                Dim drcosto As DataRow = ObjInventarios.DtResultados.FiltroPrimero("")
+                                                If drcosto IsNot Nothing Then
+                                                    PU = drcosto("UltimoCosto").ToString.ToDecimal
+                                                End If
+                                            End If
+                                            ObjInventarios.Dispose()
+                                            If PU <= 0 Then
+                                                'sino se encontró valor, manda mensaje
+                                                ErrorList.Add("Ocurrió un error al obtener el costo.<br />")
+                                                OcurrioError = True
+                                                Exit For
+                                            End If
                                         End If
-
                                     End If
                                     Dim CveSeccionAlmacen As Integer = -3
                                     'If AplicaSeccion Then CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, CveAlmacen, CveProducto).FiltroPrimeroValor("CveSeccionAlmacen", "").ToEntero
@@ -32202,7 +32214,7 @@ Partial Class Ventas
 
         LimpiaDocumentoDEV()
 
-        If UsuarioActual.Empresa.Funcionalidad(567) = "1" Then
+        If UsuarioActual.Empresa.Funcionalidad(567) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
             DivAlmacen.Visible = True
             LltSalidaAlmacen.Text = "Devolución Almacen"
 
@@ -38814,7 +38826,8 @@ Partial Class Ventas
         End Using
 
         Dim PuedeAplicarDevolucion As Boolean = False
-
+        'código temporal RMF. para devoluciones de facturas cargadas de saldos iniciales.
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso TxtFecha.Text.ToDate.Year < 2025 Then SaldoAlmacen = -1
         If SaldoAlmacen < 0 Then
             If DevolucionAlmacen = 0 Then
                 PuedeAplicarDevolucion = True