cambiios merge

2021-03-11 12:19:06 -07:00
parent be331bcac5 ee1135d888
commit 10be689fb1
54 changed files with 5274 additions and 4245 deletions
--- a/Inventarios/PrestamosdeProveedor.aspx
+++ b/Inventarios/PrestamosdeProveedor.aspx
@@ -126,7 +126,7 @@

    <asp:UpdatePanel runat="server" ID="UppEntrega" UpdateMode="Conditional">
        <ContentTemplate>
-            <asp:GridView ID="GvD" DataKeyNames="CveUM,CvePS,CveSeccionAlmacen,Serie,Lote,FechaCaducidad,CveMovimientoDetalle,CveMovimiento" runat="server" AutoGenerateColumns="False" EmptyDataText="No hay movimientos pendientes" CssClass="table table-hover Widthall" GridLines="None">
+            <asp:GridView ID="GvD" DataKeyNames="CveUM,CvePS,CveSeccionAlmacen,Serie,Lote,FechaCaducidad,CveMovimientoDetalle,CveMovimiento, AplicaLote, AplicaCaducidad" runat="server" AutoGenerateColumns="False" EmptyDataText="No hay movimientos pendientes" CssClass="table table-hover Widthall" GridLines="None">
                <Columns>
                    <asp:TemplateField ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center">
                        <%--<HeaderTemplate>
@@ -145,10 +145,28 @@
                    <asp:BoundField HeaderText="Disponible" DataField="Cantidad" DataFormatString="{0:#,##0.######}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="10%" />
                    <asp:BoundField HeaderText="Unidad" DataField="UnidadMedida" ItemStyle-Width="10%" />
                    <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-Width="10%" />
-                    <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-Width="40%" />
-                    <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="15%" />
-                    <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-Width="15%" />
-                    <asp:BoundField HeaderText="F. Caducidad" DataField="FechaCaducidad" ItemStyle-Width="15%" />
+                    <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-Width="35%" />
+                    <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="10%" Visible="false"/>
+                    <asp:TemplateField HeaderText="Lote" ItemStyle-Width="10%" HeaderStyle-HorizontalAlign="Center" Visible="false">
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlLote" runat="server" Text='<%# Eval("Lote", "{0}") %>'></asp:Literal>
+                            <asp:Textbox ID="TxtLote" runat="server" Visible="false" Width="70px" Text='<%# Eval("Lote", "{0}") %>'></asp:Textbox>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Center" />
+                     </asp:TemplateField>
+
+                    <asp:TemplateField HeaderText="Fecha" ItemStyle-Width="25%" HeaderStyle-HorizontalAlign="Center" Visible="false">
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlFechaCaducidad" runat="server" Text='<%# Eval("FechaCaducidad", "{0:d}") %>'></asp:Literal>
+                            <asp:Textbox ID="TxtFechaCaducidad" runat="server" Visible="false" Width="75px" Text='<%# Eval("FechaCaducidad", "{0:d}") %>'></asp:Textbox>
+                            <asp:RequiredFieldValidator ID="RFVFechaCad" runat="server" ControlToValidate="TxtFechaCaducidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario, por favor ingréselo." ValidationGroup="GrpRecibir"></asp:RequiredFieldValidator>
+                            <ajax:ValidatorCalloutExtender ID="VCFechaCad" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaCad" Width="350px"></ajax:ValidatorCalloutExtender>
+                            <ajax:MaskedEditExtender ID="MEEFechaCad" runat="server" TargetControlID="TxtFechaCaducidad" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                            <asp:CompareValidator ID="CVFechaCad" runat="server" ControlToValidate="TxtFechaCaducidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpRecibir"></asp:CompareValidator>
+                            <ajax:ValidatorCalloutExtender ID="VCEFechaCad" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaCad" Width="350px"></ajax:ValidatorCalloutExtender>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Center" />
+                    </asp:TemplateField>
                </Columns>
            </asp:GridView>

--- a/Inventarios/PrestamosdeProveedor.aspx.vb
+++ b/Inventarios/PrestamosdeProveedor.aspx.vb
@@ -66,7 +66,12 @@ Partial Class Inventarios_PrestamosdeProveedor
                CveMovimiento = Dr("CveMovimiento").ToString.ToEntero
            End If

-        End If
+        End If
+
+        GvD.Columns(6).Visible = ObjInv.DtResultados.MAX("Serie") <> ""
+        GvD.Columns(7).Visible = ObjInv.DtResultados.MAX("Lote") <> ""
+        GvD.Columns(8).Visible = ObjInv.DtResultados.MAX("FechaCaducidad").ToDate > MinFecha
+        GvD.Columns(8).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)

        ObjInv.Dispose()
        GvD.DataBind()
@@ -90,18 +95,35 @@ Partial Class Inventarios_PrestamosdeProveedor
            Else
                If TxtFolioEntrega.Text <> "" Then
                    e.Row.FCCheckBox("Chk").Visible = True
