c

Inventarios/RecepcionAlmacen.aspx

@@ -14,6 +14,9 @@
     <li>
         <a target="_blank" class="ayuda" href="../Documentacion/DocumentacionInventarios.aspx#RecepcionAlmacen">&nbsp;</a>
     </li>
+    <li>
+        <asp:HyperLink ID="HlAgregarExcel" NavigateUrl="#" Visible="true" data-toggle="modal" data-target="#DivCargaExcel" runat="server"><i class='fa fa-server'></i> Cargar Excel</asp:HyperLink>
+    </li>
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
     Recepción Almacén   
@@ -811,7 +814,7 @@
                                         <asp:Label Text="" ID="LbProducto" runat="server" />
                                     </td>
                                     <td width="120px"><b>Cantidad:</b></td>
-                                    <td colspan="">
+                                    <td >
                                         <asp:Label Text="" ID="LbCantidad" runat="server" />
                                     </td>
                                 </tr>
@@ -827,15 +830,11 @@
                                         <asp:RequiredFieldValidator ID="RFVSerie" runat="server" ControlToValidate="TxtSerie" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Serie''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregaSerie"></asp:RequiredFieldValidator>
                                         <ajax:ValidatorCalloutExtender ID="VCESerie" runat="server" HighlightCssClass="vco" TargetControlID="RFVSerie" Width="300px"></ajax:ValidatorCalloutExtender>
                                     </td>
-                                </tr>
-                                <tr>
-                                    <td colspan="4" align="right">
-                                        <asp:Button Text="Agregar" CssClass="btn btn-primary" ID="BtnAgregarPS" OnClick="BtnAgregarPS_Click" ValidationGroup="GrpAgregaSerie" runat="server" />
-                                    </td>
-                                </tr>
+                                    <td><asp:Button Text="Agregar" CssClass="btn btn-primary" ID="BtnAgregarPS" OnClick="BtnAgregarPS_Click" ValidationGroup="GrpAgregaSerie" runat="server" /></td>
+                                </tr>                                 
                                 <tr>
                                     <td colspan="4">
-                                        <asp:GridView ID="GvSerie" runat="server" EmptyDataText="Aun no hay registros." DataKeyNames="Serie" AutoGenerateColumns="False" ShowHeader="true" ShowHeaderWhenEmpty="True" HeaderStyle-CssClass="Titulos" RowStyle-Height="25px" CssClass="table table-striped table-hover Widthall ScrollAD" data-height="100" data-freezerows="1" GridLines="None">
+                                        <asp:GridView ID="GvSerie" runat="server" EmptyDataText="Aun no hay registros." DataKeyNames="Serie" AutoGenerateColumns="False" ShowHeader="true" ShowHeaderWhenEmpty="True" HeaderStyle-CssClass="Titulos" RowStyle-Height="25px" CssClass="table table-striped table-hover Widthall ScrollAD" data-height="250" data-freezerows="1" GridLines="None">
                                             <Columns>
                                                 <asp:BoundField HeaderText="Serie-Folio" DataField="Serie" ItemStyle-Width="40%" />
                                                 <asp:TemplateField HeaderText="Eliminar" ItemStyle-HorizontalAlign="Center">
@@ -1091,6 +1090,74 @@
         </asp:UpdatePanel>
     </div>
 
