Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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>
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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.<br />")
|
||||
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.<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
|
||||
|
||||
Reference in New Issue
Block a user