diff --git a/App_Code/ClsCRM.vb b/App_Code/ClsCRM.vb index cdad985da..b212c9403 100644 --- a/App_Code/ClsCRM.vb +++ b/App_Code/ClsCRM.vb @@ -130,7 +130,9 @@ Public Class ClsCRM Return Retorno End Function - Public Function AddTipoProceso(TipoProceso As String, Descripcion As String, CveEmpresa As Integer, CveUsuarioIng As Integer) As Boolean + Public Function AddTipoProceso(TipoProceso As String, Descripcion As String, CveEmpresa As Integer, CveUsuarioIng As Integer, + RequiereMedioCaptacion As Boolean, RequiereImporte As Boolean, RequiereProbabilidadAcercamiento As Boolean, + RequierePS As Boolean, RequiereComision As Boolean) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_CRM_TipoProcesoAdd") With SqlAdapter.SelectCommand.Parameters @@ -138,6 +140,11 @@ Public Class ClsCRM .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveUsuarioIng", SqlDbType.Int).Value = CveUsuarioIng + .Add("@RequiereMedioCaptacion", SqlDbType.Bit).Value = RequiereMedioCaptacion + .Add("@RequiereImporte", SqlDbType.Bit).Value = RequiereImporte + .Add("@RequiereProbabilidadAcercamiento", SqlDbType.Bit).Value = RequiereProbabilidadAcercamiento + .Add("@RequierePS", SqlDbType.Bit).Value = RequierePS + .Add("@RequiereComision", SqlDbType.Bit).Value = RequiereComision End With Try SqlAdapter.Fill(Data) @@ -148,7 +155,9 @@ Public Class ClsCRM Return Retorno End Function - Public Function UpdateTipoProceso(TipoProceso As String, Descripcion As String, CveEstatus As Boolean, CveTipoProceso As Integer) As Boolean + Public Function UpdateTipoProceso(TipoProceso As String, Descripcion As String, CveEstatus As Boolean, CveTipoProceso As Integer, + RequiereMedioCaptacion As Boolean, RequiereImporte As Boolean, RequiereProbabilidadAcercamiento As Boolean, + RequierePS As Boolean, RequiereComision As Boolean) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_CRM_TipoProcesoUpdate") With SqlAdapter.SelectCommand.Parameters @@ -156,6 +165,11 @@ Public Class ClsCRM .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion .Add("@CveEstatus", SqlDbType.Bit).Value = CveEstatus .Add("@CveTipoProceso", SqlDbType.Int).Value = CveTipoProceso + .Add("@RequiereMedioCaptacion", SqlDbType.Bit).Value = RequiereMedioCaptacion + .Add("@RequiereImporte", SqlDbType.Bit).Value = RequiereImporte + .Add("@RequiereProbabilidadAcercamiento", SqlDbType.Bit).Value = RequiereProbabilidadAcercamiento + .Add("@RequierePS", SqlDbType.Bit).Value = RequierePS + .Add("@RequiereComision", SqlDbType.Bit).Value = RequiereComision End With Try SqlAdapter.Fill(Data) diff --git a/App_Code/Timbres.vb b/App_Code/Timbres.vb index 654f5ae7f..d087b4392 100644 --- a/App_Code/Timbres.vb +++ b/App_Code/Timbres.vb @@ -252,7 +252,7 @@ Public Class Timbres 'concepto único Dim concepto As New CFDIConceptos With {.Cantidad = 1, - .Descripcion = "Flete", + .Descripcion = "Traslado", .ValorUnitario = 0, .Importe = 0, .Descuento = 0, diff --git a/Bancos/PagoAcreedor.aspx b/Bancos/PagoAcreedor.aspx index aac7ecfc0..fb07433fd 100644 --- a/Bancos/PagoAcreedor.aspx +++ b/Bancos/PagoAcreedor.aspx @@ -244,8 +244,22 @@ -
- +
+
+
+ +
+
+
SubProyecto +
+ +
+ + + +
+
+
diff --git a/Bancos/PagoAcreedor.aspx.cs b/Bancos/PagoAcreedor.aspx.cs index 9ec719505..e1610060d 100644 --- a/Bancos/PagoAcreedor.aspx.cs +++ b/Bancos/PagoAcreedor.aspx.cs @@ -140,14 +140,19 @@ public partial class Bancos_PagoAcreedor : ClsPaginas DdlSubProyecto.Items.Insert(0, new ListItem("Seleccione", "-1")); + DdlSubProyectoPago.DataSource = get_GlobalDTSubProyectos(-1, CveEmpresa: UsuarioActual.CveEmpresa); + DdlSubProyectoPago.DataBind(); + + DdlSubProyectoPago.Items.Insert(0, new ListItem("Seleccione", "-1")); + } #region"INFORMACION GENERAL" protected void CargaTipoTransaccion() { - DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Egs'"); - DdlTipoTransanccionPrestamo.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Ing'"); + DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Egs' AND Estatus = 1"); + DdlTipoTransanccionPrestamo.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Ing' AND Estatus = 1 "); DdlTipoTransaccion.DataBind(); DdlTipoTransanccionPrestamo.DataBind(); @@ -448,7 +453,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas } ImporteMN = Importe; - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Ref, CveConceptoDiferenciaCambiaria, Conc, DateTime.Now, IdCtaContableDiferenciaCambiaria, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), ImporteME: Importe, TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Ref, CveConceptoDiferenciaCambiaria, Conc, DateTime.Now, IdCtaContableDiferenciaCambiaria, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), ImporteME: Importe, TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de diferencia cambiaria"; } @@ -457,7 +462,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas } else { - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, Importe, Ref, CveConceptoContablePago, Conc, DateTime.Now, IDCtaContableAcreedor, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, Importe, Ref, CveConceptoContablePago, Conc, DateTime.Now, IDCtaContableAcreedor, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de pago acreedor"; break; @@ -466,7 +471,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas if (ImporteComisionMN > 0) { - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoComision, ImporteComision, Ref, 255, Conc, DateTime.Now, IdCtaContableOtrosGastos, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteComisionMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoComision, ImporteComision, Ref, 255, Conc, DateTime.Now, IdCtaContableOtrosGastos, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteComisionMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de pago acreedor"; break; @@ -492,14 +497,14 @@ public partial class Bancos_PagoAcreedor : ClsPaginas } - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, ImporteBanco, Ref, CveConceptoContableBanco, Conc, DateTime.Now, IDCtaContableBancos, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMNBanco, ImporteME: ImporteBanco, TipoCambio: TCPago, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, ImporteBanco, Ref, CveConceptoContableBanco, Conc, DateTime.Now, IDCtaContableBancos, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMNBanco, ImporteME: ImporteBanco, TipoCambio: TCPago, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de bancos"; } if (CveMonedaPago != 1 && UsaComplementaria) { - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, ImporteBanco, Ref, CveConceptoContableBancoComplementario, Conc, DateTime.Now, IDCtaContableBancosComplementario, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteComplementaria, ImporteME: ImporteBanco, TipoCambio: TCPago, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, ImporteBanco, Ref, CveConceptoContableBancoComplementario, Conc, DateTime.Now, IDCtaContableBancosComplementario, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteComplementaria, ImporteME: ImporteBanco, TipoCambio: TCPago, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de bancos complementaria"; } @@ -509,14 +514,14 @@ public partial class Bancos_PagoAcreedor : ClsPaginas decimal Dif = AcumImporteMN - (ImporteBanco + ImporteComplementaria); if (Dif < 0) { - tCveConceptoOtIngresos = 211; TipoMovtoOt = false; + tCveConceptoOtIngresos = 65; TipoMovtoOt = false; } else { - tCveConceptoOtIngresos = 78; TipoMovtoOt = true; + tCveConceptoOtIngresos = 64; TipoMovtoOt = true; } - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOt, Dif.Abs(), Ref, tCveConceptoOtIngresos, Conc, DateTime.Now, 0, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: Dif.Abs(), ImporteME: Dif.Abs(), TipoCambio: TCPago, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOt, Dif.Abs(), Ref, tCveConceptoOtIngresos, Conc, DateTime.Now, 0, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: Dif.Abs(), ImporteME: Dif.Abs(), TipoCambio: TCPago, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de ajuste en redondeo"; } diff --git a/Bin/ADSNetLibrary.dll b/Bin/ADSNetLibrary.dll index c9badec25..562d17536 100644 Binary files a/Bin/ADSNetLibrary.dll and b/Bin/ADSNetLibrary.dll differ diff --git a/CRM/Acercamiento.aspx b/CRM/Acercamiento.aspx index bb3e9389d..8bc859a44 100644 --- a/CRM/Acercamiento.aspx +++ b/CRM/Acercamiento.aspx @@ -410,7 +410,7 @@
-
+
@@ -441,7 +441,7 @@
-
+
@@ -449,13 +449,13 @@
-
+
<%----%>
-
+
<%----%> @@ -463,7 +463,7 @@
-
+
diff --git a/CRM/Acercamiento.aspx.cs b/CRM/Acercamiento.aspx.cs index 6f7005b92..8ab7461d7 100644 --- a/CRM/Acercamiento.aspx.cs +++ b/CRM/Acercamiento.aspx.cs @@ -319,6 +319,19 @@ public partial class CRM_Acercamiento : ClsPaginas { LblEncabezadoAcercamiento.Text = String.Format("{0}: {1}", objAcercamiento.Result[0].TipoProceso.ToUpper(), objAcercamiento.Result[0].NombreAcercamiento.ToUpper()); CveTipoProceso = objAcercamiento.Result[0].CveTipoProceso.ToEntero(); + + RequestTipoProceso tipoProceso = new RequestTipoProceso(UsuarioActual.CveEmpresa, 1, CveTipoProceso); + var ObjTipoProceso = cRMService.GetTipoProcesoCRM(tipoProceso); + var responsetipoProceso = ObjTipoProceso.Result.FirstOrDefault(); + if (responsetipoProceso != null) + { + DivComision.Visible = responsetipoProceso.RequiereComision; + DivMedioCaptacion.Visible = responsetipoProceso.RequiereMedioCaptacion; + DivImporte.Visible = responsetipoProceso.RequiereImporte; + DivProbabilidadAcercamiento.Visible = responsetipoProceso.RequiereProbabilidadAcercamiento; + DivPS.Visible = responsetipoProceso.RequierePS; + } + //SECCION DATOS DEL ACERCAMIENTO TxtNombreAcercamiento.Text = objAcercamiento.Result[0].NombreAcercamiento; TxtDescripcion.Text = objAcercamiento.Result[0].Descripcion; diff --git a/CRM/CatTipoProceso.aspx b/CRM/CatTipoProceso.aspx index 221b3ae1d..956346963 100644 --- a/CRM/CatTipoProceso.aspx +++ b/CRM/CatTipoProceso.aspx @@ -23,8 +23,8 @@ - - + + @@ -37,7 +37,9 @@ " style="display: inline-block; margin-right: -20px; width: 150px;" /> " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
- @@ -102,6 +104,33 @@
+
+
+ + +
+
+ + +
+
+ +
+
+ + +
+
+ + +
+
+ +
+ + +
+
diff --git a/CRM/CatTipoProceso.aspx.cs b/CRM/CatTipoProceso.aspx.cs index 5f00ba584..213e8c538 100644 --- a/CRM/CatTipoProceso.aspx.cs +++ b/CRM/CatTipoProceso.aspx.cs @@ -86,6 +86,11 @@ public partial class CRM_CatTipoProceso : ClsPaginas TxtTipoProceso.Text = ""; TxtDescripcion.Text = ""; ChkEstatus.Checked = true; + ChkRequiereMedioCaptacion.Checked = false; + ChkRequiereImporte.Checked = false; + ChkRequiereProbabilidadAcercamiento.Checked = false; + ChkRequierePS.Checked = false; + ChkRequiereComision.Checked = false; } #endregion @@ -110,6 +115,11 @@ public partial class CRM_CatTipoProceso : ClsPaginas TxtTipoProceso.Text = GvRow.DataKey("TipoProceso").ToString(); TxtDescripcion.Text = GvRow.DataKey("Descripcion").ToString(); ChkEstatus.Checked = GvRow.DataKey("CveEstatus").ToString() == "True" ? true : false; + ChkRequiereMedioCaptacion.Checked = GvRow.DataKey("RequiereMedioCaptacion").ToString() == "True" ? true : false; + ChkRequiereImporte.Checked = GvRow.DataKey("RequiereImporte").ToString() == "True" ? true : false; + ChkRequiereProbabilidadAcercamiento.Checked = GvRow.DataKey("RequiereProbabilidadAcercamiento").ToString() == "True" ? true : false; + ChkRequierePS.Checked = GvRow.DataKey("RequierePS").ToString() == "True" ? true : false; + ChkRequiereComision.Checked = GvRow.DataKey("RequiereComision").ToString() == "True" ? true : false; UPModalTipoProceso.Update(); @@ -128,14 +138,16 @@ public partial class CRM_CatTipoProceso : ClsPaginas if (EsEditar == 0) { - if (ObjCRM.AddTipoProceso(TipoProceso, Descripcion, UsuarioActual.CveEmpresa, CveUsuarioIng)) + if (ObjCRM.AddTipoProceso(TipoProceso, Descripcion, UsuarioActual.CveEmpresa, CveUsuarioIng,ChkRequiereMedioCaptacion.Checked,ChkRequiereImporte.Checked, + ChkRequiereProbabilidadAcercamiento.Checked,ChkRequierePS.Checked,ChkRequiereComision.Checked)) { Alert("El Tipo de Proceso fue creado correctamente.", ModExtensiones.TipoMensaje.MsgInformacion); } } else { - if (ObjCRM.UpdateTipoProceso(TipoProceso, Descripcion, Estatus, CveTipoProceso)) + if (ObjCRM.UpdateTipoProceso(TipoProceso, Descripcion, Estatus, CveTipoProceso, ChkRequiereMedioCaptacion.Checked, ChkRequiereImporte.Checked, + ChkRequiereProbabilidadAcercamiento.Checked, ChkRequierePS.Checked, ChkRequiereComision.Checked)) { Alert("El Tipo de Proceso fue actualizado correctamente.", ModExtensiones.TipoMensaje.MsgInformacion); } diff --git a/CRM/EmpresaCRM.aspx b/CRM/EmpresaCRM.aspx index 46b0baf93..a186c7ebe 100644 --- a/CRM/EmpresaCRM.aspx +++ b/CRM/EmpresaCRM.aspx @@ -625,7 +625,7 @@
-
+
@@ -651,13 +651,13 @@
-
+
<%----%>
-
+
<%----%> @@ -665,7 +665,7 @@
-
+
@@ -682,7 +682,7 @@
-
+
diff --git a/CRM/EmpresaCRM.aspx.cs b/CRM/EmpresaCRM.aspx.cs index 9e913932a..59d6f5833 100644 --- a/CRM/EmpresaCRM.aspx.cs +++ b/CRM/EmpresaCRM.aspx.cs @@ -238,6 +238,19 @@ public partial class CRM_EmpresaCRM : ClsPaginas ViewState["CveGiroClasificacion"] = value; } } + + private List ListTipoProceso + { + get + { + return (List)ViewState["ListTipoProceso"]; + } + + set + { + ViewState["ListTipoProceso"] = value; + } + } #endregion protected void Page_Load(object sender, EventArgs e) @@ -794,6 +807,20 @@ public partial class CRM_EmpresaCRM : ClsPaginas protected void DdlTipoProceso_Change(object sender, EventArgs e) { + + var tipoProceso = ListTipoProceso.Where(x => x.CveTipoProceso == DdlTipoProceso.SelectedValue.ToEntero()).FirstOrDefault(); + if (tipoProceso != null) + { + DivComision.Visible = tipoProceso.RequiereComision; + DivMedioCaptacion.Visible = tipoProceso.RequiereMedioCaptacion; + DivImporte.Visible = tipoProceso.RequiereImporte; + DivProbabilidadAcercamiento.Visible = tipoProceso.RequiereProbabilidadAcercamiento; + DivPS.Visible = tipoProceso.RequierePS; + } + + RfvMedioCaptacionAcercamiento.Enabled = DivMedioCaptacion.Visible; + RFVProbabilidad.Enabled = DivProbabilidadAcercamiento.Visible; + DdlMedioCaptacionAcercamiento.Items.Clear(); DdlMedioCaptacionAcercamiento.DataSource = DtMedioCaptacion.FiltraParametros(String.Format("CveTipoProceso = {0}", DdlTipoProceso.SelectedValue.ToEntero())); DdlMedioCaptacionAcercamiento.DataBind(); @@ -1520,6 +1547,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas DdlMedioCaptacionAcercamiento.Enabled = false; DdlTipoProceso.DataBind(); } + ListTipoProceso = ObjTipoProceso.Result; if (ObjProbalidadAcercamiento.Result.Count > 0) { @@ -1794,7 +1822,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas protected void DdlTipoProcesos_Change(Object sender, EventArgs e) { DdlMedioCaptacion.Items.Clear(); - CargaMetodosCaptacion(); + CargaMetodosCaptacion(); UpDatos.Update(); } diff --git a/Contabilidad/FiltraPolizas.aspx.vb b/Contabilidad/FiltraPolizas.aspx.vb index b1477c7c3..757c4db73 100644 --- a/Contabilidad/FiltraPolizas.aspx.vb +++ b/Contabilidad/FiltraPolizas.aspx.vb @@ -46,7 +46,7 @@ Partial Class Contabilidad_FiltraPolizas Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not Page.IsPostBack Then - ContabilidadSIG = UsuarioActual.Empresa.UsaContabilidadSIG + ContabilidadSIG = UsuarioActual.Empresa.TipoContabilidad ViewState("Orden") = "" DdlPeriodo.SelectedValue = Now.Month.ToString TxtFechaICredito.Text = Now.FirstDayOfMonth.ToShortDateString diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index 88ef3e648..922bd8215 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -1246,7 +1246,7 @@ Partial Class General_SaldosIniciales Dim Moneda As String = Row("Moneda").ToString Dim TipoCambio As String = Row("Tipo Cambio").ToString Dim CveMoneda As Integer = 1 - Dim Vendedor As String = "" 'Row("Vendedor").ToString + Dim Vendedor As String = If(dt.Columns.Contains("Vendedor"), Row("Vendedor").ToString, "") Dim CveVendedor As Integer = 0 Dim IEPS As Decimal = 0 'Row("IEPS").ToString.ToDecimal Dim CveClienteSucursal As Integer = 0 'Row("CveClienteSucursal").ToString.ToEntero diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index cc4733a86..8fc06873d 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -212,10 +212,10 @@ Partial Class Inventarios_TraspasoAlmacen DivTransitorio2.Visible = True End If - If UsuarioActual.CveEmpresa.Contiene(141, 152, 158, 159, 160, 161, 162, 163) Then - ChkEmitirTimbrado.Visible = False - divEmitir.Visible = False - End If + 'If UsuarioActual.CveEmpresa.Contiene(141, 152, 158, 159, 160, 161, 162, 163) Then + ' ChkEmitirTimbrado.Visible = False + ' divEmitir.Visible = False + 'End If If UsuarioActual.CveEmpresa.Contiene(1, 2, 119, 140) Then @@ -3246,11 +3246,11 @@ Partial Class Inventarios_TraspasoAlmacen Protected Sub DdlConfigAuto_SelectedIndexChanged(sender As Object, e As EventArgs) - ValidaConfiguracionVeiculo() + ValidaConfiguracionVehiculo() End Sub - Private Sub ValidaConfiguracionVeiculo() + Private Sub ValidaConfiguracionVehiculo() DvRemolque1.Visible = False DvRemolque2.Visible = False diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index e7065a8a7..f13451d87 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -7480,8 +7480,8 @@ Partial Class PV Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("") If DrPS IsNot Nothing Then - 'SOLO DEBE AGREGAR POLIZA VIRTUAL SI ES ACUMULADOR - If Not DrPS("CveClasificacion").ToString().ToEntero().Contiene(20520, 20522, 20513, 20511, 20521, 20512, 20514, 20229) Then + 'SOLO DEBE AGREGAR POLIZA VIRTUAL SI ES ACUMULADOR, y que no sea marca "LTH ESPECIALES" + If Not (DrPS("CveClasificacion").ToString().ToEntero().Contiene(20520, 20522, 20513, 20511, 20521, 20512, 20514, 20229) AndAlso DrPS("CveMarca").ToString <> "1050") Then Return Retorno End If Else