Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Acumuladores/RepEntradasUsadosClientes.aspx

@@ -1,18 +1,28 @@
 <%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepEntradasUsadosClientes.aspx.vb" Inherits="Acumuladores_RepEntradasUsadosClientes" %>
 
-<asp:Content ID="Content1" ContentPlaceHolderID="CP" Runat="Server">
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
 </asp:Content>
-<asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
 </asp:Content>
-<asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
+<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
 </asp:Content>
-<asp:Content ID="Content4" ContentPlaceHolderID="HB" Runat="Server">
+<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
+    <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <li>
+                <asp:LinkButton runat="server" ID="BtnImprimir" OnClick="BtnImprimir_Click" data-toggle="tooltip" data-placement="left" title="Agregar un Defecto" Text="<i class='fa fa-file-pdf-o'></i>Imprimir"></asp:LinkButton>
+            </li>
+        </ContentTemplate>
+        <Triggers>
+            <asp:PostBackTrigger ControlID="BtnImprimir" />
+        </Triggers>
+    </asp:UpdatePanel>
 </asp:Content>
-<asp:Content ID="Content5" ContentPlaceHolderID="H" Runat="Server">
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
 </asp:Content>
-<asp:Content ID="Content6" ContentPlaceHolderID="HA" Runat="Server">
+<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
 </asp:Content>
-<asp:Content ID="Content7" ContentPlaceHolderID="C" Runat="Server">
+<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">
@@ -56,10 +66,21 @@
                 </div>
 
             </div>
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+    <asp:UpdatePanel ID="UpDatos" UpdateMode="Conditional" runat="server">
+        <ContentTemplate>
+            <asp:GridView runat="server" ID="GvDatos" data-sort="true" AutoGenerateColumns="False"  EmptyDataText="No se encontraron datos con los filtros seleccionados" ToolTip="Listado de Movimientos" DataKeyNames="Codigo,Codigo_Clientes,Total" CssClass="Widthall table table-striped table-hover ScrollAD" GridLines="None">
+                <Columns>
+                    <asp:BoundField HeaderText="Tipo" DataField="Codigo"/>
+                    <asp:BoundField HeaderText="Clientes/Grupos" DataField="Codigo_Clientes"/>
+                    <asp:BoundField HeaderText="Cantidad" DataField="Total"/>
+                </Columns>
+            </asp:GridView>
         </ContentTemplate>
     </asp:UpdatePanel>
-    <asp:GridView runat="server" id="GvDatos"></asp:GridView>
 </asp:Content>
-<asp:Content ID="Content8" ContentPlaceHolderID="JS" Runat="Server">
+<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
 </asp:Content>
 

Acumuladores/RepEntradasUsadosClientes.aspx.vb

@@ -1,9 +1,20 @@
 Imports Extensiones
+Imports System.Data
 Imports System
+Imports Microsoft.Reporting.WebForms
 
 Partial Class Acumuladores_RepEntradasUsadosClientes
     Inherits ClsPaginas
 
