diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index a72b6a8ea..d1728e4ba 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -589,11 +589,12 @@ Public Class ClsNominas End Try Return retorno End Function - Public Function RegistraProvision(CvePeriodo As Int32, CveEmpresa As Int32) As Boolean + Public Function RegistraProvision(CvePeriodo As Int32, CveUsuario As Int32, CveEmpresa As Int32) As Boolean Dim retorno As Boolean = False DataAdapter("PA_Nom_RegistraProvision", CommandType.StoredProcedure) With SqlAdapter.SelectCommand.Parameters .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 7ad1dd517..81eaef070 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -5578,6 +5578,14 @@ Namespace Modelos AutoConta = False End If + + If Not ErrorCancelar AndAlso ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then + If ObjConta.ValorPolizaDescuadre > 0 Then + GuardaLogAD($"Modelos/RecepcionEntrega | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") + ErrorCancelar = True + End If + End If + If AutoConta And Not ErrorCancelar Then If IdCtaContable > 0 Then diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 15c9ae491..5e3f93992 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -5845,6 +5845,8 @@ Partial Class Bancos_IE TxtObservaciones.Text = $"SOLICITUD DE VIÁTICOS - FOLIO {ObjBancos.DtResultados.FiltroPrimeroValor("Folio").ToString()}: {ObjBancos.DtResultados.FiltroPrimeroValor("Asunto").ToString()}." End If ObjBancos.Dispose() + + RBL_SelectedIndexChanged(Nothing, Nothing) End If End Sub #End Region diff --git a/Bancos/PagoAcreedor.aspx b/Bancos/PagoAcreedor.aspx index fb07433fd..2bb7b8143 100644 --- a/Bancos/PagoAcreedor.aspx +++ b/Bancos/PagoAcreedor.aspx @@ -377,7 +377,7 @@ - + diff --git a/Bancos/PagoAcreedor.aspx.cs b/Bancos/PagoAcreedor.aspx.cs index df4599748..5dbf0ec6c 100644 --- a/Bancos/PagoAcreedor.aspx.cs +++ b/Bancos/PagoAcreedor.aspx.cs @@ -351,30 +351,32 @@ public partial class Bancos_PagoAcreedor : ClsPaginas ImporteBancosMN = (Importe * TCPago).RoundSQL(); ImporteAcreedorMN = (Importe * TC).RoundSQL(); - //if (CveMonedaPago == 1 && tCveMoneda == 1) - //{ - // ImporteMN = Importe; - // ImporteComisionMN = ImporteComision; - //} - //else if (CveMonedaPago == 1 && tCveMoneda == 2) - //{ - // ImporteComisionMN = ImporteComision; - - // ImporteMN = Importe; - // ImporteComplementaria = (Importe * TC - Importe).RoundSQL(); - //} - //else if (CveMonedaPago == 2 && tCveMoneda == 1) - //{ - // ImporteMN = Importe; - // ImporteComisionMN = ImporteComision; - // ImporteComplementaria = 0; - //} - //else if (CveMonedaPago == 2 && tCveMoneda == 2) - //{ - // ImporteComisionMN = ImporteComision; - // ImporteMN = Importe; - // ImporteComplementaria = (Importe * TC - Importe).RoundSQL(); - //} + if (CveMonedaPago == 1 && tCveMoneda == 1) + { + //ImporteMN = Importe; + //ImporteComisionMN = ImporteComision; + } + else if (CveMonedaPago == 1 && tCveMoneda == 2) + { + //ImporteComisionMN = ImporteComision; + + //ImporteMN = Importe; + //ImporteComplementaria = (Importe * TC - Importe).RoundSQL(); + } + else if (CveMonedaPago == 2 && tCveMoneda == 1) + { + ImporteBancosMN = Importe; + ImporteMN = Importe; + //ImporteComisionMN = ImporteComision; + //ImporteComplementaria = 0; + } + else if (CveMonedaPago == 2 && tCveMoneda == 2) + { + + //ImporteComisionMN = ImporteComision; + //ImporteMN = Importe; + //ImporteComplementaria = (Importe * TC - Importe).RoundSQL(); + } //ImporteMN = ImporteMN.RoundSQL(); //ImporteComplementaria = ImporteComplementaria.RoundSQL(); diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 295e02fde..eb51750c3 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -531,10 +531,17 @@
Importación -
+
+
+ + Importación: +
+ +
+
Folio Garantía
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 355c7a521..3663cbb30 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -2841,6 +2841,19 @@ Partial Class Compras_Compras TxtRembolsoNumero.Enabled = If(IdPoliza > 0, False, True) + If dr("CveImportacion").ToString <> "" Then + divCompraImportacion.Visible = True + HplCompraImportacion.Text = dr("Importacion").ToString + If dr("TipoImportacion").ToString = "2" Then 'flete/indirecto + LtlImportacionTexto.Text = "Indirecto" + HplCompraImportacion.NavigateUrl = $"/Inventarios/Fletes.aspx?CveFlete={dr("CveImportacion")}" + Else + HplCompraImportacion.NavigateUrl = $"/Compras/Importaciones.aspx?CveImportacion={dr("CveImportacion")}" + End If + + End If + + If dr("CveFolioGarantia").ToString <> "" Then divFolioGarantia.Visible = True DdlFolioGarantia.Items.Insert(0, New ListItem(dr("FolioGarantia").ToString, dr("CveFolioGarantia").ToString)) @@ -3004,7 +3017,6 @@ Partial Class Compras_Compras ImgFecha.Enabled = False CEFecha.Enabled = False - If UsuarioActual.TienePermisoProceso(342) Then TxtFecha.Enabled = True ImgFecha.Enabled = True @@ -3012,8 +3024,6 @@ Partial Class Compras_Compras LnkActualziarFechadecompra.Visible = True End If - - DdlProveedor.Enabled = False DdlProveedorSucursal.Enabled = False DdlEstatus.Enabled = False diff --git a/Empresas/119/Formatos/RepIVA.rpt b/Empresas/119/Formatos/RepIVA.rpt index c09e9e811..214b40af6 100644 Binary files a/Empresas/119/Formatos/RepIVA.rpt and b/Empresas/119/Formatos/RepIVA.rpt differ diff --git a/Empresas/119/Formatos/RepIVAAcreditable.rpt b/Empresas/119/Formatos/RepIVAAcreditable.rpt index a1124d4e7..5b9781196 100644 Binary files a/Empresas/119/Formatos/RepIVAAcreditable.rpt and b/Empresas/119/Formatos/RepIVAAcreditable.rpt differ diff --git a/Empresas/Grales/Formatos/RepIVA.rpt b/Empresas/Grales/Formatos/RepIVA.rpt index 46c367c4c..629f1ee5d 100644 Binary files a/Empresas/Grales/Formatos/RepIVA.rpt and b/Empresas/Grales/Formatos/RepIVA.rpt differ diff --git a/Empresas/Grales/Formatos/RepIVAAcreditable.rpt b/Empresas/Grales/Formatos/RepIVAAcreditable.rpt index 25fec2118..9b6052ed7 100644 Binary files a/Empresas/Grales/Formatos/RepIVAAcreditable.rpt and b/Empresas/Grales/Formatos/RepIVAAcreditable.rpt differ diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 73704b612..9ecfe5bbe 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -1910,6 +1910,9 @@ Partial Class Inventarios_EntradasSalidas If UsuarioActual.Empresa.Funcionalidad(342).ToEntero > 0 Then IdCtaContableOtro = UsuarioActual.Empresa.Funcionalidad(342).ToEntero End If + Case 34 + CveConceptoContable = 51 + EsContabilizable = True Case 13, 29 CveConceptoContable = 69 TipoMovtoOtro = True @@ -1930,7 +1933,7 @@ Partial Class Inventarios_EntradasSalidas Else 'Dim Total As Decimal = 0 - If CveConceptoContable.Contiene(181, 78) Then + If CveConceptoContable.Contiene(181, 78, 51) Then Dim Dt As DataTable = ObjInventario.DtResultados.FiltraParametros("", "", {"CveClasificacion"}).Copy 'Dim IdCuentaGasto As Integer = 0 For Each Dr As DataRow In Dt.Rows diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index 9c4e09413..c011b8eb8 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -3137,7 +3137,7 @@ Partial Class Inventarios_EntregaAlmacen If Not ErrorMovInv AndAlso ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then If ObjConta.ValorPolizaDescuadre > 0 Then - GuardaLogAD($"Compras/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") + GuardaLogAD($"Inventario/EntregaAlmacen | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") ErrorMovInv = True End If End If diff --git a/Inventarios/RecepcionAlmacen.aspx b/Inventarios/RecepcionAlmacen.aspx index d66ae6da0..77a4a4701 100644 --- a/Inventarios/RecepcionAlmacen.aspx +++ b/Inventarios/RecepcionAlmacen.aspx @@ -518,7 +518,7 @@ - + diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 4c5cdf47e..851fd98cc 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -227,7 +227,7 @@ Partial Class Inventarios_TraspasoAlmacen CvePS = 0 TipoSeccionAlmacen = 0 Dim PermisoEspecialCambioFecha As Boolean = False - If UsuarioActual.CveUsuario = 1937 Then PermisoEspecialCambioFecha = True + If UsuarioActual.CveUsuario.Contiene(100, 1937) Then PermisoEspecialCambioFecha = True If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 And Not PermisoEspecialCambioFecha Then TxtFecha.Enabled = False @@ -972,7 +972,7 @@ Partial Class Inventarios_TraspasoAlmacen If Existencia < 0 Then ErrorExistencia = True - TextoExistencia.AppendFormat("-#{0} {1} {2}   Existencia: {3}{4}
", gvr.DataKey("No"), gvr.DataKey("PS"), If(gvr.DataKey("Serie").ToString().Trim().Length > 0, $"   Serie: {gvr.DataKey("Serie")}", ""), (Existencia + gvr.FCTextBox("TxtCantidad2").Text.ToEntero), MsgAdicional) + TextoExistencia.AppendFormat(" {1},", gvr.DataKey("No"), gvr.DataKey("CvePS"), If(gvr.DataKey("Serie").ToString().Trim().Length > 0, $"   Serie: {gvr.DataKey("Serie")}", ""), (Existencia + gvr.FCTextBox("TxtCantidad2").Text.ToEntero), MsgAdicional) End If Next diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs index 0a10319c1..121ddff4c 100644 --- a/Nomina/Nomina.aspx.cs +++ b/Nomina/Nomina.aspx.cs @@ -8362,7 +8362,7 @@ public partial class Nomina_Nomina2 : ClsPaginas { using (ClsNominas objnom = new ClsNominas()) { - if (objnom.RegistraProvision(CvePeriodoSeleccionado, UsuarioActual.CveEmpresa)) + if (objnom.RegistraProvision(CvePeriodoSeleccionado, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) { int CvePrePolizaProvision = 0; int CvePrePolizaasmilidos = 0; int CvePrePolizaProrrateo = 0; if (objnom.DTSetResultados.Tables.Count > 1 && objnom.DTSetResultados.Tables[1].Rows.Count == 0) diff --git a/RH/SolicitudViaticos.aspx.cs b/RH/SolicitudViaticos.aspx.cs index 39f049ba5..341ed2e16 100644 --- a/RH/SolicitudViaticos.aspx.cs +++ b/RH/SolicitudViaticos.aspx.cs @@ -151,10 +151,12 @@ public partial class RH_SolicitudViaticos : ClsPaginas } else { - if ((UsuarioActual.CveEmpresa == 72 || UsuarioActual.CveEmpresa == 1 || UsuarioActual.CveEmpresa == 2) && UsuarioActual.CvePersonal > 0) + + if ((UsuarioActual.CveEmpresa.Contiene(1,2,72, 172, 173, 174)) && UsuarioActual.CvePersonal > 0) { CargaFolio(); } + BtnGuardar.Text = "Guardar"; LnkImprimirExcel.Visible = false;