-                    e.Row.FCTextBox("TxtCantidad").Enabled = True
+                    e.Row.FCTextBox("TxtCantidad").Enabled = True
+
+                    If e.Row.DataKey("AplicaLote").ToString = "True" Then
+                        e.Row.FCLiteral("LtlLote").Visible = False
+                        e.Row.FCTextBox("TxtLote").Visible = True
+
+                    End If
+
+                    If e.Row.DataKey("AplicaCaducidad").ToString = "True" Then
+                        e.Row.FCLiteral("LtlFechaCaducidad").Visible = False
+                        e.Row.FCTextBox("TxtFechaCaducidad").Visible = True
+
+                    End If
+
+
                End If
                e.Row.FCTextBox("TxtCantidad").Visible = True
                e.Row.FCTextBox("TxtCantidad").Attributes.Add("onkeyup", String.Format("ValidaCantidad(this,{0});", e.Row.DBCampo("Cantidad")))
+
+
+
+            End If
+
+                ''FUNCIONALIDAD PISTOLA DE CODIGOS
+                'If UsuarioActual.Empresa.Funcionalidad(132) = "1" And e.Row.DBCampo("CodigoBarras").Trim <> "" Then
+                '    e.Row.FCTextBox("TxtCantidad").Enabled = False
+                'End If
+
            End If
-
-            ''FUNCIONALIDAD PISTOLA DE CODIGOS
-            'If UsuarioActual.Empresa.Funcionalidad(132) = "1" And e.Row.DBCampo("CodigoBarras").Trim <> "" Then
-            '    e.Row.FCTextBox("TxtCantidad").Enabled = False
-            'End If
-
-        End If
    End Sub

    Protected Sub BtnRecibir_Click(sender As Object, e As EventArgs)
@@ -169,7 +191,7 @@ Partial Class Inventarios_PrestamosdeProveedor
                    If gvr.FCCheckBox("Chk").Checked AndAlso gvr.FCTextBox("TxtCantidad").Text.ToString.ToDecimal > 0 Then
                        CveMovimientoDetalleEntrada = gvr.DataKey("CveMovimientoDetalle").ToString.ToEntero
                        CvePS = gvr.DataKey("CvePS").ToString.ToEntero
-                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, gvr.FCTextBox("TxtCantidad").Text.ToString.ToDecimal, gvr.DataKey("CveUM").ToString.ToEntero, gvr.DataKey("CvePS").ToString.ToEntero, 0, -1, CveMovimientoDetalleEntrada:=CveMovimientoDetalleEntrada, Serie:=gvr.DataKey("Serie").ToString, Lote:=gvr.DataKey("Lote").ToString, FechaCaducidad:=gvr.DataKey("FechaCaducidad").ToString.ToDate) Then
+                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, gvr.FCTextBox("TxtCantidad").Text.ToString.ToDecimal, gvr.DataKey("CveUM").ToString.ToEntero, gvr.DataKey("CvePS").ToString.ToEntero, 0, -1, CveMovimientoDetalleEntrada:=CveMovimientoDetalleEntrada, Serie:=gvr.DataKey("Serie").ToString, Lote:=gvr.FCTextBox("TxtLote").ToString, FechaCaducidad:=gvr.FCTextBox("TxtFechaCaducidad").ToString.ToDate) Then
                            ErrorMovInv = True
                            TextoError = "Ocurrió un error al guardar los movimientos de salida"
                            Exit For
--- a/Inventarios/RecepcionAlmacen.aspx
+++ b/Inventarios/RecepcionAlmacen.aspx
@@ -350,7 +350,7 @@
            </asp:UpdatePanel>

            <%--ADVERTENCIA--%>
-            <asp:UpdatePanel runat="server">
+            <asp:UpdatePanel runat="server" ID="UpAdvertencias" UpdateMode="Conditional">
                <ContentTemplate>
                    <div class="row">
                        <div class="col-md-12" style="vertical-align: middle;" align="center">
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -977,11 +977,7 @@ Partial Class Inventarios_RecepcionAlmacen
                        SumarImporteUsados = True
                        DtRecepcion = ObjInventario.DtResultados.Copy()
                        If TipoMovimiento <> 3 Then 'sino es devolucion/NC
-                            If UsuarioActual.CveRol = 1 Then
-                                CargaAlmacenes(-1, "22", CveTipoCompra)
-                            Else
-                                CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "22", CveTipoCompra)
-                            End If
+                            CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "22", CveTipoCompra)
                        End If

                    Else
@@ -1009,6 +1005,12 @@ Partial Class Inventarios_RecepcionAlmacen
                        DivVirtualAdvertencia.Visible = False
                    End If

+                    'SI LA COMPRA ES DE TIPO "APOYO LOGISTICO" NO DEBE GENERAR VIRTUAL
+                    If Not SumarImporteUsados AndAlso CveTipoCompra = 9 Then
+                        RealizarMovimientoVirtual = False
+                        DivVirtualAdvertencia.Visible = False
+                    End If
+
                    If TipoMovimiento = 2 AndAlso CveAlmacenDevolucionProveedor > 0 Then
                        RealizarTraspasoAlmacenDevolucion = True