+    Private Property DatosEntradasUsadosClientes() As DataTable
+        Get
+            Return CType(ViewState("DatosEntradasUsados"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DatosEntradasUsados") = value
+        End Set
+    End Property
+
     Private Sub Acumuladores_EntradasUsados_Load(sender As Object, e As EventArgs) Handles Me.Load
 
         If Not Page.IsPostBack Then
@@ -38,11 +49,44 @@ Partial Class Acumuladores_RepEntradasUsadosClientes
         Dim Acum As New ClsAcumuladores
 
         If Acum.EntradasUsadosClientesRep(CveAlmacen, FechaI, FechaF, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
-            GvDatos.datasource = Acum.DtResultados
+            GvDatos.DataSource = Acum.DtResultados
+            DatosEntradasUsadosClientes = Acum.DtResultados.FiltraParametros("Codigo_Clientes <> 'Total:'")
         End If
 
         Acum.Dispose()
-        GvDatos.databind
+        GvDatos.DataBind()
+        UpDatos.Update()
+    End Sub
+
+    Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            If e.Row.DBCampo("EsHeader").ToString = "-1" Then
+                e.Row.CssClass = "SubTotales2"
+            End If
+
+        End If
+    End Sub
+
+    Protected Sub BtnImprimir_Click(sender As Object, e As EventArgs)
+
+
+        Dim Dia As String = {"lunes", "martes", "miércoles", "jueves", "viernes", "sábado", "domingo"}(If((Weekday(Today) - 2) = -1, 7, Weekday(Today) - 2))
+        Dim Mes As String = {"enero", "febrero", "marzo", "abril", "mayo", "junio", "julio", "agosto", "septiembre", "octubre", "noviembre", "diciembre"}(Month(Today) - 1)
+
+        Dim FechaConFormato As String = String.Format("{0}, {1} de {2} de {3}", Dia, Month(Today), Mes, Year(Today))
+
+        Dim params As New List(Of ReportParameter)
+
+        params.Add(New ReportParameter("Direccion", "Tamaulipas Esq. con Guadalupe Victoria"))
+        params.Add(New ReportParameter("FechaConFormato", FechaConFormato))
+        params.Add(New ReportParameter("FechaInicial", TxtFechaI.Text))
+        params.Add(New ReportParameter("FechaFinal", TxtFechaF.Text))
+
+        Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DatosEntradasUsadosClientes}
+
+        ImprimirPDF(String.Format("Empresas/{0}/Formatos/RepEntradasUsadosClientes.rdlc", UsuarioActual.CveEmpresa), DatosEntradasUsadosClientes, params, "prueba", "PDF")
 
     End Sub
+
 End Class

App_Code/ClsAcumuladores.vb

@@ -895,6 +895,33 @@ Public Class ClsAcumuladores
     End Function
 
 
+    Public Function GetRepInicadorDiario(FechaInicio As Date, FechaFin As Date, CveSubProeycto As Integer, CveEmpresa As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+
+        SqlDataAdapter("PA_Acum_RepInicadorDiarioGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
+            .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
+            .Add("@CveSubProeycto", SqlDbType.Int).Value = CveSubProeycto
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+
+            SqlAdapter.Fill(Data)
+            Retorno = True
+
+        Catch ex As SqlException
+
+            OnError("Ocurrió un error al consultar los datos. ", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+
+        End Try
+
+        Return Retorno
+    End Function
+
 
 
 #Region " IDisposable Support "

App_Code/ClsPaginas.vb

@@ -4581,6 +4581,7 @@ Public Class ClsPaginas
             PaginaDict.Add("/Acumuladores/CatTiposUso.aspx".ToUpper(), 1034)
             PaginaDict.Add("/Acumuladores/CatFoliosGarantia.aspx".ToUpper(), 1035)
             PaginaDict.Add("/Acumuladores/CatGarantiasMeses.aspx".ToUpper(), 1036)
+            PaginaDict.Add("/Acumuladores/RepIndicadorDiario.aspx".ToUpper(), 2055)
             'PaginaDict.Add("/Acumuladores/EntradasUsados.aspx".ToUpper(), 543)
             PaginaDict.Add("/Acumuladores/EntradasUsadosResumenRep.aspx".ToUpper(), 1032)
 

App_Code/ClsProductosServicios.vb

@@ -27,6 +27,7 @@ Public Class ClsProductosServicios
 
     Public Property CvePS As Integer
     Public Property CveClasificacion As Integer
+    Public Property Clasificacion As String
     Public Property CveUnidadMedida As Integer
     Public Property CveSATPS As Integer
     Public Property SATClavePS As String
@@ -226,6 +227,7 @@ Public Class ClsProductosServicios
             If Data.Rows.Count > 0 Then
                 Me.CvePS = Data.Rows(0)("CvePS").ToString().ToEntero
                 Me.CveClasificacion = Data.Rows(0)("CveClasificacion").ToString.ToEntero
+                Me.Clasificacion = Data.Rows(0)("Clasificacion").ToString
                 CveUnidadMedida = Data.Rows(0)("CveUnidadMedida").ToString.ToEntero
                 CveSATPS = Data.Rows(0)("CveSATPS").ToString.ToEntero
                 Me.SATClavePS = Data.Rows(0)("SATClavePS").ToString

Compras/Compras.aspx.vb

@@ -6639,10 +6639,10 @@ Partial Class Compras_Compras
 
                                                                             IdCtaContable = CtaProveedorExtranjera
                                                                             CveCuenta = CveCuentaProveedorExtranjera
-                                                                            If ObjConta.AddPrePolizasDetalle(CvePrePolizaTemp, False, importeMovimientoNC, Referencia, 17, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioFactura, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+                                                                            If ObjConta.AddPrePolizasDetalle(CvePrePolizaTemp, False, importeMovimientoNC, Referencia, 272, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioFactura, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza, CveCompraAmortizacion:=CveCompra) Then
                                                                                 IdCtaContable = CtaProveedorComplementaria
                                                                                 CveCuenta = CveCuentaProveedorComplementaria
-                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTemp, False, importeMNNC - importeMovimientoNC, Referencia, 206, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC - importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioFactura, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTemp, False, importeMNNC - importeMovimientoNC, Referencia, 206, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC - importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioFactura, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza, CveCompraAmortizacion:=CveCompra) Then
                                                                                     ErrorPrepoliza = True
                                                                                     Exit For
                                                                                 End If

Empresas/Grales/Formatos/SobreRecibo.rdlc

@@ -1,5 +1,91 @@
 <?xml version="1.0" encoding="utf-8"?>
-<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2008/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
+<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
+  <AutoRefresh>0</AutoRefresh>
+  <DataSources>
+    <DataSource Name="DataSet">
+      <ConnectionProperties>
+        <DataProvider>System.Data.DataSet</DataProvider>
+        <ConnectString>/* Local Connection */</ConnectString>
+      </ConnectionProperties>
+      <rd:DataSourceID>f55ecc33-47ff-4fc5-a233-35ea9bb1f578</rd:DataSourceID>
+    </DataSource>
+  </DataSources>
+  <DataSets>
+    <DataSet Name="DataSet1">
+      <Query>
+        <DataSourceName>DataSet</DataSourceName>
+        <CommandText>/* Local Query */</CommandText>
+      </Query>
+      <Fields>
+        <Field Name="ConceptoP">
+          <DataField>ConceptoP</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="LabelValorP">
+          <DataField>LabelValorP</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="CveConceptoP">
+          <DataField>CveConceptoP</DataField>
+          <rd:TypeName>System.Int32</rd:TypeName>
+        </Field>
+        <Field Name="ImporteP">
+          <DataField>ImporteP</DataField>
+          <rd:TypeName>System.Double</rd:TypeName>
+        </Field>
+        <Field Name="ValorP">
+          <DataField>ValorP</DataField>
+          <rd:TypeName>System.Double</rd:TypeName>
+        </Field>
+        <Field Name="EstatusP">
+          <DataField>EstatusP</DataField>
+          <rd:TypeName>System.Int32</rd:TypeName>
+        </Field>
+        <Field Name="ConceptoD">
+          <DataField>ConceptoD</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="LabelValorD">
+          <DataField>LabelValorD</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="CveConceptoD">
+          <DataField>CveConceptoD</DataField>
+          <rd:TypeName>System.Int32</rd:TypeName>
+        </Field>
+        <Field Name="ImporteD">
+          <DataField>ImporteD</DataField>
+          <rd:TypeName>System.Double</rd:TypeName>
+        </Field>
+        <Field Name="ValorD">
+          <DataField>ValorD</DataField>
+          <rd:TypeName>System.Double</rd:TypeName>
+        </Field>
+        <Field Name="EstatusD">
+          <DataField>EstatusD</DataField>
+          <rd:TypeName>System.Int32</rd:TypeName>
+        </Field>
+        <Field Name="NoConceptoP">
+          <DataField>NoConceptoP</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="NoConceptoD">
+          <DataField>NoConceptoD</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+      </Fields>
+      <rd:DataSetInfo>
+        <rd:DataSetName>DataSet</rd:DataSetName>
+        <rd:SchemaPath>C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DataSet.xsd</rd:SchemaPath>
+        <rd:TableName>DataTable1</rd:TableName>
+        <rd:TableAdapterFillMethod />
+        <rd:TableAdapterGetDataMethod />
+        <rd:TableAdapterName />
+      </rd:DataSetInfo>
+    </DataSet>
+  </DataSets>
+  <ReportSections>
+    <ReportSection>
       <Body>
         <ReportItems>
           <Tablix Name="Tablix1">
@@ -603,7 +689,7 @@
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                              <Value>Dias Trabajados</Value>
+                                  <Value>Días Trabajados</Value>
                                   <Style />
                                 </TextRun>
                               </TextRuns>
@@ -1272,7 +1358,7 @@
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                              <Value>Dias Vacaciones</Value>
+                                  <Value>Días Vacaciones</Value>
                                   <Style />
                                 </TextRun>
                               </TextRuns>
@@ -1319,6 +1405,7 @@
                             <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
+                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                     <TablixCell>
@@ -1457,6 +1544,229 @@
                     </TablixCell>
                     <TablixCell />
                     <TablixCell />
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox8">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style />
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox8</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="Textbox9">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Días Incapacidad</Value>
+                                  <Style />
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox9</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="Textbox10">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!DiasIncapacidad.Value</Value>
+                                  <Style />
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox10</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="Textbox11">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style />
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox11</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="Textbox12">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style />
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox12</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <RightBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </RightBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.6cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox13">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Afi I.M.S.S.</Value>
+                                  <Style />
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox13</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <LeftBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </LeftBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>2</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox175">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!NSS.Value</Value>
+                                  <Style />
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox175</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>3</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell />
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Textbox151">
@@ -1574,7 +1884,7 @@
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                              <Value>Afi I.M.S.S.</Value>
+                                  <Value />
                                   <Style />
                                 </TextRun>
                               </TextRuns>
@@ -1603,21 +1913,21 @@
                     <TablixCell />
                     <TablixCell>
                       <CellContents>
-                    <Textbox Name="Textbox175">
+                        <Textbox Name="Textbox18">
                           <CanGrow>true</CanGrow>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                              <Value>=Parameters!NSS.Value</Value>
+                                  <Value />
                                   <Style />
                                 </TextRun>
                               </TextRuns>
                               <Style />
                             </Paragraph>
                           </Paragraphs>
-                      <rd:DefaultName>Textbox175</rd:DefaultName>
+                          <rd:DefaultName>Textbox18</rd:DefaultName>
                           <Style>
                             <Border>
                               <Style>None</Style>
@@ -3312,7 +3622,6 @@
                             <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
-                    <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                     <TablixCell>
@@ -4607,6 +4916,9 @@
                 <TablixMember>
                   <KeepWithGroup>After</KeepWithGroup>
                 </TablixMember>
+                <TablixMember>
+                  <KeepWithGroup>After</KeepWithGroup>
+                </TablixMember>
                 <TablixMember>
                   <Group Name="Details" />
                   <TablixMembers>
@@ -4654,7 +4966,7 @@
             </TablixRowHierarchy>
             <DataSetName>DataSet1</DataSetName>
             <Left>0.07625cm</Left>
-        <Height>14.59375cm</Height>
+            <Height>15.19375cm</Height>
             <Width>20.26021cm</Width>
             <Style>
               <Border>
@@ -4663,7 +4975,7 @@
             </Style>
           </Tablix>
         </ReportItems>
-    <Height>5.74557in</Height>
+        <Height>5.98179in</Height>
         <Style />
       </Body>
       <Width>8.00648in</Width>
@@ -4677,90 +4989,8 @@
         <ColumnSpacing>0.13cm</ColumnSpacing>
         <Style />
       </Page>
-  <AutoRefresh>0</AutoRefresh>
+    </ReportSection>
-  <DataSources>
+  </ReportSections>
-    <DataSource Name="DataSet">
-      <ConnectionProperties>
-        <DataProvider>System.Data.DataSet</DataProvider>
-        <ConnectString>/* Local Connection */</ConnectString>
-      </ConnectionProperties>
-      <rd:DataSourceID>f55ecc33-47ff-4fc5-a233-35ea9bb1f578</rd:DataSourceID>
-    </DataSource>
-  </DataSources>
-  <DataSets>
-    <DataSet Name="DataSet1">
-      <Query>
-        <DataSourceName>DataSet</DataSourceName>
-        <CommandText>/* Local Query */</CommandText>
-      </Query>
-      <Fields>
-        <Field Name="ConceptoP">
-          <DataField>ConceptoP</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="LabelValorP">
-          <DataField>LabelValorP</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="CveConceptoP">
-          <DataField>CveConceptoP</DataField>
-          <rd:TypeName>System.Int32</rd:TypeName>
-        </Field>
-        <Field Name="ImporteP">
-          <DataField>ImporteP</DataField>
-          <rd:TypeName>System.Double</rd:TypeName>
-        </Field>
-        <Field Name="ValorP">
-          <DataField>ValorP</DataField>
-          <rd:TypeName>System.Double</rd:TypeName>
-        </Field>
-        <Field Name="EstatusP">
-          <DataField>EstatusP</DataField>
-          <rd:TypeName>System.Int32</rd:TypeName>
-        </Field>
-        <Field Name="ConceptoD">
-          <DataField>ConceptoD</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="LabelValorD">
-          <DataField>LabelValorD</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="CveConceptoD">
-          <DataField>CveConceptoD</DataField>
-          <rd:TypeName>System.Int32</rd:TypeName>
-        </Field>
-        <Field Name="ImporteD">
-          <DataField>ImporteD</DataField>
-          <rd:TypeName>System.Double</rd:TypeName>
-        </Field>
-        <Field Name="ValorD">
-          <DataField>ValorD</DataField>
-          <rd:TypeName>System.Double</rd:TypeName>
-        </Field>
-        <Field Name="EstatusD">
-          <DataField>EstatusD</DataField>
-          <rd:TypeName>System.Int32</rd:TypeName>
-        </Field>
-        <Field Name="NoConceptoP">
-          <DataField>NoConceptoP</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="NoConceptoD">
-          <DataField>NoConceptoD</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-      </Fields>
-      <rd:DataSetInfo>
-        <rd:DataSetName>DataSet</rd:DataSetName>
-        <rd:SchemaPath>C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DataSet.xsd</rd:SchemaPath>
-        <rd:TableName>DataTable1</rd:TableName>
-        <rd:TableAdapterFillMethod />
-        <rd:TableAdapterGetDataMethod />
-        <rd:TableAdapterName />
-      </rd:DataSetInfo>
-    </DataSet>
-  </DataSets>
   <ReportParameters>
     <ReportParameter Name="Codigo">
       <DataType>String</DataType>
@@ -4839,6 +5069,12 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="DiasIncapacidad">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <rd:ReportUnitType>Cm</rd:ReportUnitType>
   <rd:ReportID>40c94aad-a12a-44fb-ab0d-ea36a9656792</rd:ReportID>

General/SaldosIniciales.aspx.vb

@@ -681,7 +681,7 @@ Partial Class General_SaldosIniciales
 
                     Dim CveTipoPS As Integer = If(TipoPS.ToUpper = "PRODUCTO", 2, 1)
                     Dim CveClasificacion As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion}'").ToString.ToEntero
-                    Dim CveUnidadMedida As Integer = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"UnidadMedida = '{UnidadMedida}'").ToString.ToEntero
+                    Dim CveUnidadMedida As Integer = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"UnidadMedida = '{UnidadMedida}' OR Abreviatura = '{UnidadMedida}'").ToString.ToEntero
                     Dim CveSATPS As Integer = GlobalDTPSATPS.FiltroPrimeroValor("CveSATPS", $"SATClavePS = '{SATClavePS}'").ToString.ToEntero
                     Dim CveTamaño As Integer = GlobalDTAcumTamaños.FiltroPrimeroValor("CveTamaño", $"Tamaño = '{Tamaño}' AND CveEmpresa = {UsuarioActual.CveEmpresa}").ToString.ToEntero
                     Dim CveClasificacion2 As Integer = GlobalDTClasificaciones2(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion2}'").ToString.ToEntero

Inventarios/RecepcionEntrega.aspx.vb

@@ -1886,14 +1886,18 @@ Partial Class Inventarios_RecepcionEntrega
                 Dim CveConceptoMovimientoVirtual As Integer = -1
                 Dim CveAlmacenVirtual As Integer = -1
                 Dim CveMovimientoRelacionadoVirtual As Integer = -1
+                Dim ValidaVirtual As Boolean = False
 
                 If TipoMovimiento = 1 Then
                     For Each GvRow As GridViewRow In GvDatos.Rows
                         If GvRow.RowType = DataControlRowType.DataRow Then
 
-                            For Each Tam As DataRow In DtTamanios.Rows
+                            If GvRow.datakey("CveTamaño").tostring.toentero > 0 Then
-                                If Tam("CveTamaño").ToString() = GvRow.DataKey("CveTamaño") Then
+                                ValidaVirtual = True ' si tiene tamaño, debe de tener virtual
-                                    Dim CvePSCargo = Tam("CvePSCargo").ToString().ToEntero()
+                                Dim drr As DataRow = DtTamanios.FiltroPrimero(String.Format("CveTamaño={0}", GvRow.DataKey("CveTamaño")))
+                                If drr IsNot Nothing Then
+
+                                    Dim CvePSCargo = drr("CvePSCargo").ToString().ToEntero()
                                     Dim Row As DataRow = DtPSVirtual.NewRow()
                                     Row("CvePS") = CvePSCargo
                                     Row("Cantidad") = GvRow.FCTextBox("TbCantidadF").Text.ToDecimal()
@@ -1901,9 +1905,9 @@ Partial Class Inventarios_RecepcionEntrega
                                     Row("CveUM") = GvRow.DataKey("CveUM").ToEntero()
 
                                     DtPSVirtual.Rows.Add(Row)
+                                End If
 
                             End If
-                            Next
 
                         End If
                     Next
@@ -1911,6 +1915,7 @@ Partial Class Inventarios_RecepcionEntrega
                     CveAlmacenVirtual = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
 
                 ElseIf TipoMovimiento = 2 Then
+                    ValidaVirtual = True
                     Dim CveMovimientoSalidaDev As Integer = -1
                     If ObjInventario.GetInv_Mov(CveVentaSurtir, UsuarioActual.CveEmpresa) Then
                         Dim RowMovimiento As DataRow = ObjInventario.DtResultados.FiltroPrimero("CvePS IS NULL AND CveTipoAlmacen = 24 AND CveConcepto = 3 AND CveVenta > 0")
@@ -1919,6 +1924,7 @@ Partial Class Inventarios_RecepcionEntrega
                         CveMovimientoRelacionadoVirtual = CveMovimientoSalidaDev
                     Else
                         ErrorMovInv = True
+                        TextoError = "Ocurrió un error al procesar el movimiento. Por favor vuelva a intentar."
                     End If
 
                     'CARGA CONCEPTOS DEVUELTOS EN LA VENTA
@@ -1926,6 +1932,7 @@ Partial Class Inventarios_RecepcionEntrega
                         DtPSVirtual = ObjInventario.DtResultados.Copy()
                     Else
                         ErrorMovInv = True
+                        TextoError = "Ocurrió un error al procesar los movimientos de devolución. Por favor vuelva a intentar."
                     End If
                     CveConceptoMovimientoVirtual = 18
                 End If
@@ -1953,11 +1960,16 @@ Partial Class Inventarios_RecepcionEntrega
                     End If
 
                 Else
+                    If ValidaVirtual Then
                         ErrorMovInv = True
+                        TextoError = "Ocurrió un error al procesar el movimiento en almacen virtual. Por favor vuelva a intentar."
+
+                    End If
                 End If
 
-                If DtPSVirtual.Rows.Count = 0 Then
+                If DtPSVirtual.Rows.Count = 0 AndAlso ValidaVirtual = True Then
                     ErrorMovInv = True
+                    TextoError = "No se tienen productos para el almacen virtual."
                 End If
             End If
 

Nomina/Aguinaldo.aspx

@@ -50,6 +50,30 @@
 
     <asp:UpdatePanel ID="upDatosPA_N" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
+            <div class="row">
+                <div class="col-md-3 col-md-offset-1">
+                    <div class="dashboard-stat blue">
+                        <div class="visual"><i class="fa fa-sort-numeric-desc"></i></div>
+                        <div class="details">
+                            <div class="number">   <asp:Literal ID="LtlTotal" runat="server"></asp:Literal> </div>
+                            <div class="desc">
+                                Total Aguinaldo
+                            </div>
+                        </div>
+                    </div>
+                </div>
+                <div class="col-md-3 col-md-offset-2">
+                    <div class="dashboard-stat green">
+                        <div class="visual"><i class="fa fa-line-chart"></i></div>
+                        <div class="details">
+                            <div class="number"> <asp:Literal ID="LtldiasEjercicio" runat="server"></asp:Literal></div>
+                            <div class="desc">
+                                Días ejercicio
+                            </div>
+                        </div>
+                    </div>
+                </div>
+            </div>
             <asp:GridView ID="GVCalcularAguinaldo" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall GVCalcularUtilidades" AutoGenerateColumns="False"
                 DataKeyNames="Nombre,CvePersonal">
                 <Columns>
@@ -88,13 +112,25 @@
                         </ItemTemplate>
                         <ItemStyle HorizontalAlign ="Right" />
                     </asp:TemplateField>
-                    <asp:TemplateField>
+                    <asp:TemplateField HeaderText="Aguinaldo Gravado">
+                        <ItemTemplate>
+                            <asp:Label ID="lblAguinaldoGravado" runat="server" Text='<%# Eval("AguinaldoGravado", "${0:N2}")%>'> </asp:Label>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign ="Right" />
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Impuesto">
+                        <ItemTemplate>
+                            <asp:Label ID="lblAguinaldo" runat="server" Text='<%# Eval("ISR", "${0:N2}")%>'> </asp:Label>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign ="Right" />
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="">
                         <ItemTemplate>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <%--  <asp:TemplateField HeaderText="Gravadas">
                         <ItemTemplate>
-                            <asp:Label ID="lbluGravadas" runat="server" Text='<%# Eval("UGravadas", "${0:N2}")%>'> </asp:Label>
+                            <asp:Label ID="lbluGravadas" runat="server" Text='<%# Eval("ISR", "${0:N2}")%>'> </asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="ISR">

Nomina/Aguinaldo.aspx.cs

@@ -57,6 +57,8 @@ public partial class Nomina_Aguinaldo : ClsPaginas
             objnom.GetCalculoAguinaldo(ejercicio, UsuarioActual.CveEmpresa, 0, CveTipoPeriodo, CvePeriodo);
             DTAguinaldos = objnom.DtResultados;
             GVCalcularAguinaldo.DataSource = DTAguinaldos;
+            LtlTotal.Text = string.Format("{0:N2}", DTAguinaldos.SUM("Aguinaldo"));
+            LtldiasEjercicio.Text = string.Format("{0}/12/31", ejercicio).ToDate().DayOfYear.ToString();
         }
 
         GVCalcularAguinaldo.DataBind(); 

Nomina/Nomina2.aspx

@@ -780,6 +780,86 @@
                                     </div>
                                 </ContentTemplate>
                             </ajax:TabPanel>
+                            
+                            <ajax:TabPanel ID="TabFonacot" runat="server" HeaderText="Fonacot">
+                                <ContentTemplate>
+                                    <div class="portlet light bordered xspadding" id="porletFonacot">
+                                        <div class="portlet-title">
+                                            <div class="caption font-green">
+                                                <i class="fa fa-home font-green"></i>
+                                                <span class="caption-subject bold uppercase">Fonacot</span>
+                                            </div>
+                                            <div class="tools">
+                                                <a href="javascript:;" class="collapse" data-original-title="" title=""></a> 
+                                            </div>
+                                            <div class="actions">
+                                                <div class="btn-group">
+                                                    <asp:LinkButton ID="LnkGuardarFonacot" OnClick="LnkGuardarFonacot_Click" runat="server" Text="Guardar" class="btn btn-primary" />
+                                                </div>
+                                            </div>
+                                        </div>
+                                        <div class="portlet-body form">
+                                            <div class="row">
+                                                <div class="col-md-6">
+                                                    <div class="form-group form-md-line-input input-iconright">
+                                                        <asp:TextBox CssClass="form-control" ID="TxtFonNumCredito" runat="server" MaxLength="20"></asp:TextBox>
+                                                        <asp:Label AssociatedControlID="TxtFonNumCredito" runat="server" Text="Número de crédito"></asp:Label>
+                                                    </div>
+                                                </div>
+                                                <div class="col-md-6">
+                                                    <div class="form-group form-md-line-input input-iconright">
+                                                        <asp:TextBox CssClass="form-control" ID="TxtFonDescripcion" runat="server" MaxLength="20"></asp:TextBox>
+                                                        <asp:Label AssociatedControlID="TxtFonDescripcion" runat="server" Text="Descripción"></asp:Label>
+                                                    </div>
+                                                </div>
+                                            </div>
+                                            <div class="row">
+                                                <div class="col-md-6">
+                                                    <div class="">
+                                                        <asp:Label AssociatedControlID="DdlFonTipoAplicacion" CssClass="ddlInfolabel" runat="server" Text="Tipo Aplicación"></asp:Label>
+
+                                                        <asp:DropDownList ID="DdlFonTipoAplicacion" AutoPostBack="true" runat="server" Class="form-control select2me" Width="100%">
+                                                            <asp:ListItem Text="Seleccione" Value="-1"></asp:ListItem>
+                                                            <asp:ListItem Text="Fonacot(Importe fijo)" Value="3001"></asp:ListItem>
+                                                            <asp:ListItem Text="Fonacot(Por días Labarados)" Value="3002"></asp:ListItem> 
+                                                        </asp:DropDownList>
+                                                    </div>
+                                                </div>
+                                                <div class="col-md-6">
+                                                    <div class="form-group form-md-line-input input-iconright">
+                                                        <asp:TextBox CssClass="form-control" ID="TxtFonValor" runat="server" MaxLength="20"></asp:TextBox>
+                                                        <asp:Label AssociatedControlID="TxtFonValor" runat="server" Text="Valor"></asp:Label>
+                                                    </div>
+                                                </div>
+                                            </div>
+                                            <div class="row">
+                                                <div class="col-md-6">
+                                                    <div class="form-group form-md-line-input input-iconright " style="width: 120px !important; display: inline-block;">
+                                                        <asp:TextBox CssClass="form-control" ID="TxtFonFechaInicio" runat="server" MaxLength="20"></asp:TextBox>
+                                                        <asp:Label AssociatedControlID="TxtFonFechaInicio" runat="server" Text="Fecha Inicio"></asp:Label>
+                                                        <asp:RequiredFieldValidator runat="server" ID="rfvFonFechaFEstFin" ControlToValidate="TxtFonFechaInicio" ErrorMessage="Debe ingresar una fecha" ValidationGroup="vgEstFon" />
+                                                        <ajax:MaskedEditExtender ID="MEEFonFechaFEstFin" runat="server" TargetControlID="TxtFonFechaInicio" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                                        <ajax:CalendarExtender runat="server" ID="CEEFonFechaFEstFin" TargetControlID="TxtFonFechaInicio" PopupButtonID="LnkFonFechaFEstFin" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                                    </div>
+                                                    <div style="display: inline-block; vertical-align: top; padding-top: 10px;">
+                                                        <span class="input-group-btn ">
+                                                            <asp:LinkButton ID="LnkFonFechaFEstFin" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                                        </span>
+                                                    </div>
+                                                </div>
+                                                <div class="col-md-3">
+                                                    <div class="">
+                                                        <asp:Label AssociatedControlID="ChkFonacot" runat="server" Text="Estado (Activo)"></asp:Label>
+                                                    </div>
+                                                </div>
+                                                <div class="col-md-3">
+                                                    <asp:CheckBox ID="ChkFonacot" CssClass="chksino" runat="server" Text=" " />
+                                                </div>
+                                            </div>
+                                        </div>
+                                    </div>
+                                </ContentTemplate>
+                            </ajax:TabPanel>
                             <ajax:TabPanel ID="TabMovtosPermanentes" runat="server" HeaderText="Movimientos Permanentes">
                                 <ContentTemplate>
                                     <asp:UpdatePanel ID="UpMovtosPermanentes" UpdateMode="Conditional"  runat="server">

Nomina/Nomina2.aspx.cs

@@ -1049,6 +1049,28 @@ public partial class Nomina_Nomina2 : ClsPaginas
                     ChkInfo.Checked = frow["estatus"].ToString().ToUpper().Contiene("1", "TRUE");
                 }
 
