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

Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-05-10 09:44:34 -07:00
parent 54c6e7abe0 8e51a3f48f
commit 9ff59882c8
10 changed files with 83 additions and 71 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
App_Code/ClsRH.vb
View File

@@ -2057,7 +2057,7 @@ Public Class ClsRH
.Add("@CveSubTipoPeriodo", SqlDbType.Int).Value = CveSubTipoPeriodo .Add("@CveSubTipoPeriodo", SqlDbType.Int).Value = CveSubTipoPeriodo
'.Add("@ErrorMostrarADS", SqlDbType.VarChar, 50).Direction = ParameterDirection.Output '.Add("@ErrorMostrarADS", SqlDbType.VarChar, 50).Direction = ParameterDirection.Output
.Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.Output .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
End With End With

5
App_Code/ClsVentas.vb
View File

@@ -6744,7 +6744,8 @@ Public Class ClsVentas
End Function End Function
Public Function GetProcedimientoProducto(CveProcedimiento As Integer, Estatus As Integer, CveEmpresa As Integer, CveCliente As Integer, CveSubProyecto As Integer) As Boolean Public Function GetProcedimientoProducto(CveProcedimiento As Integer, Estatus As Integer, CveEmpresa As Integer, CveCliente As Integer, CveSubProyecto As Integer,
Optional CveClienteSucursal As Integer = -1, Optional CveTipoVenta As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Vta_ProcedimientosProductosGet") DataAdapter("PA_Vta_ProcedimientosProductosGet")
@@ -6755,6 +6756,8 @@ Public Class ClsVentas
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal
.Add("@CveTipoVenta", SqlDbType.Int).Value = CveTipoVenta
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)

BIN
Bin/ClbNegBICFDv3_2.dll
View File

Binary file not shown.

5
Contabilidad/RepBalanceGeneral.aspx.vb
View File

@@ -293,6 +293,11 @@ Partial Class Contabilidad_RepBalanceGeneral
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then If Not Page.IsPostBack Then
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
Response.Redirect($"/Contabilidad2/RepSituacionFinanciera.aspx")
End If
If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then
BtnConsultar.Enabled = True BtnConsultar.Enabled = True
TabNormal.Enabled = True TabNormal.Enabled = True

3
Contabilidad/RepEstadoResultados.aspx.vb
View File

@@ -145,6 +145,9 @@ Partial Class Contabilidad_RepEstadoResultados
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then If Not Page.IsPostBack Then
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
Response.Redirect($"/Contabilidad2/RepEstadoActividades.aspx")
End If
If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then

108
General/SaldosIniciales.aspx.vb
View File

