AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2024-08-02 02:18:14 -07:00
parent 942d9f2b89 8a7723f586
commit 039c81dc5e
271 changed files with 4300 additions and 2670 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Ventas/CatClientes.aspx.vb
View File

@@ -86,7 +86,7 @@ Partial Class CatClientes
End Sub
Private Sub CargaSucursales()
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Todas", "-1"))
End Sub

2
Ventas/CatPromociones.aspx.vb
View File

@@ -26,7 +26,7 @@ Partial Class Ventas_CatPromociones
'ImgAddPromocion.Attributes.Add("OnClick", "window.location = '/Ventas/Promociones.aspx'")
'CARGA SUCURSALES
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))

2
Ventas/CatVendedores.aspx.vb
View File

@@ -29,7 +29,7 @@ Partial Class Ventas_CatVendedores
CargaDatos()
End Sub
Public Sub CargaSubProyectos()
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Todas", "-1"))
End Sub

18
Ventas/Clientes.aspx.vb
View File

@@ -1218,7 +1218,7 @@ Partial Class Clientes
End Sub
Private Sub CargaSubProyectos()
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, Nothing, AplicaTodos:="Seleccione")
'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
'DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
'DdlSubProyecto.DataBind()
End Sub
Private Sub CargaMetodosPago()
@@ -1487,7 +1487,7 @@ Partial Class Clientes
TxtRetISR.Text = ObjClientes.RetISR.ToString()
ChkRetIVAFletesAcarreos.Checked = ObjClientes.RetieneIVAFletes
If ObjClientes.CveSubProyecto > 0 Then
DdlSubProyecto.SelectedValueExistInsert(ObjClientes.CveSubProyecto.ToString(), GlobalDTSubProyectos(-1, CveSubProyecto:=ObjClientes.CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto"))
DdlSubProyecto.SelectedValueExistInsert(ObjClientes.CveSubProyecto.ToString(), GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=ObjClientes.CveSubProyecto).FiltroPrimeroValor("SubProyecto"))
End If
TxtGastosEnvio.Text = ObjClientes.GastosEnvio.FormatoNumero
DdlZonaHoraria.SelectedValueExist(ObjClientes.DtResultados(0)("CveZonaHoraria").ToString())
@@ -5525,7 +5525,7 @@ Partial Class Clientes
UpDispositivos.Update()
End Sub
Private Sub CargaEmpresasUsuario(CveEmpresa As Integer)
Dim Dt As DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario)
Dim Dt As DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If Dt IsNot Nothing Then
If Dt.Rows.Count > 0 Then
@@ -5546,7 +5546,7 @@ Partial Class Clientes
End Sub
Private Sub CargaClienteDispositivos(CveEmpresa As Integer)
Dim Dt As DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario)
Dim Dt As DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If Dt IsNot Nothing AndAlso Dt.Rows.Count > 0 Then
DdlClienteDispositivo.DataSource = Dt.FiltraParametros($"CvePlataforma = 3 AND CveEmpresa = {CveEmpresa}", "Empresa")
@@ -5885,7 +5885,7 @@ Partial Class Clientes
Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs)
If DdlSubProyecto.SelectedValue.ToEntero() > 0 Then
Dim Dr As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).Rows(0)
Dim Dr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero()).Rows(0)
If Dr IsNot Nothing Then
If Dr("CvePrecioLista").ToString().ToEntero() > 0 Then
DdlPrecioLista.SelectedValueExist(Dr("CvePrecioLista").ToString())
@@ -6531,7 +6531,7 @@ Partial Class Clientes
End Sub
Public Sub CargaGlobal()
GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
'Dim ObjUsuarios As New ClsSisUsuarios
'If ObjUsuarios.GetUsuariosEmpresas(-1) Then
' Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
@@ -7598,8 +7598,8 @@ Partial Class Clientes
cpCliente = ObjClientes.CP
End If
Dim CveLocalidadSucursal As Integer = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveLocalidad", "").ToEntero
Dim CveEstadoSucursal As Integer = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstado", "").ToEntero
Dim CveLocalidadSucursal As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero()).FiltroPrimeroValor("CveLocalidad", "").ToEntero
Dim CveEstadoSucursal As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero()).FiltroPrimeroValor("CveEstado", "").ToEntero
Dim LocalidadSucursal As String = GlobalDTLocalidad(-1, -1).FiltroPrimeroValor("NombreLocalidad", $"CveLocalidad = {CveLocalidadSucursal}")
@@ -8439,7 +8439,7 @@ Partial Class Clientes
DdlVendedorFiltro.DataBind()
'CargaUsuarios
DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DdlUsuario.DataBind()
'Carga Productos

2
Ventas/ClientesAbonar.aspx.vb
View File

@@ -1767,7 +1767,7 @@ Partial Class Ventas_ClientesAbonar
DtImpuestos = CargaTotalesImpuestos(DtImpuestos)
Dim DrSubProyecto As DataRow = GlobalDTSubProyectos(-1, ObjFacturaDevolucion.CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
Dim DrSubProyecto As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=ObjFacturaDevolucion.CveSubProyecto).FiltroPrimero("")
Dim Cantidad As Decimal = 1
Dim CveProyecto As Integer
Dim CveSubProyecto As Integer

2
Ventas/FacturacionGlobal.aspx
View File

@@ -146,7 +146,7 @@
</div>
<label class="col-md-1 truncate">Cliente:</label>
<div class="col-md-2">
PUBLICO GENERAL
PUBLICO EN GENERAL
</div>
</div>
</div>

12
Ventas/FacturacionGlobal.aspx.vb
View File

@@ -177,11 +177,11 @@ Partial Class Ventas_FacturacionGlobal
Dim DtPagosFacturaGlobal As New DataTable()
Dim ObjClientes As New ClsClientes
If ObjClientes.GetVentasRemisionesTotales(-1, SbRemisiones.ToString(), 1) Then
If ObjClientes.GetVentasRemisionesTotales(-1, SbRemisiones.ToString(), 1, UsuarioActual.CveEmpresa) Then
DtRemisionesPS = ObjClientes.DtResultados.Copy()
End If
If ObjClientes.GetVentasRemisionesPagos(-1, SbRemisiones.ToString()) Then
If ObjClientes.GetVentasRemisionesPagos(-1, SbRemisiones.ToString(), UsuarioActual.CveEmpresa) Then
DtPagosFacturaGlobal = ObjClientes.DtResultados.Copy()
End If
ObjClientes.Dispose()
@@ -204,8 +204,11 @@ Partial Class Ventas_FacturacionGlobal
Dim CveCliente As Integer = UsuarioActual.Empresa.Funcionalidad(714).ToEntero()
If CveCliente <= 0 Then
Alert("No se pudo cargar el cliente", TipoMensaje.MsgError)
Exit Sub
CveCliente = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", "Nombre = 'PUBLICO EN GENERAL'").ToEntero
If CveCliente <= 0 Then
Alert("No se pudo cargar el cliente", TipoMensaje.MsgError)
Exit Sub
End If
End If
Dim ObjFactura = Modelos.Factura.CrearVentaNueva(UsuarioActual, Me.CveSubProyecto, CveCliente, CveMoneda, "Ing")
@@ -267,7 +270,6 @@ Partial Class Ventas_FacturacionGlobal
Alert(SbAlert.ToString(), TipoMensaje.MsgError, ShowCloseButton:=False)
End If
If ObjFactura IsNot Nothing Then
ObjFactura.Dispose()
End If