+    <div id="DivCargaExcel" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog">
+            <!-- Modal content-->
+            <asp:UpdatePanel ID="UpConcepto" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
+                <ContentTemplate>
+                    <div class="modal-header ">
+                        <button type="button" class="close" data-dismiss="modal">&times;</button>
+                        <h4 class="modal-title">Cargar Conceptos</h4>
+                    </div>
+                    <div class="modal-body">
+                         
+                        <div class="row">
+                            <div class="col-md-12">
+                                <div class="portlet light xspadding bordered whitoutcol" style="width: 100%;">
+                                    <div class="portlet-title">
+                                        <div class="caption font-green">
+                                            <i class="icon-pin font-green"></i>
+                                            <span class="caption-subject bold uppercase">Cargar Plantilla </span>
+                                        </div>
+                                        <div class="actions">
+                                            <div class="btn-group">
+                                            </div>
+                                        </div>
+                                        <div class="tools">
+                                            <a href="javascript:;" class="collapse"></a>
+                                        </div>
+                                    </div>
+                                    <div class="portlet-body  formnombottom">
+                                         
+                                        <%--   <div class="row">
+                                            <div class="col-md-12" align="center">
+                                                <h4>Arraste o haga click para subir el archivo Excel</h4>
+                                            </div>
+                                        </div>--%>
+                                        <div class="row">
+                                            <div class="col-md-11" style="margin-left: 30px; margin-right: 30px; margin-bottom: 20px;">
+                                                <asp:TextBox ID="TxtExcel" CssClass="ADSdropzone hidden" Text="" data-maxFile="1" runat="server"></asp:TextBox>
+                                            </div>
+                                        </div>
+                                    </div>
+                                </div>
+                            </div>
+                        </div>
+                    </div>
+                    <div class="modal-footer">
+                        <div class="row">
+                                 <div class="col-md-2" style="text-align: left">
+                                    
+                                            <asp:LinkButton ID="LbDescargarExcelConceptos" runat="server" CssClass="btn btn-warning" Text="Descargar Plantilla" />
+                                         
+                                </div> 
+                                <div class="col-md-10" style="text-align: center">
+                                <asp:Button ID="BtnCargaExcel" runat="server" CssClass="btn btn-success" Text="Procesar"></asp:Button>
+                                <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                                </div>
+                        </div>
+                    </div>
+                    </div>
+               
+               
+                </ContentTemplate>
+                <Triggers>
+                    <asp:PostBackTrigger ControlID="LbDescargarExcelConceptos" />
+                </Triggers>
+            </asp:UpdatePanel>
+        </div>
+    </div>
+
 
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">

Inventarios/RecepcionAlmacen.aspx.vb

@@ -5,13 +5,12 @@ Imports Microsoft.Reporting.WebForms
 Imports System.Data
 Imports Extensiones
 Imports System.IO
-
+Imports GemBox.Spreadsheet
 
 Partial Class Inventarios_RecepcionAlmacen
     Inherits ClsPaginas
 
 #Region "PROPIEDADES"
-    Private Shared missing As Object = System.Reflection.Missing.Value
     Private Property EstatusInicial As String
         Get
             EstatusInicial = ViewState("EstatusInicial").ToString
@@ -44,9 +43,6 @@ Partial Class Inventarios_RecepcionAlmacen
             Else
                 Return CType(ViewState("DtInv"), DataTable)
             End If
-
-
-
         End Get
         Set(value As DataTable)
             ViewState("DtInv") = value
@@ -988,11 +984,15 @@ Partial Class Inventarios_RecepcionAlmacen
 
                 RecibidaCompleta = False
 
