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

--Merge Cotizacion

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2022-11-09 16:34:50 -07:00
parent de645bbb57 88eb5f0026
commit f6d0b4e6e4
49 changed files with 9565 additions and 9073 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
AF/RepDepreciacion.aspx.vb
View File

@@ -38,17 +38,16 @@ Partial Class AF_RepDepreciacion
For Each RowsDt As GridViewRow In GvDatos.Rows For Each RowsDt As GridViewRow In GvDatos.Rows
CveActivoFijo = RowsDt.DataKey("CveActivoFijo").ToEntero CveActivoFijo = RowsDt.DataKey("CveActivoFijo").ToEntero
If RowsDt.FCLiteral("LtlDepreciacionMensual").Text.ToDouble > 0 And CveActivoFijo <> 0 Then Dim MontoDepreciacion As Decimal = RowsDt.FCLiteral("LtlDepreciacionMensual").Text.ToDecimal
If MontoDepreciacion > 0 And CveActivoFijo <> 0 Then
Dim MontoDepreciacion As Double = RowsDt.FCLiteral("LtlDepreciacionMensual").Text.ToDouble
Dim ConceptoPolizaDetalle As String = String.Format("Depreciacion - {0} - {1}", txtFechaI.Text, RowsDt.FCLiteral("LtlDescripcion").Text) Dim ConceptoPolizaDetalle As String = String.Format("Depreciacion - {0} - {1}", txtFechaI.Text, RowsDt.FCLiteral("LtlDescripcion").Text)
If CvePrePoliza > 0 Then If CvePrePoliza > 0 Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, MontoDepreciacion.ToDecimal, ConceptoPolizaDetalle, 101, ConceptoPolizaDetalle, txtFechaI.Text.ToDate, 0, -1, CveActivoFijo:=CveActivoFijo, ImporteMX:=MontoDepreciacion.ToDecimal, ImporteME:=MontoDepreciacion.ToDecimal, CveSubProyecto:=CveSubProyecto) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, -MontoDepreciacion, -MontoDepreciacion, 270, ConceptoPolizaDetalle, ConceptoPolizaDetalle, 0, CveActivoFijo:=CveActivoFijo, CveSubProyecto:=CveSubProyecto) Then
ErrorMovInv = True ErrorMovInv = True
Exit For Exit For
End If End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, MontoDepreciacion.ToDecimal, ConceptoPolizaDetalle, 51, ConceptoPolizaDetalle, txtFechaI.Text.ToDate, 0, -1, CveActivoFijo:=CveActivoFijo, ImporteMX:=MontoDepreciacion.ToDecimal, ImporteME:=MontoDepreciacion.ToDecimal, CveSubProyecto:=CveSubProyecto) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, MontoDepreciacion, MontoDepreciacion, 101, ConceptoPolizaDetalle, ConceptoPolizaDetalle, 0, CveActivoFijo:=CveActivoFijo, CveSubProyecto:=CveSubProyecto) Then
ErrorMovInv = True ErrorMovInv = True
Exit For Exit For
End If End If

32
Acumuladores/CatGarantiasMeses.aspx.vb
View File

@@ -72,15 +72,20 @@ Partial Class Acumuladores_CatFoliosGarantia
Private Sub CargaCombos() Private Sub CargaCombos()
Dim ObjPS As New ClsProductosServicios 'Dim ObjPS As New ClsProductosServicios
If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then 'If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
DdlMarca.DataSource = ObjPS.DtResultados ' DdlMarca.DataSource = ObjPS.DtResultados
DdlMarca.DataBind() ' DdlMarca.DataBind()
DdlMarca.Items.Insert(0, New ListItem("Todos", "-1")) ' DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))
DdlMarca.SelectedValue = "-1" ' DdlMarca.SelectedValue = "-1"
End If 'End If
ObjPS.Dispose() 'ObjPS.Dispose()
DdlMarca.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
DdlMarca.DataBind()
DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))
DdlMarca.SelectedValue = "-1"
DdlTipoUso.DataSource = GlobalDTAcumTiposUso() DdlTipoUso.DataSource = GlobalDTAcumTiposUso()
DdlTipoUso.DataBind() DdlTipoUso.DataBind()
@@ -109,13 +114,14 @@ Partial Class Acumuladores_CatFoliosGarantia
Private Sub CargaCombosModal() Private Sub CargaCombosModal()
Dim ObjPS As New ClsProductosServicios 'Dim ObjPS As New ClsProductosServicios
If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then 'If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
DdlMarcaM.DataSource = ObjPS.DtResultados ' DdlMarcaM.DataSource = ObjPS.DtResultados
End If 'End If
ObjPS.Dispose() 'ObjPS.Dispose()
DdlMarca.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
DdlMarcaM.DataBind() DdlMarcaM.DataBind()
DdlTipoUsoM.DataSource = GlobalDTAcumTiposUso() DdlTipoUsoM.DataSource = GlobalDTAcumTiposUso()

25
App_Code/ClsCRM.vb
View File

@@ -667,7 +667,7 @@ Public Class ClsCRM
Optional CveVendedor As Integer = -1, Optional FechaInicio As String = "-1", Optional FechaFin As String = "-1", Optional NombreAcercamiento As String = "-1", Optional CveVendedor As Integer = -1, Optional FechaInicio As String = "-1", Optional FechaFin As String = "-1", Optional NombreAcercamiento As String = "-1",
Optional CveMedioCaptacion As Integer = -1, Optional CveRechazoMotivo As Integer = -1, Optional CveProbabilidad As Integer = -1, Optional CveMedioCaptacion As Integer = -1, Optional CveRechazoMotivo As Integer = -1, Optional CveProbabilidad As Integer = -1,
Optional FechaApertura As String = "-1", Optional FechaCierre As String = "-1", Optional TopSelect As Integer = 10000, Optional CvePS As Integer = -1, Optional FechaApertura As String = "-1", Optional FechaCierre As String = "-1", Optional TopSelect As Integer = 10000, Optional CvePS As Integer = -1,
Optional CveGiroClasificacion As Integer = -1) As Boolean Optional CveGiroClasificacion As Integer = -1, Optional EnPausa As Integer = -1, Optional CveEtapaProceso As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_CRM_AcercamientoGet") DataAdapter("PA_CRM_AcercamientoGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -694,6 +694,12 @@ Public Class ClsCRM
.Add("@CvePS", SqlDbType.Int).Value = CvePS .Add("@CvePS", SqlDbType.Int).Value = CvePS
.Add("@CveGiroClasificacion", SqlDbType.Int).Value = CveGiroClasificacion .Add("@CveGiroClasificacion", SqlDbType.Int).Value = CveGiroClasificacion
.Add("@EnPausa", SqlDbType.Int).Value = EnPausa
.Add("@CveEtapaProceso", SqlDbType.Int).Value = CveEtapaProceso
'.Add("@CveMedioCaptacion", SqlDbType.Int).Value = CveMedioCaptacion
'.Add("@CveTipoProceso", SqlDbType.Int).Value = CveTipoProceso
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
@@ -1030,7 +1036,8 @@ Public Class ClsCRM
#Region "REPORTES" #Region "REPORTES"
Public Function RepAcercamientosEtapas(cveEmpresa As Int32, cveTipoProceso As Int32, idgrupo1 As Int32, idgrupo2 As Int32, fechaIni As String, fechaFin As String, cveVendedor As Int32, cveMedioCaptacion As Int32, cveProbabilidadAcercamiento As Int32, Optional CvePS As Integer = -1, Optional CveGiroClasificacion As Integer = -1) As Boolean Public Function RepAcercamientosEtapas(cveEmpresa As Int32, cveTipoProceso As Int32, idgrupo1 As Int32, idgrupo2 As Int32, fechaIni As String, fechaFin As String, cveVendedor As Int32, cveMedioCaptacion As Int32,
cveProbabilidadAcercamiento As Int32, Optional CvePS As Integer = -1, Optional CveGiroClasificacion As Integer = -1, Optional EnPausa As Integer = -1, Optional CveEtapaProceso As Integer = -1) As Boolean
Dim retorno As Boolean = False Dim retorno As Boolean = False
DataAdapter("PA_CRM_RepAcercamientosEtapas", CommandType.StoredProcedure) DataAdapter("PA_CRM_RepAcercamientosEtapas", CommandType.StoredProcedure)
@@ -1046,6 +1053,13 @@ Public Class ClsCRM
.Add("@CveProbabilidadAcercamiento", SqlDbType.Int).Value = cveProbabilidadAcercamiento .Add("@CveProbabilidadAcercamiento", SqlDbType.Int).Value = cveProbabilidadAcercamiento
.Add("@CvePS", SqlDbType.Int).Value = CvePS .Add("@CvePS", SqlDbType.Int).Value = CvePS
.Add("@CveGiroClasificacion", SqlDbType.Int).Value = CveGiroClasificacion .Add("@CveGiroClasificacion", SqlDbType.Int).Value = CveGiroClasificacion
.Add("@EnPausa", SqlDbType.Int).Value = EnPausa
.Add("@CveEtapaProcesoFiltro", SqlDbType.Int).Value = CveEtapaProceso '@CveEtapaProcesoFiltro
'.Add("@CveMedioCaptacion", SqlDbType.Int).Value = cveMedioCaptacion
'.Add("@CveTipoProceso", SqlDbType.Int).Value = cveTipoProceso
End With End With
Try Try
SqlAdapter.Fill(DSet) SqlAdapter.Fill(DSet)
@@ -1056,7 +1070,8 @@ Public Class ClsCRM
Return retorno Return retorno
End Function End Function
Public Function RepAcercamientosRechazos(cveEmpresa As Int32, cveTipoProceso As Int32, idgrupo1 As Int32, idgrupo2 As Int32, fechaIni As String, fechaFin As String, cveVendedor As Int32, cveMedioCaptacion As Int32, cveProbabilidadAcercamiento As Int32, Optional CvePS As Integer = -1, Optional CveGiroClasificacion As Integer = -1) As Boolean Public Function RepAcercamientosRechazos(cveEmpresa As Int32, cveTipoProceso As Int32, idgrupo1 As Int32, idgrupo2 As Int32, fechaIni As String, fechaFin As String, cveVendedor As Int32, cveMedioCaptacion As Int32,
cveProbabilidadAcercamiento As Int32, Optional CvePS As Integer = -1, Optional CveGiroClasificacion As Integer = -1, Optional EnPausa As Integer = -1, Optional CveEtapaProceso As Integer = -1) As Boolean
Dim retorno As Boolean = False Dim retorno As Boolean = False
DataAdapter("PA_CRM_RepAcercamientosRechazos", CommandType.StoredProcedure) DataAdapter("PA_CRM_RepAcercamientosRechazos", CommandType.StoredProcedure)
@@ -1072,6 +1087,10 @@ Public Class ClsCRM
.Add("@CveProbabilidadAcercamiento", SqlDbType.Int).Value = cveProbabilidadAcercamiento .Add("@CveProbabilidadAcercamiento", SqlDbType.Int).Value = cveProbabilidadAcercamiento
.Add("@CvePS", SqlDbType.Int).Value = CvePS .Add("@CvePS", SqlDbType.Int).Value = CvePS
.Add("@CveGiroClasificacion", SqlDbType.Int).Value = CveGiroClasificacion .Add("@CveGiroClasificacion", SqlDbType.Int).Value = CveGiroClasificacion
.Add("@EnPausa", SqlDbType.Int).Value = EnPausa
.Add("@CveEtapaProcesoFiltro", SqlDbType.Int).Value = CveEtapaProceso
End With End With
Try Try
SqlAdapter.Fill(DSet) SqlAdapter.Fill(DSet)

6
App_Code/ClsContabilidad.vb
View File

@@ -3378,10 +3378,10 @@ Public Class ClsContabilidad
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
.Add("@Codigo", SqlDbType.VarChar).Value = Codigo .Add("@Codigo", SqlDbType.VarChar).Value = Codigo
.Add("@Afectable", SqlDbType.VarChar).Value = Afectable .Add("@Afectable", SqlDbType.Int).Value = Afectable
.Add("@CveEmpresa", SqlDbType.VarChar).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@Nombre", SqlDbType.VarChar).Value = Nombre .Add("@Nombre", SqlDbType.VarChar).Value = Nombre
.Add("@RowNum", SqlDbType.VarChar).Value = RowNum .Add("@RowNum", SqlDbType.Int).Value = RowNum
.Add("@CvePadre", SqlDbType.Int).Value = CvePadre .Add("@CvePadre", SqlDbType.Int).Value = CvePadre
End With End With

12
App_Code/ClsOIEventos.vb
View File

