Registo mercancia Almacen Administrativo

Compras/Compras.aspx

@@ -467,6 +467,7 @@
                                     <asp:DropDownList ID="DdlTipoCompra" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoCompra_SelectedIndexChanged" CssClass="form-control input-sm input-small">
                                         <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                                         <asp:ListItem Text="Gasto" Value="7"></asp:ListItem>
+                                        <asp:ListItem Text="Gasto con almacen" Value="10"></asp:ListItem>
                                         <asp:ListItem Text="Activo Fijo" Value="1"></asp:ListItem>
                                         <asp:ListItem Text="Costo Indirecto" Value="2" Enabled="false"></asp:ListItem>
                                         <asp:ListItem Text="Almacen" Value="3"></asp:ListItem>

Compras/Compras.aspx.vb

@@ -2986,10 +2986,17 @@ Partial Class Compras_Compras
         'ddlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen IN (1,2)") 'solo muestra tipo material y herramientas
         'ddlAlmacen.DataBind()
 
-        ddlAlmacenAdd.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen IN (1,2,7,14,19)") 'solo muestra tipo material y herramientas
+        Dim DtAlmacenes = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen IN (1,2,7,14,19)")
-        ddlAlmacenAdd.DataBind()
 
-        DdlAlmacenDevolucion.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen IN (1,2,7,14,19)") 'solo muestra tipo material y herramientas
+        If DdlTipoCompra.SelectedValue = "10" Then
+            ddlAlmacenAdd.DataSource = DtAlmacenes.FiltraParametros("Modalidad = 0")
+            DdlAlmacenDevolucion.DataSource = DtAlmacenes.FiltraParametros("Modalidad = 0")
+        Else
+            ddlAlmacenAdd.DataSource = DtAlmacenes
+            DdlAlmacenDevolucion.DataSource = DtAlmacenes
+        End If
+
+        ddlAlmacenAdd.DataBind()
         DdlAlmacenDevolucion.DataBind()
 
         DdlAlmacenDevolucion.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -6411,6 +6418,13 @@ Partial Class Compras_Compras
                                                                                     idCuentaContabilizacion = 0
                                                                                 End If
 
+                                                                                'SI ES GASTO DE ALMACEN NO DEBE CONTABILIZAR CONCEPTO 68
+                                                                                If DdlTipoCompra.SelectedValue = "10" Then
+                                                                                    SeContabiliza = False
+                                                                                    IdCtaContable = 0
+                                                                                    CveCuenta = 0
+                                                                                End If
+
                                                                                 If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN, Referencia, 68, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
                                                                                     ErrorPrepoliza = True
                                                                                 End If
@@ -6611,6 +6625,13 @@ Partial Class Compras_Compras
                                                                             idCuentaContabilizacion = 0
                                                                         End If
 
+                                                                        'SI ES GASTO DE ALMACEN NO DEBE CONTABILIZAR CONCEPTO 68
+                                                                        If DdlTipoCompra.SelectedValue = "10" AndAlso ConceptoContabilizacionNC = 68 Then
+                                                                            SeContabiliza = False
+                                                                            IdCtaContable = 0
+                                                                            CveCuenta = 0
+                                                                        End If
+
                                                                         If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContabilizacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then
                                                                             ErrorPrepoliza = True
                                                                         End If
@@ -10117,9 +10138,18 @@ Partial Class Compras_Compras
                                         End If
                                     End If
                                     If importeMovimiento <> 0 Then
-                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 68, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta) Then
+                                        Dim SeContabiliza As Boolean = True
+                                        'SI ES GASTO DE ALMACEN NO DEBE CONTABILIZAR CONCEPTO 68
+                                        If DdlTipoCompra.SelectedValue = "10" Then
+                                            SeContabiliza = False
+                                            IdCtaContable = 0
+                                            CveCuenta = 0
+                                        End If
+
+                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 68, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
                                             ErrorPrepoliza = True
                                         End If
+
                                     End If
                                 Next
                             End If
@@ -11589,6 +11619,10 @@ Partial Class Compras_Compras
                 StrAlmacenes = "CveTipoAlmacen IN (21)"
             End If
 
+            If DdlTipoCompra.SelectedValue.ToEntero = 10 Then
+                StrAlmacenes = $"Modalidad = 0"
+            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()
@@ -18715,7 +18749,12 @@ Partial Class Compras_Compras
                             If CveCuenta = 0 Then
                                 CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 68))("ConceptoContable").ToString)
                             End If