@@ -3591,47 +3591,49 @@ Partial Class General_SaldosIniciales
For Each Row As DataRow In dt.Rows For Each Row As DataRow In dt.Rows
Dim myarraystr As String() Dim myarraystr As String()
Dim RegistroPatronal As String = Row("Registro Patronal").ToString().ToUpper() Dim RegistroPatronal As String = Row("Registro Patronal").ToString().ToUpper().Trim
Dim Codigo As String = Row("Código").ToString() Dim Codigo As String = Row("Código").ToString().Trim
Dim ApellidoPaterno As String = Row("Apellido Paterno").ToString() Dim ApellidoPaterno As String = Row("Apellido Paterno").ToString().Trim
Dim ApellidoMaterno As String = Row("Apellido Materno").ToString() Dim ApellidoMaterno As String = Row("Apellido Materno").ToString().Trim
Dim Nombre As String = Row("Nombre").ToString() Dim Nombre As String = Row("Nombre").ToString().Trim
Dim CorreoElectronico As String = Row("Correo Electronico").ToString() Dim CorreoElectronico As String = Row("Correo Electronico").ToString().Trim
Dim FechaIngreso As String = Row("Fecha Ingreso").ToString() Dim FechaIngreso As String = Row("Fecha Ingreso").ToString().Trim
Dim FechaBaja As String = Row("Fecha Baja").ToString() Dim FechaBaja As String = Row("Fecha Baja").ToString().Trim
Dim NumeroSS As String = Row("Numero SS").ToString() Dim NumeroSS As String = Row("Numero SS").ToString().Trim
Dim AltaIMSS As String = Row("Alta IMSS").ToString() Dim AltaIMSS As String = Row("Alta IMSS").ToString().Trim
Dim SalarioDiario As String = Row("Salario Diario").ToString() Dim SalarioDiario As String = Row("Salario Diario").ToString().Trim
Dim Direccion As String = Row("Dirección").ToString() Dim Direccion As String = Row("Dirección").ToString().Trim
Dim FechaNacimiento As String = Row("Fecha Nacimiento").ToString() Dim FechaNacimiento As String = Row("Fecha Nacimiento").ToString().Trim
Dim LugarNacimiento As String = Row("Lugar Nacimiento").ToString() Dim LugarNacimiento As String = Row("Lugar Nacimiento").ToString().Trim
Dim Sexo As String = Row("Sexo").ToString() Dim Sexo As String = Row("Sexo").ToString().Trim
Dim CodigoPostal As String = Row("Código Postal").ToString() Dim CodigoPostal As String = Row("Código Postal").ToString().Trim
Dim Ciudad As String = Row("Ciudad").ToString() Dim Colonia As String = Row("Colonia").ToString().Trim
Dim EstadoCivil As String = Row("Estado Civil").ToString().ToUpper Dim NumExterior As String = Row("NumExterior").ToString().Trim
Dim Telefono As String = Row("Teléfono").ToString() Dim Ciudad As String = Row("Ciudad").ToString().Trim
Dim Celular As String = Row("Celular").ToString() Dim EstadoCivil As String = Row("Estado Civil").ToString().ToUpper.Trim
Dim RFC As String = Row("RFC").ToString() Dim Telefono As String = Row("Teléfono").ToString().Trim
Dim CURP As String = Row("CURP").ToString() Dim Celular As String = Row("Celular").ToString().Trim
Dim ClabeInterbancaria As String = Row("CLABE").ToString() Dim RFC As String = Row("RFC").ToString().Trim
Dim EstatusPersonal As String = Row("Estatus Personal").ToString().ToUpper Dim CURP As String = Row("CURP").ToString().Trim
Dim SubProyecto As String = Row("SubProyecto").ToString().ToUpper Dim ClabeInterbancaria As String = Row("CLABE").ToString().Trim
Dim EstatusPersonal As String = Row("Estatus Personal").ToString().ToUpper.Trim
Dim SubProyecto As String = Row("SubProyecto").ToString().ToUpper.Trim
'Nuevas 'Nuevas
Dim Estado As String = Row("Estado").ToString() Dim Estado As String = Row("Estado").ToString().Trim
Dim NombrePadre As String = Row("Nombre Padre").ToString() Dim NombrePadre As String = Row("Nombre Padre").ToString().Trim
Dim NombreMadre As String = Row("Nombre Madre").ToString() Dim NombreMadre As String = Row("Nombre Madre").ToString().Trim
Dim Puesto As String = Row("Puesto").ToString() Dim Puesto As String = Row("Puesto").ToString().Trim
Dim Turno As String = Row("Turno").ToString() Dim Turno As String = Row("Turno").ToString().Trim
Dim TipoContrato As String = Row("Tipo Contrato").ToString() Dim TipoContrato As String = Row("Tipo Contrato").ToString().Trim
Dim Departamento As String = Row("Departamento").ToString() Dim Departamento As String = Row("Departamento").ToString().Trim
Dim TipoPeriodo As String = Row("Tipo Periodo").ToString() Dim TipoPeriodo As String = Row("Tipo Periodo").ToString().Trim
Dim Escolaridad As String = Row("Escolaridad").ToString() Dim Escolaridad As String = Row("Escolaridad").ToString().Trim
Dim SDI As String = Row("SDI").ToString() Dim SDI As String = Row("SDI").ToString().Trim
Dim MetodoPago As String = Row("Metodo Pago").ToString() Dim MetodoPago As String = Row("Metodo Pago").ToString().Trim
Dim Nominista As String = Row("Nominista").ToString() Dim Nominista As String = Row("Nominista").ToString().Trim
Dim CveCuentaContable As Integer = Row("CveCuentaContable").ToString().ToEntero() Dim CveCuentaContable As Integer = Row("CveCuentaContable").ToString().ToEntero()
Dim Saldo As Decimal = Row("Saldo").ToString().ToDecimal Dim Saldo As Decimal = Row("Saldo").ToString().ToDecimal
Dim TipoTrabajador As String = Row("Tipo Trabajador").ToString() Dim TipoTrabajador As String = Row("Tipo Trabajador").ToString().Trim
Dim NombreCompleto As String = $"{Nombre} {ApellidoPaterno} {ApellidoMaterno}" Dim NombreCompleto As String = $"{Nombre} {ApellidoPaterno} {ApellidoMaterno}"
@@ -3666,6 +3668,16 @@ Partial Class General_SaldosIniciales
End If End If
If CvePuesto <= 0 Then
Dim ObjRH2 As New ClsRH
ObjRH2.AddPuesto(Puesto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
ObjRH2.Dispose()
GlobalDTRHPuestos(UsuarioActual.CveEmpresa) = Nothing
dtpuestos = GlobalDTRHPuestos(UsuarioActual.CveEmpresa)
CvePuesto = dtpuestos.FiltroPrimeroValor("CvePuesto", $"(Puesto) = ('{Puesto}')").ToString().ToEntero()
End If
CveTipoTrabajador = dtTipoTrabajador.FiltroPrimeroValor("CveTipoTrabajador", $"(TipoTrabajador) = ('{TipoTrabajador}')").ToString().ToEntero() CveTipoTrabajador = dtTipoTrabajador.FiltroPrimeroValor("CveTipoTrabajador", $"(TipoTrabajador) = ('{TipoTrabajador}')").ToString().ToEntero()
If CveTipoTrabajador = 0 Then If CveTipoTrabajador = 0 Then
CveTipoTrabajador = -1 CveTipoTrabajador = -1
@@ -3691,17 +3703,14 @@ Partial Class General_SaldosIniciales
myarraystr = SubProyecto.Split(":"c) myarraystr = SubProyecto.Split(":"c)
If (myarraystr.Length > 1) Then If (myarraystr.Length > 1) Then
CveSubProyecto = myarraystr(0).ToEntero() CveSubProyecto = myarraystr(0).ToEntero()
CveSubProyecto = dTSubProyectos.FiltroPrimeroValor("CveSubProyecto", $"CveSubProyecto = {CveSubProyecto}").ToString().ToEntero() CveSubProyecto = dTSubProyectos.FiltroPrimeroValor("CveSubProyecto", $"CveSubProyecto = {CveSubProyecto}").ToEntero()
Else Else
CveSubProyecto = dTSubProyectos.FiltroPrimeroValor("CveSubProyecto", $"SubProyecto = '{SubProyecto}'").ToString().ToEntero() CveSubProyecto = dTSubProyectos.FiltroPrimeroValor("CveSubProyecto", $"SubProyecto = '{SubProyecto}'").ToEntero()
End If End If
If CveSubProyecto = 0 Then If CveSubProyecto = 0 Then
CveSubProyecto = -1 CveSubProyecto = -1
End If End If
myarraystr = Departamento.Split(":"c) myarraystr = Departamento.Split(":"c)
If (myarraystr.Length > 1) Then If (myarraystr.Length > 1) Then
CveDepartamento = myarraystr(0).ToEntero() CveDepartamento = myarraystr(0).ToEntero()
@@ -3711,7 +3720,11 @@ Partial Class General_SaldosIniciales
CveDepartamento = dTDepartamentos.FiltroPrimeroValor("CveDepartamento", $"Departamento = '{Departamento}'").ToString().ToEntero() CveDepartamento = dTDepartamentos.FiltroPrimeroValor("CveDepartamento", $"Departamento = '{Departamento}'").ToString().ToEntero()
End If End If
If CveDepartamento <= 0 Then If CveDepartamento <= 0 Then
CveDepartamento = -1 Dim ObjRH2 As New ClsRH
ObjRH2.AddDepartamento(Departamento, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
ObjRH2.Dispose()
CveDepartamento = dTDepartamentos.FiltroPrimeroValor("CveDepartamento", $"Departamento = '{Departamento}'").ToString().ToEntero()
End If End If
myarraystr = Estado.Split(":"c) myarraystr = Estado.Split(":"c)
@@ -3814,15 +3827,10 @@ Partial Class General_SaldosIniciales
If Not CveMetodoPago > 0 Then Alert($"No se encontró el Método de Pago: {MetodoPago} Renglón: {NumRow}: ", TipoMensaje.MsgAdvertencia) : ErrorRH = True : Exit For If Not CveMetodoPago > 0 Then Alert($"No se encontró el Método de Pago: {MetodoPago} Renglón: {NumRow}: ", TipoMensaje.MsgAdvertencia) : ErrorRH = True : Exit For
If Not CveUsuarioNomina > 0 Then CveUsuarioNomina = -1 'Alert("No se encontró el Nominista: " + Nominista + " Renglón: " + NumRow, TipoMensaje.MsgAdvertencia) : ErrorRH = True : Exit For If Not CveUsuarioNomina > 0 Then CveUsuarioNomina = -1 'Alert("No se encontró el Nominista: " + Nominista + " Renglón: " + NumRow, TipoMensaje.MsgAdvertencia) : ErrorRH = True : Exit For
Dim CvePersonal As Integer = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePersonal", $"NombreCompletoNombre = '{NombreCompleto}'").ToString().ToEntero() Dim CvePersonal As Integer = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePersonal", $"NombreCompletoNombre = '{NombreCompleto}'").ToString().ToEntero()
If Not (CvePersonal > 0) Then If Not (CvePersonal > 0) Then
CvePersonal = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePersonal", $"CURP = '{CURP}'").ToString().ToEntero() CvePersonal = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePersonal", $"CURP = '{CURP}'").ToString().ToEntero()
End If End If
'PENDIENTES POR MEJORAR 'PENDIENTES POR MEJORAR
@@ -3880,7 +3888,7 @@ Partial Class General_SaldosIniciales
End If End If
If Not ObjRH.AddPersonal(Codigo, ApellidoPaterno, ApellidoMaterno, Nombre, CorreoElectronico, FechaIn, CveTipoPeriodo, NumeroSS, CBool(AltaIMSS), SalarioDiario.ToDouble, SalarioDiario.ToDouble, SDI.ToDouble, SDI.ToDouble, If Not ObjRH.AddPersonal(Codigo, ApellidoPaterno, ApellidoMaterno, Nombre, CorreoElectronico, FechaIn, CveTipoPeriodo, NumeroSS, CBool(AltaIMSS), SalarioDiario.ToDouble, SalarioDiario.ToDouble, SDI.ToDouble, SDI.ToDouble,
-1, -1, -1, CveMetodoPago, FechaIn, FechaFn.ToString(), CveTipoContrato, Direccion, CveTurno, CvePuesto, CveDepartamento, -1, CveEscolaridad, CveEstadoCivil, CveGenero, -1, FechaBaja, CveEstatusPersonal, FechaNac, -1, -1, -1, CveMetodoPago, FechaIn, FechaFn.ToString(), CveTipoContrato, Direccion, CveTurno, CvePuesto, CveDepartamento, -1, CveEscolaridad, CveEstadoCivil, CveGenero, -1, FechaBaja, CveEstatusPersonal, FechaNac,
LugarNacimiento, Direccion, "", "", "", CodigoPostal, Ciudad, CveEstado, Telefono, "", Celular, RFC, CURP, "", NombrePadre, NombreMadre, -1, CveSATRiesgoPuesto, CveSATRegimenContratacion, -1, CveSubProyecto, "", -1, LugarNacimiento, Direccion, NumExterior, "", Colonia, CodigoPostal, Ciudad, CveEstado, Telefono, "", Celular, RFC, CURP, "", NombrePadre, NombreMadre, -1, CveSATRiesgoPuesto, CveSATRegimenContratacion, -1, CveSubProyecto, "", -1,
ClabeInterbancaria, "", CveJornada, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveUsuarioNomina, "", CveRegistroPatronal:=CveRegistroPatronal, CveTipoTrabajador:=CveTipoTrabajador) Then ClabeInterbancaria, "", CveJornada, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveUsuarioNomina, "", CveRegistroPatronal:=CveRegistroPatronal, CveTipoTrabajador:=CveTipoTrabajador) Then
If (ObjRH.noguardoXcurpb) Then If (ObjRH.noguardoXcurpb) Then
Else Else