@@ -1189,12 +1189,13 @@ Public Class ClsOIEventos
#Region "CRUD_cheklist" #Region "CRUD_cheklist"
Public Function Getcheklist(cveEvento As Int32) As Boolean Public Function Getcheklist(cveEvento As Int32, Optional CveAcercamiento As Integer = -1) As Boolean
Dim retorno As Boolean = False Dim retorno As Boolean = False
DataAdapter("PA_OI_cheklistGet", CommandType.StoredProcedure) DataAdapter("PA_OI_cheklistGet", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@cveEvento", SqlDbType.Int).Value = cveEvento .Add("@cveEvento", SqlDbType.Int).Value = cveEvento
.Add("@CveAcercamiento", SqlDbType.Int).Value = CveAcercamiento
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
@@ -1204,13 +1205,14 @@ Public Class ClsOIEventos
End Try End Try
Return retorno Return retorno
End Function End Function
Public Function Addcheklist(cveEvento As Int32, eventoComentario As String, cveUsuario As Int32) As Boolean Public Function Addcheklist(cveEvento As Int32, eventoComentario As String, cveUsuario As Int32, Optional CveAcercamiento As Integer = -1) As Boolean
Dim retorno As Boolean = False Dim retorno As Boolean = False
DataAdapter("PA_OI_cheklistAdd", CommandType.StoredProcedure) DataAdapter("PA_OI_cheklistAdd", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@cveEvento", SqlDbType.Int).Value = cveEvento .Add("@cveEvento", SqlDbType.Int).Value = cveEvento
.Add("@eventoComentario", SqlDbType.VarChar).Value = eventoComentario .Add("@eventoComentario", SqlDbType.VarChar).Value = eventoComentario
.Add("@cveUsuario", SqlDbType.Int).Value = cveUsuario .Add("@cveUsuario", SqlDbType.Int).Value = cveUsuario
.Add("@CveAcercamiento", SqlDbType.Int).Value = CveAcercamiento
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
@@ -1220,7 +1222,7 @@ Public Class ClsOIEventos
End Try End Try
Return retorno Return retorno
End Function End Function
Public Function Upcheklist(cveEventoCheckList As Int32, cveEvento As Int32, eventoComentario As String, estatus As Boolean, cveUsuario As Int32, CveEmpresa As Int32) As Boolean Public Function Upcheklist(cveEventoCheckList As Int32, cveEvento As Int32, eventoComentario As String, estatus As Boolean, cveUsuario As Int32, CveEmpresa As Int32, Optional CveAcercamiento As Integer = -1) As Boolean
Dim retorno As Boolean = False Dim retorno As Boolean = False
DataAdapter("PA_OI_cheklistUp", CommandType.StoredProcedure) DataAdapter("PA_OI_cheklistUp", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -1230,6 +1232,7 @@ Public Class ClsOIEventos
.Add("@estatus", SqlDbType.Bit).Value = estatus .Add("@estatus", SqlDbType.Bit).Value = estatus
.Add("@cveUsuario", SqlDbType.Int).Value = cveUsuario .Add("@cveUsuario", SqlDbType.Int).Value = cveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveAcercamiento", SqlDbType.Int).Value = CveAcercamiento
End With End With
Dim separador As String = "" Dim separador As String = ""
@@ -1272,13 +1275,14 @@ Public Class ClsOIEventos
End If End If
Return retorno Return retorno
End Function End Function
Public Function Removecheklist(cveEventoCheckList As Int32, cveEvento As Int32, cveUsuario As Int32) As Boolean Public Function Removecheklist(cveEventoCheckList As Int32, cveEvento As Int32, cveUsuario As Int32, Optional CveAcercamiento As Integer = -1) As Boolean
Dim retorno As Boolean = False Dim retorno As Boolean = False
DataAdapter("PA_OI_cheklistRemove", CommandType.StoredProcedure) DataAdapter("PA_OI_cheklistRemove", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@cveEventoCheckList", SqlDbType.Int).Value = cveEventoCheckList .Add("@cveEventoCheckList", SqlDbType.Int).Value = cveEventoCheckList
.Add("@cveEvento", SqlDbType.Int).Value = cveEvento .Add("@cveEvento", SqlDbType.Int).Value = cveEvento
.Add("@cveUsuario", SqlDbType.Int).Value = cveUsuario .Add("@cveUsuario", SqlDbType.Int).Value = cveUsuario
.Add("@CveAcercamiento", SqlDbType.Int).Value = CveAcercamiento
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)

108
App_Code/ClsPaginas.vb
View File

@@ -4712,7 +4712,6 @@ Public Class ClsPaginas
PaginaDict.Add("/Compras/RepCxP.aspx".ToUpper(), 168) PaginaDict.Add("/Compras/RepCxP.aspx".ToUpper(), 168)
PaginaDict.Add("/Compras/RepCxPDetalle.aspx".ToUpper(), 168) PaginaDict.Add("/Compras/RepCxPDetalle.aspx".ToUpper(), 168)
PaginaDict.Add("/Compras/CatProveedoresClasificaciones.aspx".ToUpper(), 186) PaginaDict.Add("/Compras/CatProveedoresClasificaciones.aspx".ToUpper(), 186)
PaginaDict.Add("/Compras/CatAcreedores.aspx".ToUpper(), 303)
PaginaDict.Add("/Compras/Acreedores.aspx".ToUpper(), 303) PaginaDict.Add("/Compras/Acreedores.aspx".ToUpper(), 303)
PaginaDict.Add("/Compras/RepComprasG.aspx".ToUpper(), 286) PaginaDict.Add("/Compras/RepComprasG.aspx".ToUpper(), 286)
PaginaDict.Add("/Compras/Compras2.aspx".ToUpper(), -1) PaginaDict.Add("/Compras/Compras2.aspx".ToUpper(), -1)
@@ -5778,11 +5777,11 @@ Public Class ClsPaginas
If sw IsNot Nothing AndAlso Not (Not User.Identity.IsAuthenticated OrElse UsuarioActual Is Nothing) Then If sw IsNot Nothing AndAlso Not (Not User.Identity.IsAuthenticated OrElse UsuarioActual Is Nothing) Then
sw.Stop() sw.Stop()
'If Not Page.IsPostBack Then If Not Page.IsPostBack Then
' Using ObjUsuario As New ClsSisUsuarios Using ObjUsuario As New ClsSisUsuarios
' ObjUsuario.AddBitacora(CveModulo, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request.Url.PathAndQuery.ToString(), sw.ElapsedMilliseconds) ObjUsuario.AddBitacora(CveModulo, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request.Url.PathAndQuery.ToString(), sw.ElapsedMilliseconds)
' End Using End Using
'End If End If
End If End If
If Not IsNothing(ViewState("strToastMsglargonoreplace")) AndAlso ViewState("strToastMsglargonoreplace").ToString.Length > 0 Then If Not IsNothing(ViewState("strToastMsglargonoreplace")) AndAlso ViewState("strToastMsglargonoreplace").ToString.Length > 0 Then
@@ -9633,6 +9632,8 @@ Public Class ClsPaginas
Dim ImporteMN As Decimal = 0 Dim ImporteMN As Decimal = 0
Dim ImporteME As Decimal = 0 Dim ImporteME As Decimal = 0
Dim TCValuacion As Decimal = CompraActual.TC Dim TCValuacion As Decimal = CompraActual.TC
Dim TCValuacionPago As Decimal = Pago.TCPago
Dim tFechaUltimaFluctuacion As Date
Dim tImportePago, tImporteCompra As Decimal Dim tImportePago, tImporteCompra As Decimal
Dim CveConceptoContableComplementaria As Integer = 206 Dim CveConceptoContableComplementaria As Integer = 206
@@ -9650,16 +9651,15 @@ Public Class ClsPaginas
Dim FuncionalidadFluctuacionImpuestos As Boolean = If(UsuarioActual.Empresa.Funcionalidad(159) = "1", True, False) Dim FuncionalidadFluctuacionImpuestos As Boolean = If(UsuarioActual.Empresa.Funcionalidad(159) = "1", True, False)
Dim tFecha As Date = Pago.Fecha Dim tFecha As Date = Pago.Fecha
Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha)
If CompraActual.CveMoneda <> 1 OrElse Pago.CveMonedaPago <> 1 Then If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then
Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha) If UltimaFluctuacion.FechaFluctuacion <= tFecha Then
tFechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion
If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then TCValuacion = UltimaFluctuacion.TCFluctuacion
If UltimaFluctuacion.FechaFluctuacion <= tFecha AndAlso CompraActual.Fecha <= UltimaFluctuacion.FechaFluctuacion Then
'FechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion
TCValuacion = UltimaFluctuacion.TCFluctuacion
End If
End If End If
If CompraActual.Fecha < tFechaUltimaFluctuacion Then TCValuacion = TCValuacion
If Pago.Fecha < tFechaUltimaFluctuacion Then TCValuacionPago = TCValuacion
End If End If
If CompraActual.CveMoneda = 1 And Pago.CveMonedaPago <> 1 Then 'factura pesos, pago en dolares If CompraActual.CveMoneda = 1 And Pago.CveMonedaPago <> 1 Then 'factura pesos, pago en dolares
@@ -9793,6 +9793,82 @@ Public Class ClsPaginas
End If End If
'concepto pago
Concepto = String.Format("{0} NC:{1}", CompraActual.ProveedorNombre, Pago.Referencia)
If Pago.TipoPago = "Egsc" AndAlso Not ErrorMovtos Then ' A N T I C I P O / E G R E S O S X C O M P R O B A R
Dim Ret As New ConceptosRetenciones
If Pago.CveMonedaPago > 1 Then
'Agregamos la Extranjera
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 21, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImporteMN, 266, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProvComplementaria, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
Else
'Agregamos Nacional
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 21, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago) Then ErrorMovtos = True
End If
End If
If Pago.TipoPago.Contiene("NC", "DEV") AndAlso Not ErrorMovtos Then ' N O T A D E C R E D I T O
Dim Ret As New ConceptosRetenciones
If Pago.CveMonedaPago > 1 Then
'Agregamos la Extranjera
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 60, Pago.Referencia, Concepto, CompraActual.IdCtaContableProv, CveCompra:=Pago.CveCompraAmortizacion, CveCompraAmortizacion:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImporteMN, 235, Pago.Referencia, Concepto, CompraActual.IdCtaContableProvComplementaria, CveCompra:=Pago.CveCompraAmortizacion, CveVentaAmortizacion:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
Else
'Agregamos Nacional
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 60, Pago.Referencia, Concepto, CompraActual.IdCtaContableProv, CveCompra:=Pago.CveCompraAmortizacion, CveVentaAmortizacion:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
End If
End If
If Pago.TipoPago = "DD" AndAlso Not ErrorMovtos Then ' D E U D O R D I V E R S O
Dim Ret As New ConceptosRetenciones
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
If ObjConta.GetRetCuenta(66, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContableAcreditable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
If Pago.CveMonedaPago > 1 AndAlso ObjConta.GetRetCuenta(207, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContablexAcreditar = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
End If
If Pago.CveMonedaPago > 1 Then
'Agregamos la Extranjera
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 92, Pago.Referencia, Concepto, CompraActual.IdCtaContableProv, CveCompra:=Pago.CveCompraAmortizacion, CveCompraAmortizacion:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImporteMN, 207, Pago.Referencia, Concepto, CompraActual.IdCtaContableProvComplementaria, CveCompra:=Pago.CveCompraAmortizacion, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
Else
'Agregamos Nacional
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 92, Pago.Referencia, Concepto, CompraActual.IdCtaContableProv, CveVenta:=Pago.CveCompraAmortizacion, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CveSubProyecto:=CompraActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
End If
End If
'If Pago.TipoPago = "Egsc" AndAlso Not ErrorMovtos Then ' I N G R E S O S X C O M P R O B A R
' Dim Ret As New ConceptosRetenciones
' If UsuarioActual.Empresa.TipoContabilidad = 2 Then
' If ObjConta.GetRetCuenta(66, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContableAcreditable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
' If Pago.CveMonedaPago > 1 AndAlso ObjConta.GetRetCuenta(207, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContablexAcreditar = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
' End If
' If Pago.CveMonedaPago > 1 Then
' 'Agregamos la Extranjera
' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 92, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipo, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
' ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL
' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImporteMN, 207, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipoComplementaria, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
' Else
' 'Agregamos Nacional
' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 92, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipoExtranjera, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CveSubProyecto:=VentaActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
' End If
'End If
If Not ErrorMovtos AndAlso TCValuacion <> Pago.TCPago Then If Not ErrorMovtos AndAlso TCValuacion <> Pago.TCPago Then
Dim ConceptoContable, IdCtaContable As Integer Dim ConceptoContable, IdCtaContable As Integer
Dim TipoMovimiento As Boolean Dim TipoMovimiento As Boolean
@@ -9844,6 +9920,7 @@ Public Class ClsPaginas
Public Property OtroGastoIngreso As Decimal = 0 Public Property OtroGastoIngreso As Decimal = 0
Public Property CveConceptoPago As Integer = -1 'no definido de inicio Public Property CveConceptoPago As Integer = -1 'no definido de inicio
Public Property CveCreditoDetalle As Integer = -1 Public Property CveCreditoDetalle As Integer = -1
Public Property Referencia As String = ""
Public Property AplicaAcreditable As Boolean = True Public Property AplicaAcreditable As Boolean = True
End Class End Class
@@ -9870,9 +9947,10 @@ Public Class ClsPaginas
Public Property CveConceptoRetISR As Integer Public Property CveConceptoRetISR As Integer
Public Property CveSubProyecto As Integer Public Property CveSubProyecto As Integer
Public Property UsuarioActual As Usuario Public Property UsuarioActual As Usuario
Public Property IdCtaContableProv As Integer Public Property IdCtaContableProv As Integer
Public Property IdCtaContableProvComplementaria As Integer Public Property IdCtaContableProvComplementaria As Integer
Public Property IdCtaContableAnticipoProv As Integer
Public Property IdCtaContableAnticipoProvComplementaria As Integer
Public ReadOnly Property ConceptoPrePolizaIVA As ConceptosRetenciones Public ReadOnly Property ConceptoPrePolizaIVA As ConceptosRetenciones
Get Get
Dim Ret As New ConceptosRetenciones Dim Ret As New ConceptosRetenciones

4
App_Code/modExtensiones.vb
View File

@@ -1004,11 +1004,11 @@ Namespace Extensiones
'**********Une la parte entera y la parte decimal************* '**********Une la parte entera y la parte decimal*************
If dec <> "" Then If dec <> "" Then
palabras.AppendFormat("{0} {1} /100 {2}", Moneda, dec, AbrevMoneda) palabras.AppendFormat("{0} {1}/100 {2}", Moneda, dec, AbrevMoneda)
Retorno = palabras.ToString Retorno = palabras.ToString
Else Else
palabras.AppendFormat("{0} {1} /100 {2}", Moneda, dec, AbrevMoneda) palabras.AppendFormat("{0} {1}/100 {2}", Moneda, dec, AbrevMoneda)
Retorno = palabras.ToString Retorno = palabras.ToString
End If End If

2
Bancos/IE.aspx.vb
View File

@@ -5462,7 +5462,7 @@ Partial Class Bancos_IE
Else Else
Alert("El documento no ha sido eliminado.", TipoMensaje.MsgAdvertencia) Alert($"El documento no ha sido eliminado. {If(UsuarioActual.CveRol = 1, MsgEliminar, "")}", TipoMensaje.MsgAdvertencia)
If ObjAC IsNot Nothing Then ObjAC.RollBack() If ObjAC IsNot Nothing Then ObjAC.RollBack()

BIN
Bin/ADSNetLibrary.7z Normal file
View File

Binary file not shown.

BIN
Bin/ADSNetLibrary.dll
View File

Binary file not shown.

105
CRM/Acercamiento.aspx
View File

@@ -349,6 +349,7 @@
<asp:UpdatePanel ID="UPAcercamiento" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UPAcercamiento" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<ajax:TabContainer ID="TabsAcercamiento" runat="server" ActiveTabIndex="0" Width="100%"> <ajax:TabContainer ID="TabsAcercamiento" runat="server" ActiveTabIndex="0" Width="100%">
<ajax:TabPanel ID="TabDatosAcercmaiento" runat="server" HeaderText="Información de la Empresa"> <ajax:TabPanel ID="TabDatosAcercmaiento" runat="server" HeaderText="Información de la Empresa">
<ContentTemplate> <ContentTemplate>
<div class="row"> <div class="row">
@@ -410,6 +411,21 @@
<label style="height: 83px;" for="<%= TxtDescripcion.ClientID.ToString()%>">Descripción del Proyecto:</label> <label style="height: 83px;" for="<%= TxtDescripcion.ClientID.ToString()%>">Descripción del Proyecto:</label>
<i></i> <i></i>
</div> </div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlEmpresaCRM" DataTextField="Empresa" DataValueField="CveEmpresaCRM" CausesValidation="true" OnSelectedIndexChanged="DdlEmpresaCRM_SelectedIndexChanged" AutoPostBack="true" runat="server" Width="100%" AppendDataBoundItems="true" CssClass="form-control input-sm select2me"></asp:DropDownList>
<label for="<%= DdlEmpresaCRM.ClientID.ToString()%>">Empresa:</label>
<asp:RequiredFieldValidator ID="RFVEmpresaCRM" CssClass="help-block errorimput" runat="server" ControlToValidate="DdlEmpresaCRM" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Empresa''</b> es necesario." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlContactoPrincipal" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveContacto" Class="form-control input-sm select2me">
<asp:ListItem Value="-1" Text="Seleccione"></asp:ListItem>
</asp:DropDownList>
<label for="<%= DdlContactoPrincipal.ClientID.ToString()%>">Contacto Principal:</label>
</div>
<div id="DivPS" runat="server" class="form-group form-md-line-input input-iconright"> <div id="DivPS" runat="server" class="form-group form-md-line-input input-iconright">
<label style="color:#888888" for="<%= DdlPS.ClientID.ToString()%>">Producto Servicio:</label> <label style="color:#888888" for="<%= DdlPS.ClientID.ToString()%>">Producto Servicio:</label>
<ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width:100%" CssClassDdl="form-control select2me" DataTextField="PSCodigo" DataValueField="CvePS" /> <ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width:100%" CssClassDdl="form-control select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
@@ -482,6 +498,7 @@
</div> </div>
<div class="col-md-4"> <div class="col-md-4">
<div class="portlet light xspadding bordered" style="height: 228px"> <div class="portlet light xspadding bordered" style="height: 228px">
<div class="portlet-title"> <div class="portlet-title">
<div class="caption font-green"> <div class="caption font-green">
@@ -494,19 +511,7 @@
</div> </div>
</div> </div>
<div id="DivBodyProceso" class="portlet-body form"> <div id="DivBodyProceso" class="portlet-body form">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlEmpresaCRM" DataTextField="Empresa" DataValueField="CveEmpresaCRM" CausesValidation="true" OnSelectedIndexChanged="DdlEmpresaCRM_SelectedIndexChanged" AutoPostBack="true" runat="server" Width="100%" AppendDataBoundItems="true" CssClass="form-control input-sm select2me"></asp:DropDownList>
<label for="<%= DdlEmpresaCRM.ClientID.ToString()%>">Empresa:</label>
<asp:RequiredFieldValidator ID="RFVEmpresaCRM" CssClass="help-block errorimput" runat="server" ControlToValidate="DdlEmpresaCRM" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Empresa''</b> es necesario." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlContactoPrincipal" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveContacto" Class="form-control input-sm select2me">
<asp:ListItem Value="-1" Text="Seleccione"></asp:ListItem>
</asp:DropDownList>
<label for="<%= DdlContactoPrincipal.ClientID.ToString()%>">Contacto Principal:</label>
</div>
<%-- <div class="form-group form-md-line-input input-iconright"> <%-- <div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlTipoProceso" DataTextField="TipoProceso" DataValueField="CveTipoProceso" CausesValidation="true" OnSelectedIndexChanged="DdlTipoProceso_SelectedIndexChanged" AutoPostBack="true" runat="server" Width="100%" AppendDataBoundItems="true" CssClass="form-control input-sm select2me"></asp:DropDownList> <asp:DropDownList ID="DdlTipoProceso" DataTextField="TipoProceso" DataValueField="CveTipoProceso" CausesValidation="true" OnSelectedIndexChanged="DdlTipoProceso_SelectedIndexChanged" AutoPostBack="true" runat="server" Width="100%" AppendDataBoundItems="true" CssClass="form-control input-sm select2me"></asp:DropDownList>
@@ -521,8 +526,82 @@
<label for="<%= DdlEtapaProceso.ClientID.ToString()%>">Etapa Actual:</label> <label for="<%= DdlEtapaProceso.ClientID.ToString()%>">Etapa Actual:</label>
<asp:RequiredFieldValidator ID="RFVEtapaActual" CssClass="help-block errorimput" runat="server" ControlToValidate="DdlEtapaProceso" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Etapa Actual'</b> es necesario." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVEtapaActual" CssClass="help-block errorimput" runat="server" ControlToValidate="DdlEtapaProceso" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Etapa Actual'</b> es necesario." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
</div> </div>
<div class="row">
<div class="form-group col-md-6 ">
<label>En pausa: </label>
<asp:CheckBox ID="ChkePausa" runat="server" CssClass="make-switchsd" data-size="small" Text=" " />
</div>
</div>
<br />
<asp:UpdatePanel ID="UpChkList" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="row">
<div class="col-md-8">
<div class="form-group form-md-line-input">
<asp:TextBox ID="TxtActividad" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="Rfvactividadchklist" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtActividad" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''actividad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTareachklist"></asp:RequiredFieldValidator>
<asp:Label runat="server" Text="Actividad" AssociatedControlID="TxtActividad"></asp:Label>
</div>
</div>
<div class="col-md-4">
<%--<asp:Button ID="LnkSinfuncion" OnClick="LnkSinfuncion_Click" UseSubmitBehavior="false" CssClass="btn btn-default LnkSinfuncion hidden" runat="server"></asp:Button>--%>
<asp:LinkButton ID="LnkAgregarchklistitem" OnClick="LnkAgregarchklistitem_Click" ValidationGroup="GrpTareachklist" CssClass="btn btn-success" runat="server">Agregar</asp:LinkButton>
<%--<a class="btn btn-default">Agregar</a>--%>
</div>
</div>
<div class="row">
<div class="col-md-12">
<asp:GridView ID="GVcheklist" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall GVcheklist" AutoGenerateColumns="False"
DataKeyNames="CveEventoCheckList,CveEvento,CveTipoEvento,EventoComentario,Estatus,CveUsuario,Usuario,FechaIng">
<Columns>
<asp:TemplateField HeaderText="" ItemStyle-Width="30">
<ItemTemplate>
<asp:CheckBox ID="ChkEstatus" Text=" " AutoPostBack="true" OnCheckedChanged="ChkEstatus_CheckedChanged" runat="server" data-valor='<%# Extensiones.ModExtensiones.Encripta(Eval("CveEventoCheckList").ToString())%>' Checked='<%# Eval("Estatus")%>' />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Actividad">
<ItemTemplate>
<%--<pre>--%>
<span class="pre">
<asp:Literal ID="lbleventoComentario" runat="server" Text='<%# Eval("EventoComentario")%>'> </asp:Literal>
</span>
<%--</pre>--%>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-Width="30" Visible="false">
<ItemTemplate>
<%--<asp:LinkButton data-toggle="tooltip" title="Editar" ID="LnkEditar" OnClick="LnkEditarCheck_Click" CssClass="btn btn-circle btn-sm green" runat="server" Text="<i class='fa fa-pencil'></i>"></asp:LinkButton>--%>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-Width="30">
<ItemTemplate>
<asp:LinkButton ID="LnkD" runat="server" OnClick="LnkEliminarchek_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea eliminar el cheklist?" data-btn-ok-label="si" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div> </div>
</div> </div>
</div> </div>
<%--END DATOS DE EMPRESA CRM --%> <%--END DATOS DE EMPRESA CRM --%>
</div> </div>

144
CRM/Acercamiento.aspx.cs
View File

@@ -5,11 +5,14 @@ using ADSNetLibrary.SIGAPI.Models.Ventas.Request;
using ADSNetLibrary.SIGAPI.Services; using ADSNetLibrary.SIGAPI.Services;
using ADSNetLibrary.SIGAPI.Services.CRM; using ADSNetLibrary.SIGAPI.Services.CRM;
using ADSNetLibrary.SIGAPI.Services.Encuestas; using ADSNetLibrary.SIGAPI.Services.Encuestas;
using DocumentFormat.OpenXml.Drawing.Diagrams;
using Extensiones; using Extensiones;
using FormulaEvaluator;
using MoreLinq; using MoreLinq;
using System; using System;
using System.Collections.Generic; using System.Collections.Generic;
using System.Data; using System.Data;
using System.Data.SqlClient;
using System.IO; using System.IO;
using System.Linq; using System.Linq;
using System.Web; using System.Web;
@@ -266,6 +269,10 @@ public partial class CRM_Acercamiento : ClsPaginas
ViewState["TieneCotizacion"] = value; ViewState["TieneCotizacion"] = value;
} }
} }
//public int RCveEvento { get { return ViewState["RCveEvento"] != null ? ViewState["RCveEvento"].ToString().ToEntero() : 0; } set { ViewState["RCveEvento"] = value; } }
public System.Data.DataTable CheckListNew { get { return ViewState["CheckListNew"] != null ? (System.Data.DataTable)ViewState["CheckListNew"] : null; } set { ViewState["CheckListNew"] = value; } }
public int chklistitemindex { get { return ViewState["chklistitemindex"] != null ? ViewState["chklistitemindex"].ToString().ToEntero() : 0; } set { ViewState["chklistitemindex"] = value; } }
#endregion #endregion
protected void Page_Load(object sender, EventArgs e) protected void Page_Load(object sender, EventArgs e)
@@ -300,6 +307,8 @@ public partial class CRM_Acercamiento : ClsPaginas
DivMensajeDatosTecnicos.Visible = false; DivMensajeDatosTecnicos.Visible = false;
} }
} }
CargaCheckLis();
} }
CargarPS(); CargarPS();
} }
@@ -334,11 +343,12 @@ public partial class CRM_Acercamiento : ClsPaginas
TxtNombreAcercamiento.Text = objAcercamiento.Result[0].NombreAcercamiento; TxtNombreAcercamiento.Text = objAcercamiento.Result[0].NombreAcercamiento;
TxtDescripcion.Text = objAcercamiento.Result[0].Descripcion; TxtDescripcion.Text = objAcercamiento.Result[0].Descripcion;
TxtFechaApertura.Text = objAcercamiento.Result[0].FechaApertura.ToDateTime().ToShortDateString(); TxtFechaApertura.Text = objAcercamiento.Result[0].FechaApertura.ToDateTime().ToShortDateString();
TxtFechaCierre.Text = (objAcercamiento.Result[0].FechaCierre.ToString() == "") ? "" : objAcercamiento.Result[0].FechaCierre.ToDateTime().ToShortDateString(); TxtFechaCierre.Text = (objAcercamiento.Result[0].FechaCierre.ToString() == "") || objAcercamiento.Result[0].FechaCierre.ToString().ToDate() == ModExtensiones.MinFecha ? "" : objAcercamiento.Result[0].FechaCierre.ToDateTime().ToShortDateString();
TxtImporte.Text = String.Format("{0:C2}", objAcercamiento.Result[0].Importe.ToEntero()); TxtImporte.Text = String.Format("{0:C2}", objAcercamiento.Result[0].Importe.ToEntero());
TxtComision.Text = String.Format("{0:C2}", objAcercamiento.Result[0].Comision.ToEntero()); TxtComision.Text = String.Format("{0:C2}", objAcercamiento.Result[0].Comision.ToEntero());
DdlProbabilidadAcercamiento.SelectedValueExist(objAcercamiento.Result[0].CveProbabilidadAcercamiento); DdlProbabilidadAcercamiento.SelectedValueExist(objAcercamiento.Result[0].CveProbabilidadAcercamiento);
DdlPrioridad.SelectedValueExist(objAcercamiento.Result[0].Prioridad); DdlPrioridad.SelectedValueExist(objAcercamiento.Result[0].Prioridad);
ChkePausa.Checked = objAcercamiento.Result[0].EnPausa;
CargaDdl(); CargaDdl();
//SECCION DATOS DE LA EMPRESA //SECCION DATOS DE LA EMPRESA
@@ -689,6 +699,7 @@ public partial class CRM_Acercamiento : ClsPaginas
AcercaminetoModel.FechaCierre = FechaCierre != null ? (DateTime)FechaCierre : ModExtensiones.MinFecha; AcercaminetoModel.FechaCierre = FechaCierre != null ? (DateTime)FechaCierre : ModExtensiones.MinFecha;
AcercaminetoModel.CvePS = DdlPS.SelectedValue.ToEntero(); AcercaminetoModel.CvePS = DdlPS.SelectedValue.ToEntero();
AcercaminetoModel.CveRechazoMotivo = CveRechazoMotivo; AcercaminetoModel.CveRechazoMotivo = CveRechazoMotivo;
AcercaminetoModel.EnPausa = ChkePausa.Checked;
if (cRMService.AcercamientoUpdate(AcercaminetoModel)) if (cRMService.AcercamientoUpdate(AcercaminetoModel))
@@ -1812,4 +1823,135 @@ public partial class CRM_Acercamiento : ClsPaginas
} }
#endregion #endregion
#region "CHECK LIST"
private void CargaCheckLis()
{
using (ClsOIEventos objOI = new ClsOIEventos())
{
if (objOI.Getcheklist(-1, CveAcercamiento: CveAcercamiento))
{
GVcheklist.DataSource = objOI.DtResultados;
GVcheklist.DataBind();
}
}
UpChkList.Update();
}
protected void LnkAgregarchklistitem_Click(object sender, EventArgs e)
{
if (TxtActividad.Text.Trim().Length > 0)
{
if (CveAcercamiento > 0)
{
using (ClsOIEventos objOI = new ClsOIEventos())
{
if (objOI.Addcheklist(-1, TxtActividad.Text, UsuarioActual.CveUsuario, CveAcercamiento: CveAcercamiento))
{
Alert("Se agregó la actividad", ModExtensiones.TipoMensaje.ToastInformacion);
if (objOI.Getcheklist(-1, CveAcercamiento: CveAcercamiento))
{
GVcheklist.DataSource = objOI.DtResultados;
GVcheklist.DataBind();
}
}
}
}
else
{
System.Data.DataRow drow = CheckListNew.NewRow();
drow["CveEventoCheckList"] = chklistitemindex++;
drow["EventoComentario"] = TxtActividad.Text;
drow["Estatus"] = false;
//CveEventoCheckList,CveEvento,CveTipoEvento,EventoComentario,Estatus,CveUsuario,Usuario,FechaIng
CheckListNew.Rows.Add(drow);
GVcheklist.DataSource = CheckListNew;
GVcheklist.DataBind();
}
}
TxtActividad.Focus();
TxtActividad.Text = "";
}
protected void ChkEstatus_CheckedChanged(object sender, EventArgs e)
{
CheckBox chk = (CheckBox)sender;
GridViewRow gvrow = (GridViewRow)chk.NamingContainer;
using (ClsOIEventos objOI = new ClsOIEventos())
{
if (objOI.Upcheklist(gvrow.DataKey("CveEventoCheckList").ToEntero(), gvrow.DataKey("CveEvento").ToEntero(), gvrow.DataKey("EventoComentario"), chk.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
CveAcercamiento: CveAcercamiento))
{
//ObjEventosCorreo o = objOI.objCorreo;
Alert("Se actualizó el estatus de la actividad", ModExtensiones.TipoMensaje.ToastInformacion);
if (objOI.Getcheklist(-1, CveAcercamiento: CveAcercamiento))
{
GVcheklist.DataSource = objOI.DtResultados;
GVcheklist.DataBind();
}
}
}
}
protected void LnkEliminarchek_Click(object sender, EventArgs e)
{
GridViewRow gvrow = (GridViewRow)((LinkButton)sender).NamingContainer;
if(!(CveAcercamiento > 0))
{
CheckListNew = CheckListNew.FiltraParametros(string.Format("CveEventoCheckList <> {0}", gvrow.DataKey("CveEventoCheckList")));
GVcheklist.DataSource = CheckListNew;
GVcheklist.DataBind();
}
else
{
using (ClsOIEventos objOI = new ClsOIEventos())
{
if (objOI.Removecheklist(gvrow.DataKey("CveEventoCheckList").ToEntero(), gvrow.DataKey("CveEvento").ToEntero(), UsuarioActual.CveUsuario, CveAcercamiento: CveAcercamiento))
{
Alert("Se ha eliminadó la actividad", ModExtensiones.TipoMensaje.ToastInformacion);
if (objOI.Getcheklist(-1, CveAcercamiento))
{
GVcheklist.DataSource = objOI.DtResultados;
GVcheklist.DataBind();
}
}
}
}
}
protected void LnkSinfuncion_Click(object sender, EventArgs e)
{
// es para mandar llamar el ChkEstatus_CheckedChanged
}
//private bool GuardaCheckList(SqlTransaction transaction, int CveAcercamientoNuevo)
//{
// bool respuesta = true;
// ClsOIEventos objOI = new ClsOIEventos(transaction);
// foreach (GridViewRow GvRow in GVcheklist.Rows)
// {
// if (!objOI.Addcheklist(-1, TxtActividad.Text, UsuarioActual.CveUsuario, CveAcercamiento: CveAcercamiento))
// {
// respuesta = false;
// break;
// }
// }
// return respuesta;
//}
#endregion
} }

139
CRM/EmpresaCRM.aspx
View File

