App_Code/ClsNominas.vb

@@ -3208,6 +3208,18 @@ Public Class ClsNominas
         Return retorno
     End Function
 
+    Public Function RepFiniquitos(cveSubproyecto As Int32, CveEstatusFiniquito As Int32, cveEmpresa As Int32, FechaInicio As String, FechaFin As String) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_Nom_RepFiniquitos", CommandType.StoredProcedure)
+        addParameters("@CveSubProyecto", SqlDbType.Int, cveSubproyecto)
+        addParameters("@CveEstatusFiniquito", SqlDbType.Int, CveEstatusFiniquito)
+        addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa)
+        addParameters("@FechaInicio", SqlDbType.VarChar, FechaInicio)
+        addParameters("@FechaFin", SqlDbType.VarChar, FechaFin)
+        retorno = RunQuery("Ocurrió un error al obtener el  Embarque Manifiesto .")
+        Return retorno
+    End Function
+
     Public Function EmbarquePalletGet(cvePallet As Int32, cveCultivo As Int32, cveCultivoVariedad As Int32, cveEnvase As Int32, cveEtiqueta As Int32, cveEtiquetasporTarima As Int32, cveFormatoImpresion As Int32, cveTamaño As Int32, cveTipoTarima As Int32, cveEmpresa As Int32, cveEmbarqueManifiesto As Int32, cveTemporada As Int32, Optional agrupado As Boolean = False) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_Agro_Embarque_PalletGet", CommandType.StoredProcedure)

App_Code/ClsPaginas.vb

@@ -5163,6 +5163,7 @@ Public Class ClsPaginas
             PaginaDict.Add("/Nomina/ConceptoNomina.aspx".ToUpper(), 172)
             PaginaDict.Add("/Nomina/CatPeriodos.aspx".ToUpper(), 177)
             PaginaDict.Add("/Nomina/Finiquito.aspx".ToUpper(), 197)
+            PaginaDict.Add("/Nomina/RepFiniquito.aspx".ToUpper(), 989)
             PaginaDict.Add("/Nomina/CatSatBancos.aspx".ToUpper(), 255)
             PaginaDict.Add("/Nomina/CatSatConceptos.aspx".ToUpper(), 256)
             PaginaDict.Add("/Nomina/CatSatRegimenContratacion.aspx".ToUpper(), 257)

Compras/PopUpVerFactura.aspx.vb

@@ -211,6 +211,9 @@ Partial Class PopUpVerFactura
                 If Request("onlyPrint").ToString() = "PalletCaja" AndAlso Not IsNothing(Request("CvePallet")) Then
                     imprimirpallet(Request("CvePallet").ToString.ToEntero())
                 End If
+                If Request("onlyPrint").ToString() = "PalletCaja2" AndAlso Not IsNothing(Request("CvePallet")) Then
+                    imprimirpalletWalamart(Request("CvePallet").ToString.ToEntero())
+                End If
 
                 If Request("onlyPrint").ToString() = "manifiesto" AndAlso Not IsNothing(Request("cveEmbarqueManifiesto")) Then
                     imprimirManifiesto(Request("cveEmbarqueManifiesto").ToString.ToEntero())
@@ -857,6 +860,141 @@ Partial Class PopUpVerFactura
         '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
         ImprimirPDF("GPS/PalletEtiqueta2.rdlc", lrds, params, "Pallet", Content_Disposition:="Inline")
     End Sub
