diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index fb5b5faab..5f8f19a96 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -6489,7 +6489,15 @@ Partial Class Compras_Compras
                                                                     End If
                                                                     Dim UsaComplementariaFleteImportaciones As Boolean = False
 
+                                                                    'DEBE METER EL CONCEPTO DE COMPRAS SI EL TIPO ES GASTO CON ALMACEN
+                                                                    If DdlTipoCompra.SelectedValue = "10" Then
+                                                                        ConceptoContabilizacion = 6
+                                                                    End If
+
                                                                     Select Case ConceptoContabilizacion
+                                                                        Case 6
+                                                                            importeMovimiento = TmpDT.SUMD(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"))
+                                                                            importeMN = importeMovimiento * tipoCambioActual * Multiplicador 'TIENE QUE TENER EL IMPORTEMN IGUAL AL IMPORTEMOVIMIENTO PORQUE NO TOMA EN CUENTA SI UN PRODUCTO ES TIPO SERVICIO
                                                                         Case 176
                                                                             ConceptoContabilizacionME = 228
                                                                             ConceptoContabilizacionMEComp = 229
@@ -6510,8 +6518,14 @@ Partial Class Compras_Compras
                                                                             importeMN = importeMovimiento * tipoCambioActual * Multiplicador 'TIENE QUE TENER EL IMPORTEMN IGUAL AL IMPORTEMOVIMIENTO PORQUE NO TOMA EN CUENTA SI UN PRODUCTO ES TIPO SERVICIO
                                                                     End Select
 
-                                                                    If ObjConta.GetRetCuenta(ConceptoContabilizacion, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
-                                                                        IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
+                                                                    If ConceptoContabilizacion = 6 Then
+                                                                        If ObjConta.GetRetCuenta(ConceptoContabilizacion, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
+                                                                            IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaGasto").ToString.ToEntero
+                                                                        End If
+                                                                    Else
+                                                                        If ObjConta.GetRetCuenta(ConceptoContabilizacion, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
+                                                                            IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
+                                                                        End If
                                                                     End If
 
                                                                     If ObjConta.GetRetCuenta(ConceptoContabilizacionME, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
@@ -6605,6 +6619,26 @@ Partial Class Compras_Compras
                                                                                     ErrorPrepoliza = True
                                                                                 End If
                                                                             End If
+                                                                        Case 6
+                                                                            Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
+
+                                                                            For Each RowDetalle As DataRow In TmpDT.FiltraParametros("ISNULL(TipoAF,0) <> 2", "", {"CveClasificacion", "CveSubProyecto"}).Rows
+
+                                                                                If ObjConta.GetRetCuenta(6, RowDetalle("CveClasificacion").ToString().ToEntero()) Then
+                                                                                    If ObjConta.DtResultados.Rows.Count > 0 Then
+                                                                                        IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaGasto").ToString.ToEntero
+                                                                                        CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaGastoSIG").ToString.ToEntero
+                                                                                    End If
+                                                                                End If
+
+                                                                                If importeMN <> 0 Then
+                                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN, Referencia, 6, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual,
+                                                                                                                         CveClasificacion:=RowDetalle("CveClasificacion").ToString().ToEntero(), CveSubProyecto:=RowDetalle("CveSubProyecto").ToString().ToEntero(), Contabilizable:=SeContabiliza) Then
+                                                                                        ErrorPrepoliza = True
+                                                                                    End If
+                                                                                End If
+                                                                            Next
+
                                                                     End Select
                                                                     'End If