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

-- MEJORA RECOLECCIONES

Browse Source
This commit is contained in:
rrene
2024-02-19 20:04:30 -07:00
parent a7c4d1aa2f
commit dcb7fc873f
6 changed files with 151 additions and 111 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
Acumuladores/RepRecolecciones.aspx
View File

@@ -180,6 +180,7 @@
<asp:Literal runat="server" ID="LblProductosCargados">P</asp:Literal> <asp:Literal runat="server" ID="LblProductosCargados">P</asp:Literal>
<asp:HiddenField ID="HdnPSRecoleccion" runat="server" /> <asp:HiddenField ID="HdnPSRecoleccion" runat="server" />
<asp:HiddenField ID="HdnCantidadRecoleccion" runat="server" /> <asp:HiddenField ID="HdnCantidadRecoleccion" runat="server" />
<asp:HiddenField ID="HdnCveEntregaAlmacen" runat="server" />
</div> </div>
</div> </div>
<hr /> <hr />

9
Acumuladores/RepRecolecciones.aspx.vb
View File

@@ -1,8 +1,5 @@
Imports System.Data Imports System.Data
Imports CrystalDecisions.Shared.Json
Imports Extensiones Imports Extensiones
Imports Modelos
Partial Class Acumuladores_RepRecolecciones Partial Class Acumuladores_RepRecolecciones
Inherits ClsPaginas Inherits ClsPaginas
@@ -73,7 +70,7 @@ Partial Class Acumuladores_RepRecolecciones
Private Sub CargaDatos() Private Sub CargaDatos()
Dim ObjGeneral As New ClsGenerales Dim ObjGeneral As New ClsGenerales
If (ObjGeneral.GetInvEntregaAlmacenRuta(-1, TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, 2, -1)) Then If ObjGeneral.GetInvEntregaAlmacenRuta(-1, TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, 2, -1) Then
GvR.DataSource = ObjGeneral.DtResultados GvR.DataSource = ObjGeneral.DtResultados
End If End If
ObjGeneral.Dispose() ObjGeneral.Dispose()
@@ -226,9 +223,9 @@ Partial Class Acumuladores_RepRecolecciones
Dim ErrorMovInv As Boolean = False Dim ErrorMovInv As Boolean = False
Dim Fecha As DateTime = NowADS() Dim Fecha As DateTime = NowADS()
Dim Concepto As String = "Traspaso Recolección" Dim Concepto As String = "Traspaso Recolección"
Dim CveMovimientoSalida As Integer = ObjInventario.AddMovimiento(DdlAlmacenOrigen.SelectedValue.ToEntero, 26, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1) Dim CveMovimientoSalida As Integer = ObjInventario.AddMovimiento(DdlAlmacenOrigen.SelectedValue.ToEntero, 26, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveEntregaAlmacen:=CveEntregaAlmacen)
Dim FolioSalida As Integer = ObjInventario.Folio Dim FolioSalida As Integer = ObjInventario.Folio
Dim CveMovimientoEntrada As Integer = ObjInventario.AddMovimiento(DdlAlmacenDestino.SelectedValue.ToEntero, 27, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveMovimientoRelacionado:=CveMovimientoSalida) Dim CveMovimientoEntrada As Integer = ObjInventario.AddMovimiento(DdlAlmacenDestino.SelectedValue.ToEntero, 27, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveMovimientoRelacionado:=CveMovimientoSalida, CveEntregaAlmacen:=CveEntregaAlmacen)
Dim CveUM As Integer = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=HdnPSRecoleccion.Value.ToEntero).FiltroPrimeroValor("CveUnidadMedida", "").ToEntero Dim CveUM As Integer = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=HdnPSRecoleccion.Value.ToEntero).FiltroPrimeroValor("CveUnidadMedida", "").ToEntero
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, HdnCantidadRecoleccion.Value.ToDecimal, CveUM, HdnPSRecoleccion.Value.ToEntero, 0) Then If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, HdnCantidadRecoleccion.Value.ToDecimal, CveUM, HdnPSRecoleccion.Value.ToEntero, 0) Then
ErrorMovInv = True ErrorMovInv = True

4
App_Code/ClsGenerales.vb
View File

@@ -4061,12 +4061,11 @@ Public Class ClsGenerales
End Function End Function
Public Function GetInvEntregaAlmacenRutaRep(CveSubProyecto As Integer, CveEmpresa As Integer, Estatus As Integer, FechaInicio As Date, FechaFin As Date, CveChofer As Integer, CveUsuario As Integer, Optional CveTimbre As Integer = -1) As Boolean Public Function GetInvEntregaAlmacenRutaRep(CveSubProyecto As Integer, CveEmpresa As Integer, Estatus As Integer, FechaInicio As Date, FechaFin As Date, CveChofer As Integer, CveUsuario As Integer, Optional CveTimbre As Integer = -1, Optional Tipo As String = "-1") As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Inv_EntregaAlmacenRutaRepGet2") DataAdapter("PA_Inv_EntregaAlmacenRutaRepGet2")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
@@ -4077,6 +4076,7 @@ Public Class ClsGenerales
.Add("@CveChofer", SqlDbType.Int).Value = CveChofer .Add("@CveChofer", SqlDbType.Int).Value = CveChofer
.Add("@CveTimbre", SqlDbType.Int).Value = CveTimbre .Add("@CveTimbre", SqlDbType.Int).Value = CveTimbre
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@Tipo", SqlDbType.VarChar).Value = Tipo
End With End With
Try Try

27
App_Code/ClsInventarios.vb
View File