24
Ventas/PV.aspx.vb
View File

@@ -2664,7 +2664,7 @@ Partial Class PV
LblEnviarMail.Visible = True
Dim dr As DataRow = Nothing
dr = GlobalDTSubProyectos(-1).FiltroPrimero("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
dr = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero("Estatus = 'Activo' ")
If dr IsNot Nothing Then
ViewState("MatCalle") = dr("Calle")
ViewState("MatNoExt") = dr("NoExt")
@@ -2796,7 +2796,7 @@ Partial Class PV
UpPS.Update()
End Sub
Private Sub CargaFormatoSucursal()
Dim dr As DataRow = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", If(DdlSubProyectoDatos.SelectedValue = "", "-1", DdlSubProyectoDatos.SelectedValue)))
Dim dr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", If(DdlSubProyectoDatos.SelectedValue = "", "-1", DdlSubProyectoDatos.SelectedValue)))
If dr IsNot Nothing Then
ViewState("SucCalle") = dr("Calle")
ViewState("SucNoExt") = dr("NoExt")
@@ -4158,10 +4158,10 @@ Partial Class PV
If TipoPrecioLista = 10 Then
CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
If CvePrecioListaPS <= 0 Then
CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
CvePrecioListaPS = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
End If
Else
CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
CvePrecioListaPS = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
If CvePrecioListaPS <= 0 Then
CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
End If
@@ -5538,7 +5538,7 @@ Partial Class PV
PU = ObjDescuento.PU
End If
Dim RowSP As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).Rows(0)
Dim RowSP As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero).Rows(0)
Dim CveProyecto As Integer = -1 '
Dim Proyecto As String = ""
@@ -5867,7 +5867,7 @@ Partial Class PV
'Protected Sub CargarCodigo()
' Dim TipoVenta As Integer = 0
' Dim drSucursal As DataRow = GlobalDTSubProyectos(-1).FiltroPrimero(String.Format("CveSubProyecto = {0}", DdlSubProyectoDatos.SelectedValue))
' Dim drSucursal As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa.FiltroPrimero(String.Format("CveSubProyecto = {0}", DdlSubProyectoDatos.SelectedValue))
' If drSucursal IsNot Nothing Then TipoVenta = drSucursal("TipoVenta").ToString.ToEntero
@@ -5880,7 +5880,7 @@ Partial Class PV
'End Sub
Protected Sub CargarCodigo()
Dim TipoVenta As Integer = 0
Dim drSucursal As DataRow = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", If(DdlSubProyectoDatos.SelectedValue = "", "-1", DdlSubProyectoDatos.SelectedValue)))
Dim drSucursal As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", If(DdlSubProyectoDatos.SelectedValue = "", "-1", DdlSubProyectoDatos.SelectedValue)))
If drSucursal IsNot Nothing Then TipoVenta = drSucursal("TipoVenta").ToString.ToEntero
@@ -6473,7 +6473,7 @@ Partial Class PV
CargaComboCFDICliente()
'carga datos particulares de la sucursal
Dim dr As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero).FiltroPrimero("")
Dim dr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero).FiltroPrimero("")
If dr IsNot Nothing Then
TxtCPCliente.Text = dr("CP").ToString
@@ -6609,7 +6609,7 @@ Partial Class PV
If DdlSubProyectoDatos.SelectedValue.ToEntero() > 0 Then
Dim Dr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa).Rows(0)
Dim Dr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero()).Rows(0)
If Dr IsNot Nothing Then
If Dr("CvePrecioLista").ToString().ToEntero() > 0 Then
CvePrecioLista = Dr("CvePrecioLista").ToString().ToEntero()
@@ -7285,10 +7285,10 @@ Partial Class PV
If TipoPrecioLista = 10 Then
CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
If CvePrecioListaPS <= 0 Then
CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
CvePrecioListaPS = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero()).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
End If
Else
CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
CvePrecioListaPS = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero()).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
If CvePrecioListaPS <= 0 Then
CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
End If
@@ -8378,7 +8378,7 @@ Partial Class PV
ObjUsuario.Dispose()
If Usuario IsNot Nothing Then
Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario)
Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario, Usuario.CveEmpresa)
ADSSessionConfig.sessionUser = Usuario
ADSSessionConfig.sessionUser.CvePlataforma = 1
ADSSessionConfig.sessionDpage = False

2
Ventas/PVCobranza.aspx.vb
View File

@@ -617,7 +617,7 @@ Partial Class Ventas_PVCobranza
Dim DtRemisionesPS As New DataTable()
Dim DtPagosFacturaGlobal As New DataTable()
If ObjClientes.GetVentasRemisionesTotales(VentaRemision.CveCliente, VentaRemision.CveVenta.ToString(), 1) Then
If ObjClientes.GetVentasRemisionesTotales(VentaRemision.CveCliente, VentaRemision.CveVenta.ToString(), 1, UsuarioActual.CveEmpresa) Then
DtRemisionesPS = ObjClientes.DtResultados.Copy()
End If

2
Ventas/PopUpBuscarClientes.aspx.vb
View File

@@ -51,7 +51,7 @@ Partial Class PopUpBuscarClientes
End Sub
Private Sub CargaSubProyectos()
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()
End Sub

2
Ventas/PopUpBuscarFolio.aspx.vb
View File

@@ -47,7 +47,7 @@ Partial Class PopUpBuscarFolio
Private Sub CargaUsuarios()
DdlUsuario.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DdlUsuario.DataBind()
End Sub

2
Ventas/ProductosServicios.aspx.vb
View File

@@ -1319,7 +1319,7 @@ Partial Class ProductosyServicios
#Region "GV PAQUETE DETALLE"
Protected Sub gvPaqueteDetalle_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles gvPaqueteDetalle.RowDataBound
If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
e.Row.FCDropDownList("ddlEUnidad").DataSource = GlobalDTUnidadesMedida()
e.Row.FCDropDownList("ddlEUnidad").DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
e.Row.FCDropDownList("ddlEUnidad").SelectedValue = e.Row.DBCampo("CveUnidadMedida")
e.Row.FCDropDownList("ddlEUnidad").DataBind()
End If

2
Ventas/Promociones.aspx.vb
View File

@@ -142,7 +142,7 @@ Partial Class Ventas_Promociones
End If
'CARGA SUBPROYECTOS
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))

2
Ventas/RepAnticipo-NC-IXC.aspx.cs
View File

@@ -60,7 +60,7 @@ public partial class Ventas_RepAnticipo_NC_IXC : ClsPaginas
protected void CargaSucursales()
{
DdlSucursal.DataSource = get_GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa);
DdlSucursal.DataSource = get_GlobalDTSubProyectos( UsuarioActual.CveEmpresa);
DdlSucursal.DataBind();
DdlSucursal.Items.Insert(0, new ListItem("Todos", "-1"));
}

4
Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs
View File

@@ -88,11 +88,11 @@ public partial class Ventas_RepAnticipo_NC_IXCDetalle : ClsPaginas
protected void CargaSucursales()
{
DdlSucursal.DataSource = get_GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa);
DdlSucursal.DataSource = get_GlobalDTSubProyectos( UsuarioActual.CveEmpresa);
DdlSucursal.DataBind();
DdlSucursal.Items.Insert(0, new ListItem("Todos", "-1"));
DdlSucursal.SelectedValue = "-1";
DdlSubProyectoSaldar.DataSource = get_GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa);
DdlSubProyectoSaldar.DataSource = get_GlobalDTSubProyectos( UsuarioActual.CveEmpresa);
DdlSubProyectoSaldar.DataBind();
}