@@ -248,18 +248,25 @@
<div runat="server" id="DivContactos" style="padding: 0 10px 10px 10px;"> <div runat="server" id="DivContactos" style="padding: 0 10px 10px 10px;">
<asp:UpdatePanel runat="server" ID="UpContactos" UpdateMode="Conditional"> <asp:UpdatePanel runat="server" ID="UpContactos" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GVContactos" runat="server" DataKeyNames="CveContacto, Nombre, TelefonoOficina, Celular, Correo, CveUsuarioIng, FechaIng" EmptyDataText="Aún no se han registrado contactos" <asp:GridView ID="GVContactos" runat="server" DataKeyNames="CveContacto,Nombre,TelefonoOficina,Celular,Correo,CveUsuarioIng,FechaIng,CveTipoContacto" EmptyDataText="Aún no se han registrado contactos"
EmptyDataRowStyle-HorizontalAlign="Center" ToolTip="Listado de Contactos" CssClass="table table-striped table-advance table-hover ScrollAD Widthall mysmallbtn" AlternatingRowStyle-BorderStyle="None" EmptyDataRowStyle-HorizontalAlign="Center" ToolTip="Listado de Contactos" CssClass="table table-striped table-advance table-hover ScrollAD Widthall mysmallbtn" AlternatingRowStyle-BorderStyle="None"
GridLines="None" BorderColor="#D3D3D3" BorderWidth="1" OnRowDeleting="GVContactos_RowDeleting" AutoGenerateColumns="false" OnRowDataBound="GVContactos_RowDataBound"> GridLines="None" BorderColor="#D3D3D3" BorderWidth="1" OnRowDeleting="GVContactos_RowDeleting" AutoGenerateColumns="false" OnRowDataBound="GVContactos_RowDataBound">
<Columns> <Columns>
<asp:TemplateField HeaderText="Nombre" ItemStyle-Width="35%" HeaderStyle-HorizontalAlign="Left"> <asp:TemplateField HeaderText="Nombre" ItemStyle-Width="30%" HeaderStyle-HorizontalAlign="Left">
<ItemTemplate> <ItemTemplate>
&nbsp;<asp:Literal ID="LtlNombreContacto" runat="server" Text='<%# Eval("Nombre", "{0}") %>'></asp:Literal> &nbsp;<asp:Literal ID="LtlNombreContacto" runat="server" Text='<%# Eval("Nombre", "{0}") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
<ItemStyle HorizontalAlign="Left" /> <ItemStyle HorizontalAlign="Left" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField ItemStyle-Width="15%" HeaderText="Teléfono Oficina" ItemStyle-HorizontalAlign="Left"> <asp:TemplateField HeaderText="Tipo Contacto" ItemStyle-Width="10%" HeaderStyle-HorizontalAlign="Left">
<ItemTemplate>
&nbsp;<asp:Literal ID="LtlTipoContacto" runat="server" Text='<%# Eval("TipoContacto", "{0}") %>'></asp:Literal>
</ItemTemplate>
<ItemStyle HorizontalAlign="Left" />
</asp:TemplateField>
<asp:TemplateField ItemStyle-Width="10%" HeaderText="Teléfono Oficina" ItemStyle-HorizontalAlign="Left">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="lblTelefonoOficina" runat="server" Text='<%# Eval("TelefonoOficina")%>'> </asp:Label> <asp:Label ID="lblTelefonoOficina" runat="server" Text='<%# Eval("TelefonoOficina")%>'> </asp:Label>
</ItemTemplate> </ItemTemplate>
@@ -395,7 +402,7 @@
<div runat="server" id="Div2" style="padding: 0 10px 10px 10px;"> <div runat="server" id="Div2" style="padding: 0 10px 10px 10px;">
<asp:UpdatePanel runat="server" ID="UpCotizacion" UpdateMode="Conditional"> <asp:UpdatePanel runat="server" ID="UpCotizacion" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvCotizacion" runat="server" DataKeyNames="CveVenta,CveEmpresaCRM,CveAcercamientoCRM,CveEstatusFactura, EstatusFactura" EmptyDataText="Aún no se han registrado Cotizaciones" <asp:GridView ID="GvCotizacion" runat="server" DataKeyNames="CveVenta,CveEmpresaCRM,CveAcercamientoCRM,CveEstatusFactura, EstatusFactura,Total" EmptyDataText="Aún no se han registrado Cotizaciones"
EmptyDataRowStyle-HorizontalAlign="Center" ToolTip="Listado de Cotizaciones" CssClass="table table-striped table-advance table-hover ScrollAD Widthall mysmallbtn" AlternatingRowStyle-BorderStyle="None" EmptyDataRowStyle-HorizontalAlign="Center" ToolTip="Listado de Cotizaciones" CssClass="table table-striped table-advance table-hover ScrollAD Widthall mysmallbtn" AlternatingRowStyle-BorderStyle="None"
GridLines="None" BorderColor="#D3D3D3" BorderWidth="1" AutoGenerateColumns="false" OnRowDataBound="GvCotizacion_RowDataBound"> GridLines="None" BorderColor="#D3D3D3" BorderWidth="1" AutoGenerateColumns="false" OnRowDataBound="GvCotizacion_RowDataBound">
<Columns> <Columns>
@@ -404,7 +411,9 @@
<asp:HyperLinkField DataTextField="SerieFolio" Target="_blank" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" ItemStyle-HorizontalAlign="Left" HeaderText="Serie Folio" /> <asp:HyperLinkField DataTextField="SerieFolio" Target="_blank" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" ItemStyle-HorizontalAlign="Left" HeaderText="Serie Folio" />
<asp:BoundField DataField="Fecha" HeaderText="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" /> <asp:BoundField DataField="Fecha" HeaderText="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
<asp:BoundField DataField="Total" ItemStyle-HorizontalAlign="Right" HeaderText="Total" DataFormatString="{0:N2}" /> <asp:BoundField DataField="Vendedor" HeaderText="Vendedor" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="Total" ItemStyle-HorizontalAlign="Right" HeaderText="Total" DataFormatString="{0:n2}" />
<asp:TemplateField HeaderText="Estatus" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left"> <asp:TemplateField HeaderText="Estatus" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left">
<ItemTemplate> <ItemTemplate>
@@ -563,9 +572,17 @@
<asp:RegularExpressionValidator ID="REVCorreo" runat="server" CssClass="errorimput" ValidationExpression="(([a-zA-Z0-9ñÑ_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)(\s*;\s*|\s*$))*" ControlToValidate="TxtCorreo" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Email''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="VGGuardarContacto"></asp:RegularExpressionValidator>--%> <asp:RegularExpressionValidator ID="REVCorreo" runat="server" CssClass="errorimput" ValidationExpression="(([a-zA-Z0-9ñÑ_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)(\s*;\s*|\s*$))*" ControlToValidate="TxtCorreo" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Email''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="VGGuardarContacto"></asp:RegularExpressionValidator>--%>
<label for="<%= TxtCorreo.ClientID.ToString()%>">Correo:</label> <label for="<%= TxtCorreo.ClientID.ToString()%>">Correo:</label>
</div> </div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlTipocontacto" runat="server" DataTextField="TipoContacto" DataValueField="CveTipoContacto" CssClass="form-control select2me" Width="50%"></asp:DropDownList>
<asp:LinkButton CssClass="btn btn-primary" runat="server" ID="LnkAgregartipoContacto" OnClick="LnkAgregartipoContacto_Click" Height="30px" style="margin-top:8px">+</asp:LinkButton>
<label for="<%= DdlTipocontacto.ClientID.ToString()%>">Tipo Contacto:</label>
</div>
</div> </div>
<div class="modal-footer"> <div class="modal-footer">
<asp:Button ID="BtnGuardarContacto" OnClick="BtnGuardarContacto_Click" runat="server" Text="Guardar" CssClass="btn btn-primary" ValidationGroup="VGGuardarContacto" /> <asp:Button ID="BtnGuardarContacto" OnClick="BtnGuardarContacto_Click" runat="server" Text="Guardar" CssClass="btn btn-primary mysmallbtn" ValidationGroup="VGGuardarContacto" />
<button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button> <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
</div> </div>
</div> </div>
@@ -574,6 +591,73 @@
</div> </div>
<%-- END MODAL AGREGAR CONTACTO --%> <%-- END MODAL AGREGAR CONTACTO --%>
<%-- MODAL TIPO CONTACTO --%>
<div id="DivModalTipoContacto" class="modal ADS fade" role="dialog">
<asp:UpdatePanel class="modal-dialog" runat="server" ID="UpModalTipoContacto" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-content">
<div class="modal-header ">
<h4 class="modal-title">
<asp:Literal ID="LtlmodalTituloTipoContacto" Text="Tipo Contacto" runat="server"> </asp:Literal>
</h4>
</div>
<div class="modal-body">
<div class="row">
<div class="col-md-4">
Tipo Contacto:
</div>
<div class="col-md-4">
<asp:TextBox runat="server" ID="TxtTipoContacto" MaxLength="50" CssClass="form-control" ValidationGroup="GrpTipoContacto" ></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvTxtTipoContacto" runat="server" CssClass="help-block errorimput" Display="Dynamic" ControlToValidate="TxtTipoContacto" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Contacto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTipoContacto"></asp:RequiredFieldValidator>
</div>
<div class="col-md-4" style="text-align:left!important">
<asp:Button Text="Agregar" runat="server" ID="btnAgregarTipoContacto" OnClick="btnAgregarTipoContacto_Click" CssClass="btn btn-primary"
ValidationGroup="GrpTipoContacto"/>
</div>
</div>
<br />
<div class="row">
<div class="col-md-12">
<asp:GridView ID="GvModalTipoContacto" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron datos" EmptyDataRowStyle-HorizontalAlign="Center"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None" Width="100%"
DataKeyNames="CveTipoContacto,TipoContacto" >
<Columns>
<asp:TemplateField HeaderText="Tipo Contacto">
<ItemTemplate>
<asp:Literal ID="LtlTipoConcato" runat="server" Text='<%# Eval("TipoContacto") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Eliminar" ItemStyle-Width="80px">
<ItemTemplate>
<asp:LinkButton ID="LnkEliminarTipoContacto" runat="server" OnClick="LnkEliminarTipoContacto_Click"
AlternateText="Eliminar" CausesValidation="False" CommandName="Delete"
CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Desea eliminar este contacto?" data-btn-ok-label="si" >
</asp:LinkButton>
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</div>
</div>
</div>
<div class="modal-footer">
<button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<%-- END MODAL TIPO CONTACTO --%>
<%-- MODAL AGREGAR ACERCAMIENTO --%> <%-- MODAL AGREGAR ACERCAMIENTO --%>
<div id="DivModalAltaAcercamiento" class="modal ADS fade" role="dialog"> <div id="DivModalAltaAcercamiento" class="modal ADS fade" role="dialog">
<asp:UpdatePanel class="modal-dialog" runat="server" ID="UpAltaAcercamiento" UpdateMode="Conditional"> <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpAltaAcercamiento" UpdateMode="Conditional">
@@ -633,22 +717,43 @@
</div> </div>
</div> </div>
<div class="form-group form-md-line-input input-iconright" style="padding: 0;"> <div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright" style="padding: 0;">
<div runat="server" id="DivFechaApertura" class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy"> <div runat="server" id="DivFechaApertura" class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy">
<asp:TextBox ID="TxtFechaApertura" Text="<%= DateTime.Now.ToShortDateString();%>" runat="server" Style="margin-left: -5px;" CssClass="form-control" Width="121px" MaxLength="10"></asp:TextBox> <asp:TextBox ID="TxtFechaApertura" Text="<%= DateTime.Now.ToShortDateString();%>" runat="server" Style="margin-left: -5px;" CssClass="form-control" Width="121px" MaxLength="10"></asp:TextBox>
<span class="input-group-btn "> <span class="input-group-btn ">
<asp:LinkButton ID="imgCalendarioFechaApertura" class="btn default" Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton> <asp:LinkButton ID="imgCalendarioFechaApertura" class="btn default" Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span> </span>
<label for="<%= TxtFechaApertura.ClientID.ToString()%>" style="width: 125px !important;"><span style="color: #F3565D">*</span> Apertura:</label> <label for="<%= TxtFechaApertura.ClientID.ToString()%>" style="width: 125px !important;"><span style="color: #F3565D">*</span> Apertura:</label>
</div>
<asp:RequiredFieldValidator ID="RFVTxtFechaApertura" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtFechaApertura" ErrorMessage="El campo <b>''Fecha de Apertura''</b> es necesario." ValidationGroup="VGAcercamiento"></asp:RequiredFieldValidator>
<ajax:MaskedEditExtender ID="MEETxtFechaApertura" runat="server" TargetControlID="TxtFechaApertura" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender ID="CETxtFechaApertura" runat="server" TargetControlID="TxtFechaApertura" PopupButtonID="imgCalendarioFechaApertura" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RangeValidator ID="RVFechaApertura" runat="server" CssClass="help-block errorimput" ErrorMessage="La <b>''Fecha de Apertura''</b> esta fuera de rango." ControlToValidate="TxtFechaApertura" Type="Date"></asp:RangeValidator>
</div>
</div> </div>
<asp:RequiredFieldValidator ID="RFVTxtFechaApertura" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtFechaApertura" ErrorMessage="El campo <b>''Fecha de Apertura''</b> es necesario." ValidationGroup="VGAcercamiento"></asp:RequiredFieldValidator> <div class="col-md-6">
<ajax:MaskedEditExtender ID="MEETxtFechaApertura" runat="server" TargetControlID="TxtFechaApertura" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender> <div class="form-group form-md-line-input input-iconright" style="padding: 0;">
<ajax:CalendarExtender ID="CETxtFechaApertura" runat="server" TargetControlID="TxtFechaApertura" PopupButtonID="imgCalendarioFechaApertura" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender> <div runat="server" id="Div3" class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy">
<asp:RangeValidator ID="RVFechaApertura" runat="server" CssClass="help-block errorimput" ErrorMessage="La <b>''Fecha de Apertura''</b> esta fuera de rango." ControlToValidate="TxtFechaApertura" Type="Date"></asp:RangeValidator> <asp:TextBox ID="TxtFechaCierre" runat="server" Style="margin-left: -5px;" CssClass="form-control" Width="121px" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="LnkImgTxtFechaCierre" class="btn default" Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
<label for="<%= TxtFechaCierre.ClientID.ToString()%>" style="width: 125px !important;">Cierre:</label>
</div>
<%--<asp:RequiredFieldValidator ID="RfvTxtFechaCierre" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtFechaCierre" ErrorMessage="El campo <b>''Fecha de Cierre''</b> es necesario." ValidationGroup="VGAcercamiento"></asp:RequiredFieldValidator>--%>
<ajax:MaskedEditExtender ID="METxtFechaCierre" runat="server" TargetControlID="TxtFechaCierre" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender ID="CeTxtFechaCierre" runat="server" TargetControlID="TxtFechaCierre" PopupButtonID="LnkImgTxtFechaCierre" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
</div>
</div>
</div> </div>
<div class="row"> <div class="row">
<div id="DivImporte" runat="server" class="form-group col-md-6 form-md-line-input input-iconright" > <div id="DivImporte" runat="server" class="form-group col-md-6 form-md-line-input input-iconright" >

132
CRM/EmpresaCRM.aspx.cs
View File

@@ -5,6 +5,7 @@ using ADSNetLibrary.SIGAPI.Models.Ventas.Request;
using ADSNetLibrary.SIGAPI.Services; using ADSNetLibrary.SIGAPI.Services;
using ADSNetLibrary.SIGAPI.Services.CRM; using ADSNetLibrary.SIGAPI.Services.CRM;
using ADSNetLibrary.SIGAPI.Services.Encuestas; using ADSNetLibrary.SIGAPI.Services.Encuestas;
using Extensiones; using Extensiones;
using MoreLinq; using MoreLinq;
using System; using System;
@@ -938,6 +939,8 @@ public partial class CRM_EmpresaCRM : ClsPaginas
TempDTContactos.Columns.Add("FechaIng", typeof(string)); TempDTContactos.Columns.Add("FechaIng", typeof(string));
TempDTContactos.Columns.Add("CveContacto", typeof(string)); TempDTContactos.Columns.Add("CveContacto", typeof(string));
TempDTContactos.Columns.Add("CveTipoContacto", typeof(string));
TempDTContactos.Columns.Add("TipoContacto", typeof(string));
GVContactos.DataSource = TempDTContactos; GVContactos.DataSource = TempDTContactos;
GVContactos.DataBind(); GVContactos.DataBind();
@@ -996,6 +999,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
TxtTelefonoOficina.Text = ""; TxtTelefonoOficina.Text = "";
TxtCelular.Text = ""; TxtCelular.Text = "";
TxtCorreo.Text = ""; TxtCorreo.Text = "";
DdlTipocontacto.SelectedValueExist(-1);
} }
protected void BtnAgregarContacto_Click(object sender, EventArgs e) protected void BtnAgregarContacto_Click(object sender, EventArgs e)
@@ -1004,6 +1008,8 @@ public partial class CRM_EmpresaCRM : ClsPaginas
limpiarCamposModalContato(); limpiarCamposModalContato();
UPModalContacto.Update(); UPModalContacto.Update();
CargaGridTipoContacto();
this.RegistraScript("$('#DivModalContacto').modal();"); this.RegistraScript("$('#DivModalContacto').modal();");
} }
@@ -1020,11 +1026,15 @@ public partial class CRM_EmpresaCRM : ClsPaginas
TxtTelefonoOficina.Text = GvRow.DataKey("TelefonoOficina").ToString(); TxtTelefonoOficina.Text = GvRow.DataKey("TelefonoOficina").ToString();
TxtCelular.Text = GvRow.DataKey("Celular").ToString(); TxtCelular.Text = GvRow.DataKey("Celular").ToString();
TxtCorreo.Text = GvRow.DataKey("Correo").ToString(); TxtCorreo.Text = GvRow.DataKey("Correo").ToString();
DdlTipocontacto.SelectedValueExist( GvRow.DataKey("CveTipoContacto").ToString());
IndexDTContacto = GvRow.RowIndex; IndexDTContacto = GvRow.RowIndex;
CargaGridTipoContacto();
UPModalContacto.Update(); UPModalContacto.Update();
this.RegistraScript("$('#DivModalContacto').modal();"); this.RegistraScript("$('#DivModalContacto').modal();");
} }
@@ -1057,6 +1067,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
contacto.Correo = Correo; contacto.Correo = Correo;
contacto.CveEmpresaCRM = CveEmpresaCRM; contacto.CveEmpresaCRM = CveEmpresaCRM;
contacto.CveUsuarioIng = CveUsuarioIng; contacto.CveUsuarioIng = CveUsuarioIng;
contacto.CveTipoContacto = DdlTipocontacto.SelectedValue.ToEntero();
if (cRMService.EmpresasCRMContactoAdd(contacto)) if (cRMService.EmpresasCRMContactoAdd(contacto))
{ {
@@ -1088,6 +1099,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
contacto.Correo = Correo; contacto.Correo = Correo;
contacto.CveContacto = CveContactoEditado; contacto.CveContacto = CveContactoEditado;
contacto.CveUsuarioIng = CveUsuarioIng; contacto.CveUsuarioIng = CveUsuarioIng;
contacto.CveTipoContacto = DdlTipocontacto.SelectedValue.ToEntero();
if (cRMService.EmpresasCRMContactoUpdate(contacto)) if (cRMService.EmpresasCRMContactoUpdate(contacto))
{ {
@@ -1580,6 +1592,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
TxtAcercamiento.Text = ""; TxtAcercamiento.Text = "";
TxtDescripcionAcercamiento.Text = ""; TxtDescripcionAcercamiento.Text = "";
TxtFechaApertura.Text = DateTime.Now.ToShortDateString(); TxtFechaApertura.Text = DateTime.Now.ToShortDateString();
TxtFechaCierre.Text = "";
TxtImporte.Text = "0.00"; TxtImporte.Text = "0.00";
TxtComision.Text = "0.00"; TxtComision.Text = "0.00";
@@ -1651,6 +1664,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
int CveRechazoMotivo = -1; int CveRechazoMotivo = -1;
DateTime FechaApertura = TxtFechaApertura.Text.ToDateTime(); DateTime FechaApertura = TxtFechaApertura.Text.ToDateTime();
DateTime FechaCierre = TxtFechaCierre.Text.ToDateTime();
Double Importe = TxtImporte.Text.ToDouble(); Double Importe = TxtImporte.Text.ToDouble();
Double Comision = TxtComision.Text.ToDouble(); Double Comision = TxtComision.Text.ToDouble();
@@ -1673,8 +1687,8 @@ public partial class CRM_EmpresaCRM : ClsPaginas
CveMedioCaptacion = CveMedioCaptacion, CveMedioCaptacion = CveMedioCaptacion,
CveRechazoMotivo = CveRechazoMotivo, CveRechazoMotivo = CveRechazoMotivo,
CveProbabilidadAcercamiento = CveProbabilidadAcercamiento, CveProbabilidadAcercamiento = CveProbabilidadAcercamiento,
FechaApertura = FechaApertura, FechaApertura = FechaApertura,
FechaCierre = (DateTime)System.Data.SqlTypes.SqlDateTime.Null, FechaCierre = FechaCierre > ModExtensiones.MinFecha ? FechaCierre : (DateTime)System.Data.SqlTypes.SqlDateTime.Null,
NombreAcercamiento = NombreAcercamiento, NombreAcercamiento = NombreAcercamiento,
Descripcion = Descripcion, Descripcion = Descripcion,
Importe = Importe, Importe = Importe,
@@ -1775,7 +1789,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
#region "COTIZACIONES" #region "COTIZACIONES"
protected void CargaCotizaciones() protected void CargaCotizaciones()
{ {
ClsVentas ObjVentas = new ClsVentas();
IVentaService ventaService = new VentaService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString); IVentaService ventaService = new VentaService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString);
RequestVentas requestVentas = new RequestVentas(UsuarioActual.CveEmpresa, TipoDocto: "Cot", CveEmpresaCRM: CveEmpresaCRM, CveUsuarioConsulta: UsuarioActual.CveUsuario); RequestVentas requestVentas = new RequestVentas(UsuarioActual.CveEmpresa, TipoDocto: "Cot", CveEmpresaCRM: CveEmpresaCRM, CveUsuarioConsulta: UsuarioActual.CveUsuario);
var objVentas = ventaService.GetVentas(requestVentas); var objVentas = ventaService.GetVentas(requestVentas);
@@ -1788,7 +1802,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
//{ //{
// GvCotizacion.DataSource = ObjVentas.DtResultados; // GvCotizacion.DataSource = ObjVentas.DtResultados;
//} //}
ObjVentas.Dispose();
GvCotizacion.DataBind(); GvCotizacion.DataBind();
UpCotizacion.Update(); UpCotizacion.Update();
} }
@@ -1801,6 +1815,11 @@ public partial class CRM_EmpresaCRM : ClsPaginas
{ {
e.Row.FCLabel("lblEstatus").Text = String.Format("<b>{0}</b>", e.Row.DataKey("EstatusFactura")); e.Row.FCLabel("lblEstatus").Text = String.Format("<b>{0}</b>", e.Row.DataKey("EstatusFactura"));
} }
if(e.Row.DataKey("Total").ToDecimal() != 0)
{
e.Row.Cells[5].Text = e.Row.DataKey("Total").ToDecimal().ToString("###,###,###.00");
}
} }
} }
#endregion #endregion
@@ -1833,4 +1852,109 @@ public partial class CRM_EmpresaCRM : ClsPaginas
DdlGiroClasificacion.Items.Insert(0, new ListItem("Seleccione", "-1")); DdlGiroClasificacion.Items.Insert(0, new ListItem("Seleccione", "-1"));
DdlGiroClasificacion.SelectedValueExist(CveGiroClasificacion); DdlGiroClasificacion.SelectedValueExist(CveGiroClasificacion);
} }
#region "TIPO CONTACTO"
protected void LnkAgregartipoContacto_Click(object sender, EventArgs e)
{
CargaGridTipoContacto();
RegistraScript("$('#DivModalTipoContacto').modal('show');");
}
private void LimpiaTipoContacto()
{
TxtTipoContacto.Text = "";
UpModalTipoContacto.Update();
}
private void CargaGridTipoContacto()
{
DdlTipocontacto.Items.Clear();
DdlTipocontacto.SelectedValue = null;
ICRMService cRMService = new CRMService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString);
RequestTipoContacto requestTipoContacto = new RequestTipoContacto(-1,"-1",-1,UsuarioActual.CveEmpresa);
var ObjTIpocontacto = cRMService.TipoContactoGet(requestTipoContacto);
if (ObjTIpocontacto.Result.Count > 0)
{
GvModalTipoContacto.DataSource = ObjTIpocontacto.Result;
DdlTipocontacto.DataSource = ObjTIpocontacto.Result;
}
GvModalTipoContacto.DataBind();
DdlTipocontacto.DataBind();
DdlTipocontacto.Items.Insert(0, new ListItem("Seleccione Uno", "-1"));
UpModalTipoContacto.Update();
UPModalContacto.Update();
cRMService = null;
}
protected void btnAgregarTipoContacto_Click(object sender, EventArgs e)
{
bool ErrorProceso = false;
ICRMService cRMService = new CRMService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString);
TipoContactoModel TipoContacto = new TipoContactoModel();
TipoContacto.TipoContacto = TxtTipoContacto.Text;
TipoContacto.CveUsuario = UsuarioActual.CveUsuario;
TipoContacto.CveEmpresa = UsuarioActual.CveEmpresa;
if (!cRMService.TipoContactoAdd(TipoContacto))
{
Alert("Se presento un error al agregar el tipo de contacto", ModExtensiones.TipoMensaje.MsgAdvertencia);
}
if (!ErrorProceso)
{
CargaGridTipoContacto();
LimpiaTipoContacto();
}
}
protected void LnkEliminarTipoContacto_Click(object sender, EventArgs e)
{
bool ErrorProceso = false;
GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
int CveTipoContactoEliminar = GvRow.DataKey("CveTipoContacto").ToEntero();
ICRMService cRMService = new CRMService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString);
TipoContactoModel TipoContacto = new TipoContactoModel();
TipoContacto.CveTipoContacto = CveTipoContactoEliminar;
TipoContacto.CveEmpresa = UsuarioActual.CveEmpresa;
if (cRMService.TipoContactoRemove(TipoContacto))
{
Alert("Tipo Contacto eliminado correctamente.");
}else{
Alert("Se presento un error al eliminar el tipo de contacto.", ModExtensiones.TipoMensaje.MsgAdvertencia);
}
if (!ErrorProceso)
{
CargaGridTipoContacto();
}
}
#endregion
} }

56
CRM/RepAcercamientos.aspx
View File

