Merge branch 'master' of http://agonzalez@192.168.10.111:8383/SIG.git

2020-10-29 10:01:11 -07:00
parent e5e1a98f85 012a3a61f8
commit b6d7dc6239
13 changed files with 278 additions and 108 deletions
--- a/Inventarios/Kardex.aspx
+++ b/Inventarios/Kardex.aspx
@@ -381,6 +381,11 @@
                            <asp:HyperLink runat="server" Target="_blank" ID="hlFolioD" Text='<%# Eval("FolioDocto")%>' CssClass="Texto" />
                        </ItemTemplate>
                    </asp:TemplateField>
+                    <asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Left" HeaderText="Folio Rel." Visible="false">
+                        <ItemTemplate>
+                            <asp:HyperLink runat="server" Target="_blank" ID="hlFolioDr" Text='<%# Eval("FolioRelacionEntrada")%>' NavigateUrl='<%# Eval("CveVentaRelacionada", "/Ventas/Ventas.aspx?CveVenta={0}")%>' CssClass="Texto" />
+                        </ItemTemplate>
+                    </asp:TemplateField>
                    <asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Left" HeaderText="U. M.">
                        <ItemTemplate>
                            <asp:Label ID="lbUm" runat="server" Text='<%# Eval("UnidadMedida")%>' data-toggle="tooltip" title='<%# Eval("CveUnidadMedida")%>'></asp:Label>
--- a/Inventarios/Kardex.aspx.vb
+++ b/Inventarios/Kardex.aspx.vb
@@ -66,9 +66,9 @@ Partial Class Inventarios_Kardex
    Private Sub CargaPermisos()
        If UsuarioActual.CveRol = 1 Then ChkAgruparAlmacen.Visible = True
        Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
-        GvM.Columns(13).Visible = TienePermisoImportes ' costo
-        GvM.Columns(14).Visible = TienePermisoImportes ' importe
-        GvM.Columns(16).Visible = TienePermisoImportes ' valor
+        GvM.Columns(14).Visible = TienePermisoImportes ' costo
+        GvM.Columns(15).Visible = TienePermisoImportes ' importe
+        GvM.Columns(17).Visible = TienePermisoImportes ' valor
    End Sub

    Private Function isWithFamily() As Boolean
@@ -87,7 +87,7 @@ Partial Class Inventarios_Kardex
        CBLTiposAlmacen.DataSource = GlobalDTTipoAlmacen(-1)
        CBLTiposAlmacen.DataBind()
        For Each item As ListItem In CBLTiposAlmacen.Items
-            If item.Text = "Entrega Adelantado" Then
+            If item.Text.Contiene("Entrega Adelantado", "Transitorio") Then
                item.Selected = False
            Else
                item.Selected = True
@@ -199,10 +199,13 @@ Partial Class Inventarios_Kardex
                AplicaSeccion = DtTemp.MAX("SeccionAlmacen") <> ""
                AplicaLote = DtTemp.MAX("Lote") <> ""
                AplicaCaducidad = DtTemp.MAX("FechaCaducidad") <> ""
-                If AplicaSeccion Then GvM.Columns(7).Visible = True
-                If AplicaSerie Then GvM.Columns(8).Visible = True
-                If AplicaLote Then GvM.Columns(9).Visible = True
-                If AplicaCaducidad Then GvM.Columns(10).Visible = True
+
+                GvM.Columns(6).Visible = DtTemp.MAX("FolioRelacionEntrada") <> ""
+
+                If AplicaSeccion Then GvM.Columns(8).Visible = True
+                If AplicaSerie Then GvM.Columns(9).Visible = True
+                If AplicaLote Then GvM.Columns(10).Visible = True
+                If AplicaCaducidad Then GvM.Columns(11).Visible = True

                Dim AuxAplicaSerie As Boolean = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CveProducto).FiltroPrimeroValor("AplicaSerie") = "True"
                Dim AuxAplicaCad As Boolean = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CveProducto).FiltroPrimeroValor("AplicaCaducidad") = "True"
