diff --git a/Acumuladores/Tamaños.aspx.vb b/Acumuladores/Tamaños.aspx.vb
index 87ea660b7..1ad466ef6 100644
--- a/Acumuladores/Tamaños.aspx.vb
+++ b/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
diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb
index 5f39d193d..09173b61d 100644
--- a/General/SaldosIniciales.aspx.vb
+++ b/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
- Alert("El nombre de la Decimonovena columna debe ser 'Codigo'. Favor de corregirlo", TipoMensaje.MsgError)
+ If Not dt.Columns(18).ColumnName = "Cantidad" Then
+ 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
- Alert("El nombre de la Vigésimo primera columna debe ser 'IVADetalle'. Favor de corregirlo", TipoMensaje.MsgError)
+ If Not dt.Columns(20).ColumnName = "PU" Then
+ 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
- Alert("El nombre de la Vigésimo segunda columna debe ser 'IEPS'. Favor de corregirlo", TipoMensaje.MsgError)
+ If Not dt.Columns(21).ColumnName = "IVADetalle" Then
+ 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
diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb
index fef53a3d1..66d031f83 100644
--- a/Ventas/PVCobranza.aspx.vb
+++ b/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
diff --git a/Ventas/Promociones.aspx b/Ventas/Promociones.aspx
index 0b342eb9b..b5fd86cbb 100644
--- a/Ventas/Promociones.aspx
+++ b/Ventas/Promociones.aspx
@@ -165,10 +165,23 @@
-
+
+
+ Usuario:
+
+
+
+
+
+ Fecha:
+
+
+
+
+
diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb
index 30f631e3e..e7db582ef 100644
--- a/Ventas/Promociones.aspx.vb
+++ b/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
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 7e6a5be8c..df9f2f60a 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/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
-
- 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
+ Dim tTipoDocto As String = ""
+ 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
- ErrorList.Add("Ocurrió un error al obtener el costo. ")
- OcurrioError = True
- Exit For
+ 'OBTENGO EL ÚLTIMO COSTO
+ Dim ObjInventarios As New ClsInventarios
+ If ObjInventarios.GetUltimoCosto(UsuarioActual.CveEmpresa, Dr("CvePS").ToString.ToEntero) Then
+ 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. ")
+ 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