2
Ventas/RepAnticiposEspeciales.aspx.vb
View File

@@ -38,7 +38,7 @@ Partial Class Ventas_RepAnticiposEspeciales
TxtFechaI.Text = FirstDayOfMonth(NowADS()).ToShortDateString
TxtFechaF.Text = NowADS().LastDayOfMonth.ToShortDateString
DdlSucursal.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlSucursal.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSucursal.DataBind()
DdlSucursal.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub

4
Ventas/RepCancelacionesPorRespuesta.aspx.cs
View File

@@ -574,11 +574,13 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
{
factura.RealizarDevolucionAlmacen = true;
}
bool AplicaCancelacionConPagos = false;
if (UsuarioActual.Empresa.Funcionalidad(382) == "1")
if (UsuarioActual.Empresa.Funcionalidad(382) == "1" || UsuarioActual.Empresa.Funcionalidad(109) == "1" )
{
AplicaCancelacionConPagos = true;
}
if (UsuarioActual.TienePermisoProceso(269) && UsuarioActual.Empresa.Funcionalidad(109) == "1" && factura.TipoDocto == "Ing" && factura.SaldoAlmacen != 0)
{
factura.RealizarDevolucionAlmacen = true;

2
Ventas/RepComisiones.aspx.vb
View File

@@ -13,7 +13,7 @@ Partial Class Ventas_RepComisiones
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()
InicializaValores()

2
Ventas/RepComisionesDetalle.aspx.vb
View File

@@ -23,7 +23,7 @@ Partial Class Ventas_RepComisionesDetalle
DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
DdlVendedor.DataBind()
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()
End Sub

2
Ventas/RepComisionesJAM.aspx.cs
View File

@@ -30,7 +30,7 @@ public partial class Ventas_RepComisionesJAM : ClsPaginas
}
private void InicializaValores()
{
{
txtFechaI.Text = String.Format("01/{0}/{1}", NowADS().Month, NowADS().Year);
txtFechaF.Text = String.Format("{0}/{1}/{2}", NowADS().AddMonths(1).FirstDayOfMonth().AddDays(-1).Day, NowADS().Month, NowADS().Year);

2
Ventas/RepComisionesJAM2.aspx.cs
View File

@@ -23,7 +23,7 @@ public partial class Ventas_RepComisionesJAM2 : ClsPaginas
private void InicializaValores()
{
txtFechaI.Text = NowADS().FirstDayOfMonth().ToShortDateString();
txtFechaI.Text = NowADS().FirstDayOfMonth().ToShortDateString();
txtFechaF.Text = NowADS().LastDayOfMonth().ToShortDateString();
DdlVendedor.DataSource = get_GlobalDTVendedores(UsuarioActual.CveEmpresa);

2
Ventas/RepComisionesJAM2Detalle.aspx.cs
View File

@@ -23,7 +23,7 @@ public partial class Ventas_RepComisionesJAM2Detalle : ClsPaginas
private void InicializaValores()
{
txtFechaI.Text = NowADS().FirstDayOfMonth().ToShortDateString();
txtFechaI.Text = NowADS().FirstDayOfMonth().ToShortDateString();
txtFechaF.Text = NowADS().LastDayOfMonth().ToShortDateString();
DdlVendedor.DataSource = get_GlobalDTVendedores(UsuarioActual.CveEmpresa);

2
Ventas/RepComisionesServec.aspx.vb
View File

@@ -11,7 +11,7 @@ Partial Class Ventas_RepComisionesServec
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()
InicializaValores()

2
Ventas/RepComisionesServecDetalle.aspx.vb
View File

@@ -11,7 +11,7 @@ Partial Class Ventas_RepComisionesServecDetalle
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()
InicializaValores()

2
Ventas/RepCostoPromedioVenta.aspx.cs
View File

@@ -25,7 +25,7 @@ public partial class Ventas_RepCostoPromedioVenta : ClsPaginas
{
InicializaValores();
}
}
}
private void InicializaValores()
{

2
Ventas/RepDocumentacionVencidaClientes.aspx.vb
View File

@@ -89,7 +89,7 @@ Partial Class Vta_RepDocumentacionVencidaClientes
DDLSucursal.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1).FiltraParametros("EsSucursal = 1", "", {"CveSubProyecto", "SubProyecto"})
DDLSucursal.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltraParametros("EsSucursal = 1", "", {"CveSubProyecto", "SubProyecto"})
DDLSucursal.DataBind()
DDLSucursal.Items.Insert(0, New ListItem("Todos", "-1"))
If UsuarioActual.CveSucursal > 0 Then

2
Ventas/RepNCxAplicar.aspx.cs
View File

@@ -50,7 +50,7 @@ public partial class Ventas_RepNCxAplicar : ClsPaginas
protected void CargaSucursales()
{
DdlSucursal.DataSource = get_GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa);
DdlSucursal.DataSource = get_GlobalDTSubProyectos(UsuarioActual.CveEmpresa);
DdlSucursal.DataBind();
DdlSucursal.Items.Insert(0, new ListItem("Todos", "-1"));
DdlSucursal.SelectedValue = "-1";

2
Ventas/RepPUESinPago.aspx.vb
View File

@@ -27,7 +27,7 @@ Partial Class Ventas_RepPUESinPago
TxtFechaI.Text = FirstDayOfMonth(NowADS()).ToShortDateString
TxtFechaF.Text = NowADS().LastDayOfMonth.ToShortDateString
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))

2
Ventas/RepProductosServicios.aspx.vb
View File

@@ -126,7 +126,7 @@ Partial Class Ventas_RepProductosServicios
DdlVendedor.DataBind()
'CargaUsuarios
DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DdlUsuario.DataBind()
'Carga Productos

2
Ventas/RepProductosServiciosDetalle.aspx.vb
View File

@@ -149,7 +149,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
End If
'CargaUsuarios
DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DdlUsuario.DataBind()
'Carga Productos

2
Ventas/RepProductosServiciosPeriodo.aspx.cs
View File

@@ -93,7 +93,7 @@ public partial class Ventas_RepProductosServiciosPeriodo : ClsPaginas
//CargaSucursales
DdlSubProyectoEjecucion.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);
DdlSubProyectoEjecucion.DataBind();
//Vendedor
DdlVendedor.DataSource = get_GlobalDTVendedores(UsuarioActual.CveEmpresa);
DdlVendedor.DataBind();

2
Ventas/RepRecuperacion.aspx.vb
View File

@@ -124,7 +124,7 @@ Partial Class Ventas_RepRecuperacion
End If
'Carga Usuarios
DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DdlUsuario.DataBind()
'Carga Responsable

2
Ventas/RepRecuperacionDetalle.aspx.vb
View File

@@ -127,7 +127,7 @@ Partial Class Ventas_RepRecuperacionDetalle
DdlVendedor.Items.Insert(0, New ListItem("Sin Vendedor", "-2"))
'Carga Usuarios
DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DdlUsuario.DataBind()
'Carga Responsable

2
Ventas/RepRecuperacionPeriodo.aspx.cs
View File