+
+
+    Private Sub imprimirpalletWalamart(cvePallet As Integer)
+        Dim Envase As String = ""
+        Dim Tamano As String = ""
+        Dim Cultivo As String = ""
+        Dim Cultivoingles As String = ""
+        Dim noPallet As String = ""
+        Dim FormatoImpresion As String = ""
+        Dim Consecutivo As String = ""
+        Dim Fecha As String = ""
+        Dim NoCajas As String = ""
+        Dim NumberOfCode As String = ""
+        Dim CvetypeImpresion As Integer
+        Dim NumberSmall As String = ""
+        Dim NumberBig As String = ""
+        Dim GTINAll As String = ""
+        Dim Peso As String = ""
+        Dim GTIN As String = ""
+        Dim PLU As String = ""
+        'Envase = "1 1/9"
+        'Tamano = "Small"
+        'Cultivo = "Tomate"
+        'noPallet = "000001"
+        Using objnom As New ClsNominas
+            If objnom.EmbarquePalletGet(cvePallet, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1) And objnom.DtResultados.Rows.Count > 0 Then
+                Dim row As DataRow = objnom.DtResultados.Rows(0)
+                Envase = row("Envase").ToString()
+                Tamano = row("Tamaño").ToString()
+                Cultivo = row("Cultivo").ToString()
+                Cultivoingles = row("Cultivoingles").ToString()
+                noPallet = row("Codigo").ToString()
+                FormatoImpresion = row("FormatoImpresion").ToString()
+                Consecutivo = row("Consecutivo").ToString()
+                NoCajas = row("NoCajas").ToString()
+                Fecha = String.Format("{0:MMM dd}", row("Fecha")).Replace(".", "").ToUpper()
+                CvetypeImpresion = row("CvetypeImpresion").ToString().ToEntero()
+                NumberOfCode = String.Format("(00)00000000000000(00){1:ddMMyy}(00){0}00", Right(String.Format("0{0}", Regex.Match(row("Cuadro").ToString(), "\d+")), 2), row("Fecha"))
+                'NumberSmall = String.Format("{0:00}", noPallet.ToEntero())
+                'NumberBig = String.Format("{0:00}", row("Consecutivo").ToString().ToEntero()) ' String.Format("{0:dd}", row("Fecha"))
+
+
+                NumberSmall = row("NumberSmall").ToString()
+                NumberBig = row("NumberBig").ToString()
+                GTINAll = row("GTINAll").ToString()
+                Peso = row("PesoText").ToString()
+                GTIN = row("GTIN").ToString()
+                PLU = row("PLU").ToString()
+
+            End If
+        End Using
+        Dim params As New List(Of ReportParameter)
+
+        params.Add(New ReportParameter("Tamano", Tamano))
+        params.Add(New ReportParameter("noPallet", noPallet))
+        params.Add(New ReportParameter("FormatoImpresion", FormatoImpresion))
+        params.Add(New ReportParameter("Consecutivo", Consecutivo))
+        params.Add(New ReportParameter("Fecha", Fecha))
+        params.Add(New ReportParameter("CveFormato", If(Cultivo.ToLower().Contains("tomate"), "3", CvetypeImpresion.ToString())))
+        params.Add(New ReportParameter("NoCajas", NoCajas))
+        params.Add(New ReportParameter("NumberOfCode", NumberOfCode))
+        params.Add(New ReportParameter("Cultivo", If(CvetypeImpresion = 2, Cultivoingles, Cultivo)))
+        params.Add(New ReportParameter("Envase", If(CvetypeImpresion = 2, "PLU 4062", Envase)))
+        params.Add(New ReportParameter("NumberSmall", NumberSmall))
+        params.Add(New ReportParameter("NumberBig", NumberBig))
+        params.Add(New ReportParameter("GTINAll", GTINAll))
+        params.Add(New ReportParameter("Peso", Peso))
+        params.Add(New ReportParameter("GTIN", GTIN))
+        params.Add(New ReportParameter("PLU", PLU))
+
+
+
+        Dim tablaReporte As New DataTable
+        tablaReporte.Columns.Add(New DataColumn("Codigo", GetType(String)))
+        tablaReporte.Rows.Add(tablaReporte.NewRow)
+        tablaReporte.Rows.Add(tablaReporte.NewRow)
+
+        Dim lrds As New List(Of ReportDataSource)
+
+        'img
+        Dim dtqr As New DataTable
+        Dim column As DataColumn = New DataColumn("ImagenByte")
+        column.DataType = System.Type.[GetType]("System.Byte[]")
+        column.AllowDBNull = True
+        column.Caption = "ImagenByte"
+        dtqr.Columns.Add(column)
+        Dim rowqr As DataRow = dtqr.NewRow()
+
+
+        Dim bcode As New BarcodeLib.Barcode()
+        Dim img = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", GTIN), 500, 200)
+        Dim barcodebyte As Byte()
+        Using ms = New MemoryStream()
+            img.Save(ms, System.Drawing.Imaging.ImageFormat.Png)
+            barcodebyte = ms.ToArray()
+        End Using
+        rowqr("ImagenByte") = barcodebyte
+
+        dtqr.Rows.Add(rowqr)
+        Dim rds2 As New ReportDataSource With {.Name = "dsImagenes", .Value = dtqr}
+        rds2.Name = "dsImagenes"
+        rds2.Value = dtqr
+        lrds.Add(rds2)
+        'endimg
+
+
+        Dim dtqr2 As DataTable = dtqr.Clone()
+
+        Dim bcode2 As New BarcodeLib.Barcode()
+        Dim img2 = bcode2.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", GTINAll.Replace("(", "").Replace(")", "")), 900, 100)
+        Dim barcodebyte2 As Byte()
+        Using ms = New MemoryStream()
+            img2.Save(ms, System.Drawing.Imaging.ImageFormat.Png)
+            barcodebyte2 = ms.ToArray()
+        End Using
+        Dim rowqr2 As DataRow = dtqr2.NewRow()
+        rowqr2("ImagenByte") = barcodebyte2
+        dtqr2.Rows.Add(rowqr2)
+        Dim rds22 As New ReportDataSource With {.Name = "dsImagenesGTIN", .Value = dtqr2}
+        lrds.Add(rds22)
+
+
+
+        Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = tablaReporte}
+        lrds.Add(rds)
+
+        '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
+        '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
+        Dim ruta As String = "GPS/PalletEtiquetaWalmart.rdlc"
+        'If CvetypeImpresion = 2 Then
+        '    ruta = "GPS/PalletEtiqueta_2.rdlc"
+        'End If
+        ImprimirPDF(ruta, lrds, params, "Pallet Caja", Content_Disposition:="Inline")
+    End Sub
+
     Private Sub imprimirpallet(cvePallet As Integer)
         Dim Envase As String = ""
         Dim Tamano As String = ""

