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

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/ClsPaginas.vb

@@ -9809,13 +9809,13 @@ Public Class ClsPaginas
             Dim Ret As New ConceptosRetenciones
             If Pago.CveMonedaPago > 1 Then
                 'Agregamos la Extranjera
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 21, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 21, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
 
                 ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImporteMN, 266, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProvComplementaria, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, ImporteMN, 266, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProvComplementaria, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
             Else
                 'Agregamos Nacional
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 21, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago) Then ErrorMovtos = True
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 21, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago) Then ErrorMovtos = True
 
             End If
 

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)

Ashx/E119.ashx

@@ -196,6 +196,8 @@ Public Class E119 : Implements IHttpHandler
                     TieneError = True
                 End If
             End Using
+            Dim Msg As String = "Consultado día: " & Fecha.ToShortDateString
+            Msg.GuardaLogAD("LogE119")
         Else
             RespuestaError.message = "la fecha no es leida correctamente"
             TieneError = True

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

Empresas/Grales/Formatos/EntradaSalida.mrt

@@ -0,0 +1,677 @@
+<?xml version="1.0" encoding="utf-8" standalone="yes"?>
+<StiSerializer version="1.02" type="Net" application="StiReport">
+  <Dictionary Ref="1" type="Dictionary" isKey="true">
+    <BusinessObjects isList="true" count="0" />
+    <Databases isList="true" count="0" />
+    <DataSources isList="true" count="1">
+      <DsInventarios Ref="2" type="DataTableSource" isKey="true">
+        <Alias>DsInventarios</Alias>
+        <Columns isList="true" count="12">
+          <value>Codigo,System.String</value>
+          <value>PS,System.String</value>
+          <value>UnidadMedida,System.String</value>
+          <value>PU,System.Decimal</value>
+          <value>Cantidad,System.Decimal</value>
+          <value>Total,System.Decimal</value>
+          <value>Descuento,System.Decimal</value>
+          <value>CodigoAF,System.String</value>
+          <value>Almacen,System.String</value>
+          <value>Lote,System.String</value>
+          <value>Batch,System.String</value>
+          <value>SerieLote,System.String</value>
+        </Columns>
+        <Dictionary isRef="1" />
+        <Key>9f26b214e5b34695ab9f7508c6bb98f2</Key>
+        <Name>DsInventarios</Name>
+        <NameInSource>Datos.DsInventarios</NameInSource>
+      </DsInventarios>
+    </DataSources>
+    <Relations isList="true" count="0" />
+    <Report isRef="0" />
+    <Resources isList="true" count="0" />
+    <Variables isList="true" count="17">
+      <value>ReportParameters,Empresa,Empresa,ReportParameter1,System.String,,False,False,True,False</value>
+      <value>ReportParameters,Almacen,Almacen,ReportParameter1,System.String,,False,False,True,False</value>
+      <value>ReportParameters,Folio,Folio,ReportParameter1,System.String,,False,False,True,False</value>
+      <value>ReportParameters,Concepto,Concepto,ReportParameter1,System.String,,False,False,True,False</value>
+      <value>ReportParameters,Fecha,Fecha,ReportParameter1,System.String,,False,False,True,False</value>
+      <value>ReportParameters,FechaImpresion,FechaImpresion,ReportParameter1,System.String,,False,False,True,False</value>
+      <value>ReportParameters,Descuentos,Descuentos,ReportParameter1,System.String,,False,False,True,False</value>
+      <value>ReportParameters,IVA,IVA,ReportParameter1,System.String,,False,False,True,False</value>
+      <value>ReportParameters,Total,Total,ReportParameter1,System.String,,False,False,True,False</value>
+      <value>ReportParameters,NombreRecibio,NombreRecibio,ReportParameter1,System.String,,False,False,True,False</value>
+      <value>ReportParameters,NombreEntrego,NombreEntrego,ReportParameter1,System.String,,False,False,True,False</value>
+      <value>ReportParameters,LogoPath,LogoPath,ReportParameter1,System.String,,False,False,True,False</value>
+      <value>ReportParameters,FacturaProveedor,FacturaProveedor,ReportParameter1,System.String,,False,False,True,False</value>
+      <value>ReportParameters,Observaciones,Observaciones,ReportParameter1,System.String,,False,False,True,False</value>
+      <value>ReportParameters,FacturadoA,FacturadoA,ReportParameter1,System.String,,False,False,True,False</value>
+      <value>ReportParameters,UsuarioImprimio,UsuarioImprimio,ReportParameter1,System.String,,False,False,True,False</value>
+      <value>ReportParameters,DomicilioFiscal,DomicilioFiscal,ReportParameter1,System.String,,False,False,True,False</value>
+    </Variables>
+  </Dictionary>
+  <EngineVersion>EngineV2</EngineVersion>
+  <GlobalizationStrings isList="true" count="0" />
+  <Key>dd46217c7a274120b98e67b7fdbf8a1e</Key>
+  <MetaTags isList="true" count="0" />
+  <Pages isList="true" count="1">
+    <Page1 Ref="3" type="Page" isKey="true">
+      <Border>None;Black;2;Solid;False;4;Black</Border>
+      <Brush>Transparent</Brush>
+      <Components isList="true" count="3">
+        <PageHeaderBand1 Ref="4" type="PageHeaderBand" isKey="true">
+          <Border>None;Black;1;None;False;4;Black</Border>
+          <Brush>Transparent</Brush>
+          <ClientRectangle>0,0,20,4.11</ClientRectangle>
+          <Components isList="true" count="12">
+            <Textbox34 Ref="5" type="Text" isKey="true">
+              <AllowHtmlTags>True</AllowHtmlTags>
+              <Brush>Transparent</Brush>
+              <CanGrow>True</CanGrow>
+              <ClientRectangle>4.37,0.43,9.11,1.55</ClientRectangle>
+              <Conditions isList="true" count="0" />
+              <Expressions isList="true" count="0" />
+              <Font>Arial,12,Bold</Font>
+              <GrowToHeight>True</GrowToHeight>
+              <Linked>True</Linked>
+              <Margins>2,2,2,2</Margins>
+              <Name>Textbox34</Name>
+              <Page isRef="3" />
+              <Parent isRef="4" />
+              <Text>{Empresa}&lt;br/&gt;
+{Concepto}</Text>
+              <TextBrush>Black</TextBrush>
+              <TextOptions>,,,,WordWrap=True,A=0</TextOptions>
+              <TextQuality>Wysiwyg</TextQuality>
+              <Type>Expression</Type>
+            </Textbox34>
+            <Logo Ref="6" type="Image" isKey="true">
+              <AspectRatio>True</AspectRatio>
+              <Brush>Transparent</Brush>
+              <ClientRectangle>0.2,0.32,3.43,1.66</ClientRectangle>
+              <Conditions isList="true" count="0" />
+              <Expressions isList="true" count="0" />
+              <IconColor>68, 114, 196</IconColor>
+              <ImageURL>{LogoPath}</ImageURL>
+              <Linked>True</Linked>
+              <Margins>2,2,2,2</Margins>
+              <Name>Logo</Name>
+              <Page isRef="3" />
+              <Parent isRef="4" />
+              <Stretch>True</Stretch>
+            </Logo>
+            <Textbox15 Ref="7" type="Text" isKey="true">
+              <Brush>Transparent</Brush>
+              <CanGrow>True</CanGrow>
+              <ClientRectangle>2.43,2.34,9.54,0.6</ClientRectangle>
+              <Conditions isList="true" count="0" />
+              <Expressions isList="true" count="1">
+                <value>Enabled,FacturaProveedor_x0020__x0021__x003D__x0020__x0022__x0022_</value>
+              </Expressions>
+              <Font>Arial,10</Font>
+              <Linked>True</Linked>
+              <Margins>2,2,2,2</Margins>
+              <Name>Textbox15</Name>
+              <Page isRef="3" />
+              <Parent isRef="4" />
+              <Text>{FacturaProveedor}</Text>
+              <TextBrush>Black</TextBrush>
+            </Textbox15>
+            <Textbox18 Ref="8" type="Text" isKey="true">
+              <Brush>Transparent</Brush>
+              <ClientRectangle>2.43,3.09,9.54,0.6</ClientRectangle>
+              <Conditions isList="true" count="0" />
+              <Expressions isList="true" count="1">
+                <value>Enabled,FacturadoA_x0020__x0021__x003D__x0020__x0022__x0022_</value>
+              </Expressions>
+              <Font>Arial,10</Font>
+              <Linked>True</Linked>
+              <Margins>2,2,2,2</Margins>
+              <Name>Textbox18</Name>
+              <Page isRef="3" />
+              <Parent isRef="4" />
+              <Text>{FacturadoA}</Text>
+              <TextBrush>Black</TextBrush>
+            </Textbox18>
+            <Textbox16 Ref="9" type="Text" isKey="true">
+              <Brush>Transparent</Brush>
+              <CanGrow>True</CanGrow>
+              <ClientRectangle>0.27,3.1,2.12,0.6</ClientRectangle>
+              <Conditions isList="true" count="0" />
+              <Expressions isList="true" count="1">
+                <value>Enabled,FacturadoA_x0020__x0021__x003D__x0020__x0022__x0022_</value>
+              </Expressions>
+              <Font>Arial,10,Bold</Font>
+              <Linked>True</Linked>
+              <Margins>2,2,2,2</Margins>
+              <Name>Textbox16</Name>
+              <Page isRef="3" />
+              <Parent isRef="4" />
+              <Text>Proveedor:</Text>
+              <TextBrush>Black</TextBrush>
+            </Textbox16>
+            <Textbox20 Ref="10" type="Text" isKey="true">
+              <Brush>Transparent</Brush>
+              <CanGrow>True</CanGrow>
+              <ClientRectangle>0.26,2.34,2.13,0.6</ClientRectangle>
+              <Conditions isList="true" count="0" />
+              <Enabled>False</Enabled>
+              <Expressions isList="true" count="1">
+                <value>Enabled,FacturaProveedor_x0020__x0021__x003D__x0020__x0022__x0022_</value>
+              </Expressions>
+              <Font>Arial,10,Bold</Font>
+              <Linked>True</Linked>
+              <Margins>2,2,2,2</Margins>
+              <Name>Textbox20</Name>
+              <Page isRef="3" />
+              <Parent isRef="4" />
+              <Text>Factura:</Text>
+              <TextBrush>Black</TextBrush>
+            </Textbox20>
+            <Textbox3 Ref="11" type="Text" isKey="true">
+              <Brush>Transparent</Brush>
+              <CanGrow>True</CanGrow>
+              <ClientRectangle>13.63,0.35,2.07,0.89</ClientRectangle>
+              <Conditions isList="true" count="0" />
+              <Expressions isList="true" count="0" />
+              <Font>Arial,16,Bold</Font>
+              <HorAlignment>Right</HorAlignment>
+              <Linked>True</Linked>
+              <Margins>2,2,2,2</Margins>
+              <Name>Textbox3</Name>
+              <Page isRef="3" />
+              <Parent isRef="4" />
+              <Text>Folio:</Text>
+              <TextBrush>Black</TextBrush>
+            </Textbox3>
+            <Textbox31 Ref="12" type="Text" isKey="true">
+              <Brush>Transparent</Brush>
+              <CanGrow>True</CanGrow>
+              <ClientRectangle>15.7,0.31,2.57,0.93</ClientRectangle>
+              <Conditions isList="true" count="0" />
+              <Expressions isList="true" count="0" />
+              <Font>Arial,16,Bold</Font>
+              <Linked>True</Linked>
+              <Margins>2,2,2,2</Margins>
+              <Name>Textbox31</Name>
+              <Page isRef="3" />
+              <Parent isRef="4" />
+              <Text>{Folio}</Text>
+              <TextBrush>[255:0:0]</TextBrush>
+            </Textbox31>
+            <Textbox4 Ref="13" type="Text" isKey="true">
+              <Brush>Transparent</Brush>
+              <CanGrow>True</CanGrow>
+              <ClientRectangle>12.65,3.1,1.81,0.6</ClientRectangle>
+              <Conditions isList="true" count="0" />
+              <Expressions isList="true" count="0" />
+              <Font>Arial,10,Bold</Font>
+              <Linked>True</Linked>
+              <Margins>2,2,2,2</Margins>
+              <Name>Textbox4</Name>
+              <Page isRef="3" />
+              <Parent isRef="4" />
+              <Text>Fecha:</Text>
+              <TextBrush>Black</TextBrush>
+            </Textbox4>
+            <Textbox10 Ref="14" type="Text" isKey="true">
+              <Brush>Transparent</Brush>
+              <ClientRectangle>14.46,2.34,3.9,0.6</ClientRectangle>
+              <Conditions isList="true" count="0" />
+              <Expressions isList="true" count="0" />
+              <Font>Arial,8</Font>
+              <Linked>True</Linked>
+              <Margins>2,2,2,2</Margins>
+              <Name>Textbox10</Name>
+              <Page isRef="3" />
+              <Parent isRef="4" />
+              <Text>{Almacen}</Text>
+              <TextBrush>Black</TextBrush>
+            </Textbox10>
+            <Textbox32 Ref="15" type="Text" isKey="true">
+              <Brush>Transparent</Brush>
+              <CanGrow>True</CanGrow>
+              <ClientRectangle>14.46,3.1,3.9,0.6</ClientRectangle>
+              <Conditions isList="true" count="0" />
+              <Expressions isList="true" count="0" />
+              <Font>Arial,8</Font>
+              <Linked>True</Linked>
+              <Margins>2,2,2,2</Margins>
+              <Name>Textbox32</Name>
+              <Page isRef="3" />
+              <Parent isRef="4" />
+              <Text>{Fecha}</Text>
+              <TextBrush>Black</TextBrush>
+              <TextFormat Ref="16" type="CustomFormat" isKey="true">
+                <StringFormat>d</StringFormat>
+              </TextFormat>
+            </Textbox32>
+            <Textbox21 Ref="17" type="Text" isKey="true">
+              <Brush>Transparent</Brush>
+              <CanGrow>True</CanGrow>
+              <ClientRectangle>12.65,2.34,1.81,0.6</ClientRectangle>
+              <Conditions isList="true" count="0" />
+              <Expressions isList="true" count="0" />
+              <Font>Arial,10,Bold</Font>
+              <Linked>True</Linked>
+              <Margins>2,2,2,2</Margins>
+              <Name>Textbox21</Name>
+              <Page isRef="3" />
+              <Parent isRef="4" />
+              <Text>Almacén:</Text>
+              <TextBrush>Black</TextBrush>
+            </Textbox21>
+          </Components>
+          <Conditions isList="true" count="0" />
+          <Expressions isList="true" count="0" />
+          <Name>PageHeaderBand1</Name>
+          <Page isRef="3" />
+          <Parent isRef="3" />
+        </PageHeaderBand1>
+        <PageFooterBand1 Ref="18" type="PageFooterBand" isKey="true">
+          <Border>None;Black;1;None;False;4;Black</Border>
+          <Brush>Transparent</Brush>
+          <ClientRectangle>0,26.48,20,2.22</ClientRectangle>
+          <Components isList="true" count="6">
+            <Textbox35 Ref="19" type="Text" isKey="true">
+              <Brush>Transparent</Brush>
+              <CanGrow>True</CanGrow>
+              <ClientRectangle>1.74,0.47,5.96,0.6</ClientRectangle>
+              <Conditions isList="true" count="0" />
+              <Expressions isList="true" count="0" />
+              <Font>Arial,10</Font>
+              <HorAlignment>Center</HorAlignment>
+              <Linked>True</Linked>
+              <Margins>2,2,2,2</Margins>
+              <Name>Textbox35</Name>
+              <Page isRef="3" />
+              <Parent isRef="18" />
+              <Text>{NombreRecibio}</Text>
+              <TextBrush>Black</TextBrush>
+            </Textbox35>
+            <Textbox36 Ref="20" type="Text" isKey="true">
+              <Brush>Transparent</Brush>
+              <CanGrow>True</CanGrow>
+              <ClientRectangle>11.8,0.43,5.96,0.6</ClientRectangle>
+              <Conditions isList="true" count="0" />
+              <Expressions isList="true" count="0" />
+              <Font>Arial,10</Font>
+              <HorAlignment>Center</HorAlignment>
+              <Linked>True</Linked>
+              <Margins>2,2,2,2</Margins>
+              <Name>Textbox36</Name>
+              <Page isRef="3" />
+              <Parent isRef="18" />
+              <Text>{Almacen}</Text>
+              <TextBrush>Black</TextBrush>
+            </Textbox36>
+            <Textbox8 Ref="21" type="Text" isKey="true">
+              <Brush>Transparent</Brush>
+              <CanGrow>True</CanGrow>
+              <ClientRectangle>11.96,1.49,2.91,0.6</ClientRectangle>
+              <Conditions isList="true" count="0" />
+              <Expressions isList="true" count="0" />
+              <Font>Arial,9,Bold</Font>
+              <HorAlignment>Right</HorAlignment>
+              <Linked>True</Linked>
+              <Margins>2,2,2,2</Margins>
+              <Name>Textbox8</Name>
+              <Page isRef="3" />
+              <Parent isRef="18" />
+              <Text>Fecha Impresion:</Text>
+              <TextBrush>Black</TextBrush>
+            </Textbox8>
+            <Textbox37 Ref="22" type="Text" isKey="true">
+              <Brush>Transparent</Brush>
+              <CanGrow>True</CanGrow>
+              <ClientRectangle>14.87,1.49,2.89,0.6</ClientRectangle>
+              <Conditions isList="true" count="0" />
+              <Expressions isList="true" count="0" />
+              <Font>Arial,10</Font>
+              <Linked>True</Linked>
+              <Margins>2,2,2,2</Margins>
+              <Name>Textbox37</Name>
+              <Page isRef="3" />
+              <Parent isRef="18" />
+              <Text>{FechaImpresion}</Text>
+              <TextBrush>Black</TextBrush>
+              <TextFormat Ref="23" type="CustomFormat" isKey="true">
+                <StringFormat>d</StringFormat>
+              </TextFormat>
+            </Textbox37>
+            <Line6 Ref="24" type="HorizontalLinePrimitive" isKey="true">
+              <ClientRectangle>2.22,0.29,4.95,0.0254</ClientRectangle>
+              <Color>Black</Color>
+              <Conditions isList="true" count="0" />
+              <EndCap Ref="25" type="Cap" isKey="true">
+                <Color>Black</Color>
+              </EndCap>
+              <Expressions isList="true" count="0" />
+              <Linked>True</Linked>
+              <Name>Line6</Name>
+              <Page isRef="3" />
+              <Parent isRef="18" />
+              <StartCap Ref="26" type="Cap" isKey="true">
+                <Color>Black</Color>
+              </StartCap>
+            </Line6>
+            <Line7 Ref="27" type="HorizontalLinePrimitive" isKey="true">
+              <ClientRectangle>12.2,0.29,4.95,0.0254</ClientRectangle>
+              <Color>Black</Color>
+              <Conditions isList="true" count="0" />
+              <EndCap Ref="28" type="Cap" isKey="true">
+                <Color>Black</Color>
+              </EndCap>
+              <Expressions isList="true" count="0" />
+              <Linked>True</Linked>
+              <Name>Line7</Name>
+              <Page isRef="3" />
+              <Parent isRef="18" />
+              <StartCap Ref="29" type="Cap" isKey="true">
+                <Color>Black</Color>
+              </StartCap>
+            </Line7>
+          </Components>
+          <Conditions isList="true" count="0" />
+          <Expressions isList="true" count="0" />
+          <Name>PageFooterBand1</Name>
+          <Page isRef="3" />
+          <Parent isRef="3" />
+        </PageFooterBand1>
+        <MainBand Ref="30" type="DataBand" isKey="true">
+          <Brush>Transparent</Brush>
+          <CanBreak>True</CanBreak>
+          <CanShrink>True</CanShrink>
+          <ClientRectangle>0,4.11,20,2.69</ClientRectangle>
+          <Components isList="true" count="2">
+            <Tablix2 Ref="31" type="Panel" isKey="true">
+              <Brush>Transparent</Brush>
+              <CanGrow>True</CanGrow>
+              <ClientRectangle>0.02,0.18,20,1.51</ClientRectangle>
+              <Components isList="true" count="2">
+                <DataBand2 Ref="32" type="DataBand" isKey="true">
+                  <Brush>Transparent</Brush>
+                  <BusinessObjectGuid isNull="true" />
+                  <ClientRectangle>0,0,20,0.42</ClientRectangle>
+                  <Components isList="true" count="5">
+                    <Textbox7 Ref="33" type="Text" isKey="true">
+                      <Border>Adv[0:0:0];1;Solid;[0:0:0];1;Solid;Black;1;None;Black;1;None;False;4;Black</Border>
+                      <Brush>[255:255:255]</Brush>
+                      <CanGrow>True</CanGrow>
+                      <ClientRectangle>0,0,1.14,0.42</ClientRectangle>
+                      <Conditions isList="true" count="0" />
+                      <Expressions isList="true" count="0" />
+                      <Font>Arial,8,Bold</Font>
+                      <Linked>True</Linked>
+                      <Margins>2,2,2,2</Margins>
+                      <Name>Textbox7</Name>
+                      <Page isRef="3" />
+                      <Parent isRef="32" />
+                      <Text>Cant.</Text>
+                      <TextBrush>Black</TextBrush>
+                    </Textbox7>
+                    <Textbox9 Ref="34" type="Text" isKey="true">
+                      <Border>Adv[0:0:0];1;Solid;[0:0:0];1;Solid;Black;1;None;Black;1;None;False;4;Black</Border>
+                      <Brush>[255:255:255]</Brush>
+                      <CanGrow>True</CanGrow>
+                      <ClientRectangle>1.14,0,3.15,0.42</ClientRectangle>
+                      <Conditions isList="true" count="0" />
+                      <Expressions isList="true" count="0" />
+                      <Font>Arial,8,Bold</Font>
+                      <Linked>True</Linked>
+                      <Margins>2,2,2,2</Margins>
+                      <Name>Textbox9</Name>
+                      <Page isRef="3" />
+                      <Parent isRef="32" />
+                      <Text>Código</Text>
+                      <TextBrush>Black</TextBrush>
+                    </Textbox9>
+                    <Textbox11 Ref="35" type="Text" isKey="true">
+                      <Border>Adv[0:0:0];1;Solid;[0:0:0];1;Solid;Black;1;None;Black;1;None;False;4;Black</Border>
+                      <Brush>[255:255:255]</Brush>
+                      <CanGrow>True</CanGrow>
+                      <ClientRectangle>4.29,0,11.27,0.42</ClientRectangle>
+                      <Conditions isList="true" count="0" />
+                      <Expressions isList="true" count="0" />
+                      <Font>Arial,8,Bold</Font>
+                      <Linked>True</Linked>
+                      <Margins>2,2,2,2</Margins>
+                      <Name>Textbox11</Name>
+                      <Page isRef="3" />
+                      <Parent isRef="32" />
+                      <Text>Descripción</Text>
+                      <TextBrush>Black</TextBrush>
+                    </Textbox11>
+                    <Textbox6 Ref="36" type="Text" isKey="true">
+                      <Border>Adv[0:0:0];1;Solid;[0:0:0];1;Solid;Black;1;None;Black;1;None;False;4;Black</Border>
+                      <Brush>[255:255:255]</Brush>
+                      <CanGrow>True</CanGrow>
+                      <ClientRectangle>15.56,0,2.7,0.42</ClientRectangle>
+                      <Conditions isList="true" count="0" />
+                      <Expressions isList="true" count="1">
+                        <value>Enabled,DsInventarios.SerieLote_x0021__x003D__x0020__x0022__x0022_</value>
+                      </Expressions>
+                      <Font>Arial,8,Bold</Font>
+                      <Linked>True</Linked>
+                      <Margins>2,2,2,2</Margins>
+                      <Name>Textbox6</Name>
+                      <Page isRef="3" />
+                      <Parent isRef="32" />
+                      <Text>Serie</Text>
+                      <TextBrush>Black</TextBrush>
+                    </Textbox6>
+                    <Textbox5 Ref="37" type="Text" isKey="true">
+                      <Border>Adv[0:0:0];1;Solid;[0:0:0];1;Solid;Black;1;None;Black;1;None;False;4;Black</Border>
+                      <Brush>[255:255:255]</Brush>
+                      <CanGrow>True</CanGrow>
+                      <ClientRectangle>18.26,0,1.74,0.42</ClientRectangle>
+                      <Conditions isList="true" count="0" />
+                      <Expressions isList="true" count="1">
+                        <value>Enabled,DsInventarios.Lote_x0021__x003D__x0020__x0022__x0022_</value>
+                      </Expressions>
+                      <Font>Arial,8,Bold</Font>
+                      <Linked>True</Linked>
+                      <Margins>2,2,2,2</Margins>
+                      <Name>Textbox5</Name>
+                      <Page isRef="3" />
+                      <Parent isRef="32" />
+                      <Text>Lote</Text>
+                      <TextBrush>Black</TextBrush>
+                    </Textbox5>
+                  </Components>
+                  <Conditions isList="true" count="0" />
+                  <DataSourceName>DsInventarios</DataSourceName>
+                  <Expressions isList="true" count="0" />
+                  <Filters isList="true" count="0" />
+                  <Linked>True</Linked>
+                  <Name>DataBand2</Name>
+                  <Page isRef="3" />
+                  <Parent isRef="31" />
+                  <Sort isList="true" count="0" />
+                </DataBand2>
+                <DataBand3 Ref="38" type="DataBand" isKey="true">
+                  <Brush>Transparent</Brush>
+                  <BusinessObjectGuid isNull="true" />
+                  <ClientRectangle>0,0.42,20,0.69</ClientRectangle>
+                  <Components isList="true" count="5">
+                    <Cantidad Ref="39" type="Text" isKey="true">
+                      <Brush>Transparent</Brush>
+                      <CanGrow>True</CanGrow>
+                      <ClientRectangle>0,0,1.14,0.69</ClientRectangle>
+                      <Conditions isList="true" count="0" />
+                      <Expressions isList="true" count="0" />
+                      <Font>Arial,8</Font>
+                      <HorAlignment>Right</HorAlignment>
+                      <Linked>True</Linked>
+                      <Margins>2,2,2,2</Margins>
+                      <Name>Cantidad</Name>
+                      <Page isRef="3" />
+                      <Parent isRef="38" />
+                      <Text>{DsInventarios.Cantidad}</Text>
+                      <TextBrush>Black</TextBrush>
+                      <TextFormat Ref="40" type="CustomFormat" isKey="true">
+                        <StringFormat>0;(0)</StringFormat>
+                      </TextFormat>
+                    </Cantidad>
+                    <Codigo Ref="41" type="Text" isKey="true">
+                      <Brush>Transparent</Brush>
+                      <CanGrow>True</CanGrow>
+                      <ClientRectangle>1.14,0,3.15,0.69</ClientRectangle>
+                      <Conditions isList="true" count="0" />
+                      <Expressions isList="true" count="0" />
+                      <Font>Arial,8</Font>
+                      <Linked>True</Linked>
+                      <Margins>2,2,2,2</Margins>
+                      <Name>Codigo</Name>
+                      <Page isRef="3" />
+                      <Parent isRef="38" />
+                      <Text>{DsInventarios.Codigo}</Text>
+                      <TextBrush>Black</TextBrush>
+                    </Codigo>
+                    <PS Ref="42" type="Text" isKey="true">
+                      <Brush>Transparent</Brush>
+                      <CanGrow>True</CanGrow>
+                      <ClientRectangle>4.29,0,11.27,0.69</ClientRectangle>
+                      <Conditions isList="true" count="0" />
+                      <Expressions isList="true" count="0" />
+                      <Font>Arial,8</Font>
+                      <Linked>True</Linked>
+                      <Margins>2,2,2,2</Margins>
+                      <Name>PS</Name>
+                      <Page isRef="3" />
+                      <Parent isRef="38" />
+                      <Text>{DsInventarios.PS}</Text>
+                      <TextBrush>Black</TextBrush>
+                    </PS>
+                    <SerieLote Ref="43" type="Text" isKey="true">
+                      <Brush>Transparent</Brush>
+                      <CanGrow>True</CanGrow>
+                      <ClientRectangle>15.56,0,2.7,0.69</ClientRectangle>
+                      <Conditions isList="true" count="0" />
+                      <Expressions isList="true" count="1">
+                        <value>Enabled,DsInventarios.SerieLote_x0021__x003D__x0020__x0022__x0022_</value>
+                      </Expressions>
+                      <Font>Arial,8</Font>
+                      <Linked>True</Linked>
+                      <Margins>2,2,2,2</Margins>
+                      <Name>SerieLote</Name>
+                      <Page isRef="3" />
+                      <Parent isRef="38" />
+                      <Text>{DsInventarios.SerieLote}</Text>
+                      <TextBrush>Black</TextBrush>
+                    </SerieLote>
+                    <Lote Ref="44" type="Text" isKey="true">
+                      <Brush>Transparent</Brush>
+                      <CanGrow>True</CanGrow>
+                      <ClientRectangle>18.26,0,1.74,0.69</ClientRectangle>
+                      <Conditions isList="true" count="0" />
+                      <Expressions isList="true" count="1">
+                        <value>Enabled,DsInventarios.Lote_x0021__x003D__x0020__x0022__x0022_</value>
+                      </Expressions>
+                      <Font>Arial,8</Font>
+                      <Linked>True</Linked>
+                      <Margins>2,2,2,2</Margins>
+                      <Name>Lote</Name>
+                      <Page isRef="3" />
+                      <Parent isRef="38" />
+                      <Text>{DsInventarios.Lote}</Text>
+                      <TextBrush>Black</TextBrush>
+                    </Lote>
+                  </Components>
+                  <Conditions isList="true" count="0" />
+                  <DataSourceName>DsInventarios</DataSourceName>
+                  <Expressions isList="true" count="0" />
+                  <Filters isList="true" count="0" />
+                  <Linked>True</Linked>
+                  <Name>DataBand3</Name>
+                  <Page isRef="3" />
+                  <Parent isRef="31" />
+                  <Sort isList="true" count="0" />
+                </DataBand3>
+              </Components>
+              <Conditions isList="true" count="0" />
+              <Expressions isList="true" count="0" />
+              <Linked>True</Linked>
+              <Name>Tablix2</Name>
+              <Page isRef="3" />
+              <Parent isRef="30" />
+            </Tablix2>
+            <Textbox2 Ref="45" type="Text" isKey="true">
+              <Brush>Transparent</Brush>
+              <CanGrow>True</CanGrow>
+              <ClientRectangle>0.06,1.79,11.37,0.6</ClientRectangle>
+              <Conditions isList="true" count="0" />
+              <Expressions isList="true" count="0" />
+              <Font>Arial,8</Font>
+              <Linked>True</Linked>
+              <Margins>2,2,2,2</Margins>
+              <Name>Textbox2</Name>
+              <Page isRef="3" />
+              <Parent isRef="30" />
+              <Text>{Observaciones}</Text>
+              <TextBrush>Black</TextBrush>
+            </Textbox2>
+          </Components>
+          <Conditions isList="true" count="0" />
+          <CountData>1</CountData>
+          <Expressions isList="true" count="0" />
+          <Filters isList="true" count="0" />
+          <Name>MainBand</Name>
+          <Page isRef="3" />
+          <Parent isRef="3" />
+          <Sort isList="true" count="0" />
+        </MainBand>
+      </Components>
+      <Conditions isList="true" count="0" />
+      <Expressions isList="true" count="0" />
+      <Guid>c751c4d57273461888e484933acfb628</Guid>
+      <Margins>0.5,0.5,0.5,0.5</Margins>
+      <Name>Page1</Name>
+      <PageHeight>29.7</PageHeight>
+      <PageWidth>21</PageWidth>
+      <Report isRef="0" />
+    </Page1>
+  </Pages>
+  <ReferencedAssemblies isList="true" count="8">
+    <value>System.Dll</value>
+    <value>System.Drawing.Dll</value>
+    <value>System.Windows.Forms.Dll</value>
+    <value>System.Data.Dll</value>
+    <value>System.Xml.Dll</value>
+    <value>Stimulsoft.Controls.Dll</value>
+    <value>Stimulsoft.Base.Dll</value>
+    <value>Stimulsoft.Report.Dll</value>
+  </ReferencedAssemblies>
+  <ReportAlias>Report</ReportAlias>
+  <ReportChanged>10/13/2022 7:15:28 PM</ReportChanged>
+  <ReportCreated>10/13/2022 4:49:14 PM</ReportCreated>
+  <ReportFile>C:\inetpub\wwwSIGGIT\Empresas\Grales\Formatos\EntradaSalida.mrt</ReportFile>
+  <ReportGuid>fbf73b9709d54158a65b0723556fde8e</ReportGuid>
+  <ReportName>Report</ReportName>
+  <ReportUnit>Centimeters</ReportUnit>
+  <ReportVersion>2022.1.6.0</ReportVersion>
+  <Script>using System;
+using System.Drawing;
+using System.Windows.Forms;
+using System.Data;
+using Stimulsoft.Controls;
+using Stimulsoft.Base.Drawing;
+using Stimulsoft.Report;
+using Stimulsoft.Report.Dialogs;
+using Stimulsoft.Report.Components;
+
+namespace Reports
+{
+    public class Report : Stimulsoft.Report.StiReport
+    {
+        public Report()        {
+            this.InitializeComponent();
+        }
+
+        #region StiReport Designer generated code - do not modify
+		#endregion StiReport Designer generated code - do not modify
+    }
+}
+</Script>
+  <ScriptLanguage>CSharp</ScriptLanguage>
+  <Styles isList="true" count="0" />
+</StiSerializer>

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 DataField="Gpo" HeaderText="Proveedor" />
-                                                <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>
@@ -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()");
     }
 

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/Ventas.aspx.vb

@@ -33494,7 +33494,7 @@ Partial Class Ventas
                     End If
 
                     ObjFactura.SetSubProyecto()
-                    'EnviarPolizaVentaWS(obj, CvePolizaVirtual, ObjFactura.SubProyecto.Acum_PortalUsuario, ObjFactura.SubProyecto.Acum_PortalContrasena)
+                    EnviarPolizaVentaWS(obj, CvePolizaVirtual, ObjFactura.SubProyecto.Acum_PortalUsuario, ObjFactura.SubProyecto.Acum_PortalContrasena)
 
                 End If
             Next