+
+
+
+                  frow = objper.DtResultados.FiltroPrimero("CveSistema =4");
+                TxtFonValor.Text = "";
+                DdlFonTipoAplicacion.SelectedValueExist("-1");
+                TxtFonDescripcion.Text = "";
+                TxtFonNumCredito.Text = "";
+                TxtFonFechaInicio.Text = "";
+                ChkFonacot.Checked = false;
+                if (frow != null)
+                {
+
+                    TxtFonValor.Text = String.Format("{0:###,###.##}", frow["Importe"]);
+                    DdlFonTipoAplicacion.SelectedValueExist(frow["TipoAplicacion"].ToString());
+
+                    TxtFonDescripcion.Text = String.Format("{0}", frow["Descripcion02"]);
+                    TxtFonNumCredito.Text = String.Format("{0}", frow["Descripcion01"]);
+                    TxtFonFechaInicio.Text = String.Format("{0:dd/MM/yyyy}", frow["FInicioAplicacion"]);
+                    ChkFonacot.Checked = frow["estatus"].ToString().ToUpper().Contiene("1", "TRUE");
+                }
+
             }
         }
         #endregion
@@ -1168,7 +1190,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
         string FechaInicio = "";
         string FechaFin = "";
         string DiasRetardos = "";
-
+        string DiasIncapacidad = "";
         {
             DataRow drow = dtempleados.FiltroPrimero(string.Format("CvePersonal = {0}", SRCvePersonal));
             if (drow != null)
@@ -1179,6 +1201,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
                 FechaInicio = string.Format("{0:dd/MM/yyyy}", drow["FechaInicio"]);
                 FechaFin = string.Format("{0:dd/MM/yyyy}", drow["FechaFin"]);
                 DiasRetardos = string.Format("{0}", drow["DiasRetardos"].ToString().ToEntero());
+                DiasIncapacidad = string.Format("{0}", drow["DiasIncapacidad"].ToString().ToEntero());
             }
         }
         //string Codigo = "";
