Merge branch 'master' of http://192.168.10.111:8383/SIG

App_Code/ClsCGame.vb

@@ -3390,6 +3390,28 @@ Public Class ClsCGame
     End Function
 
 
+#End Region
+
+#Region "INDICADORES"
+
+    Public Function GetIndicadores(CveEmpresa As Integer, FechaI As Date, FechaF As Date) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Citrus_IndicadoresGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@FechaI", SqlDbType.Date).Value = FechaI
+            .Add("@FechaF", SqlDbType.Date).Value = FechaF
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los indicadores.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+    End Function
+
+
 #End Region
 
 #Region "IDisposable Support"

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

@@ -5164,6 +5164,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)

App_Code/ClsRH.vb

@@ -2452,7 +2452,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         Return Retorno
     End Function
 
-    Public Function UpPersonalAltas(CvePersonal As Integer, fechaInicio As String, fechaFin As String, CvePeriodoFiniquito As Integer, CveMotivoBaja As Integer, esLiquidacion As Boolean, ValIndemnizacion As Boolean, ValSeparacionunica As Boolean, ValPrimadeantiguedad As Boolean) As Boolean
+    Public Function UpPersonalAltas(CvePersonal As Integer, fechaInicio As String, fechaFin As String, CvePeriodoFiniquito As Integer, CveMotivoBaja As Integer, esLiquidacion As Boolean, ValIndemnizacion As Boolean, ValSeparacionunica As Boolean, ValPrimadeantiguedad As Boolean, Optional Observaciones As String = "") As Boolean
         Dim Retorno As Boolean = False
         SqlDataAdapter("PA_RH_PersonalAltasUp")
 
@@ -2466,6 +2466,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
             .Add("@ValIndemnizacion", SqlDbType.Bit).Value = If(ValIndemnizacion, 1, 0)
             .Add("@ValSeparacionunica", SqlDbType.Bit).Value = If(ValSeparacionunica, 1, 0)
             .Add("@ValPrimadeantiguedad", SqlDbType.Bit).Value = If(ValPrimadeantiguedad, 1, 0)
+            .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -7397,7 +7398,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         End Try
         Return Retorno
     End Function
-    Public Function estatusPersonalUp(Fecha As DateTime, CvePersonal As Integer, CveEstatusPersonal As Integer, CveEmpresa As Integer, CveUsuario As Integer) As Boolean
+    Public Function estatusPersonalUp(Fecha As DateTime, CvePersonal As Integer, CveEstatusPersonal As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional CveMotivoBaja As Integer = -1, Optional Observaciones As String = "") As Boolean
         Dim Retorno As Boolean = False
         Data = New DataTable
         SqlDataAdapter("PA_RH_EstatusPersonalUp")
@@ -7407,6 +7408,8 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
             .Add("@CveEstatusPersonal", SqlDbType.Int).Value = CveEstatusPersonal
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveMotivoBaja", SqlDbType.Int).Value = CveMotivoBaja '
+            .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
         End With
         Try
             SqlAdapter.Fill(Data)

Compras/Compras.aspx.vb

@@ -1,10 +1,14 @@
 Option Explicit On
 Option Strict On
 
+Imports System.Data
+Imports System.Xml
 Imports System.Diagnostics
 Imports System.Globalization
 Imports System.IO
 Imports System.Threading.Tasks
+Imports Newtonsoft.Json
+Imports Extensiones
 
 
 Partial Class Compras_Compras

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 = ""

Empresas/152/Formatos/Cotizacion.rdlc

@@ -1955,6 +1955,7 @@
                 </TextRuns>
                 <Style>
                   <TextAlign>Center</TextAlign>
+                  <LineHeight>1pt</LineHeight>
                 </Style>
               </Paragraph>
             </Paragraphs>
@@ -3338,6 +3339,18 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="CFDIVersion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="RegimenFiscalCodigo">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="ID2">

Empresas/152/Formatos/Factura.rdlc

@@ -152,6 +152,10 @@
           <DataField>PorcentajeIVA</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
+        <Field Name="CodigoObjetoImpuesto">
+          <DataField>CodigoObjetoImpuesto</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
       </Fields>
       <rd:DataSetInfo>
         <rd:DataSetName>DsOC</rd:DataSetName>
@@ -448,13 +452,29 @@
                   <Paragraph>
                     <TextRuns>
                       <TextRun>
-                        <Value>Este documento es una representación impresa de un CFDI</Value>
+                        <Value>Este documento es una representación impresa de un CFDI                                                                                        </Value>
                         <Style>
                           <FontFamily>calibri</FontFamily>
                           <FontSize>8pt</FontSize>
                           <FontWeight>Bold</FontWeight>
                         </Style>
                       </TextRun>
+                      <TextRun>
+                        <Value>VERSION </Value>
+                        <Style>
+                          <FontFamily>MYRiad Pro</FontFamily>
+                          <FontSize>9.16pt</FontSize>
+                          <FontWeight>Bold</FontWeight>
+                        </Style>
+                      </TextRun>
+                      <TextRun>
+                        <Value>=Parameters!CFDIVersion.Value</Value>
+                        <Style>
+                          <FontFamily>MYRiad Pro</FontFamily>
+                          <FontSize>9.16pt</FontSize>
+                          <FontWeight>Bold</FontWeight>
+                        </Style>
+                      </TextRun>
                     </TextRuns>
                     <Style />
                   </Paragraph>
