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

Bloqueo AF 13, Actualzia Compra fecha vencimiento, Rep OC bloquear mostrar oc req de proyectos no asignados

Browse Source
This commit is contained in:
rakcsle
2025-03-24 08:52:41 -07:00
parent dcc6f22a0e
commit 9ee7372d07
13 changed files with 150 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
AF/AF.aspx.vb
View File

@@ -424,6 +424,10 @@ Partial Class AF_AF
ModalidadesPaginaAFInicial(Request("Op").ToString) ModalidadesPaginaAFInicial(Request("Op").ToString)
End If End If
If UsuarioActual.TienePermisoProceso(410) Then
BtnGuardar.Visible = False
BtnEliminar.Visible = False
End If
End If End If

42
App_Code/ClsCompProveedores.vb
View File

@@ -66,6 +66,7 @@ Public Class ClsCompProveedores
Public Property DIOTNacionalidad As String Public Property DIOTNacionalidad As String
Public Property CveRegimenFiscal As Integer = -1 Public Property CveRegimenFiscal As Integer = -1
Public Property PorcentajeProntoPago As Decimal = 0D Public Property PorcentajeProntoPago As Decimal = 0D
Public Property CveTipoFechaVencimiento As Integer = 1
Public ReadOnly Property DtResultados() As DataTable Public ReadOnly Property DtResultados() As DataTable
Get Get
@@ -302,6 +303,7 @@ Public Class ClsCompProveedores
Me.DIOTNacionalidad = Data.Rows(0)("DIOTNacionalidad").ToString Me.DIOTNacionalidad = Data.Rows(0)("DIOTNacionalidad").ToString
Me.CveRegimenFiscal = Data.Rows(0)("CveRegimenFiscal").ToString.ToEntero Me.CveRegimenFiscal = Data.Rows(0)("CveRegimenFiscal").ToString.ToEntero
Me.PorcentajeProntoPago = Data.Rows(0)("PorcentajeProntoPago").ToString.ToDecimal Me.PorcentajeProntoPago = Data.Rows(0)("PorcentajeProntoPago").ToString.ToDecimal
Me.CveTipoFechaVencimiento = Data.Rows(0)("CveTipoFechaVencimiento").ToString.ToEntero
End If End If
@@ -524,28 +526,30 @@ Public Class ClsCompProveedores
Return Retorno Return Retorno
End Function End Function
Public Function UpdateProveedorLimiteCredito(CveProveedor As Integer, LimiteCredito As Decimal, PlazoPago As Integer, UsaLimiteCredito As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean Public Function UpdateProveedorLimiteCredito(CveProveedor As Integer, LimiteCredito As Decimal, PlazoPago As Integer, UsaLimiteCredito As Boolean, CveUsuario As Integer, CveEmpresa As Integer, Optional CveTipoFechaVencimiento As Integer = 1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Comp_ProveedorLimiteCreditoUpdate") DataAdapter("PA_Comp_ProveedorLimiteCreditoUpdate")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
.Add("@LimiteCredito", SqlDbType.Money).Value = LimiteCredito .Add("@LimiteCredito", SqlDbType.Money).Value = LimiteCredito
.Add("@PlazoPago", SqlDbType.Int).Value = PlazoPago .Add("@PlazoPago", SqlDbType.Int).Value = PlazoPago
.Add("@UsaLimiteCredito", SqlDbType.Bit).Value = UsaLimiteCredito .Add("@UsaLimiteCredito", SqlDbType.Bit).Value = UsaLimiteCredito
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With .Add("@CveTipoFechaVencimiento", SqlDbType.TinyInt).Value = CveTipoFechaVencimiento
Try End With
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al Actualizar el limite de crédito del Proveedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno Try
End Function SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al Actualizar el limite de crédito del Proveedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function UpdateProveedorPagoElectronico(EstatusPagoElectronico As Boolean, CveUsuario As Integer, CveProveedor As Integer) As Boolean Public Function UpdateProveedorPagoElectronico(EstatusPagoElectronico As Boolean, CveUsuario As Integer, CveProveedor As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False

17
Compras/Compras.aspx
View File

@@ -2476,7 +2476,7 @@
</div> </div>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:BoundField DataField="Obs" ItemStyle-Width="300px" ControlStyle-CssClass="Texto" /> <asp:BoundField DataField="Obs" ControlStyle-CssClass="Texto" />
<asp:TemplateField ItemStyle-Width="20%"> <asp:TemplateField ItemStyle-Width="20%">
<ItemTemplate> <ItemTemplate>
<asp:TextBox runat="server" ID="TxtReferencia" Width="120px"></asp:TextBox> <asp:TextBox runat="server" ID="TxtReferencia" Width="120px"></asp:TextBox>
@@ -2491,23 +2491,12 @@
</asp:DropDownList> </asp:DropDownList>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField ItemStyle-Width="20%"> <asp:TemplateField ItemStyle-Width="30%">
<ItemTemplate> <ItemTemplate>
<asp:DropDownList ID="DdlPersonalGv" DataTextField="NombreCompletoNombre" DataValueField="CvePersonal" AppendDataBoundItems="true" runat="server" Width="100%" CssClass="form-control select2me" style="margin-top:15px!important " >
<asp:DropDownList ID="DdlPersonalGv" DataTextField="NombreCompletoNombre" DataValueField="CvePersonal" AppendDataBoundItems="true" runat="server" Width="100%" CssClass="form-control input-sm select2me">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
<%--<asp:Label runat="server" ID="LbCveAF" Text='<%# Eval("CodAF")%>'></asp:Label>--%>
<%--<asp:TextBox ID="LblCodigo" Text='<%# Eval("CodAF")%>' runat="server" Visible="false" Width="40px"></asp:TextBox>
<asp:HyperLink runat="server" ImageUrl="/Imagenes/buscar.gif" ID="HLBuscarAF"></asp:HyperLink>
<asp:HiddenField runat="server" ID="HdnCveConcepto" Value='<%# Eval("CveConcepto")%>' />
<asp:HiddenField runat="server" ID="HdnIndex" />
<asp:HiddenField runat="server" ID="HdnCveAF" Value='<%# Eval("CveActivoFijo")%>' />
<asp:HiddenField runat="server" ID="HdnCodAF" Value='<%# Eval("CodAF")%>' />--%>
</ItemTemplate> </ItemTemplate>
<%-- <ItemStyle Width="90px" />--%>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField ItemStyle-Width="100px"> <asp:TemplateField ItemStyle-Width="100px">
<ItemTemplate> <ItemTemplate>

11
Compras/Compras.aspx.vb
View File

@@ -1568,6 +1568,7 @@ Partial Class Compras_Compras
If UsuarioActual.CveEmpresa = 189 Then If UsuarioActual.CveEmpresa = 189 Then
BtnCancelarCompra.Visible = False BtnCancelarCompra.Visible = False
End If End If
CargaGvPersonal()
Else Else
ViewState("CveProveedor") = -1 ViewState("CveProveedor") = -1
@@ -9357,6 +9358,16 @@ Partial Class Compras_Compras
Dim CvePersonal As Integer = 0 Dim CvePersonal As Integer = 0
If Cont < GvPersonal.Rows.Count Then CvePersonal = GvPersonal.Rows(Cont).FCDropDownList("DdlPersonalGv").SelectedValue.ToEntero If Cont < GvPersonal.Rows.Count Then CvePersonal = GvPersonal.Rows(Cont).FCDropDownList("DdlPersonalGv").SelectedValue.ToEntero
'If CvePersonal <= 0 AndAlso RBLContado.SelectedValue.ToEntero = 2 AndAlso TxtNumeroReembolso.Text.Length > 0 Then
' CvePersonal = DdlPersonalReembolso.SelectedValue.ToEntero
' If Not CvePersonal > 0 Then
' Alert("Debe asignar personal al reembolso.", TipoMensaje.MsgAdvertencia)
' Retorno = False
' End If
'End If
Dim Referencia As String = "" Dim Referencia As String = ""
If Cont < GvPersonal.Rows.Count Then Referencia = GvPersonal.Rows(Cont).FCTextBox("TxtReferencia").Text If Cont < GvPersonal.Rows.Count Then Referencia = GvPersonal.Rows(Cont).FCTextBox("TxtReferencia").Text

11
Compras/Proveedores.aspx
View File

@@ -3287,6 +3287,17 @@
<label for="<%= ChkUsaLimiteCredito.ClientID.ToString()%>">Usa límite de crédito:</label> <label for="<%= ChkUsaLimiteCredito.ClientID.ToString()%>">Usa límite de crédito:</label>
<asp:CheckBox ID="ChkUsaLimiteCredito" runat="server" /> <asp:CheckBox ID="ChkUsaLimiteCredito" runat="server" />
</div> </div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList runat="server" ID="DdlTipoFechaVencimiento" CssClass="form-control select2me" Width="200px">
<asp:ListItem Value="-1">-</asp:ListItem>
<asp:ListItem Value="1">Fecha Factura</asp:ListItem>
<asp:ListItem Value="2">Fecha Entrada</asp:ListItem>
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RfvDdlTipoFechaVencimiento" InitialValue="-1" runat="server" ControlToValidate="DdlTipoFechaVencimiento" Display="None"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Fecha Vencimiento''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCRfvDdlTipoFechaVencimiento" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlTipoFechaVencimiento" Width="300px"></ajax:ValidatorCalloutExtender>
<label for="<%= DdlTipoFechaVencimiento.ClientID.ToString()%>">Tipo Fecha Vencimiento:</label>
</div>
</div> </div>
<div class="modal-footer"> <div class="modal-footer">
<asp:LinkButton ID="LnkAddParametros" CssClass="btn btn-success" Text="Guardar" runat="server"></asp:LinkButton> <asp:LinkButton ID="LnkAddParametros" CssClass="btn btn-success" Text="Guardar" runat="server"></asp:LinkButton>

5
Compras/Proveedores.aspx.vb
View File

@@ -930,6 +930,7 @@ Partial Class Compras_Proveedores
TxtPlazoCobranza.Text = ObjProveedor.PlazoPago.ToString TxtPlazoCobranza.Text = ObjProveedor.PlazoPago.ToString
LblLimiteCredito.Text = ObjProveedor.LimiteCredito.ToString.FormatoNumero LblLimiteCredito.Text = ObjProveedor.LimiteCredito.ToString.FormatoNumero
LblPlazoCobranza.Text = ObjProveedor.PlazoPago.ToString LblPlazoCobranza.Text = ObjProveedor.PlazoPago.ToString
DdlTipoFechaVencimiento.SelectedValueExist(ObjProveedor.CveTipoFechaVencimiento)
'Sistema 'Sistema
ChkEstado.Checked = ObjProveedor.Estatus = "Activo" ChkEstado.Checked = ObjProveedor.Estatus = "Activo"
@@ -4177,7 +4178,9 @@ Partial Class Compras_Proveedores
If CveProveedor > 0 Then If CveProveedor > 0 Then
Dim ObjPro As New ClsCompProveedores Dim ObjPro As New ClsCompProveedores
If ObjPro.UpdateProveedorLimiteCredito(CveProveedor, TxtLimiteCredito.Text.ToDecimal, TxtPlazoCobranza.Text.ToEntero, ChkUsaLimiteCredito.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then If ObjPro.UpdateProveedorLimiteCredito(CveProveedor, TxtLimiteCredito.Text.ToDecimal, TxtPlazoCobranza.Text.ToEntero, ChkUsaLimiteCredito.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
DdlTipoFechaVencimiento.SelectedValue.ToEntero) Then
Alert("Limite de crédito modificado correctamente.") Alert("Limite de crédito modificado correctamente.")
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddParametros")) RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddParametros"))
End If End If

7
Compras/RepProductosServicios.aspx
View File

@@ -41,6 +41,13 @@
width: 100%; width: 100%;
height: 500px; height: 500px;
} }
.select2-container--default .select2-selection--multiple .select2-selection__choice {
max-width: calc(100% - 2em);
text-overflow: ellipsis;
overflow: hidden;
white-space: nowrap;
}
</style> </style>
</asp:Content> </asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server"> <asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">

