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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2023-01-18 08:27:11 -07:00
parent e1acdfa3b3 4fc31b0e0b
commit fdee81ea43
9 changed files with 3344 additions and 3498 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
Compras/RepComprasDetalle.aspx
View File

@@ -310,6 +310,17 @@
<asp:HyperLink ID="HplSerieFolio" runat="server" Text='<%# Eval("SerieFolio") %>' CssClass="Texto" NavigateUrl='<%# Eval("CveCompra", "/Compras/Compras.aspx?CveCompra={0}") %>'></asp:HyperLink> <asp:HyperLink ID="HplSerieFolio" runat="server" Text='<%# Eval("SerieFolio") %>' CssClass="Texto" NavigateUrl='<%# Eval("CveCompra", "/Compras/Compras.aspx?CveCompra={0}") %>'></asp:HyperLink>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField ItemStyle-Width="100">
<HeaderTemplate>
Folio Fiscal
</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlFolioFiscal" runat="server" Text='<%# Eval("FolioFiscal") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-Width="20"> <asp:TemplateField ItemStyle-Width="20">
<HeaderTemplate> <HeaderTemplate>
Cant. Cant.
@@ -477,30 +488,32 @@
<td> <td>
<asp:CheckBox ID="ChkIEPS" runat="server" Text="IEPS" /></td> <asp:CheckBox ID="ChkIEPS" runat="server" Text="IEPS" /></td>
<td> <td>
<asp:CheckBox ID="ChkObs" runat="server" Text="Observaciones"/></td> <asp:CheckBox ID="ChkObs" runat="server" Text="Observaciones" /></td>
</tr> </tr>
<tr> <tr>
<td> <td>
<asp:CheckBox ID="ChkDesc" runat="server" Text="Descuentos" /></td> <asp:CheckBox ID="ChkDesc" runat="server" Text="Descuentos" /></td>
<td> <td>
<asp:CheckBox ID="ChkTotal" runat="server" Text="Total" /></td> <asp:CheckBox ID="ChkTotal" runat="server" Text="Total" /></td>
<td><asp:CheckBox ID="ChkDescripcion" runat="server" Text="Descripción"/></td> <td>
<asp:CheckBox ID="ChkDescripcion" runat="server" Text="Descripción" /></td>
</tr> </tr>
<tr> <tr>
<td> <td>
<asp:CheckBox ID="ChkAbre" runat="server" Text="Moneda" /></td> <asp:CheckBox ID="ChkAbre" runat="server" Text="Moneda" /></td>
<td> <td>
<asp:CheckBox ID="ChkRazon" runat="server" Text="Proveedor" /></td> <asp:CheckBox ID="ChkRazon" runat="server" Text="Proveedor" /></td>
<td></td> <td>
<asp:CheckBox ID="ChkFolio" runat="server" Text="Folio Fiscal" /></td>
</tr> </tr>
<tr> <tr>
<td> <td>
<asp:CheckBox ID="ChkFolio" runat="server" Text="Folio Inv" /></td> <asp:CheckBox ID="ChkFolioInv" runat="server" Text="Folio Inv" /></td>
<td> <td>
<asp:CheckBox ID="ChkFecha" runat="server" Text="Fecha Movimiento" /></td> <asp:CheckBox ID="ChkFecha" runat="server" Text="Fecha Movimiento" /></td>
<td></td> <td></td>
</tr> </tr>
<tr> <tr>
<td> <td>
<asp:CheckBox ID="ChkRetIVA" runat="server" Text="Ret IVA" Checked="true" /></td> <asp:CheckBox ID="ChkRetIVA" runat="server" Text="Ret IVA" Checked="true" /></td>
<td> <td>

25
Compras/RepComprasDetalle.aspx.vb
View File

