AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

drop down list ahora es dropdownlost opcionalmente

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-01-11 15:35:53 -07:00
parent d91c296e09
commit bd7392cfc4
2 changed files with 36 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
OC/OC.aspx
View File

@@ -286,11 +286,12 @@
<div class="row"> <div class="row">
<label class="col-md-2">Proveedor:</label> <label class="col-md-2">Proveedor:</label>
<div class="col-md-9"> <div class="col-md-9">
<asp:DropDownList ID="DdlProveedores" CssClass="select2me" AutoPostBack="True" Style="width: 100%;" runat="server" DataTextField="RazonSocial" DataValueField="CveProveedor"> <%--<asp:DropDownList ID="DdlProveedores" CssClass="select2me" AutoPostBack="True" Style="width: 100%;" runat="server" DataTextField="NombreCortoProveedor" DataValueField="CveProveedor">
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>--%>
<asp:RangeValidator ID="RVProveedores" CssClass="form-control" runat="server" ControlToValidate="DdlProveedores" Display="None" Type="Integer" MinimumValue="1" MaximumValue="2147483647" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Proveedor''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RangeValidator> <ADS:Dropdownlost runat="server" ID="DdlProveedores" CssStyle="width: 100%;" CssClassDdl="select2me " DataTextField="NombreCortoProveedor" DataValueField="CveProveedor" />
<ajax:ValidatorCalloutExtender ID="VCOProveedores" runat="server" HighlightCssClass="vco" TargetControlID="RVProveedores" Width="300px"></ajax:ValidatorCalloutExtender> <%--<asp:RangeValidator ID="RVProveedores" CssClass="form-control" runat="server" ControlToValidate="DdlProveedores" Display="None" Type="Integer" MinimumValue="1" MaximumValue="2147483647" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Proveedor''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RangeValidator>
<ajax:ValidatorCalloutExtender ID="VCOProveedores" runat="server" HighlightCssClass="vco" TargetControlID="RVProveedores" Width="300px"></ajax:ValidatorCalloutExtender>--%>
<asp:ImageButton ID="ImgCambiaProv" Visible="false" ImageUrl="/Imagenes/accept.png" runat="server" /> <asp:ImageButton ID="ImgCambiaProv" Visible="false" ImageUrl="/Imagenes/accept.png" runat="server" />
</div> </div>
<div class="col-md-1" style="padding-left: 0px;"> <div class="col-md-1" style="padding-left: 0px;">

55
OC/OC.aspx.vb
View File