28
Compras/RepProductosServicios.aspx.vb
View File

@@ -146,7 +146,17 @@ Partial Class Compras_RepProductosServicios
DdlGrupo.Items.Insert(7, New ListItem("Proveedor", "10")) DdlGrupo.Items.Insert(7, New ListItem("Proveedor", "10"))
DdlGrupo.Items.Insert(8, New ListItem("Usuario", "11")) DdlGrupo.Items.Insert(8, New ListItem("Usuario", "11"))
DdlGrupo.Items.Insert(9, New ListItem("Estatus Fact.", "12")) DdlGrupo.Items.Insert(9, New ListItem("Estatus Fact.", "12"))
If UsuarioActual.Empresa.Funcionalidad(307) <> "" Then DdlGrupo.Items.Insert(10, New ListItem(UsuarioActual.Empresa.Funcionalidad(307), "1"))
DdlGrupo.Items.Insert(10, New ListItem("Sucursal", "2"))
DdlGrupo.Items.Insert(11, New ListItem("Tipo de Gasto", "16"))
DdlGrupo.Items.Insert(12, New ListItem("Activo Fijo", "17"))
DdlGrupo.Items.Insert(13, New ListItem("Sub Tipo Activo Fijo", "18"))
DdlGrupo.Items.Insert(14, New ListItem("Tipo Activo Fijo", "19"))
DdlGrupo.Items.Insert(15, New ListItem("Tipo Documento", "20"))
If UsuarioActual.Empresa.Funcionalidad(307) <> "" Then DdlGrupo.Items.Insert(16, New ListItem(UsuarioActual.Empresa.Funcionalidad(307), "1"))
'Agrega el grupo si es una empresa Agricola 'Agrega el grupo si es una empresa Agricola
If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then
@@ -209,7 +219,7 @@ Partial Class Compras_RepProductosServicios
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
If DdlGrupo.SelectedValue.ToEntero < 13 Or DdlGrupo.SelectedValue.ToEntero = 15 Then If DdlGrupo.SelectedValue.ToEntero < 13 Or DdlGrupo.SelectedValue.ToEntero = 15 Or (DdlGrupo.SelectedValue.ToEntero >= 16) Then
If e.Row.DBCampo("GpoID") = "1" Then If e.Row.DBCampo("GpoID") = "1" Then
e.Row.Cells(0).Text = e.Row.DBCampo("Moneda") e.Row.Cells(0).Text = e.Row.DBCampo("Moneda")
e.Row.CssClass = "Totales" e.Row.CssClass = "Totales"
@@ -256,11 +266,21 @@ Partial Class Compras_RepProductosServicios
End If End If
Dim Liga = String.Format("/Compras/RepProductosServiciosDetalle.aspx?GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveEstatusFactura={7}&FechaI={8}&FechaF={9}&CveProyecto={10}&CveSubProyecto={11}&CveCategoria={12}&CveClasificacion={13}&CvePS={14}&CveFamilia={15}&CveSubFamilia={16}&CveTipoAF={17}&CveSubTipoAF={18}&CveAF={19}&CveMoneda={20}&CveTipoGasto={21}&TipoCambio={22}&TCEspecifico={23}&Deducible={24}&CveCultivo={25}", 'Dim Liga = String.Format("/Compras/RepProductosServiciosDetalle.aspx?GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveEstatusFactura={7}&FechaI={8}&FechaF={9}&CveProyecto={10}&CveSubProyecto={11}&CveCategoria={12}" &
' "&CveClasificacion={13}&CvePS={14}&CveFamilia={15}&CveSubFamilia={16}&CveTipoAF={17}&CveSubTipoAF={18}&CveAF={19}&CveMoneda={20}&CveTipoGasto={21}&TipoCambio={22}&TCEspecifico={23}&Deducible={24}&CveCultivo={25}" &
' "",
' DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"),
' e.Row.DBCampo("CveEstatusFactura"), FechaI, FechaF, e.Row.DBCampo("CveProyecto"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveCategoria"), e.Row.DBCampo("CveClasificacion"),
' e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveFamilia"), e.Row.DBCampo("CveSubFamilia"), e.Row.DBCampo("CveTipoAF"), e.Row.DBCampo("CveSubTipoAF"), e.Row.DBCampo("CveAF"), e.Row.DBCampo("CveMoneda"),
' DdlTipoGasto.GetSelectedValuesM, e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), DdlDeducible.SelectedValue.ToEntero, e.Row.DBCampo("CveCultivo"))
Dim Liga = String.Format("/Compras/RepProductosServiciosDetalle.aspx?GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveEstatusFactura={7}&FechaI={8}&FechaF={9}&CveProyecto={10}&CveSubProyecto={11}&CveCategoria={12}" &
"&CveClasificacion={13}&CvePS={14}&CveFamilia={15}&CveSubFamilia={16}&CveTipoAF={17}&CveSubTipoAF={18}&CveAF={19}&CveMoneda={20}&CveTipoGasto={21}&TipoCambio={22}&TCEspecifico={23}&Deducible={24}&CveCultivo={25}" &
"",
DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"),
e.Row.DBCampo("CveEstatusFactura"), FechaI, FechaF, e.Row.DBCampo("CveProyecto"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveCategoria"), e.Row.DBCampo("CveClasificacion"), e.Row.DBCampo("CveEstatusFactura"), FechaI, FechaF, e.Row.DBCampo("CveProyecto"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveCategoria"), e.Row.DBCampo("CveClasificacion"),
e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveFamilia"), e.Row.DBCampo("CveSubFamilia"), e.Row.DBCampo("CveTipoAF"), e.Row.DBCampo("CveSubTipoAF"), e.Row.DBCampo("CveAF"), e.Row.DBCampo("CveMoneda"), e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveFamilia"), e.Row.DBCampo("CveSubFamilia"), e.Row.DBCampo("CveTipoAF"), e.Row.DBCampo("CveSubTipoAF"), e.Row.DBCampo("CveAF"), e.Row.DBCampo("CveMoneda"),
DdlTipoGasto.GetSelectedValuesM, e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), DdlDeducible.SelectedValue.ToEntero, e.Row.DBCampo("CveCultivo")) e.Row.DBCampo("CveTipoGasto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), DdlDeducible.SelectedValue.ToEntero, e.Row.DBCampo("CveCultivo"))
If Not e.Row.DBCampo("GpoID") = "1" Then If Not e.Row.DBCampo("GpoID") = "1" Then

14
Compras/RepProductosServiciosDetalle.aspx.vb
View File

@@ -95,7 +95,9 @@ Partial Class Compras_RepProductosServiciosDetalle
Usuario = If(Request("CveUsuario") IsNot Nothing AndAlso Request("CveUsuario").ToEntero() > 0, Request("CveUsuario").ToEntero(), -1).ToString Usuario = If(Request("CveUsuario") IsNot Nothing AndAlso Request("CveUsuario").ToEntero() > 0, Request("CveUsuario").ToEntero(), -1).ToString
Familia = If(Request("CveFamilia") IsNot Nothing AndAlso Request("CveFamilia").ToEntero() > -3, Request("CveFamilia").ToEntero(), -1).ToString Familia = If(Request("CveFamilia") IsNot Nothing AndAlso Request("CveFamilia").ToEntero() > -3, Request("CveFamilia").ToEntero(), -1).ToString
SubFamilia = If(Request("CveSubFamilia") IsNot Nothing AndAlso Request("CveSubFamilia").ToEntero() > -3, Request("CveSubFamilia").ToEntero(), -1).ToString SubFamilia = If(Request("CveSubFamilia") IsNot Nothing AndAlso Request("CveSubFamilia").ToEntero() > -3, Request("CveSubFamilia").ToEntero(), -1).ToString
ActivoFijo = If(Request("CveAF") IsNot Nothing AndAlso Request("CveAF").ToEntero() > 0, Request("CveAF").ToEntero(), -1).ToString
ActivoFijo = If(Request("CveAF") IsNot Nothing AndAlso (Request("CveAF").ToEntero() > 0 Or Request("CveAF").ToEntero() = -2), Request("CveAF").ToEntero(), -1).ToString
CveMoneda = If(Request("CveMoneda") IsNot Nothing AndAlso Request("CveMoneda").ToEntero() > 0, Request("CveMoneda").ToEntero(), -1).ToString.ToEntero CveMoneda = If(Request("CveMoneda") IsNot Nothing AndAlso Request("CveMoneda").ToEntero() > 0, Request("CveMoneda").ToEntero(), -1).ToString.ToEntero
TipoDocto = If(Request("TipoDocto") IsNot Nothing, Request("TipoDocto").ToString, "-1").ToString TipoDocto = If(Request("TipoDocto") IsNot Nothing, Request("TipoDocto").ToString, "-1").ToString
Deducible = If(Request("Deducible") IsNot Nothing, Request("Deducible").ToString, "-1").ToString Deducible = If(Request("Deducible") IsNot Nothing, Request("Deducible").ToString, "-1").ToString
@@ -187,6 +189,7 @@ Partial Class Compras_RepProductosServiciosDetalle
'Carga Tipos de Gasto 'Carga Tipos de Gasto
DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa) DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)
DdlTipoGasto.DataBind() DdlTipoGasto.DataBind()
DdlTipoGasto.Items.Add(New ListItem("Sin Asignar", "-2"))
'Cargo Categorias 'Cargo Categorias
DdlCategoria.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa) DdlCategoria.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
@@ -227,10 +230,12 @@ Partial Class Compras_RepProductosServiciosDetalle
'Carga Tipos AF 'Carga Tipos AF
DdlTipoAF.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa) DdlTipoAF.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa)
DdlTipoAF.DataBind() DdlTipoAF.DataBind()
DdlTipoAF.Items.Add(New ListItem("Sin Asignar", "-2"))
'Carga SubTipos AF 'Carga SubTipos AF
DdlSubTipoAF.DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa) DdlSubTipoAF.DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa)
DdlSubTipoAF.DataBind() DdlSubTipoAF.DataBind()
DdlSubTipoAF.Items.Add(New ListItem("Sin Asignar", "-2"))
'Carga Grupos 'Carga Grupos
CargaGrupo() CargaGrupo()
@@ -261,6 +266,13 @@ Partial Class Compras_RepProductosServiciosDetalle
DdlGrupo.Items.Insert(9, New ListItem("Cultivo", "15")) DdlGrupo.Items.Insert(9, New ListItem("Cultivo", "15"))
End If End If
DdlGrupo.Items.Insert(10, New ListItem("Sucursal", "2"))
DdlGrupo.Items.Insert(11, New ListItem("Tipo de Gasto", "16"))
DdlGrupo.Items.Insert(12, New ListItem("Activo Fijo", "17"))
DdlGrupo.Items.Insert(13, New ListItem("Sub Tipo Activo Fijo", "18"))
DdlGrupo.Items.Insert(14, New ListItem("Tipo Activo Fijo", "19"))
DdlGrupo.Items.Insert(15, New ListItem("Tipo Documento", "20"))
DdlGrupo.DataBind() DdlGrupo.DataBind()
DdlGrupo.SelectedValueExist("8") DdlGrupo.SelectedValueExist("8")
End Sub End Sub

