diff --git a/Acumuladores/CatFoliosGarantia.aspx b/Acumuladores/CatFoliosGarantia.aspx index f707c911f..dcbf88e55 100644 --- a/Acumuladores/CatFoliosGarantia.aspx +++ b/Acumuladores/CatFoliosGarantia.aspx @@ -109,15 +109,13 @@ - - +
-
+
" style="display: inline-block; margin-right: -20px; width: 150px;" /> " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
-
- +
@@ -125,7 +123,7 @@ @@ -162,8 +160,12 @@   - - + + + + + + @@ -370,20 +372,12 @@
-
- - - - - -
Folio Garantia: - -
+
-
+
Folio Garantia:
-
+
" style="display: inline-block; margin-right: -20px; width: 150px;" /> " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
@@ -395,21 +389,21 @@ - + - - - - + + + + - + @@ -425,6 +419,7 @@ + diff --git a/Acumuladores/CatFoliosGarantia.aspx.vb b/Acumuladores/CatFoliosGarantia.aspx.vb index c367fba25..0408ee6a0 100644 --- a/Acumuladores/CatFoliosGarantia.aspx.vb +++ b/Acumuladores/CatFoliosGarantia.aspx.vb @@ -56,8 +56,8 @@ Partial Class Acumuladores_CatFoliosGarantia Dim objAcum As New ClsAcumuladores - If objAcum.FoliosGarantiaGet(-1, UsuarioActual.Empresa.CveEmpresa, Estatus:=EstatusValor, TipoFolio:=tipoFolioValor, Area:=-1, CveSubProyecto:=DdlSubProyectoFiltro.SelectedValue.ToEntero()) Then - GvFolioGarantia.DataSource = objAcum.DtResultados + If objAcum.FoliosGarantiaGet(-1, UsuarioActual.Empresa.CveEmpresa, Estatus:=EstatusValor, TipoFolio:=tipoFolioValor, Area:=-1, CveSubProyecto:=DdlSubProyectoFiltro.SelectedValue.ToEntero()) Then + GvFolioGarantia.DataSource = objAcum.DtResultados Else GvFolioGarantia.DataSource = Nothing End If @@ -124,7 +124,7 @@ Partial Class Acumuladores_CatFoliosGarantia 'TxtCompra.Text = "" 'TxtPuntos.Text = "" - CargadatosGvFolioGarantia(-1, "-1") + CargadatosGvFolioGarantia(DdlEstatus.SelectedValue.ToEntero, "-1") RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarFolioGarantia"), "jsHideModalFolioGarantia") UpGral.Update() @@ -144,7 +144,7 @@ Partial Class Acumuladores_CatFoliosGarantia 'TxtCompra.Text = "" 'TxtPuntos.Text = "" - CargadatosGvFolioGarantia(-1, "-1") + CargadatosGvFolioGarantia(DdlEstatus.SelectedValue.ToEntero, "-1") UpModalFolioGarantia.Update() RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarFolioGarantia"), "jsHideModalFolioGarantia") @@ -176,7 +176,7 @@ Partial Class Acumuladores_CatFoliosGarantia End If objAcum.Dispose() - CargadatosGvFolioGarantia(-1, "-1") + CargadatosGvFolioGarantia(DdlEstatus.SelectedValue.ToEntero, "-1") CveFolioGarantia = -1 End Sub @@ -189,8 +189,8 @@ Partial Class Acumuladores_CatFoliosGarantia LtlTituloModalFolioGarantia.Text = "Editar Folio Garantía" Actualizar = True - CveFolioGarantia = GvRow.DataKey("CveFolioGarantia") - + CveFolioGarantia = GvRow.DataKey("CveFolioGarantia") + TxtFolioGarantia.Text = GvRow.DataKey("FolioGarantia") DdlEstatusEditar.SelectedValueExist(GvRow.DataKey("CveEstatus")) TxtLimite.Text = GvRow.DataKey("Limite") @@ -225,6 +225,8 @@ Partial Class Acumuladores_CatFoliosGarantia Using ObjAcum As New ClsAcumuladores If ObjAcum.GetFoliosGarantiasDetalle(CveFolioGarantia) Then GvGarantiasDetalle.DataSource = ObjAcum.DtResultados + HplGenerarSalida.NavigateUrl = "/Inventarios/TraspasoAlmacen.aspx?CveFolioGarantia=" & CveFolioGarantia + End If End Using GvGarantiasDetalle.DataBind() @@ -307,4 +309,8 @@ Partial Class Acumuladores_CatFoliosGarantia e.Row.FCHyperLink("HlDescargarPDF").NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={Encripta($"OP=AJUSTE&CveGarantiaDetalle={e.Row.DBCampo("CveGarantiaDetalle")}")}" End If End Sub + + Protected Sub BtnGenerarSalida_Click(sender As Object, e As EventArgs) + + End Sub End Class diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 7d53118dc..80f566d0c 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -5514,13 +5514,23 @@ Public Class ClsInventarios #End Region + + + + + + + + + #Region "Camiones" - Public Function GetCamiones(CveCamion As Integer, CveEmpresa As Integer) As Boolean + Public Function GetCamiones(CveCamion As Integer, CveEmpresa As Integer, Optional CveTipoCamion As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_CamionesGet") With SqlAdapter.SelectCommand.Parameters .Add("@CveCamion", SqlDbType.Int).Value = CveCamion .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveTipoCamion", SqlDbType.Int).Value = CveTipoCamion End With Try SqlAdapter.Fill(Data) @@ -5623,6 +5633,13 @@ Public Class ClsInventarios End Function #End Region + + + + + + + Public Function GetExistenciasMedRin(CvePS As Integer, CveEmpresa As Integer, CveRinTamaño As Integer, CveMedida As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_ExistenciaMedRinGet") diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 5ae6fb294..ec1c98082 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -150,7 +150,7 @@ Public Class ClsPaginas If Application("GlobalTipoCambioUltimaFluctuacion") IsNot Nothing Then - Dim dr = DirectCast(Application("GlobalTipoCambioUltimaFluctuacion"), DataTable).FiltroPrimero(String.Format("Fecha = '{0}'", Fecha)) + Dim dr = DirectCast(Application("GlobalTipoCambioUltimaFluctuacion"), DataTable).FiltroPrimero(String.Format("Fecha <= '{0}'", Fecha), Orderby:="Fecha DESC") If dr IsNot Nothing Then fluctuacion.TCFluctuacion = dr("TCFluctuacion").ToString().ToDecimal() fluctuacion.FechaFluctuacion = dr("FechaFluctuacion").ToString().ToDateTime() @@ -7132,13 +7132,7 @@ Public Class ClsPaginas Dim VendedorTelefono As String = "" Dim VendedorCelular As String = "" - Dim RowVendedor As DataRow = Nothing - - Dim ObjVendedores As New ClsVtaVendedores - If ObjVendedores.GetVendedores(UsuarioActual.CveEmpresa) Then - RowVendedor = ObjVendedores.DtResultados.FiltroPrimero(String.Format("CveVendedor = {0}", Vta.CveVendedor.ToString)) - End If - ObjVendedores.Dispose() + Dim RowVendedor As DataRow = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveVendedor = {0}", Vta.CveVendedor.ToString)) If Not IsNothing(RowVendedor) Then VendedorNombre = RowVendedor("Vendedor").ToString diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index bdde60a8d..fe1026c75 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -5271,7 +5271,7 @@ Public Class ClsVentas Return Retorno End Function - Public Function GetAutorizacionLimite(CveEmpresa As Integer, CveCliente As Integer, CveVendedor As Integer, Optional CveEstatus As Integer = -1, Optional FechaI As DateTime = MinFecha, Optional FechaF As DateTime = MaxFecha) As Boolean + Public Function GetAutorizacionLimite(CveEmpresa As Integer, CveCliente As Integer, CveVendedor As Integer, TipoDocumento As String, Optional CveEstatus As Integer = -1, Optional FechaI As DateTime = MinFecha, Optional FechaF As DateTime = MaxFecha) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_AutorizacionLimitesGet") With SqlAdapter.SelectCommand.Parameters @@ -5279,6 +5279,7 @@ Public Class ClsVentas .Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus + .Add("@TipoDocumento", SqlDbType.VarChar).Value = TipoDocumento .Add("@FechaI", SqlDbType.Date).Value = FechaI .Add("@FechaF", SqlDbType.Date).Value = FechaF End With diff --git a/Bancos/RepEgresosSinComprobante.aspx.vb b/Bancos/RepEgresosSinComprobante.aspx.vb index 6b0c8d62e..517fda443 100644 --- a/Bancos/RepEgresosSinComprobante.aspx.vb +++ b/Bancos/RepEgresosSinComprobante.aspx.vb @@ -204,7 +204,6 @@ Partial Class Bancos_RepEgresosSinComprobante Try For Each gr As GridViewRow In GvESC.Rows If gr.FCCheckBox("Chk").Checked Then - Dim CveCuenta As Integer = 0 Dim IdCtaContable As Integer = 0 Dim TipoMovtoOtIngresos As Boolean = True Dim TipoMovtoConcepto As Boolean = False @@ -231,24 +230,18 @@ Partial Class Bancos_RepEgresosSinComprobante End If End If - If ObjConta.GetCuentaDobleConta(IdCtaContable, UsuarioActual.CveEmpresa) Then - If ObjConta.DtResultados.Rows.Count > 0 Then - CveCuenta = ObjConta.DtResultados.Rows(0)("CveCuenta").ToString.ToEntero - End If - End If - CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepEgresosSinComprobante", 6, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, gr.DataKey("CveMoneda").ToEntero, Now, "Saldo de ExC por Sistema", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoConcepto, gr.DataKey("Saldo").ToDecimal, "", CveConceptoContable, "Saldo de ExC por Sistema", Now, -1, -1, gr.DataKey("CveIE").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero, - ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveCuenta:=CveCuenta) Then + ImporteMX:=gr.DataKey("Saldo").ToDecimal) Then MsgError = "Ocurrio un error al saldar el movimiento" Exit For End If If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOtIngresos, gr.DataKey("Saldo").ToDecimal, "", 78, "Saldo de ExC por Sistema", Now, -1, -1, gr.DataKey("CveIE").ToEntero, - ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveSubProyecto:=gr.DataKey("CveSubProyecto").ToEntero, CveCuenta:=CveCuenta) Then + ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveSubProyecto:=gr.DataKey("CveSubProyecto").ToEntero) Then MsgError = "Ocurrio un error al saldar el movimiento" Exit For End If @@ -292,7 +285,6 @@ Partial Class Bancos_RepEgresosSinComprobante Try For Each gr As GridViewRow In GvPersonal.Rows If gr.FCCheckBox("Chk").Checked Then - Dim CveCuenta As Integer = 0 Dim IdCtaContPersonal As Integer = 0 Dim CveConceptoContable As Integer Dim TipoMovtoOtIngresos As Boolean = True @@ -319,24 +311,18 @@ Partial Class Bancos_RepEgresosSinComprobante End If End If - If ObjConta.GetCuentaDobleConta(IdCtaContPersonal, UsuarioActual.CveEmpresa) Then - If ObjConta.DtResultados.Rows.Count > 0 Then - CveCuenta = ObjConta.DtResultados.Rows(0)("CveCuenta").ToString.ToEntero - End If - End If - CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepEgresosSinComprobante", 6, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, gr.DataKey("CveMoneda").ToEntero, Now, "Saldo de ExC por Sistema", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoConcepto, gr.DataKey("Saldo").ToDecimal, "", CveConceptoContable, "Saldo de ExC por Sistema", Now, -1, -1, gr.DataKey("CveIE").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero, - ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveCuenta:=CveCuenta) Then + ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveSubProyecto:=-1) Then MsgError = "Ocurrio un error al saldar el movimiento" Exit For End If If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOtIngresos, gr.DataKey("Saldo").ToDecimal, "", 78, "Saldo de ExC por Sistema", Now, -1, -1, gr.DataKey("CveIE").ToEntero, - ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveCuenta:=CveCuenta) Then + ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveSubProyecto:=-1) Then MsgError = "Ocurrio un error al saldar el movimiento" Exit For End If diff --git a/Bin/GoCfdi.dll b/Bin/GoCfdi.dll index 9fbf0c80c..927dddc9b 100644 Binary files a/Bin/GoCfdi.dll and b/Bin/GoCfdi.dll differ diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index a7e2bb239..ea531cdb6 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -7287,17 +7287,17 @@ Partial Class Compras_Compras If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then For Each Gvr As GridViewRow In GvFacturaNC.Rows If Gvr.FCCheckBox("ChkFacturaNC").Checked Then - Dim CvePrePolizaTemp = ObjConta.AddPrePolizas("Compras/Registrar", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa)) + 'Dim CvePrePolizaTemp = ObjConta.AddPrePolizas("Compras/Registrar", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa)) Dim importeMovimientoNC = Gvr.FCTextBox("TxtImporte").Text.ToDecimal Dim importeMNNC = importeMovimientoNC * tipoCambioActual * Multiplicador - If ObjConta.AddPrePolizasDetalle(CvePrePolizaTemp, False, importeMovimientoNC, Referencia, 272, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoNC), CveCompraAmortizacion:=CveCompra, Contabilizable:=SeContabiliza) Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTemp, True, importeMovimientoNC, Referencia, 60, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoNC), Contabilizable:=SeContabiliza) Then + If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimientoNC, Referencia, 272, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoNC), CveCompraAmortizacion:=CveCompra, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimientoNC, Referencia, 60, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoNC), Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If Else ErrorPrepoliza = True End If - ObjConta.PrePolizaUnificacion(CvePrePoliza, CvePrePolizaTemp) + 'ObjConta.PrePolizaUnificacion(CvePrePoliza, CvePrePolizaTemp) End If Next End If @@ -9906,6 +9906,8 @@ Partial Class Compras_Compras End If 'End If + + '--------------------------------------------------------------------------------------------------- ''EMPIEZA: SI USA AC If UsuarioActual.Empresa.UsaAC AndAlso IdPoliza > 0 Then ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa) @@ -10228,7 +10230,7 @@ Partial Class Compras_Compras End If ''TERMINA: SI USA AC - + '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------- If Not ErrorAC Then Dim Cont As Integer = 0 @@ -10729,6 +10731,7 @@ Partial Class Compras_Compras If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 4) Then If ObjConta.ValorPolizaDescuadre > 0 Then ErrorPrepoliza = True + Alert("Error en validacion de prepoliza cuadre", TipoMensaje.MsgAdvertencia) GuardaLogAD($"Compras/Compras-Actualizar | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") End If End If diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index d0899a35a..d660ba9ab 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -264,7 +264,7 @@ Partial Class PopUpVerFactura Remolque1 = String.Format("{0} ", row("Rem1Especificacion"), row("Rem1Anio")) Mercado = If(row("AgenciaAduanalUSA").ToString() = "2", "Extranjero", "Nacional") - NumeroTrailer = row("NumeroTrailer").ToString() + NumeroTrailer = String.Format("No. {0}", row("NumeroTrailer").ToString()) LongitudCaja = row("LongitudCaja").ToString() LineaTransportacion = row("LineaTransportacion").ToString() diff --git a/Documentacion/TableroMaterialidad.aspx b/Documentacion/TableroMaterialidad.aspx index 744690695..a2a338199 100644 --- a/Documentacion/TableroMaterialidad.aspx +++ b/Documentacion/TableroMaterialidad.aspx @@ -11,9 +11,39 @@ #C_Tab_Tlablero tr td:nth-child(n+2) { text-align: center } - .spanfoliofiscal{ - white-space:nowrap; + + .spanfoliofiscal { + white-space: nowrap; } + th:not(.Modulo5) + th.Modulo5, + th:not(.Modulo6) + th.Modulo6, + th:not(.Modulo7) + th.Modulo7{ + border-left:1px solid black; + } + th.Modulo5 + th:not(.Modulo5), + th.Modulo6 + th:not(.Modulo6), + th.Modulo7 + th:not(.Modulo7){ + border-left:1px solid black; + } + .ADScroller-header .trtitle{ + display:none; + } + /* + tr:first-child th.Modulo5, + tr th.Modulo6, + tr th.Modulo7{ + border-left:1px solid black; + } + tr th.Modulo5:nth-child(1), + tr th.Modulo6:nth-child(1), + tr th.Modulo7:nth-child(1){ + border-left:1px solid black; + } + tr th.Modulo5:nth-last-child(1), + tr th.Modulo6:nth-last-child(1), + tr th.Modulo7:nth-last-child(1){ + border-right:1px solid black; + }*/ @@ -24,6 +54,10 @@ + +
  • + +
  • Cargar Doctos <%--Cargar Doctos--%> @@ -32,6 +66,7 @@ Cargar XML PDF <%--Cargar XML PDF--%>
    • +
  • Enviar
    •      @@ -83,9 +118,13 @@
    - + +
    + + @@ -95,9 +134,9 @@ - + - <%-- + <%-- class='Modulo5' @@ -115,7 +154,7 @@ "; + + LtlThs.Text = string.Format("{0}{1}", LtlThs.Text, string.Concat(Enumerable.Repeat("", dt.Rows.Count))); + LtlThs.Text = string.Format("{0}", LtlThs.Text); + int filas = dt.FiltraParametros("Modulo =5").Rows.Count; + if(filas > 0) + { + LtlThs.Text = string.Format("{0}", LtlThs.Text, filas); + } + filas = dt.FiltraParametros("Modulo =6").Rows.Count; + if (filas > 0) + { + LtlThs.Text = string.Format("{0}", LtlThs.Text, filas); + } + filas = dt.FiltraParametros("Modulo =7").Rows.Count; + if (filas > 0) + { + LtlThs.Text = string.Format("{0}", LtlThs.Text, filas); + } + LtlThs.Text = string.Format("{0}", LtlThs.Text); RPTTableroHeader.DataSource = edoc.DSResultados.Tables[1]; RPTTableroHeader.DataBind(); RptDatos.DataBind(); @@ -350,12 +380,12 @@ public partial class Documentacion_TableroMaterialidad : ClsPaginas } - public void procesararchivo(string xmlobject,int periodo, bool guardarInformacion =false) + public void procesararchivo(string xmlobject, int periodo, bool guardarInformacion = false) { using (ClsEdocumentacion edoc = new ClsEdocumentacion()) { - if (edoc.materialidadDoctos(xmlobject,UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, periodo, guardarInformacion)) + if (edoc.materialidadDoctos(xmlobject, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, periodo, guardarInformacion)) { if (edoc.DtResultados.Rows.Count > 0) { @@ -542,6 +572,71 @@ public partial class Documentacion_TableroMaterialidad : ClsPaginas Alert("El correo se ha enviado."); } + + protected void BtnAgregarDocumento_Click(object sender, EventArgs e) + { + + Txtdocumentacion.Text = ""; + TxtOrden.Text = "1"; + TxtPeriodicidad.Text = "1"; + TxtDiasLimite.Text = "1"; + BtnAgregarDocumentoModal.Text = "Agregar"; + LtlTituloModalDocumentacion.Text = "Agregar documentación"; + DdlDocumentacionTipo.SelectedIndex = 0; + chkEstatus.Checked = true; + chkRequerido.Checked = true; + + ActualizarDocumentacion = false; + UpModalDocumentacion.Update(); + RegistraScript("$('#divAgregarDocumentacion').modal({ backdrop: 'static', keyboard: false});"); + } + + + + protected void BtnAgregarDocumentoModal_Click(object sender, EventArgs e) + { + using (ClsEdocumentacion objRH = new ClsEdocumentacion()) + { + int intCompleto = 0; + int _estatus = 0; + int _requerido = 0; + string _formato = ""; + + + if (chkEstatus.Checked) + _estatus = 1; + + if (chkRequerido.Checked) + _requerido = 1; + + if (ActualizarDocumentacion) + { + //_formato = GuardarArchivo(CveDocumentacion); + if (objRH.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim(), _formato, DdlDocumentacionTipo.SelectedValue.ToEntero(), _estatus, TxtOrden.Text.ToEntero(), _requerido, TxtDiasLimite.Text.ToEntero(), ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.Empresa.CveEmpresa, TxtPeriodicidad.Text.ToEntero())) + { + RegistraScript(string.Format("$('#{0}').modal('hide');", "divAgregarDocumentacion")); + Alert("Documento Actualizado correctamente.", ModExtensiones.TipoMensaje.MsgInformacion); + cargadatos(); + } + } + else if (objRH.DocumentacionAdd(Txtdocumentacion.Text.Trim(), _formato, DdlDocumentacionTipo.SelectedValue.ToEntero(), _estatus, TxtOrden.Text.ToEntero(), _requerido, TxtDiasLimite.Text.ToEntero(), ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.Empresa.CveEmpresa, TxtPeriodicidad.Text.ToEntero())) + { + //CveDocumentacion = objRH.DtResultados(0)(0).ToString.ToEntero; + //_formato = GuardarArchivo(CveDocumentacion); + if (objRH.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim(), _formato, DdlDocumentacionTipo.SelectedValue.ToEntero(), _estatus, TxtOrden.Text.ToEntero(), _requerido, TxtDiasLimite.Text.ToEntero(), ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.Empresa.CveEmpresa, TxtPeriodicidad.Text.ToEntero())) + { + } + + RegistraScript(string.Format("$('#{0}').modal('hide');", "divAgregarDocumentacion")); + Alert("Documento agregado correctamente.", ModExtensiones.TipoMensaje.MsgInformacion); + cargadatos(); + } + + ActualizarDocumentacion = false; + + } + + } } public class archivoxmlpdf { diff --git a/Edoc/CatDocumentos.aspx.vb b/Edoc/CatDocumentos.aspx.vb index 2858a24c0..f4a6cd1aa 100644 --- a/Edoc/CatDocumentos.aspx.vb +++ b/Edoc/CatDocumentos.aspx.vb @@ -323,49 +323,51 @@ Partial Class RH_CatDocumentos Protected Sub BtnAgregarDocumentoModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarDocumentoModal.Click - Dim objRH As New ClsEdocumentacion - Dim intCompleto As Integer = 0 - Dim _estatus As Integer = 0 - Dim _requerido As Integer = 0 - Dim _formato As String = "" - - - If chkEstatus.Checked Then - _estatus = 1 - End If - - If chkRequerido.Checked Then - _requerido = 1 - End If - - If ActualizarDocumentacion Then - - _formato = GuardarArchivo(CveDocumentacion) - If objRH.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.Empresa.CveEmpresa, - TxtPeriodicidad.Text.ToEntero) Then - - RegistraScript(String.Format("$('#{0}').modal('hide');", "divAgregarDocumentacion")) - Alert("Documento Actualizado correctamente.", TipoMensaje.MsgInformacion) - CargaDocumentacion() - End If - - Else - If objRH.DocumentacionAdd(Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.Empresa.CveEmpresa, TxtPeriodicidad.Text.ToEntero) Then - - CveDocumentacion = objRH.DtResultados(0)(0).ToString.ToEntero - _formato = GuardarArchivo(CveDocumentacion) - If objRH.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.Empresa.CveEmpresa, - TxtPeriodicidad.Text.ToEntero) Then - - End If - - RegistraScript(String.Format("$('#{0}').modal('hide');", "divAgregarDocumentacion")) - Alert("Documento agregado correctamente.", TipoMensaje.MsgInformacion) - CargaDocumentacion() - End If - End If - - ActualizarDocumentacion = False + Using objRH As New ClsEdocumentacion + + Dim intCompleto As Integer = 0 + Dim _estatus As Integer = 0 + Dim _requerido As Integer = 0 + Dim _formato As String = "" + + + If chkEstatus.Checked Then + _estatus = 1 + End If + + If chkRequerido.Checked Then + _requerido = 1 + End If + + If ActualizarDocumentacion Then + + _formato = GuardarArchivo(CveDocumentacion) + If objRH.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.Empresa.CveEmpresa, + TxtPeriodicidad.Text.ToEntero) Then + + RegistraScript(String.Format("$('#{0}').modal('hide');", "divAgregarDocumentacion")) + Alert("Documento Actualizado correctamente.", TipoMensaje.MsgInformacion) + CargaDocumentacion() + End If + + Else + If objRH.DocumentacionAdd(Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.Empresa.CveEmpresa, TxtPeriodicidad.Text.ToEntero) Then + + CveDocumentacion = objRH.DtResultados(0)(0).ToString.ToEntero + _formato = GuardarArchivo(CveDocumentacion) + If objRH.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.Empresa.CveEmpresa, + TxtPeriodicidad.Text.ToEntero) Then + + End If + + RegistraScript(String.Format("$('#{0}').modal('hide');", "divAgregarDocumentacion")) + Alert("Documento agregado correctamente.", TipoMensaje.MsgInformacion) + CargaDocumentacion() + End If + End If + + ActualizarDocumentacion = False + End Using End Sub diff --git a/General/CatCompuestos.aspx b/General/CatCompuestos.aspx index 5bcc9de7a..1ac8c194f 100644 --- a/General/CatCompuestos.aspx +++ b/General/CatCompuestos.aspx @@ -29,8 +29,8 @@ - - + + diff --git a/Inventarios/RecepcionAlmacen.aspx b/Inventarios/RecepcionAlmacen.aspx index 0d1a3d2f8..05edfc060 100644 --- a/Inventarios/RecepcionAlmacen.aspx +++ b/Inventarios/RecepcionAlmacen.aspx @@ -1137,8 +1137,7 @@
    - - +
    diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index c1fc2f3eb..af21343d2 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -4934,6 +4934,41 @@ Partial Class Inventarios_RecepcionAlmacen End If End Sub + + Protected Sub LbDescargarExcelConceptos_Click(sender As Object, e As EventArgs) + DescargarFormato() + End Sub + + Public Sub DescargarFormato() + Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\Formatos\FormatoRecepcionAlmacen.xlsx" + Dim dtt As New DataTable + dtt = DtInv.Copy() + dtt.Columns.Remove("Cantidad") + dtt.Columns("CantidadF").ColumnName = "Cantidad" + dtt.Columns("PS").ColumnName = "Producto" + dtt.Columns("Codigo").ColumnName = "Código" + + Dim existingcol As New List(Of String) '= {"Cantidad", "Producto", "Código"} + + For Each col As DataColumn In dtt.Columns + If Not col.ColumnName.Contiene("Cantidad", "Producto", "Código") Then + existingcol.Add(col.ColumnName) + End If + Next + + For Each colName As String In existingcol + dtt.Columns.Remove(colName) + Next + + dtt.Columns("Cantidad").SetOrdinal(0) + dtt.Columns("Código").SetOrdinal(1) + dtt.Columns("Producto").SetOrdinal(2) + + dtt.Columns.Add("Serie", GetType(String)) + dtt.ExportToExcel("FormatoRecepcionAlmacen.xlsx") + + End Sub + #End Region 'Protected Sub BtnGuardarDocumento_Click(sender As Object, e As EventArgs) @@ -5041,4 +5076,5 @@ Partial Class Inventarios_RecepcionAlmacen End Class + End Class diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb index 71f0b413b..4d1b6a882 100644 --- a/Inventarios/RecepcionUsados.aspx.vb +++ b/Inventarios/RecepcionUsados.aspx.vb @@ -570,11 +570,13 @@ Partial Class Inventarios_RecepcionUsados DdlMoneda.DataSource = GlobalDTMonedas DdlMoneda.DataBind() - 'Llenar el dropdownlist de almacén - DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen IN (22)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa) + Dim dtt As DataTable = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen IN (22)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa) - DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1")) - DdlAlmacen.SelectedValue = "-1" + 'Llenar el dropdownlist de almacén + DdlAlmacen.DataSource = dtt + + 'DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1")) + 'DdlAlmacen.SelectedValue = "-1" DdlAlmacen.DataBind() If IsNothing(Request("CveMovimiento")) Then @@ -2919,6 +2921,11 @@ Partial Class Inventarios_RecepcionUsados 'CvePrecioLista = CvePrecioListaPS End If + DdlTipoUso.Items.Clear() + DdlTipoUso.DataSource = GlobalDTAcumGarantiasMesesTipoUso(UsuarioActual.CveEmpresa, CveMarca) + DdlTipoUso.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlTipoUso.DataBind() + Dim MarcaPorcentaje As DataRow = DtPorcentajeMarcas.FiltroPrimero(String.Format("CveMarca = {0}", drPS("CveMarca").ToString)) If MarcaPorcentaje IsNot Nothing Then Dim PorcentajeProducto As Decimal = MarcaPorcentaje("PorcentajeProducto").ToString.ToDecimal / 100 diff --git a/Inventarios/RepAnomalias.aspx.vb b/Inventarios/RepAnomalias.aspx.vb index 0fa3a69e6..95c381d4a 100644 --- a/Inventarios/RepAnomalias.aspx.vb +++ b/Inventarios/RepAnomalias.aspx.vb @@ -339,13 +339,15 @@ Partial Class Inventarios_RepAnomalias ImgExcelProdcutosCoinciden.Visible = False LnkDescarExcelGrupos.Visible = True - GvGrupos.DataSource = dt.FiltraParametros("CvePS > 0") - GvGrupos.DataBind() - - LtlGrupos1.Text = dt.FiltraParametros("Orden = 1 and CvePS > 0").Rows.Count.ToString - LtlGrupos2.Text = dt.FiltraParametros("Orden = 2 and CvePS > 0").Rows.Count.ToString - LtlGrupos3.Text = dt.FiltraParametros("Orden = 3 and CvePS > 0").Rows.Count.ToString - + If dt IsNot Nothing Then + GvGrupos.DataSource = dt.FiltraParametros("CvePS > 0") + LtlGrupos1.Text = dt.FiltraParametros("Orden = 1 and CvePS > 0").Rows.Count.ToString + LtlGrupos2.Text = dt.FiltraParametros("Orden = 2 and CvePS > 0").Rows.Count.ToString + LtlGrupos3.Text = dt.FiltraParametros("Orden = 3 and CvePS > 0").Rows.Count.ToString + + End If + GvGrupos.DataBind() + If DdlGPO.SelectedValue.ToEntero = 1 Then PSIguales() End If diff --git a/Inventarios/TraspasoAlmacen.aspx b/Inventarios/TraspasoAlmacen.aspx index 4b253dae3..9a2231966 100644 --- a/Inventarios/TraspasoAlmacen.aspx +++ b/Inventarios/TraspasoAlmacen.aspx @@ -460,7 +460,7 @@
    Cliente <%# DataBinder.Eval(Container.DataItem, "Documentacion") %> ><%# DataBinder.Eval(Container.DataItem, "Documentacion") %>
    <%# String.Format("{0:dd/MM/yyyy} - {1:dd/MM/yyyy}", DataBinder.Eval(Container.DataItem, "InicioPeriodo"), DataBinder.Eval(Container.DataItem, "FinPeriodo")) %> <%# DataBinder.Eval(Container.DataItem, "Antiguedad") %> XML Timbrados PDF Timbrados - Enviar + @@ -249,9 +288,9 @@
    - Procesar + Procesar
    - +
    @@ -360,33 +399,37 @@ - + - Fecha
    inicio + Fecha
    + inicio     - + - Fecha
    fin + Fecha
    + fin     - + - Fecha
    pago + Fecha
    + pago     - + - Días
    pago + Días
    + pago     @@ -439,9 +482,9 @@ - +
    - Guardar + Guardar
    @@ -621,6 +664,93 @@ + + + diff --git a/Documentacion/TableroMaterialidad.aspx.cs b/Documentacion/TableroMaterialidad.aspx.cs index d232db48c..5524b48a0 100644 --- a/Documentacion/TableroMaterialidad.aspx.cs +++ b/Documentacion/TableroMaterialidad.aspx.cs @@ -19,6 +19,16 @@ public partial class Documentacion_TableroMaterialidad : ClsPaginas { #region "Propiedades" + public Boolean ActualizarDocumentacion + { + get { return ViewState["ActualizarDocumentacion"] != null ? (Boolean)ViewState["ActualizarDocumentacion"] : false; } + set { ViewState["ActualizarDocumentacion"] = value; } + } + public int CveDocumentacion + { + get { return ViewState["CveDocumentacion"] != null ? ViewState["CveDocumentacion"].ToString().ToEntero() : 0; } + set { ViewState["CveDocumentacion"] = value; } + } public int anio { get { return ViewState["anio"] != null ? ViewState["anio"].ToString().ToEntero() : 0; } @@ -67,6 +77,26 @@ public partial class Documentacion_TableroMaterialidad : ClsPaginas { RptDatos.DataSource = edoc.DSResultados.Tables[0]; dt = edoc.DSResultados.Tables[1]; + LtlThs.Text = "
    GeneralesPor ClienteNivel empleado
    - + diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 13af6e7cb..a35765415 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -28,7 +28,6 @@ Partial Class Inventarios_TraspasoAlmacen End Set End Property - Private Property CveAlmacenTransitorio As Integer Get Return CType(ViewState("CveAlmacenTransitorio"), Integer) @@ -198,6 +197,10 @@ Partial Class Inventarios_TraspasoAlmacen CargaMovimiento(Request("CveEntrada").ToString.ToEntero) End If + If Request("CveFolioGarantia") IsNot Nothing AndAlso Request("CveFolioGarantia").ToString.ToEntero > 0 Then + CargaMovimientoGarantia(Request("CveFolioGarantia").ToString.ToEntero) + End If + If UsuarioActual.Empresa.Funcionalidad(132) = "1" Then DivCodigoSeriePS.Visible = True Else @@ -221,7 +224,7 @@ Partial Class Inventarios_TraspasoAlmacen End If CantidadTotal = 0 - CvePS = 0 + CvePS = 0 TipoSeccionAlmacen = 0 If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then @@ -358,6 +361,59 @@ Partial Class Inventarios_TraspasoAlmacen UpMov.Update() End Sub + + + Private Sub CargaMovimientoGarantia(CveFolioGarantia As Integer) + Using ObjAcum As New ClsAcumuladores + If ObjAcum.GetFoliosGarantiasDetalle(CveFolioGarantia) Then + ''carga + Dim dra As DataRow = ObjAcum.DtResultados(0) + DivMov.Visible = True + ltlFolio.Text = dra("FolioGarantia").ToString + Dim CveSub As Integer = dra("CveSubProyecto").ToString.ToEntero + lblCompraRef.Visible = False + hplRef.Visible = False + TxtObservaciones.Text = "Folio Garantia: " & dra("FolioGarantia").ToString + + 'If Mov.CveCompra > 0 Then + ' hplRef.NavigateUrl = $"/Compras/Compras.aspx?CveCompra={Mov.CveCompra}" + ' lblCompraRef.Visible = True + ' hplRef.Visible = True + 'Else + ' hplRef.Visible = False + ' lblCompraRef.Visible = False + 'End If + ChkTransitorio.Enabled = False + DdlAlmacenOrigen.Enabled = True + DdlAlmacenOrigen.Items.Clear() + DdlAlmacenOrigen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 6).FiltraParametros(String.Format("CveSubProyecto={0}", CveSub)) + DdlAlmacenOrigen.DataBind() + + DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa, 21).FiltraParametros(String.Format("CveSubProyecto={0}", CveSub)) + DdlAlmacenDestino.DataBind() + + CargadoDeMov = True + + Dim dtt As DataTable = ObjAcum.DtResultados.FiltraParametros("", DistinctColumns:={"CvePS", "PS", "CveUM", "UnidadMedida", "Codigo"}) + + For Each drr As DataRow In dtt.Rows + Dim dr As DataRow = DtMovimientos.NewRow + dr("CvePS") = drr("CvePS") + dr("PS") = String.Format("{0} - {1}", drr("Codigo"), drr("PS")) + dr("CveUM") = drr("CveUM") + dr("UnidadMedida") = drr("UnidadMedida") + dr("Cantidad") = ObjAcum.DtResultados.COUNT("CvePS", "CvePS = " & drr("CvePS").ToString) + DtMovimientos.Rows.Add(dr) + Next + + CargaGvDatos() + End If + End Using + + UpMov.Update() + End Sub + + Private Sub AlmacenTransitorioDefaults() ChkTransitorio.Checked = UsuarioActual.Empresa.Funcionalidad(154).ToString.ToEntero > 0 ChkTransitorio.Enabled = Not UsuarioActual.Empresa.Funcionalidad(154).ToString.ToEntero > 0 @@ -898,16 +954,6 @@ Partial Class Inventarios_TraspasoAlmacen Dim tLote As String = If(Lote <> "-1", String.Format("AND Lote = '{0}' ", Lote), "") Dim tFechaCaducidad As String = If(FechaCaducidad > MinFecha, String.Format("AND FechaCaducidad = '{0}' ", FechaCaducidad), "") - 'If UsuarioActual.CveEmpresa = 140 Then - ' Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}").ToEntero - - ' If Not CveSubProyecto.Contiene(11791, 11793, 11993, 11994, 11794, 11797, 11795, 12010, 12011) Then - ' Serie = "-1" - ' End If - - 'End If - - Dim ExistenciaEspecificada As Decimal = 0 CantidadenGrid = DtMovimientos.SUMD("Cantidad", String.Format("CvePS = {0} AND CveUM = {1} {2} {3} {4} ", dr("CvePS"), dr("CveUM"), If(Not dr("Serie").ToString.Contiene("-1", ""), $" AND Serie = '{dr("Serie")}'", ""), tLote, tFechaCaducidad)) If ObjInventario.GetExistenciasProducto(dr("CvePS").ToString.ToEntero, dr("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie, Lote:=Lote, Caducidad:=FechaCaducidad) Then @@ -945,7 +991,7 @@ Partial Class Inventarios_TraspasoAlmacen Lote = If(gvr.DataKey("Lote") = "", "-1", gvr.DataKey("Lote")) FechaCaducidad = If(gvr.DataKey("FechaCaducidad") = "", MinFecha, gvr.DataKey("FechaCaducidad").ToDate) - If ObjInventario.GetExistenciasProducto(gvr.DataKey("CvePS").ToString.ToEntero, gvr.DataKey("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"), CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie, Lote:=Lote, Caducidad:=FechaCaducidad) Then + If ObjInventario.GetExistenciasProducto(gvr.DataKey("CvePS").ToEntero, gvr.DataKey("CveUM").ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"), CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie, Lote:=Lote, Caducidad:=FechaCaducidad) Then 'si hay existencia en almacen costeado, lo tengo que sacar Existencia = ObjInventario.DtResultados.FiltroPrimeroValor("ExistenciaFinal", String.Format("CVeAlmacen = {0}", DdlAlmacenOrigen.SelectedValue)).ToDecimal End If @@ -1249,12 +1295,12 @@ Partial Class Inventarios_TraspasoAlmacen RegistraScript(String.Format("AbrirVentana('/General/PopUpPaqueteriasGuias.aspx?CveMovimiento={0}',800,620);", CveMovimientoSalida)) End If - If UsuarioActual.CveEmpresa.Contiene(72, 80) Then - Dim Correo As String = "jorgegonzalez@compuproveedores.com" - If GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacenDestino.SelectedValue.ToEntero}").ToEntero = 16 Then - MandaCorreo(CveMovimientoSalida, Correo) - End If - End If + 'If UsuarioActual.CveEmpresa.Contiene(72, 80) Then + ' Dim Correo As String = "jorgegonzalez@compuproveedores.com" + ' If GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacenDestino.SelectedValue.ToEntero}").ToEntero = 16 Then + ' MandaCorreo(CveMovimientoSalida, Correo) + ' End If + 'End If LimpiaMovimiento() @@ -1769,7 +1815,7 @@ Partial Class Inventarios_TraspasoAlmacen End If - If UsuarioActual.Empresa.Funcionalidad(132) = "1" Then + If UsuarioActual.Empresa.Funcionalidad(132) = "1" OrElse UsuarioActual.CveEmpresa = 140 Then DivCodigoSeriePSRecepcion.Visible = True Else DivCodigoSeriePSRecepcion.Visible = False @@ -3330,7 +3376,7 @@ Partial Class Inventarios_TraspasoAlmacen If SATClaveUnidadMedida.Length = 0 Then SBMensaje.AppendLine("-Producto sin unidad de medida SAT asignada. ") - SBMensaje.AppendLine($"

    Corregir Producto ") + SBMensaje.AppendLine($"
    Editar Producto ") Alert(SBMensaje.ToString, TipoMensaje.MsgAdvertencia) diff --git a/Nomina/ISRCalculoAnual.aspx b/Nomina/ISRCalculoAnual.aspx deleted file mode 100644 index 6de631038..000000000 --- a/Nomina/ISRCalculoAnual.aspx +++ /dev/null @@ -1,128 +0,0 @@ -<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="ISRCalculoAnual.aspx.cs" Inherits="Nomina_ISCalculoAnual" %> - - - - - - - Calculo anual de ISR - - - - - - - - - - - - -
    -
    -
    -
    - -
    - -
    -
    - - -
    - -
    -
    -
    - <%----%> -
    -
    - -
    -     -     - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -     - - - diff --git a/Nomina/ISRCalculoAnual.aspx.cs b/Nomina/ISRCalculoAnual.aspx.cs deleted file mode 100644 index f6528e3b0..000000000 --- a/Nomina/ISRCalculoAnual.aspx.cs +++ /dev/null @@ -1,47 +0,0 @@ -using System; -using System.Collections.Generic; -using System.Data; -using System.Linq; -using System.Web; -using System.Web.UI; -using System.Web.UI.WebControls; -using Extensiones; - -public partial class Nomina_ISCalculoAnual : ClsPaginas -{ - protected void Page_Load(object sender, EventArgs e) - { - - DataTable dtejercicio = new DataTable(); - using (ClsNominas objnom = new ClsNominas()) - { - if (objnom.GetEjercicios(UsuarioActual.CveEmpresa)) - { - dtejercicio = objnom.DtResultados; - } - } - DdlEjercicios.DataSource = dtejercicio; - DdlEjercicios.DataBind(); - } - - protected void LnkConsultar_Click(object sender, EventArgs e) - { - CargaPersonalISRAnual(); - } - - protected void CargaPersonalISRAnual() - { - DataTable dtdatos = new DataTable(); - int ejercicio = DdlEjercicios.SelectedValue.ToEntero(); - using (ClsNominas objnom = new ClsNominas()) - { - if (objnom.PersonalISRAnual(-1, UsuarioActual.CveEmpresa, ejercicio)) - { - dtdatos = objnom.DTSetResultados.Tables[0]; - } - } - GVPersonalISRAnual.DataSource = dtdatos; - GVPersonalISRAnual.DataBind(); - upDatosPers.Update(); - } -} \ No newline at end of file diff --git a/RH/CatPersonal.aspx b/RH/CatPersonal.aspx index 0e9b885e3..8d69c7440 100644 --- a/RH/CatPersonal.aspx +++ b/RH/CatPersonal.aspx @@ -622,6 +622,13 @@     + + Riesgo de puesto + + + + +     @@ -794,6 +801,7 @@
    +
    diff --git a/RH/CatPersonal.aspx.vb b/RH/CatPersonal.aspx.vb index 952096265..5ffc3dff2 100644 --- a/RH/CatPersonal.aspx.vb +++ b/RH/CatPersonal.aspx.vb @@ -564,6 +564,11 @@ Partial Class RH_CatPersonal Else GvDatos.Columns(42).Visible = False End If + If ChkRiesgoPuesto.Checked Then + GvDatos.Columns(43).Visible = True + Else + GvDatos.Columns(42).Visible = False + End If If (GvDatos.Rows.Count > 0) Then diff --git a/Ventas/CatAutorizacionLimites.aspx.vb b/Ventas/CatAutorizacionLimites.aspx.vb index e6d3e5309..9d0be5465 100644 --- a/Ventas/CatAutorizacionLimites.aspx.vb +++ b/Ventas/CatAutorizacionLimites.aspx.vb @@ -1,5 +1,4 @@ - -Imports Extensiones +Imports Extensiones Partial Class Ventas_CatAutorizacionLimites Inherits ClsPaginas @@ -70,7 +69,7 @@ Partial Class Ventas_CatAutorizacionLimites FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim.ToDate, MaxFecha) Dim ObjGral As New ClsVentas - If ObjGral.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, DdlVendedorFiltro.SelectedValue.ToEntero(), CveEstatus:=DdlEstatus.SelectedValue.ToEntero(), FechaI:=FechaI, FechaF:=FechaF) Then + If ObjGral.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, DdlVendedorFiltro.SelectedValue.ToEntero(), "-1", CveEstatus:=DdlEstatus.SelectedValue.ToEntero(), FechaI:=FechaI, FechaF:=FechaF) Then GvDatos.DataSource = ObjGral.DtResultados End If ObjGral.Dispose() diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index 875e51c43..ec0f0bdc2 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -4359,6 +4359,11 @@ Partial Class PV End If End If + ''condicion final, si es cambio de Vigencia, no aplica descuento + If DrPS("CveClasificacion").ToString.ToEntero.Contiene(20637) Then + Descuento = 0 + End If + ObjDescuento.ImporteDescuento = Descuento ObjDescuento.CvePromocionDetalle = CvePromocionDetalle If SeAjustoPU Then diff --git a/Ventas/RepProductosServicios.aspx b/Ventas/RepProductosServicios.aspx index 80f91ed1e..d2e5e16a1 100644 --- a/Ventas/RepProductosServicios.aspx +++ b/Ventas/RepProductosServicios.aspx @@ -319,6 +319,16 @@
    +
    + Garantía?: +
    +
    + + + + + +
    diff --git a/Ventas/RepProductosServicios.aspx.vb b/Ventas/RepProductosServicios.aspx.vb index 99eaf6369..03dadcde8 100644 --- a/Ventas/RepProductosServicios.aspx.vb +++ b/Ventas/RepProductosServicios.aspx.vb @@ -6,10 +6,10 @@ Imports Microsoft.Reporting.WebForms Imports System.Data Partial Class Ventas_RepProductosServicios - Inherits ClsPaginas - + Inherits ClsPaginas + #Region "PROPIEDADES" - + Private Property DtVentas As DataTable Get Return DirectCast(ViewState("DtVentas"), DataTable) @@ -52,27 +52,30 @@ Partial Class Ventas_RepProductosServicios Set(value As Integer) ViewState("TipoCambio") = value End Set - End Property - + End Property + #End Region - + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario.Contiene(77, 21) Then Response.Redirect("/Inicio.aspx") CargarMarcas() - SetValues() - - If UsuarioActual.Empresa.Funcionalidad(531).ToEntero = 1 Then - LblLitraje.Visible = True - DvLitraje.Visible = True - End If - + SetValues() + + If UsuarioActual.Empresa.Funcionalidad(531).ToEntero = 1 Then + LblLitraje.Visible = True + DvLitraje.Visible = True + 'garantia + divgarantia1.Visible = True + divgarantia2.Visible = True + End If + End If - End Sub - - + End Sub + + #Region " CARGA DATOS INICIALES " - + Private Sub CargaGrupo() DdlGrupo.Items.Insert(0, New ListItem("Categoria", "3")) DdlGrupo.Items.Insert(1, New ListItem("Clasificación", "4")) @@ -241,18 +244,19 @@ Partial Class Ventas_RepProductosServicios DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1) DdlClientes.DataBind() DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1")) - End If - + End If + If UsuarioActual.CveVendedor > 0 AndAlso Not UsuarioActual.TienePermisoProceso(263) Then DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString()) DdlVendedor.Attributes.Add("disabled", "disabled") DdlVendedor.Enabled = False End If - End Sub + + End Sub #End Region - - + + #Region " CARGA DATOS " Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click CargaDatos() @@ -279,8 +283,8 @@ Partial Class Ventas_RepProductosServicios DdlPS.SelectedValue.ToEntero, FechaI, FechaF, FechaIEjec, FechaFEjec, CveCliente, DdlSubProyectoEjecucion.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=TipoComprobante, - CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, TipoCambio:=TipoCambio, TCEspecifico:=TCEspecifico, CveProveedorCompra:=CveProveedorCompra, - CveMarca:=DdlMarcaPSDes.SelectedValue.ToEntero, MostrarLitraje:=ChkLitraje.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=ModalidadContable) Then + CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, TipoCambio:=TipoCambio, TCEspecifico:=TCEspecifico, CveProveedorCompra:=CveProveedorCompra, + CveMarca:=DdlMarcaPSDes.SelectedValue.ToEntero, MostrarLitraje:=ChkLitraje.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, EsGarantia:=DdlGarantia.SelectedValue.ToEntero, ModalidadContable:=ModalidadContable) Then GvDatos.DataSource = ObjVentas.DtResultados DtVentas = ObjVentas.DtResultados Else @@ -302,55 +306,55 @@ Partial Class Ventas_RepProductosServicios DivMarca.Visible = True LblMarca.Visible = True - Using ObjMarcas As New ClsProductosServicios - If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then - DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados - DdlMarcaPSDes.DataBind() - End If + Using ObjMarcas As New ClsProductosServicios + If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then + DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados + DdlMarcaPSDes.DataBind() + End If End Using End If DdlMarcaPSDes.Items.Insert(0, New ListItem(" Todos ", "-1")) - End Sub + End Sub #End Region - - + + #Region " GV DATOS - PERSONALIZAR " Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then Dim Css As String = "Texto" Dim CveClasificacionDetalle As String = "-1" Dim cveMarca As String = DdlMarcaPSDes.SelectedValue - If DdlGrupo.SelectedValue.ToEntero = 22 Then - Dim tipo As Integer = If(e.Row.DBCampo("CveClasificacionDetalle").ToEntero() > 0, 4, If(e.Row.DBCampo("CveMarca").ToEntero() > 0, 3, If(e.Row.DBCampo("CveClasificacion").ToEntero() > 0, 2, 1))) - Select Case tipo - Case 4 - CveClasificacionDetalle = e.Row.DBCampo("CveClasificacionDetalle").ToString() ' String.Format("{0}&CveClasificacionDetalle={1}&CveMarca={2}", squery, e.Row.DBCampo("CveClasificacionDetalle").ToEntero(), e.Row.DBCampo("CveMarca").ToEntero()) - cveMarca = e.Row.DBCampo("CveMarca").ToString() - Case 3 - 'squery = String.Format("{0}&CveMarca{1}", squery, e.Row.DBCampo("CveMarca").ToEntero()) - cveMarca = e.Row.DBCampo("CveMarca").ToString() - e.Row.CssClass = "SubTotalesB" - Case 2 - e.Row.CssClass = "SubTotales" - Case 1 - e.Row.CssClass = "Totales" - End Select - - Else - If e.Row.DBCampo("Orden") = "" Then - e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Center - e.Row.Cells(0).Width = Unit.Pixel(200) - e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center - e.Row.Cells(1).Width = Unit.Pixel(60) - e.Row.Cells(2).Width = Unit.Pixel(90) - e.Row.Cells(3).Width = Unit.Pixel(90) - e.Row.Cells(5).Width = Unit.Pixel(80) - e.Row.Cells(8).Width = Unit.Pixel(100) - e.Row.CssClass = "Totales" - Css = "Totales" - ElseIf DdlGrupo.SelectedValue.Contiene("20", "21") And Not e.Row.DBCampo("CvePS").ToEntero > 0 Then - e.Row.CssClass = "SubTotales" - End If + If DdlGrupo.SelectedValue.ToEntero = 22 Then + Dim tipo As Integer = If(e.Row.DBCampo("CveClasificacionDetalle").ToEntero() > 0, 4, If(e.Row.DBCampo("CveMarca").ToEntero() > 0, 3, If(e.Row.DBCampo("CveClasificacion").ToEntero() > 0, 2, 1))) + Select Case tipo + Case 4 + CveClasificacionDetalle = e.Row.DBCampo("CveClasificacionDetalle").ToString() ' String.Format("{0}&CveClasificacionDetalle={1}&CveMarca={2}", squery, e.Row.DBCampo("CveClasificacionDetalle").ToEntero(), e.Row.DBCampo("CveMarca").ToEntero()) + cveMarca = e.Row.DBCampo("CveMarca").ToString() + Case 3 + 'squery = String.Format("{0}&CveMarca{1}", squery, e.Row.DBCampo("CveMarca").ToEntero()) + cveMarca = e.Row.DBCampo("CveMarca").ToString() + e.Row.CssClass = "SubTotalesB" + Case 2 + e.Row.CssClass = "SubTotales" + Case 1 + e.Row.CssClass = "Totales" + End Select + + Else + If e.Row.DBCampo("Orden") = "" Then + e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Center + e.Row.Cells(0).Width = Unit.Pixel(200) + e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center + e.Row.Cells(1).Width = Unit.Pixel(60) + e.Row.Cells(2).Width = Unit.Pixel(90) + e.Row.Cells(3).Width = Unit.Pixel(90) + e.Row.Cells(5).Width = Unit.Pixel(80) + e.Row.Cells(8).Width = Unit.Pixel(100) + e.Row.CssClass = "Totales" + Css = "Totales" + ElseIf DdlGrupo.SelectedValue.Contiene("20", "21") And Not e.Row.DBCampo("CvePS").ToEntero > 0 Then + e.Row.CssClass = "SubTotales" + End If End If ' PARA LIGA @@ -413,10 +417,10 @@ Partial Class Ventas_RepProductosServicios End If UPDatos.Update() - End Sub + End Sub #End Region - - + + #Region " SELECTED INDEX CHANGED" Protected Sub DdlClienteClasificacion_SelectedIndexChanged(sender As Object, e As EventArgs) CargaClientes() @@ -468,8 +472,8 @@ Partial Class Ventas_RepProductosServicios If DdlTipoComprobante.SelectedValue <> "-1" Then DdlEstatus.DataSource = GlobalDTEstatusFactura.FiltraParametros(String.Format("TipoDocto = '{0}'", DdlTipoComprobante.SelectedValue)) Else - DdlEstatus.DataSource = GlobalDTEstatusFactura - + DdlEstatus.DataSource = GlobalDTEstatusFactura + End If DdlEstatus.Items.Add(New ListItem("Todos", "-1")) DdlEstatus.DataBind() @@ -487,10 +491,10 @@ Partial Class Ventas_RepProductosServicios LiEspecifico.Visible = False End If UpBodyTipoCambio.Update() - End Sub + End Sub #End Region - - + + #Region " IMPRIMIR " Protected Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click If GvDatos.Rows.Count > 0 Then @@ -507,21 +511,21 @@ Partial Class Ventas_RepProductosServicios FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.ToDate, MinFecha) FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.ToDate, MaxFecha) FechaIEjec = If(IsDate(TxtFechaIEjec.Text.Trim()), TxtFechaIEjec.Text.ToDate, MinFecha) - FechaFEjec = If(IsDate(TxtFechaFEjec.Text.Trim()), TxtFechaFEjec.Text.ToDate, MaxFecha) - - Dim Cliente = If(DdlClientes.SelectedText = "", "", $" Cliente: {DdlClientes.SelectedText}") - Dim Proveedor = If(DdlProveedor.SelectedValue = "", "", $" Proveedor: {DdlProveedor.SelectedText}") - Dim FechaInicio = If(txtFechaI.Text = "", "", $" Fecha Inicio: {txtFechaI.Text}") - Dim FechaFin = If(txtFechaF.Text = "", "", $" Fecha Fin: {txtFechaF.Text}") - Dim Grupo = If(DdlGrupo.SelectedValue = "-1", "", $" Agrupado por: {DdlGrupo.SelectedItem.Text}") - Dim Categoria = If(DdlCategoria.SelectedValue = "-1", "", $" Categoria: {DdlCategoria.SelectedItem.Text }") - Dim Clasificacion = If(DdlClasificacion.SelectedValue = "-1", "", $" Clasificación: {DdlClasificacion.SelectedItem.Text}") - Dim PS = If(DdlPS.SelectedValue = "-1", "", $" P.S.: {DdlPS.SelectedText}") - Dim Proyecto = If(DdlSubProyecto.SelectedValue = "-1", "", $" Proyecto: {DdlSubProyecto.SelectedItem.Text}") - Dim Estatus = If(DdlEstatus.SelectedValue = "-1", "", $" Estatus: {DdlEstatus.SelectedItem.Text}") - Dim Usuario = If(DdlUsuario.SelectedValue = "-1", "", $" Usuario: {DdlUsuario.SelectedItem.Text}") - - + FechaFEjec = If(IsDate(TxtFechaFEjec.Text.Trim()), TxtFechaFEjec.Text.ToDate, MaxFecha) + + Dim Cliente = If(DdlClientes.SelectedText = "", "", $" Cliente: {DdlClientes.SelectedText}") + Dim Proveedor = If(DdlProveedor.SelectedValue = "", "", $" Proveedor: {DdlProveedor.SelectedText}") + Dim FechaInicio = If(txtFechaI.Text = "", "", $" Fecha Inicio: {txtFechaI.Text}") + Dim FechaFin = If(txtFechaF.Text = "", "", $" Fecha Fin: {txtFechaF.Text}") + Dim Grupo = If(DdlGrupo.SelectedValue = "-1", "", $" Agrupado por: {DdlGrupo.SelectedItem.Text}") + Dim Categoria = If(DdlCategoria.SelectedValue = "-1", "", $" Categoria: {DdlCategoria.SelectedItem.Text }") + Dim Clasificacion = If(DdlClasificacion.SelectedValue = "-1", "", $" Clasificación: {DdlClasificacion.SelectedItem.Text}") + Dim PS = If(DdlPS.SelectedValue = "-1", "", $" P.S.: {DdlPS.SelectedText}") + Dim Proyecto = If(DdlSubProyecto.SelectedValue = "-1", "", $" Proyecto: {DdlSubProyecto.SelectedItem.Text}") + Dim Estatus = If(DdlEstatus.SelectedValue = "-1", "", $" Estatus: {DdlEstatus.SelectedItem.Text}") + Dim Usuario = If(DdlUsuario.SelectedValue = "-1", "", $" Usuario: {DdlUsuario.SelectedItem.Text}") + + If DtVentas IsNot Nothing AndAlso DtVentas.Rows.Count > 0 Then Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) @@ -531,7 +535,7 @@ Partial Class Ventas_RepProductosServicios params.Add(New ReportParameter("FechaFin", If(txtFechaF.Text <> "", FechaF.ToShortDateString, ""))) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) + params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("Filtros", $"{Grupo}{Cliente}{FechaInicio}{FechaFin}{Categoria}{Clasificacion}{PS}{Proyecto}{Estatus}{Usuario}{Proveedor}")) If Imagen.Exists Then params.Add(New ReportParameter("LogoPath", logouri)) @@ -543,12 +547,12 @@ Partial Class Ventas_RepProductosServicios Alert("No hay información para mostrar.", TipoMensaje.MsgAdvertencia) End If - End Sub - + End Sub + #End Region - + #Region "GRAFICA" - + Protected Sub LnkVerGrafica_Click(sender As Object, e As EventArgs) If Not DtVentas IsNot Nothing AndAlso DtVentas.Rows.Count > 0 Then Alert("No hay datos disponibles", TipoMensaje.MsgAdvertencia) @@ -678,9 +682,9 @@ Partial Class Ventas_RepProductosServicios Protected Sub DdlVer_SelectedIndexChanged(sender As Object, e As EventArgs) CambioGrafica() - End Sub - + End Sub + #End Region - - + + End Class diff --git a/Ventas/RepVentasUtilidadPadre.aspx b/Ventas/RepVentasUtilidadPadre.aspx index 1dc7c4fc0..56b17bd74 100644 --- a/Ventas/RepVentasUtilidadPadre.aspx +++ b/Ventas/RepVentasUtilidadPadre.aspx @@ -179,7 +179,7 @@
    - Garantía: + Garantía?:
    diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index dfb7105f5..3e278eee2 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -6504,17 +6504,20 @@
    -
    +
    +
    + +
    Observaciones:
    - +
    @@ -6565,22 +6568,12 @@
    -
    -
    -
    -
    -
    - -
    -
    -
    -
    -
    +
    +
    " style="display: inline-block; margin-right: -20px; width: 150px;" /> " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
    -
    -
    +
    diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 44d66911f..bc905ed23 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -2469,6 +2469,25 @@ Partial Class Ventas HlFacturasRelaciondas.Visible = True End If + If Request("CveEmbarqueManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveEmbarqueManifiesto")) AndAlso Request("CveEmbarqueManifiesto").ToEntero() > 0 Then + DdlMoneda.SelectedValueExist(2) + Using ObjVentas As New ClsNominas + + If ObjVentas.ManifiestoForVtaGet(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, "", Request("CveEmbarqueManifiesto").ToEntero()) Then + TmpDT = ObjVentas.DtResultados + TmpDT.Columns.Add("EntregaDirecta", GetType(Integer)) + TmpDT.Columns.Add("CveMovimientoDetallePedido", GetType(Integer)) + TmpDT.Columns.Add("CveVentaDetalleRNC", GetType(Integer)) + TmpDT.Columns.Add("TieneProntoPago", GetType(String)) + TmpDT.Columns.Add("ImporteProntoPago", GetType(Decimal)) + GvPS.DataSource = ObjVentas.DtResultados + GvPS.DataBind() + + 'IEPS A NIVEL DETALLE + 'TxtIEPS.Text = If(TmpDT.SUM("IEPS") > 0, TmpDT.SUM("IEPS").FormatoNumero, TxtIEPS.Text) + End If + End Using + End If 'Carga Venta If Request("CveVenta") IsNot Nothing AndAlso IsNumeric(Request("CveVenta")) AndAlso Request("CveVenta").ToEntero() > 0 Then @@ -6628,7 +6647,7 @@ Partial Class Ventas 'RMF. validacion temporal 'verifica si tiene autorizaciones de Nota de crédito autorizadas Dim ObjVentas As New ClsVentas - If ObjVentas.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, -1, CveEstatus:=1) Then + If ObjVentas.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, -1, "Ing", CveEstatus:=1) Then Dim RowAutorizacion As DataRow = ObjVentas.DtResultados.FiltroPrimero($"CveVenta IS NULL AND CveTipoDocumento='Egs'", Orderby:="TipoAutorizacion") If RowAutorizacion IsNot Nothing Then DdlTipoComprobante.SelectedValueExistInsert("Egs", "Egresos") @@ -7971,7 +7990,7 @@ Partial Class Ventas Dim CveVendedor As Integer = DdlVendedor.SelectedValue.ToEntero() Dim ObjVentas As New ClsVentas Try - If ObjVentas.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, CveVendedor, CveEstatus:=1) Then + If ObjVentas.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, CveVendedor, DdlTipoDocto.SelectedValue, CveEstatus:=1) Then Dim RowAutorizacion As DataRow = Nothing 'SI TIENE DIAS VENCIDOS BUSCAR POR TIPO VENCIMIENTO If TieneDiasVencidos Then @@ -26965,15 +26984,47 @@ Partial Class Ventas Protected Sub BtnAplicarNC_Click(sender As Object, e As EventArgs) 'SOLO APLICA SI NO HAY DOCUMENTOS QUE SELECCIONAR If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then - If GvCxC.Rows.Count = 0 OrElse GvCxC.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("ChkCxC").Checked) = 0 Then - If ClienteEsDistribuidor AndAlso TxtImportesRemisionesNC.Text.ToDecimal() > 0 Then - Alert("No se puede generar una nota de crédito para devolución de efectivo si el cliente es distribuidor.", TipoMensaje.MsgAdvertencia) + + Dim Verificacion As Boolean = False + + If ListaRemisionesNC IsNot Nothing AndAlso ListaRemisionesNC.Count > 0 Then ' si hay opciones seleccionadas, se activa el generar las NCs + Verificacion = True + Else + If UsuarioActual.TienePermisoProceso(175) Then ' si es una nc, que se va a generar directa, el permiso de generar NC directas + Verificacion = True Else - Alert("No se ha seleccionado ninguna factura, en caso de no seleccionar ninguna se creará una nueva nota de crédito. ¿Está seguro de realizar esta acción?", TipoMensaje.MsgConfirmacion, JSBtnAceptar:="BtnAplicaNuevaNC();", TextoConfirmacion:="    Si    ", TextoCancelacion:="    No    ") + 'verificar autorizaciones + Dim ObjVentas As New ClsVentas + If ObjVentas.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, -1, "Egs", CveEstatus:=1) Then + Dim RowAutorizacion As DataRow = ObjVentas.DtResultados.FiltroPrimero($"CveVenta IS NULL ", Orderby:="TipoAutorizacion") + If RowAutorizacion IsNot Nothing Then + Verificacion = True + End If + End If + ObjVentas.Dispose() + ' si es una nc, que se va a generar directa, debe de revisar que tenga una autorización, o el permiso de generar NC directas + End If + End If + + If GvCxC.Rows.Count = 0 OrElse GvCxC.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("ChkCxC").Checked) = 0 Then + If Verificacion Then + If ClienteEsDistribuidor AndAlso TxtImportesRemisionesNC.Text.ToDecimal() > 0 Then + Alert("No se puede generar una nota de crédito para devolución de efectivo si el cliente es distribuidor.", TipoMensaje.MsgAdvertencia) + Else + Alert("No se ha seleccionado ninguna factura, en caso de no seleccionar ninguna se creará una nueva nota de crédito. ¿Está seguro de realizar esta acción?", TipoMensaje.MsgConfirmacion, JSBtnAceptar:="BtnAplicaNuevaNC();", TextoConfirmacion:="    Si    ", TextoCancelacion:="    No    ") + End If + Else + Alert("No se puede Generar notas de crédito directas", TipoMensaje.MsgAdvertencia) End If Else - AplicarNotaCreditoDesdeVenta() + ' si viene de remisiones, puede seguir adelante + If Verificacion Then + AplicarNotaCreditoDesdeVenta() + Else + Alert("No se puede Generar notas de crédito directas", TipoMensaje.MsgAdvertencia) + End If + End If Else AplicarNotaCreditoDesdeVenta() @@ -31593,6 +31644,7 @@ Partial Class Ventas End If ListaRemisionesNC.Add(RemNC) + BtnAplicarNC.Enabled = True If TerminarCiclo Then Exit For @@ -31636,6 +31688,10 @@ Partial Class Ventas TxtImportesRemisionesNC.Text = TotalRemNCAplicado.FormatoNumero 'TxtNCImporte.Text = TotalRemNCAplicado.FormatoNumero + If ListaRemisionesNC.Count > 0 Then ' si hay opciones seleccionadas, se activa el generar las NCs + BtnAplicarNC.Enabled = True + End If + UpModalRemisionesNC.Update() UpAplicarNC.Update() diff --git a/vwd.webinfo b/vwd.webinfo index af2a2c734..5b42c0490 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -398,6 +398,12 @@ + + + + + +