@@ -500,22 +520,25 @@
                   <Width>0.80359in</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>0.66404in</Width>
+                  <Width>0.58854in</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>2.60074in</Width>
+                  <Width>2.2924in</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>0.62586in</Width>
                 </TablixColumn>
                 <TablixColumn>
                   <Width>0.83102in</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>0.6403in</Width>
+                  <Width>0.55434in</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>0.69088in</Width>
+                  <Width>0.6529in</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>0.80447in</Width>
+                  <Width>0.75507in</Width>
                 </TablixColumn>
               </TablixColumns>
               <TablixRows>
@@ -735,6 +758,50 @@
                         </Textbox>
                       </CellContents>
                     </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox13">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Obj. Imp.</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Left</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox13</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>2pt</Width>
+                            </TopBorder>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>2pt</Width>
+                            </BottomBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Textbox53">
@@ -1095,6 +1162,39 @@
                         </Textbox>
                       </CellContents>
                     </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="CodigoObjetoImpuesto">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!CodigoObjetoImpuesto.Value</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>CodigoObjetoImpuesto</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="PU1">
@@ -1259,6 +1359,7 @@
                 <TablixMember />
                 <TablixMember />
                 <TablixMember />
+                <TablixMember />
               </TablixMembers>
             </TablixColumnHierarchy>
             <TablixRowHierarchy>
@@ -1275,7 +1376,7 @@
             <Top>1.92778in</Top>
             <Left>0.09836in</Left>
             <Height>0.36206in</Height>
-            <Width>8.16629in</Width>
+            <Width>8.23497in</Width>
             <ZIndex>1</ZIndex>
             <Style>
               <Border>
@@ -1908,6 +2009,32 @@
                 </TextRuns>
                 <Style />
               </Paragraph>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>Reg.fiscal: </Value>
+                    <Style>
+                      <FontFamily>Calibri</FontFamily>
+                      <FontWeight>SemiBold</FontWeight>
+                    </Style>
+                  </TextRun>
+                  <TextRun>
+                    <Value xml:space="preserve"> </Value>
+                    <Style>
+                      <FontFamily>Calibri</FontFamily>
+                      <FontWeight>Normal</FontWeight>
+                    </Style>
+                  </TextRun>
+                  <TextRun>
+                    <Value>=Parameters!RegimenFiscalCodigo.Value</Value>
+                    <Style>
+                      <FontFamily>Calibri</FontFamily>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox4</rd:DefaultName>
             <Top>3.97614cm</Top>
@@ -3773,6 +3900,18 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="CFDIVersion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="RegimenFiscalCodigo">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="ID2">

Empresas/159/Formatos/Cotizacion.rdlc

@@ -1870,7 +1870,7 @@
                     </Style>
                   </TextRun>
                   <TextRun>
-                    <Value>: La Paz (612) 146-3656 - La Paz II (612) 121-3185 - Los Cabos (624) 688 3552 - San José del Cabo (624) 247-4739 </Value>
+                    <Value>: La Paz (612) 146-3656 - La Paz II (612) 121-3185 - Los Cabos (624) 688 3552 - San José del Cabo (624) 247-4739</Value>
                     <Style>
                       <FontStyle>Normal</FontStyle>
                       <FontFamily>Calibri</FontFamily>
@@ -3321,6 +3321,18 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="CFDIVersion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="RegimenFiscalCodigo">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="ID2">

Empresas/160/Formatos/Cotizacion.rdlc

@@ -3308,6 +3308,18 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="CFDIVersion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="RegimenFiscalCodigo">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="ID2">

Empresas/161/Formatos/Cotizacion.rdlc

@@ -3321,6 +3321,18 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="CFDIVersion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="RegimenFiscalCodigo">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="ID2">

Empresas/162/Formatos/Cotizacion.rdlc

@@ -770,6 +770,7 @@
                                     <FontFamily>calibri</FontFamily>
                                     <FontSize>8.75pt</FontSize>
                                     <FontWeight>Normal</FontWeight>
+                                    <Format>#,0.00</Format>
                                   </Style>
                                 </TextRun>
                               </TextRuns>
@@ -1337,20 +1338,7 @@
               <Paragraph>
                 <TextRuns>
                   <TextRun>
-                    <Value>Tel:662-210-0041 662-210-3600</Value>
-                    <Style>
-                      <FontFamily>Calibri</FontFamily>
-                      <FontSize>8pt</FontSize>
-                      <FontWeight>Normal</FontWeight>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style />
-              </Paragraph>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>Correo:veracruz@econollantas.com</Value>
+                    <Value>tresrios@econollantas.com</Value>
                     <Style>
                       <FontFamily>Calibri</FontFamily>
                       <FontSize>8pt</FontSize>
@@ -1780,7 +1768,7 @@
             <Width>17.71415cm</Width>
             <ZIndex>13</ZIndex>
             <Visibility>
-              <Hidden>=IIF((Sum(IIF(Fields!CveClasificacion.Value = 20345,1,0), "DsOC") &gt; 0),false,true)</Hidden>
+              <Hidden>=IIF((Sum(IIF(Fields!CveClasificacion.Value = 21103,1,0), "DsOC") &gt; 0),false,true)</Hidden>
             </Visibility>
             <Style>
               <Border>