36
Inventarios/RecepcionAlmacen.aspx.vb
View File

@@ -2,9 +2,11 @@
Option Explicit On Option Explicit On
Imports System.Data Imports System.Data
Imports System.Data.SqlClient
Imports System.IO Imports System.IO
Imports Extensiones Imports Extensiones
Imports GemBox.Spreadsheet Imports GemBox.Spreadsheet
Imports Microsoft.Owin.Security.Provider
Imports Microsoft.Reporting.WebForms Imports Microsoft.Reporting.WebForms
Partial Class Inventarios_RecepcionAlmacen Partial Class Inventarios_RecepcionAlmacen
@@ -2568,6 +2570,7 @@ Partial Class Inventarios_RecepcionAlmacen
End If End If
Dim CveProveedorCompra As Integer = -1
Try Try
'RECARGA TC CUANDO ES RECEPCION CON OC Y DOLARES 'RECARGA TC CUANDO ES RECEPCION CON OC Y DOLARES
If CveOCSurtir > 0 And CveMoneda <> 1 Then If CveOCSurtir > 0 And CveMoneda <> 1 Then
@@ -3346,6 +3349,7 @@ Partial Class Inventarios_RecepcionAlmacen
End If End If
'PREPOLIZA - SOLO CUANDO SEA RECEPCIÓN 'PREPOLIZA - SOLO CUANDO SEA RECEPCIÓN
If TipoMovimiento = 1 AndAlso Not ErrorMovInv Then If TipoMovimiento = 1 AndAlso Not ErrorMovInv Then
If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
@@ -3372,6 +3376,7 @@ Partial Class Inventarios_RecepcionAlmacen
'Fecha = ObjCompras.DtResultados(0)("Fecha").ToString.ToDate 'Fecha = ObjCompras.DtResultados(0)("Fecha").ToString.ToDate
Fecha = TxtFecha.Text.ToDate Fecha = TxtFecha.Text.ToDate
CveProveedor = ObjCompras.DtResultados(0)("CveProveedor").ToString.ToEntero CveProveedor = ObjCompras.DtResultados(0)("CveProveedor").ToString.ToEntero
CveProveedorCompra = CveProveedor
ProveedorNombre = ObjCompras.DtResultados(0)("RazonSocial").ToString ProveedorNombre = ObjCompras.DtResultados(0)("RazonSocial").ToString
SerieFolio = $"Compra: {ObjCompras.DtResultados(0)("SerieFolio").ToString}" SerieFolio = $"Compra: {ObjCompras.DtResultados(0)("SerieFolio").ToString}"
CveConceptoContableCosto = 205 CveConceptoContableCosto = 205
@@ -3663,6 +3668,12 @@ Partial Class Inventarios_RecepcionAlmacen
RenombrarBitacoras() RenombrarBitacoras()
End If End If
If Not ErrorMovInv And CveProveedorCompra > 0 And CveCompraSurtir > 0 Then
If Not ActualizaFechaVencimientoCompra(CveCompraSurtir, CveProveedorCompra, ObjInventario.IniciaTransacSQL) Then
ErrorMovInv = True
End If
End If
'FINAL 'FINAL
If Not ErrorMovInv Then If Not ErrorMovInv Then
ObjInventario.Commit() ' aplica los movimientos insertados ObjInventario.Commit() ' aplica los movimientos insertados
@@ -3764,6 +3775,31 @@ Partial Class Inventarios_RecepcionAlmacen
If ObjContaAC IsNot Nothing Then ObjContaAC.Dispose() If ObjContaAC IsNot Nothing Then ObjContaAC.Dispose()
End Sub End Sub
Private Function ActualizaFechaVencimientoCompra(CveCompra As Integer, CveProveedor As Integer, TransaccionSql As SqlTransaction) As Boolean
Dim ErrorProceso As Boolean = False
Dim objProveedores As New ClsCompProveedores(TransaccionSql)
Dim objCompras As New ClsCompras(TransaccionSql)
Dim CveTipoFechaVencimiento As Integer = 1
If objProveedores.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
CveTipoFechaVencimiento = objProveedores.CveTipoFechaVencimiento
Else
ErrorProceso = True
End If
If CveTipoFechaVencimiento = 2 Then
If Not objCompras.UpdateFechaVencimientoCompra(CveCompra, TxtFecha.Text.ToDate, UsuarioActual.CveEmpresa) Then
ErrorProceso = True
End If
End If
Return If(ErrorProceso, False, True)
End Function
Private Sub RenombrarBitacoras() Private Sub RenombrarBitacoras()
Dim fechaActual As String = DateTime.Now.ToString("yyyyMMddHHmmss") Dim fechaActual As String = DateTime.Now.ToString("yyyyMMddHHmmss")