@@ -30,7 +30,7 @@
<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server"> <asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<div id="DivFiltros" class="portlet solid grey-cascade portlet-filter"> <div id="DivFiltros" class="portlet solid grey-cascade portlet-filter" id="dvFiltros">
<div class="portlet-title portlet-filterT smalltitle"> <div class="portlet-title portlet-filterT smalltitle">
<div class="tools"> <div class="tools">
<asp:Button ID="BtnConsultar" runat="server" Text="Consultar" OnClick="BtnConsultar_Click" class="btn btn-primary" ValidationGroup="Valida" /> <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" OnClick="BtnConsultar_Click" class="btn btn-primary" ValidationGroup="Valida" />
@@ -39,14 +39,14 @@
<div class="titlefiltros caption"> <div class="titlefiltros caption">
<div class="row" style="margin-left: 10px;"> <div class="row" style="margin-left: 10px;">
<label class="col-md-1 " style="width: 90px; margin-top: 5px;">Vendedor:</label> <label class="col-md-1 " >Vendedor:</label>
<div class="col-md-2"> <div class="col-md-1">
<asp:DropDownList ID="DdlVendedor" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="Vendedor" DataValueField="CveVendedor" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList> <asp:DropDownList ID="DdlVendedor" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="Vendedor" DataValueField="CveVendedor" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList>
</div> </div>
<label class="col-md-1 " style="width: 90px; margin-top: 5px;">Fecha Inicio:</label> <label class="col-md-1 " >Fecha Inicio:</label>
<div class="col-md-2"> <div class="col-md-1">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 138px !important; padding: 0px; margin-bottom: -10px;"> <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px; margin-bottom: -10px;">
<asp:TextBox ID="TxtFechaInicio" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox> <asp:TextBox ID="TxtFechaInicio" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
<span class="input-group-btn "> <span class="input-group-btn ">
<asp:LinkButton ID="imgFechaInicio" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton> <asp:LinkButton ID="imgFechaInicio" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
@@ -56,9 +56,9 @@
<ajax:CalendarExtender runat="server" ID="CEFechaSolicitudI" TargetControlID="TxtFechaInicio" PopupButtonID="imgFechaInicio" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender> <ajax:CalendarExtender runat="server" ID="CEFechaSolicitudI" TargetControlID="TxtFechaInicio" PopupButtonID="imgFechaInicio" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
</div> </div>
<label class="col-md-1 " style="width: 90px; margin-top: 5px;">Fecha Fin:</label> <label class="col-md-1 " >Fecha Fin:</label>
<div class="col-md-2"> <div class="col-md-1">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 138px !important; padding: 0px; margin-bottom: -10px;"> <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px; margin-bottom: -10px;">
<asp:TextBox ID="TxtFechaFin" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox> <asp:TextBox ID="TxtFechaFin" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
<span class="input-group-btn "> <span class="input-group-btn ">
<asp:LinkButton ID="imgFechaFin" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton> <asp:LinkButton ID="imgFechaFin" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
@@ -68,8 +68,8 @@
<ajax:CalendarExtender runat="server" ID="CEFechaSolicitudF" TargetControlID="TxtFechaFin" PopupButtonID="imgFechaFin" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender> <ajax:CalendarExtender runat="server" ID="CEFechaSolicitudF" TargetControlID="TxtFechaFin" PopupButtonID="imgFechaFin" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
</div> </div>
<label class="col-md-1" style="width: 115px; margin-top: 5px;">Producto Servicio:</label> <label class="col-md-1" >Producto Servicio:</label>
<div class="col-md-2"> <div class="col-md-1">
<div style="width:100%"> <div style="width:100%">
<ADS:Dropdownlost runat="server" Width="100%" ID="DdlPS" CssClassDdl="table-group-action-input form-control input-inline input-small input-sm select2me" DataTextField="PSCodigo" DataValueField="CvePS" /> <ADS:Dropdownlost runat="server" Width="100%" ID="DdlPS" CssClassDdl="table-group-action-input form-control input-inline input-small input-sm select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
</div> </div>
@@ -80,10 +80,40 @@
</div> </div>
<div class="portlet-body" style="display: none;"> <div class="portlet-body" style="display: none;">
<div class="row" style="margin-left: 10px; margin-top: 10px;"> <div class="row" style="margin-left: 10px; margin-top: 10px;">
<label class="col-md-1" style="width: 90px;"">Giro:</label> <label class="col-md-1">Giro:</label>
<div class="col-md-2"> <div class="col-md-1">
<asp:DropDownList ID="DdlGiroClasificacion" Width="100%" runat="server" DataValueField="CveClienteClasificacion" DataTextField="ClienteClasificacion" AppendDataBoundItems="true" CssClass="form-control input-sm select2me"></asp:DropDownList> <asp:DropDownList ID="DdlGiroClasificacion" Width="100%" runat="server" DataValueField="CveClienteClasificacion" DataTextField="ClienteClasificacion" AppendDataBoundItems="true" CssClass="form-control input-sm select2me"></asp:DropDownList>
</div> </div>
<label class="col-md-1" >En Pausa:</label>
<div class="col-md-1">
<asp:DropDownList ID="DdlEnPausa" Width="100%" runat="server" CssClass="form-control input-sm select2me" >
<asp:ListItem Value="-1">Todo</asp:ListItem>
<asp:ListItem Value="0">Activos</asp:ListItem>
<asp:ListItem Value="1">En Pausa</asp:ListItem>
</asp:DropDownList>
</div>
<label class="col-md-1" >Etapa:</label>
<div class="col-md-1">
<asp:DropDownList ID="DdlEtapaProceso" Width="100%" runat="server" CssClass="form-control input-sm select2me" DataTextField="EtapaProceso" DataValueField="CveEtapaProceso">
</asp:DropDownList>
</div>
<label class="col-md-1" >Medio Captación:</label>
<div class="col-md-1">
<asp:DropDownList ID="DdlMedioCaptacion" Width="100%" runat="server" CssClass="form-control input-sm select2me" DataTextField="MedioCaptacion" DataValueField="CveMedioCaptacion">
</asp:DropDownList>
</div>
<label class="col-md-1" >Tipo Proceso:</label>
<div class="col-md-1">
<asp:DropDownList ID="DdlTipoProceso" Width="100%" runat="server" CssClass="form-control input-sm select2me" DataTextField="TipoProceso" DataValueField="CveTipoProceso">
</asp:DropDownList>
</div>
</div> </div>
</div> </div>
</div> </div>

27
CRM/RepAcercamientos.aspx.cs
View File