@@ -1869,7 +1857,7 @@
                     </Style>
                   </TextRun>
                   <TextRun>
-                    <Value>: La Paz (612) 146-3656 - La Paz II (612) 121-3185 - Los Cabos (624) 688 3552 - San José del Cabo (624) 247-4739   </Value>
+                    <Value>: La Paz (612) 146-3656 - La Paz II (612) 121-3185 - Los Cabos (624) 688 3552 - San José del Cabo (624) 247-4739  </Value>
                     <Style>
                       <FontStyle>Normal</FontStyle>
                       <FontFamily>Calibri</FontFamily>
@@ -1881,6 +1869,7 @@
                 </TextRuns>
                 <Style>
                   <TextAlign>Center</TextAlign>
+                  <LineHeight>1pt</LineHeight>
                 </Style>
               </Paragraph>
             </Paragraphs>
@@ -3320,6 +3309,18 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="CFDIVersion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="RegimenFiscalCodigo">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="ID2">

Empresas/166/Formatos/Cotizacion.rdlc

@@ -3321,6 +3321,18 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="CFDIVersion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="RegimenFiscalCodigo">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="ID2">

General/RepIndicadorResumen.aspx

@@ -127,7 +127,8 @@
                                             <Columns>
                                                 <asp:BoundField DataField="Gpo" HeaderText="Prod/Serv" ItemStyle-Width="300px" />
                                                 <asp:BoundField DataFormatString="{0:n}" DataField="Cantidad" ItemStyle-CssClass="margenbound" HeaderText="Cantidad" />
-                                                <asp:BoundField DataFormatString="{0:n}" DataField="SubTotal" ItemStyle-CssClass="margenbound" HeaderText="SubTotal" />
+                                                <asp:BoundField DataFormatString="{0:c}" DataField="SubTotal" ItemStyle-CssClass="margenbound" HeaderText="SubTotal" />
+                                                <asp:BoundField DataField="Abreviatura" ItemStyle-CssClass="margenbound" HeaderText="" />
                                             </Columns>
                                         </asp:GridView>
                                     </div>
@@ -183,9 +184,14 @@
                                             <Columns>
                                                 <asp:BoundField DataField="Gpo" HeaderText="Prod/Serv" ItemStyle-Width="300px" />
                                                 <asp:BoundField DataFormatString="{0:n}" DataField="Cantidad" ItemStyle-CssClass="margenbound" HeaderText="Cantidad" />
-                                                <asp:BoundField DataFormatString="{0:n}" DataField="SubTotal" ItemStyle-CssClass="margenbound" HeaderText="SubTotal" />
+                                                <asp:BoundField DataFormatString="{0:c}" DataField="SubTotal" ItemStyle-CssClass="margenbound" HeaderText="SubTotal" />
+                                                <asp:BoundField DataField="Abreviatura" ItemStyle-CssClass="margenbound" HeaderText="" />
                                             </Columns>
                                         </asp:GridView>
+                                        <%--<asp:GridView ID="GridView1" runat="server" GridLines="None"
+                                            CssClass="table table-striped table-advance table-hover ScrollAD " ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true"
+                                            AutoGenerateColumns="True" AllowPaging="False" ShowFooter="False">
+                                        </asp:GridView>--%>
                                     </div>
                                 </ContentTemplate>
                             </asp:UpdatePanel>
@@ -239,7 +245,8 @@
                                             <Columns>
                                                 <asp:BoundField DataField="Gpo" HeaderText="Prod/Serv" ItemStyle-Width="300px" />
                                                 <asp:BoundField DataFormatString="{0:n}" DataField="Cantidad" ItemStyle-CssClass="margenbound" HeaderText="Cantidad" />
-                                                <asp:BoundField DataFormatString="{0:n}" DataField="SubTotal" ItemStyle-CssClass="margenbound" HeaderText="SubTotal" />
+                                                <asp:BoundField DataFormatString="{0:c}" DataField="SubTotal" ItemStyle-CssClass="margenbound" HeaderText="SubTotal" />
+                                                <asp:BoundField DataField="Abreviatura" ItemStyle-CssClass="margenbound" HeaderText="" />
                                             </Columns>
                                         </asp:GridView>
                                     </div>
@@ -294,7 +301,8 @@
                                             AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
                                             <Columns>
                                                 <asp:BoundField DataField="Gpo" HeaderText="Cliente" />
-                                                <asp:BoundField DataFormatString="{0:n}" DataField="Saldo" ItemStyle-CssClass="margenbound" HeaderText="Saldo" />
+                                                <asp:BoundField DataFormatString="{0:c}" DataField="Saldo" ItemStyle-CssClass="margenbound" HeaderText="Saldo" />
+                                                <asp:BoundField DataField="CveMoneda" ItemStyle-CssClass="margenbound" HeaderText="" />
                                             </Columns>
                                         </asp:GridView>
                                     </div>
@@ -348,8 +356,9 @@
                                             CssClass="table table-striped table-advance table-hover ScrollAD " ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true"
                                             AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
                                             <Columns>
