diff --git a/App_Code/ClsCRM.vb b/App_Code/ClsCRM.vb
index 7227fdf29..1fb7574c9 100644
--- a/App_Code/ClsCRM.vb
+++ b/App_Code/ClsCRM.vb
@@ -1102,7 +1102,8 @@ Public Class ClsCRM
End Function
Public Function RepAcercamientosDetalle(CveEmpresa As Int32, cveVendedor As Int32, cveMedioCaptacion As Int32, cveProbabilidadAcercamiento As Int32, cveEtapaProceso As Int32, sFecha As String, sFechaIni As String,
- sFechaFin As String, Optional CveTipoProceso As Integer = -1, Optional CveRechazoMotivo As Integer = -1) As Boolean
+ sFechaFin As String, Optional CveTipoProceso As Integer = -1, Optional CveRechazoMotivo As Integer = -1, Optional EnPausa As Integer = -1, Optional CveGiroClasificacion As Integer = -1,
+ Optional EsRechazo As Boolean = False) As Boolean
Dim retorno As Boolean = False
DataAdapter("PA_CRM_RepAcercamientosDetalle", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters
@@ -1116,6 +1117,9 @@ Public Class ClsCRM
.Add("@SFechaFin", SqlDbType.VarChar).Value = sFechaFin
.Add("@CveTipoProceso", SqlDbType.Int).Value = CveTipoProceso
.Add("@CveRechazoMotivo", SqlDbType.Int).Value = CveRechazoMotivo
+ .Add("@EnPausa", SqlDbType.Int).Value = EnPausa
+ .Add("@CveGiroClasificacion", SqlDbType.Int).Value = CveGiroClasificacion
+ .Add("@EsRechazo", SqlDbType.Bit).Value = EsRechazo
End With
Try
SqlAdapter.Fill(Data)
diff --git a/App_Code/ClsEncuestas.vb b/App_Code/ClsEncuestas.vb
index 49e72f00e..5aeff458a 100644
--- a/App_Code/ClsEncuestas.vb
+++ b/App_Code/ClsEncuestas.vb
@@ -23,6 +23,8 @@ Public Class ClsEncuestas
End Get
End Property
+ Public Property CveEncuesta As Integer = -1
+
#End Region
Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing)
@@ -460,8 +462,10 @@ Public Class ClsEncuestas
#Region " E N C U E S T A S - E S T R U C T U R A "
Public Function AddEncuesta(CveCampaña As Integer, CveCliente As Integer, NombreEncuesta As String, Observaciones As String, NumInvitaciones As Integer,
- CveTipoEncuesta As Integer, SeContesto As Boolean, Fecha As DateTime, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+ CveTipoEncuesta As Integer, SeContesto As Boolean, Fecha As DateTime, CveUsuario As Integer, CveEmpresa As Integer, Optional CveTipoProceso As Integer = -1) As Boolean
Dim Retorno As Boolean = False
+
+ CveEncuesta = -1
DataAdapter("PA_Enc_EncuestasAdd", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters
.Add("@CveCampana", SqlDbType.Int).Value = CveCampaña
@@ -474,9 +478,12 @@ Public Class ClsEncuestas
.Add("@Fecha", SqlDbType.DateTime).Value = Fecha
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ .Add("@CveTipoProceso", SqlDbType.Int).Value = CveTipoProceso
+ .Add("@CveEncuesta", SqlDbType.Int).Direction = ParameterDirection.Output
End With
Try
SqlAdapter.Fill(Data)
+ CveEncuesta = SqlAdapter.SelectCommand.Parameters("@CveEncuesta").Value.ToString.ToEntero
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al Agregar una Encuesta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb
index 87658bb11..92975bdfe 100644
--- a/App_Code/ClsGenerales.vb
+++ b/App_Code/ClsGenerales.vb
@@ -4184,9 +4184,6 @@ Public Class ClsGenerales
Return Retorno
End Function
-
-
-
Public Function GetFolioFechaCancelacion(CveEmpresa As Integer, Tipo As Integer) As Boolean
Dim Retorno As Boolean = False
@@ -4207,6 +4204,197 @@ Public Class ClsGenerales
End Function
+#Region "C I T R I C O S"
+ Public Function GetTipoOrganicos(Optional CveEmpresa As Integer = -1) As Boolean
+ Dim Retorno As Boolean = False
+ DataAdapter("PA_Gral_TipoOrganicosGet")
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al obtener el Catálogo de Tipos de Orgánicos de Productos y Servicios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+
+ Return Retorno
+ End Function
+
+ Public Function AddTipoOrganico(TipoOrganico As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+ Dim Retorno As Boolean = False
+
+ DataAdapter("PA_Gral_TipoOrganicosAdd")
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@TipoOrganico", SqlDbType.VarChar).Value = TipoOrganico
+ .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch Ex1 As SqlException
+ If Ex1.Message.Contains("Número: 2627;") Then
+ Alert("Ya existe un Tipo de Orgánico con el mismo nombre: " & TipoOrganico & ".", TipoMensaje.MsgAdvertencia)
+ Else
+ Me.OnError("Ocurrió un error al Guardar el Tipo de Orgánico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End If
+ Catch ex As Exception
+ OnError("Ocurrió un error al Guardar el Tipo de Orgánico", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End Try
+
+ Return Retorno
+ End Function
+
+ Public Function UpdateTipoOrganico(TipoOrganico As String, Estatus As Boolean, CveTipoOrganico As Integer) As Boolean
+ Dim Retorno As Boolean = False
+
+ DataAdapter("PA_Gral_TipoOrganicosUpdate")
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@TipoOrganico", SqlDbType.VarChar).Value = TipoOrganico
+ .Add("@Estatus", SqlDbType.Bit).Value = Estatus
+ .Add("@CveTipoOrganico", SqlDbType.Int).Value = CveTipoOrganico
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch Ex1 As SqlException
+ If Ex1.Message.Contains("Número: 2627;") Then
+ Alert("Ya existe un Tipo de Orgánico con el mismo nombre: " & TipoOrganico & ".", TipoMensaje.MsgAdvertencia)
+ Else
+ Me.OnError("Ocurrió un error al guardar los cambios en el Tipo de Orgánico", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End If
+ Catch ex As Exception
+ OnError("Ocurrió un error al guardar los cambios en el Tipo de Orgánico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End Try
+
+ Return Retorno
+ End Function
+
+ Public Function RemoveTipoOrganico(CveTipoOrganico As Integer) As Boolean
+ Dim Retorno As Boolean = False
+
+ DataAdapter("PA_Gral_TipoOrganicosRemove")
+
+ SqlAdapter.SelectCommand.Parameters.Add("@CveTipoOrganico", SqlDbType.Int).Value = CveTipoOrganico
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch Ex1 As SqlException
+ If Ex1.Message.Contains("Número: 547;") Then
+ Alert("El Tipo de Orgánico no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia)
+ Else
+ Me.OnError("Ocurrió un error al eliminar el Tipo de Orgánico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End If
+ Catch ex As Exception
+ Me.OnError("Ocurrió un error al eliminar el Tipo de Orgánico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+
+ Return Retorno
+ End Function
+ Public Function GetEmpacados(Optional CveEmpresa As Integer = -1) As Boolean
+ Dim Retorno As Boolean = False
+ DataAdapter("PA_Gral_EmpacadosGet")
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al obtener el Catálogo de Empacados de Productos y Servicios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+
+ Return Retorno
+ End Function
+
+ Public Function AddEmpacado(TipoEmpacado As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+ Dim Retorno As Boolean = False
+
+ DataAdapter("PA_Gral_EmpacadosAdd")
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@TipoEmpacado", SqlDbType.VarChar).Value = TipoEmpacado
+ .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch Ex1 As SqlException
+ If Ex1.Message.Contains("Número: 2627;") Then
+ Alert("Ya existe un Empacado con el mismo nombre: " & TipoEmpacado & ".", TipoMensaje.MsgAdvertencia)
+ Else
+ Me.OnError("Ocurrió un error al guardar el Empacado.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End If
+ Catch ex As Exception
+ OnError("Ocurrió un error al guardar el Empacado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End Try
+
+ Return Retorno
+ End Function
+
+ Public Function UpdateEmpacado(TipoEmpacado As String, Estatus As Boolean, CveTipoEmpacado As Integer) As Boolean
+ Dim Retorno As Boolean = False
+
+ DataAdapter("PA_Gral_EmpacadosUpdate")
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@TipoEmpacado", SqlDbType.VarChar).Value = TipoEmpacado
+ .Add("@Estatus", SqlDbType.Bit).Value = Estatus
+ .Add("@CveTipoEmpacado", SqlDbType.Int).Value = CveTipoEmpacado
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch Ex1 As SqlException
+ If Ex1.Message.Contains("Número: 2627;") Then
+ Alert("Ya existe un Empacado con el mismo nombre: " & TipoEmpacado & ".", TipoMensaje.MsgAdvertencia)
+ Else
+ Me.OnError("Ocurrió un error al guardar los cambios en el Empacado", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End If
+ Catch ex As Exception
+ OnError("Ocurrió un error al guardar los cambios en el Empacado.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End Try
+
+ Return Retorno
+ End Function
+
+ Public Function RemoveEmpacado(CveTipoEmpacado As Integer) As Boolean
+ Dim Retorno As Boolean = False
+
+ DataAdapter("PA_Gral_EmpacadosRemove")
+
+ SqlAdapter.SelectCommand.Parameters.Add("@CveTipoEmpacado", SqlDbType.Int).Value = CveTipoEmpacado
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch Ex1 As SqlException
+ If Ex1.Message.Contains("Número: 547;") Then
+ Alert("El Empacado no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia)
+ Else
+ Me.OnError("Ocurrió un error al eliminar el Empacado.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End If
+ Catch ex As Exception
+ Me.OnError("Ocurrió un error al eliminar el Empacado.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+
+ Return Retorno
+ End Function
+#End Region
+
#Region "IDisposable Support"
diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb
index 5caa49efb..0cbfb0931 100644
--- a/App_Code/ClsMovimientos.vb
+++ b/App_Code/ClsMovimientos.vb
@@ -110,28 +110,28 @@ Public Class ClsMovimientos
Public Sub Commit()
SqlTransacc.Commit()
- End Sub
-
+ End Sub
+
#Region "CxC"
- 'Public Function GetCxCCliente(CveCliente As Integer) As Boolean
- ' Dim Retorno As Boolean = False
- ' 'Data = New DataTable
- ' 'SqlAdapter = New SqlDataAdapter("PA_ClienteCxC", SqlConexion)
- ' 'SqlAdapter.SelectCommand.CommandType = CommandType.StoredProcedure
- ' DataAdapter("PA_ClienteCxC")
- ' SqlAdapter.SelectCommand.Parameters.Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-
- ' Try
- ' SqlAdapter.Fill(Data)
- ' Retorno = True
- ' Catch ex As SqlException
- ' OnError("Ocurrió un error al consultar las CxC del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
- ' End Try
-
- ' Return Retorno
- 'End Function
-
- Public Function GetCxCClienteDetalle(CveCliente As Integer, FechaI As String, FechaF As String, CveMoneda As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveClienteSucursal As Integer, Optional TipoDocto As String = "-1", Optional FechaCorte As Date = MaxFecha, Optional CveIESustitucion As Integer = -1, Optional FechaVencimientoI As Date = MinFecha, Optional FechaVencimientoF As Date = MaxFecha) As Boolean
+ 'Public Function GetCxCCliente(CveCliente As Integer) As Boolean
+ ' Dim Retorno As Boolean = False
+ ' 'Data = New DataTable
+ ' 'SqlAdapter = New SqlDataAdapter("PA_ClienteCxC", SqlConexion)
+ ' 'SqlAdapter.SelectCommand.CommandType = CommandType.StoredProcedure
+ ' DataAdapter("PA_ClienteCxC")
+ ' SqlAdapter.SelectCommand.Parameters.Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+
+ ' Try
+ ' SqlAdapter.Fill(Data)
+ ' Retorno = True
+ ' Catch ex As SqlException
+ ' OnError("Ocurrió un error al consultar las CxC del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ ' End Try
+
+ ' Return Retorno
+ 'End Function
+
+ Public Function GetCxCClienteDetalle(CveCliente As Integer, FechaI As String, FechaF As String, CveMoneda As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveClienteSucursal As Integer, Optional TipoDocto As String = "-1", Optional FechaCorte As Date = MaxFecha, Optional FechaVencimientoI As Date = MinFecha, Optional FechaVencimientoF As Date = MaxFecha) As Boolean
Dim Retorno As Boolean = False
FechaCorte = IIf(FechaCorte = Nothing, Date.Now.AddYears(1), FechaCorte).ToString.ToDate
@@ -146,8 +146,7 @@ Public Class ClsMovimientos
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal
.Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
- .Add("@FechaCorte", SqlDbType.Date).Value = FechaCorte
- .Add("@CveIESustitucion", SqlDbType.Int).Value = CveIESustitucion
+ .Add("@FechaCorte", SqlDbType.Date).Value = FechaCorte
.Add("@FechaVencimientoI", SqlDbType.Date).Value = FechaVencimientoI
.Add("@FechaVencimientoF", SqlDbType.Date).Value = FechaVencimientoF
End With
diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb
index c2289f545..2c3753280 100644
--- a/App_Code/ClsNominas.vb
+++ b/App_Code/ClsNominas.vb
@@ -2593,7 +2593,7 @@ Public Class ClsNominas
Return retorno
End Function
#End Region
- Public Function GetCalculoSBC(CveEmpresa As Integer, Tipo As Integer, FechaCalculo As String) As Boolean
+ Public Function GetCalculoSBC(CveEmpresa As Integer, Tipo As Integer, FechaCalculo As String, Optional CveRegistroPatronal As Integer = -1) As Boolean
Dim retorno As Boolean = False
Try
DTSet = New DataSet()
@@ -2601,6 +2601,7 @@ Public Class ClsNominas
With SqlAdapter.SelectCommand.Parameters
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@Tipo", SqlDbType.Int).Value = Tipo
+ .Add("@CveRegistroPatronal", SqlDbType.Int).Value = CveRegistroPatronal
.Add("@Fecha", SqlDbType.Date).Value = FechaCalculo
End With
SqlAdapter.Fill(DTSet)
diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb
index 319c6a699..a6c62f462 100644
--- a/App_Code/ClsProductosServicios.vb
+++ b/App_Code/ClsProductosServicios.vb
@@ -417,7 +417,7 @@ Public Class ClsProductosServicios
Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1, Optional EsOutSourcing As Boolean = False, Optional AplicaSerie As Boolean = False, Optional AplicaLote As Boolean = False,
Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False, Optional TiempoCaducidad As Integer = -1, Optional CvePSAdicionalVigencia As Integer = -1, Optional PrecioLibre As Boolean = False,
Optional CveMaterialPeligroso As Integer = -1, Optional CveEmbalaje As Integer = -1, Optional PesoKg As Decimal = -1, Optional Dimensiones As String = "", Optional CveObjetoImpuesto As Integer = 0,
- Optional RegistroRSCO As String = "-1", Optional FechaVigenciaRSCO As Date = MinFecha, Optional VigenciaIndeterminadaRSCO As Boolean = False) As Integer
+ Optional RegistroRSCO As String = "-1", Optional FechaVigenciaRSCO As Date = MinFecha, Optional VigenciaIndeterminadaRSCO As Boolean = False, Optional CveTipoEmpacado As Integer = -1, Optional CveTipoOrganico As Integer = -1) As Integer
Dim Retorno As Integer = -1
DataAdapter("PA_ProductosServiciosAdd")
@@ -513,6 +513,10 @@ Public Class ClsProductosServicios
.Add("@FechaVigenciaRSCO", SqlDbType.Date).Value = FechaVigenciaRSCO
.Add("@VigenciaIndeterminadaRSCO", SqlDbType.Bit).Value = VigenciaIndeterminadaRSCO
+ 'Nuevo MLopez 18/11/2022
+ .Add("@CveTipoEmpacado", SqlDbType.Int).Value = CveTipoEmpacado
+ .Add("@CveTipoOrganico", SqlDbType.Int).Value = CveTipoOrganico
+
End With
Try
@@ -661,7 +665,7 @@ Public Class ClsProductosServicios
Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1, Optional EsOutSourcing As Boolean = False,
Optional AplicaSerie As Boolean = False, Optional AplicaLote As Boolean = False, Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False, Optional TiempoCaducidad As Integer = -1, Optional CvePSAdicionalVigencia As Integer = -1, Optional PrecioLibre As Boolean = False,
Optional CveMaterialPeligroso As Integer = -1, Optional CveEmbalaje As Integer = -1, Optional PesoKg As Decimal = -1, Optional Dimensiones As String = "", Optional CveObjetoImpuesto As Integer = 0,
- Optional RegistroRSCO As String = "-1", Optional FechaVigenciaRSCO As Date = MinFecha, Optional VigenciaIndeterminadaRSCO As Boolean = False) As Boolean
+ Optional RegistroRSCO As String = "-1", Optional FechaVigenciaRSCO As Date = MinFecha, Optional VigenciaIndeterminadaRSCO As Boolean = False, Optional CveTipoEmpacado As Integer = -1, Optional CveTipoOrganico As Integer = -1) As Boolean
Dim Retorno As Boolean = False
@@ -757,6 +761,10 @@ Public Class ClsProductosServicios
.Add("@FechaVigenciaRSCO", SqlDbType.Date).Value = FechaVigenciaRSCO
.Add("@VigenciaIndeterminadaRSCO", SqlDbType.Bit).Value = VigenciaIndeterminadaRSCO
+ 'Nuevo MLopez 18/11/2022
+ .Add("@CveTipoEmpacado", SqlDbType.Int).Value = CveTipoOrganico
+ .Add("@CveTipoOrganico", SqlDbType.Int).Value = CveTipoEmpacado
+
End With
Try
@@ -1375,7 +1383,7 @@ Public Class ClsProductosServicios
Return Retorno
End Function
- Public Function AddPSAlias(PS As String, CvePS As Integer, Flexible As Boolean, CveUsuarioModifico As Integer) As Boolean
+ Public Function AddPSAlias(PS As String, CvePS As Integer, Flexible As Boolean, CveUsuarioModifico As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Gral_ProductosServiciosAliasAdd")
@@ -1384,6 +1392,7 @@ Public Class ClsProductosServicios
.Add("@CvePS", SqlDbType.Int).Value = CvePS
.Add("@Flexible", SqlDbType.Bit).Value = If(Flexible, 1, 0)
.Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb
index b5c42d4a8..b6ee28d2f 100644
--- a/App_Code/ClsRH.vb
+++ b/App_Code/ClsRH.vb
@@ -1459,9 +1459,11 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
Public Property CveEstado As Integer
Public Property Estado As String
Public Property ClaveEstado As String
- Public Property Telefono As String
+ Public Property Telefono As String
+ Public Property TelefonoEmergencia As String
Public Property Celular As String
Public Property LugarNacimiento As String
+ Public Property CredencialElector As String
Public Property NombrePadre As String
Public Property NombreMadre As String
'RH
@@ -1673,9 +1675,11 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
Me.Estado = Data.Rows(0)("Estado").ToString
Me.ClaveEstado = Data.Rows(0)("ClaveEstado").ToString
Me.Telefono = Data.Rows(0)("Telefono").ToString
+ Me.TelefonoEmergencia = Data.Rows(0)("NombreTelEmergencia").ToString
Me.Celular = Data.Rows(0)("Celular").ToString
Me.RFC = Data.Rows(0)("RFC").ToString
Me.CURP = Data.Rows(0)("CURP").ToString
+ Me.CredencialElector = Data.Rows(0)("CredencialElector").ToString
Me.NombrePadre = Data.Rows(0)("NombrePadre").ToString
Me.NombreMadre = Data.Rows(0)("NombreMadre").ToString
Me.Cliente = Data.Rows(0)("ClienteAsignado").ToString
@@ -1849,9 +1853,11 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
Me.CveEstado = Data.Rows(0)("CveEstado").ToString.ToEntero
Me.Estado = Data.Rows(0)("Estado").ToString
Me.Telefono = Data.Rows(0)("Telefono").ToString
+ Me.TelefonoEmergencia = Data.Rows(0)("NombreTelEmergencia").ToString
Me.Celular = Data.Rows(0)("Celular").ToString
Me.RFC = Data.Rows(0)("RFC").ToString
Me.CURP = Data.Rows(0)("CURP").ToString
+ Me.CredencialElector = Data.Rows(0)("CredencialElector").ToString
Me.NombrePadre = Data.Rows(0)("NombrePadre").ToString
Me.NombreMadre = Data.Rows(0)("NombreMadre").ToString
Me.Cliente = Data.Rows(0)("ClienteAsignado").ToString
@@ -1929,7 +1935,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
SalarioDiarioSS As Double, Bono As Double, NumDiasAguinaldo As Integer, PorPrimaVacacional As Double, CveMetodoPago As Integer, FechaInicioContrato As Date, FechaFinContrato As String,
CveTipoContrato As Integer, Ubicacion As String, CveTurno As Integer, CvePuesto As Integer, CveDepartamento As Integer, CveRuta As Integer, CveEscolaridad As Integer,
CveEstadoCivil As Integer, CveGenero As Integer, CveMotivoBaja As Integer, FechaBaja As String, CveEstatusPersonal As Integer, FechaNacimiento As Date, LugarNacimiento As String,
- Calle As String, NumExt As String, NumInt As String, Colonia As String, CP As String, Ciudad As String, CveEstado As Integer, Telefono As String, Celular As String, RFC As String, CURP As String,
+ Calle As String, NumExt As String, NumInt As String, Colonia As String, CP As String, Ciudad As String, CveEstado As Integer, Telefono As String, TelefonoEmergencia As String, Celular As String, RFC As String, CURP As String, CredencialElector As String,
NombrePadre As String, NombreMadre As String, CveSATBanco As Integer, CveSATRiesgoPuesto As Integer, CveSATRegimenContratacion As Integer, CveClienteAsignado As Integer, CveSubProyecto As Integer, URL As String, CveSupervisor As Integer, CLABE As String, BancoNumCuenta As String,
CveJornada As Integer, IdCtaContPersonal As Integer, CtaContPersonal As String, IdCtaContPrestamos As Integer, CtaContPrestamos As String, CveUsuario As Integer, CveEmpresa As Integer, CveUsuarioNomina As Integer, Optional CveSubProyectoZona As Integer = Nothing, Optional CveUniforme As Integer = -1,
Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Boolean = False, Optional CvePais As Integer = -1,
@@ -1985,9 +1991,11 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
.Add("@CveEstado", SqlDbType.VarChar).Value = CveEstado
'.Add("@Estado", SqlDbType.VarChar).Value = Estado
.Add("@Telefono", SqlDbType.VarChar).Value = Telefono
+ .Add("@TelefonoEmergencia", SqlDbType.VarChar).Value = TelefonoEmergencia
.Add("@Celular", SqlDbType.VarChar).Value = Celular
.Add("@RFC", SqlDbType.VarChar).Value = RFC
.Add("@CURP", SqlDbType.VarChar).Value = CURP
+ .Add("@CredencialElector", SqlDbType.VarChar).Value = CredencialElector
.Add("@NombrePadre", SqlDbType.VarChar).Value = NombrePadre
.Add("@NombreMadre", SqlDbType.VarChar).Value = NombreMadre
.Add("@CveClienteAsignado", SqlDbType.Int).Value = CveClienteAsignado
@@ -2060,7 +2068,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
SalarioDiarioSS As Double, Bono As Double, NumDiasAguinaldo As Integer, PorPrimaVacacional As Double, CveMetodoPago As Integer, FechaInicioContrato As Date, FechaFinContrato As String,
CveTipoContrato As Integer, Ubicacion As String, CveTurno As Integer, CvePuesto As Integer, CveDepartamento As Integer, CveRuta As Integer, CveEscolaridad As Integer,
CveEstadoCivil As Integer, CveGenero As Integer, CveMotivoBaja As Integer, FechaBaja As String, CveEstatusPersonal As Integer, FechaNacimiento As Date, LugarNacimiento As String,
- Calle As String, NumExt As String, NumInt As String, Colonia As String, CP As String, Ciudad As String, CveEstado As Integer, Telefono As String, Celular As String, RFC As String, CURP As String,
+ Calle As String, NumExt As String, NumInt As String, Colonia As String, CP As String, Ciudad As String, CveEstado As Integer, Telefono As String, TelefonoEmergencia As String, Celular As String, RFC As String, CURP As String, CredencialElector As String,
NombrePadre As String, NombreMadre As String, CveSATBanco As Integer, CveSATRiesgoPuesto As Integer, CveSATRegimenContratacion As Integer, CveClienteAsignado As Integer, CveSubProyecto As Integer, CvePersonal As Integer, URL As String, CveSupervisor As Integer, CLABE As String, BancoNumCuenta As String,
CveJornada As Integer, IdCtaContPersonal As Integer, CtaContPersonal As String, IdCtaContPrestamos As Integer, CtaContPrestamos As String, CveEmpresa As Integer, CveUsuarioNomina As Integer, Optional CveSubProyectoZona As Integer = Nothing, Optional CveUniforme As Integer = -1,
Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveUsuarioModifico As Integer = -1,
@@ -2118,9 +2126,11 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
.Add("@CveEstado", SqlDbType.VarChar).Value = CveEstado
'.Add("@Estado", SqlDbType.VarChar).Value = Estado
.Add("@Telefono", SqlDbType.VarChar).Value = Telefono
+ .Add("@TelefonoEmergencia", SqlDbType.VarChar).Value = TelefonoEmergencia
.Add("@Celular", SqlDbType.VarChar).Value = Celular
.Add("@RFC", SqlDbType.VarChar).Value = RFC
.Add("@CURP", SqlDbType.VarChar).Value = CURP
+ .Add("@CredencialElector", SqlDbType.VarChar).Value = CredencialElector
.Add("@NombrePadre", SqlDbType.VarChar).Value = NombrePadre
.Add("@NombreMadre", SqlDbType.VarChar).Value = NombreMadre
.Add("@CveClienteAsignado", SqlDbType.Int).Value = CveClienteAsignado
@@ -7089,15 +7099,16 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
End If
ListaTagsDocumentost.Add(New TagsDocumentos("{Sexo}", DtResultados(0)("Genero").ToString))
- ListaTagsDocumentost.Add(New TagsDocumentos("{NombreEmpresa}", DtResultados(0)("Empresa").ToString))
-
Dim SalarioDiarioTag As String = DtResultados(0)("SalarioDiario").ToString.ToDouble.Texto2Letras()
-
ListaTagsDocumentost.Add(New TagsDocumentos("{Sueldo}", DtResultados(0)("SalarioDiario").ToString.ToDouble.ToString("###,###,###.00")))
ListaTagsDocumentost.Add(New TagsDocumentos("{SueldoLetra}", SalarioDiarioTag))
- ListaTagsDocumentost.Add(New TagsDocumentos("{Nacionalidad}", DtResultados(0)("ClaveSATPaisDescripcion").ToString))
-
-
+ ListaTagsDocumentost.Add(New TagsDocumentos("{Nacionalidad}", DtResultados(0)("ClaveSATPaisDescripcion").ToString))
+
+ ListaTagsDocumentost.Add(New TagsDocumentos("{EmpresaNombre}", DtResultados(0)("Empresa").ToString))
+ ListaTagsDocumentost.Add(New TagsDocumentos("{EmpresaDireccion}", DtResultados(0)("EmpresaDireccion").ToString))
+ ListaTagsDocumentost.Add(New TagsDocumentos("{EmpresaCiudad}", DtResultados(0)("EmpresaCiudad").ToString))
+ ListaTagsDocumentost.Add(New TagsDocumentos("{EmpresaRFC}", DtResultados(0)("EmpresaRFC").ToString))
+ ListaTagsDocumentost.Add(New TagsDocumentos("{EmpresaRepresentante}", DtResultados(0)("EmpresaRepresentante").ToString))
End If
diff --git a/App_Code/LogicNominas.vb b/App_Code/LogicNominas.vb
index 6fee37f4c..bbac807ee 100644
--- a/App_Code/LogicNominas.vb
+++ b/App_Code/LogicNominas.vb
@@ -10,7 +10,7 @@ Public Class LogicNominas
Public Sub New()
guardarLogTimbrado = False
End Sub
- Public Function TimbrarNomina(CveNomina As Integer, CvePersonal As Integer, CvePeriodo As Integer, UsuarioActual As Usuario, Optional CvePAC As Integer = 4) As String
+ Public Function TimbrarNomina(CveNomina As Integer, CvePersonal As Integer, CvePeriodo As Integer, UsuarioActual As Usuario, Optional CvePAC As Integer = 4, Optional versionTimbre As VersionTimbradoEnum = VersionTimbradoEnum.PorDefectoEmpresa) As String
Dim Retorno As String = ""
GetError = "" 'Le reasigno el current error a nulo
Dim sw As Diagnostics.Stopwatch = Nothing
@@ -19,7 +19,7 @@ Public Class LogicNominas
sw.Start()
End If
- Dim cfdi As CFDITimbre = PreTimbrar(CveNomina, UsuarioActual, False, CvePAC) 'CvePersonal, CvePeriodo,
+ Dim cfdi As CFDITimbre = PreTimbrar(CveNomina, UsuarioActual, False, versionTimbre) 'CvePersonal, CvePeriodo,
If cfdi IsNot Nothing AndAlso cfdi.Mensaje = "" Then
If Not cfdi.Timbrado Then
Dim ObjTimbrado As New Timbrado
@@ -28,7 +28,7 @@ Public Class LogicNominas
ObjFactura.Folio = cfdi.Comprobante.Folio.ToEntero()
ObjFactura.Serie = cfdi.Comprobante.Serie
ObjFactura.Timbre = cfdi
- If Not ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura, CvePAC) Then
+ If Not ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura, CvePAC, versionTimbre) Then
Retorno = ObjTimbrado.MensajeErrorCFDI
End If
End If
@@ -37,7 +37,7 @@ Public Class LogicNominas
Else
If hasfiniquito Then
- cfdi = PreTimbrar(CveNomina, UsuarioActual, True) 'CvePersonal, CvePeriodo,
+ cfdi = PreTimbrar(CveNomina, UsuarioActual, True, versionTimbre) 'CvePersonal, CvePeriodo,
If cfdi IsNot Nothing AndAlso cfdi.Mensaje = "" Then
If Not cfdi.Timbrado Then
@@ -47,7 +47,7 @@ Public Class LogicNominas
ObjFactura.Folio = cfdi.Comprobante.Folio.ToEntero()
ObjFactura.Serie = cfdi.Comprobante.Serie
ObjFactura.Timbre = cfdi
- If Not ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura, CvePAC) Then
+ If Not ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura, CvePAC, versionTimbre) Then
Retorno = ObjTimbrado.MensajeErrorCFDI
End If
If Retorno <> "" Then
@@ -81,7 +81,13 @@ Public Class LogicNominas
Return Retorno
End Function
Dim hasfiniquito As Boolean
- Public Function PreTimbrar(CveNomina As Integer, UsuarioActual As Usuario, TimbreIndemnizacion As Boolean, Optional CvePAC As Integer = 4) As CFDITimbre
+ Public Function PreTimbrar(CveNomina As Integer, UsuarioActual As Usuario, TimbreIndemnizacion As Boolean, Optional versionTimbrex As VersionTimbradoEnum = VersionTimbradoEnum.PorDefectoEmpresa) As CFDITimbre
+
+ Dim versionTimbre As VersionTimbradoEnum = versionTimbrex
+ If versionTimbre = VersionTimbradoEnum.PorDefectoEmpresa Then
+ versionTimbre = If(UsuarioActual.Empresa.Funcionalidad(350) = "1", VersionTimbradoEnum.Version4_0, VersionTimbradoEnum.Version3_3)
+ End If
+
Dim continuar As Boolean = True
hasfiniquito = False
Dim CvePersonal As Integer = -1
@@ -319,7 +325,7 @@ Public Class LogicNominas
End If
cfdi.Nomina.CveNomina = CveNomina
- cfdi.Receptor.UsoCFDI = If(UsuarioActual.Empresa.Funcionalidad(350).Contiene("1"), "CN01", "P01")
+ cfdi.Receptor.UsoCFDI = If(versionTimbre = VersionTimbradoEnum.Version4_0, "CN01", "P01")
cfdi.Receptor.RFC = RFC
cfdi.Receptor.Nombre = NombreCompleto
@@ -427,7 +433,7 @@ Public Class LogicNominas
If ObjDeducciones IsNot Nothing AndAlso ObjDeducciones.Count > 0 Then cfdi.Nomina.Deducciones = ObjDeducciones
- cfdi.Comprobante.Version = If(UsuarioActual.Empresa.Funcionalidad(350).Contiene("1"), "4.0", "3.3")
+ cfdi.Comprobante.Version = If(versionTimbre = VersionTimbradoEnum.Version4_0, "4.0", "3.3")
cfdi.Comprobante.Serie = Serie
cfdi.Comprobante.Folio = Folio
cfdi.Comprobante.Fecha = Now
@@ -439,8 +445,8 @@ Public Class LogicNominas
cfdi.Comprobante.TipoComprobante = "N"
cfdi.Comprobante.TipoDocto = "Egs"
cfdi.Comprobante.MetodoPago = "PUE"
- cfdi.Comprobante.CondicionesdePago = If(CvePAC < 4, "CONTADO", "") '"" '""
- cfdi.Comprobante.FormadePago = If(UsuarioActual.Empresa.Funcionalidad(350).Contiene("1"), "", "99")
+ cfdi.Comprobante.CondicionesdePago = "" '"CONTADO"
+ cfdi.Comprobante.FormadePago = If(versionTimbre = VersionTimbradoEnum.Version4_0, "", "99")
cfdi.Comprobante.LugarExpedicion = UsuarioActual.Empresa.CP.ToString() ' AHORITA SOLO SE REQUIERE ESPECIFICAR EL CODIGO POSTAL
cfdi.Comprobante.NumCuentaPago = "" 'objPersonal.BancoNumCuenta
'4.0
diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index 0ca7bf273..264ecd40d 100644
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -12,6 +12,12 @@ Imports Extensiones
Imports Newtonsoft.Json.Linq
Imports ProfactCartaPorte = Profact.TimbraCFDI33.Complementos.CartaPorte20
+
+Public Enum VersionTimbradoEnum As Integer
+ PorDefectoEmpresa = -1
+ Version3_3 = 1
+ Version4_0 = 2
+End Enum
Public Class Timbrado
#Region "P R O P I E D A D E S"
@@ -1192,11 +1198,14 @@ Public Class Timbrado
Return Timbre
End Function
- Public Function TimbrarFactura(UsuarioActual As Usuario, Ventas As Modelos.Factura, Optional CvePACEspecial As Integer = -1) As Boolean
+ Public Function TimbrarFactura(UsuarioActual As Usuario, Ventas As Modelos.Factura, Optional CvePACEspecial As Integer = -1, Optional versionTimbre As VersionTimbradoEnum = VersionTimbradoEnum.PorDefectoEmpresa) As Boolean
Dim Retorno As Boolean = False
Dim tCvePAC As Integer = UsuarioActual.Empresa.CvePAC
If CvePACEspecial <> -1 Then tCvePAC = CvePACEspecial
+ If versionTimbre = VersionTimbradoEnum.PorDefectoEmpresa Then
+ versionTimbre = If(UsuarioActual.Empresa.Funcionalidad(350) = "1", VersionTimbradoEnum.Version4_0, VersionTimbradoEnum.Version3_3)
+ End If
'validación especial.
If Ventas.TipoDocto.Contiene("Ing", "Dev") Then
@@ -1228,15 +1237,15 @@ Public Class Timbrado
Retorno = If(Ret = "", True, False)
Case 3
- If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
- Retorno = TimbrarFacturaProFactv40(UsuarioActual, Ventas)
+ If versionTimbre = VersionTimbradoEnum.Version4_0 Then
+ Retorno = TimbrarFacturaProFactV40(UsuarioActual, Ventas)
Else
Retorno = TimbrarFacturaProFact(UsuarioActual, Ventas)
End If
'Retorno = TimbrarFacturaProFact(UsuarioActual, Ventas, TmpDTConceptos, TmpDTImpuestos, TmpDTComplementos, Ruta, LstFordASN, FordGSDBM, ObjV)
Case 4
- If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
+ If versionTimbre = VersionTimbradoEnum.Version4_0 Then
Dim Ret As String = TimbrarFacturaGoCFDIv40(Ventas, UsuarioActual, CvePACEspecial)
If Ret <> "" Then MensajeErrorCFDI = Ret
Retorno = If(Ret = "", True, False)
@@ -1248,7 +1257,7 @@ Public Class Timbrado
Case 5
- If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
+ If versionTimbre = VersionTimbradoEnum.Version4_0 Then
Dim Ret As String = TimbrarFacturaPADEv40(Ventas, UsuarioActual, CvePACEspecial)
If Ret <> "" Then MensajeErrorCFDI = Ret
Retorno = If(Ret = "", True, False)
diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb
index ba53c315f..e37d222e5 100644
--- a/App_Code/modExtensiones.vb
+++ b/App_Code/modExtensiones.vb
@@ -71,7 +71,7 @@ Namespace Extensiones
Dim dataTable As DataTable = New DataTable()
Dim worksheet As GemBox.Spreadsheet.ExcelWorksheet = excelFile.Worksheets(0)
- For cols = 0 To worksheet.Rows(0).AllocatedCells.Count - 1
+ For cols = 0 To worksheet.Rows(curRow).AllocatedCells.Count - 1
If firstRowHasHeaders Then
@@ -80,12 +80,14 @@ Namespace Extensiones
Else
dataTable.Columns.Add("Unnamed Column " & (System.Threading.Interlocked.Increment(unnamed)))
End If
+
Else
dataTable.Columns.Add("Column " & (cols + 1))
End If
Next
- If firstRowHasHeaders Then curRow += 1
-
+ If firstRowHasHeaders Then
+ curRow = curRow + 1
+ End If
While curRow < worksheet.Rows.Count
columns = New String(cols - 1) {}
diff --git a/Bancos/DepositoTerminal.aspx.vb b/Bancos/DepositoTerminal.aspx.vb
index d1c1b01fc..1a4095086 100644
--- a/Bancos/DepositoTerminal.aspx.vb
+++ b/Bancos/DepositoTerminal.aspx.vb
@@ -142,8 +142,8 @@ Partial Class Bancos_DepositoTerminal
IdCuentaBancaria = 0
IdCuentaBancariaComplementaria = 0
- CveCuentaBancaria = 0
- CveCuentaBancariaComplementaria = 0
+ 'CveCuentaBancaria = 0
+ 'CveCuentaBancariaComplementaria = 0
End If
If UsuarioActual.Empresa.Funcionalidad(505) <> "1" Then
@@ -259,7 +259,7 @@ Partial Class Bancos_DepositoTerminal
ViewState("IdCtaContRetISR") = ObjCliente.IdCtaContRetISR
IdCuentaBancaria = 0
- CveCuentaBancaria = 0
+ 'CveCuentaBancaria = 0
End If
If gvr.DataKey("CveMoneda").ToEntero = 2 Then
@@ -436,14 +436,14 @@ Partial Class Bancos_DepositoTerminal
Next
If IdCuentaBancariaComplementaria > 0 Then
- If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TxtImporte.Text.ToDecimal, "", 30, "", TxtFecha.Text.ToDate, IdCuentaBancaria, -1, CveIE, -1, -1, -1, -1, ImporteMX:=TxtImporte.Text.ToDecimal, CveCuenta:=CveCuentaBancaria) Then
+ If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TxtImporte.Text.ToDecimal, "", 30, "", TxtFecha.Text.ToDate, IdCuentaBancaria, -1, CveIE, -1, -1, -1, -1, ImporteMX:=TxtImporte.Text.ToDecimal) Then
MsgError = "No se pudo insertar la póliza"
End If
- If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TxtImporte.Text.ToDecimal, "", 30, "", TxtFecha.Text.ToDate, IdCuentaBancariaComplementaria, -1, CveIE, -1, -1, -1, -1, ImporteMX:=TxtImporte.Text.ToDecimal, CveCuenta:=CveCuentaBancariaComplementaria) Then
+ If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TxtImporte.Text.ToDecimal, "", 30, "", TxtFecha.Text.ToDate, IdCuentaBancariaComplementaria, -1, CveIE, -1, -1, -1, -1, ImporteMX:=TxtImporte.Text.ToDecimal) Then
MsgError = "No se pudo insertar la póliza"
End If
Else
- If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TxtImporte.Text.ToDecimal, "", 30, "", TxtFecha.Text.ToDate, IdCuentaBancaria, -1, CveIE, -1, -1, -1, -1, ImporteMX:=TxtImporte.Text.ToDecimal, CveCuenta:=CveCuentaBancaria) Then
+ If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TxtImporte.Text.ToDecimal, "", 30, "", TxtFecha.Text.ToDate, IdCuentaBancaria, -1, CveIE, -1, -1, -1, -1, ImporteMX:=TxtImporte.Text.ToDecimal) Then
MsgError = "No se pudo insertar la póliza"
End If
End If
diff --git a/Bin/ADSNetLibrary.dll b/Bin/ADSNetLibrary.dll
index 90c5f7b0f..6f63611e6 100644
Binary files a/Bin/ADSNetLibrary.dll and b/Bin/ADSNetLibrary.dll differ
diff --git a/Bin/GoCfdi.dll b/Bin/GoCfdi.dll
index 3656903b0..e25ec6628 100644
Binary files a/Bin/GoCfdi.dll and b/Bin/GoCfdi.dll differ
diff --git a/CRM/Acercamiento.aspx b/CRM/Acercamiento.aspx
index f75e9a814..3345c66c5 100644
--- a/CRM/Acercamiento.aspx
+++ b/CRM/Acercamiento.aspx
@@ -77,6 +77,11 @@
.MultiLineTextBox {
resize: none;
}
+
+
+ .listTerminado{
+ text-decoration: line-through;
+ }
-
-
-
-
-
- Textbox1
-
- 0.5pt
-
-
- Black
-
- 0.5pt
-
-
- Black
-
- 0.5pt
-
-
- Black
-
- 0.5pt
-
-
- Black
-
- 0.5pt
-
- #f5811c
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- D E S C R I P C I Ó N
-
-
-
-
-
-
- Textbox9
-
- 0.5pt
-
-
- Black
-
- 0.5pt
-
-
- Black
-
- 0.5pt
-
-
- Black
-
- 0.5pt
-
-
- Black
-
- 0.5pt
-
- #f5811c
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- OBSERVACIONES
-
-
-
-
-
-
- Textbox1
-
- 0.5pt
-
-
- Black
-
- 0.5pt
-
-
- Black
-
- 0.5pt
-
-
- Black
-
- 0.5pt
-
-
- Black
-
- 0.5pt
-
- #f5811c
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- P. UNITARIO
-
-
-
-
-
-
- Textbox13
-
- 0.5pt
-
-
- Black
-
- 0.5pt
-
-
- Black
-
- 0.5pt
-
-
- Black
-
- 0.5pt
-
-
- Black
-
- 0.5pt
-
- #f5811c
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- IMPORTE
-
-
-
-
-
-
- Textbox5
-
- 0.5pt
-
-
- Black
-
- 0.5pt
-
-
- Black
-
- 0.5pt
-
-
- Black
-
- 0.5pt
-
-
- Black
-
- 0.5pt
-
- #f5811c
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- 0.25in
-
-
-
-
- true
- true
-
-
-
-
- =Fields!Cantidad.Value
-
-
-
-
-
-
- Cantidad
-
- 0.5pt
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!PS.Value
-
-
-
-
-
-
- PS
-
- 0.5pt
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!Obs.Value
-
-
-
-
-
-
- Obs
-
- 0.5pt
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!PU.Value
-
-
-
-
-
-
- PU
-
- 0.5pt
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!Cantidad.Value*Fields!PU.Value
-
-
-
-
-
-
- Textbox18
-
- 0.5pt
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- After
-
-
-
-
-
-
- DsOC
- 1.57296in
- 0.03641in
- 0.5in
- 7.90481in
-
- 0.5pt
-
-
-
-
- true
- true
-
-
-
-
- HERMOSILLO, SONORA A
-
-
-
- =CDATE(Parameters!FechaSolicitud.Value).ToString("d DE MMMM DEL yyyy").ToUpper
-
-
-
-
-
-
-
-
- Cotización
-
-
-
-
-
-
- Textbox3
- 0.08322in
- 1.46349in
- 0.90364cm
- 13.4114cm
- 1
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- I.V.A.
-
-
-
-
-
-
- Textbox20
- 7.26613cm
- 15.1707cm
- 0.45183cm
- 2.5cm
- 2
-
- 0.5pt
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- TOTAL:
-
-
-
-
-
-
- Textbox20
- 7.71797cm
- 15.1707cm
- 0.45183cm
- 2.5cm
- 3
-
- 0.5pt
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- SUB-TOTAL:
-
-
-
-
-
-
- Textbox20
- 6.8143cm
- 15.1707cm
- 0.45183cm
- 2.5cm
- 4
-
- 0.5pt
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- =Parameters!IVA.Value
-
-
-
-
-
-
- Textbox20
- 7.26613cm
- 17.6707cm
- 0.45183cm
- 2.5cm
- 5
-
- 0.5pt
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- =Parameters!Total.Value
-
-
-
-
-
-
- Textbox20
- 7.71797cm
- 17.6707cm
- 0.45183cm
- 2.5cm
- 6
-
- 0.5pt
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- =Parameters!SubTotal.Value
-
-
-
-
-
-
- Textbox20
- 6.8143cm
- 17.6707cm
- 0.45183cm
- 2.5cm
- 7
-
- 0.5pt
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- =Parameters!ClienteNombre.Value
-
-
-
-
-
-
-
-
- Dirreccion:
-
-
-
- =Parameters!ClienteDireccion.Value
-
-
-
- Tel:
-
-
-
- =Parameters!ClienteTelefono.Value
-
-
-
-
-
-
-
-
- AT'N:
-
-
-
- =Parameters!ClienteContacto.Value
-
-
-
-
-
-
-
-
- P R E S E N T E. Folio:
-
-
-
- =Parameters!Folio.Value
-
-
-
-
-
-
- Textbox4
- 0.50843in
- 2.15793in
- 0.68942in
- 5.28008in
- 8
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- =Parameters!Observaciones.Value
-
-
-
-
-
-
- Textbox6
- 3.21893cm
- 3.71726cm
- 0.6cm
- 16.45344cm
- 9
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- Embedded
- Logo4
- FitProportional
- 2.39958cm
- 5.30475cm
- 10
-
-
-
-
-
- 8.36079cm
-
-