-- MEJORA RECOLECCIONES
This commit is contained in:
@@ -180,6 +180,7 @@
|
||||
<asp:Literal runat="server" ID="LblProductosCargados">P</asp:Literal>
|
||||
<asp:HiddenField ID="HdnPSRecoleccion" runat="server" />
|
||||
<asp:HiddenField ID="HdnCantidadRecoleccion" runat="server" />
|
||||
<asp:HiddenField ID="HdnCveEntregaAlmacen" runat="server" />
|
||||
</div>
|
||||
</div>
|
||||
<hr />
|
||||
|
||||
@@ -1,8 +1,5 @@
|
||||
Imports System.Data
|
||||
Imports CrystalDecisions.Shared.Json
|
||||
Imports Extensiones
|
||||
Imports Modelos
|
||||
|
||||
|
||||
Partial Class Acumuladores_RepRecolecciones
|
||||
Inherits ClsPaginas
|
||||
@@ -73,7 +70,7 @@ Partial Class Acumuladores_RepRecolecciones
|
||||
Private Sub CargaDatos()
|
||||
|
||||
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
|
||||
End If
|
||||
ObjGeneral.Dispose()
|
||||
@@ -226,9 +223,9 @@ Partial Class Acumuladores_RepRecolecciones
|
||||
Dim ErrorMovInv As Boolean = False
|
||||
Dim Fecha As DateTime = NowADS()
|
||||
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 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
|
||||
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, HdnCantidadRecoleccion.Value.ToDecimal, CveUM, HdnPSRecoleccion.Value.ToEntero, 0) Then
|
||||
ErrorMovInv = True
|
||||
|
||||
@@ -4061,12 +4061,11 @@ Public Class ClsGenerales
|
||||
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
|
||||
|
||||
DataAdapter("PA_Inv_EntregaAlmacenRutaRepGet2")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
|
||||
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
|
||||
@@ -4077,6 +4076,7 @@ Public Class ClsGenerales
|
||||
.Add("@CveChofer", SqlDbType.Int).Value = CveChofer
|
||||
.Add("@CveTimbre", SqlDbType.Int).Value = CveTimbre
|
||||
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
|
||||
.Add("@Tipo", SqlDbType.VarChar).Value = Tipo
|
||||
End With
|
||||
|
||||
Try
|
||||
|
||||
@@ -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,
|
||||
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 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 FechaEntrega As String = "", Optional EspecifUnidad As String = "", Optional ResponsableCarga As String = "", Optional ResponsableRecibio As String = "", Optional Identificacion As String = "", Optional Domicilio As String = "",
|
||||
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
|
||||
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 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
|
||||
|
||||
Dim Retorno As Integer = -1
|
||||
|
||||
@@ -1037,21 +1036,21 @@ Public Class ClsInventarios
|
||||
.Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal
|
||||
.Add("@PedidoContrato", SqlDbType.VarChar).Value = PedidoContrato
|
||||
.Add("@GastoIndirecto", SqlDbType.Money).Value = GastoIndirecto
|
||||
.Add("@CveChofer", SqlDbType.Int).Value = CveChofer
|
||||
.Add("@CveCamion", SqlDbType.Int).Value = CveCamion
|
||||
.Add("@Placa", SqlDbType.VarChar).Value = Placa
|
||||
.Add("@FechaEntrega", SqlDbType.VarChar).Value = FechaEntrega
|
||||
.Add("@EspecifUnidad", SqlDbType.VarChar).Value = EspecifUnidad
|
||||
'.Add("@CveChofer", SqlDbType.Int).Value = CveChofer
|
||||
'.Add("@CveCamion", SqlDbType.Int).Value = CveCamion
|
||||
'.Add("@Placa", SqlDbType.VarChar).Value = Placa
|
||||
'.Add("@FechaEntrega", SqlDbType.VarChar).Value = FechaEntrega
|
||||
'.Add("@EspecifUnidad", SqlDbType.VarChar).Value = EspecifUnidad
|
||||
.Add("@ResponsableCarga", SqlDbType.VarChar).Value = ResponsableCarga
|
||||
.Add("@ResponsableRecibio", SqlDbType.VarChar).Value = ResponsableRecibio
|
||||
.Add("@Identificacion", SqlDbType.VarChar).Value = Identificacion
|
||||
.Add("@Domicilio", SqlDbType.VarChar).Value = Domicilio
|
||||
.Add("@Telefono", SqlDbType.VarChar).Value = Telefono
|
||||
.Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad
|
||||
.Add("@Licencia", SqlDbType.VarChar).Value = Licencia
|
||||
'.Add("@Identificacion", SqlDbType.VarChar).Value = Identificacion
|
||||
'.Add("@Domicilio", SqlDbType.VarChar).Value = Domicilio
|
||||
'.Add("@Telefono", SqlDbType.VarChar).Value = Telefono
|
||||
'.Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad
|
||||
'.Add("@Licencia", SqlDbType.VarChar).Value = Licencia
|
||||
.Add("@Modulo", SqlDbType.VarChar).Value = Modulo
|
||||
.Add("@CveOP", SqlDbType.Int).Value = CveOP
|
||||
|
||||
.Add("@CveEntregaAlmacen", SqlDbType.Int).Value = CveEntregaAlmacen
|
||||
.Add("@CveFolioGarantia", SqlDbType.Int).Value = CveFolioGarantia
|
||||
End With
|
||||
|
||||
|
||||
@@ -1,5 +1,4 @@
|
||||
<%@ 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:UpdatePanel ID="UppAddAcciones" runat="server">
|
||||
@@ -204,14 +203,14 @@
|
||||
<div class="portlet-body form-horizontal form-row-sepe formnombottom">
|
||||
<div class="row">
|
||||
<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="Deudor" Value="2"></asp:ListItem>
|
||||
<asp:ListItem Text="Acreedor" Value="3"></asp:ListItem>
|
||||
</asp:DropDownList>--%>
|
||||
<asp:LinkButton ID="LblProveedor" runat="server" Visible="true" class="whitoutcol linewhitsize 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 linewhitsize comprasdfleft">Proveedor:</asp:Label>--%>
|
||||
<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 comprasdfleft">Proveedor:</asp:Label>--%>
|
||||
<%-- <asp:Label ID="lblProveedor" runat="server" Visible="true" class="whitoutcol comprasdfleft">Proveedor:</asp:Label>--%>
|
||||
<div class="whitoutcol whitoutcol ">
|
||||
<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>
|
||||
@@ -223,7 +222,7 @@
|
||||
</div>
|
||||
</div>
|
||||
<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">
|
||||
<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>
|
||||
@@ -318,7 +317,7 @@
|
||||
</table>
|
||||
|
||||
<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">
|
||||
<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>
|
||||
@@ -326,14 +325,14 @@
|
||||
</div>
|
||||
</div>
|
||||
<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">
|
||||
<asp:Literal Text="" ID="LtFacturaRefacturar" runat="server" />
|
||||
<asp:HiddenField ID="HdnRefacturacionCveCompra" runat="server" />
|
||||
</div>
|
||||
</div>
|
||||
<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">
|
||||
<asp:CheckBox ID="ChkEsNoDeducible" runat="server" OnCheckedChanged="ChkEsNoDeducible_CheckedChanged1" AutoPostBack="true" />
|
||||
</div>
|
||||
@@ -364,26 +363,26 @@
|
||||
</div>
|
||||
<div class="portlet-body">
|
||||
<div class="form-group proveedoreespes">
|
||||
<span class="whitoutcol linewhitsize proveedoreespes">RFC:</span>
|
||||
<span class="whitoutcol proveedoreespes">RFC:</span>
|
||||
<div class="whitoutcol whitoutcol ">
|
||||
<asp:Label ID="LblRFC" runat="server" Text="RFC"></asp:Label>
|
||||
<asp:HiddenField ID="HdnProveedorIVA" ClientIDMode="Static" Value="0" runat="server" />
|
||||
</div>
|
||||
</div>
|
||||
<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 ">
|
||||
<asp:Label ID="LblDiasCredito" runat="server" Text="0" ClientIDMode="Static"></asp:Label>
|
||||
</div>
|
||||
</div>
|
||||
<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 ">
|
||||
<asp:Label ID="LblLimiteCredito" runat="server" Text="0"></asp:Label>
|
||||
</div>
|
||||
</div>
|
||||
<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 ">
|
||||
<asp:Label ID="LblCreditoDisponible" runat="server" Text="0"></asp:Label>
|
||||
</div>
|
||||
@@ -413,7 +412,7 @@
|
||||
<div class="portlet-body">
|
||||
<div runat="server" id="RowProveedorSucursal" visible="false">
|
||||
<div class="form-group proveedoreespes">
|
||||
<span class="whitoutcol linewhitsize proveedoreespes">Sucursal: </span>
|
||||
<span class="whitoutcol proveedoreespes">Sucursal: </span>
|
||||
<div class="whitoutcol whitoutcol">
|
||||
<asp:DropDownList ID="DdlProveedorSucursal" CssClass=" select2me" AppendDataBoundItems="true" DataValueField="CveProveedorSucursal" DataTextField="ProveedorSucursal" runat="server" Width="185px">
|
||||
</asp:DropDownList>
|
||||
@@ -422,7 +421,7 @@
|
||||
</div>
|
||||
|
||||
<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;">
|
||||
<asp:Label ID="LblCompraEstatus" runat="server" Text="Recibida"></asp:Label><br />
|
||||
<asp:CheckBox CssClass="md-checksd" ID="ChkProgramarPago" runat="server" Text="Autorizada" Visible="False" />
|
||||
@@ -433,25 +432,21 @@
|
||||
</div>
|
||||
</div>
|
||||
<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">
|
||||
<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 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">
|
||||
<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 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">
|
||||
<asp:HyperLink ID="HplCompraContabilizada" runat="server" Text="No"></asp:HyperLink>
|
||||
<%--<asp:HyperLink ID="HplPolizaCancelación" runat="server" Visible="false" Text="Cancelación"></asp:HyperLink>--%>
|
||||
@@ -460,13 +455,13 @@
|
||||
</div>
|
||||
</div>
|
||||
<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">
|
||||
<asp:Label ID="LblTipoFact" runat="server" Text="CBB"></asp:Label>
|
||||
</div>
|
||||
</div>
|
||||
<div class="form-group proveedoreespes">
|
||||
<span class="whitoutcol linewhitsize proveedoreespes">Validada SAT: </span>
|
||||
<span class="whitoutcol proveedoreespes">Validada SAT: </span>
|
||||
<div class="whitoutcol whitoutcol">
|
||||
<asp:DropDownList ID="DdlValidadaSAT" CssClass="form-control input-sm" runat="server" Enabled="false" Width="78px">
|
||||
<asp:ListItem>No</asp:ListItem>
|
||||
@@ -475,19 +470,19 @@
|
||||
</div>
|
||||
</div>
|
||||
<div class="form-group proveedoreespes">
|
||||
<span class="whitoutcol linewhitsize proveedoreespes">Capturó: </span>
|
||||
<span class="whitoutcol proveedoreespes">Capturó: </span>
|
||||
<div class="whitoutcol whitoutcol">
|
||||
<asp:Label ID="LblUsuarioCaptura" runat="server"></asp:Label>
|
||||
</div>
|
||||
</div>
|
||||
<div class="form-group proveedoreespes">
|
||||
<span class="whitoutcol linewhitsize proveedoreespes">F. Captura </span>
|
||||
<span class="whitoutcol proveedoreespes">F. Captura </span>
|
||||
<div class="whitoutcol whitoutcol">
|
||||
<asp:Label ID="LitFechCaptura" runat="server"></asp:Label>
|
||||
</div>
|
||||
</div>
|
||||
<div class="form-group proveedoreespes">
|
||||
<span class="whitoutcol linewhitsize proveedoreespes">Tipo Compra:</span>
|
||||
<span class="whitoutcol proveedoreespes">Tipo Compra:</span>
|
||||
<div class="whitoutcol whitoutcol ">
|
||||
|
||||
<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 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">
|
||||
<asp:CheckBox runat="server" ID="chkImportacion"> </asp:CheckBox>
|
||||
</div>
|
||||
</div>
|
||||
<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>
|
||||
<div class="whitoutcol">
|
||||
<asp:HyperLink runat="server" ID="HplCompraImportacion" CssClass="Texto"> </asp:HyperLink>
|
||||
</div>
|
||||
</div>
|
||||
<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">
|
||||
<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>
|
||||
@@ -530,6 +525,15 @@
|
||||
<asp:Button ID="BtnFolioGarantiaRestantes" runat="server" Text="Resta" CssClass="default" OnClick="BtnFolioGarantiaRestantes_Click" />
|
||||
</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>
|
||||
</ContentTemplate>
|
||||
@@ -917,14 +921,13 @@
|
||||
<asp:Button runat="server" ID="btnProrateo" Visible="false" Text="Prorratear" CommandArgument="Compras" 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" />
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<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%">
|
||||
<tr>
|
||||
<tr id="trTotalOriginal" runat="server" visible="false">
|
||||
<td></td>
|
||||
<td></td>
|
||||
<td id="tdT0" runat="server" visible="false"><strong>Original</strong></td>
|
||||
@@ -954,7 +957,7 @@
|
||||
<td width="82px">
|
||||
<asp:TextBox ID="TxtSubTotal" runat="server" BorderStyle="None" Style="text-align: right;" Text="0.00" Width="98px"></asp:TextBox>
|
||||
</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" />
|
||||
</td>
|
||||
<td> </td>
|
||||
@@ -975,12 +978,9 @@
|
||||
<td runat="server" id="tdT3" visible="false">
|
||||
<asp:Label Text="" ID="LbAmortizacionOriginal" runat="server" />
|
||||
</td>
|
||||
<td align="right"> 
|
||||
<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"> 
|
||||
|
||||
|
||||
<td align="left"> 
|
||||
<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>
|
||||
|
||||
<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>
|
||||
</tr>
|
||||
@@ -1184,7 +1184,7 @@
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
<asp:UpdatePanel ID="UpINV" runat="server" UpdateMode="Conditional">
|
||||
<asp:UpdatePanel ID="UpInv" runat="server" UpdateMode="Conditional">
|
||||
<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">
|
||||
<Columns>
|
||||
|
||||
@@ -1748,6 +1748,7 @@ Partial Class Compras_Compras
|
||||
DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("DEV"))
|
||||
DdlTipoCompra.Items.Remove(DdlTipoCompra.Items.FindByValue("6"))
|
||||
DdlTipoCompra.Items.Remove(DdlTipoCompra.Items.FindByValue("11"))
|
||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then DdlTipoCompra.Items.Add(New ListItem("Recolección", "14"))
|
||||
Case "E"
|
||||
DdlTipoComprobante.SelectedValue = "NC"
|
||||
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("NC Por Devolución", "11"))
|
||||
DdlTipoCompra.Items.Add(New ListItem("Garantía", "12"))
|
||||
DdlTipoCompra.Items.Add(New ListItem("Recolección", "14"))
|
||||
Case "T"
|
||||
DdlTipoCompra.Items.Clear()
|
||||
DdlTipoCompra.Items.Add(New ListItem("Apoyo Logístico", "9"))
|
||||
@@ -4344,7 +4346,7 @@ Partial Class Compras_Compras
|
||||
UM.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
|
||||
Alert("No ha especificado la salida de almacen en la garantía.", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
@@ -5279,12 +5281,21 @@ Partial Class Compras_Compras
|
||||
Dim indice As Integer = 0
|
||||
Dim ImporteConcepto As Decimal = 0
|
||||
Dim tCveFolioGarantia As Integer = -1
|
||||
Dim tCveEntregaAlmacen As Integer = -1
|
||||
Dim CveConceptoMovimiento As Integer = 2
|
||||
'apoyo logistico/garantia
|
||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso DdlTipoCompra.SelectedValue = "12" Then 'garantía
|
||||
CveConceptoMovimiento = 13
|
||||
tCveFolioGarantia = DdlFolioGarantia.SelectedValue.ToEntero
|
||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then 'cuando es empresa acumuladora
|
||||
'apoyo logistico/garantia
|
||||
If DdlTipoCompra.SelectedValue = "12" Then 'garantía
|
||||
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
|
||||
|
||||
If (DdlTipoComprobante.SelectedValue = "Fac" AndAlso CveCompraRefacturacion <= 0) OrElse CveConceptoMovimiento = 13 Then
|
||||
|
||||
For Each tCveAlmacen As Integer In ListAlmacenes
|
||||
@@ -5296,7 +5307,7 @@ Partial Class Compras_Compras
|
||||
Dim fecha As Date = TxtFecha.Text.ToDate
|
||||
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
|
||||
ErrorMovInv = True
|
||||
@@ -6311,7 +6322,7 @@ Partial Class Compras_Compras
|
||||
Dim RegistroCuentaPuente As Boolean = False
|
||||
'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
|
||||
End If
|
||||
|
||||
@@ -6332,7 +6343,7 @@ Partial Class Compras_Compras
|
||||
CveMovimientoDevolucion = Devolucion.CveMovimiento
|
||||
End If
|
||||
'cuando es garantía.
|
||||
If DdlTipoCompra.SelectedValue = "12" Then
|
||||
If DdlTipoCompra.SelectedValue.Contiene("12", "14") Then
|
||||
ConceptoContabilizacionNC = 259
|
||||
End If
|
||||
|
||||
@@ -10217,7 +10228,7 @@ Partial Class Compras_Compras
|
||||
If UsuarioActual.Empresa.UsaAC Then e.Row.FCCheckBox("cbInv").Enabled = False
|
||||
|
||||
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"
|
||||
e.Row.FCDropDownList("ddlEAlmacen").DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros(StrTipo)
|
||||
|
||||
@@ -15778,6 +15789,7 @@ Partial Class Compras_Compras
|
||||
End Sub
|
||||
Private Sub OriginalesVisible(Accion As Boolean)
|
||||
tdT0.Visible = Accion
|
||||
trTotalOriginal.Visible = Accion
|
||||
tdT1.Visible = Accion
|
||||
tdT2.Visible = Accion
|
||||
tdT3.Visible = Accion
|
||||
@@ -15796,7 +15808,7 @@ Partial Class Compras_Compras
|
||||
|
||||
'VALIDA IMPORTES
|
||||
'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 TieneAmortizacion As Boolean = False
|
||||
@@ -15813,26 +15825,25 @@ Partial Class Compras_Compras
|
||||
TxtSubTotal.Text = (TxtSubTotal.Text.ToDouble + Amortizacion).ToString
|
||||
End If
|
||||
|
||||
|
||||
TempSubTotal = TxtSubTotal.Text.ToDouble
|
||||
TempSubTotal = TxtSubTotal.Text.ToDecimal
|
||||
SubTotalOriginal = TxtSubTotal.Text.ToDecimal
|
||||
SubTotal2Original = TxtSubTotal2.Text.ToDecimal
|
||||
TempDescuentos = TxtDescuento.Text.Trim.ToDouble + Amortizacion
|
||||
TempDescuentos = TxtDescuento.Text.Trim.ToDecimal + Amortizacion
|
||||
TempSubTotal2 = TempSubTotal - TempDescuentos
|
||||
TempIVA = TxtIVA.Text.ToDouble
|
||||
TempIEPS = TxtIEPS.Text.ToDouble
|
||||
TempRetIVA = TxtRetIVA.Text.ToDouble
|
||||
TempRetISR = TxtRetISR.Text.ToDouble
|
||||
TempTotal = Math.Round(TempSubTotal2 + TempIVA + TempIEPS - TempRetIVA - TempRetISR + TxtOtrosImpuestos.Text.ToDouble - Amortizacion, 2)
|
||||
DifTotales = TxtTotal.Text.ToDouble - TempTotal
|
||||
TempIVA = TxtIVA.Text.ToDecimal
|
||||
TempIEPS = TxtIEPS.Text.ToDecimal
|
||||
TempRetIVA = TxtRetIVA.Text.ToDecimal
|
||||
TempRetISR = TxtRetISR.Text.ToDecimal
|
||||
TempTotal = Math.Round(TempSubTotal2 + TempIVA + TempIEPS - TempRetIVA - TempRetISR + TxtOtrosImpuestos.Text.ToDecimal - Amortizacion, 2)
|
||||
DifTotales = TxtTotal.Text.ToDecimal - TempTotal
|
||||
Dim DiferenciaPermitida As Decimal = 0.6D
|
||||
|
||||
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)
|
||||
EsValido = False
|
||||
ElseIf DifTotales <> 0 Then
|
||||
TxtSubTotal2.Text = (TxtSubTotal2.Text.ToDouble + DifTotales).ToString
|
||||
TxtSubTotal.Text = (TxtSubTotal.Text.ToDouble + DifTotales).ToString
|
||||
TxtSubTotal2.Text = (TxtSubTotal2.Text.ToDecimal + DifTotales).ToString
|
||||
TxtSubTotal.Text = (TxtSubTotal.Text.ToDecimal + DifTotales).ToString
|
||||
SubTotalOriginal = TxtSubTotal.Text.ToDecimal
|
||||
SubTotal2Original = TxtSubTotal2.Text.ToDecimal
|
||||
End If
|
||||
@@ -16691,7 +16702,7 @@ Partial Class Compras_Compras
|
||||
If DrPS IsNot Nothing Then
|
||||
Row("PSCodigo") = If(PSCodigo = "", DrPS("PSCodigo").ToString, PSCodigo)
|
||||
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"
|
||||
End If
|
||||
Else
|
||||
@@ -18911,23 +18922,40 @@ Partial Class Compras_Compras
|
||||
|
||||
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
|
||||
divFolioGarantia.Visible = True
|
||||
Using objAcum As New ClsAcumuladores
|
||||
If objAcum.FoliosGarantiaGet(-1, UsuarioActual.Empresa.CveEmpresa, Estatus:=2, TipoFolio:="-1", Area:=-1, CveSubProyecto:=-1) Then
|
||||
DdlFolioGarantia.DataSource = objAcum.DtResultados.FiltraParametros("", "FechaIng DESC")
|
||||
DdlFolioGarantia.DataBind()
|
||||
End If
|
||||
End Using
|
||||
If DdlTipoCompra.SelectedValue = "12" Then 'cuando es emp acumuladora
|
||||
divFolioGarantia.Visible = True
|
||||
Using objAcum As New ClsAcumuladores
|
||||
If objAcum.FoliosGarantiaGet(-1, UsuarioActual.Empresa.CveEmpresa, Estatus:=2, TipoFolio:="-1", Area:=-1, CveSubProyecto:=-1) Then
|
||||
DdlFolioGarantia.DataSource = objAcum.DtResultados.FiltraParametros("", "FechaIng DESC")
|
||||
DdlFolioGarantia.DataBind()
|
||||
End If
|
||||
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
|
||||
|
||||
'cambia si hay ps con uso de serie
|
||||
For Each dr As DataRow In TmpDT.Rows
|
||||
dr("CveMetodoInventario") = 1
|
||||
Next
|
||||
CargaGvInv()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
@@ -19524,11 +19552,7 @@ Partial Class Compras_Compras
|
||||
Dim ProcesoError As Boolean = True
|
||||
|
||||
If FechaCompraOriginal <> TxtFecha.Text.ToDate Then
|
||||
|
||||
|
||||
Dim ObjCompra As New ClsCompras
|
||||
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
|
||||
@@ -19543,7 +19567,6 @@ Partial Class Compras_Compras
|
||||
ProcesoError = True
|
||||
End If
|
||||
|
||||
|
||||
If Not ProcesoError Then
|
||||
ObjCompra.Commit()
|
||||
FechaCompraOriginal = TxtFecha.Text.ToDate
|
||||
@@ -19558,11 +19581,8 @@ Partial Class Compras_Compras
|
||||
CargaEventoBitacora()
|
||||
UPEventoBitacora.Update()
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -20040,6 +20060,29 @@ Partial Class Compras_Compras
|
||||
DdlRefacturacionFacturas.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
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
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user