AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2022-12-03 16:32:35 -07:00
parent 575f55f471 06e82b8ffc
commit 2dc14d798f
15 changed files with 2881 additions and 1910 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
App_Code/ClsCGame.vb
View File

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

6
App_Code/ClsPaginas.vb
View File

@@ -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

7
App_Code/ClsRH.vb
View File

@@ -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)

2
Ashx/E119.ashx
View File

@@ -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

4
Compras/Compras.aspx.vb
View File

@@ -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

3446
Empresas/140/Formatos/Cotizacion.rdlc
View File

File diff suppressed because it is too large Load Diff

342
Empresas/140/Formatos/Factura.rdlc
View File

File diff suppressed because it is too large Load Diff

677
Empresas/Grales/Formatos/EntradaSalida.mrt Normal file
View File

@@ -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>

BIN
General/CONTRATO.doc Normal file
View File

Binary file not shown.

82
General/RepIndicadorResumen.aspx
View File

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

127
General/RepIndicadorResumen.aspx.vb
View File

@@ -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)

3
Nomina/Nomina.aspx.cs
View File

@@ -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()");
}

7
RH/Personal.aspx
View File

@@ -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>

64
RH/Personal.aspx.vb
View File

@@ -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

2
Ventas/Ventas.aspx.vb
View File

@@ -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