9
Inventarios/RecepcionUsados.aspx.vb
View File

@@ -2419,12 +2419,10 @@ Partial Class Inventarios_RecepcionUsados
Me.ObjRemisionNC.TipoMensajeRespuesta = Modelos.TipoMensajeRespuesta.HTML Me.ObjRemisionNC.TipoMensajeRespuesta = Modelos.TipoMensajeRespuesta.HTML
Me.ObjRemisionNC.Serie = "-1" Me.ObjRemisionNC.Serie = "-1"
Me.ObjRemisionNC.Folio = -1 'Folio.ToEntero() Me.ObjRemisionNC.Folio = -1 'Folio.ToEntero()
Me.ObjRemisionNC.Version = "3.3" Me.ObjRemisionNC.Version = "4.0"
Me.ObjRemisionNC.FolioFiscal = "" Me.ObjRemisionNC.FolioFiscal = ""
Me.ObjRemisionNC.CveUsuario = UsuarioActual.CveUsuario Me.ObjRemisionNC.CveUsuario = UsuarioActual.CveUsuario
Me.ObjRemisionNC.CveEmpresa = UsuarioActual.CveEmpresa Me.ObjRemisionNC.CveEmpresa = UsuarioActual.CveEmpresa
Me.ObjRemisionNC.TipoCambio = 1
Me.ObjRemisionNC.ConvertirPesos = False
Me.ObjRemisionNC.CveMoneda = CveMoneda Me.ObjRemisionNC.CveMoneda = CveMoneda
Me.ObjRemisionNC.Moneda = GlobalDTMonedas.FiltroPrimeroValor("Moneda", String.Format("CveMoneda = {0} ", CveMoneda)) Me.ObjRemisionNC.Moneda = GlobalDTMonedas.FiltroPrimeroValor("Moneda", String.Format("CveMoneda = {0} ", CveMoneda))
Me.ObjRemisionNC.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", String.Format("CveMoneda = {0} ", CveMoneda)) Me.ObjRemisionNC.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", String.Format("CveMoneda = {0} ", CveMoneda))
@@ -2487,9 +2485,7 @@ Partial Class Inventarios_RecepcionUsados
DtMetodoPago.Dispose() DtMetodoPago.Dispose()
DtMetodoPago = Nothing DtMetodoPago = Nothing
End If End If
End If End If
End If End If
End If End If
@@ -2523,8 +2519,7 @@ Partial Class Inventarios_RecepcionUsados
Else Else
Me.ObjRemisionNC.Observaciones = "Devolución por usado" Me.ObjRemisionNC.Observaciones = "Devolución por usado"
End If End If
Me.ObjRemisionNC.OrdenCompra = ""
Me.ObjRemisionNC.PedidoContrato = ""
Me.ObjRemisionNC.ObservacionesAlmacen = TxtObservaciones.Text.Trim Me.ObjRemisionNC.ObservacionesAlmacen = TxtObservaciones.Text.Trim
Me.ObjRemisionNC.MovimientoObservaciones = TxtObservaciones.Text Me.ObjRemisionNC.MovimientoObservaciones = TxtObservaciones.Text
Me.ObjRemisionNC.MovimientoRecibio = TxtResponsable.Text Me.ObjRemisionNC.MovimientoRecibio = TxtResponsable.Text

