From bd7392cfc45ecea8f34db8c183470323864b9beb Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Sat, 11 Jan 2020 15:35:53 -0700 Subject: [PATCH] drop down list ahora es dropdownlost opcionalmente --- OC/OC.aspx | 9 +++++---- OC/OC.aspx.vb | 55 +++++++++++++++++++++++++++++---------------------- 2 files changed, 36 insertions(+), 28 deletions(-) diff --git a/OC/OC.aspx b/OC/OC.aspx index b0716cdc0..c42828217 100644 --- a/OC/OC.aspx +++ b/OC/OC.aspx @@ -286,11 +286,12 @@
- + <%-- - - - + --%> + + <%-- + --%>
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 4f6b6aaae..46881c301 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -476,6 +476,7 @@ Partial Class OC Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not Page.IsPostBack Then + CargaDatosAgregarPS() 'MODALIDAD MULTIEMPRESA CveEmpresaActual = UsuarioActual.CveEmpresa @@ -754,7 +755,6 @@ Partial Class OC UPPDetalle.Update() PermisosPagina() - RegistraScript("$get('HdnWidth').value = $('#C_Tab_TabC_DivConceptosContenido').width();") End If Me.Form.DefaultButton = "" @@ -1294,7 +1294,7 @@ Partial Class OC HplCompraContabilizada.Text = "No" End If - DdlProveedores.SelectedValueExist(objOC.CveProveedor.ToString) + DdlProveedores.ddl.SelectedValueExist(objOC.CveProveedor.ToString) 'CARGAMOS LA SUCURSAL SI NO EXISTE SE AGREGA MATRIZ Dim CveProveedorSucursal As Integer = IIf(objOC.CveProveedorSucursal.ToEntero = -1, 0, objOC.CveProveedorSucursal.ToEntero).ToString.ToEntero @@ -1330,7 +1330,7 @@ Partial Class OC lblFolio.Text = "REQ " + objOC.Folio.ToString lblTipoPadreHijo.Text = "OC" ChkCotizacion.Visible = True - DdlProveedores.SelectedValueExist(objOC.CveProveedor.ToString) + DdlProveedores.ddl.SelectedValueExist(objOC.CveProveedor.ToString) If objOC.CveProveedorSucursal.ToEntero > 0 Then DivProveedorSucursal.Visible = True @@ -1494,14 +1494,14 @@ Partial Class OC 'Permisos, para cambiar el proveedor en una OC If objOC.Tipo.ToUpper = "OC" AndAlso UsuarioActual.TienePermisoProceso(111) Then DdlProveedores.Enabled = True - DdlProveedores.SelectedValueExist(objOC.CveProveedor.ToString) + DdlProveedores.ddl.SelectedValueExist(objOC.CveProveedor.ToString) DdlIVA.Enabled = True ImgCambiaProv.Visible = True UPProv.Update() End If If DdlProveedores.SelectedValue <> objOC.CveProveedor.ToString Then - DdlProveedores.Items.Insert(1, New ListItem(GlobalDTCompProveedores(CveEmpresaActual).FiltroPrimeroValor("RazonSocial", $"CveProveedor = {objOC.CveProveedor}"), objOC.CveProveedor.ToString)) + 'DdlProveedores.Items.Insert(1, New ListItem(GlobalDTCompProveedores(CveEmpresaActual).FiltroPrimeroValor("RazonSocial", $"CveProveedor = {objOC.CveProveedor}"), objOC.CveProveedor.ToString)) End If CargaCotizaciones(CveOrdenCompra) @@ -1741,9 +1741,16 @@ Partial Class OC CboUnidadMedida.DataBind() End Sub Private Sub CargaProveedores() - DdlProveedores.DataSource = GlobalDTCompProveedores(CveEmpresaActual) - DdlProveedores.DataBind() - DdlProveedores.Items.Insert(0, New ListItem("Seleccione", "-1")) + If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then + DdlProveedores.setEsWebService(True) + DdlProveedores.Attributes.Add("metodo", "getproveedores") + Else + + GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = Nothing + DdlProveedores.DataSource = GlobalDTCompProveedores(CveEmpresaActual) + DdlProveedores.DataBind() + End If + 'DdlProveedores.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlProveedorCot.DataSource = GlobalDTCompProveedores(CveEmpresaActual) DdlProveedorCot.DataBind() @@ -1755,7 +1762,7 @@ Partial Class OC Private Sub CargaProveedorSucursal() DdlProveedores.DataSource = GlobalDTCompProveedores(CveEmpresaActual) DdlProveedores.DataBind() - DdlProveedores.Items.Insert(0, New ListItem("Seleccione", "-1")) + 'DdlProveedores.Items.Insert(0, New ListItem("Seleccione", "-1")) UPProv.Update() : UPPEmp.Update() End Sub Private Sub CargaEstatusOC() @@ -2614,7 +2621,7 @@ Partial Class OC If Not TieneError Then Fecha = Now CveProveedor = DdlProveedores.SelectedValue.ToEntero - ProveedorNombre = DdlProveedores.SelectedItem.Text + ProveedorNombre = DdlProveedores.SelectedText SerieFolio = $"OC: {Folio}" If DtInvOCDiferencias.FiltraParametros("ConceptoSalida IN (0,1) AND Diferencia <> 0 ").Rows.Count > 0 Then @@ -2952,12 +2959,12 @@ Partial Class OC End If 'AGREGA DETALLES - If Not objOrdenCompra.AddOrdenCompraDetalle(objOrdenCompra.CveOrdenCompra, dr("Cantidad").ToString.ToDouble(), dr("CveUnidadMedida").ToString.ToEntero, - dr("CvePS").ToString.ToEntero, dr("Importe").ToString.ToDouble, dr("CveSubProyecto").ToString.ToEntero(), + If Not objOrdenCompra.AddOrdenCompraDetalle(objOrdenCompra.CveOrdenCompra, dr("Cantidad").ToString.ToDouble(), dr("CveUnidadMedida").ToString.ToEntero, + dr("CvePS").ToString.ToEntero, dr("Importe").ToString.ToDouble, dr("CveSubProyecto").ToString.ToEntero(), dr("CveActivoFijo").ToString.ToEntero, dr("Observacion").ToString, UsuarioActual.CveUsuario, CveOrdenCompra, - CvePresupuestoEgreso:=dr("CvePresupuestoEgreso").ToString.ToEntero, Descuento:=dr("Descuento").ToString.ToDouble, - IEPSPS:=dr("IEPSPS").ToString.ToDouble, IEPSPSIVA:=dr("IEPSPSIVA").ToString.ToDouble, IVA:=dr("IVA").ToString.ToDouble, - RetIVA:=dr("RetIVA").ToString.ToDouble, RetISR:=dr("RetISR").ToString.ToDouble, Total:=dr("Total").ToString.ToDouble, + CvePresupuestoEgreso:=dr("CvePresupuestoEgreso").ToString.ToEntero, Descuento:=dr("Descuento").ToString.ToDouble, + IEPSPS:=dr("IEPSPS").ToString.ToDouble, IEPSPSIVA:=dr("IEPSPSIVA").ToString.ToDouble, IVA:=dr("IVA").ToString.ToDouble, + RetIVA:=dr("RetIVA").ToString.ToDouble, RetISR:=dr("RetISR").ToString.ToDouble, Total:=dr("Total").ToString.ToDouble, CveContratoDetalle:=dr("CveContratoDetalle").ToString.ToEntero, IVAPorcentaje:=dr("IVAPorcentaje").ToString.ToDouble, RetIVAPorcentaje:=dr("RetIVAPorcentaje").ToString.ToDouble, RetISRPorcentaje:=dr("RetISRPorcentaje").ToString.ToDouble, IEPSPSPorcentaje:=dr("IEPSPSPorcentaje").ToString.ToDouble, IEPSPSIVAPorcentaje:=dr("IEPSPSIVAPorcentaje").ToString.ToDouble) Then @@ -4724,7 +4731,7 @@ Partial Class OC ChkEventoPrioridad.Checked = False RegistraScript("$('#ModalBitacora').modal('hide')", "hidemodal") - CargaEventoBitacoraTemp() + CargaEventoBitacoraTemp() End Sub @@ -4880,7 +4887,7 @@ Partial Class OC Dim DtPara As DataTable = GlobalDTUsuarios(DdlSAUsuario.SelectedValue.ToString.ToEntero, CveEmpresaActual) Param.Add(DtPara.Rows(0)("Correo").ToString()) 'Para Param.Add("Solicitud de anticipo de Orden de Compra") 'Asunto - Param.Add(GeneraCorreoAnticipo(lblFolio.Text, DtPara.Rows(0)("Nombre").ToString(), String.Format("http://sig.adssistemas.mx/OI/EventoDetalle.aspx?CveTipoEvento=1&CveEvento={0}", CveEvento), TxtSAImporte.Text, DdlProveedores.SelectedItem.Text)) + Param.Add(GeneraCorreoAnticipo(lblFolio.Text, DtPara.Rows(0)("Nombre").ToString(), String.Format("http://sig.adssistemas.mx/OI/EventoDetalle.aspx?CveTipoEvento=1&CveEvento={0}", CveEvento), TxtSAImporte.Text, DdlProveedores.SelectedText)) Param.Add(String.Format("{0}PDF\OC-{1}.pdf", UsuarioActual.Empresa.Ruta, CveOrdenCompra)) Dim Hilo As New Threading.Thread(AddressOf MandaCorreoAnticipo) Hilo.Start(Param) @@ -4894,7 +4901,7 @@ Partial Class OC Dim DtPara As DataTable = GlobalDTUsuarios(Dr("CveUsuarioPara").ToString.ToEntero, CveEmpresaActual) Param.Add(DtPara.Rows(0)("Correo").ToString()) 'Para Param.Add("Solicitud de anticipo de Orden de Compra Cancelada") 'Asunto - Param.Add(GeneraCorreoAnticipo(lblFolio.Text, DtPara.Rows(0)("Nombre").ToString(), String.Format("http://sig.s/OI/EventoDetalle.aspx?CveTipoEvento=1&CveEvento={0}", Dr("CveEvento").ToString.ToEntero), "", DdlProveedores.SelectedItem.Text)) + Param.Add(GeneraCorreoAnticipo(lblFolio.Text, DtPara.Rows(0)("Nombre").ToString(), String.Format("http://sig.s/OI/EventoDetalle.aspx?CveTipoEvento=1&CveEvento={0}", Dr("CveEvento").ToString.ToEntero), "", DdlProveedores.SelectedText)) Param.Add(String.Format("{0}PDF\OC-{1}.pdf", UsuarioActual.Empresa.Ruta, CveOrdenCompra)) Dim Hilo As New Threading.Thread(AddressOf MandaCorreoAnticipo) Hilo.Start(Param) @@ -5118,7 +5125,7 @@ Partial Class OC Return CveEmpresaActual = 66 End Function - Protected Sub DdlProveedores_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProveedores.SelectedIndexChanged + Protected Sub DdlProveedores_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProveedores.selectedindexchange Dim Objeto As New ClsCompProveedores DdlProveedorSucursal.Items.Clear() @@ -5191,7 +5198,7 @@ Partial Class OC PnlUsuarioAsignado.Visible = False - RVProveedores.Enabled = False + 'RVProveedores.Enabled = False 'Si NO requiere cotizacion y el estatus siguiente es el final, If TipoOC.ToUpper = "REQ" Then @@ -5203,7 +5210,7 @@ Partial Class OC If ChkCotizacion.Checked = False AndAlso CboE.SelectedValue.ToEntero.Contiene(CveEstatusFinalOK) AndAlso TipoOS = False Then BtnGuardar.Text = "Guardar y Generar OC" : uppOpciones.Update() - RVProveedores.Enabled = True + 'RVProveedores.Enabled = True If CveEmpresaActual.Contiene(13, 83, 72) Then PnlUsuarioAsignado.Visible = True @@ -5228,7 +5235,7 @@ Partial Class OC If CveEstatus <> CveEstatusFinalError Then RegistraScript("$get('divCE').style.display='';PosicionaObjeto('C_CboE','divCE'); ") End If Else - RVProveedores.Enabled = True + 'RVProveedores.Enabled = True End If @@ -5959,7 +5966,7 @@ Partial Class OC Private Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet) - Dim excelFile As ExcelFile = excelFile.Load(flatFilePath) + Dim excelFile As ExcelFile = ExcelFile.Load(flatFilePath) Dim unnamed As Integer = 0 Dim cols As Integer @@ -6392,7 +6399,7 @@ Partial Class OC Dim CveProveedorPrevio As String = DdlProveedores.SelectedValue Dim CveProveedorSucursalPrevio As String = DdlProveedorSucursal.SelectedValue CargaProveedores() - DdlProveedores.SelectedValueExist(CveProveedorPrevio) + DdlProveedores.ddl.SelectedValueExist(CveProveedorPrevio) DdlProveedores_SelectedIndexChanged(DdlProveedores, EventArgs.Empty) If DdlProveedorSucursal.Visible Then DdlProveedorSucursal.SelectedValueExist(CveProveedorSucursalPrevio)