2
OC/RepOC.aspx
View File

@@ -265,7 +265,7 @@
<ADS:Dropdownlost ID="ddlclientes" runat="server" CssClassDdl="select2me" CssStyle="width: 100%;" Width="100%" DataTextField="NombreComercial" DataValueField="CveCliente"></ADS:Dropdownlost> <ADS:Dropdownlost ID="ddlclientes" runat="server" CssClassDdl="select2me" CssStyle="width: 100%;" Width="100%" DataTextField="NombreComercial" DataValueField="CveCliente"></ADS:Dropdownlost>
</div> </div>
<div class="colf-3"> <div class="colf-3">
<asp:CheckBox Text="No Completa" TextAlign="Left" CssClass="md-checksd2" ID="CheckNoCompleta" Visible="true" runat="server" /> <asp:CheckBox Text="No Completa" TextAlign="Left" CssClass="md-checksd2" ID="CheckNoCompleta" Visible="false" runat="server" />
</div> </div>
<label class="colf-1">Entrega Directa</label> <label class="colf-1">Entrega Directa</label>
<div class="colf-2"> <div class="colf-2">

14
OC/RepOC.aspx.vb
View File

@@ -380,12 +380,16 @@ Partial Class RepOC
FF = FF.AddDays(1) FF = FF.AddDays(1)
Dim OC As New ClsOC Dim OC As New ClsOC
'If(CheckNoCompleta.Checked, -1, UsuarioActual.CveUsuario), UsuarioActual.Empresa.CveEmpresa, If(DDlPS.SelectedValue = "", -1, DDlPS.SelectedValue.ToEntero), If(CheckNoCompleta.Checked, True, False),
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, DdlProveedores.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), UsuarioActual.CveUsuario, UsuarioActual.Empresa.CveEmpresa, If(DDlPS.SelectedValue = "", -1, DDlPS.SelectedValue.ToEntero), False,
ddlclientes.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False), ddlclientes.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(), CveUsuarioAutorizo:=DdlUsuarioAutorizo.SelectedValue.ToEntero(), CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero(),
CveMoneda:=DdlMoneda.SelectedValue.ToEntero(), MetodoPago:=DdlMetodoPago.SelectedValue.ToEntero, TieneAnticipo:=DdlTieneAnticipo.SelectedValue.ToEntero) Then CveMoneda:=DdlMoneda.SelectedValue.ToEntero(), MetodoPago:=DdlMetodoPago.SelectedValue.ToEntero, TieneAnticipo:=DdlTieneAnticipo.SelectedValue.ToEntero) Then
GvConsultar.DataSource = OC.DtResultados GvConsultar.DataSource = OC.DtResultados
DtOC = OC.DtResultados DtOC = OC.DtResultados

11
Ventas/RepRecuperacion.aspx
View File

@@ -53,22 +53,13 @@
height: 500px; height: 500px;
} }
.select2-container--default .select2-selection--multiple .select2-selection__choice { .select2-container--default .select2-selection--multiple .select2-selection__choice {
/*max-width: 150px;*/ /* Ajusta a tu gusto */
max-width: calc(100% - 2em); max-width: calc(100% - 2em);
text-overflow: ellipsis; text-overflow: ellipsis;
overflow: hidden; overflow: hidden;
white-space: nowrap; white-space: nowrap;
} }
/*.select2-selection__choice__remove{*/
/* o absolute/fixed, según necesites */
/*position: absolute;
z-index: 9999;*/ /* un valor alto para estar sobre los demás */
/*}
.select2-search.select2-search--inline .select2-search__field .select2-selection__rendered .select2-container--default .select2-container--focus {
position: absolute;
z-index: 1;
}*/
</style> </style>