@@ -596,18 +596,19 @@ Partial Class Compras_RepComprasDetalle
#End Region #End Region
Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
GvDatos.Columns(4).Visible = ChkIVA.Checked GvDatos.Columns(2).Visible = ChkFolio.Checked
GvDatos.Columns(5).Visible = ChkIEPS.Checked GvDatos.Columns(5).Visible = ChkIVA.Checked
GvDatos.Columns(6).Visible = ChkDesc.Checked GvDatos.Columns(6).Visible = ChkIEPS.Checked
GvDatos.Columns(7).Visible = Chkretiva.Checked GvDatos.Columns(7).Visible = ChkDesc.Checked
GvDatos.Columns(8).Visible = Chkretisr.Checked GvDatos.Columns(8).Visible = ChkRetIVA.Checked
GvDatos.Columns(9).Visible = ChkTotal.Checked GvDatos.Columns(9).Visible = ChkRetISR.Checked
GvDatos.Columns(10).Visible = ChkAbre.Checked GvDatos.Columns(10).Visible = ChkTotal.Checked
GvDatos.Columns(11).Visible = ChkRazon.Checked GvDatos.Columns(11).Visible = ChkAbre.Checked
GvDatos.Columns(12).Visible = ChkFolio.Checked GvDatos.Columns(12).Visible = ChkRazon.Checked
GvDatos.Columns(13).Visible = ChkFecha.Checked GvDatos.Columns(13).Visible = ChkFolioInv.Checked
GvDatos.Columns(14).Visible = ChkObs.Checked GvDatos.Columns(14).Visible = ChkFecha.Checked
GvDatos.Columns(15).Visible = ChkDescripcion.Checked GvDatos.Columns(15).Visible = ChkObs.Checked
GvDatos.Columns(16).Visible = ChkDescripcion.Checked
UPDatos.Update() UPDatos.Update()
End Sub End Sub

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

File diff suppressed because it is too large Load Diff

63
General/SaldosIniciales.aspx.vb
View File

