Apoyo logistico

Compras/Compras.aspx

@@ -467,7 +467,7 @@
                                         <asp:ListItem Text="Flete" Value="4"></asp:ListItem>
                                         <asp:ListItem Text="Importación" Value="5"></asp:ListItem>
                                         <asp:ListItem Text="NC Con Productos" Value="6"></asp:ListItem>
-
+                                        <asp:ListItem Text="Apoyo Logístico" Value="9"></asp:ListItem>
                                     </asp:DropDownList>
                                 </div>
                             </div>

Compras/Compras.aspx.vb

@@ -6390,6 +6390,7 @@ Partial Class Compras_Compras
                                                         Case 6 'Compra
 
                                                             Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140, 141) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
+
                                                             Dim RegistraConcepto225 As Boolean = UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
 
                                                             If RBLPago.SelectedValue.ToEntero = 4 Then
@@ -6620,6 +6621,13 @@ Partial Class Compras_Compras
                                                                 'falta el registro de la NC cuando es
                                                                 Dim RegistroCuentaPuente As Boolean = False
                                                                 'NC CON PRODUCTOS - CUENTA PUENTE
+
+
+                                                                If DdlTipoComprobante.SelectedValue = "NC" And DdlTipoCompra.SelectedValue.ToEntero = 9 Then
+                                                                    RegistraConcepto225 = True
+                                                                End If
+
+
                                                                 If RegistraConcepto225 Then
 
                                                                     importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And ISNULL(AplicaCostoIndirecto,0) <> 1 And ISNULL(CveTipoPS,0) = 2").ToString.ToDecimal
@@ -6922,6 +6930,12 @@ Partial Class Compras_Compras
                                                             CveCuenta = CveCuentaProveedorAcreedores
 
                                                         Case 18 'NC - Notas de Credito
+
+
+
+
+
+
                                                             importeMovimiento = importeNC
                                                             importeMN = importeMovimiento * tipoCambioActual * Multiplicador
                                                             If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
@@ -11509,7 +11523,7 @@ Partial Class Compras_Compras
                 e.Row.FCCheckBox("cbInv").Enabled = False
             End If
 
-            e.Row.FCDropDownList("ddlEAlmacen").DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen IN (1,2,7,14,19)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
+            e.Row.FCDropDownList("ddlEAlmacen").DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros(If(DdlTipoCompra.SelectedValue.ToEntero = 9, "CveTipoAlmacen IN (21)", "CveTipoAlmacen IN (1,2,7,14,19)")) 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
             e.Row.FCDropDownList("ddlEAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1"))
             e.Row.FCDropDownList("ddlEAlmacen").DataBind()
             'e.Row.FCDropDownList("ddlEAlmacen").SelectedValue = If(e.Row.DBCampo("CveAlmacen").ToEntero <= 0, "-1", e.Row.DBCampo("CveAlmacen"))
@@ -11598,6 +11612,12 @@ Partial Class Compras_Compras
             If UsuarioActual.CveUsuario.Contiene(1397, 1517, 1565) Then ' iliana, horacio, marco, RMF. 2017.03.13
                 StrAlmacenes = "CveTipoAlmacen IN (1,2,7,14,12,19)"
             End If
+
+
+            If DdlTipoCompra.SelectedValue.ToEntero = 9 Then
+                StrAlmacenes = "CveTipoAlmacen IN (21)"
+            End If
+
             e.Row.FCDropDownList("ddlAlmacen").DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros(StrAlmacenes) 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
             e.Row.FCDropDownList("ddlAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1"))
             e.Row.FCDropDownList("ddlAlmacen").DataBind()
@@ -19619,6 +19639,10 @@ Partial Class Compras_Compras
 
     Protected Sub DdlTipoCompra_SelectedIndexChanged(sender As Object, e As EventArgs)
 
+        If DdlTipoCompra.SelectedValue.ToEntero = 9 Then 'Al seleccionar apoyo logístico se cargan los amancenes de  devoculcion proveedor para dar entrada
+            CargaGvInv()
+        End If
+
     End Sub
 
 #End Region