@@ -8,6 +8,10 @@ using Extensiones;
using System.Data; using System.Data;
using Microsoft.Reporting.WebForms; using Microsoft.Reporting.WebForms;
using ADSNetLibrary.SIGAPI.Services.CRM;
using ADSNetLibrary.SIGAPI.Models.CRM.Request;
//using ADSNetLibrary.SIGAPI.Helpers;
public partial class CRM_RepAcercamientos : ClsPaginas public partial class CRM_RepAcercamientos : ClsPaginas
{ {
#region "PROPIEDADES" #region "PROPIEDADES"
@@ -58,8 +62,12 @@ public partial class CRM_RepAcercamientos : ClsPaginas
string FechaInicio = TxtFechaInicio.Text == "" ? "-1" : TxtFechaInicio.Text; string FechaInicio = TxtFechaInicio.Text == "" ? "-1" : TxtFechaInicio.Text;
string FechaFin = TxtFechaFin.Text == "" ? "-1" : TxtFechaFin.Text; string FechaFin = TxtFechaFin.Text == "" ? "-1" : TxtFechaFin.Text;
int CvePS = DdlPS.SelectedValue.ToEntero() == 0 ? -1 : DdlPS.SelectedValue.ToEntero(); int CvePS = DdlPS.SelectedValue.ToEntero() == 0 ? -1 : DdlPS.SelectedValue.ToEntero();
ClsCRM ObjCRM = new ClsCRM(); ClsCRM ObjCRM = new ClsCRM();
if (ObjCRM.GetAcercamiento(UsuarioActual.CveEmpresa, CveVendedor: CveVendedor, FechaInicio: FechaInicio, FechaFin: FechaFin, CvePS: CvePS, CveGiroClasificacion:DdlGiroClasificacion.SelectedValue.ToEntero()))
if (ObjCRM.GetAcercamiento(UsuarioActual.CveEmpresa, CveVendedor: CveVendedor, FechaInicio: FechaInicio, FechaFin: FechaFin, CvePS: CvePS,
CveGiroClasificacion: DdlGiroClasificacion.SelectedValue.ToEntero(), CveMedioCaptacion: DdlMedioCaptacion.SelectedValue.ToEntero(), CveTipoProceso: DdlTipoProceso.SelectedValue.ToEntero(),
EnPausa: DdlEnPausa.SelectedValue.ToEntero(), CveEtapaProceso: DdlEtapaProceso.SelectedValue.ToEntero()))
{ {
GVDatos.DataSource = ObjCRM.DtResultados; GVDatos.DataSource = ObjCRM.DtResultados;
DtDatos = ObjCRM.DtResultados; DtDatos = ObjCRM.DtResultados;
@@ -100,6 +108,23 @@ public partial class CRM_RepAcercamientos : ClsPaginas
DdlGiroClasificacion.DataSource = dtGiroClasificaciones; DdlGiroClasificacion.DataSource = dtGiroClasificaciones;
DdlGiroClasificacion.DataBind(); DdlGiroClasificacion.DataBind();
DdlGiroClasificacion.Items.Insert(0, new ListItem("Seleccione", "-1")); DdlGiroClasificacion.Items.Insert(0, new ListItem("Seleccione", "-1"));
ICRMService cRMService = new CRMService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString);
RequestEtapaProceso EtapaProceso = new RequestEtapaProceso(UsuarioActual.CveEmpresa, 1, -1);
RequestMedioCaptacion MedioCaptacion = new RequestMedioCaptacion(UsuarioActual.CveEmpresa);
RequestTipoProceso tipoProceso = new RequestTipoProceso(UsuarioActual.CveEmpresa, 1, -1);
DdlEtapaProceso .DataSource = ADSNetLibrary.SIGAPI.Helpers.ExtensionMethods.ToDataTable(cRMService.GetEtapaProcesoCRM(EtapaProceso).Result);
DdlMedioCaptacion.DataSource = ADSNetLibrary.SIGAPI.Helpers.ExtensionMethods.ToDataTable( cRMService.GetMedioCaptacionCRM(MedioCaptacion).Result);
DdlTipoProceso.DataSource = ADSNetLibrary.SIGAPI.Helpers.ExtensionMethods.ToDataTable(cRMService.GetTipoProcesoCRM(tipoProceso).Result);
DdlEtapaProceso.DataBind();
DdlMedioCaptacion.DataBind();
DdlTipoProceso.DataBind();
DdlEtapaProceso.Items.Insert(0,new ListItem("Todas", "-1"));
DdlMedioCaptacion.Items.Insert(0, new ListItem("Todos", "-1"));
DdlTipoProceso.Items.Insert(0, new ListItem("Todos", "-1"));
} }
#endregion #endregion

74
CRM/RepAcercamientosProcesos.aspx
View File

@@ -58,7 +58,7 @@
<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server"> <asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel ID="upDatosRepA" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="upDatosRepA" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<div class="portlet solid grey-cascade portlet-filter"> <div class="portlet solid grey-cascade portlet-filter" id="dvFiltros">
<div class="portlet-title portlet-filterT smalltitle"> <div class="portlet-title portlet-filterT smalltitle">
<div class="tools"> <div class="tools">
<asp:Button ID="BtnConsultar" runat="server" Text="Consultar" OnClick="LnkConsultar_Click" class="btn btn-primary" ValidationGroup="Valida" /> <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" OnClick="LnkConsultar_Click" class="btn btn-primary" ValidationGroup="Valida" />
@@ -66,23 +66,23 @@
</div> </div>
<div class="titlefiltros caption"> <div class="titlefiltros caption">
<div class="row" style="margin-left: 10px;"> <div class="row" style="margin-left: 10px;">
<asp:Label class="col-md-1 " style="width: 100px; margin-top: 5px;" runat="server" Text="Proceso:" AssociatedControlID="DdlTipoProceso"></asp:Label> <asp:Label class="col-md-1 " runat="server" Text="Proceso:" AssociatedControlID="DdlTipoProceso"></asp:Label>
<div class="col-md-2"> <div class="col-md-1">
<asp:DropDownList ID="DdlTipoProceso" runat="server" DataTextField="TipoProceso" DataValueField="CveTipoProceso" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList> <asp:DropDownList ID="DdlTipoProceso" runat="server" DataTextField="TipoProceso" DataValueField="CveTipoProceso" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList>
</div> </div>
<asp:Label class="col-md-1 " style="width: 90px; margin-top: 5px;" runat="server" Text="Vendedor:" AssociatedControlID="DdlVendedor"></asp:Label> <asp:Label class="col-md-1 " runat="server" Text="Vendedor:" AssociatedControlID="DdlVendedor"></asp:Label>
<div class="col-md-2"> <div class="col-md-1">
<asp:DropDownList ID="DdlVendedor" runat="server" DataTextField="Vendedor" DataValueField="CveVendedor" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList> <asp:DropDownList ID="DdlVendedor" runat="server" DataTextField="Vendedor" DataValueField="CveVendedor" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList>
</div> </div>
<asp:Label class="col-md-1 " style="width: 90px; margin-top: 5px;" runat="server" Text="Medio de Captación:" AssociatedControlID="DdlMedioCaptacion"></asp:Label> <asp:Label class="col-md-1 " runat="server" Text="Medio de Captación:" AssociatedControlID="DdlMedioCaptacion"></asp:Label>
<div class="col-md-2"> <div class="col-md-1">
<asp:DropDownList ID="DdlMedioCaptacion" runat="server" DataTextField="MedioCaptacion" DataValueField="CveMedioCaptacion" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList> <asp:DropDownList ID="DdlMedioCaptacion" runat="server" DataTextField="MedioCaptacion" DataValueField="CveMedioCaptacion" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList>
</div> </div>
<asp:Label class="col-md-1 " style="width: 90px; margin-top: 5px;" runat="server" Text="Probabilidad:" AssociatedControlID="DdlProbabilidad"></asp:Label> <asp:Label class="col-md-1 " runat="server" Text="Probabilidad:" AssociatedControlID="DdlProbabilidad"></asp:Label>
<div class="col-md-2"> <div class="col-md-1">
<asp:DropDownList ID="DdlProbabilidad" runat="server" DataTextField="ProbabilidadAcercamiento" DataValueField="CveProbabilidadAcercamiento" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList> <asp:DropDownList ID="DdlProbabilidad" runat="server" DataTextField="ProbabilidadAcercamiento" DataValueField="CveProbabilidadAcercamiento" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList>
</div> </div>
</div> </div>
@@ -90,8 +90,9 @@
</div> </div>
<div class="portlet-body" style="display: none;"> <div class="portlet-body" style="display: none;">
<div class="row" style="margin-left: 10px; margin-top: 10px;"> <div class="row" style="margin-left: 10px; margin-top: 10px;">
<asp:Label class="col-md-1 " style="width: 100px; margin-top: 5px;" runat="server" Text="Agrupado Por:" AssociatedControlID="DdlGrupo1"></asp:Label>
<div class="col-md-2"> <asp:Label class="col-md-1 " runat="server" Text="Agrupado Por:" AssociatedControlID="DdlGrupo1"></asp:Label>
<div class="col-md-1">
<asp:DropDownList ID="DdlGrupo1" runat="server" Width="100%" CssClass="form-control input-sm select2me Widthall"> <asp:DropDownList ID="DdlGrupo1" runat="server" Width="100%" CssClass="form-control input-sm select2me Widthall">
<asp:ListItem Value="1" Text="Vendedor" Selected="true"></asp:ListItem> <asp:ListItem Value="1" Text="Vendedor" Selected="true"></asp:ListItem>
<asp:ListItem Value="2" Text="Medio de Captación"></asp:ListItem> <asp:ListItem Value="2" Text="Medio de Captación"></asp:ListItem>
@@ -103,8 +104,8 @@
</asp:DropDownList> </asp:DropDownList>
</div> </div>
<asp:Label class="col-md-1 " style="width: 110px; margin-top: 5px; display: none;" runat="server" Text="Agrupado Por(2):" AssociatedControlID="DdlGrupo2"></asp:Label> <asp:Label class="col-md-1 " style=" display: none;" runat="server" Text="Agrupado Por(2):" AssociatedControlID="DdlGrupo2"></asp:Label>
<div class="col-md-2" style="display: none;"> <div class="col-md-1" style="display: none;">
<asp:DropDownList ID="DdlGrupo2" runat="server" Width="100%" CssClass="form-control input-sm select2me Widthall"> <asp:DropDownList ID="DdlGrupo2" runat="server" Width="100%" CssClass="form-control input-sm select2me Widthall">
<asp:ListItem Value="-1" Text="Ninguno" Selected="True"></asp:ListItem> <asp:ListItem Value="-1" Text="Ninguno" Selected="True"></asp:ListItem>
<asp:ListItem Value="1" Text="Vendedor"></asp:ListItem> <asp:ListItem Value="1" Text="Vendedor"></asp:ListItem>
@@ -115,7 +116,7 @@
</asp:DropDownList> </asp:DropDownList>
</div> </div>
<asp:Label class="col-md-1 " style="width: 90px; margin-top: 5px;" runat="server" Text="Fecha Inicio:" AssociatedControlID="TxtFechaInicio"></asp:Label> <asp:Label class="col-md-1 " runat="server" Text="Fecha Inicio:" AssociatedControlID="TxtFechaInicio"></asp:Label>
<div class="col-sm-1"> <div class="col-sm-1">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px; margin-top:5px"> <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px; margin-top:5px">
<asp:TextBox ID="TxtFechaInicio" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox> <asp:TextBox ID="TxtFechaInicio" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
@@ -127,7 +128,7 @@
<ajax:CalendarExtender runat="server" ID="CEFechaSolicitudI" TargetControlID="TxtFechaInicio" PopupButtonID="imgFechaInicio" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender> <ajax:CalendarExtender runat="server" ID="CEFechaSolicitudI" TargetControlID="TxtFechaInicio" PopupButtonID="imgFechaInicio" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
</div> </div>
<asp:Label class="col-md-1 " style="width: 90px; margin-top: 5px;" runat="server" Text="Fecha Fin:" AssociatedControlID="TxtFechaFin"></asp:Label> <asp:Label class="col-md-1 " runat="server" Text="Fecha Fin:" AssociatedControlID="TxtFechaFin"></asp:Label>
<div class="col-sm-1"> <div class="col-sm-1">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px; margin-top:5px"> <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px; margin-top:5px">
<asp:TextBox ID="TxtFechaFin" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox> <asp:TextBox ID="TxtFechaFin" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
@@ -138,18 +139,49 @@
<ajax:MaskedEditExtender ID="MEEFechaSolicitudF" runat="server" TargetControlID="TxtFechaFin" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender> <ajax:MaskedEditExtender ID="MEEFechaSolicitudF" runat="server" TargetControlID="TxtFechaFin" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CEFechaSolicitudF" TargetControlID="TxtFechaFin" PopupButtonID="imgFechaFin" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender> <ajax:CalendarExtender runat="server" ID="CEFechaSolicitudF" TargetControlID="TxtFechaFin" PopupButtonID="imgFechaFin" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
</div> </div>
</div>
<div class="row"> <asp:Label class="col-md-1 " runat="server" Text="Producto Servicio:" AssociatedControlID="DdlPS"></asp:Label>
<asp:Label class="col-md-1 " style="width: 124px; margin-top: 5px;" runat="server" Text="Producto Servicio:" AssociatedControlID="DdlPS"></asp:Label> <div class="col-md-1">
<div class="col-md-2">
<ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width:100%" CssClassDdl="form-control select2me" DataTextField="PSCodigo" DataValueField="CvePS" /> <ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width:100%" CssClassDdl="form-control select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
</div> </div>
<asp:Label class="col-md-1 " style="width: 90px; margin-top: 5px;" runat="server" Text="Giro:" AssociatedControlID="DdlGiroClasificacion"></asp:Label> <asp:Label class="col-md-1 " runat="server" Text="Giro:" AssociatedControlID="DdlGiroClasificacion"></asp:Label>
<div class="col-md-2"> <div class="col-md-1">
<asp:DropDownList ID="DdlGiroClasificacion" Width="100%" runat="server" DataValueField="CveClienteClasificacion" DataTextField="ClienteClasificacion" AppendDataBoundItems="true" CssClass="form-control select2me"></asp:DropDownList> <asp:DropDownList ID="DdlGiroClasificacion" Width="100%" runat="server" DataValueField="CveClienteClasificacion" DataTextField="ClienteClasificacion" AppendDataBoundItems="true" CssClass="form-control select2me"></asp:DropDownList>
</div> </div>
</div> </div>
<div class="row" style="margin-left: 10px; margin-top: 10px;">
<label class="col-md-1" >En Pausa:</label>
<div class="col-md-1">
<asp:DropDownList ID="DdlEnPausa" Width="100%" runat="server" CssClass="form-control input-sm select2me" >
<asp:ListItem Value="-1">Todo</asp:ListItem>
<asp:ListItem Value="0">Activos</asp:ListItem>
<asp:ListItem Value="1">En Pausa</asp:ListItem>
</asp:DropDownList>
</div>
<label class="col-md-1" >Etapa:</label>
<div class="col-md-1">
<asp:DropDownList ID="DdlEtapaProceso" Width="100%" runat="server" CssClass="form-control input-sm select2me" DataTextField="EtapaProceso" DataValueField="CveEtapaProceso">
</asp:DropDownList>
</div>
<%-- <label class="col-md-1" >Medio Captación:</label>
<div class="col-md-1">
<asp:DropDownList ID="DropDownList1" Width="100%" runat="server" CssClass="form-control input-sm select2me" DataTextField="MedioCaptacion" DataValueField="CveMedioCaptacion">
</asp:DropDownList>
</div>
<label class="col-md-1" >Medio Captación:</label>
<div class="col-md-1">
<asp:DropDownList ID="DropDownList2" Width="100%" runat="server" CssClass="form-control input-sm select2me" DataTextField="TipoProceso" DataValueField="CveTipoProceso">
</asp:DropDownList>
</div>
--%>
</div>
</div> </div>
</div> </div>

15
CRM/RepAcercamientosProcesos.aspx.cs
View File

@@ -9,6 +9,8 @@ using System.Data;
using Extensiones; using Extensiones;
using iTextSharp.text.pdf; using iTextSharp.text.pdf;
using iTextSharp.text; using iTextSharp.text;
using ADSNetLibrary.SIGAPI.Models.CRM.Request;
using ADSNetLibrary.SIGAPI.Services.CRM;
public partial class CRM_RepAcercamientosProcesos : ClsPaginas public partial class CRM_RepAcercamientosProcesos : ClsPaginas
{ {
@@ -134,7 +136,17 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas
DdlProbabilidad.SelectedValue = CveProbabilidadAcercamiento; DdlProbabilidad.SelectedValue = CveProbabilidadAcercamiento;
DdlTipoProceso.SelectedValue = CveTipoProceso; DdlTipoProceso.SelectedValue = CveTipoProceso;
} }
ICRMService cRMService = new CRMService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString);
RequestEtapaProceso EtapaProceso = new RequestEtapaProceso(UsuarioActual.CveEmpresa, 1, -1);
DdlEtapaProceso.DataSource = ADSNetLibrary.SIGAPI.Helpers.ExtensionMethods.ToDataTable(cRMService.GetEtapaProcesoCRM(EtapaProceso).Result);
DdlEtapaProceso.DataBind();
DdlEtapaProceso.Items.Insert(0, new System.Web.UI.WebControls.ListItem("Todas", "-1"));
upDatosRepA.Update(); upDatosRepA.Update();
} }
protected void cargarDatos() protected void cargarDatos()
{ {
@@ -149,7 +161,8 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas
ClsCRM ObjCRM = new ClsCRM(); ClsCRM ObjCRM = new ClsCRM();
GVRepAcercamientosEtapas.Columns.Clear(); GVRepAcercamientosEtapas.Columns.Clear();
if (ObjCRM.RepAcercamientosEtapas(UsuarioActual.CveEmpresa, cveTipoProceso, idgrupo1, idgrupo2, fechaIni, fechaFin, cveVendedor, cveMedioCaptacion, cveProbabilidadAcercamiento,CvePS:DdlPS.SelectedValue.ToEntero(),CveGiroClasificacion:DdlGiroClasificacion.SelectedValue.ToEntero())) if (ObjCRM.RepAcercamientosEtapas(UsuarioActual.CveEmpresa, cveTipoProceso, idgrupo1, idgrupo2, fechaIni, fechaFin, cveVendedor, cveMedioCaptacion, cveProbabilidadAcercamiento,CvePS:DdlPS.SelectedValue.ToEntero(),
CveGiroClasificacion:DdlGiroClasificacion.SelectedValue.ToEntero(), EnPausa: DdlEnPausa.SelectedValue.ToEntero(), CveEtapaProceso: DdlEtapaProceso.SelectedValue.ToEntero()))
{ {
DataTable dte = ObjCRM.DSResultados.Tables[1]; DataTable dte = ObjCRM.DSResultados.Tables[1];
GVRepAcercamientosEtapas.DataSource = ObjCRM.DSResultados.Tables[0]; GVRepAcercamientosEtapas.DataSource = ObjCRM.DSResultados.Tables[0];

67
CRM/RepAcercamientosRechazos.aspx
View File

@@ -55,40 +55,40 @@
<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server"> <asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel ID="upDatosRepA" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="upDatosRepA" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<div class="portlet solid grey-cascade portlet-filter"> <div class="portlet solid grey-cascade portlet-filter" id="dvFiltros">
<div class="portlet-title portlet-filterT smalltitle"> <div class="portlet-title portlet-filterT smalltitle">
<div class="tools"> <div class="tools">
<asp:Button ID="BtnConsultar" runat="server" Text="Consultar" OnClick="LnkConsultar_Click" class="btn btn-primary" ValidationGroup="Valida" /> <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" OnClick="LnkConsultar_Click" class="btn btn-primary" ValidationGroup="Valida" />
<a href="javascript:;" class="expand"></a> <a href="javascript:;" class="expand"></a>
</div> </div>
<div class="titlefiltros caption"> <div class="titlefiltros caption">
<div class="row" style="margin-left: 10px;"> <div class="row" style="margin-left: 10px;">
<asp:Label class="col-md-1 " style="width: 100px; margin-top: 5px;" runat="server" Text="Proceso:" AssociatedControlID="DdlTipoProceso"></asp:Label> <asp:Label class="col-md-1 " style=" margin-top: 5px;" runat="server" Text="Proceso:" AssociatedControlID="DdlTipoProceso"></asp:Label>
<div class="col-md-2"> <div class="col-md-1">
<asp:DropDownList ID="DdlTipoProceso" runat="server" DataTextField="TipoProceso" DataValueField="CveTipoProceso" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList> <asp:DropDownList ID="DdlTipoProceso" runat="server" DataTextField="TipoProceso" DataValueField="CveTipoProceso" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList>
</div> </div>
<asp:Label class="col-md-1 " style="width: 100px; margin-top: 5px;" runat="server" Text="Vendedor:" AssociatedControlID="DdlVendedor"></asp:Label> <asp:Label class="col-md-1 " style=" margin-top: 5px;" runat="server" Text="Vendedor:" AssociatedControlID="DdlVendedor"></asp:Label>
<div class="col-md-2"> <div class="col-md-1">
<asp:DropDownList ID="DdlVendedor" runat="server" DataTextField="Vendedor" DataValueField="CveVendedor" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList> <asp:DropDownList ID="DdlVendedor" runat="server" DataTextField="Vendedor" DataValueField="CveVendedor" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList>
</div> </div>
<asp:Label class="col-md-1 " style="width: 100px; margin-top: 5px;" runat="server" Text="Medio de Captación:" AssociatedControlID="DdlMedioCaptacion"></asp:Label> <asp:Label class="col-md-1 " style=" margin-top: 5px;" runat="server" Text="Medio de Captación:" AssociatedControlID="DdlMedioCaptacion"></asp:Label>
<div class="col-md-2"> <div class="col-md-1">
<asp:DropDownList ID="DdlMedioCaptacion" runat="server" DataTextField="MedioCaptacion" DataValueField="CveMedioCaptacion" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList> <asp:DropDownList ID="DdlMedioCaptacion" runat="server" DataTextField="MedioCaptacion" DataValueField="CveMedioCaptacion" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList>
</div> </div>
<asp:Label class="col-md-1 " style="width: 100px; margin-top: 5px;" runat="server" Text="Probabilidad:" AssociatedControlID="DdlProbabilidad"></asp:Label> <asp:Label class="col-md-1 " style=" margin-top: 5px;" runat="server" Text="Probabilidad:" AssociatedControlID="DdlProbabilidad"></asp:Label>
<div class="col-md-2"> <div class="col-md-1">
<asp:DropDownList ID="DdlProbabilidad" runat="server" DataTextField="ProbabilidadAcercamiento" DataValueField="CveProbabilidadAcercamiento" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList> <asp:DropDownList ID="DdlProbabilidad" runat="server" DataTextField="ProbabilidadAcercamiento" DataValueField="CveProbabilidadAcercamiento" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList>
</div> </div>
</div> </div>
</div> </div>
</div> </div>
<div class="portlet-body" style="display: none;"> <div class="portlet-body" style="display: none;">
<div class="row" style="margin-left: 10px; margin-top: 10px;"> <div class="row" style="margin-left: 10px;">
<asp:Label class="col-md-1 " style="width: 100px; margin-top: 5px;" runat="server" Text="Agrupado Por:" AssociatedControlID="DdlGrupo1"></asp:Label> <asp:Label class="col-md-1 " style="margin-top: 5px;" runat="server" Text="Agrupado Por:" AssociatedControlID="DdlGrupo1"></asp:Label>
<div class="col-md-2"> <div class="col-md-1">
<asp:DropDownList ID="DdlGrupo1" runat="server" Width="100%" CssClass="form-control input-sm select2me Widthall"> <asp:DropDownList ID="DdlGrupo1" runat="server" Width="100%" CssClass="form-control input-sm select2me Widthall">
<asp:ListItem Value="1" Text="Vendedor" Selected="true"></asp:ListItem> <asp:ListItem Value="1" Text="Vendedor" Selected="true"></asp:ListItem>
<asp:ListItem Value="2" Text="Medio de Captación"></asp:ListItem> <asp:ListItem Value="2" Text="Medio de Captación"></asp:ListItem>
@@ -100,8 +100,8 @@
</asp:DropDownList> </asp:DropDownList>
</div> </div>
<asp:Label class="col-md-1 " style="width: 110px; margin-top: 5px;" runat="server" Text="Agrupado Por(2):" AssociatedControlID="DdlGrupo2"></asp:Label> <asp:Label class="col-md-1 " style=" margin-top: 5px;" runat="server" Text="Agrupado Por(2):" AssociatedControlID="DdlGrupo2"></asp:Label>
<div class="col-md-2"> <div class="col-md-1">
<asp:DropDownList ID="DdlGrupo2" runat="server" Width="100%" CssClass="form-control input-sm select2me Widthall"> <asp:DropDownList ID="DdlGrupo2" runat="server" Width="100%" CssClass="form-control input-sm select2me Widthall">
<asp:ListItem Value="-1" Text="Ninguno" Selected="True"></asp:ListItem> <asp:ListItem Value="-1" Text="Ninguno" Selected="True"></asp:ListItem>
<asp:ListItem Value="1" Text="Vendedor"></asp:ListItem> <asp:ListItem Value="1" Text="Vendedor"></asp:ListItem>
@@ -112,8 +112,8 @@
</asp:DropDownList> </asp:DropDownList>
</div> </div>
<asp:Label class="col-md-1 " style="width: 100px; margin-top: 5px;" runat="server" Text="Fecha Inicio:" AssociatedControlID="TxtFechaInicio"></asp:Label> <asp:Label class="col-md-1 " style=" margin-top: 5px;" runat="server" Text="Fecha Inicio:" AssociatedControlID="TxtFechaInicio"></asp:Label>
<div class="col-md-2"> <div class="col-md-1">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px; margin-top: 5px;"> <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px; margin-top: 5px;">
<asp:TextBox ID="TxtFechaInicio" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox> <asp:TextBox ID="TxtFechaInicio" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
<span class="input-group-btn "> <span class="input-group-btn ">
@@ -124,8 +124,8 @@
<ajax:CalendarExtender runat="server" ID="CEFechaSolicitudI" TargetControlID="TxtFechaInicio" PopupButtonID="imgFechaInicio" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender> <ajax:CalendarExtender runat="server" ID="CEFechaSolicitudI" TargetControlID="TxtFechaInicio" PopupButtonID="imgFechaInicio" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
</div> </div>
<asp:Label class="col-md-1 " style="width: 100px; margin-top: 5px;" runat="server" Text="Fecha Fin:" AssociatedControlID="TxtFechaFin"></asp:Label> <asp:Label class="col-md-1 " style=" margin-top: 5px;" runat="server" Text="Fecha Fin:" AssociatedControlID="TxtFechaFin"></asp:Label>
<div class="col-md-2"> <div class="col-md-1">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px; margin-top: 5px;"> <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px; margin-top: 5px;">
<asp:TextBox ID="TxtFechaFin" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox> <asp:TextBox ID="TxtFechaFin" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
<span class="input-group-btn "> <span class="input-group-btn ">
@@ -136,15 +136,32 @@
<ajax:CalendarExtender runat="server" ID="CEFechaSolicitudF" TargetControlID="TxtFechaFin" PopupButtonID="imgFechaFin" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender> <ajax:CalendarExtender runat="server" ID="CEFechaSolicitudF" TargetControlID="TxtFechaFin" PopupButtonID="imgFechaFin" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
</div> </div>
</div> </div>
<div class="row"> <div class="row" style="margin-left: 10px;">
<asp:Label class="col-md-1 " style="width: 124px; margin-top: 5px;" runat="server" Text="Producto Servicio:" AssociatedControlID="DdlPS"></asp:Label> <asp:Label class="col-md-1 " style=" margin-top: 5px;" runat="server" Text="Producto Servicio:" AssociatedControlID="DdlPS"></asp:Label>
<div class="col-md-2"> <div class="col-md-1">
<ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width:100%" CssClassDdl="form-control select2me" DataTextField="PSCodigo" DataValueField="CvePS" /> <ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width:100%" CssClassDdl="form-control select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
</div> </div>
<asp:Label class="col-md-1 " style="width: 100px; margin-top: 5px;" runat="server" Text="Giro:" AssociatedControlID="DdlGiroClasificacion"></asp:Label> <asp:Label class="col-md-1 " style=" margin-top: 5px;" runat="server" Text="Giro:" AssociatedControlID="DdlGiroClasificacion"></asp:Label>
<div class="col-md-2"> <div class="col-md-1">
<asp:DropDownList ID="DdlGiroClasificacion" runat="server" DataValueField="CveClienteClasificacion" DataTextField="ClienteClasificacion" AppendDataBoundItems="true" CssClass="form-control select2me"></asp:DropDownList> <asp:DropDownList ID="DdlGiroClasificacion" Width="100%" runat ="server" DataValueField="CveClienteClasificacion" DataTextField="ClienteClasificacion" AppendDataBoundItems="true" CssClass="form-control select2me"></asp:DropDownList>
</div>
<label class="col-md-1" >En Pausa:</label>
<div class="col-md-1">
<asp:DropDownList ID="DdlEnPausa" Width="100%" runat="server" CssClass="form-control input-sm select2me" >
<asp:ListItem Value="-1">Todo</asp:ListItem>
<asp:ListItem Value="0">Activos</asp:ListItem>
<asp:ListItem Value="1">En Pausa</asp:ListItem>
</asp:DropDownList>
</div>
<label class="col-md-1" >Etapa:</label>
<div class="col-md-1">
<asp:DropDownList ID="DdlEtapaProceso" Width="100%" runat="server" CssClass="form-control input-sm select2me" DataTextField="EtapaProceso" DataValueField="CveEtapaProceso">
</asp:DropDownList>
</div> </div>
</div> </div>
</div> </div>

13
CRM/RepAcercamientosRechazos.aspx.cs
View File

@@ -9,6 +9,8 @@ using Extensiones;
using iTextSharp.text.pdf; using iTextSharp.text.pdf;
using iTextSharp.text; using iTextSharp.text;
using System.IO; using System.IO;
using ADSNetLibrary.SIGAPI.Models.CRM.Request;
using ADSNetLibrary.SIGAPI.Services.CRM;
public partial class CRM_RepAcercamientosRechazos : ClsPaginas public partial class CRM_RepAcercamientosRechazos : ClsPaginas
{ {
@@ -117,6 +119,14 @@ public partial class CRM_RepAcercamientosRechazos : ClsPaginas
DdlMedioCaptacion.SelectedValue = "-1"; DdlMedioCaptacion.SelectedValue = "-1";
DdlProbabilidad.SelectedValue = "-1"; DdlProbabilidad.SelectedValue = "-1";
DdlTipoProceso.SelectedIndex = 0; DdlTipoProceso.SelectedIndex = 0;
ICRMService cRMService = new CRMService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString);
RequestEtapaProceso EtapaProceso = new RequestEtapaProceso(UsuarioActual.CveEmpresa, 1, -1);
DdlEtapaProceso.DataSource = ADSNetLibrary.SIGAPI.Helpers.ExtensionMethods.ToDataTable(cRMService.GetEtapaProcesoCRM(EtapaProceso).Result);
DdlEtapaProceso.DataBind();
DdlEtapaProceso.Items.Insert(0, new System.Web.UI.WebControls.ListItem("Todas", "-1"));
upDatosRepA.Update(); upDatosRepA.Update();
} }
@@ -133,7 +143,8 @@ public partial class CRM_RepAcercamientosRechazos : ClsPaginas
ClsCRM ObjCRM = new ClsCRM(); ClsCRM ObjCRM = new ClsCRM();
GVRepAcercamientosEtapas.Columns.Clear(); GVRepAcercamientosEtapas.Columns.Clear();
if (ObjCRM.RepAcercamientosRechazos(UsuarioActual.CveEmpresa, cveTipoProceso, idgrupo1, idgrupo2, fechaIni, fechaFin, cveVendedor, cveMedioCaptacion, cveProbabilidadAcercamiento, CvePS:DdlPS.SelectedValue.ToEntero(), CveGiroClasificacion:DdlGiroClasificacion.SelectedValue.ToEntero())) if (ObjCRM.RepAcercamientosRechazos(UsuarioActual.CveEmpresa, cveTipoProceso, idgrupo1, idgrupo2, fechaIni, fechaFin, cveVendedor, cveMedioCaptacion, cveProbabilidadAcercamiento, CvePS:DdlPS.SelectedValue.ToEntero(),
CveGiroClasificacion:DdlGiroClasificacion.SelectedValue.ToEntero(), EnPausa: DdlEnPausa.SelectedValue.ToEntero(), CveEtapaProceso: DdlEtapaProceso.SelectedValue.ToEntero()))
{ {
DataTable dte = ObjCRM.DSResultados.Tables[1]; DataTable dte = ObjCRM.DSResultados.Tables[1];
GVRepAcercamientosEtapas.DataSource = ObjCRM.DSResultados.Tables[0]; GVRepAcercamientosEtapas.DataSource = ObjCRM.DSResultados.Tables[0];

13
Compras/Compras.aspx
View File

@@ -505,7 +505,7 @@
<div class="form-group proveedoreespes"> <div class="form-group proveedoreespes">
<span class="whitoutcol linewhitsize proveedoreespes">F. Captura </span> <span class="whitoutcol linewhitsize proveedoreespes">F. Captura </span>
<div class="whitoutcol whitoutcol"> <div class="whitoutcol whitoutcol">
<asp:Literal ID="LitFechCaptura" runat="server"></asp:Literal> <asp:Label ID="LitFechCaptura" runat="server"></asp:Label>
</div> </div>
</div> </div>
<div class="form-group proveedoreespes"> <div class="form-group proveedoreespes">
@@ -5925,12 +5925,9 @@
if (!isNaN(txtComision.value)) { if (!isNaN(txtComision.value)) {
txtComisionImporte = ToDouble(txtComision.value); txtComisionImporte = ToDouble(txtComision.value);
} }
} }
var txtvalue = ToDouble(txt.value);
var txtvalue = ToDouble(txt.value);
if (txtComisionImporte != 0 && txtComisionImporte > txtvalue) { if (txtComisionImporte != 0 && txtComisionImporte > txtvalue) {
@@ -5941,7 +5938,7 @@
return; return;
} }
debugger;
if (CveMonedaAnticipo == 1 && CveMonedaOriginal == 2) { if (CveMonedaAnticipo == 1 && CveMonedaOriginal == 2) {
txtvalue = ToDouble(txtvalue / TCAnticipo); txtvalue = ToDouble(txtvalue / TCAnticipo);
} else if (CveMonedaAnticipo == 2 && CveMonedaOriginal == 1) { } else if (CveMonedaAnticipo == 2 && CveMonedaOriginal == 1) {
@@ -5949,7 +5946,7 @@
} }
var SaldoCompra = (TotalSaldo - FnSumaValoresAnt() + ToDouble(txtvalue)).toFixed(2); // le agrego lo del valor actual para validarlo //parseFloat(parseFloat($get('HdnCompraSaldo').value).toFixed(2)); var SaldoCompra = (TotalSaldo - FnSumaValoresAnt() + ToDouble(txtvalue)).toFixed(2); // le agrego lo del valor actual para validarlo //parseFloat(parseFloat($get('HdnCompraSaldo').value).toFixed(2));
alert(txtvalue);
if (SaldoCompra < 0) txt.value = SaldoCompra - txtvalue; if (SaldoCompra < 0) txt.value = SaldoCompra - txtvalue;
//minimo entre saldocompra y el saldoanticipo //minimo entre saldocompra y el saldoanticipo
if (SaldoCompra < saldo) saldo = SaldoCompra; if (SaldoCompra < saldo) saldo = SaldoCompra;

32
Compras/Compras.aspx.vb
View File

@@ -1769,7 +1769,7 @@ Partial Class Compras_Compras
If Validada And Not EnListadoEFOS Then If Validada And Not EnListadoEFOS Then
Try Try
XMLDoc.Load(Archivo) XMLDoc.LoadXml(File.ReadAllText(Archivo).Replace("&lt;br&gt;", "").Replace("&lt;", ""))
Catch ex As Exception Catch ex As Exception
Try Try
Dim oReader = New StreamReader(Archivo, Encoding.GetEncoding("ISO-8859-1")) Dim oReader = New StreamReader(Archivo, Encoding.GetEncoding("ISO-8859-1"))
@@ -1820,13 +1820,21 @@ Partial Class Compras_Compras
Xml = Xml.Replace(Chr(13), "") 'salto de linea Xml = Xml.Replace(Chr(13), "") 'salto de linea
Xml = Xml.Replace(Chr(10), "") Xml = Xml.Replace(Chr(10), "")
Xml = Xml.Replace("<br />", "") 'salto de linea html Xml = Xml.Replace("<br />", "") 'salto de linea html
Xml = Xml.Replace("&lt;br&gt;", "")
Xml = Xml.Replace("&lt;", "")
Xml = Xml.Replace("&", "") 'adicional, si hay otros Xml = Xml.Replace("&", "") 'adicional, si hay otros
If ObjeFacturas.GetFacturasComparacionXML(Version, Xml, UsuarioActual.CveEmpresa) Then If ObjeFacturas.GetFacturasComparacionXML(Version, Xml, UsuarioActual.CveEmpresa) Then
TmpDT = ObjeFacturas.DtResultados TmpDT = ObjeFacturas.DtResultados
TmpDT.Columns.Add("CveSATPSActualizado") TmpDT.Columns.Add("CveSATPSActualizado")
SubTotalConceptos = TmpDT.SUMD("Total").RoundSQL SubTotalConceptos = TmpDT.SUMD("Total").RoundSQL
If Not TmpDT.Columns.Contains("Amortizacion") Then
TmpDT.Columns.Add("Amortizacion", GetType(Decimal))
End If
AddPS2(False) AddPS2(False)
'VALIDA QUE EL XML SI VIENE CON EL CODIGO SAT 01010101 'VALIDA QUE EL XML SI VIENE CON EL CODIGO SAT 01010101
@@ -1939,6 +1947,11 @@ Partial Class Compras_Compras
If Version = "3.3" Or Version = "4.0" Then If Version = "3.3" Or Version = "4.0" Then
If Not TmpDT.Columns.Contains("Amortizacion") Then
TmpDT.Columns.Add("Amortizacion", GetType(Decimal))
End If
TmpDT.AcceptChanges()
ValidacionesTotalesXml() ValidacionesTotalesXml()
Else Else
@@ -2264,6 +2277,10 @@ Partial Class Compras_Compras
Private Sub ValidacionesTotalesXml() Private Sub ValidacionesTotalesXml()
If Not TmpDT.Columns.Contains("Amortizacion") Then
TmpDT.Columns.Add("Amortizacion", GetType(Decimal))
End If
Dim Msg As String = "" Dim Msg As String = ""
Dim SubtotalTemp = TmpDT.SUM("Total") + Math.Round(TmpDT.SUM("Descuento") + Math.Round(TmpDT.SUM("Amortizacion")), 2) Dim SubtotalTemp = TmpDT.SUM("Total") + Math.Round(TmpDT.SUM("Descuento") + Math.Round(TmpDT.SUM("Amortizacion")), 2)
Dim DescuentosTemp = TmpDT.SUM("Descuento") Dim DescuentosTemp = TmpDT.SUM("Descuento")
@@ -2625,6 +2642,7 @@ Partial Class Compras_Compras
TxtObsFact.Text = dr("Observaciones").ToString TxtObsFact.Text = dr("Observaciones").ToString
LblUsuarioCaptura.Text = dr("Usuario").ToString LblUsuarioCaptura.Text = dr("Usuario").ToString
LitFechCaptura.Text = dr("FechaIng").ToString.ToDate.ToShortDateString LitFechCaptura.Text = dr("FechaIng").ToString.ToDate.ToShortDateString
LitFechCaptura.ToolTip = dr("FechaIng").ToString
LblRetIVA.Text = Math.Round((dr("RetIVA").ToString.ToDouble / TxtSubTotal2.Text.ToDouble) * 100, 4).FormatoNumero(3) + "%" LblRetIVA.Text = Math.Round((dr("RetIVA").ToString.ToDouble / TxtSubTotal2.Text.ToDouble) * 100, 4).FormatoNumero(3) + "%"
LblRetISR.Text = Math.Round((dr("RetISR").ToString.ToDouble / TxtSubTotal2.Text.ToDouble) * 100, 4).FormatoNumero(3) LblRetISR.Text = Math.Round((dr("RetISR").ToString.ToDouble / TxtSubTotal2.Text.ToDouble) * 100, 4).FormatoNumero(3)
If dr("TipoFactura").ToString <> "CFDi" Then LblTipoFact.Text = dr("TipoFactura").ToString : divTipoFactura.Visible = True If dr("TipoFactura").ToString <> "CFDi" Then LblTipoFact.Text = dr("TipoFactura").ToString : divTipoFactura.Visible = True
@@ -4757,7 +4775,7 @@ Partial Class Compras_Compras
'End If 'End If
'METODO DE PREPOLIZA DE ALMACEN 'METODO DE PREPOLIZA DE ALMACEN
If UsuarioActual.CveEmpresa.Contiene(1, 119, 72, 80, 140, 141, 145, 152, 153, 154, 158, 159, 160, 161, 162, 163) And UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then If UsuarioActual.CveEmpresa.Contiene(1, 119, 72, 80, 140, 141, 145, 152, 153, 154, 158, 159, 160, 161, 162, 163, 172, 173) And UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
Dim ImporteAlmacen = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveTipoPS = 2").ToString.ToDecimal Dim ImporteAlmacen = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveTipoPS = 2").ToString.ToDecimal
If ImporteAlmacen > 0 Then If ImporteAlmacen > 0 Then
If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
@@ -8087,11 +8105,15 @@ Partial Class Compras_Compras
Msg.AppendFormat($"</br><a class=""Texto"" target='_blank' href=""/Inventarios/RecepcionAlmacen.aspx?CveCompra={CveCompra}&ED=1"">Recibir mercancía de entrega directa.</a>") Msg.AppendFormat($"</br><a class=""Texto"" target='_blank' href=""/Inventarios/RecepcionAlmacen.aspx?CveCompra={CveCompra}&ED=1"">Recibir mercancía de entrega directa.</a>")
End If End If
If Not TieneError AndAlso Not ObjConta.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then
TieneError = True If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then
Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError) If Not TieneError AndAlso Not ObjConta.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then
TieneError = True
Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError)
End If
End If End If
If Not TieneError Then If Not TieneError Then
ObjCompras.Commit() ObjCompras.Commit()
If ObjContaAC IsNot Nothing Then ObjContaAC.Commit() If ObjContaAC IsNot Nothing Then ObjContaAC.Commit()