-                                                <asp:BoundField DataField="Gpo" HeaderText="Cliente" />
-                                                <asp:BoundField DataFormatString="{0:n}" DataField="Saldo" ItemStyle-CssClass="margenbound" HeaderText="Saldo" />
+                                                <asp:BoundField DataField="Gpo" HeaderText="Proveedor" />
+                                                <asp:BoundField DataFormatString="{0:c}" DataField="Saldo" ItemStyle-CssClass="margenbound" HeaderText="Saldo" />
+                                                <asp:BoundField DataField="CveMoneda" ItemStyle-CssClass="margenbound" HeaderText="" />
                                             </Columns>
                                         </asp:GridView>
                                     </div>
@@ -381,6 +390,66 @@
                         </div>
                     </div>
 
+                    <div class="row">
+                        <div class="col-md-6">
+                            <asp:UpdatePanel ID="UPIndicadores" runat="server" class="portlet light xspadding bordered " align="left" style="" UpdateMode="Conditional">
+                                <ContentTemplate>
+                                    <div class="portlet-title">
+                                        <div class="caption font-green">
+                                            <i class="icon-pin font-green"></i>
+                                            <span id="Span10" runat="server" class="caption-subject bold uppercase">Indicadores por Proveedor Productor</span>
+                                        </div>
+                                        <div class="actions">
+                                            <div class="btn-group">
+                                            </div>
+                                        </div>
+                                        <div class="tools">
+                                            <a href="javascript:;" class="collapse"></a>
+                                        </div>
+                                    </div>
+                                    <div class="portlet-body formnombottom">
+                                        <asp:GridView ID="GvIndicadores" runat="server" GridLines="None"
+                                            CssClass="table table-striped table-advance table-hover ScrollAD " ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true"
+                                            AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
+                                            <Columns>
+                                                <asp:BoundField DataField="RazonSocial" HeaderText="Proveedor" />
+                                                <asp:BoundField DataFormatString="{0:n}" DataField="Cantidad" ItemStyle-CssClass="margenbound" HeaderText="Cantidad" />
+                                                <asp:BoundField DataFormatString="{0:c}" DataField="SubTotal" ItemStyle-CssClass="margenbound" HeaderText="SubTotal" />
+                                                <asp:BoundField DataFormatString="{0:c}" DataField="PUPromedioKG" ItemStyle-CssClass="margenbound" HeaderText="PUnit/KG" />
+                                                <asp:BoundField DataFormatString="{0:n}" DataField="Merma" ItemStyle-CssClass="margenbound" HeaderText="Merma" />
+                                                <asp:BoundField DataFormatString="{0:c}" DataField="Saldo" ItemStyle-CssClass="margenbound" HeaderText="Saldo" />
+                                                <asp:BoundField DataFormatString="{0:c}" DataField="Abonado" ItemStyle-CssClass="margenbound" HeaderText="Abonado" />
+                                            </Columns>
+                                        </asp:GridView>
+                                    </div>
+                                </ContentTemplate>
+                            </asp:UpdatePanel>
+                        </div>
+
+                        <%--<div class="col-md-6">
+                            <asp:UpdatePanel ID="UPGraficaIndicadores" runat="server" class="portlet light xspadding bordered " align="center" style="" UpdateMode="Conditional" Visible="false">
+                                <ContentTemplate>
+                                    <div class="portlet-title">
+                                        <div class="caption font-green">
+                                            <i class="icon-pin font-green"></i>
+                                            <span id="Span11" runat="server" class="caption-subject bold uppercase">Indicadores por Proveedor Productor- Gráfica </span>
+                                        </div>
+                                        <div class="actions">
+                                            <div class="btn-group">
+                                            </div>
+                                        </div>
+                                        <div class="tools">
+                                            <a href="javascript:;" class="collapse"></a>
+                                        </div>
+                                    </div>
+                                    <div class="portlet-body formnombottom">
+                                        <div id="chartdiv_indicadores"></div>
+                                    </div>
+                                </ContentTemplate>
+                            </asp:UpdatePanel>
+                        </div>--%>
+                    </div>
+
                 </ContentTemplate>
                 <Triggers>
                     <asp:AsyncPostBackTrigger ControlID="btnConsultar" EventName="Click" />
@@ -435,6 +504,7 @@
             AmCharts.makeChart("chartdiv_cxp192", { ...chartconfig, dataProvider: json["CxP192"] }); // Compras x Producto ProveedorClasificacion 192
             AmCharts.makeChart("chartdiv_ccxc", { ...chartconfig, dataProvider: json["CCxC"] });  // Cuentas por Cobrar x Cliente
             AmCharts.makeChart("chartdiv_cpxp", { ...chartconfig, dataProvider: json["CPxP"] });  // Cuentas por Pagar x Proveedor
+            // AmCharts.makeChart("chartdiv_indicadores", { ...chartconfig, dataProvider: json["Indicadores"] });  // Indicadores por Proveedor Productor
 
             document.getElementById('amChartsAttribution').style.visibility = 'visible';
         }

General/RepIndicadorResumen.aspx.vb

@@ -77,6 +77,36 @@ Partial Class General_RepIndicadorResumen
             ViewState("CPxP") = value
         End Set
     End Property