@@ -1195,6 +1218,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
                 NSS = drow["NSS"].ToString();
             }
         }
+        parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("DiasIncapacidad", DiasIncapacidad));
         parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("Codigo", CodigoEmpleado));
         parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("NombreCompleto", NombreCompleto));
         parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("RFC", RFC));
@@ -3025,4 +3049,33 @@ public partial class Nomina_Nomina2 : ClsPaginas
         UpMovtosPermanentes.Update();
     }
     #endregion
+
+    protected void LnkGuardarFonacot_Click(object sender, EventArgs e)
+    {
+        double importe = TxtFonValor.Text.ToDouble();
+        int TipoAplicacion = DdlFonTipoAplicacion.SelectedValue.ToEntero();
+        int NoPagos = 0;
+        double SaldoIni = 0;
+        string descripcion02 = TxtFonDescripcion.Text;
+        string descripcion01 = TxtFonNumCredito.Text;
+        string fecha = TxtFonFechaInicio.Text.Replace("_", "");
+        int estatus = ChkFonacot.Checked ? 1 : 0;
+        if (fecha.Length > 8)
+            fecha = fecha.ToDateTime().ToString("yyyy/MM/dd");
+        else
+            fecha = "";
+        bool continuar = true;
+        using (ClsRH ObjPersonal = new ClsRH())
+        {
+            if (!ObjPersonal.AddConcepto(SRCvePersonal, -1, importe, TipoAplicacion, NoPagos, SaldoIni, UsuarioActual.CveUsuario, 4, descripcion01, descripcion02, fecha, "", estatus, UsuarioActual.CveEmpresa))
+                continuar = false;
+        }
+        if (continuar)
+        {
+            LnkConsultar_Click(null, null);
+            mostrarConceptos();
+            Alert("Se actualizo el calculo de fonacot");
+        }
+
+    }
 }