17
Compras/PopUpVerFactura.aspx.vb
View File

@@ -1236,17 +1236,20 @@ Partial Class PopUpVerFactura
Dim Path As String = String.Format("{0}{2}\Pag\{1}.{2}", UsuarioActual.Empresa.Ruta, UrlParametros("SERIEFOLIO"), UrlParametros("EXT").ToString) Dim Path As String = String.Format("{0}{2}\Pag\{1}.{2}", UsuarioActual.Empresa.Ruta, UrlParametros("SERIEFOLIO"), UrlParametros("EXT").ToString)
Dim Archivo As New System.IO.FileInfo(Path) Dim Archivo As New System.IO.FileInfo(Path)
If UrlParametros("EXT").ToString.ToUpper = "PDF" Then If Not Archivo.Exists Then
If UrlParametros("CVECOMPLEMENTOPAGO").ToString.ToEntero > 0 Then If UrlParametros("EXT").ToString.ToUpper = "PDF" Then
Dim CveIE As Integer = -1 If UrlParametros("CVECOMPLEMENTOPAGO").ToString.ToEntero > 0 Then
If UrlParametros("CVEIE") IsNot Nothing Then Dim CveIE As Integer = -1
CveIE = UrlParametros("CVEIE").ToString.ToEntero If UrlParametros("CVEIE") IsNot Nothing Then
CveIE = UrlParametros("CVEIE").ToString.ToEntero
End If
PDFReciboDePagos(-1, CveIE, UrlParametros("CVECOMPLEMENTOPAGO").ToString.ToEntero, False) 'genero el documento de no existir
End If End If
PDFReciboDePagos(-1, CveIE, UrlParametros("CVECOMPLEMENTOPAGO").ToString.ToEntero, False) 'genero el documento de no existir
End If End If
Archivo = Nothing
End If End If
Archivo = Nothing
End If End If
If UrlParametros("SERIEFOLIO") IsNot Nothing AndAlso UrlParametros("SERIEFOLIO").ToString <> "" AndAlso UrlParametros("EXT").ToString <> "" Then If UrlParametros("SERIEFOLIO") IsNot Nothing AndAlso UrlParametros("SERIEFOLIO").ToString <> "" AndAlso UrlParametros("EXT").ToString <> "" Then

2
Compras/Proveedores.aspx
View File

@@ -3101,7 +3101,7 @@
<asp:Literal ID="LtlEventoBitacora" runat="server" Text='<%# Eval("Descripcion") %>'></asp:Literal> <asp:Literal ID="LtlEventoBitacora" runat="server" Text='<%# Eval("Descripcion") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField> <asp:TemplateField HeaderStyle-Width="30px">
<HeaderTemplate>Archivo</HeaderTemplate> <HeaderTemplate>Archivo</HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:LinkButton ID="LinkArchivo" Visible="false" runat="server" CssClass="Texto" OnClick="DownloadFile"> <asp:LinkButton ID="LinkArchivo" Visible="false" runat="server" CssClass="Texto" OnClick="DownloadFile">

61
Compras/eFacturas.aspx.vb
View File

@@ -2173,64 +2173,7 @@ Partial Class Compras_eFacturas
Return Fact Return Fact
End Function End Function
Private Function GuardaArchivoXML(Archivo As String) As Modelos.eFactura
' , Destino As String, Temporal As String
Dim Retorno As Modelos.eFactura = Nothing
If File.Exists(Archivo) Then
Dim NombreArchivo As String = Path.GetFileName(Archivo)
Dim invalidChars As Char() = Path.GetInvalidFileNameChars()
Dim invalidString As String = Regex.Escape(New String(invalidChars))
Dim valid As String = Regex.Replace(NombreArchivo, (Convert.ToString("[") & invalidString) + "]", "")
NombreArchivo = valid
Try
Dim XMLDoc As New XmlDocument()
XMLDoc.Load(Archivo)
Retorno = CargaDatosXML(XMLDoc)
Catch exx As XmlException
Retorno = Nothing
'Dim texto As Dynamic = File.ReadAllText(Archivo)
Dim txt_utf8 As New UTF8Encoding()
'REEMPLAZA CARACTERES ESPECIALES Y VUELVE A LEER EL DOCUMENTO
'texto = RemoveIllegalXMLCharacters(texto)
' SE RENOMBRA EL ARCHIVO, PERO SE QUITO POR SI NO COINCIDE EL PDF CON EL NOMBRE
'Archivo = Archivo.ToUpper.Replace(".XML", "-2.XML")
'NombreArchivo = IO.Path.GetFileName(Archivo)
'File.WriteAllText(Archivo, texto)
' Dim xmltr As New XmlTextReader(New MemoryStream(RemoveIllegalXMLCharacters(texto)))
Dim XMLDoc As New XmlDocument()
Try
XMLDoc.Load(Archivo)
Retorno = CargaDatosXML(XMLDoc)
Catch ex As Exception
Retorno = Nothing
End Try
Catch ex As Exception
Retorno = Nothing
End Try
'si se cargaron todos los datos
If Retorno IsNot Nothing AndAlso Not String.IsNullOrEmpty(Retorno.TFDUUID) Then
'XML
Retorno.ArchivoXML = NombreArchivo
End If
End If
Return Retorno
End Function
Private Sub CargaImpuestosXML(XMLDoc As XmlDocument) Private Sub CargaImpuestosXML(XMLDoc As XmlDocument)
Dim Prefijo As String = If(String.IsNullOrEmpty(XMLDoc.DocumentElement.Prefix), "cfd", XMLDoc.DocumentElement.Prefix) Dim Prefijo As String = If(String.IsNullOrEmpty(XMLDoc.DocumentElement.Prefix), "cfd", XMLDoc.DocumentElement.Prefix)
Dim cfdVer As String = "http://www.sat.gob.mx/cfd/3" Dim cfdVer As String = "http://www.sat.gob.mx/cfd/3"
@@ -3338,7 +3281,7 @@ Partial Class Compras_eFacturas
Dim SXML As String = File.ReadAllText(Archivo).Replace(vbLf, " ").Replace(vbCrLf, " ") Dim SXML As String = File.ReadAllText(Archivo).Replace(vbLf, " ").Replace(vbCrLf, " ")
SXML = SXML.Replace("o;?", "")
SXML = SXML.Trim((Convert.ToChar(0))) SXML = SXML.Trim((Convert.ToChar(0)))
XMLDoc.LoadXml(SXML) XMLDoc.LoadXml(SXML)
@@ -4508,7 +4451,7 @@ Partial Class Compras_eFacturas
Dim SXML As String = File.ReadAllText(Archivo).Replace(vbLf, " ").Replace(vbCrLf, " ") Dim SXML As String = File.ReadAllText(Archivo).Replace(vbLf, " ").Replace(vbCrLf, " ")
SXML = SXML.Replace("o;?", "")
SXML = SXML.Trim((Convert.ToChar(0))) SXML = SXML.Trim((Convert.ToChar(0)))
XMLDoc.LoadXml(SXML) XMLDoc.LoadXml(SXML)

9
Contabilidad/DiarioPagos.aspx.vb
View File

@@ -599,7 +599,7 @@ Partial Class Contabilidad_DiarioPagos
Select Case UsuarioActual.CveEmpresa Select Case UsuarioActual.CveEmpresa
Case 13 Case 13, 83
Select Case gvr.DataKey("CveTipoTransaccion") Select Case gvr.DataKey("CveTipoTransaccion")
Case "1" 'cheque Case "1" 'cheque
Folio = gvr.DataKey("Folio") Folio = gvr.DataKey("Folio")
@@ -791,7 +791,7 @@ Partial Class Contabilidad_DiarioPagos
End If End If
'registro los movimientos en proveedores, cuando es de contado que toque 'registro los movimientos en proveedores, cuando es de contado que toque
If UsuarioActual.CveEmpresa = 13 AndAlso Not EsContabilizada AndAlso Opcion = 1 AndAlso Math.Abs(CargoProveedor) <= 1 AndAlso Math.Abs(AbonoProveedor) <= 1 Then If UsuarioActual.CveEmpresa.Contiene(13, 83) AndAlso Not EsContabilizada AndAlso Opcion = 1 AndAlso Math.Abs(CargoProveedor) <= 1 AndAlso Math.Abs(AbonoProveedor) <= 1 Then
CargoProveedor += CompraPagadoTotal CargoProveedor += CompraPagadoTotal
AbonoProveedor += CompraPagadoTotal AbonoProveedor += CompraPagadoTotal
End If End If
@@ -835,7 +835,7 @@ Partial Class Contabilidad_DiarioPagos
End If End If
Dim ttTipoCambioPago As Double = TipoCambioPago Dim ttTipoCambioPago As Double = TipoCambioPago
If UsuarioActual.CveEmpresa = 13 Then ttTipoCambioPago = TipoCambioCompra If UsuarioActual.CveEmpresa.Contiene(13, 83) Then ttTipoCambioPago = TipoCambioCompra
If IVAAcreditable > 0 Then 'iva Acreditable If IVAAcreditable > 0 Then 'iva Acreditable
@@ -927,8 +927,7 @@ Partial Class Contabilidad_DiarioPagos
If SimplificaRetIVA = False Then CompraRetIVA = CompraPagadoRetIVA If SimplificaRetIVA = False Then CompraRetIVA = CompraPagadoRetIVA
'no registra la retencion de iva al pagar 'no registra la retencion de iva al pagar
If UsuarioActual.CveEmpresa = 13 Then IdCuentaRetIVACirculacion = 0 If UsuarioActual.CveEmpresa.Contiene(13, 83) Then IdCuentaRetIVACirculacion = 0
ConceptoTmp = If(CveMoneda = 2, String.Format("{0} TC {1}", ConceptoDetalle, TipoCambioFechaCompra), ConceptoDetalle) ConceptoTmp = If(CveMoneda = 2, String.Format("{0} TC {1}", ConceptoDetalle, TipoCambioFechaCompra), ConceptoDetalle)
If CompraRetIVA > 0 AndAlso IdCuentaRetIVACirculacion > 0 AndAlso Not Conta.AddMovimiento(IDPoliza, IdCuentaRetIVACirculacion, False, CompraPagadoRetIVA * TipoCambioFechaCompra, gvrc.FCHiddenField("HdnSerieFolio").Value, ConceptoTmp, 0, Fecha, gvrc.FCHiddenField("HdnCveCompra").Value.ContaReferencia(TipoContaReferencia.Compra), If(MonExt, CompraRetIVA, 0.0)) Then MsgError = "No se pudo insertar movimiento contable" : Exit For If CompraRetIVA > 0 AndAlso IdCuentaRetIVACirculacion > 0 AndAlso Not Conta.AddMovimiento(IDPoliza, IdCuentaRetIVACirculacion, False, CompraPagadoRetIVA * TipoCambioFechaCompra, gvrc.FCHiddenField("HdnSerieFolio").Value, ConceptoTmp, 0, Fecha, gvrc.FCHiddenField("HdnCveCompra").Value.ContaReferencia(TipoContaReferencia.Compra), If(MonExt, CompraRetIVA, 0.0)) Then MsgError = "No se pudo insertar movimiento contable" : Exit For

5
Contabilidad/PlantillasPolizasDetalle.aspx.vb
View File

@@ -61,7 +61,7 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
ObjPlantillaPolizasTipo.Dispose() ObjPlantillaPolizasTipo.Dispose()
Dim dt As DataTable = Nothing Dim dt As DataTable = Nothing
If UsuarioActual.Empresa.UsaContabilidad Then If UsuarioActual.Empresa.TipoContabilidad = 2 Then
Dim Conta As New ClsContPAQi(UsuarioActual.Empresa) Dim Conta As New ClsContPAQi(UsuarioActual.Empresa)
If Conta.GetCuentas(-1, "-1", 1) Then If Conta.GetCuentas(-1, "-1", 1) Then
@@ -257,13 +257,12 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
DdlPorcentajeImpuesto.SelectedValue.ToDecimal, CveCuenta:=DdlCuentas.SelectedValue.ToEntero) Then DdlPorcentajeImpuesto.SelectedValue.ToDecimal, CveCuenta:=DdlCuentas.SelectedValue.ToEntero) Then
TxtOrden.Text = "" TxtOrden.Text = ""
If Not ChkSeguirAgregando.Checked Then If Not ChkSeguirAgregando.Checked Then
updatatos()
Alert("El nuevo Registro se guardó correctamente.", TipoMensaje.MsgInformacion) Alert("El nuevo Registro se guardó correctamente.", TipoMensaje.MsgInformacion)
Else Else
RegistraScript(String.Format("$('#{0}').modal();", "divAgregarSucursal")) RegistraScript(String.Format("$('#{0}').modal();", "divAgregarSucursal"))
UpModal.Update() UpModal.Update()
End If End If
updatatos()
Else Else
ErrorDetalle = True ErrorDetalle = True
End If End If

2
Contabilidad/PopUpAuxiliar.aspx.vb
View File

@@ -210,7 +210,7 @@ Partial Class PopUpAuxiliar
e.Row.FCLiteral("LtlConcepto").Text = String.Format("{0}{1}</a>", Liga, e.Row.DBCampo("ConceptoContable")) e.Row.FCLiteral("LtlConcepto").Text = String.Format("{0}{1}</a>", Liga, e.Row.DBCampo("ConceptoContable"))
End If End If
If e.Row.DBCampo("CveConceptoContable").Contiene("91", "251", "301") Then 'desaplicar NC If e.Row.DBCampo("CveConceptoContable").Contiene("91", "294", "251", "301") Then 'desaplicar NC
e.Row.FCLinkButton("LnkDesAplicar").Visible = True e.Row.FCLinkButton("LnkDesAplicar").Visible = True
e.Row.FCLinkButton("imgD").Visible = False e.Row.FCLinkButton("imgD").Visible = False

18
Contabilidad2/CatCuentasAsignaciones.aspx
View File

@@ -60,7 +60,7 @@
<label runat="server" id="Lblcon" class="col-md-1 truncate">Concepto:</label> <label runat="server" id="Lblcon" class="col-md-1 truncate">Concepto:</label>
<div runat="server" id="DivCon" class="col-md-2"> <div runat="server" id="DivCon" class="col-md-2">
<asp:DropDownList ID="DdlConceptos" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" Width="240px" ValidationGroup="GrpModulo2" ></asp:DropDownList> <asp:DropDownList ID="DdlConceptos" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" Width="240px" ValidationGroup="GrpModulo2" ></asp:DropDownList>
</div> </div>
</div> </div>
@@ -134,11 +134,11 @@
<div class="col-md-1" style="width:50%;text-align:left"> <div class="col-md-1" style="width:50%;text-align:left">
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:HiddenField ID="HdnCveCuentaAsignacion" runat="server" /> <asp:HiddenField ID="HdnCveCuentaAsignacion" runat="server" />
<asp:DropDownList ID="DdlCconceptosContables" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" Width="240px" ValidationGroup="GrpModulo" AutoPostBack="true"></asp:DropDownList> <asp:DropDownList ID="DdlCconceptosContables" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" Width="240px" ValidationGroup="GrpModulo" AutoPostBack="true"></asp:DropDownList>
<label for="<%= DdlCconceptosContables.ClientID.ToString()%>">Concepto Contable: </label> <label for="<%= DdlCconceptosContables.ClientID.ToString()%>">Concepto Contable: </label>
</div> </div>
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlCuenta" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="CveCuenta" Width="240px" ValidationGroup="GrpModulo"></asp:DropDownList> <asp:DropDownList ID="DdlCuenta" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" DataTextField="CtaCodigo" DataValueField="CveCuenta" Width="240px" ValidationGroup="GrpModulo"></asp:DropDownList>
<label for="<%= DdlCuenta.ClientID.ToString()%>">Cuenta Contable: </label> <label for="<%= DdlCuenta.ClientID.ToString()%>">Cuenta Contable: </label>
</div> </div>
<div class="form-group form-md-line-input input-iconright" id="divIdCuenta" runat="server" visible="false"> <div class="form-group form-md-line-input input-iconright" id="divIdCuenta" runat="server" visible="false">
@@ -147,7 +147,7 @@
<label for="<%= TxtIdCuentaContable.ClientID.ToString()%>">IdCuentaContable:</label> <label for="<%= TxtIdCuentaContable.ClientID.ToString()%>">IdCuentaContable:</label>
</div> </div>
<div class="form-group form-md-line-input input-iconright" id="divProveedor" runat="server" visible="false"> <div class="form-group form-md-line-input input-iconright" id="divProveedor" runat="server" visible="false">
<ADS:Dropdownlost ID="DdlProveedor" CssClassDdl="select2me" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" data-metodo="getproveedores" CssStyle="width: 100%;" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="240px" ValidationGroup="GrpModulo" ></ADS:Dropdownlost> <ADS:Dropdownlost ID="DdlProveedor" CssClassDdl="select2me" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" data-metodo="getproveedores" CssStyle="width: 100%;" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="240px" ValidationGroup="GrpModulo" ></ADS:Dropdownlost>
<label for="<%= DdlProveedor.ClientID.ToString()%>">Proveedor: </label> <label for="<%= DdlProveedor.ClientID.ToString()%>">Proveedor: </label>
</div> </div>
<div class="form-group form-md-line-input input-iconright" id="divCliente" runat="server" visible="false"> <div class="form-group form-md-line-input input-iconright" id="divCliente" runat="server" visible="false">
@@ -165,11 +165,11 @@
<ADS:Dropdownlost CssClassDdl="select2me" ID="DdlPersonal" Width="90%" data-metodo="getpersonal" runat="server" DataTextField="NombreCompleto" DataValueField="CvePersonal" CssStyle="width: 100%;" Enabled="false"></ADS:Dropdownlost> <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlPersonal" Width="90%" data-metodo="getpersonal" runat="server" DataTextField="NombreCompleto" DataValueField="CvePersonal" CssStyle="width: 100%;" Enabled="false"></ADS:Dropdownlost>
</div> </div>
<div class="form-group form-md-line-input input-iconright" id="divClasificacion" runat="server" visible="false"> <div class="form-group form-md-line-input input-iconright" id="divClasificacion" runat="server" visible="false">
<asp:DropDownList ID="DdlClasificacion" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="240px" ValidationGroup="GrpModulo" Enabled="false"></asp:DropDownList> <asp:DropDownList ID="DdlClasificacion" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="240px" ValidationGroup="GrpModulo" Enabled="false"></asp:DropDownList>
<label for="<%= DdlClasificacion.ClientID.ToString()%>">Clasificación: </label> <label for="<%= DdlClasificacion.ClientID.ToString()%>">Clasificación: </label>
</div> </div>
<div class="form-group form-md-line-input input-iconright" id="divAlmacen" runat="server" visible="false"> <div class="form-group form-md-line-input input-iconright" id="divAlmacen" runat="server" visible="false">
<asp:DropDownList ID="DdlAlmacen" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="Almacen" DataValueField="CveAlmacen" Width="240px" ValidationGroup="GrpModulo" Enabled="false"></asp:DropDownList> <asp:DropDownList ID="DdlAlmacen" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" DataTextField="Almacen" DataValueField="CveAlmacen" Width="240px" ValidationGroup="GrpModulo" Enabled="false"></asp:DropDownList>
<label for="<%= DdlAlmacen.ClientID.ToString()%>">Almacén: </label> <label for="<%= DdlAlmacen.ClientID.ToString()%>">Almacén: </label>
</div> </div>
<div class="form-group form-md-line-input input-iconright" id="divPorcentajeIVA" runat="server" visible="false"> <div class="form-group form-md-line-input input-iconright" id="divPorcentajeIVA" runat="server" visible="false">
@@ -178,11 +178,11 @@
<label for="<%= TxtPorcentajeIVA.ClientID.ToString()%>">PorcentajeIVA:</label> <label for="<%= TxtPorcentajeIVA.ClientID.ToString()%>">PorcentajeIVA:</label>
</div> </div>
<div class="form-group form-md-line-input input-iconright" id="divConceptoNomina" runat="server" visible="false"> <div class="form-group form-md-line-input input-iconright" id="divConceptoNomina" runat="server" visible="false">
<asp:DropDownList ID="DdlConceptoNomina" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="CodigoConcepto" DataValueField="CveConcepto" Width="240px" ValidationGroup="GrpModulo" ></asp:DropDownList> <asp:DropDownList ID="DdlConceptoNomina" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" DataTextField="CodigoConcepto" DataValueField="CveConcepto" Width="240px" ValidationGroup="GrpModulo" ></asp:DropDownList>
<label for="<%= DdlConceptoNomina.ClientID.ToString()%>">Concepto nómina: </label> <label for="<%= DdlConceptoNomina.ClientID.ToString()%>">Concepto nómina: </label>
</div> </div>
<div class="form-group form-md-line-input input-iconright" id="divActivoFijo" runat="server" visible="false"> <div class="form-group form-md-line-input input-iconright" id="divActivoFijo" runat="server" visible="false">
<asp:DropDownList ID="DdlActivoFijo" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="Descripcion" DataValueField="CveActivoFijo" Width="240px" ValidationGroup="GrpModulo" Enabled="false"></asp:DropDownList> <asp:DropDownList ID="DdlActivoFijo" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" DataTextField="Descripcion" DataValueField="CveActivoFijo" Width="240px" ValidationGroup="GrpModulo" Enabled="false"></asp:DropDownList>
<label for="<%= DdlActivoFijo.ClientID.ToString()%>">Activo Fijo: </label> <label for="<%= DdlActivoFijo.ClientID.ToString()%>">Activo Fijo: </label>
</div> </div>
<div class="form-group form-md-line-input input-iconright" id="divSubProyectos" runat="server" visible="false"> <div class="form-group form-md-line-input input-iconright" id="divSubProyectos" runat="server" visible="false">
@@ -249,7 +249,7 @@
<div class="row"> <div class="row">
<div class="col-md-6" style="width:50%;text-align:left"> <div class="col-md-6" style="width:50%;text-align:left">
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlCuentaGlobal" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="CveCuenta" Width="240px" ValidationGroup="GrpModulo2"></asp:DropDownList> <asp:DropDownList ID="DdlCuentaGlobal" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" DataTextField="CtaCodigo" DataValueField="CveCuenta" Width="240px" ValidationGroup="GrpModulo2"></asp:DropDownList>
<label for="<%= DdlCuentaGlobal.ClientID.ToString()%>">Cuenta Contable: </label> <label for="<%= DdlCuentaGlobal.ClientID.ToString()%>">Cuenta Contable: </label>
</div> </div>
</div> </div>

25
Contabilidad2/RepAnexoCatalogo.aspx
View File