--- a/Inventarios/KardexAlmacenHorizontal.aspx
+++ b/Inventarios/KardexAlmacenHorizontal.aspx
@@ -200,7 +200,8 @@
                        <asp:Label runat="server" ID="LblProyectado" Text="Incluir Proyectados" class="col-md-1 truncate" />
                        <div class="col-md-2">
                            <asp:DropDownList ID="DdlProyeccionFiltro" runat="server" CssClass="select2me" Width="100%" >
-                                <asp:ListItem Text="Si" Value="1" />
+                                 <asp:ListItem Text="Entradas" Value="1" />
+                                 <asp:ListItem Text="Salidas" Value="2" />
                                <asp:ListItem Text="No" Value="0" Selected="True"  />
                            </asp:DropDownList>
                        </div>
--- a/Inventarios/RecepcionAlmacen.aspx
+++ b/Inventarios/RecepcionAlmacen.aspx
@@ -489,7 +489,7 @@
                                            <asp:LinkButton runat="server" ID="LnkCaducidad" class="btn default" Visible="false"> <i class="fa fa-calendar"></i>  </asp:LinkButton>
                                        </span>
                                        <ajax:MaskedEditExtender ID="MEECaducidad" runat="server" TargetControlID="TxtCaducidad" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                        <ajax:CalendarExtender runat="server" ID="CECaducidad" TargetControlID="TxtCaducidad" PopupButtonID="LnkCaducidad" PopupPosition="BottomRight" Enabled="True" Format="dd/MM/yyyy"></ajax:CalendarExtender>
+                                        <ajax:CalendarExtender runat="server" ID="CECaducidad" TargetControlID="TxtCaducidad" PopupButtonID="LnkCaducidad" PopupPosition="BottomLeft" Enabled="True" Format="dd/MM/yyyy"></ajax:CalendarExtender>
                                        <asp:RequiredFieldValidator ID="RFVCaducidad" runat="server" ControlToValidate="TxtCaducidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Caducidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                        <ajax:ValidatorCalloutExtender ID="VCECaducidad" runat="server" HighlightCssClass="vco" TargetControlID="RFVCaducidad"></ajax:ValidatorCalloutExtender>
                                    </div>
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -2690,7 +2690,7 @@ Partial Class Inventarios_RecepcionAlmacen

                        Dim CveAlmacenVirutal As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacenFiltro).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()

-                        CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirutal, If(TipoMovimiento > 1, 13, 2), 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="RA/G4")
+                        CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirutal, If(TipoMovimiento > 1, 13, 2), 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, CveMovimientoRelacionado:=CveMovimiento, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="RA/G4")
                        FolioVirtual = ObjInventario.Folio

                        For Each RowUsado As DataRow In DtPSVirtual.Rows
@@ -2884,9 +2884,16 @@ Partial Class Inventarios_RecepcionAlmacen
                End If
            End If

+            'VERIFICA SI TIENE PENDIENTE POR SURTIR
            If UsuarioActual.CveEmpresa = 140 AndAlso TipoMovimiento = 3 Then
