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("@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

5
App_Code/ClsVentas.vb
View File

@@ -6744,7 +6744,8 @@ Public Class ClsVentas
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
DataAdapter("PA_Vta_ProcedimientosProductosGet")
@@ -6755,6 +6756,8 @@ Public Class ClsVentas
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveCliente", SqlDbType.Int).Value = CveCliente
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal
.Add("@CveTipoVenta", SqlDbType.Int).Value = CveTipoVenta
End With
Try
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
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
BtnConsultar.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
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

108
General/SaldosIniciales.aspx.vb
View File

@@ -3591,47 +3591,49 @@ Partial Class General_SaldosIniciales
For Each Row As DataRow In dt.Rows
Dim myarraystr As String()
Dim RegistroPatronal As String = Row("Registro Patronal").ToString().ToUpper()
Dim Codigo As String = Row("Código").ToString()
Dim ApellidoPaterno As String = Row("Apellido Paterno").ToString()
Dim ApellidoMaterno As String = Row("Apellido Materno").ToString()
Dim Nombre As String = Row("Nombre").ToString()
Dim CorreoElectronico As String = Row("Correo Electronico").ToString()
Dim FechaIngreso As String = Row("Fecha Ingreso").ToString()
Dim FechaBaja As String = Row("Fecha Baja").ToString()
Dim NumeroSS As String = Row("Numero SS").ToString()
Dim AltaIMSS As String = Row("Alta IMSS").ToString()
Dim SalarioDiario As String = Row("Salario Diario").ToString()
Dim Direccion As String = Row("Dirección").ToString()
Dim FechaNacimiento As String = Row("Fecha Nacimiento").ToString()
Dim LugarNacimiento As String = Row("Lugar Nacimiento").ToString()
Dim Sexo As String = Row("Sexo").ToString()
Dim CodigoPostal As String = Row("Código Postal").ToString()
Dim Ciudad As String = Row("Ciudad").ToString()
Dim EstadoCivil As String = Row("Estado Civil").ToString().ToUpper
Dim Telefono As String = Row("Teléfono").ToString()
Dim Celular As String = Row("Celular").ToString()
Dim RFC As String = Row("RFC").ToString()
Dim CURP As String = Row("CURP").ToString()
Dim ClabeInterbancaria As String = Row("CLABE").ToString()
Dim EstatusPersonal As String = Row("Estatus Personal").ToString().ToUpper
Dim SubProyecto As String = Row("SubProyecto").ToString().ToUpper
Dim RegistroPatronal As String = Row("Registro Patronal").ToString().ToUpper().Trim
Dim Codigo As String = Row("Código").ToString().Trim
Dim ApellidoPaterno As String = Row("Apellido Paterno").ToString().Trim
Dim ApellidoMaterno As String = Row("Apellido Materno").ToString().Trim
Dim Nombre As String = Row("Nombre").ToString().Trim
Dim CorreoElectronico As String = Row("Correo Electronico").ToString().Trim
Dim FechaIngreso As String = Row("Fecha Ingreso").ToString().Trim
Dim FechaBaja As String = Row("Fecha Baja").ToString().Trim
Dim NumeroSS As String = Row("Numero SS").ToString().Trim
Dim AltaIMSS As String = Row("Alta IMSS").ToString().Trim
Dim SalarioDiario As String = Row("Salario Diario").ToString().Trim
Dim Direccion As String = Row("Dirección").ToString().Trim
Dim FechaNacimiento As String = Row("Fecha Nacimiento").ToString().Trim
Dim LugarNacimiento As String = Row("Lugar Nacimiento").ToString().Trim
Dim Sexo As String = Row("Sexo").ToString().Trim
Dim CodigoPostal As String = Row("Código Postal").ToString().Trim
Dim Colonia As String = Row("Colonia").ToString().Trim
Dim NumExterior As String = Row("NumExterior").ToString().Trim
Dim Ciudad As String = Row("Ciudad").ToString().Trim
Dim EstadoCivil As String = Row("Estado Civil").ToString().ToUpper.Trim
Dim Telefono As String = Row("Teléfono").ToString().Trim
Dim Celular As String = Row("Celular").ToString().Trim
Dim RFC As String = Row("RFC").ToString().Trim
Dim CURP As String = Row("CURP").ToString().Trim
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
Dim Estado As String = Row("Estado").ToString()
Dim NombrePadre As String = Row("Nombre Padre").ToString()
Dim NombreMadre As String = Row("Nombre Madre").ToString()
Dim Puesto As String = Row("Puesto").ToString()
Dim Turno As String = Row("Turno").ToString()
Dim TipoContrato As String = Row("Tipo Contrato").ToString()
Dim Departamento As String = Row("Departamento").ToString()
Dim TipoPeriodo As String = Row("Tipo Periodo").ToString()
Dim Escolaridad As String = Row("Escolaridad").ToString()
Dim SDI As String = Row("SDI").ToString()
Dim MetodoPago As String = Row("Metodo Pago").ToString()
Dim Nominista As String = Row("Nominista").ToString()
Dim Estado As String = Row("Estado").ToString().Trim
Dim NombrePadre As String = Row("Nombre Padre").ToString().Trim
Dim NombreMadre As String = Row("Nombre Madre").ToString().Trim
Dim Puesto As String = Row("Puesto").ToString().Trim
Dim Turno As String = Row("Turno").ToString().Trim
Dim TipoContrato As String = Row("Tipo Contrato").ToString().Trim
Dim Departamento As String = Row("Departamento").ToString().Trim
Dim TipoPeriodo As String = Row("Tipo Periodo").ToString().Trim
Dim Escolaridad As String = Row("Escolaridad").ToString().Trim
Dim SDI As String = Row("SDI").ToString().Trim
Dim MetodoPago As String = Row("Metodo Pago").ToString().Trim
Dim Nominista As String = Row("Nominista").ToString().Trim
Dim CveCuentaContable As Integer = Row("CveCuentaContable").ToString().ToEntero()
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}"
@@ -3666,6 +3668,16 @@ Partial Class General_SaldosIniciales
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()
If CveTipoTrabajador = 0 Then
CveTipoTrabajador = -1
@@ -3691,17 +3703,14 @@ Partial Class General_SaldosIniciales
myarraystr = SubProyecto.Split(":"c)
If (myarraystr.Length > 1) Then
CveSubProyecto = myarraystr(0).ToEntero()
CveSubProyecto = dTSubProyectos.FiltroPrimeroValor("CveSubProyecto", $"CveSubProyecto = {CveSubProyecto}").ToString().ToEntero()
CveSubProyecto = dTSubProyectos.FiltroPrimeroValor("CveSubProyecto", $"CveSubProyecto = {CveSubProyecto}").ToEntero()
Else
CveSubProyecto = dTSubProyectos.FiltroPrimeroValor("CveSubProyecto", $"SubProyecto = '{SubProyecto}'").ToString().ToEntero()
CveSubProyecto = dTSubProyectos.FiltroPrimeroValor("CveSubProyecto", $"SubProyecto = '{SubProyecto}'").ToEntero()
End If
If CveSubProyecto = 0 Then
CveSubProyecto = -1
End If
myarraystr = Departamento.Split(":"c)
If (myarraystr.Length > 1) Then
CveDepartamento = myarraystr(0).ToEntero()
@@ -3711,7 +3720,11 @@ Partial Class General_SaldosIniciales
CveDepartamento = dTDepartamentos.FiltroPrimeroValor("CveDepartamento", $"Departamento = '{Departamento}'").ToString().ToEntero()
End If
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
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 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()
If Not (CvePersonal > 0) Then
CvePersonal = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePersonal", $"CURP = '{CURP}'").ToString().ToEntero()
End If
'PENDIENTES POR MEJORAR
@@ -3880,7 +3888,7 @@ Partial Class General_SaldosIniciales
End If
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,
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
If (ObjRH.noguardoXcurpb) Then
Else