@@ -989,9 +989,8 @@ Public Class ClsInventarios
CveVenta As Integer, CveSubProyecto As Integer, CveActivoFijo As Integer, Optional CveOS As Integer = -1, Optional CvePersonal As Integer = -1, Optional IDPoliza As Integer = -1, Optional CveUsuarioResponsable As Integer = -1, CveVenta As Integer, CveSubProyecto As Integer, CveActivoFijo As Integer, Optional CveOS As Integer = -1, Optional CvePersonal As Integer = -1, Optional IDPoliza As Integer = -1, Optional CveUsuarioResponsable As Integer = -1,
Optional CveConsignacion As Integer = -1, Optional Guia As String = "", Optional CveAlmacenDestino As Integer = -1, Optional Observaciones As String = "", Optional Recibio As String = "", Optional CveConsignacion As Integer = -1, Optional Guia As String = "", Optional CveAlmacenDestino As Integer = -1, Optional Observaciones As String = "", Optional Recibio As String = "",
Optional CveMovimientoRelacionado As Integer = -1, Optional TipoCambio As Decimal = -1, Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1, Optional MovimientoFijo As Boolean = False, Optional CveContrato As Integer = -1, Optional CveMovimientoRelacionado As Integer = -1, Optional TipoCambio As Decimal = -1, Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1, Optional MovimientoFijo As Boolean = False, Optional CveContrato As Integer = -1,
Optional CveProveedor As Integer = -1, Optional Remision As String = "", Optional CveClienteSucursal As Integer = -1, Optional DepartamentoEntrega As String = "", Optional PedidoContrato As String = "", Optional GastoIndirecto As Decimal = -1, Optional CveChofer As Integer = -1, Optional CveCamion As Integer = -1, Optional Placa As String = "", Optional CveProveedor As Integer = -1, Optional Remision As String = "", Optional CveClienteSucursal As Integer = -1, Optional DepartamentoEntrega As String = "", Optional PedidoContrato As String = "", Optional GastoIndirecto As Decimal = -1,
Optional FechaEntrega As String = "", Optional EspecifUnidad As String = "", Optional ResponsableCarga As String = "", Optional ResponsableRecibio As String = "", Optional Identificacion As String = "", Optional Domicilio As String = "", Optional ResponsableCarga As String = "", Optional ResponsableRecibio As String = "", Optional Modulo As String = "", Optional CveOP As Integer = -1, Optional CveFolioGarantia As Integer = -1, Optional CveEntregaAlmacen As Integer = -1) As Integer
Optional Telefono As String = "", Optional Ciudad As String = "", Optional Licencia As String = "", Optional Modulo As String = "", Optional CveOP As Integer = -1, Optional CveFolioGarantia As Integer = -1) As Integer
Dim Retorno As Integer = -1 Dim Retorno As Integer = -1
@@ -1037,21 +1036,21 @@ Public Class ClsInventarios
.Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal
.Add("@PedidoContrato", SqlDbType.VarChar).Value = PedidoContrato .Add("@PedidoContrato", SqlDbType.VarChar).Value = PedidoContrato
.Add("@GastoIndirecto", SqlDbType.Money).Value = GastoIndirecto .Add("@GastoIndirecto", SqlDbType.Money).Value = GastoIndirecto
.Add("@CveChofer", SqlDbType.Int).Value = CveChofer '.Add("@CveChofer", SqlDbType.Int).Value = CveChofer
.Add("@CveCamion", SqlDbType.Int).Value = CveCamion '.Add("@CveCamion", SqlDbType.Int).Value = CveCamion
.Add("@Placa", SqlDbType.VarChar).Value = Placa '.Add("@Placa", SqlDbType.VarChar).Value = Placa
.Add("@FechaEntrega", SqlDbType.VarChar).Value = FechaEntrega '.Add("@FechaEntrega", SqlDbType.VarChar).Value = FechaEntrega
.Add("@EspecifUnidad", SqlDbType.VarChar).Value = EspecifUnidad '.Add("@EspecifUnidad", SqlDbType.VarChar).Value = EspecifUnidad
.Add("@ResponsableCarga", SqlDbType.VarChar).Value = ResponsableCarga .Add("@ResponsableCarga", SqlDbType.VarChar).Value = ResponsableCarga
.Add("@ResponsableRecibio", SqlDbType.VarChar).Value = ResponsableRecibio .Add("@ResponsableRecibio", SqlDbType.VarChar).Value = ResponsableRecibio
.Add("@Identificacion", SqlDbType.VarChar).Value = Identificacion '.Add("@Identificacion", SqlDbType.VarChar).Value = Identificacion
.Add("@Domicilio", SqlDbType.VarChar).Value = Domicilio '.Add("@Domicilio", SqlDbType.VarChar).Value = Domicilio
.Add("@Telefono", SqlDbType.VarChar).Value = Telefono '.Add("@Telefono", SqlDbType.VarChar).Value = Telefono
.Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad '.Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad
.Add("@Licencia", SqlDbType.VarChar).Value = Licencia '.Add("@Licencia", SqlDbType.VarChar).Value = Licencia
.Add("@Modulo", SqlDbType.VarChar).Value = Modulo .Add("@Modulo", SqlDbType.VarChar).Value = Modulo
.Add("@CveOP", SqlDbType.Int).Value = CveOP .Add("@CveOP", SqlDbType.Int).Value = CveOP
.Add("@CveEntregaAlmacen", SqlDbType.Int).Value = CveEntregaAlmacen
.Add("@CveFolioGarantia", SqlDbType.Int).Value = CveFolioGarantia .Add("@CveFolioGarantia", SqlDbType.Int).Value = CveFolioGarantia
End With End With

82
Compras/Compras.aspx
View File