+#If False Then
+    Private Property gv1 As DataTable
+        Get
+
+            If ViewState("gv1") Is Nothing Then
+                Return New DataTable
+            Else
+                Return DirectCast(ViewState("gv1"), DataTable)
+            End If
+
+        End Get
+        Set(value As DataTable)
+            ViewState("gv1") = value
+        End Set
+    End Property
+#End If
+    Private Property Indicadores As DataTable
+        Get
+
+            If ViewState("Indicadores") Is Nothing Then
+                Return New DataTable
+            Else
+                Return DirectCast(ViewState("Indicadores"), DataTable)
+            End If
+
+        End Get
+        Set(value As DataTable)
+            ViewState("Indicadores") = value
+        End Set
+    End Property
 
     Private Property DtColor As DataTable
         Get
@@ -126,11 +156,14 @@ Partial Class General_RepIndicadorResumen
 
         Dim ObjVentas As New ClsVentas
         Dim ObjCompras As New ClsCompras
-        Dim ObjMovtos As New ClsMovimientos()
+        Dim ObjMovtos As New ClsMovimientos
+        Dim ObjCitrus As New ClsCGame
 
         If ObjVentas.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.Trim(), TxtFechaF.Text.Trim(), MinFecha, MaxFecha, -1,
                                               -1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa, 5, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoCambio:=1) Then
             VxP = ObjVentas.DtResultados
+            VxP.DefaultView.Sort = "CveMoneda,SubTotal DESC"
+            VxP = VxP.DefaultView.ToTable
             GvVxP.DataSource = VxP
         Else
             GvVxP.DataSource = Nothing
@@ -140,6 +173,8 @@ Partial Class General_RepIndicadorResumen
         If ObjCompras.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.Trim(), TxtFechaF.Text.Trim(), -1, -1, -1,
                                               UsuarioActual.CveEmpresa, 5, -1, -1, "-1", "-1", -1, TipoCambio:=1, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveProveedorClasificacion:=192) Then
             CxP192 = ObjCompras.DtResultados
+            CxP192.DefaultView.Sort = "CveMoneda,SubTotal DESC"
+            CxP192 = CxP192.DefaultView.ToTable
             GvCxP192.DataSource = CxP192
         Else
             GvCxP192.DataSource = Nothing
@@ -149,6 +184,8 @@ Partial Class General_RepIndicadorResumen
         If ObjCompras.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.Trim(), TxtFechaF.Text.Trim(), -1, -1, -1,
                                               UsuarioActual.CveEmpresa, 5, -1, -1, "-1", "-1", -1, TipoCambio:=1, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveTipoProveedor:=1) Then
             CxP = ObjCompras.DtResultados
+            CxP.DefaultView.Sort = "CveMoneda,SubTotal DESC"
+            CxP = CxP.DefaultView.ToTable
             GvCxP.DataSource = CxP
         Else
             GvCxP.DataSource = Nothing
@@ -161,6 +198,8 @@ Partial Class General_RepIndicadorResumen
                     "-1", "-1", "-1", FechaCorte:=FechaCorte.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
 
             CCxC = ObjMovtos.DtResultados
+            CCxC.DefaultView.Sort = "CveMoneda,Saldo DESC"
+            CCxC = CCxC.DefaultView.ToTable
             GvCCxC.DataSource = CCxC
         Else
             GvCCxC.DataSource = Nothing
@@ -171,23 +210,48 @@ Partial Class General_RepIndicadorResumen
                     "-1", "-1", "-1", FechaCorte:=FechaCorte.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
 
             CPxP = ObjMovtos.DtResultados
+            CPxP.DefaultView.Sort = "CveMoneda,Saldo DESC"
+            CPxP = CPxP.DefaultView.ToTable
             GvCPxP.DataSource = CPxP
         Else
             GvCPxP.DataSource = Nothing
             CPxP = Nothing
         End If
 
+        'If ObjCompras.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.Trim(), TxtFechaF.Text.Trim(), -1, -1, -1,
+        '                                      UsuarioActual.CveEmpresa, 5, -1, -1, "-1", "-1", -1, TipoCambio:=1, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveProveedorClasificacion:=192) Then
+        '    gv1 = ObjCompras.DtResultados
+        '    GridView1.DataSource = gv1
+        'Else
+        '    GridView1.DataSource = Nothing
+        '    gv1 = Nothing
+        'End If
+
+        If ObjCitrus.GetIndicadores(UsuarioActual.CveEmpresa, TxtFechaI.Text, TxtFechaF.Text) Then
+
+            Indicadores = ObjCitrus.DtResultados
+            Indicadores.DefaultView.Sort = "Saldo DESC"
+            Indicadores = Indicadores.DefaultView.ToTable
+            GvIndicadores.DataSource = Indicadores
+        Else
+            GvIndicadores.DataSource = Nothing
+            Indicadores = Nothing
+        End If
+
         ObjVentas.Dispose()
         ObjCompras.Dispose()
         ObjMovtos.Dispose()
+        ObjCitrus.Dispose()
 
         GvVxP.DataBind()
         GvCxP192.DataBind()
         GvCxP.DataBind()
+        'GridView1.DataBind()
         GvCCxC.DataBind()
         GvCPxP.DataBind()
+        GvIndicadores.DataBind()
 
-        ' Mostrar gráficos solo si hay datos en su respectiva tabla
+        'Mostrar gráficos solo si hay datos en su respectiva tabla
         If GvVxP.Rows.Count > 0 Then
             UPGraficaVxP.Visible = True
         Else