@@ -476,6 +476,7 @@ Partial Class OC
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then If Not Page.IsPostBack Then
CargaDatosAgregarPS() CargaDatosAgregarPS()
'MODALIDAD MULTIEMPRESA 'MODALIDAD MULTIEMPRESA
CveEmpresaActual = UsuarioActual.CveEmpresa CveEmpresaActual = UsuarioActual.CveEmpresa
@@ -754,7 +755,6 @@ Partial Class OC
UPPDetalle.Update() UPPDetalle.Update()
PermisosPagina() PermisosPagina()
RegistraScript("$get('HdnWidth').value = $('#C_Tab_TabC_DivConceptosContenido').width();") RegistraScript("$get('HdnWidth').value = $('#C_Tab_TabC_DivConceptosContenido').width();")
End If End If
Me.Form.DefaultButton = "" Me.Form.DefaultButton = ""
@@ -1294,7 +1294,7 @@ Partial Class OC
HplCompraContabilizada.Text = "No" HplCompraContabilizada.Text = "No"
End If End If
DdlProveedores.SelectedValueExist(objOC.CveProveedor.ToString) DdlProveedores.ddl.SelectedValueExist(objOC.CveProveedor.ToString)
'CARGAMOS LA SUCURSAL SI NO EXISTE SE AGREGA MATRIZ 'CARGAMOS LA SUCURSAL SI NO EXISTE SE AGREGA MATRIZ
Dim CveProveedorSucursal As Integer = IIf(objOC.CveProveedorSucursal.ToEntero = -1, 0, objOC.CveProveedorSucursal.ToEntero).ToString.ToEntero 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 lblFolio.Text = "REQ " + objOC.Folio.ToString
lblTipoPadreHijo.Text = "OC" lblTipoPadreHijo.Text = "OC"
ChkCotizacion.Visible = True ChkCotizacion.Visible = True
DdlProveedores.SelectedValueExist(objOC.CveProveedor.ToString) DdlProveedores.ddl.SelectedValueExist(objOC.CveProveedor.ToString)
If objOC.CveProveedorSucursal.ToEntero > 0 Then If objOC.CveProveedorSucursal.ToEntero > 0 Then
DivProveedorSucursal.Visible = True DivProveedorSucursal.Visible = True
@@ -1494,14 +1494,14 @@ Partial Class OC
'Permisos, para cambiar el proveedor en una OC 'Permisos, para cambiar el proveedor en una OC
If objOC.Tipo.ToUpper = "OC" AndAlso UsuarioActual.TienePermisoProceso(111) Then If objOC.Tipo.ToUpper = "OC" AndAlso UsuarioActual.TienePermisoProceso(111) Then
DdlProveedores.Enabled = True DdlProveedores.Enabled = True
DdlProveedores.SelectedValueExist(objOC.CveProveedor.ToString) DdlProveedores.ddl.SelectedValueExist(objOC.CveProveedor.ToString)
DdlIVA.Enabled = True DdlIVA.Enabled = True
ImgCambiaProv.Visible = True ImgCambiaProv.Visible = True
UPProv.Update() UPProv.Update()
End If End If
If DdlProveedores.SelectedValue <> objOC.CveProveedor.ToString Then 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 End If
CargaCotizaciones(CveOrdenCompra) CargaCotizaciones(CveOrdenCompra)
@@ -1741,9 +1741,16 @@ Partial Class OC
CboUnidadMedida.DataBind() CboUnidadMedida.DataBind()
End Sub End Sub
Private Sub CargaProveedores() Private Sub CargaProveedores()
DdlProveedores.DataSource = GlobalDTCompProveedores(CveEmpresaActual) If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
DdlProveedores.DataBind() DdlProveedores.setEsWebService(True)
DdlProveedores.Items.Insert(0, New ListItem("Seleccione", "-1")) 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.DataSource = GlobalDTCompProveedores(CveEmpresaActual)
DdlProveedorCot.DataBind() DdlProveedorCot.DataBind()
@@ -1755,7 +1762,7 @@ Partial Class OC
Private Sub CargaProveedorSucursal() Private Sub CargaProveedorSucursal()
DdlProveedores.DataSource = GlobalDTCompProveedores(CveEmpresaActual) DdlProveedores.DataSource = GlobalDTCompProveedores(CveEmpresaActual)
DdlProveedores.DataBind() DdlProveedores.DataBind()
DdlProveedores.Items.Insert(0, New ListItem("Seleccione", "-1")) 'DdlProveedores.Items.Insert(0, New ListItem("Seleccione", "-1"))
UPProv.Update() : UPPEmp.Update() UPProv.Update() : UPPEmp.Update()
End Sub End Sub
Private Sub CargaEstatusOC() Private Sub CargaEstatusOC()
@@ -2614,7 +2621,7 @@ Partial Class OC
If Not TieneError Then If Not TieneError Then
Fecha = Now Fecha = Now
CveProveedor = DdlProveedores.SelectedValue.ToEntero CveProveedor = DdlProveedores.SelectedValue.ToEntero
ProveedorNombre = DdlProveedores.SelectedItem.Text ProveedorNombre = DdlProveedores.SelectedText
SerieFolio = $"OC: {Folio}" SerieFolio = $"OC: {Folio}"
If DtInvOCDiferencias.FiltraParametros("ConceptoSalida IN (0,1) AND Diferencia <> 0 ").Rows.Count > 0 Then If DtInvOCDiferencias.FiltraParametros("ConceptoSalida IN (0,1) AND Diferencia <> 0 ").Rows.Count > 0 Then
@@ -2952,12 +2959,12 @@ Partial Class OC
End If End If
'AGREGA DETALLES 'AGREGA DETALLES
If Not objOrdenCompra.AddOrdenCompraDetalle(objOrdenCompra.CveOrdenCompra, dr("Cantidad").ToString.ToDouble(), dr("CveUnidadMedida").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("CvePS").ToString.ToEntero, dr("Importe").ToString.ToDouble, dr("CveSubProyecto").ToString.ToEntero(),
dr("CveActivoFijo").ToString.ToEntero, dr("Observacion").ToString, UsuarioActual.CveUsuario, CveOrdenCompra, dr("CveActivoFijo").ToString.ToEntero, dr("Observacion").ToString, UsuarioActual.CveUsuario, CveOrdenCompra,
CvePresupuestoEgreso:=dr("CvePresupuestoEgreso").ToString.ToEntero, Descuento:=dr("Descuento").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, 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, 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, CveContratoDetalle:=dr("CveContratoDetalle").ToString.ToEntero, IVAPorcentaje:=dr("IVAPorcentaje").ToString.ToDouble,
RetIVAPorcentaje:=dr("RetIVAPorcentaje").ToString.ToDouble, RetISRPorcentaje:=dr("RetISRPorcentaje").ToString.ToDouble, RetIVAPorcentaje:=dr("RetIVAPorcentaje").ToString.ToDouble, RetISRPorcentaje:=dr("RetISRPorcentaje").ToString.ToDouble,
IEPSPSPorcentaje:=dr("IEPSPSPorcentaje").ToString.ToDouble, IEPSPSIVAPorcentaje:=dr("IEPSPSIVAPorcentaje").ToString.ToDouble) Then IEPSPSPorcentaje:=dr("IEPSPSPorcentaje").ToString.ToDouble, IEPSPSIVAPorcentaje:=dr("IEPSPSIVAPorcentaje").ToString.ToDouble) Then
@@ -4724,7 +4731,7 @@ Partial Class OC
ChkEventoPrioridad.Checked = False ChkEventoPrioridad.Checked = False
RegistraScript("$('#ModalBitacora').modal('hide')", "hidemodal") RegistraScript("$('#ModalBitacora').modal('hide')", "hidemodal")
CargaEventoBitacoraTemp() CargaEventoBitacoraTemp()
End Sub End Sub
@@ -4880,7 +4887,7 @@ Partial Class OC
Dim DtPara As DataTable = GlobalDTUsuarios(DdlSAUsuario.SelectedValue.ToString.ToEntero, CveEmpresaActual) Dim DtPara As DataTable = GlobalDTUsuarios(DdlSAUsuario.SelectedValue.ToString.ToEntero, CveEmpresaActual)
Param.Add(DtPara.Rows(0)("Correo").ToString()) 'Para Param.Add(DtPara.Rows(0)("Correo").ToString()) 'Para
Param.Add("Solicitud de anticipo de Orden de Compra") 'Asunto 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)) Param.Add(String.Format("{0}PDF\OC-{1}.pdf", UsuarioActual.Empresa.Ruta, CveOrdenCompra))
Dim Hilo As New Threading.Thread(AddressOf MandaCorreoAnticipo) Dim Hilo As New Threading.Thread(AddressOf MandaCorreoAnticipo)
Hilo.Start(Param) Hilo.Start(Param)
@@ -4894,7 +4901,7 @@ Partial Class OC
Dim DtPara As DataTable = GlobalDTUsuarios(Dr("CveUsuarioPara").ToString.ToEntero, CveEmpresaActual) Dim DtPara As DataTable = GlobalDTUsuarios(Dr("CveUsuarioPara").ToString.ToEntero, CveEmpresaActual)
Param.Add(DtPara.Rows(0)("Correo").ToString()) 'Para Param.Add(DtPara.Rows(0)("Correo").ToString()) 'Para
Param.Add("Solicitud de anticipo de Orden de Compra Cancelada") 'Asunto 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)) Param.Add(String.Format("{0}PDF\OC-{1}.pdf", UsuarioActual.Empresa.Ruta, CveOrdenCompra))
Dim Hilo As New Threading.Thread(AddressOf MandaCorreoAnticipo) Dim Hilo As New Threading.Thread(AddressOf MandaCorreoAnticipo)
Hilo.Start(Param) Hilo.Start(Param)
@@ -5118,7 +5125,7 @@ Partial Class OC
Return CveEmpresaActual = 66 Return CveEmpresaActual = 66
End Function 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 Dim Objeto As New ClsCompProveedores
DdlProveedorSucursal.Items.Clear() DdlProveedorSucursal.Items.Clear()
@@ -5191,7 +5198,7 @@ Partial Class OC
PnlUsuarioAsignado.Visible = False PnlUsuarioAsignado.Visible = False
RVProveedores.Enabled = False 'RVProveedores.Enabled = False
'Si NO requiere cotizacion y el estatus siguiente es el final, 'Si NO requiere cotizacion y el estatus siguiente es el final,
If TipoOC.ToUpper = "REQ" Then 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 If ChkCotizacion.Checked = False AndAlso CboE.SelectedValue.ToEntero.Contiene(CveEstatusFinalOK) AndAlso TipoOS = False Then
BtnGuardar.Text = "Guardar y Generar OC" : uppOpciones.Update() BtnGuardar.Text = "Guardar y Generar OC" : uppOpciones.Update()
RVProveedores.Enabled = True 'RVProveedores.Enabled = True
If CveEmpresaActual.Contiene(13, 83, 72) Then If CveEmpresaActual.Contiene(13, 83, 72) Then
PnlUsuarioAsignado.Visible = True PnlUsuarioAsignado.Visible = True
@@ -5228,7 +5235,7 @@ Partial Class OC
If CveEstatus <> CveEstatusFinalError Then RegistraScript("$get('divCE').style.display='';PosicionaObjeto('C_CboE','divCE'); ") If CveEstatus <> CveEstatusFinalError Then RegistraScript("$get('divCE').style.display='';PosicionaObjeto('C_CboE','divCE'); ")
End If End If
Else Else
RVProveedores.Enabled = True 'RVProveedores.Enabled = True
End If End If
@@ -5959,7 +5966,7 @@ Partial Class OC
Private Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable Private Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable
SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet) SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
Dim excelFile As ExcelFile = excelFile.Load(flatFilePath) Dim excelFile As ExcelFile = ExcelFile.Load(flatFilePath)
Dim unnamed As Integer = 0 Dim unnamed As Integer = 0
Dim cols As Integer Dim cols As Integer
@@ -6392,7 +6399,7 @@ Partial Class OC
Dim CveProveedorPrevio As String = DdlProveedores.SelectedValue Dim CveProveedorPrevio As String = DdlProveedores.SelectedValue
Dim CveProveedorSucursalPrevio As String = DdlProveedorSucursal.SelectedValue Dim CveProveedorSucursalPrevio As String = DdlProveedorSucursal.SelectedValue
CargaProveedores() CargaProveedores()
DdlProveedores.SelectedValueExist(CveProveedorPrevio) DdlProveedores.ddl.SelectedValueExist(CveProveedorPrevio)
DdlProveedores_SelectedIndexChanged(DdlProveedores, EventArgs.Empty) DdlProveedores_SelectedIndexChanged(DdlProveedores, EventArgs.Empty)
If DdlProveedorSucursal.Visible Then If DdlProveedorSucursal.Visible Then
DdlProveedorSucursal.SelectedValueExist(CveProveedorSucursalPrevio) DdlProveedorSucursal.SelectedValueExist(CveProveedorSucursalPrevio)