-                If Not ObjCompras.UpdateEstatusAlmacen(CveCompraSurtir, 2, UsuarioActual.CveUsuario) Then
-                    ErrorMovInv = True
+                If ObjInventario.RecepcionAlmacenGet(CveCompraSurtir, -1, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
+                    Dim DtFaltante As DataTable = ObjInventario.DtResultados.FiltraParametros("CantidadF > 0")
+                    If DtFaltante.Rows.Count = 0 Then
+                        If Not ObjCompras.UpdateEstatusAlmacen(CveCompraSurtir, 2, UsuarioActual.CveUsuario) Then
+                            ErrorMovInv = True
+                        End If
+                    End If
+                    DtFaltante.Dispose()
                End If
            End If

--- a/Inventarios/RepApartados.aspx.vb
+++ b/Inventarios/RepApartados.aspx.vb
@@ -35,7 +35,7 @@ Partial Class Inventarios_RepApartados
        DdlSubProyectos.DataBind()
        DdlSubProyectos.Items.Insert(0, New ListItem(" Todas ", "-1"))

-        If UsuarioActual.CveEmpresa = 119 Then
+        If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
            DdlClientesWS.setEsWebService(True)
        Else
            DdlClientesWS.setEsWebService(False)
@@ -44,15 +44,9 @@ Partial Class Inventarios_RepApartados
            DdlClientesWS.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
        End If

-        If UsuarioActual.CveEmpresa = 119 Then
-            DdlClienteTraspasar.setEsWebService(True)
-        Else
-            DdlClienteTraspasar.setEsWebService(False)
-            DdlClienteTraspasar.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
-            DdlClienteTraspasar.DataBind()
-            DdlClienteTraspasar.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
-        End If
-
+
+        DdlClienteTraspasar.setEsWebService(True)
+
        Dim DTVendedores As New DataTable
        DTVendedores = GlobalDTVendedores(UsuarioActual.CveEmpresa, True)
        DTVendedores.Merge(GlobalDTVendedores(UsuarioActual.CveEmpresa, False))
@@ -139,7 +133,13 @@ Partial Class Inventarios_RepApartados
        End If

        DdlClienteTraspasar.SelectedValue = "-1"
-        DdlClienteTraspasar.SelectedText = "Seleccione"
+        DdlClienteTraspasar.SelectedText = "Seleccione"
+
+
+        If UsuarioActual.CveVendedor > 0 AndAlso CveVendedor.ToEntero <= 0 Then
+            CveVendedor = UsuarioActual.CveVendedor.ToString
+        End If
+

        DdlVendedor.SelectedValueExist(CveVendedor)
        DdlSubProyectos.SelectedValueExist(CveSucursal)
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -702,6 +702,12 @@ Partial Class Inventarios_TraspasoAlmacen

        End If

+        Dim RealizarMovimientoVirtual As Boolean = False
+
+        If UsuarioActual.Empresa.Funcionalidad(573) = "1" AndAlso TipoAlmacenOrigen.Contiene(1, 27) Then
+            RealizarMovimientoVirtual = True
+        End If
+
        'VALIDA ALMACEN DISTINTA SUCURSAL DEBE SER TRANSITORIO
        If Not UsuarioActual.CveEmpresa.Contiene(7, 140) Then '[IPP] EMPRESA VIGILANCIA NO OCUPA TRANSITORIOS - TIENEN MIL SUCURSALES Xd
            If Not ChkTransitorio.Checked Then
@@ -855,7 +861,7 @@ Partial Class Inventarios_TraspasoAlmacen


        'VIRTUAL SALIDA
-        If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then
+        If RealizarMovimientoVirtual Then

            'Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacenOrigen.SelectedValue}").ToEntero()

@@ -922,7 +928,7 @@ Partial Class Inventarios_TraspasoAlmacen


                'VIRTUAL ENTRADA
-                If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then
+                If RealizarMovimientoVirtual Then
                    'Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacenDestino.SelectedValue}").ToEntero()

                    'SI EL ALMACEN DESTINO ES DE APOPYO LOGISTICO EL ALMACEN VIRTUAL DEBE SER DE APOYO LOGISTICO
@@ -1010,7 +1016,7 @@ Partial Class Inventarios_TraspasoAlmacen
                        ErrorMovInv = True
                    End If

-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, TxtObservaciones.Text, 289, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, ImporteMX:=importe, Contabilizable:=False) Then
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, ImporteMX:=importe, Contabilizable:=False) Then
                        ErrorMovInv = True
                    End If
                End If