@@ -213,8 +277,13 @@ Partial Class General_RepIndicadorResumen
         Else
             UPGraficaCPxP.Visible = False
         End If
+        'If GvIndicadores.Rows.Count > 0 Then
+        '    UPGraficaIndicadores.Visible = True
+        'Else
+        '    UPGraficaIndicadores.Visible = False
+        'End If
 
-        ' Si no había datos en ninguna tabla no cargar función de gráficos
+        'Si no había datos en ninguna tabla no cargar función de gráficos
         If (GvVxP.Rows.Count = 0 AndAlso GvCxP.Rows.Count = 0 AndAlso GvCxP192.Rows.Count = 0 AndAlso GvCCxC.Rows.Count = 0 AndAlso GvCPxP.Rows.Count = 0) Then Exit Sub
         GraficasPastel()
         'GraficasBarras()
@@ -228,8 +297,19 @@ Partial Class General_RepIndicadorResumen
     End Sub
     Protected Sub GvCxP_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCxP.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
-            If e.Row.DBCampo("Orden") = "" Then
+            'e.Row.Cells(0).Text = e.Row.DBCampo("Orden")
+            If e.Row.DBCampo("Orden") = "00ND" Then
                 e.Row.CssClass = "Totales"
+                e.Row.Cells(0).Text = "Total " + e.Row.DBCampo("Abreviatura")
+            End If
+        End If
+    End Sub
+    Protected Sub GvCxP192_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCxP192.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            'e.Row.Cells(0).Text = e.Row.DBCampo("Orden")
+            If e.Row.DBCampo("Orden") = "00ND" Then
+                e.Row.CssClass = "Totales"
+                e.Row.Cells(0).Text = "Total " + e.Row.DBCampo("Abreviatura")
             End If
         End If
     End Sub
@@ -238,6 +318,8 @@ Partial Class General_RepIndicadorResumen
             If e.Row.DBCampo("Orden") = "" Then
                 e.Row.CssClass = "Totales"
             End If
+            'TODO: Sería mejor usar la Abreviatura de la tabla, pero habría que extender PA_Comp_RepCxP para incluir la columna Abreviatura
+            e.Row.Cells(2).Text = $"{GlobalDTMonedas().FiltraParametros($"CveMoneda = {e.Row.DBCampo("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
         End If
     End Sub
     Protected Sub GvCPxP_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCPxP.RowDataBound
@@ -245,8 +327,17 @@ Partial Class General_RepIndicadorResumen
             If e.Row.DBCampo("Orden") = "" Then
                 e.Row.CssClass = "Totales"
             End If
+            'TODO: Sería mejor usar la Abreviatura de la tabla, pero habría que extender PA_Comp_RepCxP para incluir la columna Abreviatura
+            e.Row.Cells(2).Text = $"{GlobalDTMonedas().FiltraParametros($"CveMoneda = {e.Row.DBCampo("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
         End If
     End Sub
+    Protected Sub GvIndicadores_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvIndicadores.RowDataBound
+        'If e.Row.RowType = DataControlRowType.DataRow Then
+        '    If e.Row.DBCampo("Orden") = "" Then
+        '        e.Row.CssClass = "Totales"
+        '    End If
+        'End If
+    End Sub
     Private Sub CreaDataTableColor()
         DtColor = New DataTable
         DtColor.Columns.Add("Color")
@@ -339,7 +430,7 @@ Partial Class General_RepIndicadorResumen
                 Row("Texto") = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
                 Row("Valor") = Dr("SubTotal").ToString.FormatoNumero
                 Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
-                Row("Moneda") = Dr("Moneda").ToString
+                Row("Moneda") = Dr("Abreviatura").ToString
                 DtVxP.Rows.Add(Row)
                 RowColorIndex += 1
                 If RowColorIndex = 17 Then
@@ -347,7 +438,7 @@ Partial Class General_RepIndicadorResumen
                 End If
             End If
         Next
-        Dim query_vxp = From s In DtVxP.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()}
+        Dim query_vxp = From s In DtVxP.AsEnumerable().Take(25) Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()}
 
         'Compras x Producto TipoProveedor=1
         DtCxP.Reset()
@@ -357,13 +448,13 @@ Partial Class General_RepIndicadorResumen
         DtCxP.Columns.Add("Moneda")
         RowColorIndex = 0
         For Each Dr As DataRow In CxP.Rows
-            If Not Dr("Orden").ToString = "" Then
+            If Not Dr("Orden").ToString = "00ND" Then
                 Dim Row As DataRow = Nothing
                 Row = DtCxP.NewRow()
                 Row("Texto") = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
                 Row("Valor") = Dr("SubTotal").ToString.FormatoNumero
                 Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
-                Row("Moneda") = Dr("Moneda").ToString
+                Row("Moneda") = Dr("Abreviatura").ToString
                 DtCxP.Rows.Add(Row)
                 RowColorIndex += 1
                 If RowColorIndex = 17 Then
@@ -371,7 +462,7 @@ Partial Class General_RepIndicadorResumen
                 End If
             End If
         Next
-        Dim query_cxp = From s In DtCxP.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()}
+        Dim query_cxp = From s In DtCxP.AsEnumerable().Take(25) Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()}
 
         'Compras x Producto ProveedorClasificacion=192
         DtCxP192.Reset()