+                '' carga desde excel
+                ' HplCargaExcel.Enabled = True
+
 
                 Dim CargaSoloUsados As Boolean = False
 
                 If ObjInventario.RecepcionAlmacenGet(pCveCompra, BuscaEntregaDirecta, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
                     Dim DtRecepcion As DataTable = ObjInventario.DtResultados.Copy()
+                    DtInv = DtRecepcion
                     Dim NumUsados = ObjInventario.DtResultados.COUNT("EsUsado", "EsUsado = True").ToEntero()
                     Dim NumProductos = ObjInventario.DtResultados.COUNT("EsUsado", "EsUsado = False").ToEntero()
                     Dim CveSubProyecto As Integer
@@ -1869,7 +1869,8 @@ Partial Class Inventarios_RecepcionAlmacen
             If MensajeSinExistencias.ToString <> "" Then
                 Alert($"Las siguientes Series no cuentan con la existencia suficiente por lo cual se omitieron. <br?><br/> {MensajeSinExistencias.ToString}", TipoMensaje.MsgAdvertencia)
             End If
-            RegistraScript("playsonidito('beep-07.wav')")
+            RegistraScript("playsonidito('beep-07.wav')", "SoniditoSerie")
+
         End If
 
     End Sub
@@ -3226,7 +3227,7 @@ Partial Class Inventarios_RecepcionAlmacen
 
             ''VALIDACIÓN DE IMPORTES INGRESADOS VS LA COMPRA U OC
             'If Not UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
-            If Not ErrorMovInv AndAlso RecibidaCompleta Then
+            If Not ErrorMovInv AndAlso RecibidaCompleta AndAlso UsuarioActual.CveEmpresa <> 140 Then
                 If ObjInventario.GetMovimientosDetalle(CveMovimientoOriginal, UsuarioActual.CveEmpresa) Then
                     Dim dtt As DataTable = ObjInventario.DtResultados
                     Dim tTotalInsertado As Decimal = dtt.SUMD("TotalOriginal") + ImporteIngresoAdicional
@@ -4794,6 +4795,147 @@ Partial Class Inventarios_RecepcionAlmacen
 #End Region
 
 
+#Region "CargaExcel"
+
+    Private Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click
+
+        If TxtExcel.getfiles().Archivos.Count > 0 Then
+            Dim file As Archivo = TxtExcel.getfiles().Archivos(0)
+            Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.path
+            Dim Tipo As String = If(file.Extension.Contiene("xlsx", "xlsx", "xlsm", "xlsb", "xls"), "EXCEL", "CSV")
+            CargarArchivoExcel(Directorio, file.filename)
+        Else
+            Alert("No existe el archivo. Favor de subir un archivo excel a la plataforma.", TipoMensaje.MsgError)
+        End If
+
+    End Sub
+
+    Protected Sub CargarArchivoExcel(Ruta As String, FileName As String)
+        SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
+
+        Dim dt As DataTable = Nothing
+        Dim ErrorArchivo = False
+
+        Try
+            dt = ReadExcelFile(Ruta + FileName, True)
+        Catch ex As Exception
+            ErrorArchivo = True
+            OnError("Ocurrio un error al leer el archivo <br/>" & ex.Message, ex)
+        End Try
+
+        If Not ErrorArchivo AndAlso dt IsNot Nothing Then
+
+            If Not dt.Columns(0).ColumnName = "Cantidad" Then
+                Alert("El nombre de la primera columna debe ser 'Cantidad'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(1).ColumnName = "Código" Then
+                Alert("El nombre de la segunda columna debe ser 'Codigo'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(2).ColumnName = "Producto" Then
+                Alert("El nombre de la tercera columna debe ser 'Producto'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(3).ColumnName = "Serie" Then
+                Alert("El nombre de la cuarta columna debe ser 'Serie'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            'If Not dt.Columns(4).ColumnName = "Lote" Then
+            '    Alert("El nombre de la cuarta columna debe ser 'Lote'. Favor de corregirlo", TipoMensaje.MsgError)
+            '    Exit Sub
+            'End If
+            'If Not dt.Columns(5).ColumnName = "FechaCaducidad" Then
+            '    Alert("El nombre de la cuarta columna debe ser 'Fecha Caducidad'. Favor de corregirlo", TipoMensaje.MsgError)
+            '    Exit Sub
+            'End If
+
+
+            dt.TableName = "Datos"
+            Dim ProductosNoCargados As New StringBuilder()
+            Dim RowsCargados As Integer = 0
+            Dim RowsNoCargados As Integer = 0
+            Dim NoPSConSerie As Integer = 0
+
+            If CveCompraSurtir > 0 Then
+                'DtRecepcion
+                Try
+                    'Dim DtPS As DataTable = GlobalDTPS(UsuarioActual.CveEmpresa)
+                    'If(dt.Columns.Contains("PorcentajeIVA"), Round(Row("PorcentajeIVA").ToString.ToDecimal, 4), 0)
+                    For Each RowExcel As DataRow In dt.Rows
+                        If RowExcel("Código").ToString() <> "" Then
+
+                            Dim RowPS = DtInv.FiltroPrimero(String.Format("Codigo='{0}'", RowExcel("Código").ToString()))
+
+                            If RowPS IsNot Nothing AndAlso RowPS("CvePS").ToString().ToEntero() > 0 Then
+
+                                Dim CveProducto As Integer = RowPS("CvePS").ToString().ToEntero()
+                                Dim CveUnidadMedida As Integer = RowPS("CveUM").ToString().ToEntero()
+
+                                Dim Cantidad As Double = RowExcel("Cantidad").ToString().ToDecimal()
+                                Dim Serie As String = RowExcel("Serie").ToString()
+                                Dim Lote As String '= RowExcel("Lote").ToString()
+                                Dim FechaCaducidad As Date '= If(RowExcel("FechaCaducidad").ToString = "", MinFecha, RowExcel("FechaCaducidad").ToString.ToDate)
+                                Dim Observaciones As String '= If(dt.Columns.Contains("Observaciones"), RowExcel("Observaciones").ToString, "").ToString
+
+
+                                Dim Valido As Boolean = True
+
+                                If RowPS("AplicaSerie").ToString() = "True" And (String.IsNullOrEmpty(Serie.Trim()) OrElse Serie = "-1") Then
+                                    Valido = False
+                                    Alert($"El producto '{RowPS("PS")}' requiere 'Serie'", TipoMensaje.MsgAdvertencia)
+                                    ProductosNoCargados.AppendFormat("{0},", RowPS("PS").ToString())
+                                End If
+
+                                If RowPS("AplicaSerie").ToString() = "True" AndAlso Not String.IsNullOrEmpty(Serie.Trim()) Then
+                                    NoPSConSerie = NoPSConSerie + 1
+                                End If
+
+
+                                If Valido Then
+                                    CveConsecSerie = RowPS("Consec").ToString.ToEntero
+                                    AgregaSerie(RowExcel("Serie").ToString, 1)
+
+                                    'AgregarPS(Cantidad, CveProducto, CveUnidadMedida, Observaciones, CveSeccionAlmacen:=DdlSeccionAlmacen.SelectedValue.ToEntero, SeccionAlmacen:=DdlSeccionAlmacen.SelectedItem.Text, Serie:=If(Not String.IsNullOrEmpty(Serie), Serie, ""), Lote:=Lote, FechaCaducidad:=FechaCaducidad, Limpia:=False)
+                                    RowsCargados = RowsCargados + 1
+                                Else
+                                    RowsNoCargados = RowsNoCargados + 1
+                                    ProductosNoCargados.AppendFormat("{0},", RowPS("PS").ToString())
+                                End If
+
+                            Else
+                                RowsNoCargados = RowsNoCargados + 1
+                                ProductosNoCargados.AppendFormat("{0},", RowExcel("Producto").ToString())
+                            End If
+                        End If
+                    Next
+                Catch ex As Exception
+                    OnError("Ocurrió un error al cargar los productos." & ProductosNoCargados.ToString(), ex)
+                Finally
+
+                    Dim MensajeFinal As New StringBuilder()
+                    If RowsNoCargados = 0 AndAlso RowsCargados > 0 Then
+                        MensajeFinal.Append("Los productos se cargaron correctamente. <br/><br/>")
+                    End If
+                    If RowsCargados > 0 Then
+                        MensajeFinal.Append("Se cargaron <b>" & RowsCargados & "</b> productos correctamente.")
+                    End If
+                    If RowsNoCargados > 0 Then
+                        MensajeFinal.Append("No se pudieron cargar  <b>" & RowsNoCargados & "</b> productos. <br/>Los siguientes productos no se pudieron cargar: " & ProductosNoCargados.ToString())
+                    End If
+
+                    Alert(MensajeFinal.ToString())
+
+                End Try
+            Else
+                Alert("No hay seleccionada compra", TipoMensaje.MsgError)
+            End If
+
+
+        End If
+    End Sub
+#End Region
+
     'Protected Sub BtnGuardarDocumento_Click(sender As Object, e As EventArgs)
 
     '    Dim Filesgral As List(Of Archivo) = TxtDocumento.getfiles().Archivos
@@ -4898,31 +5040,5 @@ Partial Class Inventarios_RecepcionAlmacen
 
     End Class
 
-    'Private Function GuardaDocumentoBitacora(ObjEventoBitacora As ClsOIEventos, CveMovimiento As Integer) As Boolean
-    '    Dim Retorno = True
-    '    Dim Archivo As System.IO.FileInfo = Nothing
 
-    '    For Each Dr As DataRow In DtDocumentos.Rows
-    '        If ObjEventoBitacora.AddEventoBitacora("Documento Relacionado", Dr("FileExtension").ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveMovimientoAlmacen:=CveMovimiento) Then
-    '            Try
-    '                If Dr("Documento").ToString <> "" Then
-    '                    Archivo = New System.IO.FileInfo(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, Dr("Documento").ToString))
-    '                    If Archivo.Exists() Then
-    '                        File.Move(Archivo.ToString, String.Format("{0}OI\OI{1}{2}", UsuarioActual.Empresa.Ruta, ObjEventoBitacora.CveEvento.ToString, Archivo.Extension))
-    '                    Else
-    '                        Retorno = False
-    '                    End If
-    '                End If
-    '            Catch ex As Exception
-    '                Retorno = False
-    '                Exit For
-    '            End Try
-    '        Else
-    '            Retorno = False
-    '            Exit For
-    '        End If
-    '    Next
-
-    '    Return Retorno
-    'End Function
 End Class

Inventarios/RecepcionUsados.aspx.vb

@@ -15,6 +15,15 @@ Partial Class Inventarios_RecepcionUsados
 
     Private _dtDatos As DataTable
 
+    Public Property DtClientes() As DataTable
+        Get
+            Return CType(ViewState("DtClientes"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtClientes") = value
+        End Set
+    End Property
+
     Public Property DtMovimientos() As DataTable
         Get
             Return CType(ViewState("DtMovimientos"), DataTable)
@@ -331,6 +340,7 @@ Partial Class Inventarios_RecepcionUsados
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
             CargaInicial()
+            GeneraRNCFromURL()
         End If
     End Sub
 
@@ -405,7 +415,76 @@ Partial Class Inventarios_RecepcionUsados
         'DdlProducto2.setEsWebService(True)
         'DdlProducto2.Attributes.Add("data-metodo", "getpsusados")
     End Sub
+    Private Sub GeneraRNCFromURL()
+        Dim RFC As String = IfNull(Request("RFC"), "").ToString()
+        Dim CveAlmacen As Integer = IfNull(Request("CveAlmacen"), "-1").ToString().ToEntero()
+        Dim Cantidad As Decimal = IfNull(Request("Cantidad"), "0").ToString().ToDecimal()
+        Dim Fecha As DateTime = IfNull(Request("Fecha"), Now.ToString("dd/MM/yyyy")).ToString().ToDateTime()
 
+        If Not String.IsNullOrEmpty(RFC) Then
+            If DtClientes Is Nothing Then
+                Alert("No se encontraron clientes para filtrar", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+
+            Dim RowCliente = DtClientes.FiltroPrimero(String.Format("RFC='{0}'", RFC))
+            If RowCliente Is Nothing Then
+                Alert("No se encontro el cliente", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+            If CveAlmacen <= 0 Then
+                Alert("Es necesario especificar el almacen", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+            If Cantidad <= 0 Then
+                Alert("Es necesario especificar la cantidad", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+            Dim CveCliente As Integer = RowCliente("CveCliente").ToString().ToEntero()
+
+            DdlClientes.SelectedValueExist(CveCliente)
+            DdlClientes_SelectedIndexChanged(DdlClientes, EventArgs.Empty)
+
+            DdlAlmacen.SelectedValueExist(CveAlmacen)
+            TxtFecha.Text = Fecha.ToString("dd/MM/yyyy")
+
+
+            Dim CvePS As Integer = 403591 'EXTRA CHICO
+            Dim CveTamanio As Integer = 1
+            Dim CveUM As Integer = -1
+            Dim PU As Decimal = 0
+            Dim RowTamanio As DataRow = GlobalDTAcumTamaños.FiltroPrimero($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CvePSCargo > 0 AND CvePSCargo={CvePS}")
+            Dim CodigoPS As String = ""
+            Dim UnidaMedida As String = ""
+
+            If RowTamanio IsNot Nothing Then
+                PU = RowTamanio("Cargo").ToString.ToDecimal()
+                CodigoPS = RowTamanio("CodigoPS").ToString()
+                CveTamanio = RowTamanio("CveTamaño").ToString().ToEntero()
+                CveUM = RowTamanio("CveUM").ToString().ToEntero()
+                UnidaMedida = "" 'RowTamanio("UnidadMedida").ToString()
+
+                AddNew(CvePS, CodigoPS, CveUM, UnidaMedida, Cantidad, PU, "", "-1", "-1", "-1", "", "", -1, "", "", CveTamanio)
+
+                Dim CveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero
+
+                CreaRemisionNC(CveCliente, CveSubProyecto, 1)
+
+                If Me.ObjRemisionNC IsNot Nothing Then
+                    Guardar(True)
+                Else
+                    Alert("No se pudo generar la RNC", TipoMensaje.MsgError)
+                End If
+            Else
+                Alert("No se encontro el tamaño", TipoMensaje.MsgError)
+            End If
+        End If
+
+
+    End Sub
 
 
 #Region "  PERMISOS PAGINAS  "
@@ -1165,7 +1244,7 @@ Partial Class Inventarios_RecepcionUsados
                                 If EsDistribuidor AndAlso RBLOpcion.SelectedValue.ToEntero = 42 AndAlso Dr("CveTamaño").ToString.ToEntero > 0 Then
 
                                     If Not ObjAcum.DistribuidorMovtosAdd(DdlClientes.SelectedValue.ToEntero, Dr("Cantidad").ToString.ToEntero(), Dr("CveTamaño").ToString.ToEntero, CveConceptoUsados, CveVenta, UsuarioActual.CveUsuario,
-                                            UsuarioActual.CveEmpresa, 0, Dr("Observaciones").ToString, CveMovimiento:=CveMovimiento) Then
+                                            UsuarioActual.CveEmpresa, 0, Dr("Observaciones").ToString, Now, CveMovimiento:=CveMovimiento) Then
                                         Mensaje = "Error al guardar Movimientos de distribuidor"
                                         ErrorMovInv = True
                                         Exit For
@@ -1850,9 +1929,11 @@ Partial Class Inventarios_RecepcionUsados
 
 #Region "DDL CLIENTE / CLIENTE SUCURSAL - SELECTED INDEX CHANGED"
     Private Sub InicializaClientes(Todos As Boolean)
+        DtClientes = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros(If(Todos, "", "EsDistribuidor = 1"))
 
-        DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros(If(Todos, "", "EsDistribuidor = 1"))
+        DdlClientes.DataSource = DtClientes
         DdlClientes.DataBind()
+
         DdlClientes.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlClientes.SelectedValue = "-1"
 
@@ -2219,11 +2300,12 @@ Partial Class Inventarios_RecepcionUsados
         Me.ObjRemisionNC.TipoDocto = "RNC"
         Me.ObjRemisionNC.RefDocto = ""
         Me.ObjRemisionNC.CveMesa = -1
-        Me.ObjRemisionNC.Fecha = Now
+        Dim Fecha As DateTime = TxtFecha.Text.ToDateTime()
+        Me.ObjRemisionNC.Fecha = Fecha
         Me.ObjRemisionNC.CvePrePoliza = -1
-        Me.ObjRemisionNC.FechaPago = Now
+        Me.ObjRemisionNC.FechaPago = Fecha
         Me.ObjRemisionNC.MotivoDescuento = ""
-        Me.ObjRemisionNC.FechaEjecucion = Now
+        Me.ObjRemisionNC.FechaEjecucion = Fecha
         Me.ObjRemisionNC.UsuarioCreo = UsuarioActual.Usuario
         Me.ObjRemisionNC.CveCondicionEntrega = -1
         Me.ObjRemisionNC.CondicionEntrega = ""

Inventarios/RepEntradasSalidas.aspx

@@ -119,7 +119,7 @@
                     <div class="row">
                         <div class="col-md-1 truncate">Proveedor</div>
                         <div class="col-md-2">
-                            <asp:DropDownList ID="DdlProveedor" runat="server" CssClass="form-control input-sm select2me" Width="100%" DataValueField="CveProveedor" DataTextField="RazonSocial"></asp:DropDownList>
+                            <ADS:DropDownLost ID="DdlProveedor" runat="server" CssStyle="width: 100%;" data-metodo="getproveedores" CssClassDdl="select2me " Width="100%" DataValueField="CveProveedor" DataTextField="RazonSocial"></ADS:DropDownLost>
                         </div>
                         <div class="col-md-1 truncate">Categoría</div>
                         <div class="col-md-2">
@@ -240,6 +240,7 @@
                         </ItemTemplate>
                         <ItemStyle Width="7.5%" HorizontalAlign="Right"></ItemStyle>
                     </asp:TemplateField>
+                    <asp:BoundField Visible="false" DataField="CantidadPendienteSurtir" HeaderText="Pte Surtir" DataFormatString="{0:#,###.##}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right"/>                    
                     <asp:TemplateField ItemStyle-HorizontalAlign="Right"  HeaderText="Saldo Inicial">
                         <ItemTemplate>
                             <asp:Label ID="lbSaldoI2" runat="server" Text='<%# If(Eval("SaldoIniImp").ToString() = "0", "-", Eval("SaldoIniImp", "{0:N2}"))  %>'></asp:Label>

Inventarios/RepEntradasSalidas.aspx.vb

@@ -94,11 +94,15 @@ Partial Class Inventarios_ReporteEntradasSalidas
         Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
 
         dvImp.Visible = TienePermisoImportes
-        GvM.Columns(10).Visible = TienePermisoImportes
         GvM.Columns(11).Visible = TienePermisoImportes
         GvM.Columns(12).Visible = TienePermisoImportes
         GvM.Columns(13).Visible = TienePermisoImportes
         GvM.Columns(14).Visible = TienePermisoImportes
+        GvM.Columns(15).Visible = TienePermisoImportes
+
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            GvM.Columns(10).Visible = TienePermisoImportes
+        End If
 
     End Sub
     Private Sub CargaCombos()
@@ -126,9 +130,9 @@ Partial Class Inventarios_ReporteEntradasSalidas
         DdlMoneda.Items.Insert(0, New ListItem("Todos", "-1"))
 
         'Llenar dropdownlist de proveedores
-        DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
-        DdlProveedor.DataBind()
-        DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
+        'DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+        'DdlProveedor.DataBind()
+        'DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
 
         'CARGA CLASIFICACIONES
         Dim ObjClasificaciones As New ClsClasificaciones
@@ -139,7 +143,6 @@ Partial Class Inventarios_ReporteEntradasSalidas
         DdlClasificacion.DataBind()
         DdlClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
 
-
         DdlCategoria.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
         DdlCategoria.DataBind()
 
@@ -148,6 +151,9 @@ Partial Class Inventarios_ReporteEntradasSalidas
 
         'Carga Productos
         DdlPS.setEsWebService(True)
+        DdlProveedor.setEsWebService(True)
+        DdlProveedor.SelectedText = ""
+        DdlProveedor.SelectedValue = "-1"
 
         'If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
         DdlPS.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue)
@@ -160,7 +166,7 @@ Partial Class Inventarios_ReporteEntradasSalidas
         '    DdlPS.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
         'End If
 
-        DdlMovs.SelectedValue = "2"
+        DdlMovs.SelectedValue = "3"
 
         'Llenar dropdownlist de personal
         DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
@@ -179,7 +185,6 @@ Partial Class Inventarios_ReporteEntradasSalidas
 
         CargarMarcas()
 
-
         DdlTipoAlmacen.DataSource = GlobalDTTipoAlmacen(1)
         DdlTipoAlmacen.DataBind()
         DdlTipoAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
@@ -187,7 +192,8 @@ Partial Class Inventarios_ReporteEntradasSalidas
     End Sub
     Protected Sub DdlCategoria_SelectedIndexChanged(sender As Object, e As EventArgs)
 
-        CargaClasificaciones()
+        CargaClasificaciones(DdlCategoria.SelectedValue.ToEntero)
+
     End Sub
 
     Private Sub CargaClasificaciones(CveCategoria As Integer)
@@ -354,7 +360,7 @@ Partial Class Inventarios_ReporteEntradasSalidas
         Dim TipoMov = If(DdlTipoMovimiento.SelectedValue = "-1", "", $"&emsp;<b>Tipo&nbsp;Movimiento:</b>&nbsp;{DdlTipoMovimiento.SelectedItem.Text}")
         Dim Moneda = If(DdlMoneda.SelectedValue = "-1", "", $"&emsp;<b>Moneda:</b>&nbsp;{DdlMoneda.SelectedItem.Text}")
         Dim SoloConMov = If(DdlMovs.SelectedValue = "-1", "", $"&emsp;<b>Solo&nbsp;Movimientos:</b>&nbsp;{DdlMovs.SelectedItem.Text}")
-        Dim Proveedor = If(DdlProveedor.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b>&nbsp;{DdlProveedor.SelectedItem.Text}")
+        Dim Proveedor = If(DdlProveedor.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b>&nbsp;{DdlProveedor.SelectedText}")
         Dim Clasificacion = If(DdlClasificacion.SelectedValue = "-1", "", $"&emsp;<b>Clasificación:</b>&nbsp;{DdlClasificacion.SelectedItem.Text}")
         Dim Familia = If(DdlCategoria.SelectedValue = "-1", "", $"&emsp;<b>Categoria:</b>&nbsp;{DdlCategoria.SelectedItem.Text}")
         Dim SubFamilia = If(DdlSubFamilia.SelectedValue = "-1", "", $"&emsp;<b>SubFamilia:</b>&nbsp;{DdlSubFamilia.SelectedItem.Text}")
@@ -419,8 +425,8 @@ Partial Class Inventarios_ReporteEntradasSalidas
         GvM.Columns(3).Visible = ChkClasificacion2.Checked
         GvM.Columns(5).Visible = ChkSeccionAlmacen.Checked
 
-        GvM.Columns(15).Visible = ChkFechaUltimaCompra.Checked
-        GvM.Columns(16).Visible = ChkFechaUltimaVenta.Checked
+        GvM.Columns(16).Visible = ChkFechaUltimaCompra.Checked
+        GvM.Columns(17).Visible = ChkFechaUltimaVenta.Checked
 
         'GvM.Columns(4).Visible = ChkSeccionAlmacen.Checked
         If ChkSeccionAlmacen.Checked OrElse ChkCodigoBarras.Checked OrElse ChkCodigoAlterno.Checked Then

Inventarios/RepEntregaAlmacenRuta.aspx.cs

@@ -376,7 +376,7 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
         }
         else
         {
-            if( ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptor, RFCEmisor, CvePACCancelacion)) {
+            if( ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptor, RFCEmisor, CvePACCancelacion,CveSATMotivoCancelacion: 3)) {
 
                 if (ObjGenerales.CancelarTimbreTimbrado(CveTimbre, DateTime.Now, CvePACCancelacion, ObjCancelacion.CancelacionAcuse, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
                 {