@@ -647,7 +647,7 @@ Partial Class General_SaldosIniciales
Dim DTCuentasContables As New DataTable Dim DTCuentasContables As New DataTable
If UsuarioActual.Empresa.TipoContabilizacion = 1 Or UsuarioActual.CveEmpresa.Contiene(172) Then If UsuarioActual.Empresa.TipoContabilizacion = 1 Or UsuarioActual.CveEmpresa.Contiene(172, 174) Then
Dim ObjConta As New ClsContabilidad Dim ObjConta As New ClsContabilidad
If ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then If ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
@@ -2344,9 +2344,42 @@ Partial Class General_SaldosIniciales
Private Sub ProcesaClasificaciones(dt As DataTable, dTCuentasContables As DataTable) Private Sub ProcesaClasificaciones(dt As DataTable, dTCuentasContables As DataTable)
Dim ErrorProceso As Boolean = False
Dim SBMensajesCuentasNoEncontradas As New StringBuilder
For Each dRow As DataRow In dt.FiltraParametros(" LEN(Clasificacion) > 0 ").Rows
Dim Clasificacion As String = dRow("Clasificacion").ToString().Trim.Replace("\r\n", "").Replace(vbCrLf, "").Replace(vbCr, "")
Dim CuentaContableIngreso As String = dRow("CuentaContableIngreso").ToString().Trim.Replace("-", "").Replace("\r\n", "").Replace(vbCrLf, "").Replace(vbCr, "")
Dim CuentaContableGasto As String = dRow("CuentaContableGasto").ToString().Trim.Replace("-", "").Replace("\r\n", "").Replace(vbCrLf, "").Replace(vbCr, "")
Dim CveCuentaContableIngreso As Integer = dTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContableIngreso}'").ToEntero()
Dim CveCuentaContableGasto As Integer = dTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContableGasto}'").ToEntero()
If CuentaContableIngreso.Trim.Length > 0 AndAlso CveCuentaContableIngreso <= 0 Then
SBMensajesCuentasNoEncontradas.AppendLine($"Clasificación {Clasificacion} no se encontro la cuenta de ingreso {CuentaContableIngreso}.<br/>")
ErrorProceso = True
End If
If CuentaContableGasto.Trim.Length > 0 AndAlso CveCuentaContableGasto <= 0 Then
SBMensajesCuentasNoEncontradas.AppendLine($"Clasificación {Clasificacion} no se encontro la cuenta de gasto {CuentaContableGasto}.<br/>")
ErrorProceso = True
End If
Next
If ErrorProceso Then
Alert($"Cuentas no encontradas.<br/>{SBMensajesCuentasNoEncontradas.ToString}", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
Dim ObjClasificaciones As New ClsClasificaciones Dim ObjClasificaciones As New ClsClasificaciones
Dim ObjConta As New ClsContabilidad(ObjClasificaciones.IniciaTransacSQL) Dim ObjConta As New ClsContabilidad(ObjClasificaciones.IniciaTransacSQL)
Dim ErrorProceso As Boolean = False
Dim Contador As Integer = 0 Dim Contador As Integer = 0
@@ -2411,15 +2444,15 @@ Partial Class General_SaldosIniciales
Dim CveCuentaContableIngreso As Integer = dTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContableIngreso}'").ToEntero() Dim CveCuentaContableIngreso As Integer = dTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContableIngreso}'").ToEntero()
Dim CveCuentaContableGasto As Integer = dTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContableGasto}'").ToEntero() Dim CveCuentaContableGasto As Integer = dTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContableGasto}'").ToEntero()
If CuentaContableIngreso.Trim.Length > 0 AndAlso CveCuentaContableIngreso <= 0 Then 'If CuentaContableIngreso.Trim.Length > 0 AndAlso CveCuentaContableIngreso <= 0 Then
Alert($"Clasificación {Clasificacion} no se encontro la cuenta de ingreso {CuentaContableIngreso}.", TipoMensaje.MsgAdvertencia) ' Alert($"Clasificación {Clasificacion} no se encontro la cuenta de ingreso {CuentaContableIngreso}.", TipoMensaje.MsgAdvertencia)
ErrorProceso = True ' ErrorProceso = True
End If 'End If
If CuentaContableGasto.Trim.Length > 0 AndAlso CveCuentaContableGasto <= 0 Then 'If CuentaContableGasto.Trim.Length > 0 AndAlso CveCuentaContableGasto <= 0 Then
Alert($"Clasificación {Clasificacion} no se encontro la cuenta de gasto {CuentaContableGasto}.", TipoMensaje.MsgAdvertencia) ' Alert($"Clasificación {Clasificacion} no se encontro la cuenta de gasto {CuentaContableGasto}.", TipoMensaje.MsgAdvertencia)
ErrorProceso = True ' ErrorProceso = True
End If 'End If
Dim CveClasificaionTemp = DTClasificaiones.FiltroPrimeroValor("CveClasificacion", $"Clasificacion='{Clasificacion}'").ToEntero() Dim CveClasificaionTemp = DTClasificaiones.FiltroPrimeroValor("CveClasificacion", $"Clasificacion='{Clasificacion}'").ToEntero()
@@ -2435,9 +2468,17 @@ Partial Class General_SaldosIniciales
CveClasificacion = ObjClasificaciones.CveClasificacion CveClasificacion = ObjClasificaciones.CveClasificacion
If Not CveClasificacion > 0 Then If CveClasificacion > 0 Then
If ObjClasificaciones.GetClasificaciones(UsuarioActual.CveEmpresa) Then
DTClasificaiones = ObjClasificaciones.DtResultados
End If
Else
ErrorProceso = True ErrorProceso = True
End If End If
Else Else
ErrorProceso = True ErrorProceso = True
End If End If

3
Inventarios/RepTraspasoAlmacen.aspx
View File