1
OC/OC.aspx.vb
View File

@@ -626,6 +626,7 @@ Partial Class OC_OC
If UsuarioActual.CveEmpresa.Contiene(13, 83) Then If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
TrMetodoPago.Visible = True TrMetodoPago.Visible = True
TxtFecha.Enabled = False
End If End If
'CARGA YA REGISTRADO 'CARGA YA REGISTRADO

2
Ventas/Ventas.aspx
View File

@@ -8830,7 +8830,7 @@
</asp:BoundField> </asp:BoundField>
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Precio" ItemStyle-Width="30px"> <asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Precio" ItemStyle-Width="30px">
<ItemTemplate> <ItemTemplate>
<asp:TextBox ID="TxtPrecio" runat="server" Text='<%# Eval("Precio", "{0:N4}") %>' Style="text-align: right!important" Width="80px" Enabled="false"></asp:TextBox> <asp:TextBox ID="TxtPrecio" runat="server" Text='<%# Eval("Precio", "{0:#,###.00##}") %>' Style="text-align: right!important" Width="80px" Enabled="false"></asp:TextBox>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>

19
Ventas/Ventas.aspx.vb
View File

@@ -2,14 +2,11 @@
Option Strict On Option Strict On
Option Infer On Option Infer On
Imports System.Activities.Expressions
Imports System.Data Imports System.Data
Imports System.Data.SqlClient
Imports System.Diagnostics Imports System.Diagnostics
Imports System.IO Imports System.IO
Imports System.Net.Http Imports System.Net.Http
Imports System.Security.Cryptography.X509Certificates Imports System.Security.Cryptography.X509Certificates
Imports System.ServiceModel.Security
Imports ADSNetLibrary.SIGAPI.Models.CRM.Request Imports ADSNetLibrary.SIGAPI.Models.CRM.Request
Imports ADSNetLibrary.SIGAPI.Services.CRM Imports ADSNetLibrary.SIGAPI.Services.CRM
Imports ADSTimbrado Imports ADSTimbrado
@@ -11181,7 +11178,7 @@ Partial Class Ventas
End If End If
End Sub End Sub
Private Function CRMActualizaImporteBitacora(CveAcercamientoCRMActualizar As Integer, ImporteCRM As Decimal, SerieFolioVenta As String, ByRef ObjTRansaccion As SqlTransaction) As Boolean Private Function CRMActualizaImporteBitacora(CveAcercamientoCRMActualizar As Integer, ImporteCRM As Decimal, SerieFolioVenta As String, ByRef ObjTransaccion As SqlClient.SqlTransaction) As Boolean
Dim cRMService As ICRMService = New CRMService(System.Configuration.ConfigurationManager.ConnectionStrings("Conexion").ConnectionString) Dim cRMService As ICRMService = New CRMService(System.Configuration.ConfigurationManager.ConnectionStrings("Conexion").ConnectionString)
Dim AcercamientoModel As RequestAcercamiento = New RequestAcercamiento(UsuarioActual.CveEmpresa, CveAcercamientoCRMActualizar) Dim AcercamientoModel As RequestAcercamiento = New RequestAcercamiento(UsuarioActual.CveEmpresa, CveAcercamientoCRMActualizar)
@@ -11191,8 +11188,8 @@ Partial Class Ventas
Dim CveTipoProcesoCRM As Integer = objAcercamiento.Result(0).CveTipoProceso.ToEntero Dim CveTipoProcesoCRM As Integer = objAcercamiento.Result(0).CveTipoProceso.ToEntero
Dim Respuesta As Boolean = False Dim Respuesta As Boolean = False
Dim ObjCRM As New ClsCRM(ObjTRansaccion) Dim ObjCRM As New ClsCRM(ObjTransaccion)
Dim ObjEventoBitacora As New ClsOIEventos(ObjTRansaccion) Dim ObjEventoBitacora As New ClsOIEventos(ObjTransaccion)
If objAcercamiento.Result.Count > 0 Then If objAcercamiento.Result.Count > 0 Then
If ObjCRM.UpdateAcercamientoCotizacion(CveAcercamientoCRMActualizar, ImporteCRM, UsuarioActual.CveEmpresa) Then If ObjCRM.UpdateAcercamientoCotizacion(CveAcercamientoCRMActualizar, ImporteCRM, UsuarioActual.CveEmpresa) Then
@@ -37508,7 +37505,7 @@ Partial Class Ventas
Protected Sub DdlClienteSucursal_SelectedIndexChanged(sender As Object, e As EventArgs) Protected Sub DdlClienteSucursal_SelectedIndexChanged(sender As Object, e As EventArgs)
Dim CveClienteSplit As Integer = -1 Dim CveClienteSplit As Integer = -1
CargaPSProcedimiento(DdlProcedimiento.SelectedValue.ToEntero, DdlClienteSucursalCliente, DdlSubProyectoDatos.SelectedValue.ToEntero) CargaPSProcedimiento(DdlProcedimiento.SelectedValue.ToEntero, DdlClienteSucursalCliente, DdlSubProyectoDatos.SelectedValue.ToEntero, CveClienteSucursalL:=DdlClienteSucursalSucursal, CveTipoVentaL:=RBLTipoVenta.SelectedValue.ToEntero)
End Sub End Sub
Private Function DdlClienteSucursalCliente() As Integer Private Function DdlClienteSucursalCliente() As Integer
@@ -37794,13 +37791,13 @@ Partial Class Ventas
End Sub End Sub
Protected Sub DdlProcedimientoModal_SelectedIndexChanged(sender As Object, e As EventArgs) Protected Sub DdlProcedimientoModal_SelectedIndexChanged(sender As Object, e As EventArgs)
CargaPSProcedimiento(DdlProcedimientoModal.SelectedValue.ToEntero, DdlClienteSucursalCliente, DdlSubProyectoDatos.SelectedValue.ToEntero) CargaPSProcedimiento(DdlProcedimientoModal.SelectedValue.ToEntero, DdlClienteSucursalCliente, DdlSubProyectoDatos.SelectedValue.ToEntero, CveClienteSucursalL:=DdlClienteSucursalSucursal, CveTipoVentaL:=RBLTipoVenta.SelectedValue.ToEntero)
End Sub End Sub
Private Sub CargaPSProcedimiento(CveProcedimiento As Integer, CveClienteL As Integer, CveSubProyectoL As Integer) Private Sub CargaPSProcedimiento(CveProcedimiento As Integer, CveClienteL As Integer, CveSubProyectoL As Integer, Optional CveClienteSucursalL As Integer = -1, Optional CveTipoVentaL As Integer = -1)
If CveProcedimiento > 0 Then If CveProcedimiento > 0 Then
Dim objVenta As New ClsVentas Dim objVenta As New ClsVentas
If objVenta.GetProcedimientoProducto(CveProcedimiento, 1, UsuarioActual.CveEmpresa, CveClienteL, CveSubProyectoL) Then If objVenta.GetProcedimientoProducto(CveProcedimiento, 1, UsuarioActual.CveEmpresa, CveClienteL, CveSubProyectoL, CveClienteSucursalL, CveTipoVentaL) Then
GvProductosProcedimiento.DataSource = objVenta.DtResultados GvProductosProcedimiento.DataSource = objVenta.DtResultados
End If End If
objVenta.Dispose() objVenta.Dispose()
@@ -37846,7 +37843,7 @@ Partial Class Ventas
End Sub End Sub
Private Function GeneraOS(ByRef TransacSQL As SqlTransaction, ByRef errorList As List(Of String), CveVentaOS As Integer, SerieFolioOS As String) As Boolean Private Function GeneraOS(ByRef TransacSQL As SqlClient.SqlTransaction, ByRef errorList As List(Of String), CveVentaOS As Integer, SerieFolioOS As String) As Boolean
Dim Errores As Boolean = False Dim Errores As Boolean = False