@@ -49,18 +49,7 @@
<asp:RequiredFieldValidator ID="RFVDdlCuentas" runat="server" InitialValue="-1" ControlToValidate="DdlCuentas" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpConsulta"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVDdlCuentas" runat="server" InitialValue="-1" ControlToValidate="DdlCuentas" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpConsulta"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="CERFVDdlCuentas" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlCuentas" Width="350px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="CERFVDdlCuentas" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlCuentas" Width="350px"></ajax:ValidatorCalloutExtender>
</div> </div>
<div class="col-md-1 truncate">
Tipo Movto
</div>
<div class="col-md-2 truncate">
<asp:DropDownList ID="DdlCuenta" runat="server" DataTextField="Cuenta" DataValueField="CveCuenta" TabIndex="4" CssClass="form-control input-sm select2me" Width="100%">
<asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
<asp:ListItem Text="Con movimientos" Value="1"></asp:ListItem>
<asp:ListItem Text="Saldo actual no igual a cero" Value="2"></asp:ListItem>
<asp:ListItem Text="Con movimientos y saldo no igual a cero" Value="3"></asp:ListItem>
<asp:ListItem Text="Con movimientos o saldo no igual a cero" Value="4"></asp:ListItem>
</asp:DropDownList>
</div>
<div class="col-md-1 truncate"> <div class="col-md-1 truncate">
Fecha Inicio: Fecha Inicio:
</div> </div>
@@ -100,6 +89,18 @@
</div> </div>
<div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>> <div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
<div class="row"> <div class="row">
<div class="col-md-1 truncate">
Tipo Movto
</div>
<div class="col-md-2 truncate">
<asp:DropDownList ID="DdlCuenta" runat="server" DataTextField="Cuenta" DataValueField="CveCuenta" TabIndex="4" CssClass="form-control input-sm select2me" Width="100%">
<asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
<asp:ListItem Text="Con movimientos" Value="1"></asp:ListItem>
<asp:ListItem Text="Saldo actual no igual a cero" Value="2"></asp:ListItem>
<asp:ListItem Text="Con movimientos y saldo no igual a cero" Value="3"></asp:ListItem>
<asp:ListItem Text="Con movimientos o saldo no igual a cero" Value="4"></asp:ListItem>
</asp:DropDownList>
</div>
<div class="col-md-1 truncate" id="tdTipoReporte" visible="true"> <div class="col-md-1 truncate" id="tdTipoReporte" visible="true">
Tipo Tipo
</div> </div>

9240
Empresas/1/Formatos/Factura.rdlc
View File

File diff suppressed because it is too large Load Diff

7832
Empresas/132/Formatos/Factura.rdlc
View File

File diff suppressed because it is too large Load Diff

146
Empresas/141/Formatos/Factura.rdlc
View File

@@ -152,6 +152,10 @@
<DataField>PorcentajeIVA</DataField> <DataField>PorcentajeIVA</DataField>
<rd:TypeName>System.String</rd:TypeName> <rd:TypeName>System.String</rd:TypeName>
</Field> </Field>
<Field Name="CodigoObjetoImpuesto">
<DataField>CodigoObjetoImpuesto</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
</Fields> </Fields>
<rd:DataSetInfo> <rd:DataSetInfo>
<rd:DataSetName>DsOC</rd:DataSetName> <rd:DataSetName>DsOC</rd:DataSetName>
@@ -448,7 +452,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>Este documento es una representación impresa de un CFDI </Value> <Value>Este documento es una representación impresa de un CFDI </Value>
<Style> <Style>
<FontFamily>calibri</FontFamily> <FontFamily>calibri</FontFamily>
<FontSize>6pt</FontSize> <FontSize>6pt</FontSize>
@@ -456,7 +460,23 @@
</Style> </Style>
</TextRun> </TextRun>
<TextRun> <TextRun>
<Value>VERSION 3.3</Value> <Value>VERSION </Value>
<Style>
<FontFamily>MYRiad Pro</FontFamily>
<FontSize>6pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value>=Parameters!CFDIVersion.Value</Value>
<Style>
<FontFamily>MYRiad Pro</FontFamily>
<FontSize>6pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value xml:space="preserve"> </Value>
<Style> <Style>
<FontFamily>MYRiad Pro</FontFamily> <FontFamily>MYRiad Pro</FontFamily>
<FontSize>6pt</FontSize> <FontSize>6pt</FontSize>
@@ -511,16 +531,19 @@
<Width>0.66404in</Width> <Width>0.66404in</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>2.60074in</Width> <Width>2.11562in</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>0.83102in</Width> <Width>0.6863in</Width>
</TablixColumn>
<TablixColumn>
<Width>0.69852in</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>0.6403in</Width> <Width>0.6403in</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>0.69088in</Width> <Width>0.67895in</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>0.80447in</Width> <Width>0.80447in</Width>
@@ -743,6 +766,50 @@
</Textbox> </Textbox>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox26">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Obj. Imp.</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Left</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox26</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
</Border>
<TopBorder>
<Color>Black</Color>
<Style>Solid</Style>
<Width>2pt</Width>
</TopBorder>
<BottomBorder>
<Color>Black</Color>
<Style>Solid</Style>
<Width>2pt</Width>
</BottomBorder>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell> <TablixCell>
<CellContents> <CellContents>
<Textbox Name="Textbox53"> <Textbox Name="Textbox53">
@@ -1103,6 +1170,41 @@
</Textbox> </Textbox>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="CodigoObjetoImpuesto">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!CodigoObjetoImpuesto.Value</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>8pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Left</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>CodigoObjetoImpuesto</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell> <TablixCell>
<CellContents> <CellContents>
<Textbox Name="PU1"> <Textbox Name="PU1">
@@ -1267,6 +1369,7 @@
<TablixMember /> <TablixMember />
<TablixMember /> <TablixMember />
<TablixMember /> <TablixMember />
<TablixMember />
</TablixMembers> </TablixMembers>
</TablixColumnHierarchy> </TablixColumnHierarchy>
<TablixRowHierarchy> <TablixRowHierarchy>
@@ -1283,7 +1386,7 @@
<Top>1.75278in</Top> <Top>1.75278in</Top>
<Left>0.09836in</Left> <Left>0.09836in</Left>
<Height>0.36206in</Height> <Height>0.36206in</Height>
<Width>8.16629in</Width> <Width>8.22304in</Width>
<ZIndex>1</ZIndex> <ZIndex>1</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -2015,6 +2118,25 @@
</TextRuns> </TextRuns>
<Style /> <Style />
</Paragraph> </Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Reg.fiscal: </Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value>=Parameters!RegimenFiscalCodigo.Value</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox4</rd:DefaultName> <rd:DefaultName>Textbox4</rd:DefaultName>
<Top>3.56339cm</Top> <Top>3.56339cm</Top>
@@ -4635,6 +4757,18 @@
<AllowBlank>true</AllowBlank> <AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
<ReportParameter Name="CFDIVersion">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="RegimenFiscalCodigo">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters> </ReportParameters>
<EmbeddedImages> <EmbeddedImages>
<EmbeddedImage Name="ID2"> <EmbeddedImage Name="ID2">

4
Inicio.aspx.vb
View File

@@ -152,10 +152,6 @@ Partial Class Inicio
Response.Redirect("/PortalProveedor/PortalProveedor.aspx") Response.Redirect("/PortalProveedor/PortalProveedor.aspx")
End If End If
If UsuarioActual.CveEmpresa = 66 Then
LtlTitulo.Text = "Sistema Integral de Información Gluyas"
End If
If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaContabilidad Then If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaContabilidad Then
Dim ObjPolizas As New ClsContPAQi(UsuarioActual.Empresa) Dim ObjPolizas As New ClsContPAQi(UsuarioActual.Empresa)
If ObjPolizas.GetPolizasCuadre() And ObjPolizas.DtResultados.Rows.Count > 0 Then If ObjPolizas.GetPolizasCuadre() And ObjPolizas.DtResultados.Rows.Count > 0 Then

3
Inventarios/Kardex.aspx
View File

@@ -164,13 +164,12 @@
</div> </div>
<div class="titlefiltros caption "> <div class="titlefiltros caption ">
<div class="row" style="padding-top: 10px; position: relative;"> <div class="row" style="padding-top: 10px; position: relative;">
<asp:Label runat="server" ID="LblPS" CssClass="col-md-1 truncate" Style="max-width: 80px;">Producto:</asp:Label> <asp:Label runat="server" ID="LblPS" CssClass="col-md-1 truncate" Style="max-width: 80px;">Producto:</asp:Label>
<div class="col-md-2 " style="min-width: 250px; max-width: 300px;"> <div class="col-md-2 " style="min-width: 250px; max-width: 300px;">
<ADS:Dropdownlost ID="ddlProducto2" runat="server" AutoPostBack="False" DataTextField="PSCodigo" IncluyeTodos="false" DataValueField="CvePS" CssClassDdl="select2me" CssStyle="width: 250px; "></ADS:Dropdownlost> <ADS:Dropdownlost ID="ddlProducto2" runat="server" AutoPostBack="False" DataTextField="PSCodigo" IncluyeTodos="false" DataValueField="CvePS" CssClassDdl="select2me" CssStyle="width: 250px; "></ADS:Dropdownlost>
</div> </div>
<label class="col-md-1 truncate" style="max-width: 80px;">Almacén:</label> <label class="col-md-1 truncate" style="max-width: 80px;" id="lblAlm" runat="server">Almacén:</label>
<div class="col-md-2"> <div class="col-md-2">
<%--<asp:DropDownList ID="ddlAlmacen" runat="server" CssClass="select2me " Style="width: 175px !important;" DataTextField="Almacen" DataValueField="CveAlmacen"></asp:DropDownList>--%> <%--<asp:DropDownList ID="ddlAlmacen" runat="server" CssClass="select2me " Style="width: 175px !important;" DataTextField="Almacen" DataValueField="CveAlmacen"></asp:DropDownList>--%>
<asp:ListBox ID="ddlAlmacen" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" CssClass="ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server" DataTextField="Almacen" DataValueField="CveAlmacen"></asp:ListBox> <asp:ListBox ID="ddlAlmacen" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" CssClass="ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server" DataTextField="Almacen" DataValueField="CveAlmacen"></asp:ListBox>

2
Inventarios/Kardex.aspx.vb
View File

@@ -54,6 +54,7 @@ Partial Class Inventarios_Kardex
If UsuarioActual.CveUsuario = 100 Then If UsuarioActual.CveUsuario = 100 Then
LblPS.ToolTip = ddlProducto2.SelectedValue LblPS.ToolTip = ddlProducto2.SelectedValue
lblAlm.InnerText = ddlProducto2.SelectedValue
End If End If
End If End If
@@ -180,6 +181,7 @@ Partial Class Inventarios_Kardex
If UsuarioActual.CveUsuario = 100 Then If UsuarioActual.CveUsuario = 100 Then
LblPS.ToolTip = ddlProducto2.SelectedValue LblPS.ToolTip = ddlProducto2.SelectedValue
lblAlm.InnerText = ddlProducto2.SelectedValue
End If End If
TxtSerie.Text = "" TxtSerie.Text = ""

11
Inventarios/KardexAlmacenHorizontal.aspx.vb
View File

@@ -39,11 +39,12 @@ Partial Class Inventarios_KardexAlmacen
CargaFuncionalidad105() CargaFuncionalidad105()
CargaPS() CargaPS()
Using ObjPS As New ClsProductosServicios 'Using ObjPS As New ClsProductosServicios
If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then ' If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
DdlMarca.DataSource = ObjPS.DtResultados.Copy().FiltraParametros("", Orderby:="Marca") ' DdlMarca.DataSource = ObjPS.DtResultados.Copy().FiltraParametros("", Orderby:="Marca")
End If ' End If
End Using 'End Using
DdlMarca.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
DdlMarca.DataBind() DdlMarca.DataBind()
DdlMarca.Items.Insert(0, New ListItem("Todos", "-1")) DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))

7
Inventarios/RecepcionAlmacen.aspx.vb
View File