RH/CatAsistenciasInasistencias.aspx

@@ -156,7 +156,7 @@
                                             <asp:CheckBox ID="AplicaNoAplica" runat="server" CssClass="make-switchsd" data-size="small" Text=" " Checked="true" />
                                         </div>
                                     </div>
-                                    <div class="col-md-4" style="display:none;">
+                                    <div class="col-md-4"  >
                                         <label for="AplicaFalta">Aplica Falta:</label><br />
                                         <asp:CheckBox ID="AplicaFalta" runat="server" CssClass="chksino" data-size="small" Text=" " Checked="true" />
                                     </div>
@@ -164,16 +164,18 @@
                                         <label for="AplicaVacacion">Aplica Vacaciones:</label><br />
                                         <asp:CheckBox ID="AplicaVacacion" runat="server" CssClass="chksino" data-size="small" Text=" " Checked="true" />
                                     </div>
+                                </div>
+                                <div class="row">
                                     <div class="col-md-4">
                                         <label for="AplicaIncapacidad">Aplica Incapacidad:</label><br />
                                         <asp:CheckBox ID="AplicaIncapacidad" runat="server" CssClass="chksino" data-size="small" Text=" " Checked="true" />
                                     </div>
-                                </div>
-                                <div class="row">
                                     <div class="col-md-4">
                                         <label for="AplicaRetardo">Aplica Retardo:</label><br />
                                         <asp:CheckBox ID="AplicaRetardo" runat="server" CssClass="chksino" data-size="small" Text=" " Checked="true" />
                                     </div>