@@ -1,6 +1,5 @@
<%@ Page Title="Compras - Registro de Facturas" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" ValidateRequest="false" CodeFile="Compras.aspx.vb" Inherits="Compras_Compras" EnableEventValidation="false" %> <%@ Page Title="Compras - Registro de Facturas" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" ValidateRequest="false" CodeFile="Compras.aspx.vb" Inherits="Compras_Compras" EnableEventValidation="false" %>
<asp:Content ID="Content1" ContentPlaceHolderID="H" runat="Server"> <asp:Content ID="Content1" ContentPlaceHolderID="H" runat="Server">
<asp:UpdatePanel ID="UppAddAcciones" runat="server"> <asp:UpdatePanel ID="UppAddAcciones" runat="server">
<ContentTemplate> <ContentTemplate>
@@ -204,14 +203,14 @@
<div class="portlet-body form-horizontal form-row-sepe formnombottom"> <div class="portlet-body form-horizontal form-row-sepe formnombottom">
<div class="row"> <div class="row">
<div class="form-group "> <div class="form-group ">
<%-- <asp:DropDownList ID="ddlCargoPrePoliza" CssClass="form-control input-sm whitoutcol linewhitsize comprasdfleft" runat="server" Width="70px" Visible="false"> <%-- <asp:DropDownList ID="ddlCargoPrePoliza" CssClass="form-control input-sm whitoutcol comprasdfleft" runat="server" Width="70px" Visible="false">
<asp:ListItem Text="Proveedor" Value="1" Selected="True"></asp:ListItem> <asp:ListItem Text="Proveedor" Value="1" Selected="True"></asp:ListItem>
<asp:ListItem Text="Deudor" Value="2"></asp:ListItem> <asp:ListItem Text="Deudor" Value="2"></asp:ListItem>
<asp:ListItem Text="Acreedor" Value="3"></asp:ListItem> <asp:ListItem Text="Acreedor" Value="3"></asp:ListItem>
</asp:DropDownList>--%> </asp:DropDownList>--%>
<asp:LinkButton ID="LblProveedor" runat="server" Visible="true" class="whitoutcol linewhitsize comprasdfleft" Style="text-decoration: none">Proveedor:</asp:LinkButton> <asp:LinkButton ID="LblProveedor" runat="server" Visible="true" class="whitoutcol comprasdfleft" Style="text-decoration: none">Proveedor:</asp:LinkButton>
<%--<asp:Label ID="LblProveedor" runat="server" Visible="true" class="whitoutcol linewhitsize comprasdfleft">Proveedor:</asp:Label>--%> <%--<asp:Label ID="LblProveedor" runat="server" Visible="true" class="whitoutcol comprasdfleft">Proveedor:</asp:Label>--%>
<%-- <asp:Label ID="lblProveedor" runat="server" Visible="true" class="whitoutcol linewhitsize comprasdfleft">Proveedor:</asp:Label>--%> <%-- <asp:Label ID="lblProveedor" runat="server" Visible="true" class="whitoutcol comprasdfleft">Proveedor:</asp:Label>--%>
<div class="whitoutcol whitoutcol "> <div class="whitoutcol whitoutcol ">
<asp:HyperLink ID="HplProveedor" CssClass="Texto" runat="server" Visible="false"></asp:HyperLink> <asp:HyperLink ID="HplProveedor" CssClass="Texto" runat="server" Visible="false"></asp:HyperLink>
<asp:DropDownList ID="DdlProveedor" CssClass="form-control input-sm" onclick="CargaProveedores();" runat="server" CausesValidation="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="280px"></asp:DropDownList> <asp:DropDownList ID="DdlProveedor" CssClass="form-control input-sm" onclick="CargaProveedores();" runat="server" CausesValidation="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="280px"></asp:DropDownList>
@@ -223,7 +222,7 @@
</div> </div>
</div> </div>
<div class="form-group whitoutcol" style="width: 280px;"> <div class="form-group whitoutcol" style="width: 280px;">
<span class="whitoutcol linewhitsize comprasdfleft">Tipo:</span> <span class="whitoutcol comprasdfleft">Tipo:</span>
<div class="whitoutcol whitoutcol comprasdfleftvar"> <div class="whitoutcol whitoutcol comprasdfleftvar">
<asp:DropDownList ID="DdlTipoComprobante" runat="server" AutoPostBack="true" CssClass="form-control input-sm input-small" OnSelectedIndexChanged="DdlTipoComprobante_SelectedIndexChanged"> <asp:DropDownList ID="DdlTipoComprobante" runat="server" AutoPostBack="true" CssClass="form-control input-sm input-small" OnSelectedIndexChanged="DdlTipoComprobante_SelectedIndexChanged">
<asp:ListItem Selected="True" Text="Factura" Value="Fac"></asp:ListItem> <asp:ListItem Selected="True" Text="Factura" Value="Fac"></asp:ListItem>
@@ -318,7 +317,7 @@
</table> </table>
<div class="form-group whitoutcol" style="width: 280px;"> <div class="form-group whitoutcol" style="width: 280px;">
<span class="whitoutcol linewhitsize comprasdfleft">Descripción: </span> <span class="whitoutcol comprasdfleft">Descripción: </span>
<div class="whitoutcol whitoutcol comprasdfleftvar"> <div class="whitoutcol whitoutcol comprasdfleftvar">
<asp:TextBox ID="TxtDescripcion" runat="server" CausesValidation="true" MaxLength="200" TextMode="MultiLine" ValidationGroup="GrpGuardar" Width="280px"></asp:TextBox> <asp:TextBox ID="TxtDescripcion" runat="server" CausesValidation="true" MaxLength="200" TextMode="MultiLine" ValidationGroup="GrpGuardar" Width="280px"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVDescripcion" runat="server" ControlToValidate="TxtDescripcion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripción''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVDescripcion" runat="server" ControlToValidate="TxtDescripcion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripción''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
@@ -326,14 +325,14 @@
</div> </div>
</div> </div>
<div class="form-group whitoutcol" style="width: 280px;" id="TrFacturaRefacturar" visible="false" runat="server"> <div class="form-group whitoutcol" style="width: 280px;" id="TrFacturaRefacturar" visible="false" runat="server">
<span class="whitoutcol linewhitsize comprasdfleft">Refacturación: </span> <span class="whitoutcol comprasdfleft">Refacturación: </span>
<div class="whitoutcol whitoutcol comprasdfleftvar"> <div class="whitoutcol whitoutcol comprasdfleftvar">
<asp:Literal Text="" ID="LtFacturaRefacturar" runat="server" /> <asp:Literal Text="" ID="LtFacturaRefacturar" runat="server" />
<asp:HiddenField ID="HdnRefacturacionCveCompra" runat="server" /> <asp:HiddenField ID="HdnRefacturacionCveCompra" runat="server" />
</div> </div>
</div> </div>
<div class="form-group whitoutcol" style="width: 400px;" id="DivEsNoDeducible" visible="false" runat="server"> <div class="form-group whitoutcol" style="width: 400px;" id="DivEsNoDeducible" visible="false" runat="server">
<span class="whitoutcol linewhitsize comprasdfleft" style="width: 120px;">¿Es No Deducible?</span> <span class="whitoutcol comprasdfleft" style="width: 120px;">¿Es No Deducible?</span>
<div class="whitoutcol whitoutcol comprasdfleftvar"> <div class="whitoutcol whitoutcol comprasdfleftvar">
<asp:CheckBox ID="ChkEsNoDeducible" runat="server" OnCheckedChanged="ChkEsNoDeducible_CheckedChanged1" AutoPostBack="true" /> <asp:CheckBox ID="ChkEsNoDeducible" runat="server" OnCheckedChanged="ChkEsNoDeducible_CheckedChanged1" AutoPostBack="true" />
</div> </div>
@@ -364,26 +363,26 @@
</div> </div>
<div class="portlet-body"> <div class="portlet-body">
<div class="form-group proveedoreespes"> <div class="form-group proveedoreespes">
<span class="whitoutcol linewhitsize proveedoreespes">RFC:</span> <span class="whitoutcol proveedoreespes">RFC:</span>
<div class="whitoutcol whitoutcol "> <div class="whitoutcol whitoutcol ">
<asp:Label ID="LblRFC" runat="server" Text="RFC"></asp:Label> <asp:Label ID="LblRFC" runat="server" Text="RFC"></asp:Label>
<asp:HiddenField ID="HdnProveedorIVA" ClientIDMode="Static" Value="0" runat="server" /> <asp:HiddenField ID="HdnProveedorIVA" ClientIDMode="Static" Value="0" runat="server" />
</div> </div>
</div> </div>
<div class="form-group proveedoreespes"> <div class="form-group proveedoreespes">
<span class="whitoutcol linewhitsize proveedoreespes">Días de Crédito:</span> <span class="whitoutcol proveedoreespes">Días de Crédito:</span>
<div class="whitoutcol whitoutcol "> <div class="whitoutcol whitoutcol ">
<asp:Label ID="LblDiasCredito" runat="server" Text="0" ClientIDMode="Static"></asp:Label> <asp:Label ID="LblDiasCredito" runat="server" Text="0" ClientIDMode="Static"></asp:Label>
</div> </div>
</div> </div>
<div class="form-group proveedoreespes"> <div class="form-group proveedoreespes">
<span class="whitoutcol linewhitsize proveedoreespes">Límite de Crédito:</span> <span class="whitoutcol proveedoreespes">Límite de Crédito:</span>
<div class="whitoutcol whitoutcol "> <div class="whitoutcol whitoutcol ">
<asp:Label ID="LblLimiteCredito" runat="server" Text="0"></asp:Label> <asp:Label ID="LblLimiteCredito" runat="server" Text="0"></asp:Label>
</div> </div>
</div> </div>
<div class="form-group proveedoreespes"> <div class="form-group proveedoreespes">
<span class="whitoutcol linewhitsize proveedoreespes">Crédito Disponible:</span> <span class="whitoutcol proveedoreespes">Crédito Disponible:</span>
<div class="whitoutcol whitoutcol "> <div class="whitoutcol whitoutcol ">
<asp:Label ID="LblCreditoDisponible" runat="server" Text="0"></asp:Label> <asp:Label ID="LblCreditoDisponible" runat="server" Text="0"></asp:Label>
</div> </div>
@@ -413,7 +412,7 @@
<div class="portlet-body"> <div class="portlet-body">
<div runat="server" id="RowProveedorSucursal" visible="false"> <div runat="server" id="RowProveedorSucursal" visible="false">
<div class="form-group proveedoreespes"> <div class="form-group proveedoreespes">
<span class="whitoutcol linewhitsize proveedoreespes">Sucursal: </span> <span class="whitoutcol proveedoreespes">Sucursal: </span>
<div class="whitoutcol whitoutcol"> <div class="whitoutcol whitoutcol">
<asp:DropDownList ID="DdlProveedorSucursal" CssClass=" select2me" AppendDataBoundItems="true" DataValueField="CveProveedorSucursal" DataTextField="ProveedorSucursal" runat="server" Width="185px"> <asp:DropDownList ID="DdlProveedorSucursal" CssClass=" select2me" AppendDataBoundItems="true" DataValueField="CveProveedorSucursal" DataTextField="ProveedorSucursal" runat="server" Width="185px">
</asp:DropDownList> </asp:DropDownList>
@@ -422,7 +421,7 @@
</div> </div>
<div class="form-group proveedoreespes"> <div class="form-group proveedoreespes">
<span class="whitoutcol linewhitsize proveedoreespes" style="height: 100%; vertical-align: middle;">Estatus:</span> <span class="whitoutcol proveedoreespes" style="height: 100%; vertical-align: middle;">Estatus:</span>
<div class="whitoutcol whitoutcol" style="width: 180px;"> <div class="whitoutcol whitoutcol" style="width: 180px;">
<asp:Label ID="LblCompraEstatus" runat="server" Text="Recibida"></asp:Label><br /> <asp:Label ID="LblCompraEstatus" runat="server" Text="Recibida"></asp:Label><br />
<asp:CheckBox CssClass="md-checksd" ID="ChkProgramarPago" runat="server" Text="Autorizada" Visible="False" /> <asp:CheckBox CssClass="md-checksd" ID="ChkProgramarPago" runat="server" Text="Autorizada" Visible="False" />
@@ -433,25 +432,21 @@
</div> </div>
</div> </div>
<div class="form-group proveedoreespes" id="trImporte" runat="server" visible="False"> <div class="form-group proveedoreespes" id="trImporte" runat="server" visible="False">
<span class="whitoutcol linewhitsize proveedoreespes">Importe: </span> <span class="whitoutcol proveedoreespes">Importe: </span>
<div class="whitoutcol whitoutcol"> <div class="whitoutcol whitoutcol">
<asp:HyperLink ID="HplImporte" CssClass="Texto thickbox" runat="server"></asp:HyperLink></td> <asp:HyperLink ID="HplImporte" CssClass="Texto thickbox" runat="server"></asp:HyperLink>
</div> </div>
</div> </div>
<div class="form-group proveedoreespes" id="trSaldo" runat="server" visible="False"> <div class="form-group proveedoreespes" id="trSaldo" runat="server" visible="False">
<span class="whitoutcol linewhitsize proveedoreespes">Saldo: </span> <span class="whitoutcol proveedoreespes">Saldo: </span>
<div class="whitoutcol whitoutcol"> <div class="whitoutcol whitoutcol">
<asp:HyperLink ID="HplSaldoAuxiliar" CssClass="Texto thickbox" runat="server"></asp:HyperLink></td> <asp:HyperLink ID="HplSaldoAuxiliar" CssClass="Texto thickbox" runat="server"></asp:HyperLink>
</div> </div>
</div> </div>
<div class="form-group proveedoreespes" id="trContabilizada" runat="server" visible="true"> <div class="form-group proveedoreespes" id="trContabilizada" runat="server" visible="true">
<span class="whitoutcol linewhitsize proveedoreespes">Contabilizada: </span> <span class="whitoutcol proveedoreespes">Contabilizada: </span>
<div class="whitoutcol whitoutcol"> <div class="whitoutcol whitoutcol">
<asp:HyperLink ID="HplCompraContabilizada" runat="server" Text="No"></asp:HyperLink> <asp:HyperLink ID="HplCompraContabilizada" runat="server" Text="No"></asp:HyperLink>
<%--<asp:HyperLink ID="HplPolizaCancelación" runat="server" Visible="false" Text="Cancelación"></asp:HyperLink>--%> <%--<asp:HyperLink ID="HplPolizaCancelación" runat="server" Visible="false" Text="Cancelación"></asp:HyperLink>--%>
@@ -460,13 +455,13 @@
</div> </div>
</div> </div>
<div class="form-group proveedoreespes" runat="server" id="divTipoFactura" visible="false"> <div class="form-group proveedoreespes" runat="server" id="divTipoFactura" visible="false">
<span class="whitoutcol linewhitsize proveedoreespes">Tipo Factura: </span> <span class="whitoutcol proveedoreespes">Tipo Factura: </span>
<div class="whitoutcol whitoutcol"> <div class="whitoutcol whitoutcol">
<asp:Label ID="LblTipoFact" runat="server" Text="CBB"></asp:Label> <asp:Label ID="LblTipoFact" runat="server" Text="CBB"></asp:Label>
</div> </div>
</div> </div>
<div class="form-group proveedoreespes"> <div class="form-group proveedoreespes">
<span class="whitoutcol linewhitsize proveedoreespes">Validada SAT: </span> <span class="whitoutcol proveedoreespes">Validada SAT: </span>
<div class="whitoutcol whitoutcol"> <div class="whitoutcol whitoutcol">
<asp:DropDownList ID="DdlValidadaSAT" CssClass="form-control input-sm" runat="server" Enabled="false" Width="78px"> <asp:DropDownList ID="DdlValidadaSAT" CssClass="form-control input-sm" runat="server" Enabled="false" Width="78px">
<asp:ListItem>No</asp:ListItem> <asp:ListItem>No</asp:ListItem>
@@ -475,19 +470,19 @@
</div> </div>
</div> </div>
<div class="form-group proveedoreespes"> <div class="form-group proveedoreespes">
<span class="whitoutcol linewhitsize proveedoreespes">Capturó: </span> <span class="whitoutcol proveedoreespes">Capturó: </span>
<div class="whitoutcol whitoutcol"> <div class="whitoutcol whitoutcol">
<asp:Label ID="LblUsuarioCaptura" runat="server"></asp:Label> <asp:Label ID="LblUsuarioCaptura" runat="server"></asp:Label>
</div> </div>
</div> </div>
<div class="form-group proveedoreespes"> <div class="form-group proveedoreespes">
<span class="whitoutcol linewhitsize proveedoreespes">F. Captura </span> <span class="whitoutcol proveedoreespes">F. Captura </span>
<div class="whitoutcol whitoutcol"> <div class="whitoutcol whitoutcol">
<asp:Label ID="LitFechCaptura" runat="server"></asp:Label> <asp:Label ID="LitFechCaptura" runat="server"></asp:Label>
</div> </div>
</div> </div>
<div class="form-group proveedoreespes"> <div class="form-group proveedoreespes">
<span class="whitoutcol linewhitsize proveedoreespes">Tipo Compra:</span> <span class="whitoutcol proveedoreespes">Tipo Compra:</span>
<div class="whitoutcol whitoutcol "> <div class="whitoutcol whitoutcol ">
<asp:DropDownList ID="DdlTipoCompra" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoCompra_SelectedIndexChanged" CssClass="form-control input-sm input-small"> <asp:DropDownList ID="DdlTipoCompra" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoCompra_SelectedIndexChanged" CssClass="form-control input-sm input-small">
@@ -509,20 +504,20 @@
</div> </div>
</div> </div>
<div class="form-group proveedoreespes" runat="server" id="divImportacion" visible="false"> <div class="form-group proveedoreespes" runat="server" id="divImportacion" visible="false">
<span class="whitoutcol linewhitsize proveedoreespes">Importación </span> <span class="whitoutcol proveedoreespes">Importación </span>
<div class="whitoutcol"> <div class="whitoutcol">
<asp:CheckBox runat="server" ID="chkImportacion"> </asp:CheckBox> <asp:CheckBox runat="server" ID="chkImportacion"> </asp:CheckBox>
</div> </div>
</div> </div>
<div class="form-group proveedoreespes" runat="server" id="divCompraImportacion" visible="false"> <div class="form-group proveedoreespes" runat="server" id="divCompraImportacion" visible="false">
<span class="whitoutcol linewhitsize proveedoreespes"> <span class="whitoutcol proveedoreespes">
<asp:Literal ID="LtlImportacionTexto" runat="server">Importación</asp:Literal>:</span> <asp:Literal ID="LtlImportacionTexto" runat="server">Importación</asp:Literal>:</span>
<div class="whitoutcol"> <div class="whitoutcol">
<asp:HyperLink runat="server" ID="HplCompraImportacion" CssClass="Texto"> </asp:HyperLink> <asp:HyperLink runat="server" ID="HplCompraImportacion" CssClass="Texto"> </asp:HyperLink>
</div> </div>
</div> </div>
<div class="form-group proveedoreespes" runat="server" id="divFolioGarantia" visible="false"> <div class="form-group proveedoreespes" runat="server" id="divFolioGarantia" visible="false">
<span class="whitoutcol linewhitsize proveedoreespes">Folio Garantía </span> <span class="whitoutcol proveedoreespes">Folio Garantía </span>
<div class="whitoutcol whitoutcol"> <div class="whitoutcol whitoutcol">
<asp:DropDownList ID="DdlFolioGarantia" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="FolioGarantia" DataValueField="CveFolioGarantia" OnSelectedIndexChanged="DdlFolioGarantia_SelectedIndexChanged" CssClass="form-control input-sm input-small select2me"> <asp:DropDownList ID="DdlFolioGarantia" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="FolioGarantia" DataValueField="CveFolioGarantia" OnSelectedIndexChanged="DdlFolioGarantia_SelectedIndexChanged" CssClass="form-control input-sm input-small select2me">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
@@ -530,6 +525,15 @@
<asp:Button ID="BtnFolioGarantiaRestantes" runat="server" Text="Resta" CssClass="default" OnClick="BtnFolioGarantiaRestantes_Click" /> <asp:Button ID="BtnFolioGarantiaRestantes" runat="server" Text="Resta" CssClass="default" OnClick="BtnFolioGarantiaRestantes_Click" />
</div> </div>
</div> </div>
<div class="form-group proveedoreespes" runat="server" id="divRecoleccion" visible="false">
<span class="whitoutcol proveedoreespes">Recolección</span>
<div class="whitoutcol whitoutcol">
<asp:DropDownList ID="DdlRecoleccion" runat="server" AutoPostBack="true" DataTextField="Referencia" DataValueField="CveEntregaAlmacen" OnSelectedIndexChanged="DdlFolioGarantia_SelectedIndexChanged" CssClass="form-control input-sm input-small select2me">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
<asp:Button ID="BtnRecolecciónAplicar" runat="server" Text="Aplicar" CssClass="default" OnClick="BtnRecolecciónAplicar_Click" />
</div>
</div>
</div> </div>
</div> </div>
</ContentTemplate> </ContentTemplate>
@@ -918,13 +922,12 @@
<asp:Button runat="server" ID="btnProrateo2" Visible="false" Text="Prorratear Nomina" CommandArgument="Nomina" CssClass="btn btn-success" /> <asp:Button runat="server" ID="btnProrateo2" Visible="false" Text="Prorratear Nomina" CommandArgument="Nomina" CssClass="btn btn-success" />
<asp:Button runat="server" ID="BtnProrateoDeducible" Visible="false" Text="Prorratear 8.5%" CommandArgument="Prorratear Deducible" CssClass="btn btn-success" /> <asp:Button runat="server" ID="BtnProrateoDeducible" Visible="false" Text="Prorratear 8.5%" CommandArgument="Prorratear Deducible" CssClass="btn btn-success" />
</div> </div>
</div> </div>
<div class="col-md-6 "> <div class="col-md-6 ">
<div id="dvTotales" runat="server" class="well" style="width: 100%; max-width: 400px; float: right;"> <div id="dvTotales" runat="server" class="well" style="width: 100%; max-width: 400px; margin-top:0px; padding:0px; float: right;">
<table border="0" rules="none" class="TextTab" width="100%"> <table border="0" rules="none" class="TextTab" width="100%">
<tr> <tr id="trTotalOriginal" runat="server" visible="false">
<td></td> <td></td>
<td></td> <td></td>
<td id="tdT0" runat="server" visible="false"><strong>Original</strong></td> <td id="tdT0" runat="server" visible="false"><strong>Original</strong></td>
@@ -954,7 +957,7 @@
<td width="82px"> <td width="82px">
<asp:TextBox ID="TxtSubTotal" runat="server" BorderStyle="None" Style="text-align: right;" Text="0.00" Width="98px"></asp:TextBox> <asp:TextBox ID="TxtSubTotal" runat="server" BorderStyle="None" Style="text-align: right;" Text="0.00" Width="98px"></asp:TextBox>
</td> </td>
<td width="82px" runat="server" id="tdT1" visible="false"> <td width="22px" runat="server" id="tdT1" visible="false">
<asp:Label Text="" ID="LbSubTotalOriginal" runat="server" /> <asp:Label Text="" ID="LbSubTotalOriginal" runat="server" />
</td> </td>
<td>&nbsp;</td> <td>&nbsp;</td>
@@ -975,12 +978,9 @@
<td runat="server" id="tdT3" visible="false"> <td runat="server" id="tdT3" visible="false">
<asp:Label Text="" ID="LbAmortizacionOriginal" runat="server" /> <asp:Label Text="" ID="LbAmortizacionOriginal" runat="server" />
</td> </td>
<td align="right">&nbsp <td align="left">&nbsp
&nbsp; <i class="fa fa-money font-green" title="Aplicar Amortización" data-toggle="tooltip" data-placement="top" runat="server" id="ImgAnticiposPendientes" visible="False" style="cursor: pointer;"></i> &nbsp; <i class="fa fa-money font-green" title="Aplicar Amortización" data-toggle="tooltip" data-placement="top" runat="server" id="ImgAnticiposPendientes" visible="False" style="cursor: pointer;"></i>
</td>
<td align="right">&nbsp
&nbsp; &nbsp;
<asp:HyperLink ID="HLAplicaNCFact" NavigateUrl="#" Visible="false" data-toggle="modal" data-target="#FacturaNC" runat="server"><i title="Aplicar Notas de Credito" data-toggle="tooltip" class='fa fa-money font-green'></i></asp:HyperLink> <asp:HyperLink ID="HLAplicaNCFact" NavigateUrl="#" Visible="false" data-toggle="modal" data-target="#FacturaNC" runat="server"><i title="Aplicar Notas de Credito" data-toggle="tooltip" class='fa fa-money font-green'></i></asp:HyperLink>
</td> </td>
</tr> </tr>
@@ -1184,7 +1184,7 @@
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<asp:UpdatePanel ID="UpINV" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpInv" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvInv" runat="server" DataKeyNames="Total,PU,Cantidad,CvePS" AutoGenerateColumns="false" GridLines="None" EmptyDataText="Aun no hay registros." ShowHeaderWhenEmpty="True" CssClass="table table-striped table-hover Widthall" Visible="false"> <asp:GridView ID="GvInv" runat="server" DataKeyNames="Total,PU,Cantidad,CvePS" AutoGenerateColumns="false" GridLines="None" EmptyDataText="Aun no hay registros." ShowHeaderWhenEmpty="True" CssClass="table table-striped table-hover Widthall" Visible="false">
<Columns> <Columns>