@@ -4350,8 +4350,6 @@ Partial Class Inventarios_RecepcionAlmacen
TipoCambio = 0 TipoCambio = 0
TipoMovimiento = 1 TipoMovimiento = 1
If ObjInventario.RecepcionAlmacenOCGet(CveOC, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then If ObjInventario.RecepcionAlmacenOCGet(CveOC, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
DtDatosDetalle = Nothing DtDatosDetalle = Nothing
CreaDtDetalle() CreaDtDetalle()
@@ -4359,7 +4357,10 @@ Partial Class Inventarios_RecepcionAlmacen
CreaDtLoteDetalle() CreaDtLoteDetalle()
CreaDTInv(ObjInventario.DtResultados.FiltraParametros("CantidadCompra = 0")) CreaDTInv(ObjInventario.DtResultados.FiltraParametros("CantidadCompra = 0"))
BtnGuardar.Visible = True BtnGuardar.Visible = True
'cuando están todos los detalles de la compra, nos indica que se va a recibir la totalidad de la compra
If DtDatosDetalle.Rows.Count = DtDatosDetalle.Rows(0)("NumDetalles").ToString.ToEntero Then
RecibidaCompleta = True
End If
''MONEDA DIFERENTE ''MONEDA DIFERENTE
If CveMoneda <> 1 Then If CveMoneda <> 1 Then

41
Inventarios/RepEntregaAlmacenRuta.aspx
View File

@@ -103,49 +103,44 @@
DataKeyNames="CveSubProyecto, CveEntregaAlmacen,Estatus,CveCliente,CveDireccionOrigen,CveDireccionDestino,CveCamion,CveChofer,FechaEntrega,CveAlmacen,Tipo,AplicaCP,RFCReceptor,RFCEmisor,CveTimbre,CvePAC,FolioFiscal,TimbreTipoDocto,CveMovimiento,FechaLlegada,CveCamionRemolque1,CveCamionRemolque2,Distancia,CveConfigAutoTransporte,SerieFolio,DireccionOrigen,Direccion" DataKeyNames="CveSubProyecto, CveEntregaAlmacen,Estatus,CveCliente,CveDireccionOrigen,CveDireccionDestino,CveCamion,CveChofer,FechaEntrega,CveAlmacen,Tipo,AplicaCP,RFCReceptor,RFCEmisor,CveTimbre,CvePAC,FolioFiscal,TimbreTipoDocto,CveMovimiento,FechaLlegada,CveCamionRemolque1,CveCamionRemolque2,Distancia,CveConfigAutoTransporte,SerieFolio,DireccionOrigen,Direccion"
AutoGenerateColumns="False" EmptyDataText="No se encontraron Registros con los filtros especificados" CssClass="table table-striped table-advance table-hover Widthall mysmallbtn ScrollAD" data-sort="true" GridLines="None" AutoGenerateColumns="False" EmptyDataText="No se encontraron Registros con los filtros especificados" CssClass="table table-striped table-advance table-hover Widthall mysmallbtn ScrollAD" data-sort="true" GridLines="None"
EmptyDataRowStyle-HorizontalAlign="Center" OnRowDataBound="GVDatos_RowDataBound"> EmptyDataRowStyle-HorizontalAlign="Center" OnRowDataBound="GVDatos_RowDataBound">
<Columns> <Columns>
<asp:TemplateField HeaderStyle-HorizontalAlign="Left" HeaderText="Tipo">
<asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" HeaderText="Tipo">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LtTipo" runat="server" Text='<%# Eval("TipoDescripcion") %>'></asp:Label> <asp:Label ID="LtTipo" runat="server" Text='<%# Eval("TipoDescripcion") %>'></asp:Label>
</ItemTemplate> </ItemTemplate>
<HeaderStyle HorizontalAlign="Left" /> <HeaderStyle HorizontalAlign="Left" />
<ItemStyle HorizontalAlign="Left" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" HeaderText="CP"> <asp:TemplateField HeaderStyle-HorizontalAlign="Left" HeaderText="CP">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtCP" runat="server" Text='<%# Eval("AplicaCP").ToString()=="True"?"Si":"No" %>'></asp:Literal> <asp:Literal ID="LtCP" runat="server" Text='<%# Eval("AplicaCP").ToString()=="True"?"Si":"No" %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
<HeaderStyle HorizontalAlign="Left" /> <HeaderStyle HorizontalAlign="Left" />
<ItemStyle HorizontalAlign="Left" />
</asp:TemplateField> </asp:TemplateField>
<asp:BoundField DataField="SubProyecto" HeaderText="Sucursal"> <asp:BoundField DataField="SubProyecto" HeaderText="Sucursal">
</asp:BoundField> </asp:BoundField>
<asp:BoundField DataField="SerieFolio" HeaderText="Folio" ItemStyle-HorizontalAlign="Left" > <asp:BoundField DataField="SerieFolio" HeaderText="Folio" >
<ItemStyle HorizontalAlign="Left" />
</asp:BoundField> </asp:BoundField>
<asp:BoundField DataField="Nombre" HeaderText="Cliente" ItemStyle-HorizontalAlign="Left" >
<ItemStyle HorizontalAlign="Left" /> <asp:BoundField DataField="Nombre" HeaderText="Cliente" >
</asp:BoundField> </asp:BoundField>
<asp:HyperLinkField DataTextField="FolioAlmacen" HeaderText="Folio Alm" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" DataNavigateUrlFields="CveMovimiento" ControlStyle-CssClass="Texto" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField DataField="EnvioDireccionOrigen" HeaderText="Dirección" >
<asp:BoundField DataField="Chofer" HeaderText="Operador" ItemStyle-HorizontalAlign="Left" >
<ItemStyle HorizontalAlign="Left" />
</asp:BoundField> </asp:BoundField>
<asp:BoundField DataField="Unidad" HeaderText="Unidad" ItemStyle-HorizontalAlign="Left" > <asp:HyperLinkField DataTextField="FolioAlmacen" HeaderText="Folio Alm" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" DataNavigateUrlFields="CveMovimiento" ControlStyle-CssClass="Texto" />
<ItemStyle HorizontalAlign="Left" /> <asp:BoundField DataField="Chofer" HeaderText="Operador" >
</asp:BoundField> </asp:BoundField>
<asp:BoundField DataField="EstatusStr" HeaderText="Estatus" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Left" > <asp:BoundField DataField="Unidad" HeaderText="Unidad" >
</asp:BoundField>
<ItemStyle HorizontalAlign="Left" Width="10%" /> <asp:BoundField DataField="EstatusStr" HeaderText="Estatus" >
</asp:BoundField> </asp:BoundField>
<asp:BoundField DataField="FechaEntrega" HeaderText="Fecha Entrega" ItemStyle-Width="4%" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-HorizontalAlign="Center" > <asp:BoundField DataField="FechaEntrega" HeaderText="Fecha Entrega" ItemStyle-Width="4%" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-HorizontalAlign="Center" >
<ItemStyle HorizontalAlign="Center" Width="4%" /> <ItemStyle HorizontalAlign="Center" Width="4%" />
</asp:BoundField> </asp:BoundField>
<asp:BoundField DataField="FolioReferencia" HeaderText="Folio Ref" >
<asp:TemplateField ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" HeaderText="Opciones"> </asp:BoundField>
<asp:TemplateField ItemStyle-Width="75px" HeaderStyle-HorizontalAlign="Left" HeaderText="Opciones">
<ItemTemplate> <ItemTemplate>
<asp:LinkButton ID="LnkEditar" runat="server" OnClick="imgEditar_Click" AlternateText="Editar" ToolTip="Actualizar" CausesValidation="False" CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-pencil'></i>" /> <asp:LinkButton ID="LnkEditar" runat="server" OnClick="imgEditar_Click" AlternateText="Editar" ToolTip="Actualizar" CausesValidation="False" CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-pencil'></i>" />
<asp:LinkButton ID="LnkTimbrar" runat="server" OnClick="LnkTimbrar_Click" AlternateText="Timbrar" ToolTip="Timbrar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-external-link'></i>" /> <asp:LinkButton ID="LnkTimbrar" runat="server" OnClick="LnkTimbrar_Click" AlternateText="Timbrar" ToolTip="Timbrar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-external-link'></i>" />
@@ -156,7 +151,7 @@
<ItemStyle HorizontalAlign="Left" Width="75px" /> <ItemStyle HorizontalAlign="Left" Width="75px" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField ItemStyle-Width="50px" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Center" HeaderText="Direcciones" Visible="false"> <asp:TemplateField ItemStyle-Width="50px" HeaderStyle-HorizontalAlign="Center" HeaderText="Direcciones" Visible="false">
<ItemTemplate> <ItemTemplate>
<asp:LinkButton ID="LnkEditarDirOrigen" Visible="false" runat="server" OnClick="EditDireccionOrigen_Click" AlternateText="Editar" ToolTip="Actualizar dirección Origen" CausesValidation="False" CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-location-arrow'></i>" /> <asp:LinkButton ID="LnkEditarDirOrigen" Visible="false" runat="server" OnClick="EditDireccionOrigen_Click" AlternateText="Editar" ToolTip="Actualizar dirección Origen" CausesValidation="False" CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-location-arrow'></i>" />
<asp:LinkButton ID="LnkEditarDirDestino" Visible="false" runat="server" OnClick="EditDireccionDestino_Click" AlternateText="Editar" ToolTip="Actualizar dirección Destino" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-location-arrow'></i>" /> <asp:LinkButton ID="LnkEditarDirDestino" Visible="false" runat="server" OnClick="EditDireccionDestino_Click" AlternateText="Editar" ToolTip="Actualizar dirección Destino" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-location-arrow'></i>" />

2
Inventarios/RepEntregaAlmacenRuta.aspx.cs
View File

@@ -619,7 +619,7 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
{ {
if (e.Row.RowType == DataControlRowType.DataRow) if (e.Row.RowType == DataControlRowType.DataRow)
{ {
e.Row.Cells[11].Text = ""; e.Row.Cells[13].Text = "";
LinkButton LnkEditar = e.Row.FCLinkButton("LnkEditar"); LinkButton LnkEditar = e.Row.FCLinkButton("LnkEditar");
LinkButton LnkTimbrar = e.Row.FCLinkButton("LnkTimbrar"); LinkButton LnkTimbrar = e.Row.FCLinkButton("LnkTimbrar");
LinkButton LnkCancelaTimbre = e.Row.FCLinkButton("LnkCancelaTimbre"); LinkButton LnkCancelaTimbre = e.Row.FCLinkButton("LnkCancelaTimbre");

18
Ventas/CatClasificaciones.aspx.vb
View File

@@ -225,7 +225,18 @@ Partial Class CatClasificaciones
Private Sub CargaCuentasContables(Optional IdCuentaPadre As Integer = -1) Private Sub CargaCuentasContables(Optional IdCuentaPadre As Integer = -1)
If UsuarioActual.Empresa.TipoContabilizacion = 1 Then If UsuarioActual.Empresa.TipoContabilidad = 1 Then
DdlCuentaGasto.DataValueField = "CveCuenta"
DdlCuentaGasto.DataTextField = "Cuenta"
Dim ObjContabilidad As New ClsContabilidad
If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
DtCuentasContables = ObjContabilidad.DtResultados
'Cuenta, CtaCodigo
DtCuentasContables.Columns("CtaCodigo").ColumnName = "Cuenta"
End If
ObjContabilidad.Dispose()
ElseIf UsuarioActual.Empresa.TipoContabilizacion = 1 Then
Dim ObjEmpresa As New ClsSisEmpresas Dim ObjEmpresa As New ClsSisEmpresas
Dim Empresa As Empresa = Nothing Dim Empresa As Empresa = Nothing
@@ -238,9 +249,8 @@ Partial Class CatClasificaciones
ObjContabilidad.Dispose() ObjContabilidad.Dispose()
End If End If
ObjEmpresa.Dispose() ObjEmpresa.Dispose()
ElseIf UsuarioActual.Empresa.TipoContabilizacion = 2 Then
DdlCuentaGasto.DataValueField = "CveCuenta"
DdlCuentaGasto.DataTextField = "Cuenta"
End If End If

18
Ventas/Clientes.aspx.vb
View File

@@ -1858,7 +1858,8 @@ Partial Class Clientes
'Ocultamos la mayoria de informacion si es no-frecuente 'Ocultamos la mayoria de informacion si es no-frecuente
If ObjClientes.TipoCliente = 2 Then If ObjClientes.TipoCliente = 2 Then
TabFiscalContable.Visible = False If UsuarioActual.CveEmpresa <> 141 Then TabFiscalContable.Visible = False
TabCxC.Visible = False TabCxC.Visible = False
'TabAnticipos.Visible = False 'TabAnticipos.Visible = False
TabRetenciones.Visible = False TabRetenciones.Visible = False
@@ -2510,12 +2511,12 @@ Partial Class Clientes
If DdlPais.SelectedValue.ToEntero() = 151 Then If DdlPais.SelectedValue.ToEntero() = 151 Then
If Not DdlMunicipio.SelectedValue.ToEntero() > 0 Then If Not DdlMunicipio.SelectedValue.ToEntero() > 0 Then
Alert("Tiene que seleccionar un municipio para comercio exterior si el pais es mexico.", TipoMensaje.MsgAdvertencia) Alert("Tiene que seleccionar un municipio para comercio exterior si el pais es méxico.", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
End If End If
If Not DdlColonia.SelectedValue.ToEntero() > 0 Then If Not DdlColonia.SelectedValue.ToEntero() > 0 Then
Alert("Tiene que seleccionar una colonia para comercio exterior si el pais es mexico.", TipoMensaje.MsgAdvertencia) Alert("Tiene que seleccionar una colonia para comercio exterior si el pais es méxico.", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
End If End If
End If End If
@@ -2533,7 +2534,7 @@ Partial Class Clientes
If TxtRFC.Text.ToUpper.Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlUsoCFDI.SelectedValue <> "23" Then If TxtRFC.Text.ToUpper.Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlUsoCFDI.SelectedValue <> "23" Then
Alert("El Regimen fiscal del cliente debe ser <b>'S01 - Sin efectos fiscales'</b> cuando se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia) Alert("El uso del cfdi debe ser <b>'S01 - Sin efectos fiscales'</b> cuando se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
End If End If
@@ -8739,10 +8740,11 @@ Partial Class Clientes
DTPorcentajePrecios = DTPorcentajeTemp.Clone DTPorcentajePrecios = DTPorcentajeTemp.Clone
End Sub End Sub
Private Sub CargaMarcas() Private Sub CargaMarcas()
Dim ObjMarcas As New ClsProductosServicios 'Dim ObjMarcas As New ClsProductosServicios
ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) 'ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa)
DdlMarcaPS.DataSource = ObjMarcas.DtResultados 'DdlMarcaPS.DataSource = ObjMarcas.DtResultados
ObjMarcas.Dispose() 'ObjMarcas.Dispose()
DdlMarcaPS.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
DdlMarcaPS.DataBind() DdlMarcaPS.DataBind()
DdlMarcaPS.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlMarcaPS.Items.Insert(0, New ListItem("Seleccione", "-1"))

2
Ventas/ClientesAbonar.aspx.vb
View File

@@ -985,7 +985,7 @@ Partial Class Ventas_ClientesAbonar
IdCtaContable = If(EsAnticipoEspecial, IdCtaContMonedaComplementariaAnticipo, IdCtaContComplementaria) IdCtaContable = If(EsAnticipoEspecial, IdCtaContMonedaComplementariaAnticipo, IdCtaContComplementaria)
If ImporteMovimiento <> 0 Then If ImporteMovimiento <> 0 Then
ImporteMN = ImporteMovimiento ImporteMN = ImporteMovimiento
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Referencia, If(gvr.DataKey("TipoDocto") = "Ant" AndAlso UsuarioActual.CveEmpresa.Contiene(119, 158), 226, 207), ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, -1, gvr.DataKey("CveVenta").ToEntero, -1, CveSubProyectoContabilizar, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=(ImporteMovimiento * tipoCambioVentaValuacion - ImporteMovimiento).RoundSQL, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioVentaValuacion) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Referencia, If(gvr.DataKey("TipoDocto") = "Ant" AndAlso UsuarioActual.CveEmpresa.Contiene(119, 158), 226, 207), ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, CveIE, gvr.DataKey("CveVenta").ToEntero, -1, CveSubProyectoContabilizar, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=(ImporteMovimiento * tipoCambioVentaValuacion - ImporteMovimiento).RoundSQL, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioVentaValuacion) Then
MsgError = "No se pudo insertar la póliza" MsgError = "No se pudo insertar la póliza"
End If End If
End If End If

21
Ventas/PV.aspx.vb
View File

@@ -1375,16 +1375,17 @@ Partial Class PV
Private Sub CargaMarcasFiltro() Private Sub CargaMarcasFiltro()
Using ObjMarcas As New ClsProductosServicios Using ObjMarcas As New ClsProductosServicios
If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then 'If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then
DdlMarcaPS.DataSource = ObjMarcas.DtResultados.Copy() ' DdlMarcaPS.DataSource = ObjMarcas.DtResultados.Copy()
DdlMarcaPSAjuste.DataSource = ObjMarcas.DtResultados.Copy() ' DdlMarcaPSAjuste.DataSource = ObjMarcas.DtResultados.Copy()
End If 'End If
If ObjMarcas.GetMarcasUsados(UsuarioActual.CveEmpresa) Then If ObjMarcas.GetMarcasUsados(UsuarioActual.CveEmpresa) Then
DdlMarcaUsado.DataSource = ObjMarcas.DtResultados.Copy() DdlMarcaUsado.DataSource = ObjMarcas.DtResultados.Copy()
End If End If
End Using End Using
DdlMarcaPS.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
DdlMarcaPS.DataBind() DdlMarcaPS.DataBind()
DdlMarcaPSAjuste.DataBind() DdlMarcaPSAjuste.DataBind()
DdlMarcaUsado.DataBind() DdlMarcaUsado.DataBind()
@@ -6639,11 +6640,13 @@ Partial Class PV
End If End If
DdlMarca.Items.Clear() DdlMarca.Items.Clear()
DdlMarcaPSDes.Items.Clear() DdlMarcaPSDes.Items.Clear()
Dim ObjMarcas As New ClsProductosServicios 'Dim ObjMarcas As New ClsProductosServicios
ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) 'ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa)
DdlMarca.DataSource = ObjMarcas.DtResultados 'DdlMarca.DataSource = ObjMarcas.DtResultados
DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados 'DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados
ObjMarcas.Dispose() 'ObjMarcas.Dispose()
DdlMarca.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
DdlMarcaPSDes.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
DdlMarca.DataBind() DdlMarca.DataBind()
DdlMarcaPSDes.DataBind() DdlMarcaPSDes.DataBind()
End If End If

32
Ventas/RepLineasAdicionales.aspx
View File

@@ -39,14 +39,14 @@
<div class="titlefiltros caption"> <div class="titlefiltros caption">
<div class="row"> <div class="row">
<div class="col-md-1 truncate" runat="server" id="DVProveedor1" visible="false">Proveedor:</div> <div class="col-md-1 truncate" runat="server" id="DVProveedor1" visible="false">Comercializador:</div>
<div class="col-md-2" runat="server" id="DVProveedor2" visible="false"> <div class="col-md-2" runat="server" id="DVProveedor2" visible="false">
<ADS:Dropdownlost ID="DdlProveedor" SelectedText="-" runat="server" CssStyle="width: 100%; selected2me; " Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor" CssClass="select2me"></ADS:Dropdownlost> <ADS:Dropdownlost ID="DdlProveedor" SelectedText="-" runat="server" CssStyle="width: 100%; selected2me; " Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor" CssClass="select2me"></ADS:Dropdownlost>
</div> </div>
<div class="col-md-1 truncate" >Cliente:</div> <div class="col-md-1 truncate" >Cliente:</div>
<div class="col-md-2 "> <div class="col-md-2 ">
<ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost> <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" UsaWebService="true" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
</div> </div>
<div class="col-md-1 truncate" >Estatus:</div> <div class="col-md-1 truncate" >Estatus:</div>
@@ -54,7 +54,7 @@
<asp:DropDownList runat="server" ID="DdlEstatus" CssClass="select2me" Width="100%"> <asp:DropDownList runat="server" ID="DdlEstatus" CssClass="select2me" Width="100%">
<asp:ListItem Text="Todos" Value="-1"></asp:ListItem> <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
<%--<asp:ListItem Text="Registrado" Value="0" ></asp:ListItem> --%> <%--<asp:ListItem Text="Registrado" Value="0" ></asp:ListItem> --%>
<asp:ListItem Text="Vinculado" Value="1" Selected="True"></asp:ListItem> <asp:ListItem Text="Pendiente" Value="1" Selected="True"></asp:ListItem>
<asp:ListItem Text="Enviado" Value="2"></asp:ListItem> <asp:ListItem Text="Enviado" Value="2"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</div> </div>
@@ -95,8 +95,8 @@
<div class="row " runat="server" visible ="false" id="DvLineaPO"> <div class="row " runat="server" visible ="false" id="DvLineaPO">
<div class=" col-md-12" style="text-align: right!important"> <div class=" col-md-12" style="text-align: right!important">
<input type="text" id="TxtBuscarLineaAdicionalpo" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBuscarLineaAdicional','{0}')", GvLineasAdicionalesPO.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" /> <input type="text" id="TxtBuscarLineaAdicionalpo" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBuscarLineaAdicional','{0}')", GvLAPO.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBuscarLineaAdicional','{0}')", GvLineasAdicionalesPO.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a> <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBuscarLineaAdicional','{0}')", GvLAPO.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div> </div>
</div> </div>
@@ -117,29 +117,27 @@
<asp:HyperLinkField DataTextField="SerieFolio" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" HeaderText="Serie Folio" /> <asp:HyperLinkField DataTextField="SerieFolio" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" HeaderText="Serie Folio" />
<asp:BoundField DataField="Saldo" HeaderText="Saldo" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField DataField="Saldo" HeaderText="Saldo" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataField="DiasVencimiento" HeaderText="Dias de Venc." /> <asp:BoundField DataField="DiasVencimiento" HeaderText="Dias de Venc." />
<asp:BoundField DataField="Estatus" HeaderText="Estatus" /> <asp:BoundField DataField="Estatus" HeaderText="Estatus" />
<asp:BoundField DataField="Usuario" HeaderText="Usuario" />
</Columns> </Columns>
</asp:GridView> </asp:GridView>
<asp:GridView ID="GvLineasAdicionalesPO" Width="100%" runat="server" GridLines="None" Visible="false" <asp:GridView ID="GvLAPO" Width="100%" runat="server" GridLines="None" Visible="false"
DataKeyNames="Agrupador,CveLineaAdicional,LineaAdicional,TipoLinea,Importe,CveMoneda,FechaVencimiento,CveUsuario,CveCategoria,FechaIng,CveLineaAdicionalEstatus,LineaAdicionalComprobante,DiasVencimiento,CveVenta" DataKeyNames="CveLineaAdicional,LineaAdicional,TipoLinea,Importe,CveMoneda,FechaVencimiento,CveUsuario,CveLineaAdicionalEstatus,LineaAdicionalComprobante,CveVenta,CveCliente"
CssClass="table table-striped table-advance table-hover ScrollAD input-sm mysmallbtn" ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true" CssClass="table table-striped table-advance table-hover ScrollAD input-sm mysmallbtn" ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true"
AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False"
OnRowCommand="GvLineasAdicionalesPO_RowCommand" OnRowCommand="GvLAPO_RowCommand"
OnRowDataBound="GvLineasAdicionalesPO_RowDataBound"> OnRowDataBound="GvLAPO_RowDataBound">
<Columns> <Columns>
<asp:BoundField DataField="Agrupador" HeaderText="Agrupador" /> <asp:BoundField DataField="Agrupador" HeaderText="Agrupador" />
<asp:BoundField DataField="LineaAdicional" HeaderText="Linea Adicional" /> <asp:BoundField DataField="LineaAdicional" HeaderText="Linea Adicional" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataField="Importe" HeaderText="Importe" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField DataField="Importe" HeaderText="Importe" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataField="Abreviatura" HeaderText="Moneda" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField DataField="Abreviatura" HeaderText="Mon" ItemStyle-HorizontalAlign="Right" />
<asp:HyperLinkField DataTextField="SerieFolio" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" HeaderText="Serie Folio" /> <asp:HyperLinkField DataTextField="SerieFolio" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" HeaderText="Serie Folio" />
<asp:BoundField DataField="Saldo" HeaderText="Saldo" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField DataField="Saldo" HeaderText="Saldo" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataField="DiasVencimiento" HeaderText="Dias de Venc." ItemStyle-HorizontalAlign="Right" /> <asp:BoundField DataField="DiasVencimiento" HeaderText="Dias de Venc." ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataField="Estatus" HeaderText="Estatus" /> <asp:BoundField DataField="Estatus" HeaderText="Estatus" />
<asp:BoundField DataField="Usuario" HeaderText="Usuario" />
<asp:TemplateField HeaderText="Opciones" ItemStyle-Width="100px" HeaderStyle-Width="100px"> <asp:TemplateField HeaderText="Opciones" ItemStyle-Width="100px" HeaderStyle-Width="100px">
<ItemTemplate> <ItemTemplate>
<div class="row" > <div class="row" >
@@ -147,12 +145,10 @@
<asp:LinkButton ID="LnkCargarComprobante" Visible="false" runat="server" AlternateText="Editar" CausesValidation="False" <asp:LinkButton ID="LnkCargarComprobante" Visible="false" runat="server" AlternateText="Editar" CausesValidation="False"
CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-upload'></i>" OnClick="LnkCargarComprobante_Click" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-upload'></i>" OnClick="LnkCargarComprobante_Click"
ToolTip="Cargar Comprobante" /> ToolTip="Cargar Comprobante" />
</div>
<div class="col-md-4" style="max-width:26px!important">
<asp:LinkButton ID="LnkDescargaComprobante" Visible="false" runat="server" AlternateText="Descarga" CausesValidation="False" <asp:LinkButton ID="LnkDescargaComprobante" Visible="false" runat="server" AlternateText="Descarga" CausesValidation="False"
CssClass="btn btn-circle btn-sm yellow" Text="<i class='fa fa-download'></i>" OnClick="LnkDescargaComprobante_Click" CssClass="btn btn-circle btn-sm yellow" Text="<i class='fa fa-download'></i>" OnClick="LnkDescargaComprobante_Click"
ToolTip="Descargar Comprobante" /> ToolTip="Descargar Comprobante" />
</div> </div>
<div class="col-md-4" style="max-width:26px!important" title="Cambiar esatatus a Enviado"> <div class="col-md-4" style="max-width:26px!important" title="Cambiar esatatus a Enviado">
<asp:LinkButton ID="LnkCambiarEstatus" runat="server" Visible="false" AlternateText="CambiarEstatus" <asp:LinkButton ID="LnkCambiarEstatus" runat="server" Visible="false" AlternateText="CambiarEstatus"
CommandName="Estatus" CommandArgument='<%# Eval("CveLineaAdicionalEstatus") %>' CausesValidation="False" CommandName="Estatus" CommandArgument='<%# Eval("CveLineaAdicionalEstatus") %>' CausesValidation="False"

66
Ventas/RepLineasAdicionales.aspx.cs
View File

@@ -73,7 +73,7 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
if (Request["OP"] != null && Request["OP"].ToString() == "PO") if (Request["OP"] != null && Request["OP"].ToString() == "PO")
{ {
DVProveedor1.Visible = true; DVProveedor1.Visible = true;
DVProveedor2.Visible = true; DVProveedor2.Visible = true;
TipoLinea = 2; TipoLinea = 2;
LtlEncabezado.Text = "Reporte PO"; LtlEncabezado.Text = "Reporte PO";
@@ -84,10 +84,7 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
} }
else else
{ {
DvLinea.Visible = true;
GvLineasAdicionales.Visible = true;
}
DvLinea.Visible = true; DvLinea.Visible = true;
GvLineasAdicionales.Visible = true; GvLineasAdicionales.Visible = true;
} }
@@ -147,16 +144,16 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
GvLineasAdicionales.DataSource = null; GvLineasAdicionales.DataSource = null;
} }
} }
else else
{ {
if (DdlAgrupador.SelectedValue.ToEntero()== 1){ if (DdlAgrupador.SelectedValue.ToEntero()== 1){
GvLineasAdicionalesPO.Columns[0].HeaderText = "Comercializador"; GvLAPO.Columns[0].HeaderText = "Comercializador";
} }
else else
{ {
GvLAPO.Columns[0].HeaderText = "Cliente"; GvLAPO.Columns[0].HeaderText = "Cliente";
} }
if (objVentas.RepLineasAdicionales(DdlAgrupador.SelectedValue.ToEntero(), -1, DdlClientes.SelectedValue.ToEntero(), CveProveedor, 2, -1, MinFecha, MaxFecha, DdlEstatus.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa)) if (objVentas.RepLineasAdicionales(DdlAgrupador.SelectedValue.ToEntero(), -1, DdlClientes.SelectedValue.ToEntero(), CveProveedor, 2, -1, MinFecha, MaxFecha, DdlEstatus.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa))
{ {
@@ -167,19 +164,13 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
DTDatosGvLineasAdicionales = objVentas.DtResultados; DTDatosGvLineasAdicionales = objVentas.DtResultados;
LnkDescargaExcel.Visible = true; LnkDescargaExcel.Visible = true;
UpAcciones.Update(); UpAcciones.Update();
} }
} }
else else
{
GvLineasAdicionalesPO.DataSource = null;
}
{ {
GvLAPO.DataSource = null; GvLAPO.DataSource = null;
} }
}
objVentas.Dispose();
objVentas.Dispose(); objVentas.Dispose();
GvLineasAdicionales.DataBind(); GvLineasAdicionales.DataBind();
@@ -273,17 +264,15 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
{ {
errorCargaComprobante = true; errorCargaComprobante = true;
} }
if (!errorCargaComprobante) if (!errorCargaComprobante)
{ {
ClsVentas objVentas = new ClsVentas(); ClsVentas objVentas = new ClsVentas();
if (!objVentas.UpdateLineasAdicionales(CveLineaAdicional, "-1", -1, -1, -1, -1, -1, MinFecha, UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, LineaAdicionalComprobante: $@"{CveVenta}{fiNuevo.Extension}",CveVenta:CveVenta)) if (!objVentas.UpdateLineasAdicionales(CveLineaAdicional, "-1", -1, -1, -1, -1, -1, MinFecha, UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, LineaAdicionalComprobante: $@"{CveVenta}{fiNuevo.Extension}",CveVenta:CveVenta))
{ {
errorCargaComprobante = true; errorCargaComprobante = true;
} }
objVentas.Dispose(); objVentas.Dispose();
}
}
} }
} }
} }
@@ -306,7 +295,7 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
int CveLineaAdicionalActualzarEstatus = GvRow.DataKey("CveLineaAdicional").ToString().ToEntero(); int CveLineaAdicionalActualzarEstatus = GvRow.DataKey("CveLineaAdicional").ToString().ToEntero();
int CveVenta = GvRow.DataKey("CveVenta").ToString().ToEntero(); int CveVenta = GvRow.DataKey("CveVenta").ToString().ToEntero();
bool errorCambioEstatus = false; bool errorCambioEstatus = false;
ClsVentas objVentas = new ClsVentas(); ClsVentas objVentas = new ClsVentas();
@@ -325,21 +314,20 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
protected void LnkDescargaExcel_Click(object sender, EventArgs e) protected void LnkDescargaExcel_Click(object sender, EventArgs e)
{ {
if(TipoLinea == 1) if(TipoLinea == 1)
{ {
GridView gvTemp = GvLineasAdicionales; GridView gvTemp = GvLineasAdicionales;
gvTemp.ExportToExcelx("RepLienasAdicionales"); gvTemp.ExportToExcelx("RepLineasAdicionales" + DateTime.Now.ToShortDateString());
} }
else if(TipoLinea == 2) else if(TipoLinea == 2)
{ {
GridView gvTemp = GvLineasAdicionalesPO; GridView gvTemp = GvLAPO;
gvTemp.Columns[9].Visible = false;
gvTemp.Columns[8].Visible = false; gvTemp.Columns[8].Visible = false;
gvTemp.ExportToExcelx("ReportePO" + DateTime.Now.ToShortDateString()); gvTemp.ExportToExcelx("ReportePO" + DateTime.Now.ToShortDateString());
} }
} }
@@ -349,9 +337,16 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
{ {
LinkButton LnkCambiarEstatus = e.Row.FCLinkButton("LnkCambiarEstatus"); LinkButton LnkCambiarEstatus = e.Row.FCLinkButton("LnkCambiarEstatus");
LinkButton LnkCargarComprobante = e.Row.FCLinkButton("LnkCargarComprobante"); LinkButton LnkCargarComprobante = e.Row.FCLinkButton("LnkCargarComprobante");
LinkButton LnkDescargaComprobante = e.Row.FCLinkButton("LnkDescargaComprobante"); LinkButton LnkDescargaComprobante = e.Row.FCLinkButton("LnkDescargaComprobante");
if (e.Row.DataKey("CveLineaAdicional")=="")
{
if (e.Row.DataKey("CveLineaAdicional") == "" && e.Row.DataKey("CveCliente") == "")
{
e.Row.CssClass = "SubTotales2";
}
else else
{ {
e.Row.CssClass = "SubTotales"; e.Row.CssClass = "SubTotales";
@@ -374,6 +369,7 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
if (fi.Exists) if (fi.Exists)
{ {
LnkDescargaComprobante.Visible = true;
ScriptManager.GetCurrent(this).RegisterPostBackControl(LnkDescargaComprobante); ScriptManager.GetCurrent(this).RegisterPostBackControl(LnkDescargaComprobante);
} }
} }
@@ -396,12 +392,12 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
Response.ContentType = "text/octet-stream"; Response.ContentType = "text/octet-stream";
Response.Flush(); Response.Flush();
Response.TransmitFile(fi.FullName); Response.TransmitFile(fi.FullName);
Response.End(); Response.End();
} }
} }
protected void GvLAPO_RowCommand(object sender, GridViewCommandEventArgs e) protected void GvLAPO_RowCommand(object sender, GridViewCommandEventArgs e)
{ {
if (e.CommandName == "Estatus") if (e.CommandName == "Estatus")
{ {
GridViewRow GvRow = (GridViewRow)((LinkButton)e.CommandSource).NamingContainer; GridViewRow GvRow = (GridViewRow)((LinkButton)e.CommandSource).NamingContainer;
@@ -409,7 +405,7 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
int CveVenta = GvRow.DataKey("CveVenta").ToString().ToEntero(); int CveVenta = GvRow.DataKey("CveVenta").ToString().ToEntero();
bool errorCambioEstatus = false; bool errorCambioEstatus = false;
//int cveestatus = e.CommandArgument.ToEntero() + 2; //pasar al siguiente estatus //int cveestatus = e.CommandArgument.ToEntero() + 2; //pasar al siguiente estatus
ClsVentas objVentas = new ClsVentas(); ClsVentas objVentas = new ClsVentas();

13
Ventas/RepProductosServicios.aspx.vb
View File

@@ -336,12 +336,13 @@ Partial Class Ventas_RepProductosServicios
DivMarca.Visible = True DivMarca.Visible = True
LblMarca.Visible = True LblMarca.Visible = True
Using ObjMarcas As New ClsProductosServicios 'Using ObjMarcas As New ClsProductosServicios
If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then ' If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then
DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados ' DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados
DdlMarcaPSDes.DataBind() ' DdlMarcaPSDes.DataBind()
End If ' End If
End Using 'End Using
DdlMarcaPSDes.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
End If End If
DdlMarcaPSDes.Items.Insert(0, New ListItem(" Todos ", "-1")) DdlMarcaPSDes.Items.Insert(0, New ListItem(" Todos ", "-1"))
End Sub End Sub

20
Ventas/Ventas.aspx.vb
View File

@@ -6185,6 +6185,12 @@ Partial Class Ventas
DdlVendedor.Enabled = False DdlVendedor.Enabled = False
LbAgregar.Enabled = True LbAgregar.Enabled = True
End If End If
ThTiempoEntrega.Visible = True
ThTiempoEntrega2.Visible = True
GvPS.Columns(5).Visible = True
End If End If
ObjCRM.Dispose() ObjCRM.Dispose()
End Sub End Sub
@@ -7821,7 +7827,7 @@ Partial Class Ventas
End If End If
'Si es Cotizacíon 'Si es Cotizacíon
If e.Row.DBCampo("TipoDocto") = "Cot" Then If e.Row.DBCampo("TipoDocto") = "Cot" Or CveEmpresaCRM > 0 Then
ThTiempoEntrega.Visible = True ThTiempoEntrega.Visible = True
ThTiempoEntrega2.Visible = True ThTiempoEntrega2.Visible = True
GvPS.Columns(5).Visible = True GvPS.Columns(5).Visible = True
@@ -25123,11 +25129,13 @@ Partial Class Ventas
End If End If
DdlMarca.Items.Clear() DdlMarca.Items.Clear()
DdlMarcaPSDes.Items.Clear() DdlMarcaPSDes.Items.Clear()
Dim ObjMarcas As New ClsProductosServicios 'Dim ObjMarcas As New ClsProductosServicios
ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) 'ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa)
DdlMarca.DataSource = ObjMarcas.DtResultados 'DdlMarca.DataSource = ObjMarcas.DtResultados
DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados 'DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados
ObjMarcas.Dispose() 'ObjMarcas.Dispose()
DdlMarca.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
DdlMarcaPSDes.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
DdlMarca.DataBind() DdlMarca.DataBind()
DdlMarcaPSDes.DataBind() DdlMarcaPSDes.DataBind()
End If End If

6
vwd.webinfo
View File

@@ -574,6 +574,12 @@