9
Inventarios/RecepcionUsados.aspx.vb
View File

@@ -2419,12 +2419,10 @@ Partial Class Inventarios_RecepcionUsados
Me.ObjRemisionNC.TipoMensajeRespuesta = Modelos.TipoMensajeRespuesta.HTML
Me.ObjRemisionNC.Serie = "-1"
Me.ObjRemisionNC.Folio = -1 'Folio.ToEntero()
Me.ObjRemisionNC.Version = "3.3"
Me.ObjRemisionNC.Version = "4.0"
Me.ObjRemisionNC.FolioFiscal = ""
Me.ObjRemisionNC.CveUsuario = UsuarioActual.CveUsuario
Me.ObjRemisionNC.CveEmpresa = UsuarioActual.CveEmpresa
Me.ObjRemisionNC.TipoCambio = 1
Me.ObjRemisionNC.ConvertirPesos = False
Me.ObjRemisionNC.CveMoneda = CveMoneda
Me.ObjRemisionNC.Moneda = GlobalDTMonedas.FiltroPrimeroValor("Moneda", 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 = Nothing
End If
End If
End If
End If
@@ -2523,8 +2519,7 @@ Partial Class Inventarios_RecepcionUsados
Else
Me.ObjRemisionNC.Observaciones = "Devolución por usado"
End If
Me.ObjRemisionNC.OrdenCompra = ""
Me.ObjRemisionNC.PedidoContrato = ""
Me.ObjRemisionNC.ObservacionesAlmacen = TxtObservaciones.Text.Trim
Me.ObjRemisionNC.MovimientoObservaciones = TxtObservaciones.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
TrMetodoPago.Visible = True
TxtFecha.Enabled = False
End If
'CARGA YA REGISTRADO

2
Ventas/Ventas.aspx
View File

@@ -8830,7 +8830,7 @@
</asp:BoundField>
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Precio" ItemStyle-Width="30px">
<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>
</asp:TemplateField>

19
Ventas/Ventas.aspx.vb
View File

@@ -2,14 +2,11 @@
Option Strict On
Option Infer On
Imports System.Activities.Expressions
Imports System.Data
Imports System.Data.SqlClient
Imports System.Diagnostics
Imports System.IO
Imports System.Net.Http
Imports System.Security.Cryptography.X509Certificates
Imports System.ServiceModel.Security
Imports ADSNetLibrary.SIGAPI.Models.CRM.Request
Imports ADSNetLibrary.SIGAPI.Services.CRM
Imports ADSTimbrado
@@ -11181,7 +11178,7 @@ Partial Class Ventas
End If
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 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 Respuesta As Boolean = False
Dim ObjCRM As New ClsCRM(ObjTRansaccion)
Dim ObjEventoBitacora As New ClsOIEventos(ObjTRansaccion)
Dim ObjCRM As New ClsCRM(ObjTransaccion)
Dim ObjEventoBitacora As New ClsOIEventos(ObjTransaccion)
If objAcercamiento.Result.Count > 0 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)
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
Private Function DdlClienteSucursalCliente() As Integer
@@ -37794,13 +37791,13 @@ Partial Class Ventas
End Sub
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
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
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
End If
objVenta.Dispose()
@@ -37846,7 +37843,7 @@ Partial Class Ventas
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