diff --git a/CRM/EmpresaCRM.aspx.cs b/CRM/EmpresaCRM.aspx.cs
index 368e21914..ffe0303e3 100644
--- a/CRM/EmpresaCRM.aspx.cs
+++ b/CRM/EmpresaCRM.aspx.cs
@@ -102,6 +102,11 @@ public partial class CRM_EmpresaCRM : ClsPaginas
{
get
{
+ if (ViewState["DTContactos"] == null)
+ {
+ ViewState["DTContactos"] = new DataTable();
+ }
+
return (DataTable)ViewState["DTContactos"];
}
@@ -137,6 +142,26 @@ public partial class CRM_EmpresaCRM : ClsPaginas
}
}
+ private int VendedorTipo
+ {
+ get
+ {
+ if(ViewState["VendedorTipo"] == null)
+ {
+ ViewState["VendedorTipo"] = -1;
+ }
+ return ViewState["VendedorTipo"].ToString().ToEntero();
+ }
+
+ set
+ {
+ ViewState["VendedorTipo"] = value;
+ }
+ }
+
+
+
+
private int CveSubProyecto
{
get
@@ -154,6 +179,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
{
get
{
+
return (DataTable)ViewState["TempDTContactos"];
}
@@ -749,7 +775,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
CveVendedor = objServicio.Result[0].CveVendedorAsignado.ToEntero();
CveSubProyecto = objServicio.Result[0].CveSubProyecto.ToEntero();
CveCliente = objServicio.Result[0].CveCliente.ToEntero();
- CveGiroClasificacion = objServicio.Result[0].CveGiroClasificacion > 0 ? objServicio.Result[0].CveGiroClasificacion.ToEntero() : -1;
+ CveGiroClasificacion = objServicio.Result[0].CveGiroClasificacion > 0 ? objServicio.Result[0].CveGiroClasificacion.ToEntero() : -1;
if (!(CveCliente > 0))
{
@@ -803,6 +829,22 @@ public partial class CRM_EmpresaCRM : ClsPaginas
CargaEventoBitacora();
}
+
+ if(UsuarioActual.CveVendedor > 0)
+ {
+ ClsVtaVendedores ObjVendedores = new ClsVtaVendedores();
+ if (ObjVendedores.GetVendedores(UsuarioActual.CveEmpresa))
+ {
+ if(ObjVendedores.DtResultados.Rows.Count > 0)
+ {
+ VendedorTipo = ObjVendedores.DtResultados.FiltroPrimeroValor("VendedorTipo", $"CveVendedor = {UsuarioActual.CveVendedor}").ToEntero();
+ }
+ }
+ ObjVendedores.Dispose();
+ }
+
+
+
}
protected void DdlTipoProceso_Change(object sender, EventArgs e)
@@ -1623,7 +1665,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
{
if (DTContactos.Rows.Count == 0)
{
- Alert("Para crear un nuevo acercamiento es necesario agregar al menos un Contacto.", ModExtensiones.TipoMensaje.MsgAdvertencia);
+ Alert("Para crear un nuevo acercamiento/Oportunidad es necesario agregar al menos un Contacto.", ModExtensiones.TipoMensaje.MsgAdvertencia);
}
else
{
@@ -1707,22 +1749,22 @@ public partial class CRM_EmpresaCRM : ClsPaginas
}
else
{
- Alert("No tiene 'Etapa Proceso' con el 'Proceso' seleccionado al agregar el Acercamiento", ModExtensiones.TipoMensaje.MsgAdvertencia);
+ Alert("No tiene 'Etapa Proceso' con el 'Proceso' seleccionado al agregar el Acercamiento/Oportunidad", ModExtensiones.TipoMensaje.MsgAdvertencia);
}
if (CveAcercamiento > 0)
{
- if (ObjBitacora.AddEventoBitacora(String.Format("Se registró el Acercamiento {0} como Proceso de Tipo {1}, con Vendedor {2} y Contacto Principal {3}.", NombreAcercamiento, DdlTipoProceso.SelectedItem, DdlVendedor.SelectedItem, DdlContactoPrincipal.SelectedValue == "-1" ? "aun no asignado" : DdlContactoPrincipal.SelectedItem.Text), "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEmpresaCRM: CveEmpresaCRM, CveTipoProcesoCRM: CveTipoProceso, CveAcercamientoCRM: CveAcercamiento, CveContactoCRM: CveContactoPrincipal, CveEtapaProcesoCRM: CveEtapaProcesoActual))
+ if (ObjBitacora.AddEventoBitacora(String.Format("Se registró el Acercamiento/Oportunidad {0} como Proceso de Tipo {1}, con Vendedor {2} y Contacto Principal {3}.", NombreAcercamiento, DdlTipoProceso.SelectedItem, DdlVendedor.SelectedItem, DdlContactoPrincipal.SelectedValue == "-1" ? "aun no asignado" : DdlContactoPrincipal.SelectedItem.Text), "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEmpresaCRM: CveEmpresaCRM, CveTipoProcesoCRM: CveTipoProceso, CveAcercamientoCRM: CveAcercamiento, CveContactoCRM: CveContactoPrincipal, CveEtapaProcesoCRM: CveEtapaProcesoActual))
{
- string asunto = String.Format("Se registró el Acercamiento {0}", NombreAcercamiento);
- string mensaje = String.Format("Se registró el Acercamiento {0} como Proceso de Tipo {1}, con Vendedor {2} y Contacto Principal {3}.", NombreAcercamiento, DdlTipoProceso.SelectedItem, DdlVendedor.SelectedItem, DdlContactoPrincipal.SelectedValue == "-1" ? "aun no asignado" : DdlContactoPrincipal.SelectedItem.Text);
+ string asunto = String.Format("Se registró el Acercamiento/Oportunidad {0}", NombreAcercamiento);
+ string mensaje = String.Format("Se registró el Acercamiento/Oportunidad {0} como Proceso de Tipo {1}, con Vendedor {2} y Contacto Principal {3}.", NombreAcercamiento, DdlTipoProceso.SelectedItem, DdlVendedor.SelectedItem, DdlContactoPrincipal.SelectedValue == "-1" ? "aun no asignado" : DdlContactoPrincipal.SelectedItem.Text);
mandarCorreo(asunto, mensaje);
HuboError = false;
}
}
else
{
- Alert("Ocurrio un error al agregar el Acercamiento", ModExtensiones.TipoMensaje.MsgError);
+ Alert("Ocurrio un error al agregar el Acercamiento/Oportunidad", ModExtensiones.TipoMensaje.MsgError);
HuboError = false;
}
@@ -1741,7 +1783,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
//CARGA BITACORA
if (!HuboError)
{
- Alert(String.Format("Se registró el acercamiento
{0} como proceso de tipo
{1}.
Se le redireccionara al Detalle del Acercamiento.", NombreAcercamiento, DdlTipoProceso.SelectedItem), ModExtensiones.TipoMensaje.MsgInformacion, String.Format("document.location.href=\"/CRM/Acercamiento.aspx?CveAcercamiento={0}\"", CveAcercamiento));
+ Alert(String.Format("Se registró el acercamiento/Oportunidad
{0} como proceso de tipo
{1}.
Se le redireccionara al Detalle del Acercamiento/Oportunidad.", NombreAcercamiento, DdlTipoProceso.SelectedItem), ModExtensiones.TipoMensaje.MsgInformacion, String.Format("document.location.href=\"/CRM/Acercamiento.aspx?CveAcercamiento={0}\"", CveAcercamiento));
CargaEventoBitacora();
}
limpiarCamposModalAcercamiento();
@@ -1771,7 +1813,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
LnkAgregarAcercamiento.Visible = false;
}
- if ((UsuarioActual.CveVendedor != CveVendedor))
+ if ((UsuarioActual.CveVendedor != CveVendedor) & VendedorTipo != 2)
{
if (UsuarioActual.CveUsuario != 100)
{
diff --git a/CRM/RepAcercamientos.aspx b/CRM/RepAcercamientos.aspx
index c4666c501..ca7812381 100644
--- a/CRM/RepAcercamientos.aspx
+++ b/CRM/RepAcercamientos.aspx
@@ -5,7 +5,7 @@
- Reporte de Acercamientos
+ Reporte de Acercamientos/Oportunidades
@@ -149,7 +149,7 @@
<%--1--%>
-
+
diff --git a/CRM/RepAcercamientosProcesos.aspx b/CRM/RepAcercamientosProcesos.aspx
index 41a2ff356..9571cfe87 100644
--- a/CRM/RepAcercamientosProcesos.aspx
+++ b/CRM/RepAcercamientosProcesos.aspx
@@ -30,7 +30,7 @@
- Reporte de Procesos de Acercamientos
+ Reporte de Procesos de Acercamientos/Oportunidades
diff --git a/CRM/RepAcercamientosRechazos.aspx b/CRM/RepAcercamientosRechazos.aspx
index 83f91e875..bf2398e92 100644
--- a/CRM/RepAcercamientosRechazos.aspx
+++ b/CRM/RepAcercamientosRechazos.aspx
@@ -27,7 +27,7 @@
- Reporte de Rechazos Acercamientos
+ Reporte de Rechazos Acercamientos/Opotunidades
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 809e7aafe..881d304bb 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -9,7 +9,7 @@ Imports System.IO
Imports System.Threading.Tasks
Imports Newtonsoft.Json
Imports Extensiones
-
+Imports System.Activities.Expressions
Partial Class Compras_Compras
Inherits ClsPaginas
@@ -1167,6 +1167,25 @@ Partial Class Compras_Compras
End Set
End Property
+
+ Private Property NumeroReembolsoOriginal As String
+ Get
+
+ If ViewState("NumeroReembolsoOriginal") Is Nothing Then
+ ViewState("NumeroReembolsoOriginal") = ""
+ End If
+
+ Return ViewState("NumeroReembolsoOriginal").ToString
+ End Get
+ Set(value As String)
+ ViewState("NumeroReembolsoOriginal") = value
+ End Set
+
+
+ End Property
+
+
+
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
'ImgBtnBuscarOC.Attributes.Add("data-toggle", "tooltip")
@@ -2700,6 +2719,10 @@ Partial Class Compras_Compras
TrRembolsoCajaChica.Visible = True
End If
+ If dr("CvePersonal").ToString.ToEntero > 0 Or dr("CveCajaChica").ToString.ToEntero > 0 Then
+ NumeroReembolsoOriginal = dr("NumeroReembolso").ToString
+ End If
+
VisualizaEstatusCompraSaldo(dr("TipoDocto").ToString, dr("Saldo").ToString.ToDecimal, dr("Total").ToString.ToDecimal)
If dr("IdPoliza").ToString.ToEntero > 0 Then
HplCompraContabilizada.Text = "Si"
@@ -2766,6 +2789,9 @@ Partial Class Compras_Compras
ImgDownPDF.Visible = True : ImgDownPDF.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=Fact&EXT=pdf&CveFactura={0}&RFC={1}", dr("CveFactura"), dr("RFC").ToString.Replace("&", "%26%"))))
End If
+
+ TxtRembolsoNumero.Enabled = If(IdPoliza > 0, False, True)
+
'CargaDetalle
If ObjCompra.GetCompraDetalle(CveCompra) Then
TmpDT = ObjCompra.DtResultados
@@ -9253,6 +9279,36 @@ Partial Class Compras_Compras
End If
+
+ If (TxtRembolsoNumero.Text.Trim.Length > 0 AndAlso IdPoliza <= 0) AndAlso (NumeroReembolsoOriginal.Trim <> TxtRembolsoNumero.Text.Trim) Then
+
+ 'CUANDO ES REEMBOLSO COMPROBACION Y CAJA CHICA
+ If UsuarioActual.CveEmpresa.Contiene(1, 119, 141) AndAlso TxtRembolsoNumero.Text.Trim <> "" AndAlso (DdlRembolsoPersonal.SelectedValue.ToEntero > 0 Or DdlRembolsoCajaChica.SelectedValue.ToEntero > 0) Then
+ If ObjCompra.GetComprobacion(DdlRembolsoPersonal.SelectedValue.ToEntero, DdlRembolsoCajaChica.SelectedValue.ToEntero, TxtRembolsoNumero.Text.Trim, UsuarioActual.CveEmpresa) Then
+ Dim CvePreComprobacion As Integer
+ If ObjCompra.DtResultados.Rows.Count = 0 Then
+ 'sino existe, creamos la comprobacion
+ Dim tConcepto As String = If(DdlRembolsoPersonal.SelectedValue.ToEntero > 0, DdlRembolsoPersonal.SelectedItem.Text, DdlRembolsoCajaChica.SelectedItem.Text)
+ tConcepto = String.Format("{0}-{1}", tConcepto, TxtRembolsoNumero.Text.Trim)
+
+ CvePreComprobacion = ObjContabilidad.AddPrePolizas("Compras Comproba", 1, 0, 0, 1, TxtFecha.Text.ToDate, tConcepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+ If ObjCompra.AddComprobacion(DdlRembolsoPersonal.SelectedValue.ToEntero, DdlRembolsoCajaChica.SelectedValue.ToEntero, TxtRembolsoNumero.Text.Trim, CvePreComprobacion, UsuarioActual.CveEmpresa) > 0 Then
+
+ End If
+ Else
+ 'si ya existe, obtenemos la prepóliza
+ CvePreComprobacion = ObjCompra.DtResultados.FiltroPrimeroValor("CvePrePoliza").ToEntero
+ End If
+
+ ObjContabilidad.PrePolizaUnificacion(CvePreComprobacion, CvePrePoliza)
+ End If
+
+ End If
+
+
+ End If
+
Else
Retorno = False
End If
@@ -12249,6 +12305,24 @@ Partial Class Compras_Compras
Protected Sub BtnContado_Click(sender As Object, e As EventArgs)
TxtRembolsoNumero.Text = TxtNumeroReembolso.Text
+
+ If RBLContado.SelectedValue.ToEntero = 6 Then ' Caja chica
+ DdlFuncionarioEmpleado.SelectedValueExist(-1)
+ TxtDocumentoImporteFE.Text = ""
+ TextBox3.Text = ""
+ ViewState("CvePersonal") = -1
+ End If
+
+ If RBLContado.SelectedValue.ToEntero = 2 Then ' viaticos personal
+ DdlTipoTransaccionCaja.SelectedValueExist(-1)
+ DdlCuentaCajaChicaReembolso.SelectedValueExist(-1)
+ DdlCuentaCaja.SelectedValueExist(-1)
+ TxtDocumentoFolioCaja.Text = ""
+ TxtDocumentoImporteCaja.Text = ""
+ TxtDocumentoObservacionesCaja.Text = ""
+ ViewState("CveCajaChica") = -1
+ End If
+
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivContadoModal"))
End Sub
diff --git a/Contabilidad/LibroMayor.aspx.vb b/Contabilidad/LibroMayor.aspx.vb
index d605ab9d5..e2fe283cf 100644
--- a/Contabilidad/LibroMayor.aspx.vb
+++ b/Contabilidad/LibroMayor.aspx.vb
@@ -78,14 +78,14 @@ Partial Class Contabilidad_LibroMayor
FechaInicio = If(IsDate(TxtFechaDel.Text), TxtFechaDel.Text.ToDate, MinFecha)
FechaFin = If(IsDate(TxtFechaAl.Text), TxtFechaAl.Text.ToDate, MaxFecha)
- '140
- Dim CvecuentaPadre As Integer = 57416 '140
+
+
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
Dim ObjConta As New ClsContabilidad
- If ObjConta.GetLibroMayorSIG(CvecuentaPadre, FechaInicio, FechaFin, 1, UsuarioActual.CveEmpresa) Then
+ If ObjConta.GetLibroMayorSIG(-1, FechaInicio, FechaFin, 1, UsuarioActual.CveEmpresa) Then
DtDatos = ObjConta.DtResultados
Else
DtDatos = Nothing
diff --git a/Contabilidad2/RepCambiosSituacionFinanciera.aspx b/Contabilidad2/RepCambiosSituacionFinanciera.aspx
index 9cfd5be3d..395e58124 100644
--- a/Contabilidad2/RepCambiosSituacionFinanciera.aspx
+++ b/Contabilidad2/RepCambiosSituacionFinanciera.aspx
@@ -33,54 +33,54 @@
diff --git a/Contabilidad2/RepCambiosSituacionFinanciera.aspx.vb b/Contabilidad2/RepCambiosSituacionFinanciera.aspx.vb
index 720fd7d95..b82602af2 100644
--- a/Contabilidad2/RepCambiosSituacionFinanciera.aspx.vb
+++ b/Contabilidad2/RepCambiosSituacionFinanciera.aspx.vb
@@ -157,7 +157,7 @@ Partial Class AC2_RepCambiosSituacionFinanciera
Dim TipoReporte = DdlTipoReporte.SelectedValue.ToEntero
Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString
- If ObjConta.GetCambioSituacionFinanciera(FechaInicio, FechaFin, DdlUnidad.SelectedValue.ToEntero, TipoReporte, CveSubProyecto, UsuarioActual.CveEmpresa) Then
+ If ObjConta.GetCambioSituacionFinanciera(FechaInicio, FechaFin, DdlUnidad.SelectedValue.ToEntero, TipoReporte, CveSubProyecto, UsuarioActual.CveEmpresa, DdlMovimiento.SelectedValue.ToEntero) Then
DtDatos = ObjConta.DtResultados
Else
DtDatos = Nothing
diff --git a/Contabilidad2/RepFlujoEfectivo.aspx b/Contabilidad2/RepFlujoEfectivo.aspx
index c7095d0aa..63d08f881 100644
--- a/Contabilidad2/RepFlujoEfectivo.aspx
+++ b/Contabilidad2/RepFlujoEfectivo.aspx
@@ -59,7 +59,7 @@