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/LogicNominas.vb b/App_Code/LogicNominas.vb
index 8f2cafafa..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) '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) 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
@@ -440,7 +446,7 @@ Public Class LogicNominas
cfdi.Comprobante.TipoDocto = "Egs"
cfdi.Comprobante.MetodoPago = "PUE"
cfdi.Comprobante.CondicionesdePago = "" '"CONTADO"
- cfdi.Comprobante.FormadePago = If(UsuarioActual.Empresa.Funcionalidad(350).Contiene("1"), "", "99")
+ 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/CRM/Acercamiento.aspx b/CRM/Acercamiento.aspx
index c17f410ef..3345c66c5 100644
--- a/CRM/Acercamiento.aspx
+++ b/CRM/Acercamiento.aspx
@@ -77,6 +77,11 @@
.MultiLineTextBox {
resize: none;
}
+
+
+ .listTerminado{
+ text-decoration: line-through;
+ }
-
-
-
-
-
- Textbox1
-
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- CODIGO
-
-
-
-
-
-
- Textbox7
-
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- D E S C R I P C I O N
-
-
-
-
-
-
- Textbox9
-
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- OBSERVACIONES
-
-
-
-
-
-
- Textbox1
-
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- P. UNITARIO
-
-
-
-
-
-
- Textbox13
-
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- IMPORTE
-
-
-
-
-
-
- Textbox5
-
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- 0.25in
-
-
-
-
- true
- true
-
-
-
-
- =Fields!Cantidad.Value
-
-
-
-
-
-
- Cantidad
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!Codigo.Value
-
-
-
-
-
-
- Codigo
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!PS.Value
-
-
-
-
-
-
- PS
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!Obs.Value
-
-
-
-
-
-
- Obs
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!PU.Value
-
-
-
-
-
-
- PU
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!Cantidad.Value*Fields!PU.Value
-
-
-
-
-
-
- Textbox18
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- After
-
-
-
-
-
-
- DsOC
- 2.2762in
- 0.23429in
- 0.5in
- 6.93425in
-
-
-
-
-
- true
- true
-
-
-
-
- C O T I Z A C I O N
-
-
-
-
-
-
- Textbox3
- 0.19535in
- 1.54477in
- 0.6cm
- 14.42497cm
- 1
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- =Parameters!ClienteCodigo.Value
-
-
-
-
-
-
-
-
- =Parameters!ClienteNombre.Value
-
-
-
-
-
-
-
-
- =Parameters!ClienteDireccion.Value
-
-
-
-
-
-
-
-
- =Parameters!ClienteLugar.Value
-
-
-
-
-
-
-
-
- TEL:
-
-
-
- =Parameters!ClienteTelefono.Value
-
-
-
-
-
-
-
-
- ATN:
-
-
-
- =Parameters!ClienteContacto.Value
-
-
-
-
-
-
- Textbox4
- 2.27448cm
- 0.23429in
- 2.51029cm
- 9.71783cm
- 2
-
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- FECHA:
-
-
-
- =Parameters!FechaSolicitud.Value
-
-
-
-
-
-
-
-
- VENDEDOR:
-
-
-
- =Parameters!VendedorNombre.Value
-
-
-
-
-
-
-
-
- COTIZACION:
-
-
-
- =Parameters!Folio.Value
-
-
-
-
-
-
-
-
-
-
-
-
- E-mail :
-
-
-
- =Parameters!ClienteContactoMail.Value
-
-
-
-
-
-
-
-
- Status :
-
-
-
- =Parameters!Status.Value
-
-
-
-
-
-
- Textbox4
- 2.27448cm
- 12.06746cm
- 2.51029cm
- 6.14066cm
- 3
-
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- ATENDIENDO A SU AMABLE PETICION ESTAMOS PRESENTANDO COTIZACION POR EL SIGUIENTE SERVICIO:
-
-
-
-
-
-
- Textbox8
- 4.8906cm
- 0.21762in
- 0.74984cm
- 14.80195cm
- 4
-
-
- Bottom
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- Embedded
- VSH
- FitProportional
- 0.59509cm
- 1.65182cm
- 2.95521cm
- 5
-
-
-
-
-
- true
- true
-
-
-
-
- Datos Cliente
-
-
-
-
-
-
- Textbox2
- 1.75766cm
- 0.59509cm
- 0.51682cm
- 9.71783cm
- 6
-
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- Datos Factura
-
-
-
-
-
-
- Textbox12
- 1.75766cm
- 12.06746cm
- 0.51682cm
- 6.14066cm
- 7
-
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- I.V.A.
-
-
-
-
-
-
- Textbox20
- 9.09726cm
- 14.02872cm
- 0.45183cm
- 2.5cm
- 8
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- TOTAL:
-
-
-
-
-
-
- Textbox20
- 9.5491cm
- 14.02872cm
- 0.45183cm
- 2.5cm
- 9
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- SUB-TOTAL:
-
-
-
-
-
-
- Textbox20
- 8.64543cm
- 14.02872cm
- 0.45183cm
- 2.5cm
- 10
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- =Parameters!IVA.Value
-
-
-
-
-
-
- Textbox20
- 9.09726cm
- 16.52872cm
- 0.45183cm
- 2.5cm
- 11
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- =Parameters!Total.Value
-
-
-
-
-
-
- Textbox20
- 9.5491cm
- 16.52872cm
- 0.45183cm
- 2.5cm
- 12
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- =Parameters!SubTotal.Value
-
-
-
-
-
-
- Textbox20
- 8.64543cm
- 16.52872cm
- 0.45183cm
- 2.5cm
- 13
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- DESCUENTO:
-
-
-
-
-
-
- Textbox20
- 8.1936cm
- 14.02872cm
- 0.45183cm
- 2.5cm
- 14
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- =Parameters!Descuento.Value
-
-
-
-
-
-
- Textbox20
- 8.1936cm
- 16.52872cm
- 0.45183cm
- 2.5cm
- 15
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
-
-
-
-
- =Parameters!ImporteLetra.Value
-
-
-
-
-
-
- Textbox46
- 9.96565cm
- 0.45183cm
- 19.08683cm
- 16
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- 10.62098cm
- 0cm
- 19.08683cm
- 17
-
-
-
-
-
- true
- true
-
-
-
-
- =Parameters!Observaciones.Value
-
-
-
-
-
-
-
-
- A NOMBRE DE VSH VIGILANCIA Y PROTECCION SA DE CV PERMISO : LSP-R-2010-M-271
-
-
-
-
-
-
- Textbox52
- 10.65626cm
- 1.06567cm
- 19.08683cm
- 18
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- A T E N T A M E N T E
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- __________________________
-
-
-
-
-
-
-
-
- =Parameters!VendedorNombre.Value
-
-
-
-
-
-
-
-
- Ventas
-
-
-
-
-
-
- Textbox10
- 11.89831cm
- 2.01816cm
- 6.01542cm
- 19
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- Tel.-
-
-
-
- =Parameters!VendedorTelefono.Value
-
-
-
- Cel.-
-
-
-
- =Parameters!VendedorCelular.Value
-
-
-
-
-
-
-
- =Parameters!VendedorMail.Value
-
-
-
-
-
-
-
-
- VSH VIGILANCIA Y PROTECCION, SA DE CV Benito Juarez #32 local 3 col hermosillo centro c.p. 83000, Hermosillo, Sonora, México, 662 210 6400
-
-
-
-
-
-
- Textbox11
- 13.91648cm
- 0.74817cm
- 19.08683cm
- 20
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- 5.93748in
-
-