Nomina/RepFiniquito.aspx

@@ -0,0 +1,140 @@
+<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="RepFiniquito.aspx.cs" Inherits="Nomina_RepFiniquito" %>
+
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
+
+    <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+
+            <div class="portlet solid grey-cascade portlet-filter">
+                <div class="portlet-title portlet-filterT smalltitle" style="min-height: 45px;">
+                    <div class="tools">
+                        <asp:Button ID="BtnConsultar" runat="server" OnClick="BtnConsultar_Click" Text="Filtrar" class="btn btn-primary" Width="95px" />
+                        <a href="javascript:;" class="expand" data-original-title="" title=""></a>
+                    </div>
+                    <div class="titlefiltros  caption ">
+                        <div class="row" style="padding-top: 10px;">
+
+
+                            <label class="col-md-1 truncate">Estatus:</label>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlMotivoBaja" runat="server" Width="100%" CssClass="select2me" AppendDataBoundItems="true" DataTextField="MotivoBaja" DataValueField="CveMotivoBaja" ValidationGroup="GrpGuardar">
+                                    <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
+                                    <asp:ListItem Text="Pendientes" Value="0" Selected="True"></asp:ListItem>
+                                    <asp:ListItem Text="Guardados" Value="1"></asp:ListItem>
+                                    <asp:ListItem Text="Autorizados" Value="2"></asp:ListItem>
+                                    <asp:ListItem Text="Timbrados" Value="3"></asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
+                            <label class="col-md-1 truncate">Fecha Inicio:</label>
+                            <div class="col-md-2">
+                                <div style="display: inline-block; vertical-align: text-bottom;">
+                                    <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
+                                        <asp:TextBox ID="TxtFechaIFinContrato" runat="server" CssClass="form-control" CausesValidation="true" Style="width: 118px" MaxLength="10"></asp:TextBox>
+                                        <span class="input-group-btn ">
+                                            <asp:LinkButton ID="ImgFechaFinContrato" class="btn default" Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                        </span>
+                                        <ajax:MaskedEditExtender ID="MEEFechaFinContrato" runat="server" TargetControlID="TxtFechaIFinContrato" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                        <ajax:CalendarExtender runat="server" ID="CEFechaFinContrato" TargetControlID="TxtFechaIFinContrato" PopupButtonID="ImgFechaFinContrato" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                        <asp:CompareValidator ID="CVFechaFinContrato" runat="server" ControlToValidate="TxtFechaIFinContrato" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Fin Contrato''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                        <ajax:ValidatorCalloutExtender ID="VCOFechaFinContrato2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaFinContrato" Width="350px"></ajax:ValidatorCalloutExtender>
+                                    </div>
+                                </div>
+                            </div>
+                            <label class="col-md-1 truncate">Fecha Fin:</label>
+                            <div class="col-md-2">
+                                <div style="display: inline-block; vertical-align: text-bottom;">
+                                    <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
+                                        <asp:TextBox ID="TxtFechaFFinContrato" runat="server" CssClass="form-control" CausesValidation="true" Style="width: 118px" MaxLength="10"></asp:TextBox>
+                                        <span class="input-group-btn ">
+                                            <asp:LinkButton ID="ImgFechaFFinContrato" class="btn default" Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                        </span>
+                                        <ajax:MaskedEditExtender ID="MEEFechaFFinContrato" runat="server" TargetControlID="TxtFechaFFinContrato" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                        <ajax:CalendarExtender runat="server" ID="CEFechaFFinContrato" TargetControlID="TxtFechaFFinContrato" PopupButtonID="ImgFechaFinContrato" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                        <asp:CompareValidator ID="CVFechaFFinContrato" runat="server" ControlToValidate="TxtFechaFFinContrato" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Fin Contrato''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                        <ajax:ValidatorCalloutExtender ID="VCOFechaFFinContrato2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaFinContrato" Width="350px"></ajax:ValidatorCalloutExtender>
+                                    </div>
+                                </div>
+                            </div>
+                        </div>
+                    </div>
+                </div>
+
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+    <asp:UpdatePanel ID="upDatosRepF" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <asp:GridView ID="GVRepFiniquitos" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall" AutoGenerateColumns="False"
+                DataKeyNames="CvePersonal,CvePersonalAltas,Codigo,NombreCompleto,FechaFin,Autorizado,Timbrado,CvePrePolizaProvision,MotivoBaja,Observaciones,Total">
+                <Columns>
+                    <asp:TemplateField HeaderText="Codigo">
+                        <ItemTemplate>
+                            <asp:HyperLink ID="HplCodigo" runat="server" Text='<%# Eval("Codigo") %>' NavigateUrl='<%# Eval("CvePersonal", "~/RH/Personal.aspx?CvePersonal={0}") %>'></asp:HyperLink>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Nombre">
+                        <ItemTemplate>
+                            <asp:HyperLink ID="HplNombreCompleto" runat="server" Text='<%# Eval("NombreCompleto") %>' NavigateUrl='<%# Eval("CvePersonal", "~/RH/Personal.aspx?CvePersonal={0}") %>'></asp:HyperLink>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Fecha Fin">
+                        <ItemTemplate>
+                            <asp:Label ID="lblfechaFin" runat="server" Text='<%# Eval("FechaFin","{0:dd/MM/yyyy}")%>'> </asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Autorizado">
+                        <ItemTemplate>
+                            <asp:Label ID="lblautorizado" runat="server" Text='<%# Eval("Autorizado")%>'> </asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Timbrado">
+                        <ItemTemplate>
+                            <asp:Label ID="lbltimbrado" runat="server" Text='<%# Eval("Timbrado")%>'> </asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Cve Pre Poliza Provision">
+                        <ItemTemplate>
+                            <asp:Label ID="lblcvePrePolizaProvision" runat="server" Text='<%# Eval("CvePrePolizaProvision")%>'> </asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Motivo Baja">
+                        <ItemTemplate>
+                            <asp:Label ID="lblmotivoBaja" runat="server" Text='<%# Eval("MotivoBaja")%>'> </asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Observaciones">
+                        <ItemTemplate>
+                            <asp:Label ID="lblobservaciones" runat="server" Text='<%# Eval("Observaciones")%>'> </asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Finiquito">
+                        <ItemTemplate>
+                            <asp:HyperLink ID="HplTotal" runat="server" Text='<%# Eval("Total") %>' NavigateUrl='<%# Eval("CvePersonal", "/Nomina/Finiquito.aspx?CvePersonal={0}") %>'></asp:HyperLink>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="">
+                        <ItemTemplate>
+                            <asp:HyperLink ID="HplIr" runat="server" Text="Ir" NavigateUrl='<%# Eval("CvePersonal", "/Nomina/Finiquito.aspx?CvePersonal={0}") %>'></asp:HyperLink>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                </Columns>
+            </asp:GridView>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
+</asp:Content>
+

