@@ -2,6 +2,7 @@
Option Strict On
Imports System . Data
Imports System . Data . SqlClient
Imports System . Globalization
Imports System . IO
Imports System . Net
@@ -12,9 +13,9 @@ Imports Newtonsoft.Json
Imports Newtonsoft . Json . Linq
Partial Class Clientes
Inherits ClsPaginas
'Configuración
Inherits ClsPaginas
'Configuración
#Region "P R O P I E D A D E S"
Private Const NumeroDecimales As Integer = 2
Private CveVentaDeduccion As Integer
@@ -455,13 +456,13 @@ Partial Class Clientes
Set ( value As DateTime )
ViewState ( " FechaIngLineaAdicional " ) = value
End Set
End Property
End Property
#End Region
#Region "Documentacion"
Private Property DTDocumentacion As DataTable
Get
@@ -586,24 +587,24 @@ Partial Class Clientes
Set ( value As Integer )
ViewState ( " CveVendedorOriginal " ) = value
End Set
End Property
'Private ReadOnly Property CvePersonal As Integer
' Get
' If ViewState("CvePersonal") Is Nothing Then
' Return -1
' Else
' Return ViewState("CvePersonal").ToString().Toentero()
' End If
' End Get
'End Property
End Property
'Private ReadOnly Property CvePersonal As Integer
' Get
' If ViewState("CvePersonal") Is Nothing Then
' Return -1
' Else
' Return ViewState("CvePersonal").ToString().Toentero()
' End If
' End Get
'End Property
#End Region
#Region " A C U M U L A D O R E S"
Property CveVentaNota As Integer
Get
@@ -643,10 +644,23 @@ Partial Class Clientes
Set ( value As String )
ViewState ( " SerieNotaAcumulador " ) = value
End Set
End Property
End Property
#End Region
Property CvePrecioListaOriginal As Integer
Get
If ViewState ( " CvePrecioListaOriginal " ) Is Nothing Then
Return 0
Else
Return ViewState ( " CvePrecioListaOriginal " ) . ToString ( ) . ToEntero ( )
End If
End Get
Set ( value As Integer )
ViewState ( " CvePrecioListaOriginal " ) = value
End Set
End Property
Protected Sub Page_Load ( sender As Object , e As System . EventArgs ) Handles Me . Load
If Not IsPostBack Then
@@ -911,12 +925,12 @@ Partial Class Clientes
ChkPermiso5 . Enabled = False
ChkPermiso6 . Enabled = False
End Sub
End Sub
#Region " PERMISOS PAGINAS "
Private Sub MostrarTxtDireccionesClienteEnvio ( )
If UsuarioActual . CveEmpresa . Contiene ( 72 , 80 , 146 ) Then
@@ -953,15 +967,15 @@ Partial Class Clientes
If Not ChkEsDistribuidor . Checked Then
BtnGuardar . Visible = PermiteEditar ( )
End If
End Sub
End Sub
#End Region
#Region "C A R G A S"
Private Sub CreaDtPago ( )
DtPagos = New DataTable
DtPagos . Columns . Add ( " CveTipoMovimiento " , GetType ( String ) )
@@ -1132,9 +1146,9 @@ Partial Class Clientes
Select Case HdnCuenta . Value
Case " 1 "
CargaDdlCuentasContables ( DdlCtaContableClientes , 1 ) 'UsuarioActual.Empresa.Funcionalidad(246).Toentero()
CargaDdlCuentasContables ( DdlCtaContableClientes , 1 ) 'UsuarioActual.Empresa.Funcionalidad(246).Toentero()
Case " 2 "
CargaDdlCuentasContables ( DdlCtaContableAnticipos , 1 ) ' UsuarioActual.Empresa.Funcionalidad(237).Toentero()
CargaDdlCuentasContables ( DdlCtaContableAnticipos , 1 ) ' UsuarioActual.Empresa.Funcionalidad(237).Toentero()
Case " 3 "
CargaDdlCuentasContables ( DdlCtaContableRetIVA , - 1 )
Case " 4 "
@@ -1142,11 +1156,11 @@ Partial Class Clientes
Case " 5 "
CargaDdlCuentasContables ( DdlCtaContableFondoGarantia , - 1 )
Case " 6 "
CargaDdlCuentasContables ( DdlCtaContableCompClientes , 1 ) 'UsuarioActual.Empresa.Funcionalidad(248).Toentero()
CargaDdlCuentasContables ( DdlCtaContableCompClientes , 1 ) 'UsuarioActual.Empresa.Funcionalidad(248).Toentero()
Case " 7 "
CargaDdlCuentasContables ( DdlCtaContableCompAnticipos , - 1 )
Case " 8 "
CargaDdlCuentasContables ( DdlMonedaExtranjeraClientes , 1 ) 'UsuarioActual.Empresa.Funcionalidad(247).Toentero()
CargaDdlCuentasContables ( DdlMonedaExtranjeraClientes , 1 ) 'UsuarioActual.Empresa.Funcionalidad(247).Toentero()
Case " 9 "
CargaDdlCuentasContables ( DdlMonedaExtranjeraAnticipos , 1 ) 'UsuarioActual.Empresa.Funcionalidad(542).Toentero()
End Select
@@ -1231,7 +1245,7 @@ Partial Class Clientes
End If
UpDatos . Update ( )
End Sub
@@ -1452,7 +1466,8 @@ Partial Class Clientes
TxtNotificar . Text = ObjClientes . NotificarA
TxtPagina . Text = ObjClientes . Pagina
'TxtGiro.Text = ObjClientes.Giro
DdlPrecioLista . SelectedValue = ObjClientes . CvePrecioLista . ToString ( )
DdlPrecioLista . SelectedValueExist ( ObjClientes . CvePrecioLista . ToString ( ) )
CvePrecioListaOriginal = ObjClientes . CvePrecioLista
TxtCC . Text = ObjClientes . NotificarA
ChkMail . Checked = ObjClientes . EnviarFactura
@@ -1997,11 +2012,11 @@ Partial Class Clientes
DdlSucursalUsoCFDI . DataSource = GlobalDTSATUsosCFDI ( UsuarioActual . Empresa . EsPersonaFisica , RegimenFiscalReceptor : = RegimenFiscalCliente )
DdlSucursalUsoCFDI . DataBind ( )
UpFiscalContable . Update ( )
End Sub
End Sub
#End Region
#Region "V E R M Á S"
Protected Sub BtnVerMasVentas_Click ( sender As Object , e As EventArgs )
If BtnVerMasVentas . Text = " Ver Más " Then
CargaHistorial ( - 1 )
@@ -2031,12 +2046,12 @@ Partial Class Clientes
CargaBancos ( 51 )
BtnVerMasBancos . Text = " Ver Más "
End If
End Sub
End Sub
#End Region
#Region "B A N C O S"
'CuentasxCobrar Activas (Pagos Recibidos)
'CuentasxCobrar Activas (Pagos Recibidos)
Private Sub CargaBancos ( Optional SelectTop As Integer = 51 , Optional CveClienteSucursal As Integer = - 1 )
Dim ObjMovtos As New ClsMovimientos ( )
'CxC Activas
@@ -2106,9 +2121,9 @@ Partial Class Clientes
TxtParaMail . Text = TxtCobranzaCorreo . Text
UpSendMail . Update ( )
RegistraScript ( " $('#ModalDivMail').modal('show'); " )
End Sub
End Sub
#End Region
#Region "B T N ´
Protected Sub BtnEliminar_Click ( sender As Object , e As System . EventArgs ) Handles BtnEliminar . Click
Dim ObjClientes As New ClsClientes ( )
@@ -2483,7 +2498,7 @@ Partial Class Clientes
Dim FechaLimiteCredito As Date = If ( TxtFechaLimiteCredito . Text . Trim . Length > 0 , TxtFechaLimiteCredito . Text . ToDate , New Date ( 1900 , 1 , 1 ) )
Dim GeneroCliente As Boolean = If ( DdlGeneroCliente . SelectedValue . ToEntero = 1 Or DdlGeneroCliente . SelectedValue . ToEntero = - 1 , True , False )
Dim CvePrecioLista As Integer = DdlPrecioLista . SelectedValue . ToEntero ( )
'If DivCrearPrecioLista.Visible AndAlso ChkCrearPrecioLista.Checked Then
' CvePrecioListaNuevo = ObjVentas.AddPrecioLista(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtPrecioLista.Text, 0)
@@ -2494,6 +2509,17 @@ Partial Class Clientes
' End If
'End If
If Not ErrorProceso AndAlso UsuarioActual . Empresa . Funcionalidad ( 404 ) . Contiene ( " 10 " , " 30 " ) Then
If DdlPrecioLista . SelectedValue . ToEntero . Contiene ( - 2 , - 3 ) Then
If Not AsignaLista ( ObjClientes . IniciaTransacSQL ) Then
ErrorProceso = True
Alert ( " Error al generar lista de precios. " , TipoMensaje . MsgAdvertencia )
End If
End If
End If
Dim CvePrecioLista As Integer = DdlPrecioLista . SelectedValue . ToEntero ( )
If Not ErrorProceso Then
'VERIFICA SI ES CLIENTE NUEVO O ACTUALIZACION
If Me . CveCliente = - 1 Then
@@ -2614,6 +2640,7 @@ Partial Class Clientes
If ErrorProceso Then
ObjClientes . RollBack ( )
CargaPrecioLista ( )
Alert ( " Ocurrió un error al guardar. " , TipoMensaje . MsgError )
Else
ObjClientes . Commit ( )
@@ -2694,11 +2721,11 @@ Partial Class Clientes
End If
End If
End Sub
End Sub
#End Region
#Region "G L O B L A L"
Private Sub RecargaGlobal ( )
@@ -2707,10 +2734,10 @@ Partial Class Clientes
Private Sub GeneraGlobalDT ( )
GlobalDTCliente ( UsuarioActual . CveEmpresa ) = Nothing
End Sub
End Sub
#End Region
#Region "G R I D V I E W S"
Protected Sub GVHistorial_RowDataBound ( sender As Object , e As System . Web . UI . WebControls . GridViewRowEventArgs ) Handles GVHistorial . RowDataBound
If e . Row . RowType = DataControlRowType . DataRow Then
@@ -2851,11 +2878,11 @@ Partial Class Clientes
End If
End If
End Sub
End Sub
#End Region
#Region "R H"
Private Sub CargaPersonalAsignado ( )
Dim ObjPersonal As New ClsRH
If ObjPersonal . GetPersonal ( - 1 , " -1 " , " -1 " , " -1 " , " -1 " , - 1 , - 1 , - 1 , - 1 , - 1 , - 1 , - 1 , - 1 , - 1 , CveCliente , " -1 " , - 1 , - 1 , - 1 , - 1 , - 1 , - 1 , " -1 " , " -1 " , " -1 " , " -1 " , UsuarioActual . CveEmpresa ) Then
@@ -2928,9 +2955,9 @@ Partial Class Clientes
End If
End If
End Sub
End Sub
#End Region
#Region "S U C U R S A L E S"
Private Sub LbAgregarSucursal_Click ( sender As Object , e As EventArgs ) Handles LbAgregarSucursal . Click
ChkEstatusSucursal . Checked = True
@@ -3062,7 +3089,7 @@ Partial Class Clientes
UpModalDivMapa . Update ( )
End Sub
End Sub
#Region "G V S U C U R S A L E S"
Protected Sub GvDatos_RowDataBound ( sender As Object , e As System . Web . UI . WebControls . GridViewRowEventArgs ) Handles GVSucursales . RowDataBound
@@ -3184,9 +3211,9 @@ Partial Class Clientes
Else
CargaGrid ( " " , 0 )
End If
End Sub
End Sub
#End Region
#Region "G V U S U A R I O S P O R T A L"
Protected Sub GvUsuariosPortal_RowCommand ( sender As Object , e As GridViewCommandEventArgs ) Handles GvUsuariosPortal . RowCommand
If e . CommandName = " RestablecerContraseña " Then
@@ -3338,9 +3365,9 @@ Partial Class Clientes
CargaGrid ( " " , 1 )
End If
End Sub
End Sub
#End Region
#Region "O R D E N A M I E N T O"
Private Sub CargaGrid ( Orden As String , gvi As Integer )
If gvi = 0 Then
@@ -3372,12 +3399,12 @@ Partial Class Clientes
UPPUsuarios . Update ( )
End If
End Sub
End Sub
#End Region
#End Region
#Region "U S U A R I O S"
Protected Sub LbSolicitudPortal_Click ( sender As Object , e As EventArgs ) Handles LbEnviarActivacionPortal . Click
Dim ObjUsuario As New ClsSisUsuarios
@@ -3559,9 +3586,9 @@ Partial Class Clientes
ChkPermiso5 . Checked = False
ChkPermiso6 . Checked = False
ChkPermiso7 . Checked = False
End Sub
End Sub
#End Region
#Region "E V E N T O - B I T A C O R A"
Protected Sub GVEventoBitacora_RowDataBound ( sender As Object , e As GridViewRowEventArgs ) Handles GvEB . RowDataBound
If e . Row . RowType = DataControlRowType . DataRow Then
@@ -5216,9 +5243,9 @@ Partial Class Clientes
End If
Return Retorno
End Function
End Function
#End Region
#Region "GPS"
Protected Sub btnCargaArrayDisp_Click ( sender As Object , e As EventArgs ) Handles btnCargaArrayDisp . Click
If hdnArrayDispositivo . Value . Length > 0 Then
@@ -5359,10 +5386,10 @@ Partial Class Clientes
UpMoverDispositivo . Update ( )
RegistraScript ( $ " CargaModalMoverDispositivo({GvRow.DataKey( "C veDispositivo " )}); " )
End Sub
End Sub
#End Region
#Region "Sucursales"
Public Sub CreaDTSucursales ( )
@@ -5653,14 +5680,14 @@ Partial Class Clientes
End If
UpDatos . Update ( )
End Sub
End Sub
#End Region
#Region "G P S"
Private Sub EnviaCorreoGPS ( Liga As String , LigaActivar As String )
Try
@@ -5731,16 +5758,16 @@ Partial Class Clientes
End If
ObjClientes . Dispose ( )
End Sub
End Sub
#End Region
#Region "C O N T R A T O S"
Private Sub CargaDatosContrato ( )
If CveCliente <= 0 Then
Exit Sub
@@ -5785,10 +5812,10 @@ Partial Class Clientes
e . Row . CssClass = " Totales white "
End If
End If
End Sub
End Sub
#End Region
#Region "M E T O D O S "
Protected Sub RblTipo_SelectedIndexChanged ( sender As Object , e As EventArgs ) Handles RblTipo . SelectedIndexChanged
If DTHistorialVentas IsNot Nothing AndAlso RblTipo . SelectedValue <> " -1 " Then
@@ -6172,12 +6199,12 @@ Partial Class Clientes
Else
Alert ( " No hay saldo pendiente del cliente. Por lo cual no se envió el mensaje. " , TipoMensaje . MsgInformacion )
End If
End Sub
End Sub
#End Region
#Region "IMPRIMIR GVHistorial"
Protected Sub BtnExcelHistorial_Click ( sender As Object , e As EventArgs )
Protected Sub BtnExcelHistorial_Click ( sender As Object , e As EventArgs )
Dim retorno As Byte ( ) = Nothing
Dim Imagen As New System . IO . FileInfo ( $ " {UsuarioActual.Empresa.Ruta}/Logo.png " )
Dim logouri As String = String . Format ( " {0}://{1}:{2}/Empresas/{3}/Logo.png " , Request . Url . Scheme , Request . Url . Host , Request . Url . Port , UsuarioActual . CveEmpresa )
@@ -6251,18 +6278,18 @@ Partial Class Clientes
ObjClientes . Dispose ( )
Return retorno
End Function
End Function
#End Region
#Region "C O B R A N Z A"
Public Sub Visitas_Click ( sender As Object , e As EventArgs )
RegistraScript ( String . Format ( " $('#{0}').modal(); " , " DivVisitas " ) )
End Sub
End Sub
#End Region
#Region "Usuarios"
Protected Sub GvUsuarios_RowDeleting ( sender As Object , e As System . Web . UI . WebControls . GridViewDeleteEventArgs ) Handles GvUsuarios . RowDeleting
Dim CveUsuario As Integer = GvUsuarios . Rows ( e . RowIndex ) . DataKey ( " CveUsuario " ) . ToEntero ( )
@@ -6298,12 +6325,12 @@ Partial Class Clientes
e . Row . Cells ( 5 ) . Visible = False
End If
End If
End Sub
End Sub
#End Region
#Region "C U E N T A S - B A N C A R I A S"
Private Sub CargaCuentasBancarias ( Optional RecargaGlobal As Boolean = False )
If CveCliente <= 0 Then Exit Sub
@@ -6475,8 +6502,8 @@ Partial Class Clientes
TxtNumeroCuenta2 . Text = " "
TxtConvenioCIE2 . Text = " "
TxtReferencia2 . Text = " "
End Sub
End Sub
#Region "GRIDVIEW - CUENTAS BANCARIAS"
Protected Sub GvBancosCuentas_RowDataBound ( sender As Object , e As System . Web . UI . WebControls . GridViewRowEventArgs ) Handles GvBancosCuentas . RowDataBound
If e . Row . RowType = DataControlRowType . DataRow Then
@@ -6527,10 +6554,10 @@ Partial Class Clientes
GlobalDTCuentasDepositosClientes ( UsuarioActual . CveEmpresa , - 1 ) = Nothing
End If
End Sub
End Sub
#End Region
Private Sub CargaPSGridCuentasBancos ( )
If CveCliente > 0 Then
GvBancosCuentas . DataSource = DTCuentasBancos
@@ -6584,9 +6611,9 @@ Partial Class Clientes
divestatus . Visible = True
UpAddBancos . Update ( )
RegistraScript ( String . Format ( " $('#{0}').modal('show'); " , " DivAddCuentasBancarias " ) )
End Sub
End Sub
#End Region
#Region "C L I E N T E S P A G O S R E A L I Z A D O S I M P R I M I R P D F/Excel"
Private Sub LnkExportar_Click ( sender As Object , e As EventArgs ) Handles LnkPagosClientesBancosExcel . Click
GenerarPDF ( " Excel " )
@@ -6608,11 +6635,11 @@ Partial Class Clientes
ImprimirPDF ( " Empresas\Grales\Formatos\RepClientesPagosBancos.rdlc " , DTCobrosRealizados , params , " RepClientesPagosBancos_ " & NowADS ( ) . ToString ( " yyyyMMddhhmmss " ) , Formato : = Formato )
End Sub
End Sub
#End Region
#Region "VENTAS"
Public Function imprimirFacturaVenta ( CveVenta As Integer ) As Byte ( )
Dim ObjVentas As New ClsVentas
Dim Vta As Modelos . Factura = Nothing
@@ -6843,10 +6870,10 @@ Partial Class Clientes
ObjVentas . Dispose ( )
Return PdfFactura ( Vta )
End Function
End Function
#End Region
#Region "COMERCIO EXTERIOR"
Public Sub CargaCombosComercioExterior ( )
@@ -6970,12 +6997,12 @@ Partial Class Clientes
End Sub
Protected Sub DdlMunicipio_SelectedIndexChanged ( sender As Object , e As EventArgs )
CargaColonia ( )
End Sub
End Sub
#End Region
#Region "D O C U M E N T A C I O N "
Private Sub CargaDocumentacionCliente ( )
Dim objRH As New ClsEdocumentacion ( )
@@ -7577,12 +7604,12 @@ Partial Class Clientes
RegistraScript ( " Download(' " & baseUrl & " ') " )
End Sub
End Sub
#End Region
#Region "D O C U M E N T O S V E N T A S"
Private Sub CargaDocumentosVenta ( tCveCliente As Integer )
Dim objInv As New ClsEdocumentacion
@@ -7750,11 +7777,11 @@ Partial Class Clientes
objRH . Dispose ( )
End Sub
End Sub
#End Region
#Region "PERSONA FISICA"
Protected Sub LnkPersonaFisica_Click ( sender As Object , e As EventArgs )
RegistraScript ( " $('#DivModalPersonaFisica').modal(); " )
@@ -7779,9 +7806,9 @@ Partial Class Clientes
ObjCliente . Dispose ( )
UpDatos . Update ( )
End Sub
End Sub
#End Region
#Region "USUARIOS PLATAFORMA CLIENTE - 6 "
Protected Sub CargaUsuariosPortalCliente ( )
Dim objUsuario As ClsSisUsuarios = New ClsSisUsuarios
@@ -7790,19 +7817,19 @@ Partial Class Clientes
GvUsuarios . DataBind ( )
End If
objUsuario . Dispose ( )
End Sub
End Sub
#End Region
#Region " DEVOLVER DINERO ANT/NC "
Private Sub InicializaDevolverDinero ( )
If UsuarioActual . TienePermisoProceso ( 247 ) Then
GVAnticipos . Columns ( 6 ) . Visible = True
End If
End Sub
End Sub
#End Region
#Region "MODAL GRAFICA/PEDIDOS"
Protected Sub LnkVerGrafica_Click ( sender As Object , e As EventArgs )
If CargaDatatables ( ) Then
RegistraScript ( " $('#DivModalGrafica').modal('show') " )
@@ -8139,13 +8166,13 @@ Partial Class Clientes
RegistraScript ( $ " CargaGraficaCompratamientoSaldoMensual({Dt5.ToJson},{Dt6.ToJson.Replace($ " { Chr ( 34 ) } True { Chr ( 34 ) } " , " true " ).Replace($ " { Chr ( 34 ) } False { Chr ( 34 ) } " , " false " )}) " , " 55 " )
UPModalProd . Update ( )
End Sub
End Sub
#End Region
#Region "TAB - COMPORTAMIENTO DE VENTAS"
Private Sub CargaGrupo ( )
DdlGrupo . Items . Insert ( 0 , New ListItem ( " Categoria " , " 3 " ) )
DdlGrupo . Items . Insert ( 1 , New ListItem ( " Clasificacion " , " 4 " ) )
@@ -8262,12 +8289,12 @@ Partial Class Clientes
ObjVentas . Dispose ( )
GvComportamientoVenta . DataBind ( )
UpDatosComportamientoVenta . Update ( )
End Sub
End Sub
#End Region
#Region "DISPOSITIVOS"
Protected Sub LnkMoverDispositivo_Click ( sender As Object , e As EventArgs )
Dim CveDispositivo As Integer = HdnCveDispositivoMover . Value . ToEntero ( )
Dim CveCliente As Integer = DdlClienteDispositivo . SelectedValue . ToEntero ( )
@@ -8305,10 +8332,10 @@ Partial Class Clientes
CargaEventoBitacora ( )
NombreDispositivo = " "
RegistraScript ( " $('#DivMoverDispositivo').modal('hide'); " )
End Sub
End Sub
#End Region
#Region "CRM"
Protected Sub CargaDatosCRM ( )
Dim ObjCRM As New ClsCRM ( )
@@ -8408,9 +8435,9 @@ Partial Class Clientes
Alert ( " Se Unificó correctamente al Cliente con la Empresa CRM. " )
End If
End If
End Sub
End Sub
#End Region
#Region "PORCENTAJE PRECIO DE MARCAS"
Private Sub LnkPorcentajeMarcas_Click ( sender As Object , e As EventArgs ) Handles LnkPorcentajeMarcas . Click
RegistraScript ( String . Format ( " $('#{0}').modal(); " , " DivPorcentajeMarcas " ) )
@@ -8635,9 +8662,9 @@ Partial Class Clientes
ObjPS . Dispose ( )
End Sub
End Sub
#End Region
#Region "PORCENTAJE PRECIO DE PRODUCTOS"
Private Sub LnkPorcentajePrecios_Click ( sender As Object , e As EventArgs ) Handles LnkPorcentajePrecios . Click
RegistraScript ( String . Format ( " $('#{0}').modal(); " , " DivPorcentajePrecios " ) )
@@ -9509,11 +9536,11 @@ Partial Class Clientes
' ObjFactura.Timbre = PreParaTimbre(ObjFactura)
End Sub
End Sub
#End Region
#Region "C L I E N T E S G R I D S I M P R I M I R P D F/Excel"
Private Sub LnkCotizacionesPDF_Click ( sender As Object , e As EventArgs ) Handles LnkCotizacionesPDF . Click
ImprimeGridsProveedores ( " PDF " , DtCotizaciones , " RepClientesCotizaciones " )
@@ -9582,7 +9609,7 @@ Partial Class Clientes
Alert ( " Puntuación Inicializada " )
End If
Acum . Dispose ( )
End Sub
End Sub
#End Region
Protected Sub DdlTipoRetencion_SelectedIndexChanged ( sender As Object , e As EventArgs )
If UsuarioActual . Empresa . Funcionalidad ( 579 ) = " 1 " Then
@@ -10300,25 +10327,75 @@ Partial Class Clientes
RegistraScript ( " $('#DivAgregarPrecioLista').modal('show'); " )
End Sub
Protected Sub BtnGuardarPL_Click ( sender As Object , e As EventArgs )
Dim ObjVentas As New ClsVentas ( )
Dim CvePrecioListaNuevo As Integer = ObjVentas . AddPrecioLista ( UsuarioActual . CveUsuario , UsuarioActual . CveEmpresa , TxtPrecioLista . Text , False , 0 )
If CvePrecioListaNuevo > 0 Then
Alert ( " La lista de precio se guardo correctamente " )
RegistraScript ( " $('#DivAgregarPrecioLista').modal('hide'); " )
LimpiaItemsListaPrecion ( )
If DdlPrecioListaClonar . SelectedValue . ToEntero > 0 Then
DdlPrecioLista . Items . Add ( New ListItem ( TxtPrecioLista . Text , " -3 " ) )
DdlPrecioLista . SelectedValueExist ( " -3 " )
Else
Alert ( " Ocurrió un error al guardar la lista de precio " , TipoMensaje . MsgError )
DdlPrecioLista . Items . Add ( New ListItem ( TxtPrecioLista . Text , " -2 " ) )
DdlPrecioLista . SelectedValueExist ( " -2 " )
End If
'Alert("La lista de precio se guardo correctamente")
UpDatos . Update ( )
RegistraScript ( " $('#DivAgregarPrecioLista').modal('hide'); " )
End Sub
Private Sub LimpiaItemsListaPrecion ( )
DdlPrecioLista . SelectedValue = Nothing
DdlPrecioLista . ClearSelection ( )
For i As Integer = DdlPrecioLista . Items . Count - 1 To 0 Step - 1
If DdlPrecioLista . Items ( i ) . Value . Contiene ( " -2 " , " -3 " ) Then
DdlPrecioLista . Items . RemoveAt ( i )
End If
Next
End Sub
Private Function AsignaLista ( ByRef transaccionSQL As SqlTransaction ) As Boolean
Dim respuesta As Boolean = True
Dim CvePrecioListaClonar As Integer = - 1
If DdlPrecioLista . SelectedValue . ToEntero = - 3 Then 'Clñonar
CvePrecioListaClonar = DdlPrecioListaClonar . SelectedValue . ToEntero
End If
Dim ObjVentas As New ClsVentas ( transaccionSQL )
Dim CvePrecioListaNuevo As Integer = ObjVentas . AddPrecioLista ( UsuarioActual . CveUsuario , UsuarioActual . CveEmpresa , TxtPrecioLista . Text , False , 0 , CvePrecioListaClonar : = CvePrecioListaClonar )
If Not CvePrecioListaNuevo > 0 Then
respuesta = False
End If
'RECARGA GLOBAL DE LISTA DE PRECIOS SI SE GENERO UNO NUEVO
If CvePrecioListaNuevo > 0 Then
GlobalDTPrecioListas ( UsuarioActual . CveEmpresa ) = Nothing
If ObjVentas . GetPrecioListas ( UsuarioActual . CveEmpresa ) Then
DdlPrecioLista . DataSource = ObjVentas . DtResultados
Else
DdlPrecioLista . DataSource = Nothing
End If
Carga PrecioLista( )
Ddl PrecioLista. DataBind )
DdlPrecioLista . Items . Insert ( 0 , New ListItem ( " - " , " -1 " ) )
'CargaPrecioLista()
DdlPrecioLista . SelectedValueExist ( CvePrecioListaNuevo )
End If
UpDatos . Update ( )
End Sub
Return respuesta
End Function
End Class
rakcsle