@@ -213,7 +213,8 @@
<Columns> <Columns>
<asp:HyperlinkField DataTextField="Folio" HeaderText="Folio" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" DataNavigateUrlFields="CveMovimiento" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%" /> <asp:HyperlinkField DataTextField="Folio" HeaderText="Folio" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" DataNavigateUrlFields="CveMovimiento" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%" />
<asp:BoundField HeaderText="Fecha" DataField="FechaMovto" DataFormatString="{0:d}" ItemStyle-Width="5%" /> <asp:BoundField HeaderText="Fecha" DataField="FechaMovto" DataFormatString="{0:d}" ItemStyle-Width="5%" />
<asp:BoundField HeaderText="Disponible" DataField="Cantidad" DataFormatString="{0:#,##0.00####}" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%" /> <asp:BoundField HeaderText="Cant. Orig." DataField="CantidadOriginal" DataFormatString="{0:#,##0.00####}" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%" />
<asp:BoundField HeaderText="Disponible" DataField="Disponible" DataFormatString="{0:#,##0.00####}" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%" />
<asp:BoundField HeaderText="Unidad" DataField="UnidadMedida" ItemStyle-Width="5%" /> <asp:BoundField HeaderText="Unidad" DataField="UnidadMedida" ItemStyle-Width="5%" />
<asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-Width="5%" /> <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-Width="5%" />
<asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left"/> <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left"/>

11
OC/RepCotizacionesDetalle.aspx
View File

@@ -55,15 +55,18 @@
</td> </td>
<td> <td>
<div> <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;"> Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 200px !important;">
</asp:DropDownList> </asp:DropDownList>--%>
<asp:RequiredFieldValidator ID="RFVProveedor" runat="server" ControlToValidate="CboProveedores" <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." 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> ValidationGroup="GrpDetalleGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEProveedor" runat="server" HighlightCssClass="vco" <ajax:ValidatorCalloutExtender ID="VCEProveedor" runat="server" HighlightCssClass="vco"
TargetControlID="RFVProveedor" Width="300px"> TargetControlID="RFVProveedor" Width="300px">
</ajax:ValidatorCalloutExtender> </ajax:ValidatorCalloutExtender>--%>
</div> </div>
</td> </td>
</tr> </tr>

33
OC/RepCotizacionesDetalle.aspx.vb
View File

@@ -100,8 +100,23 @@ Partial Class PopOCCotizacionesDetalle
CargaProveedores() CargaProveedores()
End Sub End Sub
Protected Sub CargaProveedores() Protected Sub CargaProveedores()
CboProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveProveedorClasificacion = {0} OR {0} = -1", CboClasificacionProveedor.SelectedValue)) 'CboProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveProveedorClasificacion = {0} OR {0} = -1", CboClasificacionProveedor.SelectedValue))
CboProveedores.DataBind() '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 End Sub
Protected Sub CargaMonedas() Protected Sub CargaMonedas()
@@ -135,7 +150,7 @@ Partial Class PopOCCotizacionesDetalle
If objCotizacion.CveUsuario = 0 Then Deshabilitar() If objCotizacion.CveUsuario = 0 Then Deshabilitar()
TxtFolio.Text = objCotizacion.Folio.ToString TxtFolio.Text = objCotizacion.Folio.ToString
CboProveedores.SelectedValue = objCotizacion.CveProveedor.ToString DdlProveedores.SelectedValue = objCotizacion.CveProveedor.ToString
TxtFecha.Text = objCotizacion.Fecha.ToShortDateString TxtFecha.Text = objCotizacion.Fecha.ToShortDateString
ddlMoneda.SelectedValue = objCotizacion.CveMoneda.ToString ddlMoneda.SelectedValue = objCotizacion.CveMoneda.ToString
TxtDiasCredito.Text = objCotizacion.DiasCredito.ToString TxtDiasCredito.Text = objCotizacion.DiasCredito.ToString
@@ -159,7 +174,7 @@ Partial Class PopOCCotizacionesDetalle
Protected Sub Deshabilitar() Protected Sub Deshabilitar()
CboClasificacionProveedor.Enabled = False CboClasificacionProveedor.Enabled = False
CboProveedores.Enabled = False DdlProveedores.Enabled = False
ddlMoneda.Enabled = False ddlMoneda.Enabled = False
TxtDiasCredito.Enabled = False TxtDiasCredito.Enabled = False
TxtFecha.Enabled = False TxtFecha.Enabled = False
@@ -180,6 +195,12 @@ Partial Class PopOCCotizacionesDetalle
#Region " GUARDAR " #Region " GUARDAR "
Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click 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 Dim objCotizacion As New ClsOC
objCotizacion.IniciaTransacSQL() objCotizacion.IniciaTransacSQL()
Dim TieneError = False Dim TieneError = False
@@ -195,7 +216,7 @@ Partial Class PopOCCotizacionesDetalle
Try Try
If EsNuevo Then 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 TxtDiasCredito.Text.ToEntero, UsuarioActual.CveUsuario) Then
'verificar que exista el directorio 'verificar que exista el directorio
@@ -217,7 +238,7 @@ Partial Class PopOCCotizacionesDetalle
End If End If
Else 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 'verificar que exista el directorio
If Not System.IO.Directory.Exists(String.Format("{0}Cotizaciones/", UsuarioActual.Empresa.Ruta)) Then If Not System.IO.Directory.Exists(String.Format("{0}Cotizaciones/", UsuarioActual.Empresa.Ruta)) Then