@@ -57,7 +57,7 @@ public partial class Ventas_RepRecuperacionPeriodo : ClsPaginas
DdlVendedor.DataBind();
DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor);
if (UsuarioActual.CveVendedor > 0 && UsuarioActual.TienePermisoProceso(263))
{
{
DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString());
DdlVendedor.Attributes.Add("disabled", "disabled");
DdlVendedor.Enabled = false;

2
Ventas/RepRemisiones.aspx
View File

@@ -246,7 +246,7 @@
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="ImporteInventario" HeaderText="Inventario" DataFormatString="{0:N2} MXN" Visible="false" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataField="ImportePendiente" HeaderText="Pendiente" DataFormatString="{0:N2}" Visible="false" ItemStyle-HorizontalAlign="Right" />
</Columns>
<HeaderStyle CssClass="Titulos" />
<RowStyle CssClass="Texto" />

1
Ventas/RepRemisiones.aspx.vb
View File

@@ -148,6 +148,7 @@ Partial Class RepRemisiones
GvDatos.Columns(1).HeaderText = "Fecha Cirugía"
CType(GvDatos.Columns(1), HyperLinkField).DataTextFormatString = "{0:dd/MM/yyyy HH:mm}"
CType(GvDatos.Columns(1), HyperLinkField).ItemStyle.Width = Unit.Pixel(120)
GvDatos.Columns(15).Visible = True
End If
End Sub

2
Ventas/RepRemisiones2.aspx.vb
View File

@@ -87,7 +87,7 @@ Partial Class RepRemisiones
End Sub
Private Sub CargaSucursales()
DdlSubProyectos.DataSource() = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlSubProyectos.DataSource() = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyectos.DataBind()
DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub

2
Ventas/RepTopClientesVentas.aspx.vb
View File

@@ -53,7 +53,7 @@ Partial Class Ventas_RepTopClientesVentas
DdlAño.DataSource = tablaAños
DdlAño.DataBind()
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))

2
Ventas/RepVentas.aspx.vb
View File

@@ -213,7 +213,7 @@ Partial Class Ventas_RepVentas
DdlVendedor.Items.Insert(1, New ListItem("Sin Vendedor", "-2"))
'CargaUsuarios
DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DdlUsuario.DataBind()
'CargaEstatus

2
Ventas/RepVentasAutorizaciones.aspx.cs
View File