+                                </div>
+                                <div class="row">
                                     <div class="col-md-4">
                                         <label for="AplicaAguinaldo">Aplica Aguinaldo:</label><br />
                                         <asp:CheckBox ID="AplicaAguinaldo" runat="server" CssClass="chksino" data-size="small" Text=" " Checked="true" />
@@ -208,7 +210,7 @@
 
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
-    <script language="javascript" type="text/javascript">
+    <script  type="text/javascript">
         function C() {
             return confirm('¿Está seguro que desea eliminar el tipo de Asistencias/Inasistencias?');
         }

RH/CatAsistenciasInasistencias.aspx.vb

@@ -64,7 +64,7 @@ Partial Class RH_CatAsistenciasInasistencias
         BtnAgregarTiposDModal.Visible = True
         CheckActiveSection.Visible = False
         AplicaNoAplica.Checked = False
-        AplicaFalta.Checked = False
+        AplicaFalta.Checked = True
         AplicaVacacion.Checked = False
         AplicaIncapacidad.Checked = False
         AplicaRetardo.Checked = False
@@ -78,6 +78,7 @@ Partial Class RH_CatAsistenciasInasistencias
 
     Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles BtnAgregarTiposDModal.Click 'esta funcion es la que agrega un nuevo motivo de baja se activa con el boton "Agregar" de la ventana modal"
         Dim ObjAsistenciasInasistencias As New ClsRH
+        Dim chkAplicaFalta As Boolean = AplicaFalta.Checked
         Dim chkAplicaNoAplica As Boolean = Not AplicaNoAplica.Checked
         Dim chkAplicaVacacion As Boolean = AplicaVacacion.Checked
         Dim chkAplicaIncapacidad As Boolean = AplicaIncapacidad.Checked
@@ -86,7 +87,7 @@ Partial Class RH_CatAsistenciasInasistencias
         Dim chkAplicaUtilidades As Boolean = AplicaUtilidades.Checked
 
 
-        If ObjAsistenciasInasistencias.AddAsistenciasInasistencias(TipoTxt.Text.Trim, chkAplicaNoAplica, chkAplicaNoAplica, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
+        If ObjAsistenciasInasistencias.AddAsistenciasInasistencias(TipoTxt.Text.Trim, chkAplicaFalta, chkAplicaNoAplica, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
 chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, chkAplicaUtilidades) Then
             TipoTxt.Text = ""
             Alert("El nuevo Tipo Asistencias/Inasistencias se guardó correctamente.", TipoMensaje.MsgInformacion)
@@ -121,6 +122,7 @@ chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, c
 
 
         AplicaFalta.Checked = If(GvRow.DataKey("AplicaFalta") = "Aplica", True, False)
+
         AplicaVacacion.Checked = If(GvRow.DataKey("AplicaVacacion") = "Aplica", True, False)
         AplicaIncapacidad.Checked = If(GvRow.DataKey("AplicaIncapacidad") = "Aplica", True, False)
         AplicaRetardo.Checked = If(GvRow.DataKey("AplicaRetardo") = "Aplica", True, False)
@@ -142,7 +144,7 @@ chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, c
         Dim ObjAsistenciasInasistencias As New ClsRH
         Dim Tipo As String = TipoTxt.Text.Trim
         Dim Estatus As Boolean = ChkEstatus.Checked
-        Dim AplicaFalta As Boolean = Not AplicaNoAplica.Checked
+        Dim ckAplicaFalta As Boolean = Not AplicaFalta.Checked
         Dim AplicaAsistencia As Boolean = AplicaNoAplica.Checked
         Dim CveAsistenciasInasistencias As Integer = CveTipoAsisAEditar 'aquí obtenemos el valor de la propiedad que utilizamos en el metodo "GvDatos_RowEditing"
 
@@ -155,7 +157,7 @@ chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, c
         Dim chkAplicaUtilidades As Boolean = AplicaUtilidades.Checked
 
 
-        If ObjAsistenciasInasistencias.UpdateAsistenciasInasistencias(Tipo, AplicaFalta, AplicaAsistencia, Estatus, CveAsistenciasInasistencias,
+        If ObjAsistenciasInasistencias.UpdateAsistenciasInasistencias(Tipo, ckAplicaFalta, AplicaAsistencia, Estatus, CveAsistenciasInasistencias,
                     chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, chkAplicaUtilidades) Then
             GvDatos.EditIndex = -1
             ViewState("DTAsistenciasInasistencias") = ObjAsistenciasInasistencias.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)

RH/CatPersonalRequerido.aspx.vb

@@ -99,6 +99,7 @@ Partial Class RH_CatPersonalRequerido
     End Sub
 
     Private Sub CargaDepartamento()
+        DdlDepartamento.Items.Clear()
         DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
         DdlDepartamento.DataBind()
     End Sub

RH/Personal.aspx

@@ -1727,6 +1727,7 @@
                                                 </tr>
                                             </table>
                                             <asp:GridView ID="GVAsistencia" runat="server" AutoGenerateColumns="false" DataKeyNames="CvePersonal,CveAsistencia" ShowHeader="false" 
+                                                data-heighterror="550"
                                                 EmptyDataText="No se encontraron registros de Asistencias con los filtros seleccionados" ToolTip="Listado de Asistencias"  data-rows="0"
                                                 CssClass="table table-striped table-advance table-hover Widthall mysmallbtn ScrollAD" data-tableheader="#GvAsistenciaHeader" GridLines="None">
                                                 <Columns>

RH/Personal.aspx.vb

@@ -2185,6 +2185,10 @@ Partial Class RH_Personal
                     e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Porcentaje)", "5001"))
                     e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Factor Descuento)", "5002"))
                     e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Cuota Fija)", "5003"))
