diff --git a/App_Code/CalendarEvent.vb b/App_Code/CalendarEvent.vb index f0a7a8aca..6bd2224a0 100644 --- a/App_Code/CalendarEvent.vb +++ b/App_Code/CalendarEvent.vb @@ -47,6 +47,11 @@ Public Class CalendarEvent Public Property SerieFolioCompra As String Public Property CveVenta As Integer Public Property SerieFolioVenta As String + + Public Property CveVentaRemision As Integer = -1 + Public Property RemisionSerieFolio As String = "" + Public Property RemisionSaldo As Decimal = -1 + Public Property CveActivoFijo As Integer Public Property CveTipoAF As Integer @@ -64,6 +69,7 @@ Public Class CalendarEvent Public Property CveMoneda As Integer Public Property Moneda As String - + Public Property NumChoferes As Integer = 1 + Public Property TipoEstatus As Integer = -1 End Class diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 176ed8ac9..1445de74b 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -1488,7 +1488,7 @@ Public Class ClsBancos Optional CveCuentaDeposito As Integer = -1, Optional PagoElectronico As String = "-1", Optional CveEstatusIE As Integer = 1, Optional CveCuentaTarjeta As Integer = -1, Optional Referencia As String = "-1", Optional CveCorte As Integer = -1, Optional CveProveedorIntermediario As Integer = -1, Optional FueConciliado As Boolean = False, Optional MesesSinIntereses As Integer = -1, Optional Modulo As String = "", Optional ConceptoCIE As String = "", Optional CveOCAnticipo As Integer = -1, Optional ImporteDeduccionesPago As Decimal = -1, - Optional AnticipoPuntual As Boolean = False, Optional FechaEmision As Date = MinFecha) As Integer + Optional AnticipoPuntual As Boolean = False, Optional FechaEmision As Date = MinFecha, Optional CveAutorizacion As String = "") As Integer Dim Retorno As Integer = -1 DataAdapter("PA_Banc_IEAdd") @@ -1531,6 +1531,7 @@ Public Class ClsBancos .Add("@ImporteDeduccionesPago", SqlDbType.Money).Value = ImporteDeduccionesPago .Add("@AnticipoPuntual", SqlDbType.Bit).Value = AnticipoPuntual .Add("@FechaEmision", SqlDbType.Date).Value = FechaEmision + .Add("@CveAutorizacion", SqlDbType.VarChar).Value = CveAutorizacion End With Try diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index bcb70a307..896018f1c 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -1680,7 +1680,8 @@ Public Class ClsClientes Public Function AgregarClienteNoFrecuente(Nombre As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Localidad As String, Ciudad As String, CveEstado As Integer, RFC As String, CP As String, Telefono As String, Mail As String, CveSubProyecto As Integer, CveUsuario As Integer, CveEmpresa As Integer, NumCuentaPago As String, CveMetodoPago33 As Integer, CveFormaPago33 As Integer, Optional CvePrecioLista As Integer = -1, Optional RegimenSociedad As String = "-1", - Optional TipoPersona As Boolean = False, Optional CveRegimenFiscal As Integer = -1, Optional CveUsoCFDI As Integer = -1, Optional Genero As Boolean = True) As Boolean + Optional TipoPersona As Boolean = False, Optional CveRegimenFiscal As Integer = -1, Optional CveUsoCFDI As Integer = -1, Optional Genero As Boolean = True, + Optional CveClienteClasificacion As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_ClientesNoFrecuenteAdd") @@ -1709,6 +1710,7 @@ Public Class ClsClientes .Add("@TipoPersona", SqlDbType.Bit).Value = TipoPersona .Add("@CveRegimenFiscal", SqlDbType.Int).Value = CveRegimenFiscal .Add("@CveUsoCFDI", SqlDbType.Int).Value = CveUsoCFDI + .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion .Add("@Genero", SqlDbType.Int).Value = Genero End With diff --git a/App_Code/ClsContratos.vb b/App_Code/ClsContratos.vb index 6d8b7fdf3..22f47b871 100644 --- a/App_Code/ClsContratos.vb +++ b/App_Code/ClsContratos.vb @@ -193,6 +193,7 @@ Public Class ClsContratos Public Property CvePartida As Integer Public Property CveDestino As Integer Public Property CveMasivo As Integer + Public Property NumChoferes As Integer = 1 #End Region #Region " C O N T R A T O S " @@ -318,7 +319,8 @@ Public Class ClsContratos Me.CantidadPasajeros = Data.Rows(0)("CantidadPasajeros").ToString.ToEntero Me.CvePartida = Data.Rows(0)("CvePartida").ToString.ToEntero Me.CveDestino = Data.Rows(0)("CveDestino").ToString.ToEntero - Me.CveMasivo = Data.Rows(0)("CveMasivo").ToString.ToEntero + Me.CveMasivo = Data.Rows(0)("CveMasivo").ToString.ToEntero + Me.NumChoferes = Data.Rows(0)("NumChoferes").ToString.ToEntero End If Retorno = True @@ -423,7 +425,8 @@ Public Class ClsContratos Optional CveContratosEstatus As Integer = -1, Optional CveContratoTipo As Integer = -1, Optional TipoCambio As Double = -1, Optional CveSucursalCliente As Integer = -1, Optional CveAlmacenOrigen As Integer = -1, Optional CveAlmacenDestino As Integer = -1, Optional PorcentajeComision As Integer = -1, Optional TipoGarantia As Integer = -1, Optional Folio As Integer = -1, Optional FechaVenc As Date = Nothing, Optional EstatusFianza As Integer = -1, Optional CveContratoPlantilla As Integer = -1, Optional CveCuentaEquipo As Integer = -1, Optional CveVendedor As Integer = -1, Optional Observaciones As String = "", Optional CveDireccionEnvio As Integer = -1, Optional AplicaImpuestosLocales As Boolean = False, Optional CorreoNotificacionPedDev As String = "", Optional FacturacionCicilica As Boolean = False, Optional FacturacionCiclicaAutomatico As Boolean = False, - Optional DiaMesFacturacion As Integer = 1, Optional CvePeriodo As Integer = -1, Optional ObservacionesGenerales As String = "", Optional CveTipoAF As Integer = Nothing, Optional CveChofer As Integer = Nothing, Optional CveChofer2 As Integer = Nothing, Optional CveAF As Integer = Nothing, Optional CantidadPasajeros As Integer = Nothing, Optional CvePartida As Integer = Nothing, Optional CveDestino As Integer = Nothing, Optional CveMasivo As Integer = Nothing) As Boolean + Optional DiaMesFacturacion As Integer = 1, Optional CvePeriodo As Integer = -1, Optional ObservacionesGenerales As String = "", Optional CveTipoAF As Integer = Nothing, Optional CveChofer As Integer = Nothing, Optional CveChofer2 As Integer = Nothing, Optional CveAF As Integer = Nothing, + Optional CantidadPasajeros As Integer = Nothing, Optional CvePartida As Integer = Nothing, Optional CveDestino As Integer = Nothing, Optional CveMasivo As Integer = -1, Optional NumChoferes As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosUpdate") @@ -487,6 +490,7 @@ Public Class ClsContratos .Add("@CvePartida", SqlDbType.Int).Value = CvePartida .Add("@CveDestino", SqlDbType.Int).Value = CveDestino .Add("@CveMasivo", SqlDbType.Int).Value = CveMasivo + .Add("@NumChoferes", SqlDbType.Int).Value = NumChoferes End With Try SqlAdapter.Fill(Data) @@ -684,7 +688,7 @@ Public Class ClsContratos Return Retorno End Function - Public Function GetContratosValUnidadesAgendadas(CveAF As Integer, FechaInicial As DateTime, FechaFinal As DateTime, CveEmpresa As Integer, CveContrato As Integer) As Boolean + Public Function GetContratosValUnidadesAgendadas(CveAF As Integer, FechaInicial As DateTime, FechaFinal As DateTime, CveEmpresa As Integer, CveContrato As Integer, Optional Opcion As Integer = 1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosValUnidadesAgendadasGet") @@ -694,6 +698,7 @@ Public Class ClsContratos .Add("@FechaFinal", SqlDbType.DateTime).Value = FechaFinal .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveContrato", SqlDbType.Int).Value = CveContrato + .Add("@Opcion", SqlDbType.Int).Value = Opcion End With Try SqlAdapter.Fill(Data) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 496459e94..d78ec663b 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -4684,7 +4684,8 @@ Public Class ClsInventarios Return Retorno End Function - Public Function RepTrasladoSolicitud(CveAlmacenOrigen As Integer, CveAlmacenDestino As Integer, CveTrasladoEstatus As Integer, FechaInicio As DateTime, FechaFin As DateTime, CveUsuario As Integer, OpcionAlmacen As Integer, CveContrato As Integer, CveEmpresa As Integer) As Boolean + Public Function RepTrasladoSolicitud(CveAlmacenOrigen As Integer, CveAlmacenDestino As Integer, CveTrasladoEstatus As Integer, FechaInicio As DateTime, FechaFin As DateTime, CveUsuario As Integer, OpcionAlmacen As Integer, CveContrato As Integer, + CveEmpresa As Integer, Optional CveUsuarioConsulta As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_TraspasoSolicitudGetRep") @@ -4698,6 +4699,7 @@ Public Class ClsInventarios .Add("@CveContrato", SqlDbType.Int).Value = CveContrato .Add("@OpcionAlmacen", SqlDbType.Int).Value = OpcionAlmacen .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta End With Try diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 23f1cd8b5..4691356e8 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -7881,7 +7881,7 @@ Public Class ClsPaginas params.Add(New ReportParameter("TipoOC", If(ObjOC.Tipo = "OC", "Orden de Compra", "Requisición"))) params.Add(New ReportParameter("UsoCFDI", ObjOC.UsoCFDI)) - If UsuarioActual.CveEmpresa.Contiene(72, 80, 172) Or (UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso UsuarioActual.CveEmpresa = 197) Then + If UsuarioActual.CveEmpresa.Contiene(72, 80, 172) Or (UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso UsuarioActual.CveEmpresa.Contiene(197, 189)) Then params.Add(New ReportParameter("FolioAdicional", dtOC(0)("FolioAdicional").ToString)) params.Add(New ReportParameter("Vendedor", dtOC(0)("Vendedor").ToString)) params.Add(New ReportParameter("Observacion", dtOC(0)("PrioridadObservacion").ToString)) @@ -10349,6 +10349,7 @@ Public Class ClsPaginas PaginaDict.Add("/Inventarios/PopUpBuscarMovto.aspx".ToUpper(), 219) PaginaDict.Add("/Inventarios/RepMaterialResguardo.aspx".ToUpper(), 493) PaginaDict.Add("/Inventarios/TrasladoSolicitud.aspx".ToUpper(), 524) + PaginaDict.Add("/Inventarios/TrasladoSolicitudOld.aspx".ToUpper(), -1) PaginaDict.Add("/Inventarios/RepTrasladoSolicitud.aspx".ToUpper(), 514) PaginaDict.Add("/Inventarios/CatGrupoPS.aspx".ToUpper(), 849) PaginaDict.Add("/Inventarios/KardexAlmacen.aspx".ToUpper(), 639) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 5ea5979ef..8c8c7823d 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -3401,6 +3401,7 @@ Public Class ClsVentas .Add("@EsFilial", SqlDbType.Int).Value = EsFilial End With Try + SqlAdapter.SelectCommand.CommandTimeout = 0 SqlAdapter.Fill(Data) Retorno = True Catch ex As Exception diff --git a/Ashx/CargaEventos.ashx b/Ashx/CargaEventos.ashx index 8574dd9a6..323dcd810 100644 --- a/Ashx/CargaEventos.ashx +++ b/Ashx/CargaEventos.ashx @@ -552,13 +552,28 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState cevent.Anticipo = dr("ImporteMin").ToString.ToDecimal cevent.CveActivoFijo = dr("CveAF").ToString.ToEntero cevent.CveTipoAF = dr("CveTipoAF").ToString.ToEntero - cevent.backgroundColor = dr("BackgroundColor").ToString cevent.CantidadPasajeros = dr("CantidadPasajeros").ToString cevent.NumeroContrato = dr("NumeroContrato").ToString cevent.Observaciones = dr("Observaciones").ToString cevent.CveSubProyecto = dr("CveSubProyecto").ToString.ToEntero cevent.CveMoneda = dr("CveMoneda").ToString.ToEntero cevent.Moneda = dr("Moneda").ToString + cevent.NumChoferes = dr("NumChoferes").ToString.ToEntero + + cevent.CveVentaRemision = dr("CveVentaRemision").ToString.ToEntero + cevent.RemisionSerieFolio = dr("RemisionSerieFolio").ToString + cevent.RemisionSaldo = dr("RemisionSaldo").ToString.ToDecimal + cevent.TipoEstatus = dr("TipoEstatus").ToString.ToEntero + cevent.backgroundColor = dr("backgroundColor").ToString + + Dim BGC_Atencion As String = "#bc9b1b" + If cevent.TipoEstatus <> 4 AndAlso cevent.TipoEstatus <> 3 Then + If dr("CveChofer").ToString.ToEntero <= 0 Or (dr("CveChofer2").ToString.ToEntero <= 0 And cevent.NumChoferes = 2) Or dr("CveAF").ToString.ToEntero <= 0 Then + cevent.backgroundColor = BGC_Atencion + End If + End If + + If Not cevent.recurrenciatipo > 0 Then diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb index e466bd4af..6b88b2c14 100644 --- a/Bancos/DepositosCaja.aspx.vb +++ b/Bancos/DepositosCaja.aspx.vb @@ -41,6 +41,12 @@ Partial Class Bancos_DepositosCaja 'Dim StrEncriptPrueba As String = Encripta($"OP=DC&CveIE={2784391}&CuentaCaja={"TestCuantaCaja"}&CuentaDepo={"Test cuenta"}") 'HplImprimirPDF.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={StrEncriptPrueba}" + If UsuarioActual.CveEmpresa = 189 Then + If DdlTipoPago.Items.FindByValue("-1") IsNot Nothing Then + DdlTipoPago.Items.Remove(DdlTipoPago.Items.FindByValue("-1")) + End If + End If + End If End Sub @@ -327,7 +333,7 @@ Partial Class Bancos_DepositosCaja If CveSubProyecto <= 0 Then 'se saca de la cuenta de la caja chica - CveSubProyecto = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCajaChica.SelectedValue.ToEntero, Estatus:=-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero + CveSubProyecto = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCajaChica.SelectedValue.ToEntero, Estatus:=-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero() End If End If diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx index 840131979..16ab112f6 100644 --- a/Bancos/IE.aspx +++ b/Bancos/IE.aspx @@ -246,11 +246,19 @@
- + +
+ + +
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 7d6aea526..961d521e5 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -815,6 +815,11 @@ Partial Class Bancos_IE NumComplementos = ObjIE.DtResultados(0)("NumComplementos").ToString.ToEntero Dim CveIEEstadoCuenta As Integer = ObjIE.DtResultados(0)("CveIEEstadoCuenta").ToString.ToEntero + If Not String.IsNullOrEmpty(ObjIE.DtResultados(0)("CveAutorizacion").ToString) Then + DivCveAutorizacion.Visible = True + LblCveAutorizacion.Text = ObjIE.DtResultados(0)("CveAutorizacion").ToString() + End If + If UsuarioActual.TienePermisoProceso(99) Then 'BtnActualizar.Visible = True TxtFechaDocumento.Enabled = True diff --git a/Bancos/ProveedoresAbonar.aspx b/Bancos/ProveedoresAbonar.aspx index 1f8fa17e7..d4318ac11 100644 --- a/Bancos/ProveedoresAbonar.aspx +++ b/Bancos/ProveedoresAbonar.aspx @@ -446,10 +446,10 @@ <%-- 11 --%> - + % Desc. - + @@ -721,63 +721,36 @@ //} } - function calculaDescuentoEscalonado(saldo, TxtDescuento, TxtAbonar, chk,Text,Tipo) { - - let idTxtDescuento = TxtDescuento.id - let idTxtAbonar = TxtAbonar.id - - let descuentoValue = $("#" + idTxtDescuento).val().trim(); - let descuentoParts = descuentoValue.split('+'); - let abonarConDescuento = 0.0; - - - if (descuentoParts.length === 1) { - - - if (isNaN(parseFloat(descuentoParts[0])) || descuentoParts[0] == "0") { - $("#" + idTxtAbonar).val(saldo.toFixed(2)); - FnCambia(chk, TxtAbonar, saldo, 1, Text, Tipo); - - } else { - let descuento = saldo * (parseFloat(descuentoParts[0]) / 100); - abonarConDescuento = saldo - descuento; - $("#" + idTxtAbonar).val(FormatoNumero(abonarConDescuento.toFixed(2),2)); - FnCambia(chk, TxtAbonar, saldo, 1, Text, Tipo); - } - - } else if (descuentoParts.length === 2) { - - if (isNaN(parseFloat(descuentoParts[0]))) { - $("#" + idTxtAbonar).val(""); - FnCambia(chk, TxtAbonar, saldo, 1, Text, Tipo); - return; - } - - let descuento1 = saldo * (parseFloat(descuentoParts[0]) / 100); - - if (isNaN(parseFloat(descuentoParts[1]))) { - - let descuento = saldo * (parseFloat(descuentoParts[0]) / 100); - abonarConDescuento = saldo - descuento; - $("#" + idTxtAbonar).val(FormatoNumero(abonarConDescuento.toFixed(2), 2)); - FnCambia(chk, TxtAbonar, saldo, 1, Text, Tipo); - return; - } - - let descuento = saldo * (parseFloat(descuentoParts[0]) / 100); - abonarConDescuento = saldo - descuento; - - let abonarConDescuento2 = abonarConDescuento - (abonarConDescuento * (parseFloat(descuentoParts[1]) / 100)); - - $("#" + idTxtAbonar).val(FormatoNumero(abonarConDescuento2.toFixed(2), 2)); - FnCambia(chk, TxtAbonar, saldo, 1, Text, Tipo); - - - } else { - $("#" + idTxtAbonar).val(""); - FnCambia(chk, TxtAbonar, saldo, 1, Text, Tipo); - } + function calculaDescuentoEscalonado(saldo, TxtDescuento, TxtAbonar, chk, Text, Tipo) { + let idTxtDescuento = TxtDescuento.id; + let idTxtAbonar = TxtAbonar.id; + + let descuentoValue = $("#" + idTxtDescuento).val().trim(); + let descuentoParts = descuentoValue.split('+'); + let abonarConDescuento = saldo; + + if (descuentoParts.length === 0 || (descuentoParts.length === 1 && descuentoParts[0] === "")) { + $("#" + idTxtAbonar).val(saldo.toFixed(2)); + FnCambia(chk, TxtAbonar, saldo, 1, Text, Tipo); + return; + } + + for (let i = 0; i < descuentoParts.length; i++) { + let descuentoPart = descuentoParts[i].trim(); + + if (isNaN(parseFloat(descuentoPart)) || descuentoPart === "0") { + continue; + } + + let descuento = abonarConDescuento * (parseFloat(descuentoPart) / 100); + abonarConDescuento -= descuento; + } + + $("#" + idTxtAbonar).val(FormatoNumero(abonarConDescuento.toFixed(2), 2)); + FnCambia(chk, TxtAbonar, saldo, 1, Text, Tipo); } + + diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 44c333043..337846adf 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -4227,12 +4227,14 @@ Partial Class Compras_Compras Protected Sub BtnGuardar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnGuardar.Click + + + '------------------ INICIA VALIDACIONES ------------------ + If Not ValidaPresupuesto(2) Then Exit Sub End If - '------------------ INICIA VALIDACIONES ------------------ - If MetodoPagoOC = 0 AndAlso RBLPago.SelectedValue.ToEntero <> 2 AndAlso LblSaldoFactura.Text.ToDecimal > 0 Then Alert("La orden de compra se definió de contado, favor de especificar la compra de contado.", TipoMensaje.MsgAdvertencia) Exit Sub @@ -4689,6 +4691,11 @@ Partial Class Compras_Compras Exit Sub End If + If DdlMoneda.SelectedValue.ToEntero > 1 And TxtTC.Text.ToDecimal <= 10 Then + Alert("Al seleccionar dólares, el tipo de cambio debe ser superior a 10.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + '------------------TERMINA VALIDACIONES------------------ @@ -8552,7 +8559,7 @@ Partial Class Compras_Compras If ArrAnticipos.Count > 0 Then For Each Ant As Compras_Compras.Anticipos In ArrAnticipos 'ImporteAnticipo += (Ant.Importe + Ant.ImporteComision) - ImporteAnticipo += (Ant.Importe) + ImporteAnticipo += ((Ant.Importe) + Ant.ImporteComision) Next End If @@ -15831,7 +15838,7 @@ Partial Class Compras_Compras prorrateo = (row("PU").ToString.ToDecimal * TotalServicios) / TotalFacturas If Not ObjInv.UpdateCostoIndirectoMovimientoDetalle(row("CveMovimientoDetalle").ToString.ToEntero, prorrateo) Then HayError = True - Exit For + Dim Drr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero())(0) End If Next @@ -17103,7 +17110,7 @@ Partial Class Compras_Compras 'HdnIVAPS.Value = If(PS.Rows(0)("IVA").ToString = "-1", ViewState("IVA"), PS.Rows(0)("IVA").ToString).ToString ViewState("IVAPS") = PS("IVA").ToString If ViewState("IVAPS").ToString.ToEntero() = -1 Then - Dim Drr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero())(0) + Dim Drr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero())(0) ViewState("IVAPS") = Drr("IVA").ToString().ToDouble() DdlProyecto.SelectedValueExist(Drr("CveProyecto")) diff --git a/Inventarios/TrasladoSolicitud.aspx b/Inventarios/TrasladoSolicitud.aspx index 8ab72fdb3..556115b6d 100644 --- a/Inventarios/TrasladoSolicitud.aspx +++ b/Inventarios/TrasladoSolicitud.aspx @@ -1,593 +1,299 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="TrasladoSolicitud.aspx.vb" Inherits="Inventarios_TrasladoSolicitud" %> - - - - - - - - - Solicitud de Traslados - - - - -
  • - Agregar Producto -
    • - -
  • - Ayuda - -
    • - -
  • - Vincular desde Contrato -
    • - -
  • - Generar PDF -
    • - -
  • - Generar Excel -
    • -
  • - Cancelar Solicitud -
    • -     - - - - -     -     - - - - -
    - -
    -
    -
    -
    - - INFORMACIÓN DEL TRASLADO -
    -
    -
    -
    -
    - -
    - -
    -
    -
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    - Folio: - -

    - -

    -
    Fecha: -
    -
    - - - - - - - - - - -
    -
    -
    Almacén Origen:      - -
    Almacén Destino: - -
    Paquetería: - -
    Número Guía: -
    Observaciones: - -
    Vincular desde Contrato: - - -
    - - - -
    -
    -
    - - - -
    - -
    -
    -
    - - INFORMACIÓN DE LA SOLICITUD -
    -
    -
    -
    -
    - -
    - -
    -
    -
    - -
    -
    -

    Cancelado

    -
    -
    - - - - - - - - - - - - - - - - - - - - - - - - -
    Usuario Solicitó: - -
    Contrato: - - -
    Dirección de Envio: - -
    Movimiento: - -
    - - -
    -
    -
    - -
    - -
    -
    -
    - - AUTORIZACIÓN -
    -
    -
    -
    -
    - -
    - -
    -
    -
    - - - +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="TrasladoSolicitud.aspx.vb" Inherits="Inventarios_TrasladoSolicitud" %> -
    + + + + + + Reporte de solicitudes de traspaso + + + + + + +
  • + Agregar Solicitud +
    • +     + + +     + +     + + + +
    +
    +
    + + "> + +
    +
    +
    +
    Origen
    +
    + +
    -
    - - - - - - -
    Estado :
    Usuario :
    Fecha :
    -
    -
    - -
    - -
    - -
    -
    - -
    - -
    +
    Destino
    +
    + +
    +
    Fecha Inicio
    +
    +
    + + + + +
    + + +
    +
    Fecha Fin
    +
    +
    + + + + +
    + + +
    +
    +
    +
    +
    > + +
    +
    -     -     - - - - - - -
    -
    - - - +
    +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    + +
    + + + +