-                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 68, Concepto, FechaMovimiento, Row("IdCtaContable").ToString.ToEntero, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveMovimientoAlmacen:=Row("CveMovimiento").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=If(TipoCambioActual = 1, 0, ImporteMovimiento), CveCuenta:=Row("CveCuenta").ToString.ToEntero) Then
+                            Dim SeContabiliza As Boolean = True
+                            'SI ES GASTO DE ALMACEN NO DEBE CONTABILIZAR CONCEPTO 68
+                            If DdlTipoCompra.SelectedValue = "10" Then
+                                SeContabiliza = False
+                            End If
+                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 68, Concepto, FechaMovimiento, Row("IdCtaContable").ToString.ToEntero, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveMovimientoAlmacen:=Row("CveMovimiento").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=If(TipoCambioActual = 1, 0, ImporteMovimiento), CveCuenta:=Row("CveCuenta").ToString.ToEntero, Contabilizable:=SeContabiliza) Then
                                 TieneError = True
                                 Exit For
                             End If
@@ -19625,7 +19664,7 @@ 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
+        If DdlTipoCompra.SelectedValue.ToEntero.Contiene(9, 10) Then 'Al seleccionar apoyo logístico se cargan los amancenes de  devoculcion proveedor para dar entrada
             CargaGvInv()
         End If
 

Inventarios/RecepcionAlmacen.aspx.vb