@@ -381,13 +472,13 @@ Partial Class General_RepIndicadorResumen
         DtCxP192.Columns.Add("Moneda")
         RowColorIndex = 0
         For Each Dr As DataRow In CxP192.Rows
-            If Not Dr("Orden").ToString = "" Then
+            If Not Dr("Orden").ToString = "00ND" Then
                 Dim Row As DataRow = Nothing
                 Row = DtCxP192.NewRow()
                 Row("Texto") = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
                 Row("Valor") = Dr("SubTotal").ToString.FormatoNumero
                 Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
-                Row("Moneda") = Dr("Moneda").ToString
+                Row("Moneda") = Dr("Abreviatura").ToString
                 DtCxP192.Rows.Add(Row)
                 RowColorIndex += 1
                 If RowColorIndex = 17 Then
@@ -395,7 +486,7 @@ Partial Class General_RepIndicadorResumen
                 End If
             End If
         Next
-        Dim query_cxp192 = From s In DtCxP192.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()}
+        Dim query_cxp192 = From s In DtCxP192.AsEnumerable().Take(25) Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()}
 
         'Alert(Newtonsoft.Json.JsonConvert.SerializeObject(CCxC.Rows))
 
@@ -413,7 +504,7 @@ Partial Class General_RepIndicadorResumen
                 Row("Texto") = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
                 Row("Valor") = Dr("Saldo").ToString.FormatoNumero
                 Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
-                Row("Moneda") = Dr("Moneda").ToString
+                Row("Moneda") = $"{GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
                 DtCCxC.Rows.Add(Row)
                 RowColorIndex += 1
                 If RowColorIndex = 17 Then
@@ -421,7 +512,7 @@ Partial Class General_RepIndicadorResumen
                 End If
             End If
         Next
-        Dim query_ccxc = From s In DtCCxC.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()}
+        Dim query_ccxc = From s In DtCCxC.AsEnumerable().Take(25) Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()}
 
         'Cuentas por pagar x Proveedor
         DtCPxP.Reset()
@@ -437,7 +528,7 @@ Partial Class General_RepIndicadorResumen
                 Row("Texto") = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
                 Row("Valor") = Dr("Saldo").ToString.FormatoNumero
                 Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
-                Row("Moneda") = Dr("Moneda").ToString
+                Row("Moneda") = $"{GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
                 DtCPxP.Rows.Add(Row)
                 RowColorIndex += 1
                 If RowColorIndex = 17 Then
@@ -445,9 +536,11 @@ Partial Class General_RepIndicadorResumen
                 End If
             End If
         Next
-        Dim query_cpxp = From s In DtCPxP.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()}
+        Dim query_cpxp = From s In DtCPxP.AsEnumerable().Take(25) Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()}
 
-        'Serializar datos agrupándolos en su respectivo DataTable, todos en un solo JSON
+        'TODO: Indicadores x Proveedor -- Determinar qué poner en la gráfica con E172
+
+        'Serializar datos agrupándolos por su respectivo DataTable, todos en un solo JSON
         Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(New With {.VxP = query_vxp, .CxP = query_cxp, .CxP192 = query_cxp192, .CCxC = query_ccxc, .CPxP = query_cpxp})
         'Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(New With {.VxP = query_vxp, .CCxC = New String() {}})
         'Alert(json)

Nomina/Nomina.aspx.cs

@@ -2610,6 +2610,8 @@ public partial class Nomina_Nomina2 : ClsPaginas
         {
             if (objnom.GETPersonalVacResumen(UsuarioActual.Empresa.CveEmpresa, SRCvePersonal))
             {
+                DdlVacPeriodo.DataSource = objnom.DtResultados;
+                DdlVacPeriodo.DataBind();
                 DataRow drow = objnom.DtResultados.FiltroPrimero("Selected =1");
                 if (drow != null)
                 {
@@ -2618,6 +2620,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
                 }
             }
         }
+        UPSRModalVacaciones.Update();
         RegistraScript("$('#ModalSRVacaciones').modal()");
     }
 

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

RH/Personal.aspx

@@ -109,7 +109,14 @@
             <li>
                 <asp:LinkButton ID="LnkModsalario" OnClick="LnkModsalario_Click" runat="server"><i class="fa fa-pencil"></i> Modificar salario </asp:LinkButton>
             </li>
+            
+            <li>
+                <asp:LinkButton ID="LnkContratoAgropecuaria" OnClick="LnkContratoAgropecuaria_Click" runat="server"><i class="fa fa-list-alt"></i> Contrato </asp:LinkButton>
+            </li>
         </ContentTemplate>
+        <Triggers>
+            <asp:PostBackTrigger ControlID="LnkContratoAgropecuaria" />
+        </Triggers>
     </asp:UpdatePanel>
 
 

RH/Personal.aspx.vb

@@ -847,7 +847,7 @@ Partial Class RH_Personal
             If UsuarioActual.CveEmpresa = 72 OrElse UsuarioActual.CveEmpresa = 80 Then
                 pnlSalarioIMSS.Visible = False
             End If
-            ' 
+            LnkContratoAgropecuaria.Visible = (UsuarioActual.CveEmpresa.Contiene(1, 158))
             Using objno = New ClsNominas
                 objno.GetConceptos()
                 dtNomConceptos = objno.DtResultados