10
OC/RepOC.aspx
View File

@@ -177,11 +177,11 @@
<div visible="true" runat="server" id="DivAF"> <div visible="true" runat="server" id="DivAF">
<label class="colf-1">Activo Fijo</label> <label class="colf-1">Activo Fijo</label>
<div class="colf-2"> <div class="colf-2">
<asp:DropDownList ID="DdlActivoFijo" runat="server" CssClass="form-control input-sm select2me" AutoPostBack="true" DataTextField="Codigo" DataValueField="CveActivoFijo"> <asp:DropDownList ID="DdlActivoFijo" runat="server" CssClass="form-control input-sm select2me" AutoPostBack="true" DataTextField="Codigo" DataValueField="CveActivoFijo" Width="100%">
</asp:DropDownList> </asp:DropDownList>
</div> </div>
</div> </div>
<label class="colf-1">Usuario</label> <label class="colf-1">Solicitó</label>
<div class="colf-2"> <div class="colf-2">
<asp:DropDownList ID="ddlUsuario" runat="server" CssClass="form-control input-sm select2me" Width="100%" DataTextField="Nombre" DataValueField="CveUsuario"> <asp:DropDownList ID="ddlUsuario" runat="server" CssClass="form-control input-sm select2me" Width="100%" DataTextField="Nombre" DataValueField="CveUsuario">
</asp:DropDownList> </asp:DropDownList>
@@ -201,7 +201,7 @@
<div class="row rownomargin"> <div class="row rownomargin">
<label class="colf-1 truncate">Clasificación</label> <label class="colf-1 truncate">Clasificación</label>
<div class="colf-2"> <div class="colf-2">
<asp:DropDownList ID="DDlClasificacion" runat="server" CssClass="form-control input-sm select2me" DataTextField="Clasificacion" DataValueField="CveClasificacion" AutoPostBack="true"> <asp:DropDownList ID="DDlClasificacion" runat="server" CssClass="form-control input-sm select2me" DataTextField="Clasificacion" DataValueField="CveClasificacion" AutoPostBack="true" Width="100%">
</asp:DropDownList> </asp:DropDownList>
</div> </div>
<label class="colf-1 truncate">Producto Servicio</label> <label class="colf-1 truncate">Producto Servicio</label>
@@ -242,7 +242,9 @@
<div class="row rownomargin"> <div class="row rownomargin">
<label class="colf-1 truncate">Proveedor</label> <label class="colf-1 truncate">Proveedor</label>
<div class="colf-2"> <div class="colf-2">
<asp:DropDownList ID="ddlProveedor" runat="server" CssClass="form-control input-sm select2me" DataTextField="RazonSocial" DataValueField="CveProveedor"></asp:DropDownList> <%--<asp:DropDownList ID="ddlProveedor" runat="server" CssClass="form-control input-sm select2me" DataTextField="RazonSocial" DataValueField="CveProveedor"></asp:DropDownList>--%>
<ADS:Dropdownlost ID="DdlProveedores" CssClassDdl="select2me" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"></ADS:Dropdownlost>
</div> </div>
<label class="colf-1 truncate" id="clintesdiv1" runat="server" visible="false">Cliente</label> <label class="colf-1 truncate" id="clintesdiv1" runat="server" visible="false">Cliente</label>
<div class="colf-2" id="clintesdiv2" runat="server" visible="false"> <div class="colf-2" id="clintesdiv2" runat="server" visible="false">

21
OC/RepOC.aspx.vb
View File