@@ -458,7 +458,7 @@ Partial Class Inventarios_RecepcionAlmacen
     ''' </summary>
     ''' <param name="CveSubProyecto"></param>
     ''' <param name="CveTiposAlmacen">Parametro sin espacios y separado por comas ["1,2,3,21"]</param>
-    Private Sub CargaAlmacenes(CveSubProyecto As Integer, Optional CveTiposAlmacen As String = "")
+    Private Sub CargaAlmacenes(CveSubProyecto As Integer, Optional CveTiposAlmacen As String = "", Optional CveTipoCompra As Integer = -1)
         Dim StrAlmacenes As String = ""
 
         If UsuarioActual.CveSubProyecto = 8804 Then 'AGS
@@ -467,6 +467,10 @@ Partial Class Inventarios_RecepcionAlmacen
             StrAlmacenes = $"CveTipoAlmacen IN ({If(CveTiposAlmacen.Length > 0, CveTiposAlmacen, "1,2,15,6")}) {If(CveSubProyecto > 0, $"And CveSubProyecto = {CveSubProyecto}", "")}"
         End If
 
+        If CveTipoCompra = 10 Then
+            StrAlmacenes = $"Modalidad = 0"
+        End If
+
         DdlAlmacen.Items.Clear()
         DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros(StrAlmacenes) 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
         DdlAlmacen.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
@@ -854,13 +858,18 @@ Partial Class Inventarios_RecepcionAlmacen
                 CveTipoCompra = ObjCompras.DtResultados.Rows(0)("CveTipoCompra").ToString.ToEntero
 
                 If TipoMovimiento = 3 Then
-                    CargaAlmacenes(-1, "21,2")
+                    CargaAlmacenes(-1, "21,2", CveTipoCompra)
                 End If
 
                 If CveTipoCompra = 9 Then
-                    CargaAlmacenes(-1, "21")
+                    CargaAlmacenes(-1, "21", CveTipoCompra)
                 End If
 
+                If CveTipoCompra = 10 Then
+                    CargaAlmacenes(-1, CveTipoCompra:=CveTipoCompra)
+                End If
+
+
                 RecibidaCompleta = False
 
 
@@ -879,9 +888,9 @@ Partial Class Inventarios_RecepcionAlmacen
                         CargaSoloUsados = True
                         DtRecepcion = ObjInventario.DtResultados.Copy()
                         If UsuarioActual.CveRol = 1 Then
-                            CargaAlmacenes(-1, "22,24")
+                            CargaAlmacenes(-1, "22,24", CveTipoCompra)
                         Else
-                            CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "22")
+                            CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "22", CveTipoCompra)
                         End If
                     Else
                         DtRecepcion = ObjInventario.DtResultados.Copy()
@@ -952,9 +961,9 @@ Partial Class Inventarios_RecepcionAlmacen
                                     Else
                                         LtAdvertencia.Text = "La mercancía sera traspasada ha apartados"
                                         If CargaSoloUsados Then
-                                            CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "22")
+                                            CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "22", CveTipoCompra)
                                         Else
-                                            CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero)
+                                            CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, CveTipoCompra:=CveTipoCompra)
                                         End If
                                     End If
                                 End If
@@ -2113,7 +2122,8 @@ Partial Class Inventarios_RecepcionAlmacen
                     Next
 
                     IdCtaContable = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen={CveAlmacen}").ToEntero
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, MovAlmacen, DtCostos.SUMD("Total").RoundSQL, Concepto, 68, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=DtCostos.SUMD("Total").RoundSQL, Contabilizable:=EsContabilizable) Then
+
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, MovAlmacen, DtCostos.SUMD("Total").RoundSQL, Concepto, 68, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=DtCostos.SUMD("Total").RoundSQL, Contabilizable:=If(CveTipoCompra = 10, False, EsContabilizable)) Then
                         Retorno = False
                     End If
 
@@ -2734,7 +2744,7 @@ Partial Class Inventarios_RecepcionAlmacen
                             Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacen.SelectedValue}").ToEntero
                             CvePrePoliza = ObjConta.AddPrePolizas("Inventario/RecepcionAlmacen", 74, TotalCosto, TotalCosto, 1, Fecha, ProveedorNombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                             If CvePrePoliza > 0 Then
-                                If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TotalCosto, SerieFolio, 68, SerieFolio, Fecha, IdCtaContableAlmacen, -1, CveCompra:=CveCompraSurtir, CveSubProyecto:=CveSubProyecto, CveOC:=CveOCSurtir, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCosto, CveCuenta:=CveCuentaAlmacen, Contabilizable:=EsContabilizable) Then
+                                If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TotalCosto, SerieFolio, 68, SerieFolio, Fecha, IdCtaContableAlmacen, -1, CveCompra:=CveCompraSurtir, CveSubProyecto:=CveSubProyecto, CveOC:=CveOCSurtir, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCosto, CveCuenta:=CveCuentaAlmacen, Contabilizable:=If(CveTipoCompra = 10, False, EsContabilizable)) Then
 
                                     'AGREGA POR CONCEPTO POR CVEOCDETALLE
                                     If CveOCSurtir > 0 Then
@@ -2906,7 +2916,7 @@ Partial Class Inventarios_RecepcionAlmacen
                             CvePrePoliza = ObjConta.AddPrePolizas("Inventario/RecepcionAlmacen-NC", 74, TotalCosto, TotalCosto, 1, Fecha, ProveedorNombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                             If CvePrePoliza > 0 Then
                                 If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TotalNC, SerieFolio, CveConceptoContableNC, SerieFolio, Fecha, IdCtaContableNC, -1, CveCompra:=CveCompraSurtir, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalNC, Contabilizable:=EsContabilizable) Then
-                                    If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TotalCosto * -1, SerieFolio, 68, SerieFolio, Fecha, IdCtaContableAlmacen, -1, CveCompra:=CveCompraSurtir, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCosto * -1, CveCuenta:=CveCuentaAlmacen, Contabilizable:=EsContabilizable) Then
+                                    If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TotalCosto * -1, SerieFolio, 68, SerieFolio, Fecha, IdCtaContableAlmacen, -1, CveCompra:=CveCompraSurtir, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCosto * -1, CveCuenta:=CveCuentaAlmacen, Contabilizable:=If(CveTipoCompra = 10, False, EsContabilizable)) Then
                                         If DifCostoNC <> 0 Then
                                             If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DifCostoNC * -1, SerieFolio, 69, SerieFolio, Fecha, IdCtaContableClasificacion, -1, CveClasificacion:=CveClasificacionDifCostoNC, CveCompra:=CveCompraSurtir, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=DifCostoNC * -1, CveCuenta:=CveCuentaClasificacion, Contabilizable:=EsContabilizable, CveSubProyecto:=CveSubProyecto) Then
                                                 ErrorMovInv = True
@@ -3198,7 +3208,7 @@ Partial Class Inventarios_RecepcionAlmacen
                 Dim PorcentajeRecepcionCompras As Decimal = TotalCosto / DtTempCompras.SUMD("SubTotalTC")
                 Dim ConceptoPartida As String = String.Format("{0}- Inv#{1}", HLFolio.Text, InvFolio)
 
-                If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TotalCosto, InvFolio, 68, InvFolio, FechaMovto, IdCtaContableAlmacen, -1, CveCompra:=CveCompraSurtir, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCosto, CveCuenta:=CveCuentaAlmacen) Then
+                If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TotalCosto, InvFolio, 68, InvFolio, FechaMovto, IdCtaContableAlmacen, -1, CveCompra:=CveCompraSurtir, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCosto, CveCuenta:=CveCuentaAlmacen, Contabilizable:=If(CveTipoCompra = 10, False, True)) Then
                     'se recorren las facturas a descontar el recepción
                     If DtTempCompras IsNot Nothing AndAlso DtTempCompras.Rows.Count > 0 Then