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

RepCotizaciones se DdlProveedores a dropdown lost

Browse Source
This commit is contained in:
Oscar Irigoyen
2023-01-17 16:15:59 -07:00
parent 1443f719ae
commit 3fe6851ef3
4 changed files with 3237 additions and 3460 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
Bin/GoCfdi.dll
View File

Binary file not shown.

6653
Empresas/1/Formatos/Factura.rdlc
View File

File diff suppressed because it is too large Load Diff

11
OC/RepCotizacionesDetalle.aspx
View File

@@ -55,15 +55,18 @@
</td>
<td>
<div>
<asp:DropDownList ID="CboProveedores" CssClass="select2me" runat="server" DataTextField="RazonSocial" DataValueField="CveProveedor"
<%--<asp:DropDownList ID="CboProveedores" CssClass="select2me" runat="server" DataTextField="RazonSocial" DataValueField="CveProveedor"
Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 200px !important;">
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVProveedor" runat="server" ControlToValidate="CboProveedores"
</asp:DropDownList>--%>
<ADS:Dropdownlost ID="DdlProveedores" CssClassDdl="select2me" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"></ADS:Dropdownlost>
<%--<asp:RequiredFieldValidator ID="RFVProveedor" runat="server" ControlToValidate="CboProveedores"
Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Proveedor''</b> es necesario, por favor ingréselo."
ValidationGroup="GrpDetalleGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEProveedor" runat="server" HighlightCssClass="vco"
TargetControlID="RFVProveedor" Width="300px">
</ajax:ValidatorCalloutExtender>
</ajax:ValidatorCalloutExtender>--%>
</div>
</td>
</tr>

33
OC/RepCotizacionesDetalle.aspx.vb
View File

@@ -100,8 +100,23 @@ Partial Class PopOCCotizacionesDetalle
CargaProveedores()
End Sub
Protected Sub CargaProveedores()
CboProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveProveedorClasificacion = {0} OR {0} = -1", CboClasificacionProveedor.SelectedValue))
CboProveedores.DataBind()
'CboProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveProveedorClasificacion = {0} OR {0} = -1", CboClasificacionProveedor.SelectedValue))
'CboProveedores.DataBind()
If (UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1") Then
DdlProveedores.setEsWebService(True)
DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
DdlProveedores.SelectedText = "Todos"
DdlProveedores.SelectedValue = "-1"
Else
DdlProveedores.setEsWebService(False)
DdlProveedores.ddl.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveProveedorClasificacion = {0} OR {0} = -1", CboClasificacionProveedor.SelectedValue))
DdlProveedores.ddl.DataBind()
DdlProveedores.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
End If
End Sub
Protected Sub CargaMonedas()
@@ -135,7 +150,7 @@ Partial Class PopOCCotizacionesDetalle
If objCotizacion.CveUsuario = 0 Then Deshabilitar()
TxtFolio.Text = objCotizacion.Folio.ToString
CboProveedores.SelectedValue = objCotizacion.CveProveedor.ToString
DdlProveedores.SelectedValue = objCotizacion.CveProveedor.ToString
TxtFecha.Text = objCotizacion.Fecha.ToShortDateString
ddlMoneda.SelectedValue = objCotizacion.CveMoneda.ToString
TxtDiasCredito.Text = objCotizacion.DiasCredito.ToString
@@ -159,7 +174,7 @@ Partial Class PopOCCotizacionesDetalle
Protected Sub Deshabilitar()
CboClasificacionProveedor.Enabled = False
CboProveedores.Enabled = False
DdlProveedores.Enabled = False
ddlMoneda.Enabled = False
TxtDiasCredito.Enabled = False
TxtFecha.Enabled = False
@@ -180,6 +195,12 @@ Partial Class PopOCCotizacionesDetalle
#Region " GUARDAR "
Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
If Not DdlProveedores.SelectedValue.ToEntero > 0 Then
Alert("El campo proveedor es requerido.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
Dim objCotizacion As New ClsOC
objCotizacion.IniciaTransacSQL()
Dim TieneError = False
@@ -195,7 +216,7 @@ Partial Class PopOCCotizacionesDetalle
Try
If EsNuevo Then
If objCotizacion.AddCotizacion(CveOrdenCompra, CboProveedores.SelectedValue.ToEntero, -1, TxtFolio.Text, TxtFecha.Text, FileExtension, ddlMoneda.SelectedValue.ToEntero,
If objCotizacion.AddCotizacion(CveOrdenCompra, DdlProveedores.SelectedValue.ToEntero, -1, TxtFolio.Text, TxtFecha.Text, FileExtension, ddlMoneda.SelectedValue.ToEntero,
TxtDiasCredito.Text.ToEntero, UsuarioActual.CveUsuario) Then
'verificar que exista el directorio
@@ -217,7 +238,7 @@ Partial Class PopOCCotizacionesDetalle
End If
Else
If objCotizacion.UpdateCotizacion(CboProveedores.SelectedValue.ToEntero, -1, TxtFolio.Text, TxtFecha.Text, FileExtension, ddlMoneda.SelectedValue.ToEntero, TxtDiasCredito.Text.ToEntero, UsuarioActual.CveUsuario, CveCotizacion) Then
If objCotizacion.UpdateCotizacion(DdlProveedores.SelectedValue.ToEntero, -1, TxtFolio.Text, TxtFecha.Text, FileExtension, ddlMoneda.SelectedValue.ToEntero, TxtDiasCredito.Text.ToEntero, UsuarioActual.CveUsuario, CveCotizacion) Then
'verificar que exista el directorio
If Not System.IO.Directory.Exists(String.Format("{0}Cotizaciones/", UsuarioActual.Empresa.Ruta)) Then