+
+                ElseIf (e.Row.DBCampo("CveSistema").ToString() = "4") Then
+                    e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Fonacot(Importe fijo)", "3001"))
+                    e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Fonacot(Por días Labarados)", "3002"))
                 Else
                     e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Saldo", "1"))
                     e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("No. Pagos", "2"))
@@ -5682,7 +5686,7 @@ Partial Class RH_Personal
 
 
     Protected Sub BtnAgregarFamiliar_Click(sender As Object, e As EventArgs) Handles BtnAgregarFamiliar.Click
-        resetFormFamiliares()
+        ResetFormFamiliares()
         RegistraScript("$('#divAgregarFamiliar').modal({ backdrop: 'static',  keyboard: false});")
     End Sub
 

RH/RepIndiceRotacionPersonal.aspx

@@ -105,7 +105,8 @@
 
          <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GVRegDatos" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron registros" ToolTip="Listado de Personal" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" Style="margin-top: -10px; text-align: center;" GridLines="None">
+            <asp:GridView ID="GVRegDatos" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron registros" ToolTip="Listado de Personal"  DataKeyNames="SubProyecto"
+               CssClass="table table-striped table-advance table-hover Widthall ScrollAD"   Style="margin-top: -2px; text-align: center;" GridLines="None">
                 <Columns>
                     <asp:BoundField HeaderText ="Proyecto" DataField="proyecto" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText ="Subproyecto" DataField="Subproyecto" ItemStyle-HorizontalAlign="Left" />

RH/RepIndiceRotacionPersonal.aspx.vb

@@ -109,6 +109,7 @@ Partial Class Ventas_RepIndiceRotacionPersonal
 
 
         If e.Row.RowType = DataControlRowType.DataRow Then
+
             If Not (e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5) Then
 
                 Dim sPorcentaje As String = e.Row.DBCampo("IRP").Trim
@@ -126,10 +127,13 @@ Partial Class Ventas_RepIndiceRotacionPersonal
                     e.Row.FCLabel("LblIrp").CssClass = "label label-warning"
                 End If
 
-
-
-
             End If
+
+            If e.Row.DataKey("SubProyecto").ToString.Trim = "" Then
+                e.Row.CssClass = "SubTotales"
+                ' e.Row.Attributes.Add("class", "SubTotales")
+            End If
+
         End If
 
 

Ventas/ActualizarPrecios.aspx.vb

@@ -75,11 +75,13 @@ Partial Class Ventas_ActualizarPrecios
 
     Public Sub CargaPreciosLista()
 
-        DdlPrecioLista.ITEMS.CLEAR
+        DdlPrecioLista.ITEMS.Clear
         Dim ObjVta As New ClsVentas
+        Dim primerItem As String = ""
         If ObjVta.GetPrecioListas(UsuarioActual.CveEmpresa) Then
             DdlPrecioLista.DataSource = ObjVta.DtResultados.Copy()
             DdlPrecioListaCarga.DataSource = ObjVta.DtResultados.Copy()
+            primerItem = ObjVta.DtResultados.FiltroPrimeroValor("CvePrecioLista")
         End If
         ObjVta.Dispose()
 
@@ -87,6 +89,10 @@ Partial Class Ventas_ActualizarPrecios
         DdlPrecioLista.DataBind()
         DdlPrecioListaCarga.DataBind()
 
+        If (DdlPrecioLista.Items.Count = 1) Then
+            DdlPrecioLista.Items.FindByValue(primerItem).Selected = True
+        End If
+
         DdlPrecioLista.Items.Insert(0, New ListItem("Seleccione", "-1"))
         If UsuarioActual.CveEmpresa.Contiene(1, 140) Then
             DdlPrecioLista.Items.Insert(0, New ListItem("Sin Precio Lista", "-2"))

Ventas/PV.aspx.vb

@@ -5587,9 +5587,8 @@ Partial Class PV
 
         Dim CveUnidadMedidaPSA As Integer = -1
         Dim UnidadMedidaPSA As String = "Unidad"
-        Dim CveClacificacionPSA As Integer = -1
+        Dim CveClasificacionPSA As Integer = -1
-
+        Dim ClasificacionPSA As String = ""
-        Dim ClacificacionPSA As String = ""
 
         Dim CveSubProyectoPSA As Integer = -1
         Dim SubProyectoPSA As String = ""
@@ -5601,8 +5600,8 @@ Partial Class PV
         DTPSTemp.Columns.Add("Cantidad", GetType(Integer))
         DTPSTemp.Columns.Add("CveUnidadMedida", GetType(Integer))
         DTPSTemp.Columns.Add("UnidadMedida", GetType(String))
-        DTPSTemp.Columns.Add("CveClacificacion", GetType(Integer))
+        DTPSTemp.Columns.Add("CveClasificacion", GetType(Integer))
-        DTPSTemp.Columns.Add("Clacificacion", GetType(String))
+        DTPSTemp.Columns.Add("Clasificacion", GetType(String))
         DTPSTemp.Columns.Add("CvePS", GetType(Integer))
         DTPSTemp.Columns.Add("PS", GetType(String))
         DTPSTemp.Columns.Add("PU", GetType(Decimal))
@@ -5626,21 +5625,14 @@ Partial Class PV
 
                 If ObjProductosServicios.GetPS(CvePsTemp, -1, UsuarioActual.CveEmpresa) Then
                     CveUnidadMedidaPSA = ObjProductosServicios.CveUnidadMedida
-                    CveClacificacionPSA = ObjProductosServicios.CveClasificacion
+                    CveClasificacionPSA = ObjProductosServicios.CveClasificacion
+                    ClasificacionPSA = ObjProductosServicios.Clasificacion
                     UnidadMedidaPSA = ObjProductosServicios.DtResultados.FiltroPrimeroValor("UnidadMedida")
                     PSPSA = ObjProductosServicios.PS
                 End If
 
-
-                If UsuarioActual.Empresa.UsaAC Then
-                    ClacificacionPSA = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=If(UsuarioActual.Empresa.UsaContabilidad, CveClacificacionPSA, -1)).FiltroPrimeroValor("Clasificacion", " Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
-                Else
-                    ClacificacionPSA = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=If(UsuarioActual.Empresa.UsaContabilidad, CveClacificacionPSA, -1)).FiltroPrimeroValor("Clasificacion", Orderby:="Clasificacion")
-                End If
-
                 Dim Cargo As Decimal = DTTamanios.FiltroPrimeroValor("Cargo", $" CveTamaño = { CveTamanioTemp  }").ToDecimal
 
