10.A. Formato de devolución como la entrada de almacén por compra.

Compras/eFacturas.aspx.vb

@@ -744,12 +744,26 @@ Partial Class Compras_eFacturas
             ViewState("DTTraslados") = value
         End Set
     End Property
+    Private Property EsGrupoDiaz As Boolean
+        Get
+            If ViewState("EsGrupoDiaz") Is Nothing Then
+                ViewState("EsGrupoDiaz") = False
+            End If
+            Return CType(ViewState("EsGrupoDiaz"), Boolean)
+        End Get
+        Set(value As Boolean)
+            ViewState("EsGrupoDiaz") = value
+        End Set
+    End Property
 
 
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
+
+            'EsGrupoDiaz = False ' If(UsuarioActual.Empresa.Funcionalidad(382) = "1", True, False)
+
             ChecandoCorreo = False
 
             ViewState("Orden") = String.Empty
@@ -784,7 +798,8 @@ Partial Class Compras_eFacturas
             End If
             If UsuarioActual.TienePermisoProceso(206) Then GvD.Columns(13).Visible = False
             If UsuarioActual.Empresa.Funcionalidad(156) = "1" Then GvD.Columns(7).Visible = True
-            If UsuarioActual.CveEmpresa.Contiene(13, 83) AndAlso UsuarioActual.CveRol = 1 Then
+
+            If (UsuarioActual.CveEmpresa.Contiene(13, 83) AndAlso UsuarioActual.CveRol = 1) Or EsGrupoDiaz Then
                 LnkRegistarFactura.Visible = True
             End If
 
@@ -793,14 +808,16 @@ Partial Class Compras_eFacturas
             MostrarSolcitudesSAT()
 
             'CARGA REGISTRO DE FACTURA 
+            If EsGrupoDiaz Then
+                CargaClasificacionesComprobaciones()
+                CargaClasificaciones()
+                CargaPS(-1)
+                CargaPersoanlCajaChica()
+                CargaPersonalViaticos()
+                CargaDdlRetIVA()
+                CargaDdlRetISR()
+            End If
 
-            'CargaClasificacionesComprobaciones()
-            'CargaClasificaciones()
-            'CargaPS(-1)
-            'CargaPersoanlCajaChica()
-            'CargaPersonalViaticos()
-            'CargaDdlRetIVA()
-            'CargaDdlRetISR()
 
             Dim LblSubProyectoTemp As New Label
             CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyectoTemp, "Seleccione")
@@ -6864,8 +6881,15 @@ Public Class ClsCompraManager
 
             Dim DrTipoGasto As DataRow = Me.DTTiposGastos.FiltroPrimero("")
 
-            DrPS("CveTipoGasto") = DrTipoGasto("CveTipoGasto")
-            DrPS("TipoGasto") = DrTipoGasto("TipoGasto")
+            If DrTipoGasto Is Nothing Then
+                DrPS("CveTipoGasto") = -1
+                DrPS("TipoGasto") = ""
+            Else
+                DrPS("CveTipoGasto") = DrTipoGasto("CveTipoGasto")
+                DrPS("TipoGasto") = DrTipoGasto("TipoGasto")
+            End If
+
+
 
             If UsuarioActual.Empresa.Funcionalidad(562).ToEntero > 0 Then
                 DrPS("AplicaCostoIndirecto") = "0"