@@ -7478,6 +7478,68 @@ Partial Class RH_Personal
             Alert("Se guardo correctamente", TipoMensaje.MsgInformacion)
             CargaDatos()
         End If
+    End Sub
+
+    Protected Sub LnkContratoAgropecuaria_Click(sender As Object, e As EventArgs)
+        Dim RutaArchivo As String = "C:\Proyectos\SIGGIT\General\CONTRATO.doc"
+
+        Dim objGemBoxDocument As New clsGemBoxDocument(RutaArchivo)
+
+        Dim ObjRH As New ClsRH
+
+        If ObjRH.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) Then
+            Dim Tags As New List(Of TagsDocumentos)
+
+            Tags.Add(New TagsDocumentos("{NombreCompleto}", ObjRH.NombreCompleto))
+            Tags.Add(New TagsDocumentos("{años}", (DateTime.Now.Year - ObjRH.FechaNacimiento.Year).ToString()))
+            Tags.Add(New TagsDocumentos("{SubProyecto}", DdlSubProyectoAsignado.SelectedItem.Text))
+            Tags.Add(New TagsDocumentos("{EstadoCivil}", DdlEstadoCivil.SelectedItem.Text))
+
+            Tags.Add(New TagsDocumentos("{CiudadOrigen}", TxtCiudad.Text))
+            Tags.Add(New TagsDocumentos("{RFC}", ObjRH.RFC))
+
+            Tags.Add(New TagsDocumentos("{NumeroDia}", String.Format("{0:dd}", ObjRH.FechaIngreso)))
+            Tags.Add(New TagsDocumentos("{MesLetra}", String.Format("{0:MMMM}", ObjRH.FechaIngreso)))
+            Tags.Add(New TagsDocumentos("{Ejercicio}", String.Format("{0:yyyy}", ObjRH.FechaIngreso)))
+            objGemBoxDocument.SustituirTags(Tags)
+
+        End If
+        ObjRH.Dispose()
+
+
+
+
+        objGemBoxDocument.GuardarStreamPDF()
+
+
+        Dim objbyte = objGemBoxDocument.GetBytesDocumento
+
+
+
+
+        Try
+            Response.Buffer = True
+            Response.Clear()
+            Response.ContentType = "application/pdf"
+            Response.AddHeader("content-disposition", String.Format("{0}; filename={1}.{2}", "attachment", "Contrato.pdf", "pdf"))
+            Response.BinaryWrite(objbyte) ' create the file
+            Response.Flush() ' send it to the client to download
+            objbyte = Nothing
+            HttpContext.Current.Response.SuppressContent = True
+            HttpContext.Current.ApplicationInstance.CompleteRequest()
+            'HttpContext.Current.Response.End()
+        Catch ex As Exception
+
+            If UsuarioActual.CveRol = 1 Then
+                Alert($"Error: {ex.Message}  | Descripcion: {If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException.Message IsNot Nothing, ex.InnerException.InnerException.Message, If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, "Sin descripcion"))}", TipoMensaje.MsgAdvertencia)
+            Else
+                Alert("Ocurrió un error al generar la descarga. Favor de contactar a soporte tecnico cod:'IMPDFclspag'", TipoMensaje.MsgAdvertencia)
+            End If
+        End Try
+
+
+
+
     End Sub
 End Class
 

Ventas/RepVentaDetalle.aspx.vb

@@ -985,7 +985,7 @@ Partial Class RepVentaDetalle
         Response.End()
     End Sub
     Private Function DescargarFactura(CveVenta As Integer, CveEmpresa As Integer, CveUsuarioCreo As Integer) As Byte()
-        Dim Url = New Uri(String.Format("{0}Compras/PopUpVerFactura.aspx?P={1}", "http://localhost:85/", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta))))
+        Dim Url = New Uri(String.Format("{0}Compras/PopUpVerFactura.aspx?P={1}", "https://sig.adssistemas.mx/", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta))))
         Dim File As Byte() = Nothing
         Try
             Using httpClient = New HttpClient()

Ventas/Ventas.aspx.vb

@@ -8657,10 +8657,10 @@ Partial Class Ventas
                 Exit Sub
             End If
 
-            If Not LblRFC.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlUsoCFDI.SelectedValue = "23" Then
-                Alert("El uso cfdi del cliente no puede ser <b>'S01 - Sin efectos fiscales'</b> si no se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
-                Exit Sub
-            End If
+            'If Not LblRFC.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlUsoCFDI.SelectedValue = "23" Then
+            '    Alert("El uso cfdi del cliente no puede ser <b>'S01 - Sin efectos fiscales'</b> si no se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
+            '    Exit Sub
+            'End If
 
             Dim EsPersonaMoral As Boolean = Me.TipoPersona
             Dim DtUsosCFDI = GlobalDTSATUsosCFDI(If(Not EsPersonaMoral, 1, 0), RegimenFiscalReceptor:=RegimenFiscalCliente).FiltraParametros($"CveUsoCFDI = {DdlUsoCFDI.SelectedValue}")
@@ -22787,6 +22787,8 @@ Partial Class Ventas
 
             DdlRegimenFiscalCliente.DataSource = GlobalDTRegimenesFiscales()
             DdlRegimenFiscalCliente.DataBind()
+            DdlRegimenFiscalCliente.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
             CargaComboCFDICliente()
 
         End If