@@ -88,6 +88,9 @@ Partial Class RepOC
#Region " CARGA COMBOS " #Region " CARGA COMBOS "
Protected Sub CargaProyectos() Protected Sub CargaProyectos()
'DdlProyectos.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1)) 'DdlProyectos.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1))
'DdlProyectos.DataBind() 'DdlProyectos.DataBind()
@@ -120,9 +123,17 @@ Partial Class RepOC
End Sub End Sub
Protected Sub CargaProveedores() Protected Sub CargaProveedores()
ddlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) If (UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1") Then
ddlProveedor.DataBind() DdlProveedores.setEsWebService(True)
ddlProveedor.Items.Insert(0, New ListItem("Todos", "-1")) DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
DdlProveedores.SelectedText = "Todos"
DdlProveedores.SelectedValue = "-1"
Else
DdlProveedores.setEsWebService(False)
DdlProveedores.ddl.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
DdlProveedores.ddl.DataBind()
DdlProveedores.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
End If
End Sub End Sub
Protected Sub CargaClientes() Protected Sub CargaClientes()
clintesdiv1.Visible = True clintesdiv1.Visible = True
@@ -366,7 +377,7 @@ Partial Class RepOC
Dim OC As New ClsOC Dim OC As New ClsOC
If OC.GetOrdenesCompraRep(DdlTipo.SelectedValue.ToString, DdlProyectos.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero, DDlClasificacion.SelectedValue.ToEntero, If OC.GetOrdenesCompraRep(DdlTipo.SelectedValue.ToString, DdlProyectos.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero, DDlClasificacion.SelectedValue.ToEntero,
DdlEstatus.SelectedValue.ToEntero, FI, FF, -1, ddlProveedor.SelectedValue.ToEntero, If(txtFolio.Text.ToEntero = 0, -1, txtFolio.Text.ToEntero), ddlUsuario.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, FI, FF, -1, DdlProveedores.SelectedValue.ToEntero, If(txtFolio.Text.ToEntero = 0, -1, txtFolio.Text.ToEntero), ddlUsuario.SelectedValue.ToEntero,
If(CheckNoCompleta.Checked, -1, UsuarioActual.CveUsuario), UsuarioActual.Empresa.CveEmpresa, If(DDlPS.SelectedValue = "", -1, DDlPS.SelectedValue.ToEntero), If(CheckNoCompleta.Checked, True, False), If(CheckNoCompleta.Checked, -1, UsuarioActual.CveUsuario), UsuarioActual.Empresa.CveEmpresa, If(DDlPS.SelectedValue = "", -1, DDlPS.SelectedValue.ToEntero), If(CheckNoCompleta.Checked, True, False),
ddlcliente.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False), ddlcliente.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False),
CveUsuarioAutorizo:=DdlUsuarioAutorizo.SelectedValue.ToEntero(), CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero()) Then CveUsuarioAutorizo:=DdlUsuarioAutorizo.SelectedValue.ToEntero(), CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero()) Then
@@ -512,7 +523,7 @@ Partial Class RepOC
Dim Clasificacion = If(DDlClasificacion.SelectedValue = "-1", "", $"&emsp;<b>Clasificación:</b>&nbsp;{DDlClasificacion.SelectedItem.Text}") Dim Clasificacion = If(DDlClasificacion.SelectedValue = "-1", "", $"&emsp;<b>Clasificación:</b>&nbsp;{DDlClasificacion.SelectedItem.Text}")
Dim Producto = If(DDlPS.SelectedValue = "-1", "", $"&emsp;<b>Producto/Servicio:</b>&nbsp;{DDlPS.SelectedText}") Dim Producto = If(DDlPS.SelectedValue = "-1", "", $"&emsp;<b>Producto/Servicio:</b>&nbsp;{DDlPS.SelectedText}")
Dim Completa As String = If(CheckNoCompleta.Checked = False, "", $"&emsp;, <b>No completa</b>&nbsp;") Dim Completa As String = If(CheckNoCompleta.Checked = False, "", $"&emsp;, <b>No completa</b>&nbsp;")
Dim Proveedor = If(ddlProveedor.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b>&nbsp;{ddlProveedor.SelectedItem.Text}") Dim Proveedor = If(DdlProveedores.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b>&nbsp;{DdlProveedores.txtText.Value }")
Dim Cliente = If(ddlcliente.SelectedValue = "-1", "", $"&emsp;<b>Cliente:</b>&nbsp;{ddlcliente.SelectedItem.Text}") Dim Cliente = If(ddlcliente.SelectedValue = "-1", "", $"&emsp;<b>Cliente:</b>&nbsp;{ddlcliente.SelectedItem.Text}")
If DtPorAtender IsNot Nothing AndAlso DtPorAtender.Rows.Count > 0 Then If DtPorAtender IsNot Nothing AndAlso DtPorAtender.Rows.Count > 0 Then