133
Compras/Compras.aspx.vb
View File

@@ -1748,6 +1748,7 @@ Partial Class Compras_Compras
DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("DEV")) DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("DEV"))
DdlTipoCompra.Items.Remove(DdlTipoCompra.Items.FindByValue("6")) DdlTipoCompra.Items.Remove(DdlTipoCompra.Items.FindByValue("6"))
DdlTipoCompra.Items.Remove(DdlTipoCompra.Items.FindByValue("11")) DdlTipoCompra.Items.Remove(DdlTipoCompra.Items.FindByValue("11"))
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then DdlTipoCompra.Items.Add(New ListItem("Recolección", "14"))
Case "E" Case "E"
DdlTipoComprobante.SelectedValue = "NC" DdlTipoComprobante.SelectedValue = "NC"
DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Fac")) DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Fac"))
@@ -1760,6 +1761,7 @@ Partial Class Compras_Compras
DdlTipoCompra.Items.Add(New ListItem("Apoyo Logístico", "9")) DdlTipoCompra.Items.Add(New ListItem("Apoyo Logístico", "9"))
DdlTipoCompra.Items.Add(New ListItem("NC Por Devolución", "11")) DdlTipoCompra.Items.Add(New ListItem("NC Por Devolución", "11"))
DdlTipoCompra.Items.Add(New ListItem("Garantía", "12")) DdlTipoCompra.Items.Add(New ListItem("Garantía", "12"))
DdlTipoCompra.Items.Add(New ListItem("Recolección", "14"))
Case "T" Case "T"
DdlTipoCompra.Items.Clear() DdlTipoCompra.Items.Clear()
DdlTipoCompra.Items.Add(New ListItem("Apoyo Logístico", "9")) DdlTipoCompra.Items.Add(New ListItem("Apoyo Logístico", "9"))
@@ -4344,7 +4346,7 @@ Partial Class Compras_Compras
UM.Dispose() UM.Dispose()
PSS.Dispose() PSS.Dispose()
If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoCompra.SelectedValue = "12" Then 'cuando es garantía, debe de especificar la salida de almacen If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoCompra.SelectedValue.Contiene("12", "14") Then 'cuando es garantía, debe de especificar la salida de almacen
If Not GvInv.HeaderRow.FCCheckBox("cbAll").Checked OrElse GvInv.HeaderRow.FCDropDownList("ddlAlmacen").SelectedValue.ToEntero <= 0 Then If Not GvInv.HeaderRow.FCCheckBox("cbAll").Checked OrElse GvInv.HeaderRow.FCDropDownList("ddlAlmacen").SelectedValue.ToEntero <= 0 Then
Alert("No ha especificado la salida de almacen en la garantía.", TipoMensaje.MsgAdvertencia) Alert("No ha especificado la salida de almacen en la garantía.", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
@@ -5279,12 +5281,21 @@ Partial Class Compras_Compras
Dim indice As Integer = 0 Dim indice As Integer = 0
Dim ImporteConcepto As Decimal = 0 Dim ImporteConcepto As Decimal = 0
Dim tCveFolioGarantia As Integer = -1 Dim tCveFolioGarantia As Integer = -1
Dim tCveEntregaAlmacen As Integer = -1
Dim CveConceptoMovimiento As Integer = 2 Dim CveConceptoMovimiento As Integer = 2
'apoyo logistico/garantia If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then 'cuando es empresa acumuladora
If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso DdlTipoCompra.SelectedValue = "12" Then 'garantía 'apoyo logistico/garantia
CveConceptoMovimiento = 13 If DdlTipoCompra.SelectedValue = "12" Then 'garantía
tCveFolioGarantia = DdlFolioGarantia.SelectedValue.ToEntero CveConceptoMovimiento = 13
tCveFolioGarantia = DdlFolioGarantia.SelectedValue.ToEntero
End If
'recolección
If DdlTipoCompra.SelectedValue = "14" Then 'recolección
CveConceptoMovimiento = 42
tCveEntregaAlmacen = DdlRecoleccion.SelectedValue.ToEntero
End If
End If End If
If (DdlTipoComprobante.SelectedValue = "Fac" AndAlso CveCompraRefacturacion <= 0) OrElse CveConceptoMovimiento = 13 Then If (DdlTipoComprobante.SelectedValue = "Fac" AndAlso CveCompraRefacturacion <= 0) OrElse CveConceptoMovimiento = 13 Then
For Each tCveAlmacen As Integer In ListAlmacenes For Each tCveAlmacen As Integer In ListAlmacenes
@@ -5296,7 +5307,7 @@ Partial Class Compras_Compras
Dim fecha As Date = TxtFecha.Text.ToDate Dim fecha As Date = TxtFecha.Text.ToDate
If Not UsuarioActual.Empresa.UsaAC Then fecha = NowADS() If Not UsuarioActual.Empresa.UsaAC Then fecha = NowADS()
CveMovimientoInventario = ObjInventario.AddMovimiento(tCveAlmacen, CveConceptoMovimiento, 1, fecha, 0, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, TipoCambio:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, TipoCambioGuardar), CveFolioGarantia:=tCveFolioGarantia, Modulo:="Comp/G2") CveMovimientoInventario = ObjInventario.AddMovimiento(tCveAlmacen, CveConceptoMovimiento, 1, fecha, 0, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, TipoCambio:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, TipoCambioGuardar), CveFolioGarantia:=tCveFolioGarantia, Modulo:="Comp/G2", CveEntregaAlmacen:=tCveEntregaAlmacen)
If CveMovimientoInventario <= 0 Then If CveMovimientoInventario <= 0 Then
ErrorMovInv = True ErrorMovInv = True
@@ -6311,7 +6322,7 @@ Partial Class Compras_Compras
Dim RegistroCuentaPuente As Boolean = False Dim RegistroCuentaPuente As Boolean = False
'NC CON PRODUCTOS - CUENTA PUENTE 'NC CON PRODUCTOS - CUENTA PUENTE
If DdlTipoComprobante.SelectedValue = "NC" And DdlTipoCompra.SelectedValue.Contiene("9", "12") Then If DdlTipoComprobante.SelectedValue = "NC" And DdlTipoCompra.SelectedValue.Contiene("9", "12", "14") Then
RegistraConcepto225 = True RegistraConcepto225 = True
End If End If
@@ -6332,7 +6343,7 @@ Partial Class Compras_Compras
CveMovimientoDevolucion = Devolucion.CveMovimiento CveMovimientoDevolucion = Devolucion.CveMovimiento
End If End If
'cuando es garantía. 'cuando es garantía.
If DdlTipoCompra.SelectedValue = "12" Then If DdlTipoCompra.SelectedValue.Contiene("12", "14") Then
ConceptoContabilizacionNC = 259 ConceptoContabilizacionNC = 259
End If End If
@@ -10217,7 +10228,7 @@ Partial Class Compras_Compras
If UsuarioActual.Empresa.UsaAC Then e.Row.FCCheckBox("cbInv").Enabled = False If UsuarioActual.Empresa.UsaAC Then e.Row.FCCheckBox("cbInv").Enabled = False
Dim StrTipo As String = "CveTipoAlmacen IN (1,2,7,14,19)" Dim StrTipo As String = "CveTipoAlmacen IN (1,2,7,14,19)"
If DdlTipoCompra.SelectedValue.Contiene("9", "12") Then StrTipo = "CveTipoAlmacen IN (21)" If DdlTipoCompra.SelectedValue.Contiene("9", "12", "14") Then StrTipo = "CveTipoAlmacen IN (21)"
If EsDevolucionApoyoLogistico Then StrTipo = "CveTipoAlmacen = 27" If EsDevolucionApoyoLogistico Then StrTipo = "CveTipoAlmacen = 27"
e.Row.FCDropDownList("ddlEAlmacen").DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros(StrTipo) e.Row.FCDropDownList("ddlEAlmacen").DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros(StrTipo)
@@ -15778,6 +15789,7 @@ Partial Class Compras_Compras
End Sub End Sub
Private Sub OriginalesVisible(Accion As Boolean) Private Sub OriginalesVisible(Accion As Boolean)
tdT0.Visible = Accion tdT0.Visible = Accion
trTotalOriginal.Visible = Accion
tdT1.Visible = Accion tdT1.Visible = Accion
tdT2.Visible = Accion tdT2.Visible = Accion
tdT3.Visible = Accion tdT3.Visible = Accion
@@ -15796,7 +15808,7 @@ Partial Class Compras_Compras
'VALIDA IMPORTES 'VALIDA IMPORTES
'VALIDA TOTAL CON LOS IMPORTES TOTALES 'VALIDA TOTAL CON LOS IMPORTES TOTALES
Dim TempSubTotal, TempDescuentos, TempIVA, TempSubTotal2, TempRetIVA, TempRetISR, TempTotal, DifTotales, TempIEPS As Double Dim TempSubTotal, TempDescuentos, TempIVA, TempSubTotal2, TempRetIVA, TempRetISR, TempTotal, DifTotales, TempIEPS As Decimal
Dim Amortizacion As Decimal = 0 Dim Amortizacion As Decimal = 0
Dim TieneAmortizacion As Boolean = False Dim TieneAmortizacion As Boolean = False
@@ -15813,26 +15825,25 @@ Partial Class Compras_Compras
TxtSubTotal.Text = (TxtSubTotal.Text.ToDouble + Amortizacion).ToString TxtSubTotal.Text = (TxtSubTotal.Text.ToDouble + Amortizacion).ToString
End If End If
TempSubTotal = TxtSubTotal.Text.ToDecimal
TempSubTotal = TxtSubTotal.Text.ToDouble
SubTotalOriginal = TxtSubTotal.Text.ToDecimal SubTotalOriginal = TxtSubTotal.Text.ToDecimal
SubTotal2Original = TxtSubTotal2.Text.ToDecimal SubTotal2Original = TxtSubTotal2.Text.ToDecimal
TempDescuentos = TxtDescuento.Text.Trim.ToDouble + Amortizacion TempDescuentos = TxtDescuento.Text.Trim.ToDecimal + Amortizacion
TempSubTotal2 = TempSubTotal - TempDescuentos TempSubTotal2 = TempSubTotal - TempDescuentos
TempIVA = TxtIVA.Text.ToDouble TempIVA = TxtIVA.Text.ToDecimal
TempIEPS = TxtIEPS.Text.ToDouble TempIEPS = TxtIEPS.Text.ToDecimal
TempRetIVA = TxtRetIVA.Text.ToDouble TempRetIVA = TxtRetIVA.Text.ToDecimal
TempRetISR = TxtRetISR.Text.ToDouble TempRetISR = TxtRetISR.Text.ToDecimal
TempTotal = Math.Round(TempSubTotal2 + TempIVA + TempIEPS - TempRetIVA - TempRetISR + TxtOtrosImpuestos.Text.ToDouble - Amortizacion, 2) TempTotal = Math.Round(TempSubTotal2 + TempIVA + TempIEPS - TempRetIVA - TempRetISR + TxtOtrosImpuestos.Text.ToDecimal - Amortizacion, 2)
DifTotales = TxtTotal.Text.ToDouble - TempTotal DifTotales = TxtTotal.Text.ToDecimal - TempTotal
Dim DiferenciaPermitida As Decimal = 0.6D Dim DiferenciaPermitida As Decimal = 0.6D
If Math.Abs(DifTotales) > DiferenciaPermitida Then If Math.Abs(DifTotales) > DiferenciaPermitida Then
Alert(String.Format("Los importes de los conceptos (Productos/Servicios) no cuadran con el total. Por favor verifique y vuelva a intentar.[{0}]", Math.Abs(DifTotales) - DiferenciaPermitida), TipoMensaje.MsgAdvertencia) Alert(String.Format("Los importes de los conceptos (Productos/Servicios) no cuadran con el total. Por favor verifique y vuelva a intentar.[{0}]", Math.Abs(DifTotales) - DiferenciaPermitida), TipoMensaje.MsgAdvertencia)
EsValido = False EsValido = False
ElseIf DifTotales <> 0 Then ElseIf DifTotales <> 0 Then
TxtSubTotal2.Text = (TxtSubTotal2.Text.ToDouble + DifTotales).ToString TxtSubTotal2.Text = (TxtSubTotal2.Text.ToDecimal + DifTotales).ToString
TxtSubTotal.Text = (TxtSubTotal.Text.ToDouble + DifTotales).ToString TxtSubTotal.Text = (TxtSubTotal.Text.ToDecimal + DifTotales).ToString
SubTotalOriginal = TxtSubTotal.Text.ToDecimal SubTotalOriginal = TxtSubTotal.Text.ToDecimal
SubTotal2Original = TxtSubTotal2.Text.ToDecimal SubTotal2Original = TxtSubTotal2.Text.ToDecimal
End If End If
@@ -16691,7 +16702,7 @@ Partial Class Compras_Compras
If DrPS IsNot Nothing Then If DrPS IsNot Nothing Then
Row("PSCodigo") = If(PSCodigo = "", DrPS("PSCodigo").ToString, PSCodigo) Row("PSCodigo") = If(PSCodigo = "", DrPS("PSCodigo").ToString, PSCodigo)
Row("CveMetodoInventario") = DrPS("Inv_CveMetodoInventario").ToString.ToEntero Row("CveMetodoInventario") = DrPS("Inv_CveMetodoInventario").ToString.ToEntero
If DdlTipoCompra.SelectedValue = "12" AndAlso DrPS("AplicaSerie").ToString = "True" Then If Not DdlTipoCompra.SelectedValue.Contiene("12", "14") AndAlso DrPS("AplicaSerie").ToString = "True" Then
Row("CveMetodoInventario") = "1" Row("CveMetodoInventario") = "1"
End If End If
Else Else
@@ -18911,23 +18922,40 @@ Partial Class Compras_Compras
Protected Sub DdlTipoCompra_SelectedIndexChanged(sender As Object, e As EventArgs) Protected Sub DdlTipoCompra_SelectedIndexChanged(sender As Object, e As EventArgs)
If DdlTipoCompra.SelectedValue.ToEntero.Contiene(9, 10, 12) Then 'Al seleccionar apoyo logístico se cargan los amancenes de devoculcion proveedor para dar entrada If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then 'cuando es emp acumuladora
If DdlTipoCompra.SelectedValue.Contiene("9", "10", "12") Then 'Al seleccionar apoyo logístico se cargan los amancenes de devoculcion proveedor para dar entrada
If DdlTipoCompra.SelectedValue = "12" AndAlso UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then 'cuando es emp acumuladora If DdlTipoCompra.SelectedValue = "12" Then 'cuando es emp acumuladora
divFolioGarantia.Visible = True divFolioGarantia.Visible = True
Using objAcum As New ClsAcumuladores Using objAcum As New ClsAcumuladores
If objAcum.FoliosGarantiaGet(-1, UsuarioActual.Empresa.CveEmpresa, Estatus:=2, TipoFolio:="-1", Area:=-1, CveSubProyecto:=-1) Then If objAcum.FoliosGarantiaGet(-1, UsuarioActual.Empresa.CveEmpresa, Estatus:=2, TipoFolio:="-1", Area:=-1, CveSubProyecto:=-1) Then
DdlFolioGarantia.DataSource = objAcum.DtResultados.FiltraParametros("", "FechaIng DESC") DdlFolioGarantia.DataSource = objAcum.DtResultados.FiltraParametros("", "FechaIng DESC")
DdlFolioGarantia.DataBind() DdlFolioGarantia.DataBind()
End If End If
End Using End Using
End If
'cambia si hay ps con uso de serie
For Each dr As DataRow In TmpDT.Rows
dr("CveMetodoInventario") = 1
Next
CargaGvInv()
Else
If DdlTipoCompra.SelectedValue.Contiene("14") Then 'Recolección
divRecoleccion.Visible = True
Using objAcum As New ClsGenerales
If objAcum.GetInvEntregaAlmacenRuta(-1, MinFecha, MaxFecha, UsuarioActual.Empresa.CveEmpresa, 2, Estatus:=0) Then
DdlRecoleccion.DataSource = objAcum.DtResultados.FiltraParametros("", "Referencia DESC")
DdlRecoleccion.DataBind()
End If
End Using
'cambia si hay ps con uso de serie
For Each dr As DataRow In TmpDT.Rows
dr("CveMetodoInventario") = 1
Next
CargaGvInv()
End If
End If End If
'cambia si hay ps con uso de serie
For Each dr As DataRow In TmpDT.Rows
dr("CveMetodoInventario") = 1
Next
CargaGvInv()
End If End If
End Sub End Sub
@@ -19524,11 +19552,7 @@ Partial Class Compras_Compras
Dim ProcesoError As Boolean = True Dim ProcesoError As Boolean = True
If FechaCompraOriginal <> TxtFecha.Text.ToDate Then If FechaCompraOriginal <> TxtFecha.Text.ToDate Then
Dim ObjCompra As New ClsCompras Dim ObjCompra As New ClsCompras
ObjCompra.IniciaTransacSQL()
Dim ObjEventos As New ClsOIEventos(ObjCompra.IniciaTransacSQL()) Dim ObjEventos As New ClsOIEventos(ObjCompra.IniciaTransacSQL())
If ObjEventos.AddEventoBitacora($"Cambio de Fecha de compra de { FechaCompraOriginal.ToString("dd/MM/yyyy")} a {TxtFecha.Text}", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=CveCompra) Then If ObjEventos.AddEventoBitacora($"Cambio de Fecha de compra de { FechaCompraOriginal.ToString("dd/MM/yyyy")} a {TxtFecha.Text}", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=CveCompra) Then
@@ -19543,7 +19567,6 @@ Partial Class Compras_Compras
ProcesoError = True ProcesoError = True
End If End If
If Not ProcesoError Then If Not ProcesoError Then
ObjCompra.Commit() ObjCompra.Commit()
FechaCompraOriginal = TxtFecha.Text.ToDate FechaCompraOriginal = TxtFecha.Text.ToDate
@@ -19558,11 +19581,8 @@ Partial Class Compras_Compras
CargaEventoBitacora() CargaEventoBitacora()
UPEventoBitacora.Update() UPEventoBitacora.Update()
End If End If
End If End If
End Sub End Sub
@@ -20040,6 +20060,29 @@ Partial Class Compras_Compras
DdlRefacturacionFacturas.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlRefacturacionFacturas.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub End Sub
Protected Sub BtnRecolecciónAplicar_Click(sender As Object, e As EventArgs)
Using ObjAcum As New ClsGenerales
If ObjAcum.GetEntregaAlmacenRutaDetalle(DdlRecoleccion.SelectedValue.ToEntero) Then
'Dim dtt As DataTable = ObjAcum.DtResultados.FiltraParametros("CantidadDisponible > 0")
'Dim Porcentaje As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal
'Dim tCveSub As Integer = TmpDT.MAX("CveSubProyecto").ToEntero
'Dim tCveTipoGasto As Integer = TmpDT.MAX("CveTipoGasto").ToEntero
'Dim Total As Decimal = TmpDT.SUMD("Total")
'For Each drr As DataRow In TmpDT.Rows
' ClavesBorradas.Add(drr("CveCompraDetalle").ToString)
'Next
TmpDT.Clear()
'For Each dr As DataRow In dtt.Rows
' Dim pu As Decimal = Total / dtt.SUMD("CantidadDisponible")
' Dim cantidad As Decimal = dr("CantidadDisponible").ToString.ToDecimal
' AddPS(cantidad, dr("CveUM").ToString.ToEntero, "", dr("CveClasificacion").ToString.ToEntero, "", dr("CvePS").ToString.ToEntero, dr("PS").ToString, 2, tCveSub.ToString, "SE", "SE", "", "", pu, Total, Porcentaje, 0, 0, 0, 0, 0, PorcentajeIVA:=Porcentaje, TCalculaTotales:=True, CveTipoGasto:=tCveTipoGasto)
'Next
'AddPS2()
End If
End Using
End Sub
End Class End Class