@@ -1727,7 +1733,7 @@ Partial Class Inventarios_TraspasoAlmacen
                    Dim ImporteDecimal As Decimal = importe.ToDecimal.RoundSQL
                    Dim IdCtaContable As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero)).ToEntero

-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteDecimal, TxtObservaciones.Text, 289, TxtObservaciones.Text, Fecha, IdCtaContable, -1,
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteDecimal, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1,
                                                     CveMovimientoAlmacen:=CveMovimientoEntrada, ImporteMX:=ImporteDecimal) Then
                        ErrorMovInv = True
                        TextoError = "Ocurrió un erro al cancelar el traspaso"
@@ -1819,9 +1825,18 @@ Partial Class Inventarios_TraspasoAlmacen
            Dim Fecha As Date = TxtFechaRecepcion.Text.ToDate

            Dim CveAlmacenEntrada As Integer = GvDatosRecepcion.Rows(0).DataKey("CveAlmacenDestino").ToEntero
-            Dim CveAlmacenSalida As Integer = GvDatosRecepcion.Rows(0).DataKey("CveAlmacenSalida").ToEntero
+            Dim CveAlmacenSalida As Integer = DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero

            Dim TipoAlmacenDestino As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacenEntrada}").ToEntero()
+            Dim TipoAlmacenOrigen As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacenSalida}").ToEntero()
+
+
+            Dim RealizarMovimientoVirtual As Boolean = False
+
+            If UsuarioActual.Empresa.Funcionalidad(573) = "1" AndAlso TipoAlmacenOrigen.Contiene(1, 27) Then
+                RealizarMovimientoVirtual = True
+            End If
+

            'AGREGAMOS LA SALIDA
            CveMovimientoSalida = ObjInventario.AddMovimiento(CveAlmacenSalida, 8, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
@@ -1889,11 +1904,11 @@ Partial Class Inventarios_TraspasoAlmacen
                        Dim importe As Decimal = resultado.SUMD("Total").RoundSQL
                        Dim IdCtaContable As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero)).ToEntero

-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, TxtObservaciones.Text, 289, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=importe, Contabilizable:=False) Then
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=importe, Contabilizable:=False) Then
                            ErrorMovInv = True
                        End If

-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=importe, Contabilizable:=False) Then
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, ImporteMX:=importe, Contabilizable:=False) Then
                            ErrorMovInv = True
                        End If
                    End If
@@ -1904,7 +1919,7 @@ Partial Class Inventarios_TraspasoAlmacen
            'VIRTUAL ENTRADA
            Dim CveMovimientoVirtualEntrada As Integer = 0
            Dim FolioVirtualEntrada As Integer = 0
-            If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then
+            If RealizarMovimientoVirtual Then
                Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacenRecepcion.SelectedValue}").ToEntero()

                Dim CveAlmacenVirtual As Integer = -1
@@ -2014,8 +2029,8 @@ Partial Class Inventarios_TraspasoAlmacen
                TxtObservacionesRecepcion.Text = ""

                Dim Mensaje As StringBuilder = New StringBuilder
-                Mensaje.AppendFormat("Se realizo correctamente la recepción. <br/> Folio de Entrada: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{0}</a></b>", Folio, CveMovimientoSalida)
-                Mensaje.AppendFormat("<br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoSalida))) 'onclick='ImprimirTraslado()'
+                Mensaje.AppendFormat("Se realizo correctamente la recepción. <br/> Folio de Entrada: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{0}</a></b>", Folio, CveMovimientoEntrada)
+                Mensaje.AppendFormat("<br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoEntrada))) 'onclick='ImprimirTraslado()'
                If CveMovimientoVirtualEntrada > 0 Then Mensaje.AppendFormat("<br/><br/><br/>Folio Virtual <b> <a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{2}</a> </b> <br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualEntrada)), CveMovimientoVirtualEntrada, FolioVirtualEntrada) 'onclick='ImprimirTraslado()'