@@ -1142,6 +1144,7 @@ Partial Class Inventarios_RecepcionAlmacen

        CargaGVInv()

+        UpAdvertencias.Update()
        UpDocumentos.Update()
    End Sub

@@ -2796,7 +2799,7 @@ Partial Class Inventarios_RecepcionAlmacen

                    'VERIFICA SI TIENE ALMACEN VIRTUAL
                    If CveAlmacenVirtual > 0 Then
-                        If ObjInventario.GetMovimientosDetalleVirtual(CveMovimiento, UsuarioActual.CveEmpresa) Then
+                        If ObjInventario.GetMovimientosDetalleVirtual(CveMovimiento, UsuarioActual.CveEmpresa, CveCompra:=CveCompraSurtir, ValidaUsadosCompra:=SumarImporteUsados) Then
                            DtPSVirtual = ObjInventario.DtResultados
                        End If

@@ -2991,7 +2994,7 @@ Partial Class Inventarios_RecepcionAlmacen
                            CveMovimientoRef = CveMovimiento
                        End If

-                        If ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoRef, UsuarioActual.CveEmpresa) Then
+                        If ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoRef, UsuarioActual.CveEmpresa, CveCompra:=CveCompraSurtir, ValidaUsadosCompra:=SumarImporteUsados) Then
                            DtPSVirtual = ObjInventario.DtResultados
                        End If

@@ -4687,6 +4690,13 @@ Partial Class Inventarios_RecepcionAlmacen
        Return Retorno
    End Function

+
+    Public Class MMovimientoAlmacen
+        Public Property CveMovimiento As Integer
+        Public Property Folio As Integer
+
+    End Class
+
    'Private Function GuardaDocumentoBitacora(ObjEventoBitacora As ClsOIEventos, CveMovimiento As Integer) As Boolean
    '    Dim Retorno = True
    '    Dim Archivo As System.IO.FileInfo = Nothing
@@ -4717,8 +4727,3 @@ Partial Class Inventarios_RecepcionAlmacen

 End Class

-Public Class MMovimientoAlmacen
-    Public Property CveMovimiento As Integer
-    Public Property Folio As Integer
-
-End Class
--- a/Inventarios/RecepcionUsados.aspx
+++ b/Inventarios/RecepcionUsados.aspx
@@ -297,9 +297,9 @@
                                    </div>
                                    <div class="tools">
                                        <asp:Panel runat="server" DefaultButton="BtnConsultarPendientes">
-                                            &nbsp; 
-                                           
-                                                    <b>Sucursal:</b>
+                                            &nbsp;<b>Servicio a Domicilio:</b>
+                                            <asp:CheckBox ID="ChkServicioDomicilio" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" />
+                                            &nbsp;<b>Sucursal:</b>
                                            <asp:DropDownList ID="DdlSubProyectos" runat="server" CssClass="form-control input-sm select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="90px"></asp:DropDownList>

                                            <asp:TextBox ID="TxtFechaPendientes" runat="server" CausesValidation="true" MaxLength="10" ValidationGroup="GrpPendientes" Width="70px" ClientIDMode="Static"></asp:TextBox>
--- a/Inventarios/RecepcionUsados.aspx.vb
+++ b/Inventarios/RecepcionUsados.aspx.vb
@@ -2047,7 +2047,7 @@ Partial Class Inventarios_RecepcionUsados

    Private Sub CargaPendientesRecibir()
        Dim ObjVentas As New ClsVentas
-        If ObjVentas.GetVentasUsados(-1, DdlSubProyectos.SelectedValue.ToEntero(), TxtFechaPendientes.Text.ToDateTime(), UsuarioActual.CveEmpresa) Then
+        If ObjVentas.GetVentasUsados(-1, DdlSubProyectos.SelectedValue.ToEntero(), TxtFechaPendientes.Text.ToDateTime(), UsuarioActual.CveEmpresa, ServicioDomicilio:=ChkServicioDomicilio.Checked) Then
            GVPendientes.DataSource = ObjVentas.DtResultados
        End If
        ObjVentas.Dispose()
@@ -2227,10 +2227,10 @@ Partial Class Inventarios_RecepcionUsados
                Me.ObjRemisionNC.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI))
                Me.ObjRemisionNC.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI))

-                Me.ObjRemisionNC.CveMetodoPago = ObjCliente.CveMetodoPago
+                Me.ObjRemisionNC.CveMetodoPago = ObjCliente.CveMetodoPago33

-                If GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago)).Rows.Count > 0 Then
-                    Me.ObjRemisionNC.MetodoPago = GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago)).Rows(0)("MetodoPago").ToString
+                If GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33)).Rows.Count > 0 Then
+                    Me.ObjRemisionNC.MetodoPago = GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33)).Rows(0)("MetodoPago").ToString
                Else
                    Me.ObjRemisionNC.CveMetodoPago = 1
                    Me.ObjRemisionNC.MetodoPago = "Efectivo"