@@ -60,7 +60,7 @@ public partial class Ventas_RepVentasAutorizaciones : ClsPaginas
}
private void InicializaValores()
{
{
//Carga SubProyectos
DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);

2
Ventas/RepVentasDetalle.aspx.vb
View File

@@ -332,7 +332,7 @@ Partial Class RepVentasDetalle
DdlVendedor.Items.Insert(0, New ListItem("Sin Vendedor", "-2"))
'CargaUsuarios
DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DdlUsuario.DataBind()
'CargaEstatus

2
Ventas/RepVentasPV.aspx.vb
View File

@@ -15,7 +15,7 @@ Partial Class Ventas_RepVentasPV
Private Sub CargaCombos()
'CargaSucursales
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()
End Sub

2
Ventas/RepVentasPeriodo.aspx.vb
View File

@@ -125,7 +125,7 @@ Partial Class RepVentasPeriodo
DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1"))
'CargaUsuarios
DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DdlUsuario.DataBind()
'CargaEstatus

2
Ventas/RepVentasUtilidad.aspx.vb
View File

@@ -49,7 +49,7 @@ Partial Class Ventas_RepVentasUtilidad
End If
'CargaSubProyectos
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()
'Carga Vendedor

2
Ventas/RepVentasUtilidadDetalle.aspx.vb
View File

@@ -127,7 +127,7 @@ Partial Class Ventas_RepVentasUtilidadDetalle
If CveCliente > 0 Then DdlClientes.SelectedValueExist(CveCliente)
'CargaSubProyectos
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()
If CveSubProyecto <> "" Then DdlSubProyecto.SelectedValuesIfExistM(CveSubProyecto)

2
Ventas/RepVentasUtilidadPadre.aspx.vb
View File

@@ -56,7 +56,7 @@ Partial Class Ventas_RepVentasUtilidadPadre
End If
'CargaSubProyectos
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()
'Carga Vendedor

5
Ventas/Ventas.aspx
View File

@@ -4298,8 +4298,9 @@
<asp:LinkButton ID="BtnAdjuntar" runat="server" Visible="false" Text="<i class='fa-upload fa' style=' color: white;'></i> Adjuntar" data-toggle="modal" data-target="#ModalAdjuntar" CssClass="btn myventasbutton btn-primary" />
<br />
<asp:LinkButton ID="BtnArchivoAdjunto" runat="server" Visible="false" Text="" Font-Size="14px" />
<asp:LinkButton ID="BtnEliminarAdjunto" runat="server" Visible="false" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
<asp:LinkButton ID="BtnEliminarAdjunto" runat="server" Visible="false" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Desea eliminar el archivo?" data-btn-ok-label="si" />
&nbsp;&nbsp;
<asp:LinkButton ID="BtnReemplazarAdjunto" runat="server" Visible="false" AlternateText="Reemplazar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-sm blue" Text="<i class='fa-upload fa' style=' color: white;'></i>" data-toggle="modal" data-target="#ModalAdjuntar" />
</td>
</tr>
</table>

288
Ventas/Ventas.aspx.vb
View File

@@ -3667,7 +3667,7 @@ Partial Class Ventas
ObjUsuario.Dispose()
If Usuario IsNot Nothing Then
Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario)
Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario, Usuario.CveEmpresa)
ADSSession.ADSSessionConfig.sessionUser = Usuario
ADSSession.ADSSessionConfig.sessionUser.CvePlataforma = 1
ADSSession.ADSSessionConfig.sessionDpage = False
@@ -5023,8 +5023,9 @@ Partial Class Ventas
If Adjunto <> "" Then
BtnArchivoAdjunto.Text = Adjunto
BtnArchivoAdjunto.Visible = True
BtnEliminarAdjunto.Visible = False
BtnEliminarAdjunto.Visible = True
BtnAdjuntar.Visible = False
BtnReemplazarAdjunto.Visible = True
End If
ViewState("CveSubProyectoVenta") = DbRowVenta("CveSubProyecto").ToString().ToEntero()
@@ -5710,12 +5711,12 @@ Partial Class Ventas
If DdlSubProyectoCobranza.Items.Count = 0 Then
DdlSubProyectoCobranza.Items.Insert(0, New ListItem("Seleccione", "-1"))
End If
DdlSubProyectoCobranza.SelectedValueExistInsert(DbRowVenta("CveSubProyectoCobranza").ToString(), GlobalDTSubProyectos(-1, DbRowVenta("CveSubProyectoCobranza").ToString().ToEntero()).FiltroPrimeroValor("SubProyecto").ToString())
DdlSubProyectoCobranza.SelectedValueExistInsert(DbRowVenta("CveSubProyectoCobranza").ToString(), GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DbRowVenta("CveSubProyectoCobranza").ToString().ToEntero()).FiltroPrimeroValor("SubProyecto").ToString())
If DdlSubProyectoEjecucion.Items.Count = 0 Then
DdlSubProyectoEjecucion.Items.Insert(0, New ListItem("Seleccione", "-1"))
End If
DdlSubProyectoEjecucion.SelectedValueExistInsert(DbRowVenta("CveSubProyectoEjecucion").ToString(), GlobalDTSubProyectos(-1, DbRowVenta("CveSubProyectoEjecucion").ToString().ToEntero()).FiltroPrimeroValor("SubProyecto").ToString())
DdlSubProyectoEjecucion.SelectedValueExistInsert(DbRowVenta("CveSubProyectoEjecucion").ToString(), GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DbRowVenta("CveSubProyectoEjecucion").ToString().ToEntero()).FiltroPrimeroValor("SubProyecto").ToString())
CargaClienteSucursal(DbRowVenta("CveClienteSucursal").ToString().ToEntero())
@@ -5955,10 +5956,7 @@ Partial Class Ventas
'ACTIVA BOTONERA | DEBE TENER CONCEPTOS PENDIENTES DE FACTURAR
If (TmpDT.SUM("CantidadFacturadaRem") < TmpDT.SUM("Cantidad")) AndAlso TieneBloqueoPorCreditoVencimiento = 0 Then
BtnsFacturar.Visible = True
If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
BtnsFacturar.Visible = UsuarioActual.TienePermisoProceso(60)
End If
BtnsFacturar.Visible = UsuarioActual.TienePermisoProceso(60)
'E119, bloquear la facturación de remisiones que no estén surtidas
If UsuarioActual.CveEmpresa = 119 Then
@@ -6009,7 +6007,7 @@ Partial Class Ventas
ObjUsados.Dispose()
BtnsFacturar.Visible = True
BtnsFacturar.Visible = UsuarioActual.TienePermisoProceso(60)
'VERIFICA SI YA SE FACTURO COMPLETAMENTE
If TmpDT.SUM("CantidadFacturadaRem") = TmpDT.SUM("Cantidad") Then
@@ -6077,7 +6075,7 @@ Partial Class Ventas
If DbRowVenta("TipoDocto").ToString().Contiene("Ped") Then
'ACTIVA BOTONERA | DEBE TENER CONCEPTOS PENDIENTES DE FACTURAR
If TmpDT.SUM("CantidadFacturadaPed2") < TmpDT.SUM("Cantidad") Then
BtnsFacturar.Visible = True
BtnsFacturar.Visible = UsuarioActual.TienePermisoProceso(60)
'bloquear la facturación de remisiones que no estén surtidas
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
@@ -6141,7 +6139,7 @@ Partial Class Ventas
'Verifico si es su supervisor asignado
If DTVendedores.Rows.Count > 0 Then
If GlobalDTEstatusFactura().FiltroPrimeroValor("TipoEstatus", $"CveEstatusFactura = {Me.CveEstatus}").ToEntero() = 2 Then
BtnsFacturar.Visible = True
BtnsFacturar.Visible = UsuarioActual.TienePermisoProceso(60)
BtnGenerarRemision.Visible = True
Else
BtnsFacturar.Visible = False
@@ -6262,7 +6260,7 @@ Partial Class Ventas
'Verifico si es su supervisor asignado
If DTVendedores.Rows.Count > 0 Then
If GlobalDTEstatusFactura().FiltroPrimeroValor("TipoEstatus", $"CveEstatusFactura = {Me.CveEstatus}").ToEntero() = 2 Then
BtnsFacturar.Visible = True
BtnsFacturar.Visible = UsuarioActual.TienePermisoProceso(60)
If UsuarioActual.TienePermisoProceso(199) Then
BtnGenerarRemision.Visible = If(CveEstatus = 10, False, True)
@@ -6604,7 +6602,7 @@ Partial Class Ventas
Dim Retorno As Integer = 0
Dim dr As DataRow = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1).FiltroPrimero($"CveSubProyecto = {If(DdlSubProyectoDatos.SelectedValue = "", "-1", DdlSubProyectoDatos.SelectedValue)}")
'Dim dr As DataRow = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero($"CveSubProyecto = {If(DdlSubProyectoDatos.SelectedValue = "", "-1", DdlSubProyectoDatos.SelectedValue)}")
'Dim dr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero($"CveSubProyecto = {If(DdlSubProyectoDatos.SelectedValue = "", "-1", DdlSubProyectoDatos.SelectedValue)}")
'si hay un proyecto relacionado con el subproyecto
If dr IsNot Nothing AndAlso dr("CveSubProyecto").ToString().ToEntero() > 0 Then
@@ -6673,7 +6671,7 @@ Partial Class Ventas
'DdlSubProyecto.SelectedValue = Nothing
'If DdlProyecto.SelectedValue.ToEntero() > 0 Then
' DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
' 'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
' 'DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
'End If
'DdlSubProyecto.DataBind()
'DdlSubProyecto.Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "-1"))
@@ -6892,7 +6890,7 @@ Partial Class Ventas
ViewState("CargoUsado") = ObjCliente.CargoUsados
Dim dr As DataRow = Nothing
dr = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal = 1 And Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
dr = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal = 1 And Estatus = 'Activo' ")
If dr IsNot Nothing Then
ViewState("MatCalle") = dr("Calle")
ViewState("MatNoExt") = dr("NoExt")
@@ -7352,7 +7350,7 @@ Partial Class Ventas
If UsuarioActual.Empresa.Funcionalidad(381).Trim() <> "" Then
'SI ESTA BLOQUEADO POR AUTORIZACION, HABILITAR LA OPCION DE REMISION PARA PUBLICO EN GENERAL
If UsuarioActual.Empresa.Funcionalidad(381).Trim() = CveCliente.ToString() Then
Dim DeshabilitarAutorizacion As Boolean = CBool(GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("DeshabilitaAutorizacion"))
Dim DeshabilitarAutorizacion As Boolean = CBool(GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero()).FiltroPrimeroValor("DeshabilitaAutorizacion"))
'SI ESTA BLOQUEADO POR AUTORZACION O QUE TENGA LA OPCION DE AUTORIZACIONES Y NO SEA DEL MODULO DE COTIZACIONES
If (DdlTipoComprobante.SelectedValue.Contiene("PA") OrElse (DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso DdlTipoComprobante.Items.FindByValue("PA") IsNot Nothing AndAlso Not IfNull(Request("Op"), "").ToString() = "Cot")) AndAlso DeshabilitarAutorizacion Then
@@ -7784,7 +7782,7 @@ Partial Class Ventas
'SI NO TIENE AUTORIZACION, MANTIENE EL BLOQUEO POR CONDICIONES DE CREDITO
If Autorizacion > 0 Then
BtnsFacturar.Visible = True
BtnsFacturar.Visible = UsuarioActual.TienePermisoProceso(60)
TieneBloqueoPorCreditoVencimiento = 0
End If
End If
@@ -12836,7 +12834,7 @@ Partial Class Ventas
If Me.CveVenta > 0 AndAlso TipoDoctoViejo = "Rem" Then
Dim ObjClientes As New ClsClientes
If ObjClientes.GetVentasRemisionesPagos(CveCliente, Me.CveVenta.ToString()) Then
If ObjClientes.GetVentasRemisionesPagos(CveCliente, Me.CveVenta.ToString(), UsuarioActual.CveEmpresa) Then
DtRemisionesPagos = ObjClientes.DtResultados.Copy()
End If
ObjClientes.Dispose()
@@ -12848,7 +12846,7 @@ Partial Class Ventas
sb.Remove(sb.Length - 1, 1)
Dim ObjClientes As New ClsClientes
If ObjClientes.GetVentasRemisionesPagos(CveCliente, sb.ToString()) Then
If ObjClientes.GetVentasRemisionesPagos(CveCliente, sb.ToString(), UsuarioActual.CveEmpresa) Then
DtRemisionesPagos = ObjClientes.DtResultados.Copy()
End If
ObjClientes.Dispose()
@@ -13444,7 +13442,7 @@ Partial Class Ventas
Dim AplicaComercioExteriorSubProyecto As Boolean = True
If ChkEmitirComercioExterior.Checked Then
'AplicaComercioExteriorSubProyecto = If(GlobalDTSubProyectos(-1, Obj.CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa)(0)("AplicaComercioExterior").ToString() = "True", True, False)
Timbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto = AplicaComercioExteriorSubProyecto
'DATOS GENERALES
@@ -13469,8 +13467,8 @@ Partial Class Ventas
'EMISOR
Dim Dr As DataRow
Dr = Nothing
If GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).Rows.Count > 0 Then
Dr = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa)(0)
If GlobalDTSubProyectos(UsuarioActual.CveEmpresa, DdlSubProyectoDatos.SelectedValue.ToEntero()).Rows.Count > 0 Then
Dr = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, DdlSubProyectoDatos.SelectedValue.ToEntero())(0)
End If
Timbre.Complementos.ComercioExterior.Emisor.CURP = UsuarioActual.Empresa.CURP
Timbre.Complementos.ComercioExterior.Emisor.Calle = Dr("Calle").ToString()
@@ -15549,7 +15547,7 @@ Partial Class Ventas
importeMovimiento = (TmpDTDetalle.SUM("TotalImporte", String.Format("CveClasificacion = {0} And CveSubProyecto = {1} AND PorcentajeIVA = {2} AND ISNULL(CveActivoFijo,-1) = {3}", Row2("CveClasificacion"), Row2("CveSubProyecto"), Row2("PorcentajeIVA"), If(Row2("CveActivoFijo").ToString().ToEntero() > 0, Row2("CveActivoFijo").ToString().ToEntero(), -1))).ToString().ToDecimal()) * ValorMultiplicador
importeMX = importeMovimiento * tipoCambio * Multiplicador
FechaMovimiento = ObjFactura.FechaPago
Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString().ToEntero() > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"), "")} - {If(Row2("CveSubProyecto").ToString().ToEntero() > 0, GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString()}"), "Sin SubProyecto Asignado")}"
Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString().ToEntero() > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"), "")} - {If(Row2("CveSubProyecto").ToString().ToEntero() > 0, GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString()}"), "Sin SubProyecto Asignado")}"
If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas
@@ -15602,7 +15600,7 @@ Partial Class Ventas
importeMX = importeMovimiento * tipoCambio * Multiplicador
FechaMovimiento = ObjFactura.FechaPago
Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString().ToEntero() > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"), "")} - {If(Row2("CveSubProyecto").ToString().ToEntero() > 0, GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString()}"), "Sin SubProyecto Asignado")}"
Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString().ToEntero() > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"), "")} - {If(Row2("CveSubProyecto").ToString().ToEntero() > 0, GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString()}"), "Sin SubProyecto Asignado")}"
If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas
@@ -15632,10 +15630,10 @@ Partial Class Ventas
If DT.Rows.Count > 0 Then
'Se agrega movimiento separado por la cuenta de ventas (ER)
For Each Row2 As DataRow In DT.Rows
importeMovimiento = (TmpDTDetalle.SUM("Descuento", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador
importeMovimiento = (TmpDTDetalle.SUM("Descuento", String.Format("CveClasificacion = {0} And CveSubProyecto = {1} AND PorcentajeIVA = {2}", Row2("CveClasificacion"), Row2("CveSubProyecto"), Row2("PorcentajeIVA"))).ToString().ToDecimal) * ValorMultiplicador
importeMX = importeMovimiento * tipoCambio * Multiplicador
FechaMovimiento = ObjFactura.FechaPago
Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString().ToEntero() > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"), "")} - {If(Row2("CveSubProyecto").ToString().ToEntero() > 0, GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString()}"), "Sin SubProyecto Asignado")}"
Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString().ToEntero() > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"), "")} - {If(Row2("CveSubProyecto").ToString().ToEntero() > 0, GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString()}"), "Sin SubProyecto Asignado")}"
If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas
@@ -16839,6 +16837,11 @@ Partial Class Ventas
If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then
DtMovtos = DtMovtos.FiltraParametros($"{If(CveVenta < 0, $"Tipo = 'Ant'{If(DdlTipoComprobante.SelectedValue = "Ing", $" AND CveMoneda ={DdlMoneda.SelectedValue.ToEntero()}", "")} ", "")}")
End If
If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
DtMovtos = Me.TmpDTAnticiposNCIxCCliente.FiltraParametros($"Saldo > 0 And SaldoSubtotal > 0 {If(CveVenta < 0, $"AND Tipo IN('RNC','IxC','Ant') {If(DdlTipoComprobante.SelectedValue = "Ant", "AND Tipo = 'NC'", "")} ", "")}")
End If
GVAnticipos.DataSource = DtMovtos
If ObjMovtos.DtResultados.SUM("Saldo", "Saldo > 0 AND SaldoSubtotal > 0 AND Tipo = 'Ant'") > 0 Then
@@ -18070,11 +18073,11 @@ Partial Class Ventas
CvePrecioListaPS = Me.CvePrecioListaCliente
If CvePrecioListaPS <= 0 Then
CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
CvePrecioListaPS = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero()).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
End If
Else
CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
CvePrecioListaPS = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero()).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
If CvePrecioListaPS <= 0 Then
CvePrecioListaPS = Me.CvePrecioListaCliente 'GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
End If
@@ -18507,7 +18510,7 @@ Partial Class Ventas
Dim CveProyecto As String = DirectCast(sender, DropDownList).SelectedValue
gvr.FCDropDownList("DDlSubProyecto").Items.Clear()
gvr.FCDropDownList("DDlSubProyecto").DataSource = GlobalDTSubProyectos(CveProyecto.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa)
gvr.FCDropDownList("DDlSubProyecto").DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto.ToEntero())
gvr.FCDropDownList("DDlSubProyecto").DataBind()
gvr.FCDropDownList("DDlSubProyecto").Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "-1"))
@@ -18553,7 +18556,7 @@ Partial Class Ventas
UM = rowPS("UnidadMedida").ToString()
CveClasificacion = rowPS("CveClasificacion").ToString().ToEntero()
Clasificacion = rowPS("Clasificacion").ToString()
Dim rowSP As DataRow = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto={0}", CveSubProyecto))
Dim rowSP As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto={0}", CveSubProyecto))
Proyecto = rowSP("Proyecto").ToString()
CveProyecto = rowSP("CveProyecto").ToString().ToEntero()
SubProyecto = rowSP("SubProyecto").ToString()
@@ -18737,7 +18740,7 @@ Partial Class Ventas
End Sub
Private Sub CargaFormatoSucursal(Optional RecalcularIVA As Boolean = True)
Dim dr As DataRow = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", If(DdlSubProyectoDatos.SelectedValue = "", "-1", DdlSubProyectoDatos.SelectedValue)))
Dim dr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", If(DdlSubProyectoDatos.SelectedValue = "", "-1", DdlSubProyectoDatos.SelectedValue)))
If dr IsNot Nothing Then
ViewState("SucCalle") = dr("Calle")
ViewState("SucNoExt") = dr("NoExt")
@@ -23419,7 +23422,7 @@ Partial Class Ventas
End Sub
Protected Sub CargarCodigo()
Dim TipoVenta As Integer = 0
Dim drSucursal As DataRow = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", If(DdlSubProyectoDatos.SelectedValue = "", "-1", DdlSubProyectoDatos.SelectedValue)))
Dim drSucursal As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", If(DdlSubProyectoDatos.SelectedValue = "", "-1", DdlSubProyectoDatos.SelectedValue)))
If drSucursal IsNot Nothing Then TipoVenta = drSucursal("TipoVenta").ToString().ToEntero()
@@ -24632,7 +24635,7 @@ Partial Class Ventas
End If
If DdlSubProyectoDatos.SelectedValue.ToEntero() > 0 Then
Dim Dr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa).Rows(0)
Dim Dr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, DdlSubProyectoDatos.SelectedValue.ToEntero).Rows(0)
If Dr IsNot Nothing Then
If Dr("CvePrecioLista").ToString().ToEntero() > 0 Then
CvePrecioLista = Dr("CvePrecioLista").ToString().ToEntero()
@@ -26286,7 +26289,7 @@ Partial Class Ventas
dt.TableName = "Datos"
Dim DtSubProyecto As DataTable = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
Dim DtSubProyecto As DataTable = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DtSubProyecto.CaseSensitive = False
If Not ErrorArchivo Then
NumRow = 1
@@ -29762,7 +29765,7 @@ Partial Class Ventas
PorcentajeIEPS = PorcentajeIEPS
Dim DrSubProyecto As DataRow = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, -1).FiltroPrimero("")
Dim DrSubProyecto As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, DdlSubProyectoDatos.SelectedValue.ToEntero()).FiltroPrimero("")
If DrSubProyecto Is Nothing Then
Alert("Ocurrió un error al cargar la información de centro de costos. Por favor comuniquese con asistencia SIG", TipoMensaje.MsgError)
@@ -32799,7 +32802,7 @@ Partial Class Ventas
Dim PU As Decimal = dtSeleccionadas.SUM("SubTotal")
Dim PS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPSRemision.SelectedValue.ToEntero())(0)
Dim IVA As Decimal = If(dtSeleccionadas.SUM("Iva") > 0, dtSeleccionadas.SUM("Iva") / dtSeleccionadas.SUM("SubTotal"), 0.16D)
Dim rowSP As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa)(0)
Dim rowSP As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero())(0)
AgregarProductoServicio(1, PS("CveUM").ToString().ToEntero(), PS("UnidadMedida").ToString(), PS("CveClasificacion").ToString().ToEntero(),
PS("Clasificacion").ToString(), PS("CvePS").ToString().ToEntero(), PS("PS").ToString(), "", PU, 0,
@@ -32826,7 +32829,7 @@ Partial Class Ventas
Next
Dim PS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPSRemision.SelectedValue.ToEntero())(0)
Dim rowSP As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa)(0)
Dim rowSP As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero())(0)
Dim IVA As Double = If(dtSeleccionadas.SUM("Iva") > 0, dtSeleccionadas.SUM("Iva") / dtSeleccionadas.SUM("SubTotal"), 0.16)
For Each gvr As GridViewRow In GvRem.Rows
If gvr.FCCheckBox("Chk").Checked Then
@@ -33036,7 +33039,7 @@ Partial Class Ventas
End Function
Private Sub CargaConceptosRemisionPorFacturar(CveRemisiones As String, TipoCargas As Integer)
Dim ObjClientes As New ClsClientes
If ObjClientes.GetVentasRemisionesTotales(CveCliente, CveRemisiones, TipoCargas) Then
If ObjClientes.GetVentasRemisionesTotales(CveCliente, CveRemisiones, TipoCargas, UsuarioActual.CveEmpresa) Then
DtRemisionesPS = ObjClientes.DtResultados
End If
ObjClientes.Dispose()
@@ -33048,7 +33051,7 @@ Partial Class Ventas
Dim ProyectoVenta As String = ""
If UsuarioActual.CveEmpresa = 119 AndAlso CveSubProyectoVenta > 0 Then
Dim RowSP = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyectoVenta, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
Dim RowSP = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyectoVenta).FiltroPrimero("")
If RowSP IsNot Nothing Then
CveProyectoVenta = RowSP("CveProyecto").ToString().ToEntero()
ProyectoVenta = RowSP("Proyecto").ToString()
@@ -33110,7 +33113,7 @@ Partial Class Ventas
'End If
Dim ObjClientes As New ClsClientes
If ObjClientes.GetVentasRemisionesTotales(CveCliente, CveVenta.ToString(), 1) AndAlso ObjClientes.DtResultados.Rows.Count > 0 Then
If ObjClientes.GetVentasRemisionesTotales(CveCliente, CveVenta.ToString(), 1, UsuarioActual.CveEmpresa) AndAlso ObjClientes.DtResultados.Rows.Count > 0 Then
LnkFacturarRemision.Visible = True
If ThCantidadFacturadaRem.Visible Then
LnkFacturarRemision.ToolTip = "¿Seguro que desea facturar lo pendiente por facturar de la remisión?"
@@ -35956,7 +35959,7 @@ Partial Class Ventas
DtImpuestos = CargaTotalesImpuestosProntoPago(DtImpuestos)
Dim DrSubProyecto As DataRow = GlobalDTSubProyectos(-1, ObjFacturaDevolucion.CveSubProyecto).Rows(0)
Dim DrSubProyecto As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, ObjFacturaDevolucion.CveSubProyecto).Rows(0)
Dim Cantidad As Decimal = 1
Dim CveProyecto As Integer = DrSubProyecto("CveProyecto").ToString().ToEntero()
@@ -36271,6 +36274,10 @@ Partial Class Ventas
End Sub
Protected Sub btnGuardarAdjunto_Click(sender As Object, e As System.EventArgs) Handles btnGuardarAdjunto.Click
GuardarArchivoAdjunto()
End Sub
Private Sub GuardarArchivoAdjunto()
If Not txtAdjuntar.getfiles().Archivos.Count > 0 Then
Alert("Tiene que cargar un archivo.", TipoMensaje.MsgAdvertencia)
Exit Sub
@@ -36287,7 +36294,7 @@ Partial Class Ventas
Try
FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
Adjunto = String.Format("{0}-{1}.{2}", LblSerie.Text, TxtFolio.Text, FileExtension)
Dim objVentas As New ClsVentas
Dim Path As String
Path = String.Format("{0}Ventas", UsuarioActual.Empresa.Ruta)
If Not Directory.Exists(Path) Then
@@ -36298,17 +36305,28 @@ Partial Class Ventas
File.Delete(Path)
End If
My.Computer.FileSystem.MoveFile(fileItem.FileUrl, Path)
If File.Exists(Path) Then
If Me.CveVenta > 0 Then
Using ObjVta As New ClsVentas
If ObjVta.UpdateVentaAdjunto(Me.CveVenta, Adjunto, UsuarioActual.CveEmpresa) Then
Alert("Documento cargado", TipoMensaje.MsgInformacion)
End If
End Using
Else
Alert("Documento cargado", TipoMensaje.MsgInformacion)
End If
End If
BtnAdjuntar.Visible = False
BtnArchivoAdjunto.Text = Adjunto
BtnArchivoAdjunto.Visible = True
BtnEliminarAdjunto.Visible = True
Alert("Documento cargado", TipoMensaje.MsgInformacion)
objVentas.Dispose()
BtnReemplazarAdjunto.Visible = False
Catch ex As Exception
OnError("Error al cargar archivo", ex)
End Try
End Sub
Protected Sub BtnArchivoAdjunto_Click(sender As Object, e As System.EventArgs) Handles BtnArchivoAdjunto.Click
@@ -36346,9 +36364,20 @@ Partial Class Ventas
Dim objVentas As New ClsVentas
Dim Path As String
Path = String.Format("{0}Ventas/{1}", UsuarioActual.Empresa.Ruta, Adjunto)
If File.Exists(Path) Then
File.Delete(Path)
If Me.CveVenta > 0 Then
Using ObjVta As New ClsVentas
If ObjVta.UpdateVentaAdjunto(Me.CveVenta, "", UsuarioActual.CveEmpresa) Then
Alert("Documento eliminado", TipoMensaje.MsgInformacion)
End If
End Using
End If
End If
BtnAdjuntar.Visible = True
BtnArchivoAdjunto.Text = ""
BtnArchivoAdjunto.Visible = False
@@ -37053,7 +37082,7 @@ Partial Class Ventas
End If
Dim CveSubProyecto As Integer = DdlSubProyectoDatos.SelectedValue.ToEntero()
Dim CveProyecto As Integer = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProyecto", "").ToEntero()
Dim CveProyecto As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto).FiltroPrimeroValor("CveProyecto", "").ToEntero()
Dim Proyecto As String = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("Proyecto", "").ToString()
@@ -37222,10 +37251,10 @@ Partial Class Ventas
CvePrecioListaPS = Me.CvePrecioListaCliente
If CvePrecioListaPS <= 0 Then
CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
CvePrecioListaPS = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero()).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
End If
Else
CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
CvePrecioListaPS = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero()).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
If CvePrecioListaPS <= 0 Then
CvePrecioListaPS = Me.CvePrecioListaCliente 'GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
End If
@@ -37339,7 +37368,7 @@ Partial Class Ventas
Dim Respuesta As Boolean = False
If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
Dim DTSubproyectoActual As DataTable = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa)
Dim DTSubproyectoActual As DataTable = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, DdlSubProyectoDatos.SelectedValue.ToEntero)
If (DTSubproyectoActual.Rows(0)("TipoSucursal").ToString.ToEntero = 1) Then
Respuesta = True
@@ -37720,7 +37749,7 @@ Partial Class Ventas
Dim SubProyecto As String = DdlSubProyectoDatos.SelectedItem.Text
If CveSubProyecto > 0 Then
Dim RowSP = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
Dim RowSP = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto).FiltroPrimero("")
If RowSP IsNot Nothing Then
CveProyecto = RowSP("CveProyecto").ToString().ToEntero()
Proyecto = RowSP("Proyecto").ToString()
@@ -38911,5 +38940,164 @@ Partial Class Ventas
DdlGiro.Items.Insert(0, New ListItem("Seleccione", "-1"))
UpAgregarCliente.Update()
End Sub
'Public Class ClsVentasTemp
' Implements IDisposable
' 'SQL
' Private SqlConexion As SqlClient.SqlConnection
' Private SqlAdapter As SqlClient.SqlDataAdapter
' Private SqlCommand As SqlClient.SqlCommand
' Private SqlTransacc As SqlClient.SqlTransaction
' Private Data As DataTable
' Private Dataset As DataSet
' 'Atributos de la clase
' Private disposedValue As Boolean = False ' Para detectar llamadas redundantes
' Private CveConexion As Integer = 0
' Private EsTransaccionCompartida As Boolean = False
' Public ReadOnly Property DtResultados() As DataTable
' Get
' DtResultados = Data
' End Get
' End Property
' Public Function IniciaTransacSQL() As SqlClient.SqlTransaction
' If SqlTransacc Is Nothing Then SqlTransacc = SqlConexion.BeginTransaction()
' Return SqlTransacc
' End Function
' Public Sub Commit()
' SqlTransacc.Commit()
' End Sub
' Public Sub RollBack()
' SqlTransacc.Rollback()
' End Sub
' Sub New(Optional TransaccionCompartida As SqlClient.SqlTransaction = Nothing, Optional UsuarioActual As Usuario = Nothing)
' If TransaccionCompartida Is Nothing Then
' SqlConexion = New SqlClient.SqlConnection
' SqlConexion.ConnectionString = If(UsuarioActual IsNot Nothing, UsuarioActual.RutaDB, ClsPaginas.UsuarioActualRutaDB)
' Try
' SqlConexion.Open()
' Catch ex As Exception
' OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex)
' End Try
' Else
' SqlConexion = TransaccionCompartida.Connection
' SqlTransacc = TransaccionCompartida
' EsTransaccionCompartida = True
' End If
' SqlAdapter = New SqlClient.SqlDataAdapter("", SqlConexion)
' ConexionAdd()
' End Sub
' Private Sub DataAdapter(ByVal pStrSQL As String, Optional ByVal TipoComando As CommandType = CommandType.StoredProcedure)
' With SqlAdapter.SelectCommand
' .Parameters.Clear()
' .CommandText = pStrSQL
' .CommandType = TipoComando
' End With
' If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc
' Data = New DataTable
' End Sub
' Private Sub ConexionAdd()
' If Not EsTransaccionCompartida AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
' Try
' DataAdapter("PA_Sis_RegistrarConexion")
' With SqlAdapter.SelectCommand.Parameters
' .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name
' .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}?{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString)
' .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output
' End With
' SqlAdapter.Fill(Data)
' CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero
' Catch ex As Exception
' OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
' End Try
' End If
' End Sub
' Private Sub ConexionClose()
' If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
' DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text)
' Try
' SqlAdapter.Fill(Data)
' Catch ex As Exception
' OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
' End Try
' CveConexion = 0
' End If
' End Sub
' Public Function UpdateVentaAdjunto(CveVenta As Integer, Adjunto As String, CveEmpresa As Integer) As Boolean
' Dim Retorno As Boolean = False
' DataAdapter("PA_Vta_VentaAdjuntoUpdate")
' With SqlAdapter.SelectCommand.Parameters
' .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
' .Add("@Adjunto", SqlDbType.VarChar).Value = Adjunto
' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
' End With
' Try
' SqlAdapter.Fill(Data)
' Retorno = True
' Catch ex As Exception
' OnError("Ocurrió un error al actualizar el adjunto de la venta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
' End Try
' Return Retorno
' End Function
' ' IDisposable
' Protected Overridable Sub Dispose(disposing As Boolean)
' If Not Me.disposedValue Then
' If disposing Then
' ' TODO: dispose managed state (managed objects).
' If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
' If Not Dataset Is Nothing Then Dataset.Dispose() : Dataset = Nothing
' If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
' If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
' If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
' If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
' If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
' End If
' ' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below.
' ' TODO: set large fields to null.
' End If
' Me.disposedValue = True
' End Sub
' ' This code added by Visual Basic to correctly implement the disposable pattern.
' Public Sub Dispose() Implements IDisposable.Dispose
' ' Do not change this code. Put cleanup code in Dispose(disposing As Boolean) above.
' ConexionClose()
' Dispose(True)
' GC.SuppressFinalize(Me)
' End Sub
'End Class
End Class