Nomina/RepFiniquito.aspx.cs

@@ -0,0 +1,49 @@
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Web;
+using System.Web.UI;
+using System.Web.UI.WebControls;
+using Extensiones;
+
+public partial class Nomina_RepFiniquito :  ClsPaginas
+{
+    #region Propiedades 
+    private int RcveEstatusFiniquito
+    {
+        get { return (ViewState["RcveEstatusFiniquito"] == null) ? 0 : Convert.ToInt32(ViewState["RcveEstatusFiniquito"]); }
+        set { ViewState["RcveEstatusFiniquito"] = value; }
+    }
+    private int RcveSubProyecto
+    {
+        get { return (ViewState["RcveSubProyecto"] == null) ? 0 : Convert.ToInt32(ViewState["RcveSubProyecto"]); }
+        set { ViewState["RcveSubProyecto"] = value; }
+    }
+
+    #endregion
+    protected void Page_Load(object sender, EventArgs e)
+    {
+        if (!IsPostBack)
+        {
+            RcveEstatusFiniquito = Request["cveEstatusFiniquito"] == null ? 0 : Request["cveEstatusFiniquito"].ToString().ToEntero();
+            RcveSubProyecto = Request["cveSubProyecto"] == null ? 0 : Request["cveSubProyecto"].ToString().ToEntero();
+            
+
+            CargaRepFiniquitos();
+        }
+    }
+
+    protected void CargaRepFiniquitos()
+    {
+        ClsNominas ObjRepF = new ClsNominas();
+        ObjRepF.RepFiniquitos(RcveSubProyecto, RcveEstatusFiniquito, UsuarioActual.CveEmpresa, "","");
+        GVRepFiniquitos.DataSource = ObjRepF.DtResultados;
+        ObjRepF.Dispose();
+        GVRepFiniquitos.DataBind();
+        upDatosRepF.Update();
+    }
+    protected void BtnConsultar_Click(object sender, EventArgs e)
+    {
+        CargaRepFiniquitos();
+    }
+}

RH/Asistencias.aspx

@@ -175,7 +175,7 @@
                     </tr>
                     <tr>
                         <td>3&nbsp;</td>
-                        <td style="text-align: left; color: #FF0000">&nbsp;Se registró asistencia y fue modificada</td>
+                        <td style="text-align: left; background-color: #f2dede">&nbsp;Se registró asistencia y fue modificada</td>
                     </tr>
                 </table>
             </td>

RH/Asistencias.aspx.vb

@@ -211,8 +211,8 @@ Partial Class RH_Asistencias
                 e.Row.Cells(0).BackColor = Drawing.Color.LightBlue
                 e.Row.Cells(1).BackColor = Drawing.Color.LightBlue
             ElseIf e.Row.DBCampo("SeModifico") = "1" Then
-                e.Row.Cells(0).ForeColor = Drawing.Color.Red
-                e.Row.Cells(1).ForeColor = Drawing.Color.Red
+                e.Row.Cells(0).BackColor = Drawing.Color.FromArgb(242, 222, 222) '"#f2dede" 'Drawing.Color.Red
+                e.Row.Cells(1).BackColor = Drawing.Color.FromArgb(242, 222, 222) 'Drawing.Color.Red
             End If
 
         End If