-
                 If DTPSTemp.FiltraParametros($"CvePs = { CvePsTemp }").Rows.Count > 0 Then
 
                     For Each dRowUpdate As DataRow In DTPSTemp.Rows
@@ -5660,8 +5652,8 @@ Partial Class PV
                     dRowNuevo("PU") = Cargo
                     dRowNuevo("CveUnidadMedida") = CveUnidadMedidaPSA
                     dRowNuevo("UnidadMedida") = UnidadMedidaPSA
-                    dRowNuevo("CveClacificacion") = CveClacificacionPSA
+                    dRowNuevo("CveClasificacion") = CveClasificacionPSA
-                    dRowNuevo("Clacificacion") = ClacificacionPSA
+                    dRowNuevo("Clasificacion") = ClasificacionPSA
                     dRowNuevo("CvePS") = CvePsTemp
                     dRowNuevo("PS") = PSPSA
 
@@ -5686,7 +5678,7 @@ Partial Class PV
         For Each drowPsTamaños As DataRow In DTPSTemp.Rows
             If drowPsTamaños("PU").ToString.ToDecimal > 0 Then
                 Dim Concec = AgregarProductoServicio(drowPsTamaños("Cantidad").ToString.ToEntero, drowPsTamaños("CveUnidadMedida").ToString.ToEntero, drowPsTamaños("UnidadMedida").ToString,
-                                                drowPsTamaños("CveClacificacion").ToString.ToEntero, drowPsTamaños("Clacificacion").ToString, drowPsTamaños("CvePS").ToString.ToEntero,
+                                                drowPsTamaños("CveClasificacion").ToString.ToEntero, drowPsTamaños("Clasificacion").ToString, drowPsTamaños("CvePS").ToString.ToEntero,
                                                 drowPsTamaños("PS").ToString, "", drowPsTamaños("PU").ToString.ToDecimal, 0, -1, "", drowPsTamaños("CveSubProyecto").ToString.ToEntero,
                                                 drowPsTamaños("SubProyecto").ToString, EsCargo:=True, ConsecPSPadre:=drowPsTamaños("ConsecPSPadre").ToString.ToEntero)
                 If Consec > 0 Then

Ventas/Ventas.aspx.vb

@@ -23530,9 +23530,9 @@ Partial Class Ventas
 
             Dim CveUnidadMedidaPSA As Integer = -1
             Dim UnidadMedidaPSA As String = "Unidad"
-            Dim CveClacificacionPSA As Integer = -1
+            Dim CveClasificacionPSA As Integer = -1
 
-            Dim ClacificacionPSA As String = ""
+            Dim ClasificacionPSA As String = ""
 
             Dim CveSubProyectoPSA As Integer = -1
             Dim SubProyectoPSA As String = ""
@@ -23540,12 +23540,12 @@ Partial Class Ventas
             Dim PSPSA As String = ""
 
             Dim DTPSTemp As New DataTable '= TmpDT.Clone
-            'AgregarProductoServicio(1, CveUnidadMedidaPSA, UnidadMedidaPSA, CveClacificacionPSA, ClacificacionPSA, CvePSPSA, PSPSA, "", ImporteCargo, 0, -1, "", CveSubProyectoPSA, SubProyectoPSA)
+
             DTPSTemp.Columns.Add("Cantidad", GetType(Integer))
             DTPSTemp.Columns.Add("CveUnidadMedida", GetType(Integer))
             DTPSTemp.Columns.Add("UnidadMedida", GetType(String))
-            DTPSTemp.Columns.Add("CveClacificacion", GetType(Integer))
+            DTPSTemp.Columns.Add("CveClasificacion", GetType(Integer))
-            DTPSTemp.Columns.Add("Clacificacion", GetType(String))
+            DTPSTemp.Columns.Add("Clasificacion", GetType(String))
             DTPSTemp.Columns.Add("CvePS", GetType(Integer))
             DTPSTemp.Columns.Add("PS", GetType(String))
             DTPSTemp.Columns.Add("PU", GetType(Decimal))
@@ -23565,20 +23565,16 @@ Partial Class Ventas
                     SubProyectoPSA = DrowPartidas("SubProyecto").ToString
 
                     Dim ObjProductosServicios As New ClsProductosServicios()
+
                     If ObjProductosServicios.GetPS(CvePsTemp, -1, UsuarioActual.CveEmpresa) Then
                         CveUnidadMedidaPSA = ObjProductosServicios.CveUnidadMedida
-                        CveClacificacionPSA = ObjProductosServicios.CveClasificacion
+                        CveClasificacionPSA = ObjProductosServicios.CveClasificacion
+                        ClasificacionPSA = ObjProductosServicios.Clasificacion
                         UnidadMedidaPSA = ObjProductosServicios.DtResultados.FiltroPrimeroValor("UnidadMedida")
                         PSPSA = ObjProductosServicios.PS
                     End If
                     ObjProductosServicios.Dispose()
 
-                    If UsuarioActual.Empresa.UsaAC Then
-                        ClacificacionPSA = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=If(UsuarioActual.Empresa.UsaContabilidad, CveClacificacionPSA, -1)).FiltroPrimeroValor("Clasificacion", " Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
-                    Else
-                        ClacificacionPSA = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=If(UsuarioActual.Empresa.UsaContabilidad, CveClacificacionPSA, -1)).FiltroPrimeroValor("Clasificacion", Orderby:="Clasificacion")
-                    End If
-
                     Dim Cargo As Decimal = DTTamanios.FiltroPrimeroValor("Cargo", $" CveTamaño = { CveTamanioTemp  }").ToDecimal
 
 
@@ -23601,8 +23597,8 @@ Partial Class Ventas
                         dRowNuevo("PU") = Cargo
                         dRowNuevo("CveUnidadMedida") = CveUnidadMedidaPSA
                         dRowNuevo("UnidadMedida") = UnidadMedidaPSA
-                        dRowNuevo("CveClacificacion") = CveClacificacionPSA
+                        dRowNuevo("CveClasificacion") = CveClasificacionPSA
-                        dRowNuevo("Clacificacion") = ClacificacionPSA
+                        dRowNuevo("Clasificacion") = ClasificacionPSA
                         dRowNuevo("CvePS") = CvePsTemp
                         dRowNuevo("PS") = PSPSA
 
@@ -23621,7 +23617,7 @@ Partial Class Ventas
                 Modalidad = "A"
                 If drowPsTamaños("PU").ToString.ToDecimal > 0 Then
                     AgregarProductoServicio(drowPsTamaños("Cantidad").ToString.ToEntero, drowPsTamaños("CveUnidadMedida").ToString.ToEntero, drowPsTamaños("UnidadMedida").ToString,
-                                            drowPsTamaños("CveClacificacion").ToString.ToEntero, drowPsTamaños("Clacificacion").ToString, drowPsTamaños("CvePS").ToString.ToEntero,
+                                            drowPsTamaños("CveClasificacion").ToString.ToEntero, drowPsTamaños("Clasificacion").ToString, drowPsTamaños("CvePS").ToString.ToEntero,
                                             drowPsTamaños("PS").ToString, "", drowPsTamaños("PU").ToString.ToDecimal, 0, -1, "", drowPsTamaños("CveSubProyecto").ToString.ToEntero,
                                             drowPsTamaños("SubProyecto").ToString)
                 End If