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

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

Browse Source
This commit is contained in:
Oscar Irigoyen
2022-11-11 08:38:03 -07:00
parent 1079aa4290 de9ba7acd1
commit fd112b7425
41 changed files with 1156 additions and 863 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
AF/RepDepreciacion.aspx.vb
View File

@@ -38,17 +38,16 @@ Partial Class AF_RepDepreciacion
For Each RowsDt As GridViewRow In GvDatos.Rows For Each RowsDt As GridViewRow In GvDatos.Rows
CveActivoFijo = RowsDt.DataKey("CveActivoFijo").ToEntero CveActivoFijo = RowsDt.DataKey("CveActivoFijo").ToEntero
If RowsDt.FCLiteral("LtlDepreciacionMensual").Text.ToDouble > 0 And CveActivoFijo <> 0 Then Dim MontoDepreciacion As Decimal = RowsDt.FCLiteral("LtlDepreciacionMensual").Text.ToDecimal
If MontoDepreciacion > 0 And CveActivoFijo <> 0 Then
Dim MontoDepreciacion As Double = RowsDt.FCLiteral("LtlDepreciacionMensual").Text.ToDouble
Dim ConceptoPolizaDetalle As String = String.Format("Depreciacion - {0} - {1}", txtFechaI.Text, RowsDt.FCLiteral("LtlDescripcion").Text) Dim ConceptoPolizaDetalle As String = String.Format("Depreciacion - {0} - {1}", txtFechaI.Text, RowsDt.FCLiteral("LtlDescripcion").Text)
If CvePrePoliza > 0 Then If CvePrePoliza > 0 Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, MontoDepreciacion.ToDecimal, ConceptoPolizaDetalle, 101, ConceptoPolizaDetalle, txtFechaI.Text.ToDate, 0, -1, CveActivoFijo:=CveActivoFijo, ImporteMX:=MontoDepreciacion.ToDecimal, ImporteME:=MontoDepreciacion.ToDecimal, CveSubProyecto:=CveSubProyecto) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, -MontoDepreciacion, -MontoDepreciacion, 270, ConceptoPolizaDetalle, ConceptoPolizaDetalle, 0, CveActivoFijo:=CveActivoFijo, CveSubProyecto:=CveSubProyecto) Then
ErrorMovInv = True ErrorMovInv = True
Exit For Exit For
End If End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, MontoDepreciacion.ToDecimal, ConceptoPolizaDetalle, 51, ConceptoPolizaDetalle, txtFechaI.Text.ToDate, 0, -1, CveActivoFijo:=CveActivoFijo, ImporteMX:=MontoDepreciacion.ToDecimal, ImporteME:=MontoDepreciacion.ToDecimal, CveSubProyecto:=CveSubProyecto) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, MontoDepreciacion, MontoDepreciacion, 101, ConceptoPolizaDetalle, ConceptoPolizaDetalle, 0, CveActivoFijo:=CveActivoFijo, CveSubProyecto:=CveSubProyecto) Then
ErrorMovInv = True ErrorMovInv = True
Exit For Exit For
End If End If

32
Acumuladores/CatGarantiasMeses.aspx.vb
View File

@@ -72,15 +72,20 @@ Partial Class Acumuladores_CatFoliosGarantia
Private Sub CargaCombos() Private Sub CargaCombos()
Dim ObjPS As New ClsProductosServicios 'Dim ObjPS As New ClsProductosServicios
If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then 'If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
DdlMarca.DataSource = ObjPS.DtResultados ' DdlMarca.DataSource = ObjPS.DtResultados
DdlMarca.DataBind() ' DdlMarca.DataBind()
DdlMarca.Items.Insert(0, New ListItem("Todos", "-1")) ' DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))
DdlMarca.SelectedValue = "-1" ' DdlMarca.SelectedValue = "-1"
End If 'End If
ObjPS.Dispose() 'ObjPS.Dispose()
DdlMarca.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
DdlMarca.DataBind()
DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))
DdlMarca.SelectedValue = "-1"
DdlTipoUso.DataSource = GlobalDTAcumTiposUso() DdlTipoUso.DataSource = GlobalDTAcumTiposUso()
DdlTipoUso.DataBind() DdlTipoUso.DataBind()
@@ -109,13 +114,14 @@ Partial Class Acumuladores_CatFoliosGarantia
Private Sub CargaCombosModal() Private Sub CargaCombosModal()
Dim ObjPS As New ClsProductosServicios 'Dim ObjPS As New ClsProductosServicios
If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then 'If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
DdlMarcaM.DataSource = ObjPS.DtResultados ' DdlMarcaM.DataSource = ObjPS.DtResultados
End If 'End If
ObjPS.Dispose() 'ObjPS.Dispose()
DdlMarca.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
DdlMarcaM.DataBind() DdlMarcaM.DataBind()
DdlTipoUsoM.DataSource = GlobalDTAcumTiposUso() DdlTipoUsoM.DataSource = GlobalDTAcumTiposUso()

20
App_Code/ClsClientes.vb
View File

@@ -589,7 +589,7 @@ Public Class ClsClientes
Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1", Optional RequiereOC As Boolean = False, Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1", Optional RequiereOC As Boolean = False,
Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0,
Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False,
Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha) As Boolean Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1") As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -737,6 +737,9 @@ Public Class ClsClientes
.Add("@RepresentanteLegal", SqlDbType.VarChar).Value = RepresentanteLegal .Add("@RepresentanteLegal", SqlDbType.VarChar).Value = RepresentanteLegal
.Add("@FechaLimiteCredito", SqlDbType.Date).Value = FechaLimiteCredito .Add("@FechaLimiteCredito", SqlDbType.Date).Value = FechaLimiteCredito
.Add("@ComExtCalle", SqlDbType.VarChar).Value = ComExtCalle
.Add("@ComExtNumExt", SqlDbType.VarChar).Value = ComExtNumExt
.Add("@ComExtCP", SqlDbType.VarChar).Value = ComExtCP
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
@@ -785,7 +788,7 @@ Public Class ClsClientes
Optional ApellidoPaternoPF As String = "-1", Optional ApellidoMaternoPF As String = "-1", Optional NombresPF As String = "-1", Optional RequiereOC As Boolean = False, Optional ApellidoPaternoPF As String = "-1", Optional ApellidoMaternoPF As String = "-1", Optional NombresPF As String = "-1", Optional RequiereOC As Boolean = False,
Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1",
Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional NoDesglosaIVA As Boolean = False, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False, Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional NoDesglosaIVA As Boolean = False, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False,
Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha) As Boolean Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1") As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -949,6 +952,9 @@ Public Class ClsClientes
.Add("@RepresentanteLegal", SqlDbType.VarChar).Value = RepresentanteLegal .Add("@RepresentanteLegal", SqlDbType.VarChar).Value = RepresentanteLegal
.Add("@FechaLimiteCredito", SqlDbType.Date).Value = FechaLimiteCredito .Add("@FechaLimiteCredito", SqlDbType.Date).Value = FechaLimiteCredito
.Add("@ComExtCalle", SqlDbType.VarChar).Value = ComExtCalle
.Add("@ComExtNumExt", SqlDbType.VarChar).Value = ComExtNumExt
.Add("@ComExtCP", SqlDbType.VarChar).Value = ComExtCP
@@ -1427,7 +1433,7 @@ Public Class ClsClientes
Alert("La Clasificación ya existe en el Catálogo.", TipoMensaje.MsgError) Alert("La Clasificación ya existe en el Catálogo.", TipoMensaje.MsgError)
End If End If
Catch ex As Exception Catch ex As Exception
OnError("Ocurrió un error al Actualizar la Clasificación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("Ocurrió un error al actualizar el giro.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try End Try
Return Retorno Return Retorno
@@ -1448,10 +1454,10 @@ Public Class ClsClientes
Retorno = True Retorno = True
Catch Ex1 As SqlException Catch Ex1 As SqlException
If Ex1.Message.Contains("Número: 2627;") Then If Ex1.Message.Contains("Número: 2627;") Then
Alert("La Clasificación ya existe en el Catálogo.", TipoMensaje.MsgError) Alert("Eñ giro ya existe en el catálogo.", TipoMensaje.MsgError)
End If End If
Catch ex As Exception Catch ex As Exception
OnError("Ocurrió un error al Guardar una Clasificación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("Ocurrió un error al guardar un giro.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try End Try
Return Retorno Return Retorno
End Function End Function
@@ -1467,7 +1473,7 @@ Public Class ClsClientes
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Retorno = True Retorno = True
Catch ex As Exception Catch ex As Exception
OnError("Ocurrió un error al obtener las Clasificaciones de los Clientes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) OnError("Ocurrió un error al obtener los giros de los clientes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try End Try
Return Retorno Return Retorno
End Function End Function
@@ -1483,7 +1489,7 @@ Public Class ClsClientes
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Retorno = True Retorno = True
Catch ex As Exception Catch ex As Exception
OnError("Ocurrió un error eliminar la Clasificación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) OnError("Ocurrió un error eliminar el giro.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try End Try
Return Retorno Return Retorno
End Function End Function

6
App_Code/ClsContabilidad.vb
View File

@@ -3378,10 +3378,10 @@ Public Class ClsContabilidad
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
.Add("@Codigo", SqlDbType.VarChar).Value = Codigo .Add("@Codigo", SqlDbType.VarChar).Value = Codigo
.Add("@Afectable", SqlDbType.VarChar).Value = Afectable .Add("@Afectable", SqlDbType.Int).Value = Afectable
.Add("@CveEmpresa", SqlDbType.VarChar).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@Nombre", SqlDbType.VarChar).Value = Nombre .Add("@Nombre", SqlDbType.VarChar).Value = Nombre
.Add("@RowNum", SqlDbType.VarChar).Value = RowNum .Add("@RowNum", SqlDbType.Int).Value = RowNum
.Add("@CvePadre", SqlDbType.Int).Value = CvePadre .Add("@CvePadre", SqlDbType.Int).Value = CvePadre
End With End With

113
App_Code/ClsPaginas.vb
View File

@@ -4712,7 +4712,6 @@ Public Class ClsPaginas
PaginaDict.Add("/Compras/RepCxP.aspx".ToUpper(), 168) PaginaDict.Add("/Compras/RepCxP.aspx".ToUpper(), 168)
PaginaDict.Add("/Compras/RepCxPDetalle.aspx".ToUpper(), 168) PaginaDict.Add("/Compras/RepCxPDetalle.aspx".ToUpper(), 168)
PaginaDict.Add("/Compras/CatProveedoresClasificaciones.aspx".ToUpper(), 186) PaginaDict.Add("/Compras/CatProveedoresClasificaciones.aspx".ToUpper(), 186)
PaginaDict.Add("/Compras/CatAcreedores.aspx".ToUpper(), 303)
PaginaDict.Add("/Compras/Acreedores.aspx".ToUpper(), 303) PaginaDict.Add("/Compras/Acreedores.aspx".ToUpper(), 303)
PaginaDict.Add("/Compras/RepComprasG.aspx".ToUpper(), 286) PaginaDict.Add("/Compras/RepComprasG.aspx".ToUpper(), 286)
PaginaDict.Add("/Compras/Compras2.aspx".ToUpper(), -1) PaginaDict.Add("/Compras/Compras2.aspx".ToUpper(), -1)
@@ -5778,11 +5777,11 @@ Public Class ClsPaginas
If sw IsNot Nothing AndAlso Not (Not User.Identity.IsAuthenticated OrElse UsuarioActual Is Nothing) Then If sw IsNot Nothing AndAlso Not (Not User.Identity.IsAuthenticated OrElse UsuarioActual Is Nothing) Then
sw.Stop() sw.Stop()
'If Not Page.IsPostBack Then If Not Page.IsPostBack Then
' Using ObjUsuario As New ClsSisUsuarios Using ObjUsuario As New ClsSisUsuarios
' ObjUsuario.AddBitacora(CveModulo, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request.Url.PathAndQuery.ToString(), sw.ElapsedMilliseconds) ObjUsuario.AddBitacora(CveModulo, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request.Url.PathAndQuery.ToString(), sw.ElapsedMilliseconds)
' End Using End Using
'End If End If
End If End If
If Not IsNothing(ViewState("strToastMsglargonoreplace")) AndAlso ViewState("strToastMsglargonoreplace").ToString.Length > 0 Then If Not IsNothing(ViewState("strToastMsglargonoreplace")) AndAlso ViewState("strToastMsglargonoreplace").ToString.Length > 0 Then
@@ -8016,7 +8015,7 @@ Public Class ClsPaginas
End If End If
'TEMPORAL, DEBE CAMBIARSE A FUNCIONALIDAD 'TEMPORAL, DEBE CAMBIARSE A FUNCIONALIDAD
If Vta.CveEmpresa.Contiene(172, 173) Then If UsuarioActual.Empresa.Funcionalidad(707) = "1" Then
Dim ArchivoStimulsfot As New System.IO.FileInfo(RutaFormato.Replace(".rdlc", ".mrt")) Dim ArchivoStimulsfot As New System.IO.FileInfo(RutaFormato.Replace(".rdlc", ".mrt"))
If ArchivoStimulsfot.Exists Then If ArchivoStimulsfot.Exists Then
UsarStimulsoft = True UsarStimulsoft = True
@@ -8070,8 +8069,7 @@ Public Class ClsPaginas
RutaFormato = RutaFormato.Replace(".rdlc", ".mrt") RutaFormato = RutaFormato.Replace(".rdlc", ".mrt")
retorno = StreamBytesStimulsoft("Facturas", RutaFormato, lrds, params, NombreArchivo:=NombreArchivo, Formato:="PDF") retorno = StreamBytesStimulsoft("Facturas", RutaFormato, lrds, params, NombreArchivo:=NombreArchivo, Formato:="PDF")
'TEMPORAL, EMPRESAS EN LAS QUE SE UTILIZARA PRIMERO STIMULSOFT If UsuarioActual.Empresa.Funcionalidad(707) = "1" Then
If Vta.CveEmpresa.Contiene(172, 173) Then
Dim ArchivoPDF As New System.IO.FileInfo(String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, Vta.TipoDocto, Vta.SerieFolio)) Dim ArchivoPDF As New System.IO.FileInfo(String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, Vta.TipoDocto, Vta.SerieFolio))
If Guardar Then If Guardar Then
If Not ArchivoPDF.Exists Then If Not ArchivoPDF.Exists Then
@@ -9633,6 +9631,8 @@ Public Class ClsPaginas
Dim ImporteMN As Decimal = 0 Dim ImporteMN As Decimal = 0
Dim ImporteME As Decimal = 0 Dim ImporteME As Decimal = 0
Dim TCValuacion As Decimal = CompraActual.TC Dim TCValuacion As Decimal = CompraActual.TC
Dim TCValuacionPago As Decimal = Pago.TCPago
Dim tFechaUltimaFluctuacion As Date
Dim tImportePago, tImporteCompra As Decimal Dim tImportePago, tImporteCompra As Decimal
Dim CveConceptoContableComplementaria As Integer = 206 Dim CveConceptoContableComplementaria As Integer = 206
@@ -9650,16 +9650,15 @@ Public Class ClsPaginas
Dim FuncionalidadFluctuacionImpuestos As Boolean = If(UsuarioActual.Empresa.Funcionalidad(159) = "1", True, False) Dim FuncionalidadFluctuacionImpuestos As Boolean = If(UsuarioActual.Empresa.Funcionalidad(159) = "1", True, False)
Dim tFecha As Date = Pago.Fecha Dim tFecha As Date = Pago.Fecha
Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha)
If CompraActual.CveMoneda <> 1 OrElse Pago.CveMonedaPago <> 1 Then If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then
Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha) If UltimaFluctuacion.FechaFluctuacion <= tFecha Then
tFechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion
If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then TCValuacion = UltimaFluctuacion.TCFluctuacion
If UltimaFluctuacion.FechaFluctuacion <= tFecha AndAlso CompraActual.Fecha <= UltimaFluctuacion.FechaFluctuacion Then
'FechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion
TCValuacion = UltimaFluctuacion.TCFluctuacion
End If
End If End If
If CompraActual.Fecha < tFechaUltimaFluctuacion Then TCValuacion = TCValuacion
If Pago.Fecha < tFechaUltimaFluctuacion Then TCValuacionPago = TCValuacion
End If End If
If CompraActual.CveMoneda = 1 And Pago.CveMonedaPago <> 1 Then 'factura pesos, pago en dolares If CompraActual.CveMoneda = 1 And Pago.CveMonedaPago <> 1 Then 'factura pesos, pago en dolares
@@ -9793,6 +9792,82 @@ Public Class ClsPaginas
End If End If
'concepto pago
Concepto = String.Format("{0} NC:{1}", CompraActual.ProveedorNombre, Pago.Referencia)
If Pago.TipoPago = "Egsc" AndAlso Not ErrorMovtos Then ' A N T I C I P O / E G R E S O S X C O M P R O B A R
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
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
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
End If
End If
If Pago.TipoPago.Contiene("NC", "DEV") AndAlso Not ErrorMovtos Then ' N O T A D E C R E D I T O
Dim Ret As New ConceptosRetenciones
If Pago.CveMonedaPago > 1 Then
'Agregamos la Extranjera
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 60, Pago.Referencia, Concepto, CompraActual.IdCtaContableProv, CveCompra:=Pago.CveCompraAmortizacion, CveCompraAmortizacion:=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, 235, Pago.Referencia, Concepto, CompraActual.IdCtaContableProvComplementaria, CveCompra:=Pago.CveCompraAmortizacion, CveVentaAmortizacion:=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, 60, Pago.Referencia, Concepto, CompraActual.IdCtaContableProv, CveCompra:=Pago.CveCompraAmortizacion, CveVentaAmortizacion:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
End If
End If
If Pago.TipoPago = "DD" AndAlso Not ErrorMovtos Then ' D E U D O R D I V E R S O
Dim Ret As New ConceptosRetenciones
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
If ObjConta.GetRetCuenta(66, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContableAcreditable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
If Pago.CveMonedaPago > 1 AndAlso ObjConta.GetRetCuenta(207, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContablexAcreditar = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
End If
If Pago.CveMonedaPago > 1 Then
'Agregamos la Extranjera
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 92, Pago.Referencia, Concepto, CompraActual.IdCtaContableProv, CveCompra:=Pago.CveCompraAmortizacion, CveCompraAmortizacion:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImporteMN, 207, Pago.Referencia, Concepto, CompraActual.IdCtaContableProvComplementaria, CveCompra:=Pago.CveCompraAmortizacion, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
Else
'Agregamos Nacional
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 92, Pago.Referencia, Concepto, CompraActual.IdCtaContableProv, CveVenta:=Pago.CveCompraAmortizacion, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CveSubProyecto:=CompraActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
End If
End If
'If Pago.TipoPago = "Egsc" AndAlso Not ErrorMovtos Then ' I N G R E S O S X C O M P R O B A R
' Dim Ret As New ConceptosRetenciones
' If UsuarioActual.Empresa.TipoContabilidad = 2 Then
' If ObjConta.GetRetCuenta(66, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContableAcreditable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
' If Pago.CveMonedaPago > 1 AndAlso ObjConta.GetRetCuenta(207, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContablexAcreditar = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
' End If
' If Pago.CveMonedaPago > 1 Then
' 'Agregamos la Extranjera
' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 92, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipo, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
' ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL
' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImporteMN, 207, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipoComplementaria, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
' Else
' 'Agregamos Nacional
' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 92, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipoExtranjera, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CveSubProyecto:=VentaActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
' End If
'End If
If Not ErrorMovtos AndAlso TCValuacion <> Pago.TCPago Then If Not ErrorMovtos AndAlso TCValuacion <> Pago.TCPago Then
Dim ConceptoContable, IdCtaContable As Integer Dim ConceptoContable, IdCtaContable As Integer
Dim TipoMovimiento As Boolean Dim TipoMovimiento As Boolean
@@ -9844,6 +9919,7 @@ Public Class ClsPaginas
Public Property OtroGastoIngreso As Decimal = 0 Public Property OtroGastoIngreso As Decimal = 0
Public Property CveConceptoPago As Integer = -1 'no definido de inicio Public Property CveConceptoPago As Integer = -1 'no definido de inicio
Public Property CveCreditoDetalle As Integer = -1 Public Property CveCreditoDetalle As Integer = -1
Public Property Referencia As String = ""
Public Property AplicaAcreditable As Boolean = True Public Property AplicaAcreditable As Boolean = True
End Class End Class
@@ -9870,9 +9946,10 @@ Public Class ClsPaginas
Public Property CveConceptoRetISR As Integer Public Property CveConceptoRetISR As Integer
Public Property CveSubProyecto As Integer Public Property CveSubProyecto As Integer
Public Property UsuarioActual As Usuario Public Property UsuarioActual As Usuario
Public Property IdCtaContableProv As Integer Public Property IdCtaContableProv As Integer
Public Property IdCtaContableProvComplementaria As Integer Public Property IdCtaContableProvComplementaria As Integer
Public Property IdCtaContableAnticipoProv As Integer
Public Property IdCtaContableAnticipoProvComplementaria As Integer
Public ReadOnly Property ConceptoPrePolizaIVA As ConceptosRetenciones Public ReadOnly Property ConceptoPrePolizaIVA As ConceptosRetenciones
Get Get
Dim Ret As New ConceptosRetenciones Dim Ret As New ConceptosRetenciones

4
App_Code/ClsSisUsuarios.vb
View File

@@ -1065,12 +1065,14 @@ Public Class ClsSisUsuarios
#End Region #End Region
#Region "B I T A C O R A D E U S A R I O S" #Region "B I T A C O R A D E U S A R I O S"
Public Function GetBitacora(CveUsuario As Integer) As Boolean Public Function GetBitacora(CveUsuario As Integer, Optional FechaI As DateTime = ModExtensiones.MinFecha, Optional FechaF As DateTime = ModExtensiones.MaxFecha) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Sis_UsuariosBitacoraGet") DataAdapter("PA_Sis_UsuariosBitacoraGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@FechaI", SqlDbType.DateTime).Value = FechaI
.Add("@FechaF", SqlDbType.DateTime).Value = FechaF
End With End With
Try Try

29
App_Code/Timbrado.vb
View File

@@ -4960,18 +4960,23 @@ Public Class Timbrado
ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Estado, ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Estado,
ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Pais, ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Pais,
ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.CP) ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.CP)
cfdi.ComercioExterior11Destinatario(ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumRegIdTrib,
ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Nombre, If ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario IsNot Nothing Then
ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Calle, cfdi.ComercioExterior11Destinatario(ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumRegIdTrib,
ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumeroExterior, ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Nombre,
ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumeroInterior, ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Calle,
ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Colonia, ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumeroExterior,
ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Localidad, ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumeroInterior,
ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Referencia, ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Colonia,
ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Municipio, ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Localidad,
ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Estado, ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Referencia,
ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Pais, ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Municipio,
ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.CP) ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Estado,
ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Pais,
ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.CP)
End If
'MERCANCIAS 'MERCANCIAS
If ObjCFDITimbre.Complementos.ComercioExterior11.Mercancias IsNot Nothing AndAlso ObjCFDITimbre.Complementos.ComercioExterior11.Mercancias.Count > 0 Then If ObjCFDITimbre.Complementos.ComercioExterior11.Mercancias IsNot Nothing AndAlso ObjCFDITimbre.Complementos.ComercioExterior11.Mercancias.Count > 0 Then
For Each concep As CFDIComercioExterior11Mercancias In ObjCFDITimbre.Complementos.ComercioExterior11.Mercancias For Each concep As CFDIComercioExterior11Mercancias In ObjCFDITimbre.Complementos.ComercioExterior11.Mercancias

4
App_Code/modExtensiones.vb
View File

@@ -1004,11 +1004,11 @@ Namespace Extensiones
'**********Une la parte entera y la parte decimal************* '**********Une la parte entera y la parte decimal*************
If dec <> "" Then If dec <> "" Then
palabras.AppendFormat("{0} {1} /100 {2}", Moneda, dec, AbrevMoneda) palabras.AppendFormat("{0} {1}/100 {2}", Moneda, dec, AbrevMoneda)
Retorno = palabras.ToString Retorno = palabras.ToString
Else Else
palabras.AppendFormat("{0} {1} /100 {2}", Moneda, dec, AbrevMoneda) palabras.AppendFormat("{0} {1}/100 {2}", Moneda, dec, AbrevMoneda)
Retorno = palabras.ToString Retorno = palabras.ToString
End If End If

9
Compras/Compras.aspx
View File

@@ -505,7 +505,7 @@
<div class="form-group proveedoreespes"> <div class="form-group proveedoreespes">
<span class="whitoutcol linewhitsize proveedoreespes">F. Captura </span> <span class="whitoutcol linewhitsize proveedoreespes">F. Captura </span>
<div class="whitoutcol whitoutcol"> <div class="whitoutcol whitoutcol">
<asp:Literal ID="LitFechCaptura" runat="server"></asp:Literal> <asp:Label ID="LitFechCaptura" runat="server"></asp:Label>
</div> </div>
</div> </div>
<div class="form-group proveedoreespes"> <div class="form-group proveedoreespes">
@@ -5927,11 +5927,8 @@
} }
} }
var txtvalue = ToDouble(txt.value); var txtvalue = ToDouble(txt.value);
if (txtComisionImporte != 0 && txtComisionImporte > txtvalue) { if (txtComisionImporte != 0 && txtComisionImporte > txtvalue) {
if (txtComision != null) { if (txtComision != null) {
@@ -5941,7 +5938,7 @@
return; return;
} }
debugger;
if (CveMonedaAnticipo == 1 && CveMonedaOriginal == 2) { if (CveMonedaAnticipo == 1 && CveMonedaOriginal == 2) {
txtvalue = ToDouble(txtvalue / TCAnticipo); txtvalue = ToDouble(txtvalue / TCAnticipo);
} else if (CveMonedaAnticipo == 2 && CveMonedaOriginal == 1) { } else if (CveMonedaAnticipo == 2 && CveMonedaOriginal == 1) {
@@ -5949,7 +5946,7 @@
} }
var SaldoCompra = (TotalSaldo - FnSumaValoresAnt() + ToDouble(txtvalue)).toFixed(2); // le agrego lo del valor actual para validarlo //parseFloat(parseFloat($get('HdnCompraSaldo').value).toFixed(2)); var SaldoCompra = (TotalSaldo - FnSumaValoresAnt() + ToDouble(txtvalue)).toFixed(2); // le agrego lo del valor actual para validarlo //parseFloat(parseFloat($get('HdnCompraSaldo').value).toFixed(2));
alert(txtvalue);
if (SaldoCompra < 0) txt.value = SaldoCompra - txtvalue; if (SaldoCompra < 0) txt.value = SaldoCompra - txtvalue;
//minimo entre saldocompra y el saldoanticipo //minimo entre saldocompra y el saldoanticipo
if (SaldoCompra < saldo) saldo = SaldoCompra; if (SaldoCompra < saldo) saldo = SaldoCompra;

3
Compras/Compras.aspx.vb
View File

@@ -2642,6 +2642,7 @@ Partial Class Compras_Compras
TxtObsFact.Text = dr("Observaciones").ToString TxtObsFact.Text = dr("Observaciones").ToString
LblUsuarioCaptura.Text = dr("Usuario").ToString LblUsuarioCaptura.Text = dr("Usuario").ToString
LitFechCaptura.Text = dr("FechaIng").ToString.ToDate.ToShortDateString LitFechCaptura.Text = dr("FechaIng").ToString.ToDate.ToShortDateString
LitFechCaptura.ToolTip = dr("FechaIng").ToString
LblRetIVA.Text = Math.Round((dr("RetIVA").ToString.ToDouble / TxtSubTotal2.Text.ToDouble) * 100, 4).FormatoNumero(3) + "%" LblRetIVA.Text = Math.Round((dr("RetIVA").ToString.ToDouble / TxtSubTotal2.Text.ToDouble) * 100, 4).FormatoNumero(3) + "%"
LblRetISR.Text = Math.Round((dr("RetISR").ToString.ToDouble / TxtSubTotal2.Text.ToDouble) * 100, 4).FormatoNumero(3) LblRetISR.Text = Math.Round((dr("RetISR").ToString.ToDouble / TxtSubTotal2.Text.ToDouble) * 100, 4).FormatoNumero(3)
If dr("TipoFactura").ToString <> "CFDi" Then LblTipoFact.Text = dr("TipoFactura").ToString : divTipoFactura.Visible = True If dr("TipoFactura").ToString <> "CFDi" Then LblTipoFact.Text = dr("TipoFactura").ToString : divTipoFactura.Visible = True
@@ -4774,7 +4775,7 @@ Partial Class Compras_Compras
'End If 'End If
'METODO DE PREPOLIZA DE ALMACEN 'METODO DE PREPOLIZA DE ALMACEN
If UsuarioActual.CveEmpresa.Contiene(1, 119, 72, 80, 140, 141, 145, 152, 153, 154, 158, 159, 160, 161, 162, 163) And UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then If UsuarioActual.CveEmpresa.Contiene(1, 119, 72, 80, 140, 141, 145, 152, 153, 154, 158, 159, 160, 161, 162, 163, 172, 173) And UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
Dim ImporteAlmacen = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveTipoPS = 2").ToString.ToDecimal Dim ImporteAlmacen = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveTipoPS = 2").ToString.ToDecimal
If ImporteAlmacen > 0 Then If ImporteAlmacen > 0 Then
If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then

2
Compras/Proveedores.aspx
View File

@@ -3101,7 +3101,7 @@
<asp:Literal ID="LtlEventoBitacora" runat="server" Text='<%# Eval("Descripcion") %>'></asp:Literal> <asp:Literal ID="LtlEventoBitacora" runat="server" Text='<%# Eval("Descripcion") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField> <asp:TemplateField HeaderStyle-Width="30px">
<HeaderTemplate>Archivo</HeaderTemplate> <HeaderTemplate>Archivo</HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:LinkButton ID="LinkArchivo" Visible="false" runat="server" CssClass="Texto" OnClick="DownloadFile"> <asp:LinkButton ID="LinkArchivo" Visible="false" runat="server" CssClass="Texto" OnClick="DownloadFile">

47
Compras/RepCxP.aspx.vb
View File

@@ -1426,7 +1426,24 @@ Partial Class Compras_RepCxP
TCEspecifico = -1 TCEspecifico = -1
End If End If
Dim Sucursal = If(DdlSubProyecto.SelectedValue = "-1", "", $"&emsp;<b>Sucursal:</b> {DdlSubProyecto.SelectedItem.Text}") Dim Proyecto = ""
Dim Sucursal = ""
Select Case UsuarioActual.Empresa.Tipo_CentroCosto
Case 1
Sucursal = If(DdlSubProyecto.SelectedValue = "-1", "", $"&emsp;<b>Centro de costo:</b> {DdlSubProyecto.SelectedItem.Text}")
Case 2
Sucursal = If(DdlSubProyecto.SelectedValue = "-1", "", $"&emsp;<b>Sucursal:</b> {DdlSubProyecto.SelectedItem.Text}")
Case 3
Sucursal = If(DdlSubProyecto.SelectedValue = "-1", "", $"&emsp;<b>Proyecto:</b> {DdlSubProyecto.SelectedItem.Text}")
Case 4
Proyecto = If(DdlProyecto.SelectedValue = "-1", "", $"&emsp;<b>Proyecto:</b> {DdlProyecto.SelectedItem.Text}")
Sucursal = If(DdlSubProyecto.SelectedValue = "-1", "", $"&emsp;<b>Sub Proyecto:</b> {DdlSubProyecto.SelectedItem.Text}")
Case 5
Proyecto = If(DdlProyecto.SelectedValue = "-1", "", $"&emsp;<b>Proyecto:</b> {DdlProyecto.SelectedItem.Text}")
Sucursal = If(DdlSubProyecto.SelectedValue = "-1", "", $"&emsp;<b>Sucursal:</b> {DdlSubProyecto.SelectedItem.Text}")
End Select
Dim Proveedor = If(DdlProveedor.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b> {DdlProveedor.SelectedText}") Dim Proveedor = If(DdlProveedor.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b> {DdlProveedor.SelectedText}")
Dim Clasificacion = If(DdlProveedoresClasificaciones.SelectedValue = "-1", "", $"&emsp;<b>Clasificación:</b> {DdlProveedoresClasificaciones.SelectedItem.Text}") Dim Clasificacion = If(DdlProveedoresClasificaciones.SelectedValue = "-1", "", $"&emsp;<b>Clasificación:</b> {DdlProveedoresClasificaciones.SelectedItem.Text}")
Dim Grupo = If(DdlGrupo.SelectedValue = "-1", "", $"&emsp;<b>Grupo:</b> {DdlGrupo.SelectedItem.Text}") Dim Grupo = If(DdlGrupo.SelectedValue = "-1", "", $"&emsp;<b>Grupo:</b> {DdlGrupo.SelectedItem.Text}")
@@ -1465,7 +1482,7 @@ Partial Class Compras_RepCxP
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Grupo", DdlGrupo.SelectedItem.Text)) params.Add(New ReportParameter("Grupo", DdlGrupo.SelectedItem.Text))
params.Add(New ReportParameter("AgrupadoPor", $"{Grupo}{Proveedor}{Clasificacion}{FechaIn}{FechaFn}{Registro}{Responsable}{Sucursal}{TipoMoneda}{FVI}{FVF}")) params.Add(New ReportParameter("AgrupadoPor", $"{Grupo}{Proveedor}{Clasificacion}{FechaIn}{FechaFn}{Registro}{Responsable}{Proyecto}{Sucursal}{TipoMoneda}{FVI}{FVF}"))
params.Add(New ReportParameter("CantColumnas", CantidadColumnas)) params.Add(New ReportParameter("CantColumnas", CantidadColumnas))
If Imagen.Exists Then If Imagen.Exists Then
@@ -1531,23 +1548,34 @@ Partial Class Compras_RepCxP
UpPersonalizarRango.Update() UpPersonalizarRango.Update()
End Sub End Sub
Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs) Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs)
Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
DtPersonalizarRango.Rows.RemoveAt(gvRow.RowIndex)
DtPersonalizarRango.AcceptChanges()
CargaGv()
End Sub
DtPersonalizarRango.AcceptChanges() Protected Sub LnkEditar_Click(sender As Object, e As EventArgs)
Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
Index = gvRow.RowIndex Index = gvRow.RowIndex
Modalidad = "U" Modalidad = "U"
DdlTipo.SelectedValueExist(gvRow.DataKey("Tipo"))
TxtRI.Text = gvRow.DataKey("RangoInicial")
TxtRF.Text = gvRow.DataKey("RangoFinal")
If Not TxtRF.Text.ToDouble > 0 Then
ChkMayor.Checked = True ChkMayor.Checked = True
TxtRF.Enabled = False TxtRF.Enabled = False
Else Else
ChkMayor.Checked = False ChkMayor.Checked = False
End If End If
TxtRI.Text = gvRow.DataKey("RangoInicial") RegistraScript("$('#DivPersonalizarRangoEditar').modal()")
UpPersonalizarRangoEditar.Update()
End Sub
Private Sub LimpiaPersonalizarColumna() Private Sub LimpiaPersonalizarColumna()
DdlTipo.SelectedIndex = 0 DdlTipo.SelectedIndex = 0
TxtRF.Enabled = False TxtRI.Text = ""
TxtRF.Text = ""
ChkMayor.Checked = False ChkMayor.Checked = False
SoloNumeros2.Enabled = True SoloNumeros2.Enabled = True
TxtRF.Enabled = True TxtRF.Enabled = True
@@ -1670,7 +1698,8 @@ Partial Class Compras_RepCxP
Protected Sub BtnAgregarRango_Click(sender As Object, e As EventArgs) Protected Sub BtnAgregarRango_Click(sender As Object, e As EventArgs)
Modalidad = "A" Modalidad = "A"
LimpiaPersonalizarColumna() LimpiaPersonalizarColumna()
RegistraScript("$('#DivPersonalizarRangoEditar').modal()")
UpPersonalizarRangoEditar.Update()
End Sub End Sub
Protected Sub BtnPersonalizarRango_Click(sender As Object, e As EventArgs) Protected Sub BtnPersonalizarRango_Click(sender As Object, e As EventArgs)

9
Contabilidad/DiarioPagos.aspx.vb
View File

@@ -599,7 +599,7 @@ Partial Class Contabilidad_DiarioPagos
Select Case UsuarioActual.CveEmpresa Select Case UsuarioActual.CveEmpresa
Case 13 Case 13, 83
Select Case gvr.DataKey("CveTipoTransaccion") Select Case gvr.DataKey("CveTipoTransaccion")
Case "1" 'cheque Case "1" 'cheque
Folio = gvr.DataKey("Folio") Folio = gvr.DataKey("Folio")
@@ -791,7 +791,7 @@ Partial Class Contabilidad_DiarioPagos
End If End If
'registro los movimientos en proveedores, cuando es de contado que toque 'registro los movimientos en proveedores, cuando es de contado que toque
If UsuarioActual.CveEmpresa = 13 AndAlso Not EsContabilizada AndAlso Opcion = 1 AndAlso Math.Abs(CargoProveedor) <= 1 AndAlso Math.Abs(AbonoProveedor) <= 1 Then If UsuarioActual.CveEmpresa.Contiene(13, 83) AndAlso Not EsContabilizada AndAlso Opcion = 1 AndAlso Math.Abs(CargoProveedor) <= 1 AndAlso Math.Abs(AbonoProveedor) <= 1 Then
CargoProveedor += CompraPagadoTotal CargoProveedor += CompraPagadoTotal
AbonoProveedor += CompraPagadoTotal AbonoProveedor += CompraPagadoTotal
End If End If
@@ -835,7 +835,7 @@ Partial Class Contabilidad_DiarioPagos
End If End If
Dim ttTipoCambioPago As Double = TipoCambioPago Dim ttTipoCambioPago As Double = TipoCambioPago
If UsuarioActual.CveEmpresa = 13 Then ttTipoCambioPago = TipoCambioCompra If UsuarioActual.CveEmpresa.Contiene(13, 83) Then ttTipoCambioPago = TipoCambioCompra
If IVAAcreditable > 0 Then 'iva Acreditable If IVAAcreditable > 0 Then 'iva Acreditable
@@ -927,8 +927,7 @@ Partial Class Contabilidad_DiarioPagos
If SimplificaRetIVA = False Then CompraRetIVA = CompraPagadoRetIVA If SimplificaRetIVA = False Then CompraRetIVA = CompraPagadoRetIVA
'no registra la retencion de iva al pagar 'no registra la retencion de iva al pagar
If UsuarioActual.CveEmpresa = 13 Then IdCuentaRetIVACirculacion = 0 If UsuarioActual.CveEmpresa.Contiene(13, 83) Then IdCuentaRetIVACirculacion = 0
ConceptoTmp = If(CveMoneda = 2, String.Format("{0} TC {1}", ConceptoDetalle, TipoCambioFechaCompra), ConceptoDetalle) ConceptoTmp = If(CveMoneda = 2, String.Format("{0} TC {1}", ConceptoDetalle, TipoCambioFechaCompra), ConceptoDetalle)
If CompraRetIVA > 0 AndAlso IdCuentaRetIVACirculacion > 0 AndAlso Not Conta.AddMovimiento(IDPoliza, IdCuentaRetIVACirculacion, False, CompraPagadoRetIVA * TipoCambioFechaCompra, gvrc.FCHiddenField("HdnSerieFolio").Value, ConceptoTmp, 0, Fecha, gvrc.FCHiddenField("HdnCveCompra").Value.ContaReferencia(TipoContaReferencia.Compra), If(MonExt, CompraRetIVA, 0.0)) Then MsgError = "No se pudo insertar movimiento contable" : Exit For If CompraRetIVA > 0 AndAlso IdCuentaRetIVACirculacion > 0 AndAlso Not Conta.AddMovimiento(IDPoliza, IdCuentaRetIVACirculacion, False, CompraPagadoRetIVA * TipoCambioFechaCompra, gvrc.FCHiddenField("HdnSerieFolio").Value, ConceptoTmp, 0, Fecha, gvrc.FCHiddenField("HdnCveCompra").Value.ContaReferencia(TipoContaReferencia.Compra), If(MonExt, CompraRetIVA, 0.0)) Then MsgError = "No se pudo insertar movimiento contable" : Exit For

5
Contabilidad/PlantillasPolizasDetalle.aspx.vb
View File

@@ -61,7 +61,7 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
ObjPlantillaPolizasTipo.Dispose() ObjPlantillaPolizasTipo.Dispose()
Dim dt As DataTable = Nothing Dim dt As DataTable = Nothing
If UsuarioActual.Empresa.UsaContabilidad Then If UsuarioActual.Empresa.TipoContabilidad = 2 Then
Dim Conta As New ClsContPAQi(UsuarioActual.Empresa) Dim Conta As New ClsContPAQi(UsuarioActual.Empresa)
If Conta.GetCuentas(-1, "-1", 1) Then If Conta.GetCuentas(-1, "-1", 1) Then
@@ -257,13 +257,12 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
DdlPorcentajeImpuesto.SelectedValue.ToDecimal, CveCuenta:=DdlCuentas.SelectedValue.ToEntero) Then DdlPorcentajeImpuesto.SelectedValue.ToDecimal, CveCuenta:=DdlCuentas.SelectedValue.ToEntero) Then
TxtOrden.Text = "" TxtOrden.Text = ""
If Not ChkSeguirAgregando.Checked Then If Not ChkSeguirAgregando.Checked Then
updatatos()
Alert("El nuevo Registro se guardó correctamente.", TipoMensaje.MsgInformacion) Alert("El nuevo Registro se guardó correctamente.", TipoMensaje.MsgInformacion)
Else Else
RegistraScript(String.Format("$('#{0}').modal();", "divAgregarSucursal")) RegistraScript(String.Format("$('#{0}').modal();", "divAgregarSucursal"))
UpModal.Update() UpModal.Update()
End If End If
updatatos()
Else Else
ErrorDetalle = True ErrorDetalle = True
End If End If

2
Contabilidad/PopUpAuxiliar.aspx.vb
View File

@@ -210,7 +210,7 @@ Partial Class PopUpAuxiliar
e.Row.FCLiteral("LtlConcepto").Text = String.Format("{0}{1}</a>", Liga, e.Row.DBCampo("ConceptoContable")) e.Row.FCLiteral("LtlConcepto").Text = String.Format("{0}{1}</a>", Liga, e.Row.DBCampo("ConceptoContable"))
End If End If
If e.Row.DBCampo("CveConceptoContable").Contiene("91", "251", "301") Then 'desaplicar NC If e.Row.DBCampo("CveConceptoContable").Contiene("91", "294", "251", "301") Then 'desaplicar NC
e.Row.FCLinkButton("LnkDesAplicar").Visible = True e.Row.FCLinkButton("LnkDesAplicar").Visible = True
e.Row.FCLinkButton("imgD").Visible = False e.Row.FCLinkButton("imgD").Visible = False

18
Contabilidad2/CatCuentasAsignaciones.aspx
View File

@@ -60,7 +60,7 @@
<label runat="server" id="Lblcon" class="col-md-1 truncate">Concepto:</label> <label runat="server" id="Lblcon" class="col-md-1 truncate">Concepto:</label>
<div runat="server" id="DivCon" class="col-md-2"> <div runat="server" id="DivCon" class="col-md-2">
<asp:DropDownList ID="DdlConceptos" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" Width="240px" ValidationGroup="GrpModulo2" ></asp:DropDownList> <asp:DropDownList ID="DdlConceptos" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" Width="240px" ValidationGroup="GrpModulo2" ></asp:DropDownList>
</div> </div>
</div> </div>
@@ -134,11 +134,11 @@
<div class="col-md-1" style="width:50%;text-align:left"> <div class="col-md-1" style="width:50%;text-align:left">
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:HiddenField ID="HdnCveCuentaAsignacion" runat="server" /> <asp:HiddenField ID="HdnCveCuentaAsignacion" runat="server" />
<asp:DropDownList ID="DdlCconceptosContables" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" Width="240px" ValidationGroup="GrpModulo" AutoPostBack="true"></asp:DropDownList> <asp:DropDownList ID="DdlCconceptosContables" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" Width="240px" ValidationGroup="GrpModulo" AutoPostBack="true"></asp:DropDownList>
<label for="<%= DdlCconceptosContables.ClientID.ToString()%>">Concepto Contable: </label> <label for="<%= DdlCconceptosContables.ClientID.ToString()%>">Concepto Contable: </label>
</div> </div>
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlCuenta" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="CveCuenta" Width="240px" ValidationGroup="GrpModulo"></asp:DropDownList> <asp:DropDownList ID="DdlCuenta" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" DataTextField="CtaCodigo" DataValueField="CveCuenta" Width="240px" ValidationGroup="GrpModulo"></asp:DropDownList>
<label for="<%= DdlCuenta.ClientID.ToString()%>">Cuenta Contable: </label> <label for="<%= DdlCuenta.ClientID.ToString()%>">Cuenta Contable: </label>
</div> </div>
<div class="form-group form-md-line-input input-iconright" id="divIdCuenta" runat="server" visible="false"> <div class="form-group form-md-line-input input-iconright" id="divIdCuenta" runat="server" visible="false">
@@ -147,7 +147,7 @@
<label for="<%= TxtIdCuentaContable.ClientID.ToString()%>">IdCuentaContable:</label> <label for="<%= TxtIdCuentaContable.ClientID.ToString()%>">IdCuentaContable:</label>
</div> </div>
<div class="form-group form-md-line-input input-iconright" id="divProveedor" runat="server" visible="false"> <div class="form-group form-md-line-input input-iconright" id="divProveedor" runat="server" visible="false">
<ADS:Dropdownlost ID="DdlProveedor" CssClassDdl="select2me" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" data-metodo="getproveedores" CssStyle="width: 100%;" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="240px" ValidationGroup="GrpModulo" ></ADS:Dropdownlost> <ADS:Dropdownlost ID="DdlProveedor" CssClassDdl="select2me" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" data-metodo="getproveedores" CssStyle="width: 100%;" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="240px" ValidationGroup="GrpModulo" ></ADS:Dropdownlost>
<label for="<%= DdlProveedor.ClientID.ToString()%>">Proveedor: </label> <label for="<%= DdlProveedor.ClientID.ToString()%>">Proveedor: </label>
</div> </div>
<div class="form-group form-md-line-input input-iconright" id="divCliente" runat="server" visible="false"> <div class="form-group form-md-line-input input-iconright" id="divCliente" runat="server" visible="false">
@@ -165,11 +165,11 @@
<ADS:Dropdownlost CssClassDdl="select2me" ID="DdlPersonal" Width="90%" data-metodo="getpersonal" runat="server" DataTextField="NombreCompleto" DataValueField="CvePersonal" CssStyle="width: 100%;" Enabled="false"></ADS:Dropdownlost> <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlPersonal" Width="90%" data-metodo="getpersonal" runat="server" DataTextField="NombreCompleto" DataValueField="CvePersonal" CssStyle="width: 100%;" Enabled="false"></ADS:Dropdownlost>
</div> </div>
<div class="form-group form-md-line-input input-iconright" id="divClasificacion" runat="server" visible="false"> <div class="form-group form-md-line-input input-iconright" id="divClasificacion" runat="server" visible="false">
<asp:DropDownList ID="DdlClasificacion" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="240px" ValidationGroup="GrpModulo" Enabled="false"></asp:DropDownList> <asp:DropDownList ID="DdlClasificacion" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="240px" ValidationGroup="GrpModulo" Enabled="false"></asp:DropDownList>
<label for="<%= DdlClasificacion.ClientID.ToString()%>">Clasificación: </label> <label for="<%= DdlClasificacion.ClientID.ToString()%>">Clasificación: </label>
</div> </div>
<div class="form-group form-md-line-input input-iconright" id="divAlmacen" runat="server" visible="false"> <div class="form-group form-md-line-input input-iconright" id="divAlmacen" runat="server" visible="false">
<asp:DropDownList ID="DdlAlmacen" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="Almacen" DataValueField="CveAlmacen" Width="240px" ValidationGroup="GrpModulo" Enabled="false"></asp:DropDownList> <asp:DropDownList ID="DdlAlmacen" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" DataTextField="Almacen" DataValueField="CveAlmacen" Width="240px" ValidationGroup="GrpModulo" Enabled="false"></asp:DropDownList>
<label for="<%= DdlAlmacen.ClientID.ToString()%>">Almacén: </label> <label for="<%= DdlAlmacen.ClientID.ToString()%>">Almacén: </label>
</div> </div>
<div class="form-group form-md-line-input input-iconright" id="divPorcentajeIVA" runat="server" visible="false"> <div class="form-group form-md-line-input input-iconright" id="divPorcentajeIVA" runat="server" visible="false">
@@ -178,11 +178,11 @@
<label for="<%= TxtPorcentajeIVA.ClientID.ToString()%>">PorcentajeIVA:</label> <label for="<%= TxtPorcentajeIVA.ClientID.ToString()%>">PorcentajeIVA:</label>
</div> </div>
<div class="form-group form-md-line-input input-iconright" id="divConceptoNomina" runat="server" visible="false"> <div class="form-group form-md-line-input input-iconright" id="divConceptoNomina" runat="server" visible="false">
<asp:DropDownList ID="DdlConceptoNomina" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="CodigoConcepto" DataValueField="CveConcepto" Width="240px" ValidationGroup="GrpModulo" ></asp:DropDownList> <asp:DropDownList ID="DdlConceptoNomina" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" DataTextField="CodigoConcepto" DataValueField="CveConcepto" Width="240px" ValidationGroup="GrpModulo" ></asp:DropDownList>
<label for="<%= DdlConceptoNomina.ClientID.ToString()%>">Concepto nómina: </label> <label for="<%= DdlConceptoNomina.ClientID.ToString()%>">Concepto nómina: </label>
</div> </div>
<div class="form-group form-md-line-input input-iconright" id="divActivoFijo" runat="server" visible="false"> <div class="form-group form-md-line-input input-iconright" id="divActivoFijo" runat="server" visible="false">
<asp:DropDownList ID="DdlActivoFijo" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="Descripcion" DataValueField="CveActivoFijo" Width="240px" ValidationGroup="GrpModulo" Enabled="false"></asp:DropDownList> <asp:DropDownList ID="DdlActivoFijo" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" DataTextField="Descripcion" DataValueField="CveActivoFijo" Width="240px" ValidationGroup="GrpModulo" Enabled="false"></asp:DropDownList>
<label for="<%= DdlActivoFijo.ClientID.ToString()%>">Activo Fijo: </label> <label for="<%= DdlActivoFijo.ClientID.ToString()%>">Activo Fijo: </label>
</div> </div>
<div class="form-group form-md-line-input input-iconright" id="divSubProyectos" runat="server" visible="false"> <div class="form-group form-md-line-input input-iconright" id="divSubProyectos" runat="server" visible="false">
@@ -249,7 +249,7 @@
<div class="row"> <div class="row">
<div class="col-md-6" style="width:50%;text-align:left"> <div class="col-md-6" style="width:50%;text-align:left">
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlCuentaGlobal" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="CveCuenta" Width="240px" ValidationGroup="GrpModulo2"></asp:DropDownList> <asp:DropDownList ID="DdlCuentaGlobal" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" DataTextField="CtaCodigo" DataValueField="CveCuenta" Width="240px" ValidationGroup="GrpModulo2"></asp:DropDownList>
<label for="<%= DdlCuentaGlobal.ClientID.ToString()%>">Cuenta Contable: </label> <label for="<%= DdlCuentaGlobal.ClientID.ToString()%>">Cuenta Contable: </label>
</div> </div>
</div> </div>

25
Contabilidad2/RepAnexoCatalogo.aspx
View File

@@ -49,18 +49,7 @@
<asp:RequiredFieldValidator ID="RFVDdlCuentas" runat="server" InitialValue="-1" ControlToValidate="DdlCuentas" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpConsulta"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVDdlCuentas" runat="server" InitialValue="-1" ControlToValidate="DdlCuentas" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpConsulta"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="CERFVDdlCuentas" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlCuentas" Width="350px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="CERFVDdlCuentas" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlCuentas" Width="350px"></ajax:ValidatorCalloutExtender>
</div> </div>
<div class="col-md-1 truncate">
Tipo Movto
</div>
<div class="col-md-2 truncate">
<asp:DropDownList ID="DdlCuenta" runat="server" DataTextField="Cuenta" DataValueField="CveCuenta" TabIndex="4" CssClass="form-control input-sm select2me" Width="100%">
<asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
<asp:ListItem Text="Con movimientos" Value="1"></asp:ListItem>
<asp:ListItem Text="Saldo actual no igual a cero" Value="2"></asp:ListItem>
<asp:ListItem Text="Con movimientos y saldo no igual a cero" Value="3"></asp:ListItem>
<asp:ListItem Text="Con movimientos o saldo no igual a cero" Value="4"></asp:ListItem>
</asp:DropDownList>
</div>
<div class="col-md-1 truncate"> <div class="col-md-1 truncate">
Fecha Inicio: Fecha Inicio:
</div> </div>
@@ -100,6 +89,18 @@
</div> </div>
<div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>> <div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
<div class="row"> <div class="row">
<div class="col-md-1 truncate">
Tipo Movto
</div>
<div class="col-md-2 truncate">
<asp:DropDownList ID="DdlCuenta" runat="server" DataTextField="Cuenta" DataValueField="CveCuenta" TabIndex="4" CssClass="form-control input-sm select2me" Width="100%">
<asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
<asp:ListItem Text="Con movimientos" Value="1"></asp:ListItem>
<asp:ListItem Text="Saldo actual no igual a cero" Value="2"></asp:ListItem>
<asp:ListItem Text="Con movimientos y saldo no igual a cero" Value="3"></asp:ListItem>
<asp:ListItem Text="Con movimientos o saldo no igual a cero" Value="4"></asp:ListItem>
</asp:DropDownList>
</div>
<div class="col-md-1 truncate" id="tdTipoReporte" visible="true"> <div class="col-md-1 truncate" id="tdTipoReporte" visible="true">
Tipo Tipo
</div> </div>

77
Empresas/141/Formatos/Cotizacion.rdlc
View File

@@ -2808,7 +2808,15 @@
</Textbox> </Textbox>
</ReportItems> </ReportItems>
<Height>15.93202cm</Height> <Height>15.93202cm</Height>
<Style /> <Style>
<Border>
<Style>None</Style>
</Border>
<BackgroundImage>
<Source>Embedded</Source>
<Value>wmc2</Value>
</BackgroundImage>
</Style>
</Body> </Body>
<Width>21.16666cm</Width> <Width>21.16666cm</Width>
<Page> <Page>
@@ -3525,8 +3533,6 @@
</ReportParameter> </ReportParameter>
<ReportParameter Name="RegimenFiscalCodigo"> <ReportParameter Name="RegimenFiscalCodigo">
<DataType>String</DataType> <DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
</ReportParameters> </ReportParameters>
@@ -3739,6 +3745,71 @@ kw04jeTN9mSHt75hjwr1e+/o5W4kjQR4u3XCiH2feFfN/+qjp8XG/Czo4tF6yzQacHcX99sS7pswYF4Y
rmIcXIrb1g1O2+CwGDx+2Wv+V4R9FjTs4GmBAfFS5DtFGZqMB9+FAfcPD4UObxUwQOw9+meb30Lqp2KEtfWE4W5DqOf2ExHG/dCt0E3QzYMQvN0u4wjSemg6BrItglw/0OAyHtyPCFcq6cD1Rp73w90e0K+gU3iuhgpJjxH+jHvMx3qQcA/j3Yg86IbDxIRzILwfbeJZJ9NV/rifyfNXcZ+T7ROJyQaVbUMq9D1NcwRqyuLzYxnSSCQSEwMaxNfSkM7oNf8reld+oTEQ3vpG8D+z1/wvjTN0wR+ajp7h+yroiNvaGnoNCPg/BP0svAzBoTLcOBR5t+66/dbJ7xoL3O/eFE947ImMjXsY1kndphuNJa+DkEcMoTN/idwLRrAV4Lss7/9AGjzkNhMOFbalh+Fq0JYeMtNd3spV3BhX9bLf4/25XHcijBdFkD2hAYafQ0mTVgPMMIK/JwL8Ed7rhvdEIjGZUIFR8c7orviFYujxL1Te/BtKJOYhqI9b05DO0QiysW4itzLAzafDy0Cgnn8SPfCwRkET7/IeOXYLL0PYudN5Ku83dq8sDcRuv5IGCbLdi7uPh7dhcLiM73votk2GQhqaYTTsg8yLBQvj8Cx4nO8QYJsc4yVl03girC0j2GFQVxLH7ZHrRGS5WSPMnfSVt994mcemlzoZuhI+x8JzR2iVCKYvmKbI4+rKR9Tx+K9IY0y5NP54duTD7TB2Is0mbJVnIpEYBVS+7angc1QopXIWspJSMe/he550n0jMY9BA7gxdTJ28lOsIop5Oo85eMLPTeWN4GQjw2GQWl26+hQh3OtfToHeHlyE4fMl7e8mnI0ejf3TMZVxP4vty4W0E+LYkuudEwnIX/0Y+hYwvV4fLNoeqnqgZj+/ifzLxUNZGf+MlDJnpGF8nkNZvqoRugdtlkBcesbQrbg/gegL+HWb8VzfPoEv45vCuk/WP5Ppz3u0Mj/dhmP13sB0Y8HorfK7VONew0+hyVAP+ rmIcXIrb1g1O2+CwGDx+2Wv+V4R9FjTs4GmBAfFS5DtFGZqMB9+FAfcPD4UObxUwQOw9+meb30Lqp2KEtfWE4W5DqOf2ExHG/dCt0E3QzYMQvN0u4wjSemg6BrItglw/0OAyHtyPCFcq6cD1Rp73w90e0K+gU3iuhgpJjxH+jHvMx3qQcA/j3Yg86IbDxIRzILwfbeJZJ9NV/rifyfNXcZ+T7ROJyQaVbUMq9D1NcwRqyuLzYxnSSCQSEwMaxNfSkM7oNf8reld+oTEQ3vpG8D+z1/wvjTN0wR+ajp7h+yroiNvaGnoNCPg/BP0svAzBoTLcOBR5t+66/dbJ7xoL3O/eFE947ImMjXsY1kndphuNJa+DkEcMoTN/idwLRrAV4Lss7/9AGjzkNhMOFbalh+Fq0JYeMtNd3spV3BhX9bLf4/25XHcijBdFkD2hAYafQ0mTVgPMMIK/JwL8Ed7rhvdEIjGZUIFR8c7orviFYujxL1Te/BtKJOYhqI9b05DO0QiysW4itzLAzafDy0Cgnn8SPfCwRkET7/IeOXYLL0PYudN5Ku83dq8sDcRuv5IGCbLdi7uPh7dhcLiM73votk2GQhqaYTTsg8yLBQvj8Cx4nO8QYJsc4yVl03girC0j2GFQVxLH7ZHrRGS5WSPMnfSVt994mcemlzoZuhI+x8JzR2iVCKYvmKbI4+rKR9Tx+K9IY0y5NP54duTD7TB2Is0mbJVnIpEYBVS+7angc1QopXIWspJSMe/he550n0jMY9BA7gxdTJ28lOsIop5Oo85eMLPTeWN4GQjw2GQWl26+hQh3OtfToHeHlyE4fMl7e8mnI0ejf3TMZVxP4vty4W0E+LYkuudEwnIX/0Y+hYwvV4fLNoeqnqgZj+/ifzLxUNZGf+MlDJnpGF8nkNZvqoRugdtlkBcesbQrbg/gegL+HWb8VzfPoEv45vCuk/WP5Ppz3u0Mj/dhmP13sB0Y8HorfK7VONew0+hyVAP+
t5DOJ3DVsBt1ODORSEwgUCLLQ5f7J0QFHEZU2jJfY49+Vh0lEonJBXXyNdRNt21Yq4XWxs0b7QUKLwPhsk5nKfyu28C3IgyBt8P/DU364NFOZyHlm4abJr8S/t+hcXhKp7NAeGsEMiwNrYnR0sinTqYH9A5kqnaE535RDJ/VlLXJ/UQQYbwd+VZye4lK4D5BfF5gGuN/te64+Wyckfu17jKPm2eHt3HjMdKbMDaB9/4aXOSTvWk/IrxP5o72icQ8gEqQSuiqxsa5EvaIUWlnolAnbJl2IpFIJOYdMMKehxGWP9SJxLwEf0F2S9/Y1vuFYfYI95tjqA2bZJpIJBKJRCKRGAMu73SehXF1tEYWNML4cuI9xtnRGGd52HYikUgkEonERACja2MMrMbzxq55nNzjZrVwnkgkEolEIpEYD1yZg/F1pj1f9nbVja/S+8X1+/aShZdEIpFIJBKJxFjxWKfzVAyvrez96t52QoPMPWowvs7j/sXhJZFIJBKJRCIxHrh7NcbWvhhgD7vFhBv/uSeMG/7Z84XhNZ3vq4fzRCKRSCQSicR4oQGG8XWQuy1f1ek8gLFVNhQ8hutvZ3Y6bw2niUQikUgkEomJgMeFYHitj+F1BIbYt9LgSiQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEYtLQ6fx/uM6PpN5jBU0AAAAASUVORK5CYII=</ImageData> t5DOJ3DVsBt1ODORSEwgUCLLQ5f7J0QFHEZU2jJfY49+Vh0lEonJBXXyNdRNt21Yq4XWxs0b7QUKLwPhsk5nKfyu28C3IgyBt8P/DU364NFOZyHlm4abJr8S/t+hcXhKp7NAeGsEMiwNrYnR0sinTqYH9A5kqnaE535RDJ/VlLXJ/UQQYbwd+VZye4lK4D5BfF5gGuN/te64+Wyckfu17jKPm2eHt3HjMdKbMDaB9/4aXOSTvWk/IrxP5o72icQ8gEqQSuiqxsa5EvaIUWlnolAnbJl2IpFIJOYdMMKehxGWP9SJxLwEf0F2S9/Y1vuFYfYI95tjqA2bZJpIJBKJRCKRGAMu73SehXF1tEYWNML4cuI9xtnRGGd52HYikUgkEonERACja2MMrMbzxq55nNzjZrVwnkgkEolEIpEYD1yZg/F1pj1f9nbVja/S+8X1+/aShZdEIpFIJBKJxFjxWKfzVAyvrez96t52QoPMPWowvs7j/sXhJZFIJBKJRCIxHrh7NcbWvhhgD7vFhBv/uSeMG/7Z84XhNZ3vq4fzRCKRSCQSicR4oQGG8XWQuy1f1ek8gLFVNhQ8hutvZ3Y6bw2niUQikUgkEomJgMeFYHitj+F1BIbYt9LgSiQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEYtLQ6fx/uM6PpN5jBU0AAAAASUVORK5CYII=</ImageData>
</EmbeddedImage> </EmbeddedImage>
<EmbeddedImage Name="watermarkCotizacion">
<MIMEType>image/png</MIMEType>
<ImageData>iVBORw0KGgoAAAANSUhEUgAAAxgAAAMYCAAAAABtFh64AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAAAmJLR0QA/4ePzL8AAAAJcEhZcwAALiMAAC4jAXilP3YAAAAHdElNRQfmCwUQHjHVfg+JAABGkklEQVR42u2dh3rjuLJuz/s/zT3fGYABknPO2e3UDu2cc5SACyqTBEkQkixK/Ne3p7fbgdZoahEAUaj6HwEACPE/vX4BAGQRiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYAC
iAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAGAAogBgAKIAYACiAG6D+e9fgWpgRigi/AWJXhf6QExQLeoiVD6fH99+/hp/VQfADFAd/Ac4E/H6zNjRea6hZGp1cMn0T9qQAzQDbz4f96ZcAi1bMd1XcexKHEm9976RQ2IAbqAjP37RYfYLmNyuKjgfWQTtv5S+WrmgRig48jAf1u2qNuQwm3I4VJn/b0f1IAYoNPIqD9kNGRFzQ2XsN1S9udTEAN0GC6+Foir1qKmxuh55gcNiAE6CxdPIzRai4oaNl14zbgaEAN0FC6uXTveC2+tQdnfbJsBMUAn4eLKdpK8qM6npp+yrAbEAB2Ei3tHxwtPDcvZz7AZEAN0Di4+hhLnUS2Dxkx2NzUgBugk81TXi8qg4R5l1QyIAToGF6ckhReVQWPxM5tmQAzQOUpj2hOpuhp06DKTgwbEAJ0i9YBRMcOhG+UMmgExQOdYsFKLIdUg4w/ZGzQgBugYn0UnvRfeRridvQe3EAN0CC5uTAaM6hp89i1jeYUQA3QILk7SLzEaa/DCabYGDYgB2obX/rdvLIZcg5PVnyyZATFAu3BR8mKaiz1zMbw1+MhthgYNiAHahIuvqfHKEuGoHTHkGtz6kx0zIAZoD+/8hWUXruQHF2nyQRRmMDL1nBU1IAZoCy6uXJsxx9oT4tHoaW2rGtlJnoIYoA28492Wl2cu7/ZLZTFit97/GUu/D56Z5CmIAcyREbxZP97NyNjHVmORwVxKLWIZqJGR5CmIAYzhorTQXG8zOrxan0sx21m9uD2eoWmTCivJU5sZSJ6CGMAULt7GW5fbzLEbXozcV77lcjyuXkiEGZlInoIYwBAu7ooROSDO
8LtX3Nzb9dtz0+eJyPHmoNdmQAxghAzbf1FlDxg9FeX6d73MGgwaLpl7760ZEAOYIIN2h0YGvPPSiGr5/0cmgwYtnPV00IAYwAAu+Er0NndzxBDmg4ZDe5o8BTFAerj4nI5L/6isMVq+W+w7BoMGGe1h8hTEAKlJrMLJrNGAGY8TJPWeBrOtnZ6ZATFAWri4TKrCyayhh9aQ5qK8STUrsbVcxSXTLz06wAQxQDpkmP61EmOc2Y7v5JH86GoofY4hs9zj3gwaEAOkCjz5vRs6S2nm0k3hHzS+lowe3C599cIMiJF7UkUdFz/zmqcuGJl+95shjo0e3A5f9WDQgBh5R4bchXbYBbNAEuZBhQvfdIqLl2mjB7eb/NfNgBg5Rwbcwqxu2HFxW0xxzw+FtLctaKXOK2SMTDz+9qABMfINF58z/7uhHXT/tJpftE6nJp8Ca/DbUYNyhdavJ09BjFzj7UjY1rZmzPEtmnYiJEP6MLAG/1k1enD7y8lTECPPVHYkCmRfM+RKS6nF8EJ6/iMwnTotGDy4/eXkKYiRX2o7EowcaQecWUgXzwODxtuc0Rp8rfR7ZkCM3FLdkaim/Gkvvt/M8gHXS4FBY982ONtHRu9+bdCAGHmlsSPBrCvtaDMO6bH7wBr8YdxgDW7bu79lBsTIKVy81nYkmHWvH2zmIb0XmE6VN8ySp15/J3kKYuQTLm4L9R0J5znNXdg4pGd8IS0/ujRKnmInvzJoQIw84j+Xyt7SZktdmIX0v8Cg8bmY3eQpiJFD/OdSnaHP1D//uWCyBifL34E1uNmp1+Hr7g8aECN/cMGXW5YJ9uhP+iuIQ5MzeXTkJrAGf54yOsC01fXkKYiRO+T9fqp1+WyPp48xL6QnjUJ6O5g89ccseeqpy4MGxMgbXDwOt97smTVtdhm+bRTSk8+BQeNmxGTB4vztrhkQI2dwceE/l8qsecMLGYa0exhYg3+vEJOnXP5Mk04DMXKFjKSDwLNWRpcN
A8w4pBc+A9Opf8xkwRLINOksECNnrJNggBH9rPMA5iEdPMBkmmnSverPECNXlMPnUhn5YxxdMqRfZ4xCeqMcGDT2TDJN6PBLt8yAGLmiPGaHxYjPOud11F81DOlAQXP50f1Y+kwTupb6SbMuECNPqBqrMnocJUbIBoUehiHNbHs/sAYvrafLNGGO9bd7bxXEyBNc0SaP0XOVGHUHvt8ebi4vLq7vXz5rBcx56KJpQ7rya10y+xZInroopnjKxWz3oouPpSBGzpgKLpYZvRaqcUA6cfd3dWqY2RaV2G5xbG7j+MGbuwTckH87TxPSjV9cOA0mT+lnmsj1xRMe14IOoZhLhbPOK3H/crgwZBFqOY02k45tEWKPLP/7EMHHpFx8zButwVd+Amtw3UwTRqa728QSYuQKLp7CLYf9Wefex++HMy6R06NA31Xvrw4lheUbEVCjc8lTT1qZJowsdzlbCmLkjeBcyim8+UNT3K0UiOVGhSeTN3pr6kyIoE56IR24mG39CUynNDJNmEu7XgYdYuQLLvYDcyln6Kv5Va/28qxF3fgIZ8yik1ehQcMweWoqmDx1PRy/YGGO/a/bXkCMnBGeS9kjpeYXxd0s1WnO7akx/xQaNJJCWnkpyz0KJk8tx2WaMKt41/2TShAjd0z751L2RC3I5P+9r1i6PesZo872j/8BVVJIR1zJJYvB5KmT6EwTRsfTnTg0A2LkjOBcilmT9S+IwwJNsUqQAT1yGRo0ToySp4YuA8lTkZkmjMz/SnUpiJEzuHhunUsxxzqpxJmMxdm0d3tm0xX/+esOJk/tqjJNpIybXV9eVIAY+aNlLsVsdu19yjRPVt7rz0ODxm5nkqfuwpkmUuPDXyosBTHyBhcHjYBjdLSyicFFeTX9fb52r1/7CZpxZ1LQXJE8tRY8OmK7l6hECLpDy1yKkZmvqhdvk+lDuXGRYNdhRUjrXCdY0DyUacLoSFezQHxAjBwyU500MbIqql7cFNJP
o1ru48Guw51LnmrNNGFk+he78UGM3FGbSzGX7tW8OEnZDiZ8rw92HTZOnloNJk/9rWeaMLLymw3HIEbu4OKlcp936v0m9s2WF60RHeo63BrSaS4UmJfJjx4nvEwTqfGv1XOuADHyyIxVsIbqSbU7xssL36ARKJzZCOmUFwrOy7jXx8kuBNqGdx+IkT+4+Eutiffa9kUnvHBVXYcrIW1U0PwlcIDpavi/oV/IAvEBMfIHF69koVzzYr8zXqi6DldC2ih56jgwaHxudK3oQRQQI4+UT3jNi5NOeaHsOszF11IHCppz8dvNjCFGbqkG260dE57p1Qh1HZYfHxsVNB+6EkE1fheIkUt49Y/PoYjkDSYXwXZ6N8Jdh+Vi4WXa6MHtZveKqekAMfLMfMQKgNl0dHbcTt+8WNF12GvGYVbQ/LEXI0UdiJFbuDiOWGAwa/xK3q8f1xyDpbMqeerWJHmqMi/rGRAjr3DxUXQiQnKmdqjvaSH981ZF12EuflaNHtzOv/Ts7YEYeYWLjYjbuFP8FF5xNW8z4Wy4E12HvQsVUo8+rPC/Wz2bTEGMnMLFa1Q80pV6OEo1vszu9cGuw1y8z6VcgzOX9nAuBTFyChdbkSuMmdZvM2zR6p6EBo2DVMlTzHbOe/j+QIy88j3sREb1STOmuXnX4e+gGQ8pkqeYNfTQy+e1EGOw0A0lLi5jxgG7tc6zcddhf5XByjnBTd15GSOTXe0klgjEGCT0cyfk0jtugmS1lnoy7zocPsB0qTcvY2Spt/t7EGOQkLfkv9qH3KZiBwHqK8Zh3HV4NnDbl4t5jXmZnIdt93JzzwNiDA5cfM/+39itXkh9Fp3Y2CQz734zjFq00mIoFz15XsYc+7jXXkCMwYGLl1FaCM1fIr730UmIaavg7yApfkxatDpWeEvjJX5eJn/zTa+1gBiDAxfXzGaqA9jqb066/3tF0Er+QePUYJOOkYWf4HQqdl7G6Nhr772AGAOCl99tVW/o
4QPYqm+/SI5xRsbvhe/BrVHXYTr2HDLjdiRqQ52RuZ8MeAExBgMZSVuNmA0fwFZ8/6XGzZ/Z9l5gDb6fvsqgHMeCZdJikqfIes+XFxUgxiDARXmx9RYcPoAd+oFbnZ2JYAdJb5NuPHXyVLWwZuD3K+dl8jsPsuEFxBgEuPgIVBKUC4StuCpMXDxrBrXlL4ImFdxInTwl/Qo+EVDOy7rciDUVEKP/4eJ+KNSLtXrQJ5qfEUcvqB2y8u2fTqXqOly7CtkIv+rgvEyOc49Z8QJiDAJnjqpivuX8LUf+CBeLutEd7iCZoutw04z18Evwz8sYmepuI9ZUQIw+R0bSnvoIKnP/9ywy0KKP7ykuFOgg6bWYSZ08xch26MX45mXdb8SaCojR38hIWlVHeLWFYzTvBf2gDnSQ9JKnUrdoZeRYYUY9eeo3GrGmAmL0NVx8z0R4YRVua9/D1T+5lmKlEOwgKT9K36LVUawgavOyX2nEmgqI0c9UskDUXtDx13qRHGXEVUs765sR6CBpkDzFrEnl6xBHrm0XbzOlBcToa2pZIMp5y/xP3Yu73QgztlPtSIQ6SIrvlMlTjPxVvBBvXjYx9huNWFMBMfoW715rOeplt/d0tObFBfsvInmqNJZqMhQsgpa+b58z/K3+Fyl9Z80LiNG3+LJAAhFs/W1MoQ4sp2AxVfIUF/d2iqh2Qx0kvU26VC1a1UNGrXtNxoAYfUowC6Ql/BotHOUf68SNTJ7i4ihlegez/cVpvWfFKZKnmD2ROQGigBj9CRfvE1HL7noLRy5+5mqRr06e4mIzrRmB4rTyo/sx/Wsw67fbXBgDMfoSVRZIfbpSb+HIxetYwx05vVImTy2lTQkMFqeVC4R17eQpRv5ADNBNlFkgbmsLRy5uW3uxeslTT8FBQ/5tIbUZgQ6SaVq0Mmu612+cLhCjL/mj3ndutnCU/wR7sXrJU50wQ9FB8kM3ecqr/tkfQIy+5FD5nJQ1Wjh6x0dDGVRe
leSPsBnL6c0IHCz3kqc0qwzaPa2ilgKI0Z+8KrqxMKt4X59GlZWLB0aL58GDESKyuHOMGYGD5fKDJ63kKUYvIQboHjK4doPPSRmtdWJVHFxqfI9D10ohMw4M6jYHDpbLhY1O8hSj/yAG6CIyuu783VgYWSjVvXgYipzYMDJ2Hxo0Ltz0J7kDeyPyo+vkFq0QA3QbLkprzTu9jNOtRryfOzFxHqxwULnU06hJNTX/3ggX38tJa3BGzyEG6C6t3ViYU682650Yje+dJx2aCXWv+DGpaB44WK7RorV/dvggRh/Dxft8JZ6Zza4bWSBriWtpZrHA6QdvoWFQGCfQQVLK9jweP/SwzKXRRgAx+plaNxZGR1/qXnzPajxjYg5ZDnWvuDPrIPk3sA++SOKmcX2TLAUx+hoZZo8TlMx+17140VwsyAXCdaiD5IpZB8kP/3RqK/oVeMVC+sQMiNHnyEn++mrj8EXUwSXVzdva5sFBw6A4bXBvxDv0GnkRZl1DDPA7tJ5fjTi4pA5SRiaffYOGaXFaf2dv+cFs1ArcHi+n/vfrERCj/+H1P7fSRbVcIByG1uAGxWm95KmWylNcnEa1vYw4qJRFIMaAEH1wKSagXbLwETTDoDitNy/b/KmrURb7UQ3E1UdbMwnEGBQ+Rql+pahGRNPiRXDQMChO683LRs68n5aI14hmTYwc9c2AATEGhp8tg0lQqD2MeWdvm85eVy5wPxJxVMSa6vV7lAKIMTiYdMlTJU8ZFaf1At+a2js7Xo70s29Szj0gxsBg1iWvkjy1n76DpOpCzCKEROWjMLLXR15AjAHCcCMi1B7GsDhtRQ0W9UOMzvf6/UkFxBggDDciKslTp8FBQ+t8hf5vsEezV1QtDogxUBhuRFTaw/wEp1Nma5aI67OXvvICYgwYhhsR4fYwJsVpY7xw+iXdvA7EGDTMNiLC7WFMitNGemH3TY5UHYgxcJh1yQu3hzEoThs5XvSdFxBjEDHciAi1
h0ldnFZ9VZv12zxKQIzBxKhLnhtuD5O6OK3qmnT4uf+8gBiDielGRKg9TMritIoLkukM9WLVB2IMKKYbEcH2MMbJU/UhaDVLvVj1gRiDivFGRKA9TOVSX8tGgwaz7VC53D4BYvQ3vI7qa16hJ7PkqYPQGvxsKP3MTC4vstZzUhuI0bcEbQjbYboREWwPU3lw+7VK083MmEOW+isNpBWI0ZfUHfh5f7y9uri4unv+5K2fb36b2UZEsD1MtQTneKqGe5Sd9Ok0ygNi9B/V6P+43l+ZGmaORSWWW5xY2r/9EUE3TDcigu1hKtct78lo12wRY9PF9z72AmL0HV6slW7/TBcooZZTS/VmrmNTYo2sXpZEsPqm4UZEsD1M5eO3FcvSqfbvVk669q8WEKPf8GLtbmPUIpYTOPvg/dWhdHTnNaSG2UZEsD1M9bffzdIkNaQWbOdH2Vq8f4AY/YQMte/jKYvYUeeBGLOJu3IvgseOzJKnAu1hRPWyV7MWdSPdkHYSttnXs6gKEKN/kKH2tTdMEm7YzKX2YugUt3aXPP+1Au1hqi9C3Cy6xFa5IT9lkaHtt77XAmL0D97i92CIOMlTfE+NpUCerH6XvOCg4WsPU7uWeN2btOVszm1M5yoLHccizuzxl+jzWVQFiNEnePOhMd3tOsaos/kZ6B+p1yUvdKlAe5jKxby/Ph7MD9mEUMu2Hce2Lbn2L879fRYDoQXE6Be4eF9Ks8Emb/XFo8CgYZ48FUp3qsb+1/3J9tL0+OjIyOjE3Prf28/q7xkIIEY/UKv/kXbjefohMGhodMlTDT/+9jD1yzVq1f58f5d44JN9D8ToA7gorRokPTHL3i77Bw3D5KlAe5jmBVvSUPjgSOEBMbIPFy9G9Q28+dTYTWDQODFMnpr/GJRJkh4QI/NwcWVckoDZ1lbroOGVXDZMnvK1hxl8IEb2OUzRDiZ8r6djt60Xk7G9a5g8tVbKkRkQI/PstFWngzn2RagNpWHy
1NhdfgYNiJF1ttosRTASKkUg1/JrZslT9m5uzIAYGWe7PS/I9Fc4lOUnzg2Tp2ZeB+iRbBwQI8twsdemFyvqUgRcfMwbVn/u59NHKYAYGYaLk3a8kAvvyKmP/Oxfo+Qphyz373nVFECM7MLFvR0T9YkxbDun0Xd3+fnHCcPkqescDBoQI7Nw8R3Rzc479GAnpdkyqxhfGVNOsrZMHgQz29ruz1pRaYAYmYWL5YgFMrPp8MSwFbtIYHTiPSF6vUNHhslTk0+DPmhAjKzCxVmUF3Ti8pt/328wGqkGIwsa23FcfC2ZrcGdwwE3A2Jklp/ItsDz5ep3vK/b6vUzc8mmVuC2kTy18NHrN6irQIyMEv2k1h79EZ4Z3n7Cw7Tqhs8c61Dzhi4v8jJtljw1dNHr96ibQIys8jnkREyStkRtxPDUOAg/dGU2u0paXvgybo2Spwr2f/cDPJuCGNmEiwMStcJYasaj6sSqKgskdHV/LvrdaOr9Ema7l71+k7oJxMgofCLyLm5f1ocMoTixysjMV7wXXknbF/8Bpp+0yVOMDj/2+i3qKhAjk3BxFz27cdxb/w3/uqXcPyOrItGLrf/8pyu8auaFNA9u+7UdjD4QI5NwsRM9uWGOc+EP68aJVebSvUQvSguEOXQjcOr1fU5/Dc7I8qBv8UGMjDIb8xCVudZu4IZfLffPbCepZKw0YMIbGxiZePaboVrHR/x6ujPguxgQI6t8RTyTatyyF1oXErUTqwVrKOlBERf3xWr4M8s9CdillzzFHPvfwHsBMTIJFw92QnQGUvkqD13/m3xPXF6cOvXFi9cfLzCdKm8mr8ETc7AGA4iRRbg4T1oKB1P5vJZ7az+JXuy2ZpHI6VTg6ZS4SmpDyej4Ww68gBiZhIu/iRsLoVQ+LpIfR634LyunU/7aH4nJU4zM56MkAsTIIrEPpVrC2p/Kx5OWF18zwasyh/4JVn8+diPX4No5WP0PxMgiXO+odzWVTzNOuXhW
dTcOpuHGJU+lyMHqeyBGFuFiVy9Hg9HihV6oemXblHuGoUWD/HhHWf1ZIwdrcIAYWYSLQ83kJTkXWtc6eBFdto1ZxYegGbeK5CmNHKwBAmJkEXl71z4kwcjYfdKgIb+6Gb2mZrZzHWyb9LMafHCbnIM1UECMLMLFW4pWGLadkAZSzQKJG3bsm1BDsUDyVHIO1mABMTLKtP65OrkGn32LeSYlNRuP351gjhucJfmTpzRysAYMiJFJoo9jqAPbYtFZGlzcFZMsY9ZYKfRj4qC+S66RgzVoQIyM8ll0NIxo3vLJSmQdtFM7+awFIxvhErficbySPMWSc7AGDoiRTVIX52R05EZ9U9+lOunkzLoN/XQteUqjEs/gATGyCp9MV72D2dYfhRk/i3oHkJg1rXgNQlwOUbJYzp0XECOrcPHspplMVZKnpp5DanzOaA0Y3pBzoQh/Lr7m85IF4gNiZBWNDNvwXd89CgexZvFmZs2qX4bIoxcQI7vopNgGg9sli5+hHQnd4s32g8qAHErhATGyi0l3DEaHLkVQDb3izYz8yasFCiBGhuFin6QUww2VOdAv3myPl01f6eABMXoI5/UO8pwr+8dzcai5dPbd+ccfQoOGVvFm5xFDRh2I0SNUIoQ/JVfgTurymcy290NmaBRvZuQYYtSBGD2hOky83ZzsrC3Ozc7OLW3sXzzXKzX7v/E+6RS2IsLDyVNeHZHphDU4I5sQow7E+H0qEft6sjLOLEIotSSUEuqMrZ5/h9Tg4mM6fSM+Rgun4UFjJ34Nzqz5Xr812QFi/DZe4H8ezzJCbZe14tqUDm8+B9WQf9kwWGg4dPUnZMZ1bDYhs6Z6/eZkB4jxu3hB/7ReJJarmNYw5hBn9Tl8qz910zd3YWTkNnSl2NEHYrQAMX4Vb7ttSUY/i67DQZ2Nj1BAv0ylb7CqSJ6Sf1mNqYkLMZpAjF9ExuXbqp0wL5Ir58JBObB0Dtb61zPDJVMvfjXkx38i1/LM
muv1O5QdIMbvwUV5j2ksF+SEavwqFNDXBg1WmeUehy60G3UdRtfwVKoOxPgtvNob45qV9plNl9+DEf29nL5Xnpc8FSphsBbVDZb8hRh1IMYvIYeLLf3ZEGOUHYbu9SYNVkPJUzyykjqz81CtWROI8Ttw7RzXepQ6ZPrRH9HVWv8GD243y/5ulCvqIcMeLRn8mw0oEOM3kFF5pNmVpSWiLWeHhxYI6RusMkbG71p2R7hYUoqhOPadYyDGLyCnUasGvbTlAmHiLlhy2aDBqvfgdv2jlp7Fy+Il4gLq8xg5BWJ0Hy7eJ9NHcy2it8uBQaOUtsFqZdCghZ332iXex9U1bJEQ0grE6Do6dZ1iBo3x0KBxnqrBau1CDmHLp89fX88HES9GVSYkx0CMbmOUOd46aNjbwZXG+7zRxIwSpzjkEPV4w+gKvGgBYnQZLo7SpwAGBo2Jh+CgoVngIHAl5jpO1GtxCtqdNnIBxOguJqdTQwFt2btBM1I+/E3+HeQUXrQCMbqK50X78SsHjenngBo6DVbTeLEOL3xAjG6i3wAmKXAt9zA4aCQ2WE1xeTpt/O84oECMLsLFGe1U6Lpk/j2wBtcqcKCn3WieesJoATG6Bxf36YpsJtzVC2fBQePY4ACT4sr20Cu8CAAxugYXn8NtPKcNx2/wtGpcg9VUXhRz1FtPF4jRReaj8rtZ/Y+UIUxGb4ODxk76A0yBi1rDL/AiBMToFtELb2YTR/5jpVeD2dZO0Ixbg+Sp1kvSsfw1v9AAYnSJ6P6SjI4fP70+HM1Y6dXwHty++I69cvFjkDzVvCCZ/YYXCiBGl4g89cDoWi0Qb+do+mlQ6LSqlzw1RM12+6Rna7mtZx4PxOgOXNzbEePFSrNU7aXuWVd/MAdOq3LxtWKgWGVm9hdeqIEY3SHqNJDrFhpTevl/5R2DpCdGh66Cg8blqIFidBgJtVFAjK7AxUtENDojpdZvE4+TxqdVW64jVxrbTrr5FHMUdRJA
HYjRFaJ7vjDrRJRbv9HkgStjZOIxOGg8pVmyeNUWTjCNigZidInpyCmScxV84DpiUjHKOQhVEbkYJ5pqMJsuvsOLGCBGN4h+VuuJYZ8EbvbfCwbnuF0yF0yeEvxoRKqhU9Ft7BJaxAIxugEXl3GDAN0O7V8bJBuGkqe8j38ORxN2DhmzyfDfsuDwIg6I0Q0S2koyMvsZTAe0DMxw6Fq41H/pZMqiUVWj5actMnrwjeEiCYjRDbhYjV02KB64nhiY4SVP3YmQGuJmpUg8N/wvgVWscOZOS9AiGYjRHWbjtyeYEyjRz8WGybEjZgdOvYrq3z7/LQ5ZhNpOvTeNXNlQQtnM/rOAFjpAjO4wlbBvx5g/6YmLW6OjFV7y1GuoPZn316+bvcXxgmNRD8sujM3/uXiv/iqQDMToCnwy8bmpP+nJO+xnlgnILNWGRFWV8sfTzcXpv9OLm8ePcsvnQSIQozskjRhuIOmJiy3T7HF5nSXVFjYPjSOQQh+I0R3mdSZGrWtwPm5+4IjR4euIKRKv0+s3pN+AGJ0g3J17U2ti1Eh64uKundPbzLa2OBYPnQRidIjAM9N/ehOjWtKT91CqvXN48jpPWFd3EIjRNt7G9d/gFvSrdkhb7p5cF0d1OdJXw3JwtqKDQIx2kVOYFUJDy1+tRYZH4b/pkhBHoQHD4ADTPMrPdgyI0SZcfE0TFtzKTkiWao1nsu79QOjxrm1ygKl4jkGjQ0CM9uDiqZI07i2j/cvfeR0z5I8dCFEOacSsP0v/mRxgWi/BjI4AMdpCjgxu9V4fODsUfYTPF8m2e1F5pDUXGB8YvTVptyfHn7F7DBqdAGK0gQzAQ6tRusZ/doiLk8TnTMwafvTWKIpntc6DEPdjJu327D2Y0QEghjky/DZbD2z7l79cfjEhX4pMfVY3MRSFE97kBKu0btBuzyUzr8j8aBuIYQwXpXkSnAH5zg4txZrByDKvevEYrrRT+KgeVi2anHpl/zBotAvE
MIWLt/FQ1Hpnh+rLX/nnfLQZzKW1apuq0mxe46/Klz4XTIqIkGWUF2wTiGFIVC9Wufytnx2SfyxGmcEaJ7+5eFLt7b3VvigOjSpPjVxj0GgLiGGEjLl/dkT70+bZIfnHqtoMZhVuGwOLqpan89i4xNNk+nZ7XoNwmNEOEMOEavmCqMGgufyV//xRTYUYHX9tePGsGDAYvWgmpPNto8pTk/e9fpv6GYhhgIzV5dhiB42zQ/Kfk/B2BCPzP824X1MMGIz8aXm8Ja7TV55i7n9HGDLMgRjpkUvi6fgnsXLQqC9/ubgfDkY12RBNL9TphvaYr1zh9zJJ9+CW2ewaXrQBxEiNXC0PJ97AGZko17/9a9632+G0lhiPOrnH6L4v9Ur8Y2nW4IyOok1SW0CMtHBx4WpM+QuNyZD8c785nWK2e9kaspH55nbrHV+uWF5n9B/coh1M20CMdMho+2vpzWrsx6YZjewORkeefENBZCNwx70PFGXTTp5iaAfTNhAjFTLaNojmXduabvmxUrUfGCPTvhqEMeVEmOPeBMy401qDM1dOw+BFm0CMNHDxM6ed2MfIQeuTpfMiZYyscH+wx1STYo59Gqz+vJj825ntnPX6fRoAIEYK5ER/LNVz05a+8lx8zBMaKBuoflbbcusP9WhNrP7MrKEHDBftAzH0kff3QrpHQ/O+nxZ7x8Epzvdw7FFvRua/Amb8s+N/J5nE+dZOADF0qezVpdxMICf+Z66hKrNJB2AZHboODBoXduxvXCzDi04AMTTxsjto2kRXp+gv9x8qP5VYNIc51nZgWfInUibmEmRIdQiIoQcX5SWD83R0JTZO+URyiVtGJh5E61olsjSbXK0fw4sOATG0IomLzymTimiMXkZfn4u3gs41LPtPqTHalMV+xIjBrMINtOgUEENoqMHF47BZlX575Cfmqnp1OeUMyWuZV61DKx6Y0/yCz8GxV3jRMfIuhrdtlmgGF+c6WSDKoCabkVeXl9Ut
PmXT+bvqD10WWqovtKZgkTlkgXSQnIshI2mLLHzGLwSEOEhflKCBdRd1dX0xvLbc9tzJw+P5YjMfxR7dbR7uq9RtgxedI99iyCX1ImG0eCHiVgJivY2Cy8yeiB4x7lN0rHctYju0xSRGr1/Hqof7qnXb4EUHybUYXLxPyEiTYbVRjr6tf8+2V4ic7EaGbGnMTnEhVv2nKcaiKG96Y1m1bluv383BIs9iyDv2UHUuwsj4g/qOy8VLuiwQBc5TRNRycdCOc87wl1xzDNFCtW4b6CT5FUNG0plTn8pEFfDj4iZVFojyTm/NRL6I8ng7V3ceRVl8Lv039QkvOk1uxfBSl1p2splLZt8UBfyOY7NAmKOzKGfkKHLIeGyjLUalYoLnNx5HdZ68ihGubKMq4Ffejs0CYbZzfawxGXIK75FmnCaly8YJdyq4IgULdICcisHF10wwoplDVr79aUk3xI7Zm2bW8ENiq/vqrX0xem1/qHnwKUoMaNEV8ikGF8+qw3CMjtz6v+1pIrrYGSNTH3KO/6wxGWL0LNqMo9S5iQ0xUQika+RSDC6umHIHgTn/d+YfM/hm1N4eI0u8MpPZ05lMDX9Fm9F8BpAW5IB0jRyK4e9q4Yt1l26Ugt97NaR6XCu/9U+9EOeExmSKrMVkhtwnl+NRXdOehBZdI39iBLtatI4XXsWn+jc1PvpaCn97syZzJRVQI4pjpj1cfM6lr2keu3MI2iV3YnBRWogotNyo+MT9ZohjN9gJrFmTWadDTOXiY6WY1yR205enddk7xOgaeROjlgWiCrNGxSf5PZetR4O4eJn23dGDGd4/o8lRzch2bD7W7WjKTXBGduBF98iZGFFdLVorPkkPRslGyT9o7LTc0VtrMle/rNW72I6r3sHFz2qqFF5mjZcF6Bq5EkPG5WnEE6BmxScurpkdSJ5qvaOz1prM9S+vJJvBrKmk11bQX4Mzx0F+VDfJkxjeVF69Z8DcesUn+c+RVUlYtff9
K43aHd1fk7n+xc9i8m4GI/txoSxnbO/aa3D5gpFP21VyJIYcEVailt3OacOLrWpwBpOnanf0YE3m+hf/aa0Q4iuQeyeibL3Dro71D150lfyIwcXXdFTfr+JdfRpVahbBZJSd+tfgb7PUX5O5hXmNyRSdS3qJ4mFCY9CQImO86DL5EUM8jUQ9jpp4bzyOan1kFUye8qZiM+oMby5etdJsTxLimYvyduKgwcgI1hfdJj9inLGoZfdCqdH8KPDIitGRG/8aPCplT+/MkVNMqp/ptQyYiu2exGyKZsXdJz9iqLe75VJiq7G8CCctMdv641+DR0fktE6a7XLSKqPSgaMYOZ+So9jIGRJqu09+xFAmPclV7FEjHvcUj6wYI1PPOoHIxYPG+W2W8DCp9ko+t5gcNRQvxiGFnR/FeSrQafIjBhefi8EbcbOFY1xLbvdIz4w/Opkh0QXY5K94aajxtlUkdmvtAyatkEv/3Q8MF79CfsSobFH4k54YHX2uexE+uNQy21rUOlRdHtPJDNmIXKWILWunuZD5OJi0ieV4Rkhcm9LC4tkPtPglciSGF1LPUy0HjxiZafQcfo7r4sXo0GVyRHJxo7EJwazbiOdaJTmgkemX6kSp8sfD7kzRpkRisYn1sw8BLX6NPIlRreXfSHpqtnCMPLjUiGaHbib3neA6ldmYPVFW/my1xJXlNgqWV/78vD873D84uXlr2AJ+hXyJ4QXbTXVsaLZwjD645JsCRVWeaiWhQVLtSopjFI0SV3LettQ47OcTAVb8KjkTo1JZcMV74mM75/VPRB1cCtzp7cQqmJrFaEMF2PwlrujwlW/DvUqv37e8kTsxKn3smNVo4Rh9cClohkvmkk4GcbGkk2Y7E3pFvhJXDt1Cv7Bekz8xKklP0xMfdS/exrVLjtPCqUjYhngv6EymDv3HOQJPir0mSo9YZ/eWHIpRyUhqZIFEHVxSRrRDV38SzDjSGX7YW2ueiaLEleX8hRk9JZdi
tBzqPtUqstlysx+9TYhYrQJsCy0nxlVPinXmbaCb5FOMBrtpi50x29qJM4NrFmA7bTyTjSpxRQvIieohuRbjZzF9PSfW3IRTolmAbeirNmxFPimW87a1nzT/NqCT5EGMyJTYz1mT6pitm3DKXzepM5larb6suCfFjIzd9Pq9yy05ECOu7vGhY9CfwrcJp/h1d1pptleiLErzsaNL8f9GMWb0iMEXg4vb6ejGrE+T0VWb48J66Cryklxs6WSGyJhPeFLMyOxXr9+93DLoYlQ2lam6XVLly3zboAZgJXkq+tCSXgG2P4/xzZoYWcXqu2cMuBj1TWUy8xpYMPNGpt61SUnluE04zQJsbmzvcObSPXjROwZbjMamcqhdUnPhwcX3MjFo480s5yDSDI0CbJXgj/6S7Zz1+t3LNQMtRsumcqDiBxeP+00zxAkzW4NHbMJx8TnURm+9inX1XC7QGwZZDP+mcmvFD68Z63+Nemryz9cZgzr80ZtwugXYoi88mVROBHSXARYjuKnMbGub17bVjm2nQJuzK69ilG22Bl8rqSNYowBb9GXJItJre8zAiqHYVJYL5slqxY9tb3xonV3JP+/GTG7yjIyqngXrFWCLuKRLtrHs7jWDKoZ6U1kumA+FKC/VFx6+2VVpLVUd/volbXtXacZfw8kUc+xjeNFzBlQMHrGp7G1aPzRL2Hqzq5bp1HnR5MGtS6ZfVclTGgXYVJezCjfQovcMphgxx4+Y1bqh56unxsXHvNEa3GInoXs8F48mD6YYHXuBFxlgIMWIPX7E/KHPLPewZdD427HkKa0CbKErkVnUpc0EAyiGd6jb1l8tyKhe+Gz+6OOEWfLU8HVo0CiPp33Qxcg6lhfZYPDE8BrmpcsmZ3TovHmgjm8l1tJRXcO2tgLJU3oF2Fqv4dB9eJERBk4MGZ3Laacwhf+Gv5o/L65Mk6ee/GGtVYCt1S33HFpkhUETg4vP6bReMDLTukJQt7zXuEy4goFO
Abbmjw+jHUx2GDAxuHhMfbsPpXerWt5rXcgl875MDs0CbLVXMYUskAwxWGJwceGmXPCq0rvDLe91L0aL5/4+MxoF2GpeLCELJEsMkhhe19PUC2fbPlNuXPta3uub4dD1luQpvQJsFTv/YNmdKQZIDBlX6yRtJDtDT0JdfbzZ8j6dGmTsvhnjXBxrXIQ59gm8yBYDJIZcdhs8TSpGhWSj5X1aM2z/QdrkAmzMKtxCi4wxSGK8TxtUw3G87b0IM8RZwSx5qnmQVq5WkvbSGR17hRdZY4DEkLG1b3CogtGhi8hB433OMHmq5ajH43jsXjojcz/wInMMkBhedD2MG+QnOXSjHDloHDhGa3Cy3DzqUd6Mm5KRDSwvMsggiVEJwg2DdUF0u6Saa20lT8k/Loeicn0dC2XNM8lgiREbhHFhbNv7kdOp+Bt+9CVrB2mFupNy7ZvcC2iRSQZMjEoQLqRfF8gFc6M2QuiCRq5VDtI+NQeNI8VeuhxWnuBFNhk4MaKCMDGOo9slRd7wky5ZOUhbN8PXSbn6dTKl1T8c9IDBE0MdhBphHN0uydC12lGPxiGoP/69dEaWObzIKgMoRjUIqcGDWzJyG7kGN3Gtkjx10Rw0bkaaz8yYS3ew7M4uAylGtRpO+iPXMe2Swjd87XGo8Sy41km59nn7H7zIMIMphiiLzwmNLhWKuc/US+SgcTNiUkSNkfH75qDxr1oMlFnFO2iRZQZTDC7uCkbFa+LaJXHxs2JU/bmZPOV1Up6V63hGx9/gRaYZTDFSVUMIDRqLX5HTqVPD5KlmnVwh9mybzJfgRbYZTDFSN2P1xXFku6T6Dd9gHCr8a06n7kdRCyTzDKAYXBz+P4MHSC1h7NDN6OQpk0TFQJ3cErzIPAMohow6o56TLWEc3S7JMFGx8iz4pjlogKwzkGKYlk1rCeO4dklGiYres2AcX+0fBlMM07JpLWEc2S7J++SFUfVn5j0Lhhn9wWCKoSibZpI8dRad
PGWQqOi6BYvew4z+YEDFCJRNY7Ztpc+4dehadPKUwTKGudZuOe2/B+gNAytGpedkLfOP0ZH7HaPkKWW7pOrFnydTLmOY7Zz2+k0BugyuGM2yaZX0bqN23hHtkipXF3w7VfIUskD6igEWo9pzUgZvJb1bTq2WjQ4wqdslVS5+nSJ5itGJd3jRPwy0GJUs29H/qhmzhu28le2S6lf/XtZNnmJkAVkg/cRgi1F5gHTZzOAzaeetbJdUv3g9Wzb5GlvYw+grBkUM7hH6UNTHisbHJu28GR2OTp7ScY051hG86C8GQQzOI4K29kHL57yplUHlqXC7pJYr7iW5xmx2BS36jL4Xo5bN/XZ9uLU8Nz0xOT23vHlw/vjV/Jr/243aebdW/AhdUNyPxbrG6OgzvOg3+lyMSry9nKyMM4sQalm2bVlUfmQPTW9deC0nQ24YVqRVtEtqXrG0HuMaIzNoxNp/9LMYlaB/3J1ypQjypt6K61iEFhfPfpS9L0wq0obaJbVeUJxHJk+F+jWBvqB/xfC0+DqadojlqnagpR0OpSM77+GwrFSkNak85W+X5Lvix7y61KCiXxPoB/pWDBlsb9tDEVY05HBIYfsjFJmG7bwD7ZICV/yrcI3Zzlmv3yhgRJ+KIQPxfZMRJzG45QyouF8OLTUMK9L62yW1vhr5v6eQa8waesBw0Z/0pRgyzH92meY6QY4aYxeqQePKrPpzIHmqIgUXtTMggVKDk2jE2q/0oxjeYnckxfKZ2XTxTaGGSTtvL3nq2b9nuDr5Uh80fGdAGFlEI9a+pQ/F4OJzKV0OOWOUHaoGDZN23sxym6de5WuZoZZb29dudU0atI1ld//Sd2LUno2mbXLvktlQiUEvL33KbNB4qPy0V51wyHstZPGzZkY9UZE59jG86GP6TQwZjesmpQi8G/2hatAwaefNLHuzsrVe2q6eLGd0qJqqWD8DwqzCDbToZ/pMDC7eJk2K17gRO3SG7by9Z127r5//
xhoTp0YpqkqiokPHUPagv+kvMbi4NqxJW4le1Q6dYTtv5hBWbFnpMEbGH+tr8LuRWTRi7XP6Swxx1FZRHK+8QUkxaBhWpPXvojRLUXHxjUNJ/U4fieG1qDApWuOLZjJ2p1iDvxtVpA2ZUi9FxbHs7nv6RwwZauuGy4vW6FWVNzCtSBu6eKUUFRgE+kcMIVbb96JyX58JlTcwrkgbvLhjLX/1+m0CnaCPxOjAeFGNXlV5A9OKtAEKdOyj1+8T6AT9IgYX2x3yovJEaflbMZ0yauftvzJZQiPWwaBPxODiqGNeuJXyBteKQcOsIm3zqsgCGRz6Qwwubq3IcGQmbYZta5srBg2jdt71ayILZIDoCzG4+BqOeGgkp0WUEoOsDlV5A+N23pUrIgtkkOgTMZYiZv9yTrR7dbUzatBNlVnOoerBbbqKtC2vZOwVXgwO/SAGF+eRXixUk/mOho2yZBdUyVNG7bwZmUMWyCDRD2KI0qj6Js6s+WrhQSG+t2yj8gaqs33fBu28CRqxDhZ9IAYXB1FPpOzHRidUcT9pMGg4dEOVPPUvXfIUc6wDeDFY9IEY4mfEiYrI98Y3ccF3TOrSKsobpG3nzWz3AloMGNkXg4vTyGJm9ECUm9+XVCszIqrtfdUaXL/yFKMjT/Bi0Mi+GELMR4eoc90SklyUDNI6vFOv7wozHjWnZnLZjRKcg0cfiPFeiI5Kx7n0mWHUaJjRguoAE/+jMTVjLkXni0Ek82JwcRET6nLZ66u1bJbW4a3BVfvg9+NJ12KWewovBpE+EONP/MKBrJX9g8ahSU0cMhk+pM1FeTv2ITBjZAIV/geTPhBjMX5yVA3O1gpoqRsNV2797Ey1Bo97COwNNCipNqBkXgwhpqzE6cyxfzqVstFwPcoViwV5rT1XXcVKDhdDF5hGDSrZF6M8bifFtEuWv/zTKZO0DkbmvhRmiJcFaofUYMyy1r6gxcCSfTFKY0lihM9XpGk03HoV1YaE96hr
wtduoNJ6w5q7w3AxwGRfDD6uMS0Kto/UbjQcuIpqC9ur+fFvyibUrmzAOzYldGgVWgw22RdDzGp10g6crzBr6l3tOxzCu+rD/sJY0XUcVhyb/3P1LeDFYJN5MbhY01suBNtH6jQaDl/EJbvqVyEpf748Pb9+VpJQOLQYbHohBm+0qPf3qld/s/Zp72BxWrPkKead21a/6JaPe/CugV/ll8VI6FWv+pp4crSDOlCcNqHRcJQZO5GzpGSPwYDwm2LUgur76fJwe3VxbnZ2fnlj7+zxu/K1mJ9L2shoCepA+8jYRsPRZhxh/ZB7fk2MqhUvp5szw47Xop5aVrVXvTM8f/AkoocNLg5TzIeCxWkjGw3HYd/BjLzzS2J4Uc/v/ky5lFiOG+hVT4kz/fcjWo3vYe3JVLg4bUSj4fhLjP70+r8L6DG/IoYXpq+7E1Zlmywco/JTFimsPUaokW7ICBWn9RoNp0yeYmQLQ0bO+QUxvBC7WXKJHVMZzdtLthfuokYN/VVG5WKB4rThRsOJOEiazTldF8OL9KtZi7pJ92zmUmte1V4+1YOp6qUCxWnlR9fDadbgjK5CjHzTbTG8xluz1NKayTBG7eUXoUrKOE65H6FMnkqzBmdvMCPXdFcMGVvvK5aeFjU13O1vVfb3ZlozAsVpm42G9X6cHECMXNNVMbzjdIV0Pbnl0nn4n2o+tZjWjLaSp5g13ev/MqCndFEMLxRnDZK/HTKrKLfMZ9NmdyiSp3b1k6cYKtHmmu6JIcPq2KyovozonXLIjNJMajPCyVN3uk29GT2HGHmma2Jw8ZNuueuP6PHbwKDBRXkufUZgOHlqTS95Ki5jCuSAbonBxZNBWcBmXNrWVjlohlhKb4YieUqrLi2jyxAjz3RJDC7O3bb6A8u183jgkJz8eNOgZlSgOC0X7zrJU5VC6iC/dEUMr/Rr2y1Q5aDxhwfN+GulX8zb9l765Clmzfb6Pw3oJd0Qo3Jr70DTbJdMPQUH
jUuDk9zh5KnHiaTXx6y5Xv+nAb2kC2LIwFvpTIvVcDcwLl4TY1p1HfYvkDy1mTCiMbqENUae6bwYRovk6Jv9/EfAjPKaSXHaUPLURSF26EGCbc7pxlSqQ+NF7c4d6Abm5XaYFKcNJU+9TcY9nWLkH8TIM10QY6OTrepDD1y9mDYqThtKnirHD2xIPM81nRYjpmGesRrBbmAG5ytcRfKUEOuRYwazJ3v9Xwb0lA6LwcWlURZIws3e/8A1/fmK2nX8a3lvMRTZxIzsYcDINZ0Vg4v3QuzTntQzoOpPuXTmOfCLvgwSTmqdvXnjIq/RRwpxHiPfdHoqNRe7onVtyzZxgzn2VShBJM35isaFaLH1we1PRJkFRtfhRb7pqBhJZQuoOzE96p1yTR3Oo6F+R15S+7TRg9uFl1rVkrI4j1QLSec5p5NiyIkUc2JC0t584aJ0u2ynXB4wMqPqRJHufEWLZe7OV/UK94WIAQOptbmns2LE1F9mdvGm9n0P8zRNPDOyqq5UmOZ8Rev1XDK0+1wqf+y76vUQs8dKvf7vAnpMB8WIL+bhFGud8rw/zke0NyLkwntPRN2/9c9X+K/pEGd0vBA1EWPWLQaMvNNRMVZjBgx6Jsr1b+TiZ0NzI4LZzpmIDlPt8xUh3WzbjXxUi4kU6JwYXLzFBKg9WvJ9r7jRmgQxa+g+PkrlwmbO9KRghMI4iQE6KsZ+TKjbE6Ez3BoV+hmdeE+6e3uHP1IWp41XcewbAwbo5OI7tpCmfR/aiLgYSpgEMbKo0Ue7dr6iM2owu4itPdBBMbh4jg+4iZIIDhqfi3GTIOaSLaEVpFyUk85XaHvBnuAF6KgY8WU0GZ0Nl8QRR9EZ5NVGkbG9llo/vEoafjS9eIAXQHRUjIQmkoxOf4XNeJ6KmATJGL2OjVEeUONrqe01OLOKGC9AhQ6uMWYSVsCq/vJc8D/KB7eqLJDAT74HBw3D+m6tvxOZIKBK58T4GbUTJypuaE/Ce3A7
Eh5qGJlNejZ05qz8+Mzg4sUgear1d05/wQtQpXNifBYTm1gwh4aX01x8rwQr3DKylrS82KcuHbkNDhomyVO1X+mSVQ4vQI3OifGhV/ly+jXYNUn+7Z8vg5y5dD/Ji1W50vcqTwXNuB83GzTkUv+v3iMwkAs6KEZBp+1RsJKNhxTlraVCP7Od89jfJMeYaoFnFvKMi/K2bbDSYHToRgDQoHNiaPZWldMp/9rAQ/51rz4JYtbQQ8Ky+2W0vioJtturDBoTaQcNr0rPJ4YL0EIHU0ImNaf3jIzcKNbg99Ui0IxMfiR4cc2av0nGdMAzuVDYc1N1qwk20gCgk/sYS7o7bKG1QfXnK8lTjCyVE5YXR/76tYyMPQSmU+IlxYkPqdb0E7wAfjoohn7dHBn+U8+KQeO8SOl20rJ7KzhRkmuSw1Bd9PMxvV5OjFGG4QKE6KAYD0n7GL7Zi3ukGDQ+5g8TvCgthPXzplPloBml/WLyUoMxy1p5hxcgRCcPKk2k2EOQwbz4qViDx/8G8T6hnK8xMh7YJ5d/+dwuyFEjrmgJs+jsHbQACjp5HmM31flrRocuFT0oY3/DfdGKOo3KLkRIjfc/Q8SKqGXFmEOtuWsR3FUBwKOTYrymfEjq0A2N4xbN64tTx47OxQ0fDZd/+zqatitu+H7O+6tFCqv3AsMFUNPRM99rqevijD/ohqaX7xFbkYqRFR7eORTicWfKJcRyPB0quI5FKJs7+hDQAkTRUTFeU2nhVqrS7utFp4z5VZJ03k+RBFj5+8u/jelh16LEgzpD0xtn7wKTKBBDZ+tKpVtluJU1+Ny7RoRy8ZXc5ludNl67+PfL7fnx4d/Df1dPX7VLAhBJh4s6T6bvkEcLp4lRysXziMY0jVnFR9WleNA8jBUggQ7Xrn1203dVdejqT7wZXFwxrUfB8rvuIouzNej1ew76gE63AbikKb3wwpmM3sYMGvILh7pdjJnj3mGSBNqn441jTtIXM/eSp3Zi
ynCm6XsvzXiEGaBtOt9q7DR9j/pKIt+LeubPRWk+zZIehaFAJ+h4c0q5HnANjpcyyz1WDxpvE+l2R5g1gVrloF260ef7SecJkmLQWFTVIvge/q+Y8kpkFUMGaJMutDPW2nNQBTQdulIMGg+pexczegEzQHt0QQwvKDdMShIwh24qkqf4Vsrym8weL5u8bgAadEOMSudIx2ShwcjEoyIV8Cpl72JGTjBkgLboihheND+OmtSSZZZzoDjAlLL8JrOme/2+gj6nS2LIYP4xqiVbS54KXixt+U0HNWhBW3RLDC8u/xqVBWS0EC7kmbL8JiN/IQZoh66J4QXmw5jR0ylV8pT8645m276KXMsQA7RD98SobFqv6tXqCN3wR+8Ua/Bb7d7FzJ7s9RsL+ptuihGuSqtthip5Si5bVnUf3Doj371+Z0Ff01UxKqf6ZgzX4OHkKfm3M83exU7xo9fvLOhruixGyrVBqxqq5Cku3mf19sELid1eAYih22J44XmnvTYIDBpLX4o1+K5O9q5TeO/1Owv6mq6LkW5t4FeDDl8p1uDXxeRlizP81et3FvQ1vyBGmrVBwAzH2uLhQeNjOnEEQrYUaI/fEKOyNpgzWoNHJE+tJVXSsWZ7/caC/uZ3xPCC+cAxenCr6F1Rrb0W+1NkA2tv0A6/JIYXpo8TaQ9WVGLcJfMfYTP+xprByDHEAO3wW2JU2uNtGq7Bi+fhQWMndtHioCICaIvfE6NysGLIbA1O10qhQI/rbIa1N2iTXxTD4GBFc2o0Fqg8xcWf6AU4I9sYMEBb/KoYBgcr6qFuW1ul1hQRLtZjnkzZDxADtMXvipH6YEXTDDloXDWLzpbFRzGyezKz5nr9toJ+55fFaCd5yqbLr/UStKI0HT3wMHqJAQO0x6+Lke5ghX/QoGy7ljT7NB7jhTXT63cV9D2/L0Y7yVMuKaxfvbxcr8fVIGEW6jqDdumFGObJU96TW+q6NK5wNCPr8AK0S0/EME+e
cis9WGN7FNsjP71+U0H/0yMxzJOnErFuMWCAtumVGObJUwkDCtmHF6B9eiZGG8lTsV6s9PodBQNBD8Xw7uyXRslT0V5QnMMAHaGXYlSSpxbN1uARXkyWMJECnaC3YpgnT6m9mPiGF6Aj9FiMSvLUVGcGDUanfuAF6Ay9FqN6UNWo+nPQCzJfhhegQ/ReDC+Y78fbHTSYt+ENL0CnyIAYlQe323ZbKw3mWAfwAnSOTIhRKVc40cagwazCVa//HcBAkQ0xPDX4rmmKiJxGTaPpPegoWRHDi+unWbNuGra1jWkU6CyZEaPaTWM49XxKDhejN/ACdJgMieEF9/eWQ1MlFjLL2sTuBeg4WRKjosbzomVpq8FsMn2H4QJ0nmyJUYnxmxmqpwZzyMgJtADdIGtiVArkXEwlq8HkaDF88AMvQFfInBjVSL+YsWjMCVb5FUrHD6EF6BYZFKMa7bfLLrFVbjD5OYuwxUsOLUDXyKQY1Yh/3Zu0ieWwKm7t/x2bUjZ3+CagBegiGRWjutbgD3uzRYsQalm2bVsWJcQqTG6cvQsRbHUMQEfJrBj10P+8O95enp2aGJ+YmlvePr59b/kaAN0iw2KI1vjnrR/2+mWBwSfbYnjwphMtHwLQVbIvBgA9AGIAoABiAKAAYgCgAGIAoABiAKAAYgCgAGIAoABiAKAAYgCgAGIAoABiAKAAYgCgAGIAoABiAKAAYgCgAGIAoABiAKAAYgCgAGIAoABiAKAAYgCgAGIAoABiAKAAYgCgAGIAoABiAKAAYgCgAGIAoABiAKAAYgCgAGIAoABiAKAAYgCgAGIAoABiAKAAYgCgAGIAoABiAKAAYgCgAGIAoABiAKAAYgCgAGIAoABiAKAAYgCgAGIAoABiAKAAYgCgAGIAoABiAKAAYgCgAGIAoABiAKAAYgCgAGIAoABiAKAAYgCgAGIAoABiAKAAYgCgAGIAoABiAKAAYgCgAGIAoABiAKAAYgCgAGIAoABi
AKAAYgCgAGIAoABiAKAAYgCgAGIAoABiAKAAYgCgAGIAoABiAKAAYgCgAGIAoABiAKAAYgCgAGIAoABiAKAAYgCgAGIAoABiAKAAYgCgAGIAoABiAKAAYgCgAGIAoABiAKAAYgCgAGIAoABiAKAAYgCgAGIAoABiAKAAYgCgAGIAoABiAKAAYgCgAGIAoABiAKAAYgCgAGIAoABiAKAAYgCgAGIAoABiAKAAYgCgAGIAoABiAKAAYgCgAGIAoABiAKAAYgCgAGIAoABiAKAAYgCgAGIAoOD/AzsaINq0C5nlAAAAJXRFWHRkYXRlOmNyZWF0ZQAyMDIyLTExLTA1VDE2OjI5OjUyKzAwOjAwrPx6lwAAACV0RVh0ZGF0ZTptb2RpZnkAMjAyMi0xMS0wNVQxNjoyOTo1MiswMDowMN2hwisAAAAASUVORK5CYII=</ImageData>
</EmbeddedImage>
<EmbeddedImage Name="wmc2">
<MIMEType>image/png</MIMEType>
<ImageData>iVBORw0KGgoAAAANSUhEUgAAAxgAAANSCAAAAADD1TeyAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAAAmJLR0QA/4ePzL8AAAAJcEhZcwAALiMAAC4jAXilP3YAAAAHdElNRQfmCwkALSVtP6IMAABh0ElEQVR42u29Z1dbyxKtXbMViAaDbZxzJjiHffa5P+7+t/eeHZ0JtnHOAXAgGVbo+X5YQii0whISKNRzxvDYB6RGxj1XV3d1zQJFUZRCzE5/AEVpRlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQY
iuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuJAhaEoDlQYiuIgudMfQGl/KIKd/gxxAXf6EyjtC2VDFRlttI4+VBhKg6BIgRKKv9K8qDCUhkARgUiwuvJrLbBIpnv7+lLZLzc/usdQGgAhAvHmvy6uBRtfS3QP7t+XFEbfbXZ0xVDqDkGBrLz9sioJE+0wIEIbovfQ0W6hoPmlocJQ6g1BwfrL936iKBlgw+5jx1OtoAwVhlJnCEI+zP5KGhZOfwJh2H/6cAssGioMpb4QhD/zIZGga+oTCMOR87uaXhkqDKXOWLP0cDHNUvOekCB56qRpcmmoMJR6Qliz8MBP2tKHshQwGL442NzKUGEodYSwZu4+ExblXwU/ceZUU+80VBhK/SCIhbtVTHeCwb7RviZWhgpDqRsEsfx3YKqY7AT89IXD0RFWM6LCUOoHJfx7MWWrmuo0Njx6IWnRnNJQYSj1giCevOiqThcihPiD4826B1dhKHWDsvhXjMo3AkHiwtHmDKe0gk+pFxS8sFL9kxZiE5ycCmElxru2CRWGUjewOJeMdakcROrt30tG2HSRiwpDqRMU+RjGnOCgpH/+/QFoOmWoMJS6YReqOanNA2KT9uFMCIvmCqdUGEq9wOpqDdMJROr1P8uGzbVoqDCUesGVoJbTJVDSP/7+
hObaaKgwlK1CIYVCrFWbwsgHYlPBgycEwaaRhgpD2SIEM5vnmhYMERFYk3zx7yps8+TVVBjK1iCIwAexlWQEKF3f/vrSROe2KgxlSxDE+r9/r8KKJLegDLEp/96sNE04pcJQtgJhsfrvj+W/vxkyvZXHPaxJPrvzq1nCKRWGUjsUWLP4z1Iq4d35mJDexFYGA6Vr/q+5JgmnVBhKzRC0ZuHftZSlkYcv0Juym9/L+bNKIDbl3X3eHGlwFYZSKwRpPt8NEhYgkk+n0rvDDUEQDPwwblQEaxKzd9eb4VZhE2hTaU0ICt5Nm+jSOIG1I/3Pkplvid81lFz9aZMx/TgJeH3je3a+SEOFodQGQcGL2ezMJyRMhxmRSHD4TK/Iwov5RMLGc3GmCeXsqR0v0lBhKDVBUPD4VSpnRSCyD/rgzNmoJca7Z2ulLaZKjSz+wbH0Dte8qjCUWiAIO/UuXRgpZXRx4GrmdghWn3xOxpzhBLz+iaGdDadUGEoNEETw8EupxSC8NSSI7j4ZeTMbpOItGhQTmHMndjSc0lMpJT4EsX7nS9qWmLhIihACEUMev73bi/cABmxCZh76O3k6pSuGEhvCmpV7y6V9cvzzp63J7MNJE86+Nol4N28JeAPju3cunFJhKDEhSPPz3loZ/yji5u6MMqJ46NOMV0s4deHYjoVTKgwlHgRp5h8EyXK6sKnrgxvHSgQFK5ML6dgpDQZHL+6UI5sKQ4kFQZpPkyxb3U3Y5NXhrDJEaOzT14kaTqcGJwZ2JpxSYShxICh489hUmKuExcTB7JQmKPg449cQTiUuHtmRcEqF0fHE6TBMUPB8NlUxKiIYnjudndIEBUuTPyq/sWiY4PiFxA6EUyqMDifqsFrltCMomHldzfQmxD8ylrCGsnk69eRN/GSf+EMT/dsfTqkwOhuCguW+6qYdQdjJ911VBUQEvKFLfdmHPUHI+8dhMt7dKQJ+avTQtitDhdHRRFuGuetVBVME4T+Y
q/buE8X4XeMj+RuNxcmf8e9OMTxx3kRL27ahwuhkCApeTx67XM2cI4i1+9/T1T/xaUKezdto0AQz72sIp7y9433bu9FQYXQwBAVPX/LExSpXjOX7y1W2hdl4h/gHxrryw6m3T2wN4VR67MC2hlN6V6pzIQiZep6WZFWPR8r6ncV0rJsdoKQ///UtW8YNgjx2q88z8e5OiU0F959uq4WICqNjIYjw/psuMlnleW1qtG/dxLrWB7HpX/++ypZxgxC7+7dDXsyy7siRbTstRDSU6lQIwru/kKb448dsVQ9I4tf01/ipCPEPjabzw6nXT1lDONU9NrJt4ZQKo0MhrFm9t5i2kODyoarOXwUEn71EDRdld40P5Z9OfZtajn06ZUKePoNtOp1SYXQq1ize+5WyEAlu7KvyABYUfJler+Wi7Pnj+adT3tTnWtaekfHu7TmdUmF0IgRpvt33oxuy4e2h6jPfNKtT87Xc7DhyMZUfTr2crWXt6R3fuy3hlAqjA4kMoR5t3JC1/xmodqJRQNjZVzXVHU0M5odT81OrtYRTOZmRBqLC6DzyDaGE5j991c8zgoLa6o5yWxcTpFmbqmkrf2B8GyxEVBgdR5EhVPL37hizLFN39K2WcOrYheRmkQYIefailnCqf3y44eGUCqPTICh48nJzXtvu31NxJhkh1tgnb+LXHYm/e2JXfjj1dXqthrUH5xtuIaLC6DCKDaHCvv/GbLZKEPLhcey6I8BPXTycH079mqxpK39oLNXYcEqF0VlEhlCfc2+OhwO/x80MbKHuKDx+wVgjm+EUZ1/WspXfNdFYCxEVRkdBEOv3v+XdkA323Ky+hG9zHJrw8dta6o6Gx/tzz20Fn6drshDJyYw0ABVGJ+E0hAr2X40tjEw49e5JLXVH6dG8anCaGrfyR0YbaCGiwugoiGJDKP/IpVouWRAU/JxcrCEVYU+ey9YdRZmRGi1Exgdj6ql6VBgdBEUWigyh4J0YtahhehGk
8R/XVnc00ZsfTtVmIZI8f8g06OKUXjvvKIJHDqO0irfO6ayCgIhh6tKYhCZWlURh62IQwkO/1WBwmwwnlxr1m1JhdBTJAUfskSz1apIkrd34o1AgIMjjNdUd+fc3WxeDENt/67gfr0iDCHF9d6N+UyqMDgLEPls4+Sgp12szKgBgIgBACtQR1R3dPhTzYS+wJvF8s3UxRAwTY5cQZ+2hCZPX97OWILC631VjxlWaEWL5z6IVI7hysPBrFJFoyvlra+t+SCRS6XRXOiEi0U4gt40S5NUsk7FTEX73+L7aLURo/J5rA9UVWNWCCqOToMjfPwqbcReVY0SRv8jqjx9Lv7yQ0eSHSaZ7dg0O9my+IHo1KPg2uVLLRdkzZwosRB6/q3IrT+MNXOu1MVP2MVBhdBTWPJ8t9DPIL8fYmPSLXxeWPIEBIglQhLREemDfSG+eNAjSrE/XVHe0f7wmCxEC3p6r6UZel1JhdBIUWfzLFH7tt5xyjCjkX//8aTEwBkWzA2TI9N6jeyT3PgZByItntVyUzW1dTFDwY3Kp4tpDYP3g5URDrxGqMDoKCv9cyo+lcssxoqzb0rvPayZRcmbABmbPyb250thC3VFu6+IoMzL9sUI4RYh3bByNvV6rwugsiCcv03n/5kz+tyvniS3Lrz77ScPScREhEmDk7K4cn/St1B3lti6uxkKEEP/0+UYXZKgwOgqKfPs3f8WwXf8nudn5aP3VOz9pKjz4CZEgefxUcnN2Rhdln9dWdzQRx0KEYHjhpBYqKXWFEv7xK2+XYXv/C0FmuXj/fLWiLERECNhg4Pw+2TSz2ULdUZGFSJmtPEE7fqTxfgiJ/9vQ4ZWmI7H0Iy/Vze6jkMitafXRS5uSanJmECK59ml9OJGdoiCE/fuXl+JdBwRo5Mvqno3mMBAxTB5MLDDhGobGmqsHt8FBR4XRWUBEPuesGDTe8EGKgMCHBz/TqDaVDKEx377298qmMsQwfYgLkog1a0Ek
f8wP9mwMBIIyvPvbWrJ40aAJ0tf3boezlIZSHQbh/z/PZP8PvL2X0wIhwidvEolYxRUEAsnzBtxC3VFVFiI0fu+1XQ1M622iwugwKHjwMXM7isD6oUuJqFjo0fe4R0rRwem+8c0b5FuyEMltXUynhQiNN3itZ1t0ocLoOCw+PoyEQYh3YlQEpJl/FNd4MzME/K7RA3mnUzVbiOS2LiYomJvK3coT8PZeTW1TC1cVRqdBrP0vjI5nxT9zjgIK3k9LzHPW7HAmtKfOFYZTNdQdAUGyyEJk6mvWzoTA+uGJxqa7c1BhdBoU3P2ajPIBF09EunjxNG4ZXs54EG/fRE9BOLX11sUFFiLR8tbgdHcOKoyOw+LtdJoEOX440sXTF/G3F5sUda7YioVIbuviyFx9ykuR2FzetqnZmAqj06Bg5Q8CobmyzwIUPH6Z3oIuxNG5Yguti4stRKYWUjnL23Y14VNhdBwU+edbKkhfHbIAaZ68qK5xd7khCztX1Kl1ceQG+vR1woQycWhb27aqMDoPi5ez6L3Wbw2F5vnTLevC0bliC62L/T1FFiKP17ou79N2xkpDocjS/zd0tccawpp3k1vZX+SMakI5k9u5Yguti7vG9udvNJYfnxnaXl2oMDoQInx6Jk0QxPwdU6f5VtjTu/q6o8KBTGhPn8VmOEWBbEevmDxUGJ0IIQRBWfvLc+eRCYm7kBDw+iaGC8KpynVHrp/tjYxvHgBnpui26kKF0YEQ3PiHvzOfKpfXizmhxQQ4d7IwnKqxdXGOhYjItjRqzUOF0YkwKsDAy8ddLl0QEtCQSWy1c8VWWhfnWIjsACqMjoWy8oeUCKOCPQf71r5+DZOxlVHQuWJLFiJjcVqg1RkVRodCEbn3tUQgFZ4/KSLy88UXE+8muqNzRWQh8jzuXSwCXu/Enu2PoTKoMDoVYu5OCdfa4PwpRtV0n56ubrlzxZZaF5/a7k33Bupd26FQ+DJ74JNPOHCSYkSEPPif
wzGtlgVE+v1fP7Nm5pHB7d7fRuIa3AqBrh37/agwOpZv35Pup7Hth4CAQNh1+ZIJjMSz+bfp5X/eAVlliBh2Xz8bWhNjHJrQ3DgijTJtroQKozOh4L0tMd/Nkt1Iq4E8cruGzhUJTk6FsGB20aCcvZb2q5cYjd99a09tNSL1QPcYnQmx/r8AJb7lnzuT2SJEN8ifvKnlytPuiV15Gw2aX5Nz1d7jpfF3NdS0uRIqjDYik7mryi1cPt9PlfxuMH40Wy8U9fQOkvF7eufeII/XupiAN3ytoabNlVBhtA9R+FPVbKJg+k2apcaRYPT4xpzeuEFeS0/v6MpTrsHt55kqassJrB+8lNxJXegeo30gCLwPYVFNIM/FkjthUJLTsxubZxBiB24freF0Kvnsnrf5cUCIPXB7uOKOhZD1Y1d3VhdquNY2EISdfPJjqMtWEU7Be1n6NSAS8yt7M+XXUSOw/d0LYSJWug1EcvHr7h676cgG2K5D4bfyF8gJ8c+MVhsTNgoNpdoEgvAffk376bEDlUtAKUt/lXfahzd4aVdeOFVTT+8gOZ77caqwECEYnj+1nVWsTnTFaA8Ia9bvLqRtMvwU7s0pvy4Blt6Xi6JBJtc+9ezKPLdBCHsOrv+IWbwBGn5MDG8+/UGIDIwsrpT0nSJoJ47vuC5UGO0BYc3KncW0BY1Z+D6crlTvhqWPiXIDAjT8FOwx1lA2wqkD6QUbO5wyX719m1twEMKuQ8G3EhKjsebK9lZ3l/rkO/vzlTpAkObH/fWkRXFtaIl3fL6Xqjiq+MMTfTnntoLvk3FvkBefMJWzEKHZMGnYYV2oMNoAgjRzD4ONjsI0IU+dLRtOEV/vJiuPi9wdC0Eab/pTzHPb4pxEaQuRDdPmnf6NioZSbQBBmo8PN/tJgMbM/RxOlXvwwvtYcXZDmAw/2T0ZiVXoXFFulOWFfTmesyCE3Ye874XhFI03eKNvB9PduR9bV4wWh6DgzUzebra4NrTo
Tat/VHMPiRB/76adOUHBwlTcnt40fv+Nnty8hMtCZHtNmyuhwmhxCAqePSuMb7K1oaXeZf9YTlQ1fJ7/ZlSQN/Ulbjhl/P6b3QXKKLAQ2exJ0Ay60FCqxSEomHlZNFFBY+YWB1Mldxnmx89qhAFhMvjE4cy5UhROHULMrklgcu37AZOzgEUHwIc2D4AJ8U5MYMePabO/n53+AMpWIAg+eOW4swpK6vNiqfeB3FPlsSusSTy7uwYblTWBIM9cj3ODXERgUz8e5bmOQMQwdXmUoSGjmO3c2E6nu/N/f0rLQhD+gzlXyE8TmssjmfjH9c6S184dr83z38x0rpiLF07RrJ8/kx8n5RwAy7abNldChdHCENas3fuRLpkQICjuq+gUTL1NV1sHlO+/Gd0gf/aiqhvkOYS3hwo2QtkDYLHbbdpcCRVG60JYs3xvxeX0ke3iGAXzTmUs/1n9LCzw34w6V0zH6k5GhIO3UeBtQBDy8plIYrtNmyuhwmhVonT3PS9ZrAuK8XZf7bGGAmuWvh9zFGnEWzKEgNc/PpwXTq1OLsQJp2i8iaNFHwMULDzitd3NpQsVRqsSpbsfWEc4Q8DbdyVFEKT5eX/56Kgj2UdZ+yOsfi5STIDzJ/LDqaevYoVTtvc/iUI7nGjHYvua5Zh2AxVGaxKluyfFkSXO6eJImvkHQdIbGN9dGE4RxPtH1S8ZRf6bBAWfZmL09KbxLh8uvu9BsMq6w+1EhdGSEBS8fuy6vE2If3w0c65qPj0SQxOYC0XhFEXw8EM8ZeT5b0adK6bi9PQO9t5wGKhFRwTNpQsVRktCUDD73DUlCfHPno0iHcGbxwZEYXv5jZdK8NdKnEQdJU9ihFgTPo3R05v4va/ZFFACFUYLQhCceZ126oJhxsiAguezqUynC3i57eWzoyz9Hca6slfgv5mxEKm6pze8sWNsjZyyCqMVIcJHH12t84hsQoCCmdcbawrFBImLR/LDKYKYuxuvKK9AYnF7
evsHr+6YTXM8VBgtCMV/WCLdHSSv7I10ATv5Pkc7Be3lM1+z5sOjeFb/BRKLmlA+qbant+39PdYlq51DhdF6UHj3U1/oTHd3XRvM6KLwqkhhe/noizTvpmI2wSAYHLuYyAun3j2prqc3zX96W2PF0Nu1rQj6fy0VP6Np/P4bu6wRgTVrd7/lXxUBkVzd9DfIfFG4u+tLvGgKROL7t93dm0YJlMG9P1ar0RfC/SoMpUEA0n2wyE6AYryhGxvp7uU7S2mb7xQOYSLH3yB6E4S7u7/ESzpHEuseyLcQKS7IcxGO7FJhKA2CoBnpmc8zQCOMt/9amoYQmu931xxXqECYhe9DOS2HQQh3931hrLOpHInJpiNbVRYidmSgNYShe4xWpNhOgBDv6LjJpLvdV0UkYyEyWmCBRjP/0E/G7QTmsBCZqtzT2790RDffSsOIDoMev9vYaBDin7qwkb74MCUlVwCa0J46l2MhQog1S/drsMUpthCZ+Vjp3Na/erA1hKGhVEuSiV665qPohZDg/LkNXbyeNqUjI9CY+VwLEQiN7T6wtBTvcMppIXIgMS/lgzIea5HNt64YrUpkJzC1GNW/2bGjG7pwXxXJfWNRe3kQ9nEt3WG8fRM9eeHU3KOyQRnxnz4VhtJQCNL4Mx+SEItLBzLpC06/qdi1aLO9fDacoqDAzaaqT1BsIbJ8fzlVWhma4FO2AYKQ109FkleHM7oocVWk6I3iHRjrLmg5/P1RXMMooQl5+mxOkYY16/d+lFaGf+iKXglRGg5BwbdJe33AGiEI78F8VXN7s718bo+89enP8fsmibd/vDs3De7/+zPpHoTGmziilwiVxkOQZo09BAXW/Lr3s9oCC5pQzp7KuVVIEPLiucR0OCi2EMGvP0v5jzDxe09rRFIqjFZns/7NmqV7q6kYVdziHxztKgin5qdWawin5PRpZPu8WvPsmbO9H9E6kZQarrU6IBiJw3z751f1uhBQ0p/+/mYk26ee
ELv3t5GYXb0F1pjZu6ubA7G3xAvFHGsVXeiK0SZQ5OujmD7hBf4GGw4Hz18gfjjld50/LNG7aB58SjpfFey9IdIiylBhtAeU5f9JzGsd0Q3yw7kWIgQFX6fX4hhGiYjQhOGBc/1CAvJ+qoQrbnhzT4vsMFQY7QKF8/Hnc6G/wYabzeRcxVxI0UASpI4c7RMJXj93XrOl8Q5dYassGCqMtoH4NTkf97S10N9gI5yafRnXf5MCBumhnvD7svNDEEz8p6dVZKHCaBdqnc9ROJVnIVKL/2b0PtiQkjBuF+nIh1BDKWWbISj4PB3DAC37xgILEYI0K5NxDKM2RhLQ/SYa7+DV1gmkVBhtRO3zudBChAJr7NPX1RtGVf5sYc9v6daRhQqjnSCkxvm8YSGSjYIICj7OVG0YVXl8ubW7hQIpFUZ7UfN8LrIQifw3J7/HXn5KjB5cPtQc3VirRYXRVkQGaFPx5zMBPzV6qGCjET6JXaThHFu8i6csWimSUmG0GbXPZ4LhifM5FiIEIe8fV2cYVXZgrJ89V2BZ0vSoMNqNmuczIf6e8b6Cc9s8y4XaPo94py80oZ95eVQYbUfN87nIQqTQcqG2TyP+6fMtpwsVRhtS+3x2WIgQEr/mNfeziH/+dOvpQoXRltQ8nwnx9276G2xaLtR4OkVYZmwadvp3EhMVRlsSzefJygZoxW/M8zfYsFx48i5p4t41kch9/dJIk7WdrA4VRnuyaSFSQzjF02dQUPP6/kktyRF4/VcGWlIXKowWhjl/IvtH9ruRhQhrCqdGxgstRJZn5mOKjBBv/0RXa+X1sqgwWhKKiDA/NRA90PMaJgm+TcX13izyN8gsP3z5IoyxaFCyG/lW1IUKowWhbIjCeuueH1BMMt3dlcx8K6uNyE92+lP8jbPLQkTw48m3pKly/SHg9Yzub8Vtd4QKo8XITv3VpZ9Lq15go39Ak0j3DgzvTkUvyJEG5OWzuJY4GQuRsXReOEVjX70M
qnK4JRCGBy92t64uVBitRUYW9ufct2WfgMlcQKKQlugZPrjHSL4rrWBhMrYlTrRxnhgqHGpp9iuSlcaiQPzuc0dyPEBbDxVGC5GRxfKnL8vWGBT+24E2xMDhg11SsD1Ym/paU5FGnoVIZpp/fLGUSFSSRoBDZ3taeLkQFUYrEQVJ8+/mfZMo+e8W2p7Dx7rzpQG+eB7XEsdhIRJJI3j75lciUaJQTwiRkMNn9khr60KF0TJED+y5V9+YMKWmpRCCMOw+fixF2YhjInv+qTpYiGSkuf72w6pTmoSAgew+eaDVZaHCaBWiifbz+VdJSvmoiEAY9p06guzcjCxxpua2biGyIU/v08eftlgbYGiTw0dHkHc41pqoMFoCggL/xduwkiyiFyMM95wdzh5QRRYiz17UwUJkQxr88XlhJRSzsfsXkpaJ/n0HBqQNZKHCaA0IQuYeL6eqkEX0evjm6Jl07qJRkyVOsYWIZA+E7eKPHytrm+fFXf27hwdMe8hChdESEISdfS0VD0pz3yJ+3/kD2RPTyEJkamHrFiLRFyWzFq2vrfmBlUSqq6c4w9jKqDCanowtzkI810wCoT1yPrtoUEDY2Ve1W4jk3wXcTL9vfqngTkpLo8JodqJDpclaoiDx+0b35YdTn2ZqcWQTf2h8V/FBU/lbjK2NCqPJifpGzsRPQ0SLBk+cM8xVRi2WOEUWIh2ACqO5ISh49qzmAjrxh8f7NxN0YrdoIVIPm6mWQIXR1BAUzLyKa8qf834EibGD2SCHIOTD46CmIo3hib7WLDqqBW011swQFEy96qr5OQ0KkMz9/yAP39rlIeYTEZT0978/b/YTa3c65K/ZqlAw86qKxt0l32/8nuu78k6T6mch0taoMJoZ0jyb3ZIuvIFrvQXFpZGFyNOaHNm8fbkWIu2MCqN5Iax5O1W7rTIBb8/VdFFxKUHBz8nFrVuItDEqjKaFIBb+TWxFF+sHLyccRdf1sBBp93BKhdG8UNb/
9Gr22CDEOz5WwowgshCZrc2RLc9CpF1RYTQrFJF7X9Il8nogWHYtqeAZS1DwfbIOFiJtigqjSSGIt1NOXRASWhEkTOlZTTC8cLLM9N2ahciZ09KqvjhVosJoVihrf4TOPo9gOLS/e/3bgl9yVhPk2JHyAc+WLEQOjHW1dzilwmhOKIJH710LBkGePyEisvT6o3XfCKQJzeWKnrGRhcjUSm0WIuPDbR1OqTCaFMriXyWuJQRjx0gQkG+zzh6tNEH66lDlJzpBmvWpL7VZiJw72c4Xp1QYzQkFDz6mnBMv2HPLZm50wL58UWxOS+P3XttV1jM2r//F89osRMKD57vb99BW70o1K0tfU85pB0aFplFd3pmbfZ7Je7qRxhu8VU4XFIowUhZBnrne5WdKUqsGNObr+k7/jhqICqNJwYfAvZrT/IxiJEAgdvi3w17uxT7CeHtv9tCUO7CSSFYiAkLsvtt7vZixA43f/Z/d7btgqDCaE0r4NVFiaie+vQMpFIGIYeryKEPDzLQmsH7weqrMWWpU4bGAzD1ZUAx7bpwJrYmhDBpv4Naudr5p28Z/tVYmugxS4lvklf0bO+sCr39CvBOjImV1ATv1Np1jFxXbQoSAt/dKuq0zGSqMZoTEs+fpEv80BOVStrdqXqKOEP/sWVbQRfDwc5cNjl1MMNeRbXVqvsrTKQLrhy4l2loXKoymhIJ/FpIlvwvaCydyTQ4yiToBw4snKuli/f63tIX4w5d6s+tOxkKkKke2yqtSO6DCaEYI/3/rpsy3xT9+0eR4Rgnmp1bTtDJxqFz6grBm5d5yyoKA33Vpbw0WIoT4Z861dXJPRIXRnFCW/ix3LEKIv2eiN2ejQbM29dUkL+8rowuCND/vraUsJLpBnr/uCJanvlUKp1hxVWoPVBjNCPHlXrL8C+B3jY/kuanJ7McruyvpYv5BkLQbyT3xj41umusIrLFP3pR3ZCOsjB9u72tSIqLCaE6seTOdLv8vU1Ay
RBASJMsf09J8msxJcBDw9l7ebKtKUPDhcbm+xTShubKvA3SheYxmhCJ+pQcWrEk8u7sGK5l0BMgKuhDz9qHkJP5Apuf/XjJ2w3KWEB6+PVg62UcTpG52hC5UGE1KUHHmgZKe+2veZBN1kEppvedT+XESxKZX/54zzGTqQIjddfuYz1JJd7/31m5r2sqLswQqjJYFYlPrd14AGWVEd0TcRMZts0U7a9hEeO9D1i0KIoaJ8QlsptJzxqDxdt/qb9GG9nFRYTQnyWr2frAm8fTeOjZioZIQBB+6DA1Bg0evNu6HZEKyo7f6C24mSnQJa9+NbnaGLlQYzQhE0lWdioCS/vzXQiV/QILw731wGlSBSD5+jqxkQIgd/O2IVzAkgfXDZS9htRcqjGYE7K3uHwZi07/uvNoIp9wQFmt3vqatc06Dknr6DNnQCSKGyUtjkhdOEeKdvIyO0YUKozlBX6rKc3TYhHn8wCsTThHWLP/zI23hntOgpJ+9NZvvB0Eev5Vb6EGIf260/dN6eb8VpemgyD/fktW+GPB2jQ+VmLUEaX7cX0+WuQVFSHhzT35vVhpv5uPGZp2gHT3WSbrQFaMpAbGv6mIH0KZX/n3jDqcI0szd8crpQkCRKS9nZw4Rw/SVizYKpwgrl4/ZTtKFCqM5AQ91VV2GDdiETD8KHOEUQZqP90JTfjAwufIcue8GQZ682eMZkCZMXD/YEWm93F/JTn8CxQXx5EX10hAC3sDEoKNNHuTNTFUNKe3twbw0SGQhMv05JfB7rg52UDMlEVFhNCkU8f5cj5EyoJggceFoYfKbEr58kaxiShPByHVKoTQgL57B7ipqJdD+aCjVlADSdSGMcfMCsAlOThWHU2tvqxoFkpz7XnDVAwR5+kZq983eTknr5f7ld/oTKC4ogscvYwRT0ZHq7omCrsPEr8m5alr40XiHLxea+xMUrCU6J623iQqjWaHwznw6njLgpy4elvxzV/BplSWrif92F85/
Vrqc2LZoKNWkEILLu/w4njYQm7SPZkJYbIRTICgXriarMFSjWZ8rujkIEOxEXagwmhUQ0nW9J4ijDAGRfP3vcvYeeebq04HfhiobqoH46ujlWvbSbhujodROkvfLdzQEw/K/ZVPWjhEBPz16MGejQYg19unryme2TP63qwPXBje6YuwUJEkRZBDa6AtZQLD/RnesaEogNhU8eEJw41oghIa4eNkElcIprC/qY3IDXTF2AooIo2eStaEVk0hARKJr4blHSsTq3aV0vEZ5BRYisuEAMvm9ggMIvAunrD4pI1QY205WFSvLyytrXmApMOmuvl27+zaKr7MvzfijxevsQsDvGtufF06RJnzypkKbVv/oRNt3Y60WFcY2k5n54Y+57ys+BYiMx0lKqn/fgX7Jy0MQRDj5oZpERN4PMSFPnc3tOkwQ8u6xLbtjCfbeVGFkUGFsL9FcXfn4Zdkak3cIBNLa1N7jw3nSIAh5+rKq2055P0b8fRPdheHU94e/UmWUEQ7+R4WRQYWxnUSy+Pnmi28Srt88bIj9pwckPwoSfJiO25GbgN89vq8wnFp78K3MjiUc+L2zbgqWQYWxfUReHkuvPoXJEidNhIifPHYqXaiMH49id+SmCXnmTGEaPHj0uXQ2XVeMTVQY2wZBgf/yrZ9Cuf7csEHfmcOyGQXV2pGbEH//eFd+OAU++lBSGcGeWyqMDCqMbSJaAz7PLidN+Uc/gTDcf74/f9GAvHgetyM3Aa9vfE/B6iMPP5ZShl98jbBjUWFsDwQF3pMPJlE5IiIkSJ09nr9oZIz+Y4dTcvZUTjhFUOzfi+4uZvDOni3lmNBxqDC2hWhmT69UFw5RjA32XcxZNDaM/msJpw6OpfMkhp8lG4hfG9EFI4MKYzvIttOO0eXOT509vnk8Ff3HsxdxO3IT8PoncixEKIJ/550OJEz83qOHUhn0BsA2QFh492YTpuojV4hN2em7v7LemdH977PX0jE7coM2vfrv
a2Qr+wBht3v6hwM9+pjcoFrzIqVmCLFm6cFSvA0CLNJff144JBvpaxC0I7sm59Kxkn0Qm+DMwoU+sWBUn4El12kxDUdIfVBm0FCq0UTOTg+DeNfHRYRiQnvkQiq7QYjm9ezLqurx8j4B/PTJY0khIQTeTrsjKb11noMKo8EQFLybRi1uAoT4/WN78vbggs/TVbSQzB9HjA12HTvQJSIi72ZcDlE03vEx1UUWFUZjISh48TRZW3UogQCnT0d115nhaFYmK7aQdA1ke4aHerD6Zd598Yr4vVfPpLKoMBoKQcHs87jzOHcA8feO9+Y0V622Hq9oIIShQAinzRSNd+qCLhibqDAaCUHBkxdxb43nDwG/6+LBzSQdQcHHGT9mOBXZK1BApy5gu35PdUILsWpRYTQU0jx93hV3CheMYUJ7/Hxicw8OCpYf/ah9GXLhXzugC0YOKowGQqF58WQr60U0DMQfGt+VE05VVY8X5ycY7+gEdcHIQYXROAhr3j+qw4OdgJ+6cCQvnIK8fxzGLNIoOb4J+n9LqCxyUWE0DIJYuFMf83yCwbELyfxwanHyZ9xbhSUGt4nbuzrSVq00KozGQVn706+TGzIh/u7xgfxwKph5X4dwiqC9NqK6yEeF0SgowjsLqbj57pLDAUHiYmE49fZJ3JpXx8DiXzrScTb/lVBhNAiCePHEbVceHZzWMGJw/ELB6dSPyZh3sByfxR89oWUYhagwGkXJugdCbCgwsVsUFfr8E6Txpz9uJZwixL94UnVRhAqjMVBE/l1IOnNpDPoGU+tLKyYR/2KHnxo9lHd3CvL6KWsOpwiGF090WHu9qlBhNAji4wNXbTVBOXM0JeLPvfmeqLpyafPd4YnzxppMbXbkFjW1VOOZMGE5fkR14UCF0RAoYv9cTri/dWVEKALh+xertdSqDk/05W40aPzH75PVF0HlDGaC5KUR1YULFUZjID48dJtx+BdPbnwd68/eIxHfSS09dqAgnPrw
JO5V9IyJyJVB1YUTFUZDoMjfP5wLhk3/NyWQDVfCL49rsf6wp85tGtMSFKw+/lLJl6dwGIg3cqlLz2ndqDAaAvHjb3eVqE3/n6Tk3JNdn/kU91QpcxU9/9xW3j5fixGXUUxoT56H5vVKoMJoBKSZfV7C1iw4f2pjSkfx0OtZG7PslYDfPTZSUNm3OvsJySoXDUL8nosH8pzVlVxUGI2AIn/9TJT4Hi8dzH/Yf5tcTcXcOtOEPH0G+UUa8uXZYlXxFIEwPHihR3VRGhVGIyB+/a/EIkDQThzOT9KtPZqPvdGA+CPj3QVmheGb12sVpUHABr1nD0u2YFYpRoXRCChzd0sZExEMz5/KP1WyU+9rqOL2esf35jmpCWTt1QcvWa5rHwH6yaOnunS5KIsKowGQ5sXTdKnfLCH+sVGTHwY9fpWKO01pQp49XWBMC1l582k9UdoeCjZI7j85IKqL8qgwGgBFpt6lSn8b8PZc6snfaEy/ia8MiH9grKuwbZKsfvi0jITTtpmh7Ro5NqiyqIgKowGwpD1s5vuA3z2xN3ejIfznR6La8XPG8fomhvNak4kIJPj6+fu6JJDTywwUa5kc2H+gp6ADpuJChdEAyh1KZV5hQjl3MhsGEdZ8uVeDXSpNgJxxMj9cIPJrYWHxVyACgQiFIonu/uE9A6KyqAr1rm0EoK3wAmvk8Y+xtI0OhkCwppvfsAl5/HMsZTcPmBDJoOfIkXB1eXXVCyxhkume3v7eZKaVuKqiMiqMnQFE+tPSxBAzD3tixSZrWL1BpD8uTexmzqIBoQhFErt2iUTG/9E3SEQriFIRdbduBETF/ULkz/8GiHz+ge+1RbWgTa/8kx0n80UAIiQtSQAkrWXUVVx1URUqjK1DIQuaVjBdcZYDNiHTD/2ocwW8nzX+U0TjPAqyHTCyX8+ogKSIwKgo4qDC2DIERZj3vCf6qjgNBZH+8PdPIwS58KvmfwoQ6feZcQq/tclO/5paDBXGViEI
FEQywoFq+h6BNr38zzuAwOctzFzQppf+eZ//IZQtocLYIgRhH0xZENxMGmB35VhKojCIU498kV8LsbMYheM8mgoLwymlZlQYW4Mggnsf3/67ApuTFGLPUFjlCIbrQnzy8i84MeYMB5F6+/eSK5xSakGFsSUIYu3fr+n0t78/50xKiBypamYTsn7sZgr2U34hHRGGhnGmOCjpn39/hCqjPqgwtgJhsfzPj7S1Kf/+U8mGUxSODAeVZygh/tlxWllYzI+kEBwbXjexpjjEJu3DGcJCw6mto8KoHYpY8+Pf1ZQFrEm++PfXRjgFCM5VTqURDC6eowDvCtcXjtw46sV8+INIvv5nxVhdNLaOCqNmonasd7ykRRTJLPz1dSOcIjh00qswPwny0kmKyNJ8skBFCWMujUsN4dT3vz7rRqMOqDBqhaCYj/dCE5XqQWzKu/csc2QKEZ7Z65erGBIai6uHrUDwvjDsItK0x271ebHDqVSQG9MptaLCqBGCgtcPc9oUw5rEs7tr0ZEpIYlL3WGZaU0TpG6MWICy/qnIy9MkALv7t8Oxw6n8mE6pFRVGbRAUPJvJc74BJf3lr3kjBEGw56qxJacnjd97c8gaEcGHtaKlBSJimLo8Wks4tfDnVw2ntogKoyYIikzPFhRqQ2x6/e5LRLqA3X2l1PQkjTd4a5c1FErwPlF0gSSzUeGJm701hFP+vWcaTm0NFUYtROnu111FBgawxjy578GKCI3dd4VOZRDG23ezm4aA4NNyoug1NhQBIXbot4NezLBoI6arrcRDEREVRk0QhH/3k6tNMSjpT399i3pfwO6/KrZ4B05g/dC1FKOHun1b7JIJ60VbeMP01QvWmpjntpKe+2teV4wtoMKID2Hx69/5tNMkLaqzeB2FU8aOXE8EhbOaEO/ElcgmBCJzi8XXpGBXhYxK+3jqRrdnYiXtIDbl/fNKL07VjgojNoQ1S//8LOHAKYBNYOahD4I0ds+tHj9/+0yI
f3Ys42BAwVvHj6B8j5wMQIjdc3t/3HBKxPbs2unfVCujRxcxIUjz/b5Xzm6WgLfr0iBBgTVrDxdyfQYJhqPHN5w9KD+d7s9ZU/SMz//z50jEMLil8fuuV1MTopRAV4x4EKT5escva8MM2vTyPU8I0LD7xtGc5z1hefm4zeoC71zJDppfLxCV3kXh1Jnrab/qcIo03u5bfXpguwVUGLEgKOb9PZryT2/Apn49R/S0Z2JiNLt9pgkT1w5t2p3L2ldXoz5I6vVnk5nZIMTu+21vteEUYbyRm93q8L8VVBhxICh4NWkqTzkw9e4niOh5f+JmZvtME3Td2Jf1DgTxed154kRJTH7fyA+CYthz40xQ1RpAYP3wtaTqYkuoMGJAUPD0cVWNXij2KYXRXsIO/7bfE5DG77u12xrZ3D58cnc0AmHv/TCZirzoBta5qyasfG5LiHfqsnaE2SIqjOohCJl6Xp0vOZia/wiJ+oEZdl0/F1pjvN23+jabe1Hk52Ki1PtNcGfBMDecOnC736t0QYQQ/9xF9abdKro/qxqCCB8603pubNfvqZw2eXNTaxy5nMqz08STl6WOfYWwmDiYY3Ar1vgPv5bvpEHQjh5TXWwZFUa1EIR3f6H6Di803smLWaNB0vx61HXJ5OlC+MdyaRMEguG5HJ9/grCTH8q5ohMWlw5oI9ato8KoEsKa1XuL6Vjd8uxvg9m2LlGb1bzQv3QLy43vi394LJnfL+DR+9LKoAmSV/eoLuqA7jGqBNYs/rMUSxcUO0vJJCMi3+b8LTG5UK5iQ0BJf/h7MXuFHIRwfLjke2j87pt7bBWHZkolVBjVQKE13/5dS8VaL8DU3CdsLMogWKAL4Hv5OQza9NLf74CMvkDQnGCJYnIaf9etQWuovs1bR4VRRTqZIM3nO0GcSxkiImDimZ8dH4ICfwT4yxV+/4BNcPKhh82glyW7wRpv6GYvtaF9Xeh0YVBY5Mhc9BpQzLsHEn/KMbHyAqX3
cfzlVRwRROrDn18BKyRBwfvsR8/93IRZ33+jS9MXdaLDhUEQpoLlK0HBi6laIncw9XaxdNoD62E11s9Mr92d/GUgIhbm5efk5sfatD6ErB/TdHf96GxhEIR9sV7W8pWg4MnTqtLdxW+WcFakZE7Or9Lg1iTf/flyHYAJnjxNZpqFMclsARMh/ukJUV3UjY7uqEQQwYNPH8eHWHJKRcmDd+naesWDya+fD7JkCq/aUZD2n7wdGTDLX5ayiXcmzj5fS5HRXcXwwilN69WRTs5jEMTa/e9dvjl/vNTDliCCh5+rT3cXvd92/550t72rlMbIfy3CUEQSZrPZ3vr1wQffU9ENXjt+RHVRTzo4lCIsVv79kQ5zGhsVv4ZYv/Oly9Y65cDEyqtS+2/u6rXVjiPWpFOpdM5ZLM2HntsnA4KwcvWIVV3Uk44VRmQ8+89KyuY2Nip8ESxW/vmetqX8Niq79YPJ10vuoAmSOFiF83P21RTJS1GYJd9cvGyCRJi8sV/T3fWlU4VBkGb+znrSIrexUWGPCmt+/rNcOq1XTW9gIpyFc/9N4bH+sPZg1nirtIdu717tuTVsjbZjrSsduscgSPNxMpuaIBgcvZgseOxSMP8gSJbTRYiK2Q3Cv3bA/SLiy91U7X+L4Np+0oQvDudcZVfqQ2euGATFvMkxngWRevfPYmE4hc/3wkQ5XXinj/qVa4cSs0GpJWP/qUqe6KUBA6Fh4lyfprvrTkcKIzKenc5NTYCSXizo70j5ekcSLKOL4PzZMz2VknRgYtm9/waE5w948dzU8j5CVICh6Yv604nCICgy8yy/Eg9iE/bRdJg3x3afCUsWkxIMx87Y9JmKuwQw+XrZuf8mRC7vrVUZlGTmBpZuL+pOBwqDIPjwVVHKDkTqzd8/N4+ZIOkLV5IlXGsIK1eOWfDIHr+SMojAvf8GIclre2P6DGZJdBEioha1DaDzhBEZz350pOxAJBfX8l7Jg7d3O11raMLk9QMW
EJw3lR7YYPLLF7gNPcHk9QPrqGWjYdN9KolG0XHCICzW/p1LO1J2NEHi9n7BxuUmELD9t447XGtySoK4+0jFJUMEJfbfIJi4ejK+A6eI2IGqmokrtdBpwiCsWf7npytlR+P33BqykQEghSIQGibGLpmwINah8XbdGsiUBPFMd+X9d3LptTv/DYIyOhrX0FyE4IFaL6ooFeksYVDEmu//rDpSdqTxBqJWLhBsnE6BIA/fGsh7olOMt+dWpiSIkK6q9t+vVkrkvwnhietdcTcaCPv366a7YXSUMMoYzxLG23urh4YQi4XZTO+KyM9p4NZRnznus1g/cD2dOSMFhUcq9/Sm8Uvkv6Mfsfe3kXjhFBGeSKowGkbi/+70J9g+CNJ8eOSqxCOwfuhqMpKDmXvwZXEoHaXBIWKY2N+9ECaii0qEeMcuJ7K5A0BM3wdTKZiSxOJgv3siQ8QwdRALZZImRR/Y+Hsuip7TNowOuhIS9Vl9nIBLF+KdGJOMLj5OSsLvHhvJWvWDgp+Ti2kSUUnQ+dwr3hTB1NtK/iFE2P8fU2omExR8nc6UV1T1d8F/+nWH0Tg6Z8UgKJh9mnLrwj93IWP9ZF5PGcNk8InDGbcbEMKeg+s/DChgePFMXukDIDL4qYr892pyuNTVcBDC/v3LS4mqktiEhJeHNeHdQDpmxSAITr9xVeIRDC+e2LBEm30e1f6IPzLenfXrByFvntokybHCkiCCeDNd2XKK5veekrFP9ONnX5oqrEgI8UdPWL1P20A6RRgEET5ypfWEsDIRtawgOPM60g4Br3d8b1449X1yxZjLI0WlDxTh3z8rbRBovENXWHpbQFDwedqrGE4RDC6eVPeohtIpwhDCezDvMp6lCZKX92V0kasdmlDOZK1jCdJ4U9+vDblKgoiFfxOVP0RwY19Z41kKVqbnUmVDJIoJZeyIFiY1lg4RBkVWH/5wRTs0QdfV3Rld5GuHEP/AWFduOMV1Z6MiimDyXRX7
712/mTInSYQQfPkiLLNoEPB6J/ZogXeD6Rhh8O6nPuc1EL//Wp81FFjz615+L1YCXt/EcE44hZKmCbL2R0WTKBrvwqkyW2aKgIIfT74lEm5pEAjDA6Pdul40mo4Rhqw9+Vi086YYb+hqd0YXS/cKU+IUE+DcyZxwSkoZfhCvZ7a2/97ItdPwzcu1pHFJAzboPXtY/aMaT4cIQ8TVEpiAl2nlQppv9x0pcYLBobFUxSc0RfjXYhX778OXWVpbmXhNsPbyg58svj1lw66jJ9IaRm0DnSKMqKfR9K9UXsdt8Y6Om4wuvj60rpNSAt6uid2VJyMxf6ea/ffNvSWCJGtWXp3tsoBQIMtvPq+bxOY/D2hD9B063COqi+2gU4SR6Wk0NbdZt0eIf/LiRvrifSlzWooJzIVjlcIXiuDhhy3sv61ZvL80MD688YHk16fPSyEMIEJaonvowN6kymKb6BhhZDJoz15uhFOEBOdOb0zDV09K55wJBkdGk5XCqWr33xdPFmmMIM3CAz/lZ3Y0IiIQLi78WPZCwqR6B4YHuzItXHf6N9kRdI4wMuHUl+n1VHTniXbs6IYunr4o14uVgDc4MVD+YU0Qrx5Xsf9O/N4tDl18fkRDMDg0mrZRQR+NiISeFyLVlZKMtZvKYnvoJGFEE3B1ciEllM0ujgSn3pY3baaYIHHhaPlwiiL2r6Uq9t9HLuXvvwkK3k2bqBuZt2t8KKNXEW7UU0VbI1XFttFRwojCKTv7KgEEqSt7MroIHlXuUUwwOHYxUT6cIubuVGEfH97cw0JdvHgaLVkUE+R4TOeZXO30b6+j6CxhZGbhpxlfuq8NWBOjRzEh/u6JXeXCKYrgwccq9t8Dv+U43hAUPH616e4PBkcuVj4gVhpKpwkjmofLD+313kxar9oexQT81OihshsNyq8/qkjyeaMn8pt3T+X23yDgDUwM6vHTjtJxwoguJAU2Kk21ZvHer2p7sRIMj18w1pTajxDEyyfV
7L//2yWbuggefMkL5ara0SiNpfOEkXPnKTojTVbdi5UQf3iir/SznCL2z+Uq9t9HJ6L9N0Gs3/+Wtvk7iKp2NEoj6URhZPo6goLojDTGG+Gnxw6UiXKIr3er2X/fGo4ugFizcs/RZ6CKHY3SUDpSGBEUvn8c95lME9pT5zK5adeYgvufqth/D95G1Cbp5731pPsmip+6qNcFd4z2t88p08l79UnsvhKwJvn831VY9yMFEJ6ruGcBk9/fQ0Br5v916kIgNmkfzVjVxQ7R9itGph22a4JRFjPWH/EGhN81PlIiyiGI57OV99829XuX0Hxymvlkf9D60I2U5i92hHZfMQhC5oq6iImICGTw9mGPMZ8NEJvy7z2TjCNb4XcpPLGrsv9aYu05aN48KNuQySZGqrivqzSCNrfPiS58TK8Nu054CCYOpBdsIqavAGjM3OKwOwcHSKL7UxX+az/39LrNfDY/nR0/oU4gO0R7h1JRl+4vaUfCjIIN64/lWsKpXAuR/O+J4N6XZMUrJsGeXS/L3NCiCc0l7cW6Y7S1MLJZgqKKiozNv4A03vSnlMSdfjQhz552HxpRVv6s4oqJtclyughSV4dVFztGOwuDsGb13lLKoqApa+awlci4Nr98JlXYnBUOnmchkvcd4tmzivvvjFV6iW8av/faLtvuO8Ampn2FQYg1P+9HFz4I8bMVFVH5w5fRlEXmyGphaqWmcCrHQiT3OyLhH7+qOAguowtv8FqP9ijeQdpWGNGFj/sbXbopJkiMHs6e3n6YCgaiSm4BadanvtQSTuVaiOT/8M/3K+0yyn10eHuvpDW3t5O0qzAI0nyazLnwQTA4fiERrRKvHyeydQ9ROFVkIVLVDxE/U3BXaNmJu19rVQaB9UOXEqqLHaVNhUFQ8HYmz9+AEH9oop+SNW7eqOQWUDA3VbUJf86QmwV3+d+Q5T9rPGglxD8+CtXFztKewiAoeD5bEB0R8NOjByVj3EzAGxwfzIZT
a5Nf03HDqYKCu5yfj9nnVZV5FH908c+c09uDO01bCoOgYOZ18a6BYHjy+NMPUflDTt2DFFiIxPpZjoI7igR/VrP/dgy30ZJgp3+LnU07CoMg7OR7t+W/BF1eIreMNFP3ILkWIvF+mrPgjvh0PxV7dkctCVQXO08bCoMg/Adz7vPXqFlY7v/dqHuQyEJkvqZwqqjgjiK4Mxd3/00Tmiv7NK3XBLSfMAhr1u5/LyyK2/x2Xv4gU8mdDafs7KtqehoVjukouKMs/RX//Dd9bbfqohloO2EQ1izfW6m2jjtbyZ1xVBZ8mqnc06h4jKKCO4J4+iLW/pvG77vWr2m9pqDNhEGQ5sc9r/o67miTsPt6euOSCJYnv8dO9mUK7gqauQZ/rFU/yynG232tW3XRHLTXbZyoS/e/MfwNMm8bjOoeQMD23zoR1FCkkbSPZgibLdIAJHW2opdtzmcw3r6b3bFK0JXG0VYrRtThfkpiTS6C4bnTOR7ohHx4HCRrCaeGx/s3Fw2KyJ35KvffBNaPTBhN6zUL7SSMMh3uy75pw9w5Z5SlyR81hVPp0YN5Qy3+Wd2STIh/YlSPaZuHNhJGTpfuOG+yuJxfD0SQJnjyNhl7ltKE9uQ5s2EhQhBPXlaz/ybEP3dGddFEtI8w8rp0V/+mMHmtqB6IIOTdkzBpY953IsTfO96brfsQ8f9Yr7xmELQXj6sumon2EYYQ9uHHirblBdiuW5GJbcFQFPys1UJkbH9mjhPEh4dVlCxZuXRQ0xdNRfucSlF+/fM5ri4E4Zxjrw5C7ODtI7VZiNyfzViIgMJDe31TfgyaMHFdddFktI8wREJf4q5/RDj1wIOVgndCxDB1aUxCw5jSsCbx/M6vyJENEDmPsKwyaPyum3utUV00FW0VSoUz7+LumEs3Zd2KhYjfPb4vsscF8WWqXCqdxu+/1qdpvWajfYRR4465REWFZE6nvJmPtVmInDmT7dy9Mvmt1BgU4w1f7dL0RdPR
PsKoecdcuikrQcir2dosRPaPd2Wus8M+eeNOrhBYP3A5qbpoPtpIGNEj3p/5UEs4lSnlc4VTNVuIjO/JXGcXfJzxHeEUId7RcU13NyPtJIzMI/7NU1tDOJW4eKRUOFWjhUgomZ7dpVLphPinLmj6oilpL2HUvGMu3cKIW7EQOTgWWYiQJnxcmEqPLmmpLpqTNhNGZscc33SzdAsjgoK56V811bz2TwxluxAUHAwUXdJSmol2E0bmEf/yWbwrtuWashKk+TU1F/9W4eaBlxQdDDguaSlNRPsJI7NjnvwVu+B6oylr0QWRLVmIHI6sQEGaYOb9Rjilps1NThsKI3M99u73uE1XMk1Z3RuNLVuISO7BAI3fc21ATZubl7YVxsKkV4OpU6mmrKyDhYhsHgyI8Qau9Wq6u4lpQ2EQpPk4yUrttp3vLdWUlVuyENloQbCRSoe356qaNjc1bSgMqaGOb/O9+RUVed/ZuoWIZFLp4YHLatrc3LShMCjy/Fn8jNzGuwG/e2yk1LltmXtP5YYMkhc3WxAsPNo7rqbNTU77CYOCV4/64j7WcwcwIU+fgSsNLtaUvPdUdkgwPH4+YU0kDj+pumh22lEY4j2roWA7ZwSIPzLeXSoNXquFyNBEfzacUl00O+0nDJEaC7ZzB4Df42zKWg8LkQ1xKM1MGwqj5oLt3DFKNWXdioWIDU+eV0W0CG0oDNf18wKT82rGKNeUtWYLkeHxPu1o3xK0ozCKrp8TEsTdMZdpylqzhYgJuq7vUmG0BO0pjPzr54QE+5Zid9gr2ZQ1WpEev48XTmVMmzWUag3aVBi5188F4p+8uPToZy1X0Q+NpUqFU/EKogh4e6+m9DiqRWhXYWQLtpmk+OdPE8HjnbQQIbB+eELT3S1D+wpjo2B7NWFHj1FkRy1Eoh7Fose0LUMbC2OjYHv+8gELSIMsRFhNLw5C/LNnNX3RQrSTMDb+Krkd9giubCScd8xChGA4qqbNLUV7CIMi
QkHmr5O5Mr7hxC85Fsvyenb7LUSiHsVarddStL4wKCJEcUdvQqK29rKxhjTIQuTFs/I1rzRB8rL2KG4xWlwYFImm/frKyuq6F1gxyVRXd29vdzL3uxuv3gkLEZqg66r2KG41WlkYG/Pe+/Htx6pnRQARIUWQ7OobGh4wLmlAXj6La7pZwUJkbbK0hYiaNrcmrSuMzJz35798X6MxQM7mm6Rlom/fgcFCadRqupm1ECmyEyxrIUIx3tC1LtVFy9GqwsjM958fv/xiwrj+FmBok8PHRiT/OR894qdjm27WZCFCwBu5rOnuFqRFhRG5FSy8mQ8SZSxowED2nNpbLI1aTDcrWYhMzTvMabVHcavSksKIZPH95RyTZT8/IRLgwJn+/LPWaMc8VcOtwtCeOod8R7bo5zstRAjxT17U9EVL0orCIChYff7JJqVSPESI+OmTJ01xw+JfU1/jukQ5LEQ2EiVSbCFCiH9eTZtblNYTRuS18ebFeqqiLKKXwwZDF4byJmhmx/wirktUpilrdgEiSPNz9WBGGctTORYiatrc0rScMAgKlmfmkybGxVY/cfJ00aJRk+kmTWhPns0k+yLLwwfrp84ZgrAmfJq1ECEsLh3Q9EWr0mrCIAh5/8SPNaEJ8YfH8hN0tZpuEuIPjQ5Gp2IUvJ9hwtsz0Zu5p/jhcfTRaILUlT2qi5alxYRBEOHjt0kTPwRKnj+WtwenwBr79HUNNa9+4swJQxEaPn2VAE2m6b1kLURkw7RZddGitJQwCLFm5dH3GmwGcw35c75Wk+kmwWD43LCILM0spISgCXnqLAhKpnUS1LS5xWklYUQh/cP4ZvzRm4ur8aL9ymRsoREIsP9o6tO7TEhHiL9vvMcCGVMru+eK9ihuaVpIGAQFH6cY228883ZHNR4h1oRP3sR2iSLENybIvo+A3zO2LxNO/XzYe1WrWFub1hEGsRUX88wIwZGLReFUZLoZ0yUqc6k9Z6ANizahIDCa7m5x
WkYYBAUvntbsYh6Nke1vlB9OLU7GthApevlm03tRc9rWp2WEIaR5PrslXeT1N8o/t63BQqR48KjpvWzWDCqtS8sIgzQvn2xRF+KuxiMIefskbs2rY3ATmDPHEuo12Aa0iDAIa95Nbl0X7mo8goIfU1uygY4GMoH8riac7UBrCIMg5u4m6pIuI+CnLh4uToPXYCFSOLQJUteGNIhqB1pCGASx/FdYr3yZqxqvRguR/HGN33ttl26724KWEIZQwn9+ppz5C0KkhgOlomq8Wi1EckY13uC1Hk13twetIAyKYOZVl7umGmLFxJWGqxqvVguRzSG1R3Eb0QrCEGLuTtL9DQlMt6yF8VPXjobeNVqIZN6L9YPao7h9aAFhUCT8c8XVzp6Q4MCJfln+8DGMfxNQvH0FDb1rtRCJRjs+pr1Y24cWEIYQz592uZ/iwdkzIiLyc3auBlNav2t8pDicqsJ0s3gs8U+f17ReG9H8wqDI+v9C9747ODKRMSOQt8/iXx93NPSuyUKEYHjhpOqinWh+YQgx+zztnqf2P7sEjErpVmbmannQFzb0rsJ0s3gYK+OHVRdthdn6EI2FFP9jwj3laJIiBECI7btxzloTS+egpL/+NW+Em88HEGL3/bZvvepnBk1orh22qou2oumFAcrX1YR7jsL/EtmZQ8RQztzo9ozEkQbEptfvvADylCGG3dfPhdawmrFo/K6bambebjR9KEXB3a9J97dA3BjKZNSiffP05xrCKe/geNoVTq1WcTpFwBu8qlWsbUfzCwPr/wtQ6ns2dX1wY05X1azCNQi8/ku7HadT058rnnQRWN+v5rRtSPMLQ+bdyT0REcImN01qCArmp6p50Of/BBOYi0eLHdnk1TObLDtW1HNS0xdtSNMLw5oXT9MlPyRhMZY9EIqczKe+xPeKYnDyQtG5reDHdNnKPppQLmhvvbak2YVBkcn3qTLfB8PT5zZK8qI5+uxF/HBKvJFL+W0sosq+2Tcm
UWLRIOB3T+xVXbQlzS8M/P0tWe4FEP/A5uaZoODrVFyLHQJe/5WB/LMlgpAvT1bciwYh3sh4jx5HtSdNLwzwj6VE+VfA658YygunVqfmYodTJkhO7C9ShmB99j2KdxoEfHPqjG4v2pWmF4bYP1YrJFuYZxgVOZnPvozvZE57sWDDEP2/L7NLyaLMoQ0LLdSVdqIdhFFoGEVQ8Hk67t0pQvwz5wrmOkGB//qNl9PPDGTIXcePGNVF+9L0wqgYSkWvyjOMIihYmfwWM9lHiHdirFAZIgJZffdl1SLTFZZIDx3Yn1DvqHam6YUh+Hc+WcXL8gyjCCHiO5kTWD9ySQrWgaiYKfz+Y3Hdp5hkd//AYLeod1R7s1PC2Gw9XPF1M2/SVXxIgsHRi8m8cOrjTLw+GkJg/fDlQmVkVg0RCa2YRPbjqyzamMoP4zrD6I+NflzRDCw9xWCxq6pxQaTeLY0PMFo0QJCHdk3+SMV5roPS9cFcKhQThEIhJJGQ6D9UFe3Otq4YFBECri+XnGjE4l9VtxQLkhcPb4ZTzDSriLtmnL5g4fg8m78pFUX7s33CyE7/cO3Xr1+eH1qYZLq7t68nUU4bFP61WHH3nXktGBy/kNgwjIrakj0OY3lFEeJPHNV9daezTcLYmPj+4o+fK2sBMyqgCJLdg3v2dOcE8gVY83w2XWVKghB/aKI/73RqcfJnrFuFBOW3AdVFh7MtwsjM+bWFuR9rFgZAtnG8kAyle8+hvaU8wilr/6s6VUfAT48ezEuDBzPvY4VTRDB0CxowdTbbIIzouJMLH+fXJCdNlveSALuPHEy6Vw1i5nW1S0Z0q/DEeWNNtMGvxcmcZn38uC4ZnU3DhRHN9eDzu582WW6uhXbXsSMJ116DpVxCSvxAiB+1F94Mp35MLsUKp2zX7yldMjqaRguDoCD88GbJVNpAIwwHTh6CI54i3k5Vv2REhlFj+/PCKX/6Y4xwisa7cEqXjI6mscKIoqhPL38m
Eqx0PYNAYPecHS7aalBE7s6lYlwJLPDfjJzMnzJGOGV7fze6YnQyDRUGQcHS7Fckq4pjCAnM4TPdLM48r/3px7EbIMTbN9GTF059m4rjZB7c2KvC6GQaKAyCNHz5MkhWfZePEL/nzFEpLhiK2TaGgN89NpIXTsWxEIF3bJyqjA6mccKIlouZhaSJcyAEhOHI+V0FZRGw5vVMvLuym/6bm+HUi+dVO5nbnv9qLNXJNEwYBCHvnsa8xRc965NnTxQuGjRPn3fFvBCY578Z10LE/jao2+8OplHCIIhwpqYewTQ22Dfal7toEBRMvYmrDHi943sLLES+VrfwwLt0mE1v06g0jMYIgxBrVh9+r61vFwE/ff5IbiEQQZHJd/GUITShnDmdHYcg+Lw6CxF4py7oitHBNEQYBGm+PVyLG0ZtDmBscPhirm9mjcqA+AfGuvItRKar+lz+wau6++5gGiEMgjSfJllLy67sEPD6x/bkhFMEBdOvY5p/EPD6x4fzwqlfk9VYiAR7b6owOpjE/637kARp3kyarfgcg0yuf8LwZpM8ECIjMh+vWhVkcv1jYggb5UtimDrEBUlUGsV2H9FLIR1M/feXBMW8nN5iL3nAJsyTu2uwG4saCOG50ZCxFjnAJvD4gQ8bXXIHQTl/NelX7BegouhoGhBKkebF0xqbAueNk3+qtGGLMxkm49uZ75rYnRdOVbYQCUauayjVwdRfGKR59bgOupAoSXd281QpmtM/H8ZtUk8pdGSzxj5+U/4z+sfG9VSqg6l3KEWheV8nXQisSTy9t54Jg0RAGDt4O0YbsGgY2IRMPwo2wylDjJUPyiB9UlVDJaU9qfOKQRDzd0zdKqYLTpUyuYinr2IaRjkd2b4+LNcHKbyxRyOpDqa+wiCIlb+COvbdopgA507mhVOCT9Nxr5oUObKR5tu9sOQnten/pjWU6mDqG0qBEj70Kh6Fxhlx41SJuYdTB2/v9uKHU5ycyoZTIsYOX0PJ
aMoOVuPyprQtdRUGKXj6PU5JURWASH/862c2dgIhdtetY368c1sBkXr7z9JG72LQ2OFzQalwiQdqzdorbUE9hUEIvr4pE4Ew58/qAW169Y+P2b0wRAwT45cQVtdveHMcSf/8+wNAISOvwkPdpRaMvn26w+ho6ikMUPzHpRNnFNjADxivFbeIQMTu6s/7QSCP3N7lmXjhlNikffjIi1LgZRYEIjycUmF0NHUUBkXwfKXkBoOgnx45PAyPiPWkpxhvz60ByfH2BCF24PYRr4Zw6v2fXwAKhcSHNeeHhe0+ytgrm9JO1PNUirL8Z+kwChanjnaJLL/9EKPYNXKTPXQpUWiaWYthlIhQTGgPnY7Wn8+P3BZvahKi1FEYFDz8UMrmhrCpK8PRgdDi88+JRLXzmRDv+Jij111NhlHRgH760KF+rL1/7WwsSYT9/zF6Waqzqaswlv4sFZkRNLcGMqKBfJj9VeV8dvb/yo4Z1zAq8z7YINGDda9Ugj64sU8XjA6nfsKgYPpNaV80f/xYlGgmKPj1+HNV85lgeOFkqeZFNRhGZd4HWgHcbYqNd2KUumB0OHXcfGP9S7LkXLe9BzPREAixPdfGEFY+niLISydtqaZeIMgTN3tjnk4JxIoxcN6eJYLBcxSoLjqb+gmD/LpmSs5PprO9myBiyOO3dlVMXtNYXD1cpsU8CLHDtw/ETINnloMSi1BiItn0rQmVRlM3YRD4UiY4Mqtrm3EbCLGDtyslr2mC1I2RMrrIiKzr2nlrTV2mMiHh+IC2jVHqt2JgvUzjI8J7AWZ1ABHD5PhE2eQ1jd97a8hWOB8CQZ6+3uXFzhs6Pya8cwdtfS7NK61MHUOpH+tlekxK6t1bs6mMaD4fvdVfcntAGm/wVn+Zm+G5y8/e30ZiFmk4RwTWT53O9PNWOpp6CYOUn+Wes5TkzIcCZYgd/K1U8pow3r6b3SylC2b+J5nlp/v6uXCr4RSB9WMXCd1gKPVbMYClchMK
FDP5duNqq8hGOHVpTFzhFIH1Q9dTJYN9gpGxwUZlH+XstXRlh4NyEFg/Nq597RWReoZSdq3sfAKRmHqG3AoIEOTxW33F4RQh3skrKKcL4PVq1kIEhNiR3/ZsJZwiZP3EhKguFJH6JfgI/3/rpsJLxD8ylsjdNRCk8WY+FqSgCfHPni397CYITr3pz7EQoYDgsxemVpc3QvzT53W9UCLqJowqGuUR8IYv9eadvxKEvJplriUOwXD0eHldBA8/dxVZiAi+zNToC0rQXjihulAy1G/F+FW56TDF+N0Te/OmX9TtaHJl8+4UYeXSwdLpC4JYv/8tbSH+gfFNg9vorsn0l5guntGYJkhMHFBdKBvUTxhr/6+KIIYm5LlTuT7mmW5HU182wimaIHllbzldWLN6byllQcDrnxgqCKdePbfVdTbLHRJe/+XBsqlEpbOonzC8P9ar2MkT4h8cSxeHUy+eRfb8NEHX1d3WlHjsE2LN4r1fUWE585zUMovG95mfMZsvQbz9E10lf6bSgdRPGPbPpUodi6MXFjhFSWY+z03/SpFi/P5rfSXTegRpFu4HG1sSgsHR0USuMmjCZ6+l+kWDQMhTZ6H3QJQc6rf5xt2vyepeaQKcP1EcTv2amksJvKFrXeWOaWk+P8pJ+xHwhi71ba5ABCELjxdTUp31LCF+3+g+3V4oedRNGMTzZ1VaMREMDo+mcsOpzGnrSxOMXEmWT+u9nckzOqQYv2tiX4H1c/DydVjN8RSB0B660KW6UPKp2/UHyvydqlYMKfIfz3yNgq+TeydMeV08ny3cQNCEvJhzuhv918/ZuUSigjQI0O87d1AIdTZX8qifMOD9z6s2j04xgblwrDCcEqx1obwuHr8q3lgT4p+4mPPGaJ5/fLFUVhqEiJ88ejqty4VSRB1XDDz8kKr+5WBw9GIyP5wSgZS9BmIn37u68BFYP3Ap92ZVFE+9fbuaKK1VMDAjpwcyP1dRcqlnzffc3WpjKYnC
qcGJgfxwSqR8uvvBV7eHAgFv8GqvNfnKEO/9+2Uk3JdubZjcd3xYdLlQXNRTGPbP5WoObLOvN0Hi4hGp7piUINbuf0+Xsj2g8XuuDlqT9w6BBF8/fveRyL9KDlrLnv2HB7P31hUln3ra5+DNdDrOFT6CwfELiWoSzoQ1K/eWy/hFOxLmmRhpZW5+0bNiAIFQSNJ07d6/N62yUEpSzxVDwj9+xWqNQYg/NNFfMZohSPPj/nrZ5nuElcsH8lW2MfPXlxaXfq0HliImke4dGBxIi8pCKUNdLTrx8UGsJUMI+KnRQxWUQZBm7mFQoSklQTtx2ObXpTL6KSIiQRBYIplMQVQVSgXq6kQocu9LPGUIwfDEeVPunhJBmo+TUnExIhheKlRGRgPEpgyi/buqQilDXeubKWt/eTH7jBHiD0/0lb1lLnj9uJquewTtpUPOi1b5f00VhVKB+oZSxPydRMw7qgT89NiBMjacgmfPqrsvS9Be3W/r2ANQ6VDqu2LAmneTsXsZ04T21Dk472UQFJl5XW3xEUHc3K0XZZWtUu92xjSvZ+IrA+LvHe91hFMEEU5+6IpxiTzs/q1LYyVli9TbQ4k0b2biduEWAn732IgjnCL8B3NxWmDQ+HtuQLcRytao94oB0nyYqnyCVPRGE/L0maJwiuL/s9hVyWWhYKT182c0mFK2Rn37fAsI2MPXEmFcU0BYk3h2dy3rFJUlcSjpx+rOCqZfLGqRqrI16m5HSZDm54PVVMxmLkLA6x3fWxBOEfJtajlWOzEaf/81ra9QtkQDfFoJa349/Ba3N14UTuU6RcmGhcj055j7+fD2bhWGshUaYWBMEOHU+/j+ToT4B8a6SluIVDmM8Y5O6JKhbIWGOHsThDx/FvtwSgh4fRMOC5H5qdU4K5BN/zetuwxlCzTG8p6g4NN0ELdrpAhNgHMni8OptamvccKp4Po+XTGULdCgXhAEaRYfLdaw0YD4h0bTxRYiz19UH07BO32O
2v5FqZ1GNUkhxBp/6lPsLHgZC5Hp6g2bg303dJOhbIHGdQ+qYdeceaMUGG9KZgVanZqrdkMf9v+uNwmVLVDnBF8Oma6R8dscATYh04982M3b4qAY9t48E1TZTgxB0LC/mNIJNE4YUZujfbdraHMEIv3+7595jclAUM5frTINjjBs3F9M6QAa2oiRAsLOvkqYWsKpxIWjxeHUyqPv1WzoaX7v1VBKqZ0GrhiZxzwuXEnUFE5xciooDKds361jXjVq1iMpZUs0unUvQcHy5PdaTqfE3z2xq/B0CvL6CSpurG3697SeSim109AVQzLXbftvnfAZf6Mh6Z9/f0DORiPa0J+4lqx8eTeRVFkoW6DRwhAIDROjl00YO5wSm7SPZgiLnHAKYkdu9fgVlMFUQrvYK1ug4cLIPOYP3x6oam9Q+M7k63+WDXNOp0SM3XVroIIy2KO6ULbCNggjeszvun2stnDq+9+fCsIpw54bg365scC+mMuTouSxHcIQiBgmxicQxqrFExGITQUPnggsmBNOsetaX1hGGcSAnkspW2FbhJEJp47e6vdM7EXDmuTLf1ZNTs0rCNs9gTKnTkwPqCyUrbBNwojCqcHbR7yawqlvf33NS4MTHNpX5tJHuKtbIyllK2yXMKJwKnVpTGoKp/x7T5iT7API/pLZdIJ71Q1B2RLbJoxMOHX8Zl9N4VTi5d+LRpjZaZCC1ZLnUrCp/brDULbENgojCqeGbh+q5dxW0j/+fimgCEUImsWvpbo3UcI9fRpJKVui0VdCCiAIeTXLZNxbhUIw2HN+d8bU36z9u5IoGS0FN/fofRBlS2yzMKK7U98mV2qpeYWfOHyyV0REfjxaSZZsGxAM3xL16FS2xHYLo1anqOit4ncdHOmT1c8fbOn1QoKbe3XrrWyNbRfGFmpehYANTEp8myzpzEPjHbxKXTCUrbEDwqjJKSr7VpACKbPc0PynV2WhbJHtPJXaAITYvb+NxK95FYgVQEo7
gBDB2b4dkbvSVuzMFIqqj57FcIqqdmDj7b8mGkgpW2Wnnq2xnaKqHNV2aT8lpQ7sWNBBkObX5HwNp1Nlx7w5rE1jlK2zc9F4ZLw5+9LULZwixL90RHu2KnVgJ7epBAWfZ9brFE4RWD9/xkIjKWXr7Oj5TeQUNfmtLuEUgfVTF63eHlTqwc4ebFJgjX36ug7hFIH1k6OOvq+KUgM7feIfddKY8bYaThHinbqoulDqxE4LI1LGynTVPualRhH/7FnVhVIvdlwYQhEBn79ksvZFg6C9eFx1odSNnRdGZtFYmFmqeQ9OEyQn9qsulPrRDMKITqf82bcmUcuiQcDrvzKQ1+tVUbZGUwgjc3fqy5OVGqs0DoynrVH/A6V+NIcwMuGUN/teYu40CAQ4c1r0HohSV5pFGJlFY+7pYtLEkAYh/sDosG4vlDrTNMLILBrBq9dBstqgiEAgx84ldXuh1JsmEkZ0cCvLzz6jqniKQBgOndujYZRSf5pJGJlFQ74+/5GoeD5FwAY9J48ZDaOUBtBcwshIw354vZRIsHRERQjCsPvI8a7MMqMo9aXZhJGZ6MGHt0smUfLDgaHtPXS0R3S5UBpD0wljI54KPr//YRMurwYwtInBQwfSKgulYTShMDakIfOf5tdoDLIt+CAkLRP9e/fvFg2ilAbSlMLI2P1D1r8t/PgVbJjlUATJrl1DQwPYeIGiNIYmFUZWGmJ/raz88nxLJFLp7r7enkTONxWlQTStMKTU9I/OcVUVSkNpZmFIRhtZ38HoP1QTSuNpcmFEbLYy3ulPonQKLSEMRdludsLUWVGaHhWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWG
ojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKAxWGojhQYSiKg/8fAqku5u3SMCkAAAAldEVYdGRhdGU6Y3JlYXRlADIwMjItMTEtMDlUMDA6NDU6MDYrMDA6MDB4EpdOAAAAJXRFWHRkYXRlOm1vZGlmeQAyMDIyLTExLTA5VDAwOjQ1OjA2KzAwOjAwCU8v8gAAAABJRU5ErkJggg==</ImageData>
</EmbeddedImage>
</EmbeddedImages> </EmbeddedImages>
<Language>es-MX</Language> <Language>es-MX</Language>
<ConsumeContainerWhitespace>true</ConsumeContainerWhitespace> <ConsumeContainerWhitespace>true</ConsumeContainerWhitespace>

4
Inicio.aspx.vb
View File

@@ -152,10 +152,6 @@ Partial Class Inicio
Response.Redirect("/PortalProveedor/PortalProveedor.aspx") Response.Redirect("/PortalProveedor/PortalProveedor.aspx")
End If End If
If UsuarioActual.CveEmpresa = 66 Then
LtlTitulo.Text = "Sistema Integral de Información Gluyas"
End If
If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaContabilidad Then If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaContabilidad Then
Dim ObjPolizas As New ClsContPAQi(UsuarioActual.Empresa) Dim ObjPolizas As New ClsContPAQi(UsuarioActual.Empresa)
If ObjPolizas.GetPolizasCuadre() And ObjPolizas.DtResultados.Rows.Count > 0 Then If ObjPolizas.GetPolizasCuadre() And ObjPolizas.DtResultados.Rows.Count > 0 Then

3
Inventarios/Kardex.aspx
View File

@@ -164,13 +164,12 @@
</div> </div>
<div class="titlefiltros caption "> <div class="titlefiltros caption ">
<div class="row" style="padding-top: 10px; position: relative;"> <div class="row" style="padding-top: 10px; position: relative;">
<asp:Label runat="server" ID="LblPS" CssClass="col-md-1 truncate" Style="max-width: 80px;">Producto:</asp:Label> <asp:Label runat="server" ID="LblPS" CssClass="col-md-1 truncate" Style="max-width: 80px;">Producto:</asp:Label>
<div class="col-md-2 " style="min-width: 250px; max-width: 300px;"> <div class="col-md-2 " style="min-width: 250px; max-width: 300px;">
<ADS:Dropdownlost ID="ddlProducto2" runat="server" AutoPostBack="False" DataTextField="PSCodigo" IncluyeTodos="false" DataValueField="CvePS" CssClassDdl="select2me" CssStyle="width: 250px; "></ADS:Dropdownlost> <ADS:Dropdownlost ID="ddlProducto2" runat="server" AutoPostBack="False" DataTextField="PSCodigo" IncluyeTodos="false" DataValueField="CvePS" CssClassDdl="select2me" CssStyle="width: 250px; "></ADS:Dropdownlost>
</div> </div>
<label class="col-md-1 truncate" style="max-width: 80px;">Almacén:</label> <label class="col-md-1 truncate" style="max-width: 80px;" id="lblAlm" runat="server">Almacén:</label>
<div class="col-md-2"> <div class="col-md-2">
<%--<asp:DropDownList ID="ddlAlmacen" runat="server" CssClass="select2me " Style="width: 175px !important;" DataTextField="Almacen" DataValueField="CveAlmacen"></asp:DropDownList>--%> <%--<asp:DropDownList ID="ddlAlmacen" runat="server" CssClass="select2me " Style="width: 175px !important;" DataTextField="Almacen" DataValueField="CveAlmacen"></asp:DropDownList>--%>
<asp:ListBox ID="ddlAlmacen" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" CssClass="ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server" DataTextField="Almacen" DataValueField="CveAlmacen"></asp:ListBox> <asp:ListBox ID="ddlAlmacen" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" CssClass="ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server" DataTextField="Almacen" DataValueField="CveAlmacen"></asp:ListBox>

2
Inventarios/Kardex.aspx.vb
View File

@@ -54,6 +54,7 @@ Partial Class Inventarios_Kardex
If UsuarioActual.CveUsuario = 100 Then If UsuarioActual.CveUsuario = 100 Then
LblPS.ToolTip = ddlProducto2.SelectedValue LblPS.ToolTip = ddlProducto2.SelectedValue
lblAlm.InnerText = ddlProducto2.SelectedValue
End If End If
End If End If
@@ -180,6 +181,7 @@ Partial Class Inventarios_Kardex
If UsuarioActual.CveUsuario = 100 Then If UsuarioActual.CveUsuario = 100 Then
LblPS.ToolTip = ddlProducto2.SelectedValue LblPS.ToolTip = ddlProducto2.SelectedValue
lblAlm.InnerText = ddlProducto2.SelectedValue
End If End If
TxtSerie.Text = "" TxtSerie.Text = ""

11
Inventarios/KardexAlmacenHorizontal.aspx.vb
View File

@@ -39,11 +39,12 @@ Partial Class Inventarios_KardexAlmacen
CargaFuncionalidad105() CargaFuncionalidad105()
CargaPS() CargaPS()
Using ObjPS As New ClsProductosServicios 'Using ObjPS As New ClsProductosServicios
If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then ' If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
DdlMarca.DataSource = ObjPS.DtResultados.Copy().FiltraParametros("", Orderby:="Marca") ' DdlMarca.DataSource = ObjPS.DtResultados.Copy().FiltraParametros("", Orderby:="Marca")
End If ' End If
End Using 'End Using
DdlMarca.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
DdlMarca.DataBind() DdlMarca.DataBind()
DdlMarca.Items.Insert(0, New ListItem("Todos", "-1")) DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))

7
Inventarios/RecepcionAlmacen.aspx.vb
View File

@@ -4350,8 +4350,6 @@ Partial Class Inventarios_RecepcionAlmacen
TipoCambio = 0 TipoCambio = 0
TipoMovimiento = 1 TipoMovimiento = 1
If ObjInventario.RecepcionAlmacenOCGet(CveOC, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then If ObjInventario.RecepcionAlmacenOCGet(CveOC, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
DtDatosDetalle = Nothing DtDatosDetalle = Nothing
CreaDtDetalle() CreaDtDetalle()
@@ -4359,7 +4357,10 @@ Partial Class Inventarios_RecepcionAlmacen
CreaDtLoteDetalle() CreaDtLoteDetalle()
CreaDTInv(ObjInventario.DtResultados.FiltraParametros("CantidadCompra = 0")) CreaDTInv(ObjInventario.DtResultados.FiltraParametros("CantidadCompra = 0"))
BtnGuardar.Visible = True BtnGuardar.Visible = True
'cuando están todos los detalles de la compra, nos indica que se va a recibir la totalidad de la compra
If DtDatosDetalle.Rows.Count = DtDatosDetalle.Rows(0)("NumDetalles").ToString.ToEntero Then
RecibidaCompleta = True
End If
''MONEDA DIFERENTE ''MONEDA DIFERENTE
If CveMoneda <> 1 Then If CveMoneda <> 1 Then

39
Inventarios/RepEntregaAlmacenRuta.aspx
View File

@@ -104,48 +104,43 @@
AutoGenerateColumns="False" EmptyDataText="No se encontraron Registros con los filtros especificados" CssClass="table table-striped table-advance table-hover Widthall mysmallbtn ScrollAD" data-sort="true" GridLines="None" AutoGenerateColumns="False" EmptyDataText="No se encontraron Registros con los filtros especificados" CssClass="table table-striped table-advance table-hover Widthall mysmallbtn ScrollAD" data-sort="true" GridLines="None"
EmptyDataRowStyle-HorizontalAlign="Center" OnRowDataBound="GVDatos_RowDataBound"> EmptyDataRowStyle-HorizontalAlign="Center" OnRowDataBound="GVDatos_RowDataBound">
<Columns> <Columns>
<asp:TemplateField HeaderStyle-HorizontalAlign="Left" HeaderText="Tipo">
<asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" HeaderText="Tipo">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LtTipo" runat="server" Text='<%# Eval("TipoDescripcion") %>'></asp:Label> <asp:Label ID="LtTipo" runat="server" Text='<%# Eval("TipoDescripcion") %>'></asp:Label>
</ItemTemplate> </ItemTemplate>
<HeaderStyle HorizontalAlign="Left" /> <HeaderStyle HorizontalAlign="Left" />
<ItemStyle HorizontalAlign="Left" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" HeaderText="CP"> <asp:TemplateField HeaderStyle-HorizontalAlign="Left" HeaderText="CP">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtCP" runat="server" Text='<%# Eval("AplicaCP").ToString()=="True"?"Si":"No" %>'></asp:Literal> <asp:Literal ID="LtCP" runat="server" Text='<%# Eval("AplicaCP").ToString()=="True"?"Si":"No" %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
<HeaderStyle HorizontalAlign="Left" /> <HeaderStyle HorizontalAlign="Left" />
<ItemStyle HorizontalAlign="Left" />
</asp:TemplateField> </asp:TemplateField>
<asp:BoundField DataField="SubProyecto" HeaderText="Sucursal"> <asp:BoundField DataField="SubProyecto" HeaderText="Sucursal">
</asp:BoundField> </asp:BoundField>
<asp:BoundField DataField="SerieFolio" HeaderText="Folio" ItemStyle-HorizontalAlign="Left" > <asp:BoundField DataField="SerieFolio" HeaderText="Folio" >
<ItemStyle HorizontalAlign="Left" />
</asp:BoundField> </asp:BoundField>
<asp:BoundField DataField="Nombre" HeaderText="Cliente" ItemStyle-HorizontalAlign="Left" >
<ItemStyle HorizontalAlign="Left" />
</asp:BoundField>
<asp:HyperLinkField DataTextField="FolioAlmacen" HeaderText="Folio Alm" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" DataNavigateUrlFields="CveMovimiento" ControlStyle-CssClass="Texto" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="Chofer" HeaderText="Operador" ItemStyle-HorizontalAlign="Left" >
<ItemStyle HorizontalAlign="Left" />
</asp:BoundField>
<asp:BoundField DataField="Unidad" HeaderText="Unidad" ItemStyle-HorizontalAlign="Left" >
<ItemStyle HorizontalAlign="Left" />
</asp:BoundField>
<asp:BoundField DataField="EstatusStr" HeaderText="Estatus" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Left" >
<ItemStyle HorizontalAlign="Left" Width="10%" /> <asp:BoundField DataField="Nombre" HeaderText="Cliente" >
</asp:BoundField>
<asp:BoundField DataField="EnvioDireccionOrigen" HeaderText="Dirección" >
</asp:BoundField>
<asp:HyperLinkField DataTextField="FolioAlmacen" HeaderText="Folio Alm" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" DataNavigateUrlFields="CveMovimiento" ControlStyle-CssClass="Texto" />
<asp:BoundField DataField="Chofer" HeaderText="Operador" >
</asp:BoundField>
<asp:BoundField DataField="Unidad" HeaderText="Unidad" >
</asp:BoundField>
<asp:BoundField DataField="EstatusStr" HeaderText="Estatus" >
</asp:BoundField> </asp:BoundField>
<asp:BoundField DataField="FechaEntrega" HeaderText="Fecha Entrega" ItemStyle-Width="4%" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-HorizontalAlign="Center" > <asp:BoundField DataField="FechaEntrega" HeaderText="Fecha Entrega" ItemStyle-Width="4%" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-HorizontalAlign="Center" >
<ItemStyle HorizontalAlign="Center" Width="4%" /> <ItemStyle HorizontalAlign="Center" Width="4%" />
</asp:BoundField> </asp:BoundField>
<asp:BoundField DataField="FolioReferencia" HeaderText="Folio Ref" >
<asp:TemplateField ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" HeaderText="Opciones"> </asp:BoundField>
<asp:TemplateField ItemStyle-Width="75px" HeaderStyle-HorizontalAlign="Left" HeaderText="Opciones">
<ItemTemplate> <ItemTemplate>
<asp:LinkButton ID="LnkEditar" runat="server" OnClick="imgEditar_Click" AlternateText="Editar" ToolTip="Actualizar" CausesValidation="False" CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-pencil'></i>" /> <asp:LinkButton ID="LnkEditar" runat="server" OnClick="imgEditar_Click" AlternateText="Editar" ToolTip="Actualizar" CausesValidation="False" CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-pencil'></i>" />
<asp:LinkButton ID="LnkTimbrar" runat="server" OnClick="LnkTimbrar_Click" AlternateText="Timbrar" ToolTip="Timbrar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-external-link'></i>" /> <asp:LinkButton ID="LnkTimbrar" runat="server" OnClick="LnkTimbrar_Click" AlternateText="Timbrar" ToolTip="Timbrar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-external-link'></i>" />
@@ -156,7 +151,7 @@
<ItemStyle HorizontalAlign="Left" Width="75px" /> <ItemStyle HorizontalAlign="Left" Width="75px" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField ItemStyle-Width="50px" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Center" HeaderText="Direcciones" Visible="false"> <asp:TemplateField ItemStyle-Width="50px" HeaderStyle-HorizontalAlign="Center" HeaderText="Direcciones" Visible="false">
<ItemTemplate> <ItemTemplate>
<asp:LinkButton ID="LnkEditarDirOrigen" Visible="false" runat="server" OnClick="EditDireccionOrigen_Click" AlternateText="Editar" ToolTip="Actualizar dirección Origen" CausesValidation="False" CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-location-arrow'></i>" /> <asp:LinkButton ID="LnkEditarDirOrigen" Visible="false" runat="server" OnClick="EditDireccionOrigen_Click" AlternateText="Editar" ToolTip="Actualizar dirección Origen" CausesValidation="False" CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-location-arrow'></i>" />
<asp:LinkButton ID="LnkEditarDirDestino" Visible="false" runat="server" OnClick="EditDireccionDestino_Click" AlternateText="Editar" ToolTip="Actualizar dirección Destino" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-location-arrow'></i>" /> <asp:LinkButton ID="LnkEditarDirDestino" Visible="false" runat="server" OnClick="EditDireccionDestino_Click" AlternateText="Editar" ToolTip="Actualizar dirección Destino" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-location-arrow'></i>" />

2
Inventarios/RepEntregaAlmacenRuta.aspx.cs
View File

@@ -619,7 +619,7 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
{ {
if (e.Row.RowType == DataControlRowType.DataRow) if (e.Row.RowType == DataControlRowType.DataRow)
{ {
e.Row.Cells[11].Text = ""; e.Row.Cells[13].Text = "";
LinkButton LnkEditar = e.Row.FCLinkButton("LnkEditar"); LinkButton LnkEditar = e.Row.FCLinkButton("LnkEditar");
LinkButton LnkTimbrar = e.Row.FCLinkButton("LnkTimbrar"); LinkButton LnkTimbrar = e.Row.FCLinkButton("LnkTimbrar");
LinkButton LnkCancelaTimbre = e.Row.FCLinkButton("LnkCancelaTimbre"); LinkButton LnkCancelaTimbre = e.Row.FCLinkButton("LnkCancelaTimbre");

41
Sistemas/UsuarioDetalle.aspx
View File

@@ -2563,19 +2563,51 @@
</div> </div>
<div class="actions"> <div class="actions">
<div class="btn-group"> <div class="btn-group">
<asp:LinkButton ID="LnkExportarBitacora" runat="server" CssClass="btn font-red" data-original-title="" title="" Text="<i class='fa fa-file-pdf-o font-red'></i>&nbsp;" OnClick="LnkExportarBitacora_Click"></asp:LinkButton>
</div> </div>
</div> </div>
<div class="tools"> <div class="tools">
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
<a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
</div> </div>
</div> </div>
<div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom "> <div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
<div class="portlet solid grey-cascade portlet-filter" style="">
<div class="portlet-title portlet-filterT smalltitle" style="position: relative;">
<div class="tools">
<asp:Button ID="BtnConsultarBitacora" CssClass="btn btn-primary" runat="server" ValidationGroup="GrpConsultarBitacora" Text="Consultar" OnClick="BtnConsultarBitacora_Click" />
</div>
<div class="titlefiltros caption magindate">
<div class="row">
<div class="col-md-2 truncate">Fecha Inicio: </div>
<div class="col-md-3 col-sm-3">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 95px !important; padding: 0px;">
<asp:TextBox Style="width: 80px !important;" ID="TxtFechaIBitacora" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="ImgFechaI" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
<ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="TxtFechaIBitacora" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CEFechaI" TargetControlID="TxtFechaIBitacora" PopupButtonID="ImgFechaI" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
</div>
<div class="col-md-2 truncate">Fecha Fin: </div>
<div class="col-md-3 col-sm-3">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 95px !important; padding: 0px;">
<asp:TextBox Style="width: 80px !important;" ID="TxtFechaFBitacora" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="ImgFechaF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
<ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="TxtFechaFBitacora" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CEFechaF" TargetControlID="TxtFechaFBitacora" PopupButtonID="ImgFechaF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
</div>
</div>
</div>
</div>
</div>
<div class="text-right"> <div class="text-right">
<input type="text" id="TxtBusqueda4" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda4','{0}')", GVBitacora.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" /> <input type="text" id="TxtBusqueda4" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda4','{0}')", GVBitacora.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda4','{0}')", GVBitacora.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a> <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda4','{0}')", GVBitacora.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div> </div>
<div style="max-height: 300px; overflow-y: auto;"> <div style="padding-top: 20px; max-height: 300px; overflow-y: auto;">
<asp:GridView ID="GVBitacora" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-advance table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None"> <asp:GridView ID="GVBitacora" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-advance table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
<Columns> <Columns>
<asp:BoundField DataField="Modulo" HeaderText="Módulo" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField DataField="Modulo" HeaderText="Módulo" ItemStyle-HorizontalAlign="Left" />
@@ -2592,6 +2624,9 @@
</div> </div>
</div> </div>
</ContentTemplate> </ContentTemplate>
<Triggers>
<asp:PostBackTrigger ControlID="LnkExportarBitacora" />
</Triggers>
</asp:UpdatePanel> </asp:UpdatePanel>
</ContentTemplate> </ContentTemplate>
</ajax:TabPanel> </ajax:TabPanel>

45
Sistemas/UsuarioDetalle.aspx.vb
View File

@@ -3,6 +3,7 @@ Option Strict On
Imports System.Data Imports System.Data
Imports Extensiones Imports Extensiones
Imports Microsoft.Reporting.WebForms
Partial Class Sistemas_UsuarioDetalle Partial Class Sistemas_UsuarioDetalle
Inherits ClsPaginas Inherits ClsPaginas
@@ -419,6 +420,8 @@ Partial Class Sistemas_UsuarioDetalle
Exit Sub Exit Sub
End If End If
TxtFechaIBitacora.Text = Now.AddMonths(-1).ToString("dd/MM/yyyy")
TxtFechaFBitacora.Text = Now.ToString("dd/MM/yyyy")
ViewState("CveUsuario") = PreviousPage.CurrentUsuario ViewState("CveUsuario") = PreviousPage.CurrentUsuario
ViewState("CveRol") = -1 ViewState("CveRol") = -1
@@ -756,7 +759,7 @@ Partial Class Sistemas_UsuarioDetalle
Public Sub CargaBitacora() Public Sub CargaBitacora()
Dim ObjUsuario As New ClsSisUsuarios Dim ObjUsuario As New ClsSisUsuarios
If ObjUsuario.GetBitacora(CveUsuario) Then If ObjUsuario.GetBitacora(CveUsuario, TxtFechaIBitacora.Text.ToDateTime(), TxtFechaFBitacora.Text.ToDateTime()) Then
GVBitacora.DataSource = ObjUsuario.DtResultados GVBitacora.DataSource = ObjUsuario.DtResultados
Else Else
GVBitacora.DataSource = Nothing GVBitacora.DataSource = Nothing
@@ -4959,4 +4962,44 @@ Partial Class Sistemas_UsuarioDetalle
End Sub End Sub
Protected Sub BtnConsultarBitacora_Click(sender As Object, e As EventArgs)
CargaBitacora()
UpSistema.Update()
End Sub
Protected Sub LnkExportarBitacora_Click(sender As Object, e As EventArgs)
Dim DtDatos As DataTable = Nothing
Dim ObjUsuario As New ClsSisUsuarios
If ObjUsuario.GetBitacora(CveUsuario, TxtFechaIBitacora.Text.ToDateTime(), TxtFechaFBitacora.Text.ToDateTime()) Then
DtDatos = ObjUsuario.DtResultados.Copy()
End If
ObjUsuario.Dispose()
Dim StrFiltro As New StringBuilder
If TxtFechaIBitacora.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Inicio </b>: {0}", TxtFechaIBitacora.Text.ToDate.ToShortDateString)
If TxtFechaFBitacora.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Fin </b>: {0}", TxtFechaFBitacora.Text.ToDate.ToShortDateString)
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim FechaI, FechaF As String
FechaI = TxtFechaIBitacora.Text
FechaF = TxtFechaFBitacora.Text
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("FechaInicio", FechaI))
params.Add(New ReportParameter("FechaFin", FechaF))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
If Imagen.Exists Then
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
Else
params.Add(New ReportParameter("LogoPath", ""))
End If
ImprimirPDF("Empresas/Grales/Formatos/BitacoraLogin.rdlc", DtDatos, params, String.Format("BitacoraRegistro-{0}", Now.ToDateTime.ToShortDateString))
End Sub
End Class End Class

18
Ventas/CatClasificaciones.aspx.vb
View File

@@ -225,7 +225,18 @@ Partial Class CatClasificaciones
Private Sub CargaCuentasContables(Optional IdCuentaPadre As Integer = -1) Private Sub CargaCuentasContables(Optional IdCuentaPadre As Integer = -1)
If UsuarioActual.Empresa.TipoContabilizacion = 1 Then If UsuarioActual.Empresa.TipoContabilidad = 1 Then
DdlCuentaGasto.DataValueField = "CveCuenta"
DdlCuentaGasto.DataTextField = "Cuenta"
Dim ObjContabilidad As New ClsContabilidad
If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
DtCuentasContables = ObjContabilidad.DtResultados
'Cuenta, CtaCodigo
DtCuentasContables.Columns("CtaCodigo").ColumnName = "Cuenta"
End If
ObjContabilidad.Dispose()
ElseIf UsuarioActual.Empresa.TipoContabilizacion = 1 Then
Dim ObjEmpresa As New ClsSisEmpresas Dim ObjEmpresa As New ClsSisEmpresas
Dim Empresa As Empresa = Nothing Dim Empresa As Empresa = Nothing
@@ -238,9 +249,8 @@ Partial Class CatClasificaciones
ObjContabilidad.Dispose() ObjContabilidad.Dispose()
End If End If
ObjEmpresa.Dispose() ObjEmpresa.Dispose()
ElseIf UsuarioActual.Empresa.TipoContabilizacion = 2 Then
DdlCuentaGasto.DataValueField = "CveCuenta"
DdlCuentaGasto.DataTextField = "Cuenta"
End If End If

241
Ventas/Clientes.aspx
View File

@@ -308,9 +308,9 @@
</Triggers> </Triggers>
</asp:UpdatePanel> </asp:UpdatePanel>
<asp:UpdatePanel runat="server" ID="UpAcciopnesLineasAdicionales" RenderMode="Inline" > <asp:UpdatePanel runat="server" ID="UpAcciopnesLineasAdicionales" RenderMode="Inline">
<ContentTemplate> <ContentTemplate>
<li> <li>
<asp:LinkButton ID="LnkAgregarLineaAdicional" data-toggle="tooltip" runat="server" Text="<i class='fa fa-plus'></i> Agregar Linea Adicional" Visible="false" OnClick="LnkAgregarLineaAdicional_Click"></asp:LinkButton> <asp:LinkButton ID="LnkAgregarLineaAdicional" data-toggle="tooltip" runat="server" Text="<i class='fa fa-plus'></i> Agregar Linea Adicional" Visible="false" OnClick="LnkAgregarLineaAdicional_Click"></asp:LinkButton>
</li> </li>
</ContentTemplate> </ContentTemplate>
@@ -358,38 +358,38 @@
</div> </div>
<div id="bodydatosclientes" class="portlet-body form"> <div id="bodydatosclientes" class="portlet-body form">
<div class="row"> <div class="row">
<div class="col-md-12"> <div class="col-md-12">
<div runat="server" id="Div3" class="form-group form-md-line-input input-iconright"> <div runat="server" id="Div3" class="form-group form-md-line-input input-iconright">
<asp:RadioButtonList runat="server" ID="RdTipoPersona" RepeatDirection="Horizontal" OnSelectedIndexChanged="RdTipoPersona_SelectedIndexChanged" AutoPostBack="true" CssClass="form-control"> <asp:RadioButtonList runat="server" ID="RdTipoPersona" RepeatDirection="Horizontal" OnSelectedIndexChanged="RdTipoPersona_SelectedIndexChanged" AutoPostBack="true" CssClass="form-control">
<asp:ListItem Value="0">Física</asp:ListItem> <asp:ListItem Value="0">Física</asp:ListItem>
<asp:ListItem Value="1">Moral</asp:ListItem> <asp:ListItem Value="1">Moral</asp:ListItem>
</asp:RadioButtonList> </asp:RadioButtonList>
<label for="<%= RdTipoPersona.ClientID.ToString()%>">Tipo Persona:</label> <label for="<%= RdTipoPersona.ClientID.ToString()%>">Tipo Persona:</label>
<i></i> <i></i>
</div> </div>
</div> </div>
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-12" runat="server" id="DivRazonSocial2"> <div class="col-md-12" runat="server" id="DivRazonSocial2">
<div runat="server" id="DivRazonSocial" class="form-group form-md-line-input input-iconright"> <div runat="server" id="DivRazonSocial" class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtNombre" CssClass="form-control " runat="server" MaxLength="150" onkeyup="fncTxt()" ClientIDMode="Static" ></asp:TextBox> <asp:TextBox ID="TxtNombre" CssClass="form-control " runat="server" MaxLength="150" onkeyup="fncTxt()" ClientIDMode="Static"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVNombre" runat="server" ControlToValidate="TxtNombre" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre del Cliente''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVNombre" runat="server" ControlToValidate="TxtNombre" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre del Cliente''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<label for="<%= TxtNombre.ClientID.ToString()%>">Razón Social:</label> <label for="<%= TxtNombre.ClientID.ToString()%>">Razón Social:</label>
<i></i> <i></i>
</div> </div>
</div> </div>
<div class="col-md-4" id="DVRegimenSociedad" runat="server" visible ="false"> <div class="col-md-4" id="DVRegimenSociedad" runat="server" visible="false">
<div runat="server" class="form-group form-md-line-input input-iconright"> <div runat="server" class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtRegimenSociedad" CssClass="form-control " runat="server" MaxLength="50" onkeyup="fncTxt()" ClientIDMode="Static" ></asp:TextBox> <asp:TextBox ID="TxtRegimenSociedad" CssClass="form-control " runat="server" MaxLength="50" onkeyup="fncTxt()" ClientIDMode="Static"></asp:TextBox>
<%--<asp:RequiredFieldValidator ID="RequiredFieldValidator22" runat="server" ControlToValidate="TxtNombre" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre del Cliente''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>--%> <%--<asp:RequiredFieldValidator ID="RequiredFieldValidator22" runat="server" ControlToValidate="TxtNombre" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre del Cliente''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>--%>
<label for="<%= TxtRegimenSociedad.ClientID.ToString()%>">Regimen Sociedad:</label> <label for="<%= TxtRegimenSociedad.ClientID.ToString()%>">Regimen Sociedad:</label>
<i></i> <i></i>
</div> </div>
</div> </div>
</div> </div>
@@ -424,7 +424,7 @@
<label for="<%= TxtNombreComercial.ClientID.ToString()%>">Nombre Comercial:</label> <label for="<%= TxtNombreComercial.ClientID.ToString()%>">Nombre Comercial:</label>
<i></i> <i></i>
</div> </div>
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtRFC" Style="text-transform: uppercase;" runat="server" CssClass="form-control" MaxLength="13"></asp:TextBox> <asp:TextBox ID="TxtRFC" Style="text-transform: uppercase;" runat="server" CssClass="form-control" MaxLength="13"></asp:TextBox>
<asp:RegularExpressionValidator ID="REVRFC" runat="server" ControlToValidate="TxtRFC" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''RFC''</b> es incorrecto, por favor ingréselo correctamente." ValidationGroup="GrpGuardar" ValidationExpression="^[a-zñA-ZÑ.)(/\\&-]{3,4}(\d{6})((\D|\d){2})((\D|\d){1})$"></asp:RegularExpressionValidator> <asp:RegularExpressionValidator ID="REVRFC" runat="server" ControlToValidate="TxtRFC" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''RFC''</b> es incorrecto, por favor ingréselo correctamente." ValidationGroup="GrpGuardar" ValidationExpression="^[a-zñA-ZÑ.)(/\\&-]{3,4}(\d{6})((\D|\d){2})((\D|\d){1})$"></asp:RegularExpressionValidator>
<ajax:FilteredTextBoxExtender ID="FilteredTextBoxExtender1" TargetControlID="TxtRFC" FilterType="UppercaseLetters, Numbers,LowercaseLetters, Custom" runat="server" ValidChars="&Ñ" InvalidChars="-" /> <ajax:FilteredTextBoxExtender ID="FilteredTextBoxExtender1" TargetControlID="TxtRFC" FilterType="UppercaseLetters, Numbers,LowercaseLetters, Custom" runat="server" ValidChars="&Ñ" InvalidChars="-" />
@@ -481,7 +481,7 @@
</div> </div>
</div> </div>
<div class="row"> <div class="row">
<div class="form-group form-md-line-input input-iconright col-md-6"> <div class="form-group form-md-line-input input-iconright col-md-6">
<asp:DropDownList ID="DdlSATPais" runat="server" CssClass="form-control input-sm select2me" OnSelectedIndexChanged="DdlSATPais_SelectedIndexChanged" AutoPostBack="true"> <asp:DropDownList ID="DdlSATPais" runat="server" CssClass="form-control input-sm select2me" OnSelectedIndexChanged="DdlSATPais_SelectedIndexChanged" AutoPostBack="true">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
@@ -504,7 +504,7 @@
<label for="<%= DdlEstadoSAT.ClientID.ToString()%>">Estado:</label> <label for="<%= DdlEstadoSAT.ClientID.ToString()%>">Estado:</label>
<i></i> <i></i>
</div> </div>
</div> </div>
<div class="form-group form-md-line-input input-iconright" runat="server" visible="False" id="dvZH"> <div class="form-group form-md-line-input input-iconright" runat="server" visible="False" id="dvZH">
@@ -527,11 +527,11 @@
</div> </div>
</div> </div>
<div class="row" id="divRegimen" runat="server" visible="false" > <div class="row" id="divRegimen" runat="server" visible="false">
<div class="col-md-12"> <div class="col-md-12">
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlRegimenFiscal" DataTextField="CodigoRegimenFiscalTexto" Width="100%" DataValueField="CveRegimenFiscal" runat="server" CssClass="form-control input-sm select2me"> <asp:DropDownList ID="DdlRegimenFiscal" DataTextField="CodigoRegimenFiscalTexto" Width="100%" DataValueField="CveRegimenFiscal" runat="server" CssClass="form-control input-sm select2me">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVRegimenFiscal" runat="server" InitialValue="-1" ControlToValidate="DdlRegimenFiscal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Regimen Fiscal''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVRegimenFiscal" runat="server" InitialValue="-1" ControlToValidate="DdlRegimenFiscal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Regimen Fiscal''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
@@ -621,14 +621,14 @@
<div class="row"> <div class="row">
<div class="form-group form-md-line-input input-iconright col-md-6"> <div class="form-group form-md-line-input input-iconright col-md-6">
<asp:TextBox ID="TxtNotificar" CssClass="form-control" runat="server" MaxLength="300"></asp:TextBox> <asp:TextBox ID="TxtNotificar" CssClass="form-control" runat="server" MaxLength="300"></asp:TextBox>
<asp:RegularExpressionValidator ID="REVEnotificar" runat="server" CssClass="help-block errorimput" ValidationExpression="(([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)(\s*;\s*|\s*$))*" ControlToValidate="TxtNotificar" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Notificar A''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardar"></asp:RegularExpressionValidator> <asp:RegularExpressionValidator ID="REVEnotificar" runat="server" CssClass="help-block errorimput" ValidationExpression="(([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)(\s*;\s*|\s*$))*" ControlToValidate="TxtNotificar" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Notificar A''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardar"></asp:RegularExpressionValidator>
<asp:Label AssociatedControlID="TxtNotificar" runat="server" Text="Notificar Facturación a:"></asp:Label> <asp:Label AssociatedControlID="TxtNotificar" runat="server" Text="Notificar Facturación a:"></asp:Label>
<asp:Label AssociatedControlID="" runat="server" Text=""></asp:Label> <asp:Label AssociatedControlID="" runat="server" Text=""></asp:Label>
<i></i> <i></i>
</div> </div>
<div class="form-group form-md-line-input col-md-6"> <div class="form-group form-md-line-input col-md-6">
<asp:TextBox ID="TxtPagina" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox> <asp:TextBox ID="TxtPagina" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
<asp:Label AssociatedControlID="TxtPagina" runat="server" Text="Página:"></asp:Label> <asp:Label AssociatedControlID="TxtPagina" runat="server" Text="Página:"></asp:Label>
</div> </div>
@@ -639,29 +639,29 @@
<label>Enviar factura por Mail: </label> <label>Enviar factura por Mail: </label>
<asp:CheckBox ID="ChkMail" runat="server" CssClass="make-switchsd" data-size="small" Text=" " /> <asp:CheckBox ID="ChkMail" runat="server" CssClass="make-switchsd" data-size="small" Text=" " />
</div> </div>
<div class="form-group col-md-6"> <div class="form-group col-md-6">
<label>Requiere OC para facturar: </label> <label>Requiere OC para facturar: </label>
<asp:CheckBox ID="ChkRequiereOC" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" /> <asp:CheckBox ID="ChkRequiereOC" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" />
</div>
</div> </div>
</div> <div class="row">
<div class="row"> <div class=" col-md-6">
<div class=" col-md-6"> <div class="form-group form-md-line-input input-iconright">
<div class="form-group form-md-line-input input-iconright"> <asp:DropDownList ID="DdlSubProyecto" runat="server" CssClass="form-control select2me" AutoPostBack="true" OnSelectedIndexChanged="DdlSubProyecto_SelectedIndexChanged" DataTextField="SubProyecto" DataValueField="CveSubProyecto" ValidationGroup="GrpGuardar"></asp:DropDownList>
<asp:DropDownList ID="DdlSubProyecto" runat="server" CssClass="form-control select2me" AutoPostBack="true" OnSelectedIndexChanged="DdlSubProyecto_SelectedIndexChanged" DataTextField="SubProyecto" DataValueField="CveSubProyecto" ValidationGroup="GrpGuardar"></asp:DropDownList> <asp:RequiredFieldValidator ID="RFVSubProyecto" runat="server" ControlToValidate="DdlSubProyecto" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''SubProyecto''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<asp:RequiredFieldValidator ID="RFVSubProyecto" runat="server" ControlToValidate="DdlSubProyecto" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''SubProyecto''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <label for="<%= DdlSubProyecto.ClientID.ToString()%>">Sucursal del Cliente: </label>
<label for="<%= DdlSubProyecto.ClientID.ToString()%>">Sucursal del Cliente: </label> <i></i>
<i></i> </div>
</div> </div>
</div> <div class=" col-md-6">
<div class=" col-md-6"> <div class="form-group form-md-line-input input-iconright">
<div class="form-group form-md-line-input input-iconright"> <asp:DropDownList ID="DdlPrecioLista" runat="server" CssClass="form-control select2me" DataTextField="PrecioLista" DataValueField="CvePrecioLista"></asp:DropDownList>
<asp:DropDownList ID="DdlPrecioLista" runat="server" CssClass="form-control select2me" DataTextField="PrecioLista" DataValueField="CvePrecioLista"></asp:DropDownList> <label for="<%= DdlPrecioLista.ClientID.ToString()%>">Precio Lista: </label>
<label for="<%= DdlPrecioLista.ClientID.ToString()%>">Precio Lista: </label> <i></i>
<i></i> </div>
</div> </div>
</div> </div>
</div> <div class="row">
<div class="row">
<div class="form-group form-md-line-input input-iconright col-md-6" id="DivPortletAsignaciones" runat="server"> <div class="form-group form-md-line-input input-iconright col-md-6" id="DivPortletAsignaciones" runat="server">
<asp:DropDownList ID="DdlClasificacion" DataValueField="CveClienteClasificacion" DataTextField="ClienteClasificacion" Width="150px" runat="server" CssClass="form-control select2me"> <asp:DropDownList ID="DdlClasificacion" DataValueField="CveClienteClasificacion" DataTextField="ClienteClasificacion" Width="150px" runat="server" CssClass="form-control select2me">
@@ -682,7 +682,7 @@
<label for="<%= DdlCorporativo.ClientID.ToString()%>">Corporativo:</label> <label for="<%= DdlCorporativo.ClientID.ToString()%>">Corporativo:</label>
</div> </div>
<div class="form-group form-md-line-input input-iconright" id="divCorreoEntregaCompras" runat="server" visible="false"> <div class="form-group form-md-line-input input-iconright" id="divCorreoEntregaCompras" runat="server" visible="false">
<asp:TextBox runat="server" ID="TxtCorreoEntregaCompras" CssClass="form-control" /> <asp:TextBox runat="server" ID="TxtCorreoEntregaCompras" CssClass="form-control" />
<label for="<%= TxtCorreoEntregaCompras.ClientID.ToString()%>">Correo de Entrega de Compras:</label> <label for="<%= TxtCorreoEntregaCompras.ClientID.ToString()%>">Correo de Entrega de Compras:</label>
</div> </div>
@@ -700,7 +700,7 @@
<label for="<%= DdlTipoCliente.ClientID.ToString()%>">Tipo de Cliente:</label> <label for="<%= DdlTipoCliente.ClientID.ToString()%>">Tipo de Cliente:</label>
</div> </div>
<div class="form-group form-md-line-input input-iconright" id="DivRepresentanteLegal" runat="server" visible="false"> <div class="form-group form-md-line-input input-iconright" id="DivRepresentanteLegal" runat="server" visible="false">
<asp:TextBox runat="server" ID="TxtRepresentanteLegal" CssClass="form-control" MaxLength="100" /> <asp:TextBox runat="server" ID="TxtRepresentanteLegal" CssClass="form-control" MaxLength="100" />
<label for="<%= TxtRepresentanteLegal.ClientID.ToString()%>">Representante Legal:</label> <label for="<%= TxtRepresentanteLegal.ClientID.ToString()%>">Representante Legal:</label>
</div> </div>
@@ -713,18 +713,18 @@
<label>Es distribuidor: </label> <label>Es distribuidor: </label>
<asp:CheckBox ID="ChkEsDistribuidor" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" /> <asp:CheckBox ID="ChkEsDistribuidor" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" />
</div> </div>
<div class="col-md-4"> <div class="col-md-4">
<div class="form-group form-md-line-input" runat="server" id="DivCargoUsado" visible="false"> <div class="form-group form-md-line-input" runat="server" id="DivCargoUsado" visible="false">
<label>Cargo Usado:</label> <label>Cargo Usado:</label>
<asp:CheckBox ID="ChkCargoUsado" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" Enabled="true" /> <asp:CheckBox ID="ChkCargoUsado" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" Enabled="true" />
</div> </div>
</div> </div>
<div class="col-md-4"> <div class="col-md-4">
<div class="form-group form-md-line-input" runat="server" id="DivBonificacionUsado" visible="false"> <div class="form-group form-md-line-input" runat="server" id="DivBonificacionUsado" visible="false">
<label>Bonificación Usado:</label> <label>Bonificación Usado:</label>
<asp:CheckBox ID="ChkBonificacionUsado" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" /> <asp:CheckBox ID="ChkBonificacionUsado" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" />
</div> </div>
</div> </div>
</div> </div>
</div> </div>
</div> </div>
@@ -1107,7 +1107,7 @@
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
<label for="<%= DdlUsoCFDI.ClientID.ToString()%>">Uso CFDI:</label> <label for="<%= DdlUsoCFDI.ClientID.ToString()%>">Uso CFDI:</label>
<asp:RequiredFieldValidator ID="RFVUsoCFDI" runat="server" InitialValue="-1" ControlToValidate="DdlUsoCFDI" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''USO CFDI''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVUsoCFDI" runat="server" InitialValue="-1" ControlToValidate="DdlUsoCFDI" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''USO CFDI''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
</div> </div>
@@ -2557,7 +2557,7 @@
<asp:Literal ID="LtlMon" runat="server" Text='<%# Eval("MonedaVenta")%>'></asp:Literal> <asp:Literal ID="LtlMon" runat="server" Text='<%# Eval("MonedaVenta")%>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:BoundField DataField="LineaAdicional" HeaderText="Linea Adicional" /> <asp:BoundField DataField="LineaAdicional" HeaderText="Linea Adicional" />
<asp:TemplateField> <asp:TemplateField>
<HeaderTemplate>Archivos</HeaderTemplate> <HeaderTemplate>Archivos</HeaderTemplate>
<ItemStyle HorizontalAlign="Center" /> <ItemStyle HorizontalAlign="Center" />
@@ -3058,6 +3058,35 @@
</div> </div>
<div class="row" style="padding-bottom: 10px; margin-left: 0px;">
<div class="col-md-6">
<div class="row">
<div class="col-md-4">
<label class="control-label">Calle:</label>
</div>
<div class="col-md-8 form-group form-md-line-input" style="margin: -20px -0px 0px -0px !important;">
<asp:TextBox ID="TxtComExtCalle" CssClass="form-control input-sm" runat="server" Width="100%"></asp:TextBox>
</div>
</div>
</div>
<div class="col-md-6">
<div class="row">
<div class="col-md-2">
<label class="control-label">Num:</label>
</div>
<div class="col-md-4 form-group form-md-line-input" style="margin: -20px -0px 0px -0px !important;">
<asp:TextBox ID="TxtComExtNumero" CssClass="form-control input-sm" runat="server" Width="100%"></asp:TextBox>
</div>
<div class="col-md-2">
<label class="control-label">CP:</label>
</div>
<div class="col-md-4 form-group form-md-line-input" style="margin: -20px -0px 0px -0px !important;">
<asp:TextBox ID="TxtComExtCP" CssClass="form-control input-sm" runat="server" Width="100%"></asp:TextBox>
</div>
</div>
</div>
</div>
<div class="row" style="padding-bottom: 10px; margin-left: 0px;"> <div class="row" style="padding-bottom: 10px; margin-left: 0px;">
<div class="col-md-2"> <div class="col-md-2">
<label class="control-label">Motivo Traslado:</label> <label class="control-label">Motivo Traslado:</label>
@@ -4193,7 +4222,7 @@
<asp:TextBox ID="TxtObservaciones" OnTextChanged="TxtObservaciones_TextChanged" AutoPostBack="true" Width="300" MaxLength="100" runat="server" Text='<%# Eval("Observacion") %>'></asp:TextBox> <asp:TextBox ID="TxtObservaciones" OnTextChanged="TxtObservaciones_TextChanged" AutoPostBack="true" Width="300" MaxLength="100" runat="server" Text='<%# Eval("Observacion") %>'></asp:TextBox>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Vigencia" ItemStyle-Width="115" Visible="false"> <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Vigencia" ItemStyle-Width="115" Visible="false">
<ItemTemplate> <ItemTemplate>
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 115px !important; padding: 0px;"> <div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 115px !important; padding: 0px;">
<asp:TextBox ID="TxtFechaVigencia" CssClass="form-control" Width="100" MaxLength="10" runat="server" Text='<%# Eval("FechaVigencia") %>'></asp:TextBox> <asp:TextBox ID="TxtFechaVigencia" CssClass="form-control" Width="100" MaxLength="10" runat="server" Text='<%# Eval("FechaVigencia") %>'></asp:TextBox>
@@ -4223,12 +4252,12 @@
</asp:GridView> </asp:GridView>
<div style="text-align: center;"> <div style="text-align: center;">
<asp:Button ID="LnkGuardarMaterialidad" OnClick="LnkGuardarMaterialidad_Click" runat="server" Text="Guardar Documentación" CssClass="btn btn-primary btn-sm" /> <asp:Button ID="LnkGuardarMaterialidad" OnClick="LnkGuardarMaterialidad_Click" runat="server" Text="Guardar Documentación" CssClass="btn btn-primary btn-sm" />
</div> </div>
</div>
</div> </div>
</div> </div>
</div> </div>
</div>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
@@ -4489,15 +4518,15 @@
<asp:BoundField DataField="Concepto" HeaderText="Concepto" /> <asp:BoundField DataField="Concepto" HeaderText="Concepto" />
<asp:TemplateField HeaderText="Tamaño" > <asp:TemplateField HeaderText="Tamaño">
<ItemTemplate> <ItemTemplate>
<div style='width:75px;overflow:hidden;text-overflow:ellipsis;white-space:nowrap;' title='<%# Eval("CodigoPS") %>' ><%# Eval("CodigoPS") %></div> <div style='width: 75px; overflow: hidden; text-overflow: ellipsis; white-space: nowrap;' title='<%# Eval("CodigoPS") %>'><%# Eval("CodigoPS") %></div>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:BoundField DataField="Cantidad" HeaderText="Cantidad" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" ControlStyle-BorderWidth="150px" /> <asp:BoundField DataField="Cantidad" HeaderText="Cantidad" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" ControlStyle-BorderWidth="150px" />
<asp:BoundField DataField="Puntos" HeaderText="Puntos" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField DataField="Puntos" HeaderText="Puntos" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataField="AcumPuntos" HeaderText="AcumPuntos" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField DataField="AcumPuntos" HeaderText="AcumPuntos" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataField="ImporteCargo" HeaderText="Imp.Cargo" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" ControlStyle-BorderWidth="150px" /> <asp:BoundField DataField="ImporteCargo" HeaderText="Imp.Cargo" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" ControlStyle-BorderWidth="150px" />
<asp:BoundField DataField="ImporteBonificacion" HeaderText="Imp. Bonificación" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" ControlStyle-BorderWidth="150px" /> <asp:BoundField DataField="ImporteBonificacion" HeaderText="Imp. Bonificación" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" ControlStyle-BorderWidth="150px" />
<asp:BoundField DataField="ImporteCompra" HeaderText="Imp. Compra" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" ControlStyle-BorderWidth="150px" /> <asp:BoundField DataField="ImporteCompra" HeaderText="Imp. Compra" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" ControlStyle-BorderWidth="150px" />
@@ -4505,15 +4534,15 @@
<%-- <asp:BoundField DataField="EstadoCargo" HeaderText="F Cargo" ItemStyle-HorizontalAlign="Center" /> <%-- <asp:BoundField DataField="EstadoCargo" HeaderText="F Cargo" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField DataField="EstadoBonificacion" HeaderText="F Bonificación" ItemStyle-HorizontalAlign="Center" />--%> <asp:BoundField DataField="EstadoBonificacion" HeaderText="F Bonificación" ItemStyle-HorizontalAlign="Center" />--%>
<asp:HyperLinkField DataTextField="SerieFolio" Target="_blank" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" HeaderText="Venta" ControlStyle-Width ="90px" /> <asp:HyperLinkField DataTextField="SerieFolio" Target="_blank" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" HeaderText="Venta" ControlStyle-Width="90px" />
<asp:BoundField DataField="TipoDocumento" HeaderText="Tipo Documento" /> <asp:BoundField DataField="TipoDocumento" HeaderText="Tipo Documento" />
<asp:HyperLinkField DataTextField="SerieFolioBonificacion" Target="_blank" DataNavigateUrlFields="CveVentaBonificacion" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" ItemStyle-HorizontalAlign="Left" HeaderText="V. Bonifi" /> <asp:HyperLinkField DataTextField="SerieFolioBonificacion" Target="_blank" DataNavigateUrlFields="CveVentaBonificacion" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" ItemStyle-HorizontalAlign="Left" HeaderText="V. Bonifi" />
<asp:HyperLinkField DataTextField="Folio" Target="_blank" DataNavigateUrlFields="CveMovimiento" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" ItemStyle-HorizontalAlign="Left" HeaderText="Movto" /> <asp:HyperLinkField DataTextField="Folio" Target="_blank" DataNavigateUrlFields="CveMovimiento" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" ItemStyle-HorizontalAlign="Left" HeaderText="Movto" />
<asp:BoundField DataField="FechaIng" HeaderText="Fecha" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" ControlStyle-BorderWidth="100px" /> <asp:BoundField DataField="FechaIng" HeaderText="Fecha" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" ControlStyle-BorderWidth="100px" />
<asp:TemplateField HeaderText="Usuario" > <asp:TemplateField HeaderText="Usuario">
<ItemTemplate> <ItemTemplate>
<div style='width:100px;overflow:hidden;text-overflow:ellipsis;white-space:nowrap;'><%# Eval("Usuario") %></div> <div style='width: 100px; overflow: hidden; text-overflow: ellipsis; white-space: nowrap;'><%# Eval("Usuario") %></div>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
@@ -4551,7 +4580,7 @@
</ajax:TabPanel> </ajax:TabPanel>
<ajax:TabPanel ID="TabLineasAdicionales" runat="server" HeaderText="Lineas Adicionales" Visible="false"> <ajax:TabPanel ID="TabLineasAdicionales" runat="server" HeaderText="Lineas Adicionales" Visible="false">
<ContentTemplate> <ContentTemplate>
@@ -4581,19 +4610,19 @@
<Columns> <Columns>
<asp:BoundField DataField="LineaAdicional" HeaderText="Linea Adicional" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField DataField="LineaAdicional" HeaderText="Linea Adicional" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="Proveedor" HeaderText="Comercializador" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField DataField="Proveedor" HeaderText="Comercializador" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="Importe" HeaderText="Importe" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField DataField="Importe" HeaderText="Importe" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataField="Abreviatura" HeaderText="Moneda" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField DataField="Abreviatura" HeaderText="Moneda" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataField="FechaVencimiento" HeaderText="F. Vencimiento" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" /> <asp:BoundField DataField="FechaVencimiento" HeaderText="F. Vencimiento" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
<asp:BoundField DataField="Estatus" HeaderText="Estatus" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField DataField="Estatus" HeaderText="Estatus" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="TipoLineaSTR" HeaderText="Tipo Linea" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField DataField="TipoLineaSTR" HeaderText="Tipo Linea" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" />
<asp:TemplateField HeaderText="Opciones"> <asp:TemplateField HeaderText="Opciones">
<ItemTemplate> <ItemTemplate>
<asp:LinkButton ID="LnkEditarLineaAdicional" runat ="server" AlternateText="Editar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" OnClick="LnkEditarLineaAdicional_Click" /> <asp:LinkButton ID="LnkEditarLineaAdicional" runat="server" AlternateText="Editar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" OnClick="LnkEditarLineaAdicional_Click" />
<asp:LinkButton ID="LnkEliminarLineaAdicional" runat ="server" AlternateText="Eliminar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" OnClick="LnkEliminarLineaAdicional_Click" /> <asp:LinkButton ID="LnkEliminarLineaAdicional" runat="server" AlternateText="Eliminar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" OnClick="LnkEliminarLineaAdicional_Click" />
</ItemTemplate> </ItemTemplate>
<ItemStyle Width="10%" /> <ItemStyle Width="10%" />
</asp:TemplateField> </asp:TemplateField>
@@ -4711,7 +4740,7 @@
<i></i> <i></i>
</div> </div>
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtCiudadAval" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox> <asp:TextBox ID="TxtCiudadAval" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator20" runat="server" ControlToValidate="TxtCiudadAval" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Ciudad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RequiredFieldValidator20" runat="server" ControlToValidate="TxtCiudadAval" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Ciudad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
<label for="TxtDireccionAval">Ciudad: </label> <label for="TxtDireccionAval">Ciudad: </label>
@@ -4719,10 +4748,10 @@
</div> </div>
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtTelefonoAval" CssClass="form-control " runat="server" MaxLength="20" CausesValidation="true"></asp:TextBox> <asp:TextBox ID="TxtTelefonoAval" CssClass="form-control " runat="server" MaxLength="20" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator21" runat="server" ControlToValidate="TxtTelefonoAval" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Teléfono''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RequiredFieldValidator21" runat="server" ControlToValidate="TxtTelefonoAval" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Teléfono''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
<ajax:FilteredTextBoxExtender TargetControlID="TxtTelefonoAval" runat="server" FilterType="Custom" ValidChars ="1234567890" /> <ajax:FilteredTextBoxExtender TargetControlID="TxtTelefonoAval" runat="server" FilterType="Custom" ValidChars="1234567890" />
<label for="TxtTelefonoAval">Teléfono: </label> <label for="TxtTelefonoAval">Teléfono: </label>
<i></i> <i></i>
</div> </div>
@@ -4857,8 +4886,8 @@
<i class="fa fa-commenting font-green"></i> <i class="fa fa-commenting font-green"></i>
<span class="caption-subject bold">Agregar</span> <span class="caption-subject bold">Agregar</span>
</div>--%> </div>--%>
<asp:HyperLink ID="ImgAddObs" CssClass="caption-subject bold" data-toggle="modal" data-target="#ModalBitacora" runat="server" Text=" <i class='fa fa-commenting font-green' ></i><span class='caption-subject bold'>Agregar</span>" Style="font-weight: 700 !important;cursor: pointer;" ToolTip="Observaciones"></asp:HyperLink><br /> <asp:HyperLink ID="ImgAddObs" CssClass="caption-subject bold" data-toggle="modal" data-target="#ModalBitacora" runat="server" Text=" <i class='fa fa-commenting font-green' ></i><span class='caption-subject bold'>Agregar</span>" Style="font-weight: 700 !important; cursor: pointer;" ToolTip="Observaciones"></asp:HyperLink><br />
<asp:HyperLink ID="HlEvento" CssClass="thickbox caption-subject bold" runat="server" Text=" <i class='fa fa-calendar-plus-o font-green' ></i>Agendar" Visible="false" Style="font-weight: 700 !important;cursor: pointer;" ToolTip="Agendar"></asp:HyperLink><br /> <asp:HyperLink ID="HlEvento" CssClass="thickbox caption-subject bold" runat="server" Text=" <i class='fa fa-calendar-plus-o font-green' ></i>Agendar" Visible="false" Style="font-weight: 700 !important; cursor: pointer;" ToolTip="Agendar"></asp:HyperLink><br />
<asp:Literal ID="LtlTareaNueva" runat="server"></asp:Literal> <asp:Literal ID="LtlTareaNueva" runat="server"></asp:Literal>
<UserControl:TareaNueva runat="server" ID="TareaNueva" /> <UserControl:TareaNueva runat="server" ID="TareaNueva" />
<script> function OnAddedTareaNueva() { $('.btnupEventoBitacora').click(); }</script> <script> function OnAddedTareaNueva() { $('.btnupEventoBitacora').click(); }</script>
@@ -5365,7 +5394,8 @@
<div class="col-md-6"> <div class="col-md-6">
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlSubProyectoClienteSucursal" ClientIDMode="Static" runat="server" CssClass="form-control select2me" DataValueField="CveSubProyecto" DataTextField="SubProyecto" Width="100%"></asp:DropDownList> <asp:DropDownList ID="DdlSubProyectoClienteSucursal" ClientIDMode="Static" runat="server" CssClass="form-control select2me" DataValueField="CveSubProyecto" DataTextField="SubProyecto" Width="100%"></asp:DropDownList>
<label for="<%= DdlClienteSucursalEnvio.ClientID.ToString()%>"><asp:Label runat="server" ID="LblSubProyectoClienteSucursal"></asp:Label>:</label> <label for="<%= DdlClienteSucursalEnvio.ClientID.ToString()%>">
<asp:Label runat="server" ID="LblSubProyectoClienteSucursal"></asp:Label>:</label>
</div> </div>
</div> </div>
@@ -6364,7 +6394,7 @@
<ContentTemplate> <ContentTemplate>
<%--table table-striped table-advance table-hover Widthall ScrollAD <%--table table-striped table-advance table-hover Widthall ScrollAD
tabla_correcto grides Widthall mysmallbtn--%> tabla_correcto grides Widthall mysmallbtn--%>
<asp:GridView ID="GvM" runat="server" GridLines="none" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" DataKeyNames="No" EmptyDataText="Aún no hay registros." AutoGenerateColumns="False" AllowPaging="False" ShowHeaderWhenEmpty="True" > <asp:GridView ID="GvM" runat="server" GridLines="none" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" DataKeyNames="No" EmptyDataText="Aún no hay registros." AutoGenerateColumns="False" AllowPaging="False" ShowHeaderWhenEmpty="True">
<Columns> <Columns>
<asp:TemplateField HeaderText="" ItemStyle-Font-Size="6pt"> <asp:TemplateField HeaderText="" ItemStyle-Font-Size="6pt">
<EditItemTemplate> <EditItemTemplate>
@@ -6700,7 +6730,7 @@
</div> </div>
<div id="DVLineasAdicionales" class="modal ADS fade" role="dialog"> <div id="DVLineasAdicionales" class="modal ADS fade" role="dialog">
<div class="modal-dialog"> <div class="modal-dialog">
<asp:UpdatePanel ID="UpLineaAdicionalmodal" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpLineaAdicionalmodal" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
@@ -6708,7 +6738,8 @@
<button type="button" class="close" data-dismiss="modal" aria-label="Close"> <button type="button" class="close" data-dismiss="modal" aria-label="Close">
<span aria-hidden="true">&times;</span> <span aria-hidden="true">&times;</span>
</button> </button>
<h4 class="modal-title" id="H4" runat="server"><asp:Literal runat="server" ID="LtlLineasAdicionalesTotuloModal"></asp:Literal></h4> <h4 class="modal-title" id="H4" runat="server">
<asp:Literal runat="server" ID="LtlLineasAdicionalesTotuloModal"></asp:Literal></h4>
</div> </div>
<div class="modal-body"> <div class="modal-body">
@@ -6724,9 +6755,9 @@
<div class="row"> <div class="row">
<div class="col-md-6"> <div class="col-md-6">
<div class="form-group form-md-line-input input-iconright" style="padding-top:-5px!important"> <div class="form-group form-md-line-input input-iconright" style="padding-top: -5px!important">
<ADS:Dropdownlost ID="DdlProveedorLineaAdicionalModal" SelectedText="-" IncluyeTodos="false" runat="server" CssStyle="width: 250px; selected2me; margin-top:4px;" Width="250px" <ADS:Dropdownlost ID="DdlProveedorLineaAdicionalModal" SelectedText="-" IncluyeTodos="false" runat="server" CssStyle="width: 250px; selected2me; margin-top:4px;" Width="250px"
DataTextField="RazonSocial" DataValueField="CveProveedor" CssClass="form-control input-sm DdlPS" ></ADS:Dropdownlost> DataTextField="RazonSocial" DataValueField="CveProveedor" CssClass="form-control input-sm DdlPS"></ADS:Dropdownlost>
<label for="<%= DdlProveedorLineaAdicionalModal.ClientID.ToString()%>">Comercializador: </label> <label for="<%= DdlProveedorLineaAdicionalModal.ClientID.ToString()%>">Comercializador: </label>
</div> </div>
@@ -6780,28 +6811,28 @@
<div class="row"> <div class="row">
<div class="col-md-4"> <div class="col-md-4">
<div class="form-group form-md-line-input input-iconright date date-picker date date-picker"> <div class="form-group form-md-line-input input-iconright date date-picker date date-picker">
<asp:TextBox ID="TxtFechaVencimientoLineaAdicionalModal" CssClass="form-control" runat="server" ></asp:TextBox> <asp:TextBox ID="TxtFechaVencimientoLineaAdicionalModal" CssClass="form-control" runat="server"></asp:TextBox>
<span class="input-group-btn " style="position: absolute; right: 41px; top: 9px;"> <span class="input-group-btn " style="position: absolute; right: 41px; top: 9px;">
<asp:LinkButton ID="LnkTxtFechaVencimientoLineaAdicionalModal" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton> <asp:LinkButton ID="LnkTxtFechaVencimientoLineaAdicionalModal" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span> </span>
<ajax:MaskedEditExtender ID="METxtFechaVencimientoLineaAdicionalModal" runat="server" TargetControlID="TxtFechaVencimientoLineaAdicionalModal" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender> <ajax:MaskedEditExtender ID="METxtFechaVencimientoLineaAdicionalModal" runat="server" TargetControlID="TxtFechaVencimientoLineaAdicionalModal" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CETxtFechaVencimientoLineaAdicionalModal" TargetControlID="TxtFechaVencimientoLineaAdicionalModal" PopupButtonID="LnkTxtFechaVencimientoLineaAdicionalModal" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender> <ajax:CalendarExtender runat="server" ID="CETxtFechaVencimientoLineaAdicionalModal" TargetControlID="TxtFechaVencimientoLineaAdicionalModal" PopupButtonID="LnkTxtFechaVencimientoLineaAdicionalModal" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="RfvTxtFechaVencimientoLineaAdicionalModal" runat="server" ControlToValidate="TxtFechaVencimientoLineaAdicionalModal" Display="None" <asp:RequiredFieldValidator ID="RfvTxtFechaVencimientoLineaAdicionalModal" runat="server" ControlToValidate="TxtFechaVencimientoLineaAdicionalModal" Display="None"
ErrorMessage="El campo <b>''Fecha Vencimiento''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpLineaAdicional"></asp:RequiredFieldValidator> ErrorMessage="El campo <b>''Fecha Vencimiento''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpLineaAdicional"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender5" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtFechaVencimientoLineaAdicionalModal" Width="350px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender5" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtFechaVencimientoLineaAdicionalModal" Width="350px"></ajax:ValidatorCalloutExtender>
<label for="<%= TxtFechaVencimientoLineaAdicionalModal.ClientID.ToString()%>">Fecha Vencimiento: </label> <label for="<%= TxtFechaVencimientoLineaAdicionalModal.ClientID.ToString()%>">Fecha Vencimiento: </label>
</div> </div>
</div> </div>
<div class="col-md-2"> <div class="col-md-2">
</div> </div>
<div class="col-md-6"> <div class="col-md-6">
<div class="form-group form-md-line-input input-iconright" runat="server" id="DvLineaAdicionalDiasVenciemientoModal" visible="false"> <div class="form-group form-md-line-input input-iconright" runat="server" id="DvLineaAdicionalDiasVenciemientoModal" visible="false">
<asp:TextBox ID="TxtDiasVencimientoLineaAdicionalModal" CssClass="form-control " runat="server" MaxLength="20" CausesValidation="true" Width="250px"></asp:TextBox> <asp:TextBox ID="TxtDiasVencimientoLineaAdicionalModal" CssClass="form-control " runat="server" MaxLength="20" CausesValidation="true" Width="250px"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvTxtDiasVencimientoLineaAdicionalModal" runat="server" ControlToValidate="TxtDiasVencimientoLineaAdicionalModal" CssClass="help-block errorimput" <asp:RequiredFieldValidator ID="RfvTxtDiasVencimientoLineaAdicionalModal" runat="server" ControlToValidate="TxtDiasVencimientoLineaAdicionalModal" CssClass="help-block errorimput"
@@ -6819,7 +6850,7 @@
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlCategoriaLineaAdicionalModal" DataValueField="CveCategoria" DataTextField="Categoria" Width="250px" runat="server" CssClass="form-control select2me"> <asp:DropDownList ID="DdlCategoriaLineaAdicionalModal" DataValueField="CveCategoria" DataTextField="Categoria" Width="250px" runat="server" CssClass="form-control select2me">
</asp:DropDownList> </asp:DropDownList>
<label for="<%= DdlClasificacion.ClientID.ToString()%>">Categoria:</label> <label for="<%= DdlClasificacion.ClientID.ToString()%>">Categoria:</label>
</div> </div>
@@ -6832,7 +6863,7 @@
<div class="modal-footer"> <div class="modal-footer">
<asp:UpdatePanel runat="server"> <asp:UpdatePanel runat="server">
<ContentTemplate> <ContentTemplate>
<asp:LinkButton ID="LnkAgregarLineaAdicionalModal" runat="server" CssClass="btn btn-success" Text="Guardar" OnClick="LnkAgregarLineaAdicionalModal_Click" ValidationGroup="GrpLineaAdicional" ></asp:LinkButton> <asp:LinkButton ID="LnkAgregarLineaAdicionalModal" runat="server" CssClass="btn btn-success" Text="Guardar" OnClick="LnkAgregarLineaAdicionalModal_Click" ValidationGroup="GrpLineaAdicional"></asp:LinkButton>
<button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button> <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>

26
Ventas/Clientes.aspx.vb
View File

@@ -1724,6 +1724,10 @@ Partial Class Clientes
TxtComExtColonia.Text = ObjClientes.ComExtColonia TxtComExtColonia.Text = ObjClientes.ComExtColonia
End If End If
TxtComExtCalle.Text = ObjClientes.DtResultados.Rows(0)("ComExtCalle").ToString()
TxtComExtNumero.Text = ObjClientes.DtResultados.Rows(0)("ComExtNumExt").ToString()
TxtComExtCP.Text = ObjClientes.DtResultados.Rows(0)("ComExtCP").ToString()
DdlMotivoTraslado.SelectedValueExist(ObjClientes.CveMotivoTraslado) DdlMotivoTraslado.SelectedValueExist(ObjClientes.CveMotivoTraslado)
TxtNumRegIdTrib.Text = ObjClientes.NumRegIdTrib TxtNumRegIdTrib.Text = ObjClientes.NumRegIdTrib
@@ -1858,7 +1862,8 @@ Partial Class Clientes
'Ocultamos la mayoria de informacion si es no-frecuente 'Ocultamos la mayoria de informacion si es no-frecuente
If ObjClientes.TipoCliente = 2 Then If ObjClientes.TipoCliente = 2 Then
TabFiscalContable.Visible = False If UsuarioActual.CveEmpresa <> 141 Then TabFiscalContable.Visible = False
TabCxC.Visible = False TabCxC.Visible = False
'TabAnticipos.Visible = False 'TabAnticipos.Visible = False
TabRetenciones.Visible = False TabRetenciones.Visible = False
@@ -2510,12 +2515,12 @@ Partial Class Clientes
If DdlPais.SelectedValue.ToEntero() = 151 Then If DdlPais.SelectedValue.ToEntero() = 151 Then
If Not DdlMunicipio.SelectedValue.ToEntero() > 0 Then If Not DdlMunicipio.SelectedValue.ToEntero() > 0 Then
Alert("Tiene que seleccionar un municipio para comercio exterior si el pais es mexico.", TipoMensaje.MsgAdvertencia) Alert("Tiene que seleccionar un municipio para comercio exterior si el pais es méxico.", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
End If End If
If Not DdlColonia.SelectedValue.ToEntero() > 0 Then If Not DdlColonia.SelectedValue.ToEntero() > 0 Then
Alert("Tiene que seleccionar una colonia para comercio exterior si el pais es mexico.", TipoMensaje.MsgAdvertencia) Alert("Tiene que seleccionar una colonia para comercio exterior si el pais es méxico.", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
End If End If
End If End If
@@ -2533,7 +2538,7 @@ Partial Class Clientes
If TxtRFC.Text.ToUpper.Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlUsoCFDI.SelectedValue <> "23" Then If TxtRFC.Text.ToUpper.Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlUsoCFDI.SelectedValue <> "23" Then
Alert("El Regimen fiscal del cliente debe ser <b>'S01 - Sin efectos fiscales'</b> cuando se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia) Alert("El uso del cfdi debe ser <b>'S01 - Sin efectos fiscales'</b> cuando se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
End If End If
@@ -2729,7 +2734,7 @@ Partial Class Clientes
CvePais:=DdlPais.SelectedValue.ToEntero(), CveEstado:=DdlEstado.SelectedValue.ToEntero(), CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero(), CveColonia:=DdlColonia.SelectedValue.ToEntero(), CveMotivoTraslado:=IIf(DdlMotivoTraslado.SelectedValue = "-1", "0", DdlMotivoTraslado.SelectedValue).ToString().ToEntero(), NumRegIdTrib:=IIf(TxtNumRegIdTrib.Text = "", "-1", TxtNumRegIdTrib.Text).ToString(), CvePais:=DdlPais.SelectedValue.ToEntero(), CveEstado:=DdlEstado.SelectedValue.ToEntero(), CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero(), CveColonia:=DdlColonia.SelectedValue.ToEntero(), CveMotivoTraslado:=IIf(DdlMotivoTraslado.SelectedValue = "-1", "0", DdlMotivoTraslado.SelectedValue).ToString().ToEntero(), NumRegIdTrib:=IIf(TxtNumRegIdTrib.Text = "", "-1", TxtNumRegIdTrib.Text).ToString(),
ComExtEstado:=IIf(TxtComExtEstado.Text = "", "-1", TxtComExtEstado.Text).ToString(), ComExtMunicipio:=IIf(TxtComExtMunicipio.Text = "", "-1", TxtComExtMunicipio.Text).ToString(), ComExtColonia:=IIf(TxtComExtColonia.Text = "", "-1", TxtComExtColonia.Text).ToString(), RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, ComExtEstado:=IIf(TxtComExtEstado.Text = "", "-1", TxtComExtEstado.Text).ToString(), ComExtMunicipio:=IIf(TxtComExtMunicipio.Text = "", "-1", TxtComExtMunicipio.Text).ToString(), ComExtColonia:=IIf(TxtComExtColonia.Text = "", "-1", TxtComExtColonia.Text).ToString(), RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked,
TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(), CveAdminTrayecto:=If(DdlAdminTrayecto.SelectedValue.ToEntero() <= 0, 0, DdlAdminTrayecto.SelectedValue.ToEntero()), TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(), CveAdminTrayecto:=If(DdlAdminTrayecto.SelectedValue.ToEntero() <= 0, 0, DdlAdminTrayecto.SelectedValue.ToEntero()),
CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona, RepresentanteLegal:=TxtRepresentanteLegal.Text) Then CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona, RepresentanteLegal:=TxtRepresentanteLegal.Text, ComExtCalle:=TxtComExtCalle.Text.Trim(), ComExtNumExt:=TxtComExtNumero.Text.Trim(), ComExtCP:=TxtComExtCP.Text.Trim()) Then
ViewState("CveCliente") = ObjClientes.CveCliente ViewState("CveCliente") = ObjClientes.CveCliente
@@ -2826,7 +2831,7 @@ Partial Class Clientes
ApellidoPaternoPF:=IIf(TxtApellidoPaterno.Text = "", "-1", TxtApellidoPaterno.Text).ToString(), ApellidoMaternoPF:=IIf(TxtApellidoMaterno.Text = "", "-1", TxtApellidoMaterno.Text).ToString(), NombresPF:=IIf(TxtNombres.Text = "", "-1", TxtNombres.Text).ToString(), ApellidoPaternoPF:=IIf(TxtApellidoPaterno.Text = "", "-1", TxtApellidoPaterno.Text).ToString(), ApellidoMaternoPF:=IIf(TxtApellidoMaterno.Text = "", "-1", TxtApellidoMaterno.Text).ToString(), NombresPF:=IIf(TxtNombres.Text = "", "-1", TxtNombres.Text).ToString(),
RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(), RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(),
CveAdminTrayecto:=If(DdlAdminTrayecto.SelectedValue.ToEntero() <= 0, 0, DdlAdminTrayecto.SelectedValue.ToEntero()), CveAdminTrayecto:=If(DdlAdminTrayecto.SelectedValue.ToEntero() <= 0, 0, DdlAdminTrayecto.SelectedValue.ToEntero()),
NoDesglosaIVA:=ChkNoDesglosaIVA.Checked, CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona, RepresentanteLegal:=TxtRepresentanteLegal.Text) Then NoDesglosaIVA:=ChkNoDesglosaIVA.Checked, CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona, RepresentanteLegal:=TxtRepresentanteLegal.Text, ComExtCalle:=TxtComExtCalle.Text.Trim(), ComExtNumExt:=TxtComExtNumero.Text.Trim(), ComExtCP:=TxtComExtCP.Text.Trim()) Then
ObjClientes.LimpiaImpuestosLocales(CveCliente) ObjClientes.LimpiaImpuestosLocales(CveCliente)
@@ -8739,10 +8744,11 @@ Partial Class Clientes
DTPorcentajePrecios = DTPorcentajeTemp.Clone DTPorcentajePrecios = DTPorcentajeTemp.Clone
End Sub End Sub
Private Sub CargaMarcas() Private Sub CargaMarcas()
Dim ObjMarcas As New ClsProductosServicios 'Dim ObjMarcas As New ClsProductosServicios
ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) 'ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa)
DdlMarcaPS.DataSource = ObjMarcas.DtResultados 'DdlMarcaPS.DataSource = ObjMarcas.DtResultados
ObjMarcas.Dispose() 'ObjMarcas.Dispose()
DdlMarcaPS.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
DdlMarcaPS.DataBind() DdlMarcaPS.DataBind()
DdlMarcaPS.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlMarcaPS.Items.Insert(0, New ListItem("Seleccione", "-1"))

2
Ventas/ClientesAbonar.aspx.vb
View File

@@ -990,7 +990,7 @@ Partial Class Ventas_ClientesAbonar
IdCtaContable = If(EsAnticipoEspecial, IdCtaContMonedaComplementariaAnticipo, IdCtaContComplementaria) IdCtaContable = If(EsAnticipoEspecial, IdCtaContMonedaComplementariaAnticipo, IdCtaContComplementaria)
If ImporteMovimiento <> 0 Then If ImporteMovimiento <> 0 Then
ImporteMN = ImporteMovimiento ImporteMN = ImporteMovimiento
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Referencia, If(gvr.DataKey("TipoDocto") = "Ant" AndAlso UsuarioActual.CveEmpresa.Contiene(119, 158), 226, 207), ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, -1, gvr.DataKey("CveVenta").ToEntero, -1, CveSubProyectoContabilizar, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=(ImporteMovimiento * tipoCambioVentaValuacion - ImporteMovimiento).RoundSQL, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioVentaValuacion) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Referencia, If(gvr.DataKey("TipoDocto") = "Ant" AndAlso UsuarioActual.CveEmpresa.Contiene(119, 158), 226, 207), ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, CveIE, gvr.DataKey("CveVenta").ToEntero, -1, CveSubProyectoContabilizar, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=(ImporteMovimiento * tipoCambioVentaValuacion - ImporteMovimiento).RoundSQL, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioVentaValuacion) Then
MsgError = "No se pudo insertar la póliza" MsgError = "No se pudo insertar la póliza"
End If End If
End If End If

21
Ventas/PV.aspx.vb
View File

@@ -1375,16 +1375,17 @@ Partial Class PV
Private Sub CargaMarcasFiltro() Private Sub CargaMarcasFiltro()
Using ObjMarcas As New ClsProductosServicios Using ObjMarcas As New ClsProductosServicios
If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then 'If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then
DdlMarcaPS.DataSource = ObjMarcas.DtResultados.Copy() ' DdlMarcaPS.DataSource = ObjMarcas.DtResultados.Copy()
DdlMarcaPSAjuste.DataSource = ObjMarcas.DtResultados.Copy() ' DdlMarcaPSAjuste.DataSource = ObjMarcas.DtResultados.Copy()
End If 'End If
If ObjMarcas.GetMarcasUsados(UsuarioActual.CveEmpresa) Then If ObjMarcas.GetMarcasUsados(UsuarioActual.CveEmpresa) Then
DdlMarcaUsado.DataSource = ObjMarcas.DtResultados.Copy() DdlMarcaUsado.DataSource = ObjMarcas.DtResultados.Copy()
End If End If
End Using End Using
DdlMarcaPS.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
DdlMarcaPS.DataBind() DdlMarcaPS.DataBind()
DdlMarcaPSAjuste.DataBind() DdlMarcaPSAjuste.DataBind()
DdlMarcaUsado.DataBind() DdlMarcaUsado.DataBind()
@@ -6639,11 +6640,13 @@ Partial Class PV
End If End If
DdlMarca.Items.Clear() DdlMarca.Items.Clear()
DdlMarcaPSDes.Items.Clear() DdlMarcaPSDes.Items.Clear()
Dim ObjMarcas As New ClsProductosServicios 'Dim ObjMarcas As New ClsProductosServicios
ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) 'ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa)
DdlMarca.DataSource = ObjMarcas.DtResultados 'DdlMarca.DataSource = ObjMarcas.DtResultados
DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados 'DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados
ObjMarcas.Dispose() 'ObjMarcas.Dispose()
DdlMarca.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
DdlMarcaPSDes.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
DdlMarca.DataBind() DdlMarca.DataBind()
DdlMarcaPSDes.DataBind() DdlMarcaPSDes.DataBind()
End If End If

26
Ventas/RepLineasAdicionales.aspx
View File

@@ -39,14 +39,14 @@
<div class="titlefiltros caption"> <div class="titlefiltros caption">
<div class="row"> <div class="row">
<div class="col-md-1 truncate" runat="server" id="DVProveedor1" visible="false">Proveedor:</div> <div class="col-md-1 truncate" runat="server" id="DVProveedor1" visible="false">Comercializador:</div>
<div class="col-md-2" runat="server" id="DVProveedor2" visible="false"> <div class="col-md-2" runat="server" id="DVProveedor2" visible="false">
<ADS:Dropdownlost ID="DdlProveedor" SelectedText="-" runat="server" CssStyle="width: 100%; selected2me; " Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor" CssClass="select2me"></ADS:Dropdownlost> <ADS:Dropdownlost ID="DdlProveedor" SelectedText="-" runat="server" CssStyle="width: 100%; selected2me; " Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor" CssClass="select2me"></ADS:Dropdownlost>
</div> </div>
<div class="col-md-1 truncate" >Cliente:</div> <div class="col-md-1 truncate" >Cliente:</div>
<div class="col-md-2 "> <div class="col-md-2 ">
<ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost> <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" UsaWebService="true" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
</div> </div>
<div class="col-md-1 truncate" >Estatus:</div> <div class="col-md-1 truncate" >Estatus:</div>
@@ -54,7 +54,7 @@
<asp:DropDownList runat="server" ID="DdlEstatus" CssClass="select2me" Width="100%"> <asp:DropDownList runat="server" ID="DdlEstatus" CssClass="select2me" Width="100%">
<asp:ListItem Text="Todos" Value="-1"></asp:ListItem> <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
<%--<asp:ListItem Text="Registrado" Value="0" ></asp:ListItem> --%> <%--<asp:ListItem Text="Registrado" Value="0" ></asp:ListItem> --%>
<asp:ListItem Text="Vinculado" Value="1" Selected="True"></asp:ListItem> <asp:ListItem Text="Pendiente" Value="1" Selected="True"></asp:ListItem>
<asp:ListItem Text="Enviado" Value="2"></asp:ListItem> <asp:ListItem Text="Enviado" Value="2"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</div> </div>
@@ -95,8 +95,8 @@
<div class="row " runat="server" visible ="false" id="DvLineaPO"> <div class="row " runat="server" visible ="false" id="DvLineaPO">
<div class=" col-md-12" style="text-align: right!important"> <div class=" col-md-12" style="text-align: right!important">
<input type="text" id="TxtBuscarLineaAdicionalpo" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBuscarLineaAdicional','{0}')", GvLineasAdicionalesPO.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" /> <input type="text" id="TxtBuscarLineaAdicionalpo" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBuscarLineaAdicional','{0}')", GvLAPO.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBuscarLineaAdicional','{0}')", GvLineasAdicionalesPO.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a> <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBuscarLineaAdicional','{0}')", GvLAPO.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div> </div>
</div> </div>
@@ -118,27 +118,25 @@
<asp:BoundField DataField="Saldo" HeaderText="Saldo" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField DataField="Saldo" HeaderText="Saldo" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataField="DiasVencimiento" HeaderText="Dias de Venc." /> <asp:BoundField DataField="DiasVencimiento" HeaderText="Dias de Venc." />
<asp:BoundField DataField="Estatus" HeaderText="Estatus" /> <asp:BoundField DataField="Estatus" HeaderText="Estatus" />
<asp:BoundField DataField="Usuario" HeaderText="Usuario" />
</Columns> </Columns>
</asp:GridView> </asp:GridView>
<asp:GridView ID="GvLineasAdicionalesPO" Width="100%" runat="server" GridLines="None" Visible="false" <asp:GridView ID="GvLAPO" Width="100%" runat="server" GridLines="None" Visible="false"
DataKeyNames="Agrupador,CveLineaAdicional,LineaAdicional,TipoLinea,Importe,CveMoneda,FechaVencimiento,CveUsuario,CveCategoria,FechaIng,CveLineaAdicionalEstatus,LineaAdicionalComprobante,DiasVencimiento,CveVenta" DataKeyNames="CveLineaAdicional,LineaAdicional,TipoLinea,Importe,CveMoneda,FechaVencimiento,CveUsuario,CveLineaAdicionalEstatus,LineaAdicionalComprobante,CveVenta,CveCliente"
CssClass="table table-striped table-advance table-hover ScrollAD input-sm mysmallbtn" ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true" CssClass="table table-striped table-advance table-hover ScrollAD input-sm mysmallbtn" ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true"
AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False"
OnRowCommand="GvLineasAdicionalesPO_RowCommand" OnRowCommand="GvLAPO_RowCommand"
OnRowDataBound="GvLineasAdicionalesPO_RowDataBound"> OnRowDataBound="GvLAPO_RowDataBound">
<Columns> <Columns>
<asp:BoundField DataField="Agrupador" HeaderText="Agrupador" /> <asp:BoundField DataField="Agrupador" HeaderText="Agrupador" />
<asp:BoundField DataField="LineaAdicional" HeaderText="Linea Adicional" /> <asp:BoundField DataField="LineaAdicional" HeaderText="Linea Adicional" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataField="Importe" HeaderText="Importe" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField DataField="Importe" HeaderText="Importe" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataField="Abreviatura" HeaderText="Moneda" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField DataField="Abreviatura" HeaderText="Mon" ItemStyle-HorizontalAlign="Right" />
<asp:HyperLinkField DataTextField="SerieFolio" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" HeaderText="Serie Folio" /> <asp:HyperLinkField DataTextField="SerieFolio" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" HeaderText="Serie Folio" />
<asp:BoundField DataField="Saldo" HeaderText="Saldo" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField DataField="Saldo" HeaderText="Saldo" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataField="DiasVencimiento" HeaderText="Dias de Venc." ItemStyle-HorizontalAlign="Right" /> <asp:BoundField DataField="DiasVencimiento" HeaderText="Dias de Venc." ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataField="Estatus" HeaderText="Estatus" /> <asp:BoundField DataField="Estatus" HeaderText="Estatus" />
<asp:BoundField DataField="Usuario" HeaderText="Usuario" />
<asp:TemplateField HeaderText="Opciones" ItemStyle-Width="100px" HeaderStyle-Width="100px"> <asp:TemplateField HeaderText="Opciones" ItemStyle-Width="100px" HeaderStyle-Width="100px">
<ItemTemplate> <ItemTemplate>
@@ -147,8 +145,6 @@
<asp:LinkButton ID="LnkCargarComprobante" Visible="false" runat="server" AlternateText="Editar" CausesValidation="False" <asp:LinkButton ID="LnkCargarComprobante" Visible="false" runat="server" AlternateText="Editar" CausesValidation="False"
CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-upload'></i>" OnClick="LnkCargarComprobante_Click" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-upload'></i>" OnClick="LnkCargarComprobante_Click"
ToolTip="Cargar Comprobante" /> ToolTip="Cargar Comprobante" />
</div>
<div class="col-md-4" style="max-width:26px!important">
<asp:LinkButton ID="LnkDescargaComprobante" Visible="false" runat="server" AlternateText="Descarga" CausesValidation="False" <asp:LinkButton ID="LnkDescargaComprobante" Visible="false" runat="server" AlternateText="Descarga" CausesValidation="False"
CssClass="btn btn-circle btn-sm yellow" Text="<i class='fa fa-download'></i>" OnClick="LnkDescargaComprobante_Click" CssClass="btn btn-circle btn-sm yellow" Text="<i class='fa fa-download'></i>" OnClick="LnkDescargaComprobante_Click"
ToolTip="Descargar Comprobante" /> ToolTip="Descargar Comprobante" />

56
Ventas/RepLineasAdicionales.aspx.cs
View File

@@ -73,7 +73,7 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
if (Request["OP"] != null && Request["OP"].ToString() == "PO") if (Request["OP"] != null && Request["OP"].ToString() == "PO")
{ {
DVProveedor1.Visible = true; DVProveedor1.Visible = true;
DVProveedor2.Visible = true; DVProveedor2.Visible = true;
TipoLinea = 2; TipoLinea = 2;
LtlEncabezado.Text = "Reporte PO"; LtlEncabezado.Text = "Reporte PO";
@@ -85,9 +85,6 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
} }
else else
{ {
DvLinea.Visible = true;
GvLineasAdicionales.Visible = true;
}
DvLinea.Visible = true; DvLinea.Visible = true;
GvLineasAdicionales.Visible = true; GvLineasAdicionales.Visible = true;
} }
@@ -147,16 +144,16 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
GvLineasAdicionales.DataSource = null; GvLineasAdicionales.DataSource = null;
} }
} }
else else
{ {
if (DdlAgrupador.SelectedValue.ToEntero()== 1){ if (DdlAgrupador.SelectedValue.ToEntero()== 1){
GvLineasAdicionalesPO.Columns[0].HeaderText = "Comercializador"; GvLAPO.Columns[0].HeaderText = "Comercializador";
} }
else else
{ {
GvLAPO.Columns[0].HeaderText = "Cliente"; GvLAPO.Columns[0].HeaderText = "Cliente";
} }
if (objVentas.RepLineasAdicionales(DdlAgrupador.SelectedValue.ToEntero(), -1, DdlClientes.SelectedValue.ToEntero(), CveProveedor, 2, -1, MinFecha, MaxFecha, DdlEstatus.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa)) if (objVentas.RepLineasAdicionales(DdlAgrupador.SelectedValue.ToEntero(), -1, DdlClientes.SelectedValue.ToEntero(), CveProveedor, 2, -1, MinFecha, MaxFecha, DdlEstatus.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa))
{ {
@@ -167,19 +164,13 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
DTDatosGvLineasAdicionales = objVentas.DtResultados; DTDatosGvLineasAdicionales = objVentas.DtResultados;
LnkDescargaExcel.Visible = true; LnkDescargaExcel.Visible = true;
UpAcciones.Update(); UpAcciones.Update();
} }
} }
else
else else
{ {
}
}
GvLAPO.DataSource = null; GvLAPO.DataSource = null;
} }
}
objVentas.Dispose();
objVentas.Dispose(); objVentas.Dispose();
GvLineasAdicionales.DataBind(); GvLineasAdicionales.DataBind();
@@ -273,7 +264,7 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
{ {
errorCargaComprobante = true; errorCargaComprobante = true;
} }
if (!errorCargaComprobante) if (!errorCargaComprobante)
{ {
ClsVentas objVentas = new ClsVentas(); ClsVentas objVentas = new ClsVentas();
@@ -281,10 +272,8 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
{ {
errorCargaComprobante = true; errorCargaComprobante = true;
} }
objVentas.Dispose();
objVentas.Dispose(); objVentas.Dispose();
} }
}
} }
} }
} }
@@ -306,7 +295,7 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
int CveLineaAdicionalActualzarEstatus = GvRow.DataKey("CveLineaAdicional").ToString().ToEntero(); int CveLineaAdicionalActualzarEstatus = GvRow.DataKey("CveLineaAdicional").ToString().ToEntero();
int CveVenta = GvRow.DataKey("CveVenta").ToString().ToEntero(); int CveVenta = GvRow.DataKey("CveVenta").ToString().ToEntero();
bool errorCambioEstatus = false; bool errorCambioEstatus = false;
ClsVentas objVentas = new ClsVentas(); ClsVentas objVentas = new ClsVentas();
@@ -325,21 +314,20 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
protected void LnkDescargaExcel_Click(object sender, EventArgs e) protected void LnkDescargaExcel_Click(object sender, EventArgs e)
{ {
if(TipoLinea == 1) if(TipoLinea == 1)
{ {
GridView gvTemp = GvLineasAdicionales; GridView gvTemp = GvLineasAdicionales;
gvTemp.ExportToExcelx("RepLienasAdicionales"); gvTemp.ExportToExcelx("RepLineasAdicionales" + DateTime.Now.ToShortDateString());
} }
else if(TipoLinea == 2) else if(TipoLinea == 2)
{ {
GridView gvTemp = GvLAPO; GridView gvTemp = GvLAPO;
gvTemp.Columns[9].Visible = false;
gvTemp.Columns[8].Visible = false; gvTemp.Columns[8].Visible = false;
gvTemp.ExportToExcelx("ReportePO" + DateTime.Now.ToShortDateString()); gvTemp.ExportToExcelx("ReportePO" + DateTime.Now.ToShortDateString());
} }
} }
@@ -349,9 +337,16 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
{ {
LinkButton LnkCambiarEstatus = e.Row.FCLinkButton("LnkCambiarEstatus"); LinkButton LnkCambiarEstatus = e.Row.FCLinkButton("LnkCambiarEstatus");
LinkButton LnkCargarComprobante = e.Row.FCLinkButton("LnkCargarComprobante"); LinkButton LnkCargarComprobante = e.Row.FCLinkButton("LnkCargarComprobante");
LinkButton LnkDescargaComprobante = e.Row.FCLinkButton("LnkDescargaComprobante"); LinkButton LnkDescargaComprobante = e.Row.FCLinkButton("LnkDescargaComprobante");
if (e.Row.DataKey("CveLineaAdicional")=="")
{
if (e.Row.DataKey("CveLineaAdicional") == "" && e.Row.DataKey("CveCliente") == "")
{
e.Row.CssClass = "SubTotales2";
}
else else
{ {
e.Row.CssClass = "SubTotales"; e.Row.CssClass = "SubTotales";
@@ -374,6 +369,7 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
if (fi.Exists) if (fi.Exists)
{ {
LnkDescargaComprobante.Visible = true;
ScriptManager.GetCurrent(this).RegisterPostBackControl(LnkDescargaComprobante); ScriptManager.GetCurrent(this).RegisterPostBackControl(LnkDescargaComprobante);
} }
} }
@@ -396,12 +392,12 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
Response.ContentType = "text/octet-stream"; Response.ContentType = "text/octet-stream";
Response.Flush(); Response.Flush();
Response.TransmitFile(fi.FullName); Response.TransmitFile(fi.FullName);
Response.End(); Response.End();
} }
} }
protected void GvLAPO_RowCommand(object sender, GridViewCommandEventArgs e) protected void GvLAPO_RowCommand(object sender, GridViewCommandEventArgs e)
{ {
if (e.CommandName == "Estatus") if (e.CommandName == "Estatus")
{ {
GridViewRow GvRow = (GridViewRow)((LinkButton)e.CommandSource).NamingContainer; GridViewRow GvRow = (GridViewRow)((LinkButton)e.CommandSource).NamingContainer;
@@ -409,7 +405,7 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
int CveVenta = GvRow.DataKey("CveVenta").ToString().ToEntero(); int CveVenta = GvRow.DataKey("CveVenta").ToString().ToEntero();
bool errorCambioEstatus = false; bool errorCambioEstatus = false;
//int cveestatus = e.CommandArgument.ToEntero() + 2; //pasar al siguiente estatus //int cveestatus = e.CommandArgument.ToEntero() + 2; //pasar al siguiente estatus
ClsVentas objVentas = new ClsVentas(); ClsVentas objVentas = new ClsVentas();

2
Ventas/RepProductosServicios.aspx
View File

@@ -358,7 +358,7 @@
</div> </div>
<asp:Label runat="server" ID="LblServicioDomicilioFiltro" class="col-md-1 truncate" Visible="false">Servicio Domicilio:</asp:Label> <asp:Label runat="server" ID="LblServicioDomicilioFiltro" class="col-md-1 truncate" Visible="false">Servicio Domicilio:</asp:Label>
<div class="col-md-2" runat="server" id="DVServicioDomicilio"> <div class="col-md-2" runat="server" id="DVServicioDomicilio" Visible="false">
<asp:DropDownList ID="DdlServicioDomicilio" CssClass=" form-control input-sm select2me" runat="server" Width="100%" > <asp:DropDownList ID="DdlServicioDomicilio" CssClass=" form-control input-sm select2me" runat="server" Width="100%" >
<asp:ListItem Value="-1">Todos</asp:ListItem> <asp:ListItem Value="-1">Todos</asp:ListItem>
<asp:ListItem Value="1">Si</asp:ListItem> <asp:ListItem Value="1">Si</asp:ListItem>

25
Ventas/RepProductosServicios.aspx.vb
View File

@@ -62,14 +62,6 @@ Partial Class Ventas_RepProductosServicios
CargarMarcas() CargarMarcas()
SetValues() SetValues()
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
LblServicioDomicilioFiltro.Visible = True
DVServicioDomicilio.Visible = True
End If
End If End If
End Sub End Sub
@@ -193,6 +185,10 @@ Partial Class Ventas_RepProductosServicios
DdlGrupo.Items.Add(New ListItem("Clasificacion2", "25")) DdlGrupo.Items.Add(New ListItem("Clasificacion2", "25"))
LblServicioDomicilioFiltro.Visible = True
DVServicioDomicilio.Visible = True
End If End If
@@ -340,12 +336,13 @@ Partial Class Ventas_RepProductosServicios
DivMarca.Visible = True DivMarca.Visible = True
LblMarca.Visible = True LblMarca.Visible = True
Using ObjMarcas As New ClsProductosServicios 'Using ObjMarcas As New ClsProductosServicios
If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then ' If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then
DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados ' DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados
DdlMarcaPSDes.DataBind() ' DdlMarcaPSDes.DataBind()
End If ' End If
End Using 'End Using
DdlMarcaPSDes.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
End If End If
DdlMarcaPSDes.Items.Insert(0, New ListItem(" Todos ", "-1")) DdlMarcaPSDes.Items.Insert(0, New ListItem(" Todos ", "-1"))
End Sub End Sub

4
Ventas/RepProductosServiciosDetalle.aspx
View File

@@ -372,8 +372,8 @@
</div> </div>
<asp:Label runat="server" ID="LblServicioDomicilioFiltro" class="col-md-1 truncate" Visible="false">Servicio Domicilio:</asp:Label> <asp:Label runat="server" ID="LblServicioDomicilioFiltro" class="col-md-1 truncate" Visible="false">Servicio Domicilio:</asp:Label>
<div class="col-md-2" runat="server" id="DVServicioDomicilio"> <div class="col-md-2" runat="server" id="DVServicioDomicilio">
<asp:DropDownList ID="DdlServicioDomicilio" CssClass=" form-control input-sm select2me" runat="server" Width="100%" > <asp:DropDownList ID="DdlServicioDomicilio" CssClass=" form-control input-sm select2me" runat="server" Width="100%" Visible="false" >
<asp:ListItem Value="-1">Todos</asp:ListItem> <asp:ListItem Value="-1">Todos</asp:ListItem>
<asp:ListItem Value="1">Si</asp:ListItem> <asp:ListItem Value="1">Si</asp:ListItem>
<asp:ListItem Value="0">No</asp:ListItem> <asp:ListItem Value="0">No</asp:ListItem>

4
Ventas/RepVentas.aspx
View File

@@ -312,8 +312,8 @@
<div class="col-md-2"> <div class="col-md-2">
<asp:CheckBox ID="ChkLecturaAdmin" runat="server" Checked="false" CssClass="input-sm" /> <asp:CheckBox ID="ChkLecturaAdmin" runat="server" Checked="false" CssClass="input-sm" />
</div> </div>
<label title="Distr" data-toggle="tooltip" class="col-md-1 truncate">Distribuidor:</label> <label title="Distr" data-toggle="tooltip" class="col-md-1 truncate" Visible="false" runat="server" id="DivLblDistr">Distribuidor:</label>
<div class="col-md-2"> <div class="col-md-2" Visible="false" runat="server" id="DivDistr">
<asp:DropDownList ID="DdlDistribuidor" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me"> <asp:DropDownList ID="DdlDistribuidor" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
<asp:ListItem Text="Distribuidor" Value="1"></asp:ListItem> <asp:ListItem Text="Distribuidor" Value="1"></asp:ListItem>

3
Ventas/RepVentas.aspx.vb
View File

@@ -130,7 +130,8 @@ Partial Class Ventas_RepVentas
LblServicioDomicilioFiltro.Visible = True LblServicioDomicilioFiltro.Visible = True
DVServicioDomicilio.Visible = True DVServicioDomicilio.Visible = True
DivLblDistr.Visible = True
DivDistr.Visible = True
End If End If
End If End If

189
Ventas/Ventas.aspx
View File

@@ -2441,127 +2441,97 @@
<div class="btn-group"> <div class="btn-group">
</div> </div>
</div> </div>
<div class="tools"> <div class="tools">
Emitir Emitir
<asp:CheckBox ID="ChkEmitirComercioExterior" runat="server" CssClass="chksino" Text=" " OnCheckedChanged="ChkEmitirComercioExterior_CheckedChanged" AutoPostBack="true" /> <asp:CheckBox ID="ChkEmitirComercioExterior" runat="server" CssClass="chksino" Text=" " OnCheckedChanged="ChkEmitirComercioExterior_CheckedChanged" AutoPostBack="true" />
<a href="javascript:;" onclick="CargaComercioExterior()" class="expand"></a> <a href="javascript:;" onclick="CargaComercioExterior()" class="expand"></a>
</div> </div>
</div> </div>
<div class="portlet-body form-horizontal form-row-sepe formnombottom" style="padding: 10px 20px 10px 30px; display: none"> <div class="portlet-body">
<div class="rowpadding">
<asp:UpdatePanel ID="UpComercioExterior" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpComercioExterior" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<div class="form-body"> <div class="row">
<label class="col-md-2 form-group form-md-line-input">Tipo Operación:</label>
<div class="col-md-4 form-group form-md-line-input">
<%-- <div class="row rowpadding"> <asp:Label ID="LblTipoOperacion" runat="server"></asp:Label>
<label class="col-md-2">Emitir:</label>
<div class="col-md-10">
</div>
</div> </div>
<br /> --%> <label class="col-md-2 form-group form-md-line-input">Clave Pedimento:</label>
<div class="col-md-4 form-group form-md-line-input">
<div class="row"> <asp:Label ID="LblClavePedimento" runat="server"></asp:Label>
<label class="col-md-2 form-group form-md-line-input">Tipo Operación:</label>
<div class="col-md-3 form-group form-md-line-input" style="margin-top: 0px; padding-top: 0px; display: inline-block;">
<asp:Label ID="LblTipoOperacion" runat="server"></asp:Label>
<%--<asp:DropDownList ID="DdlTipoOperacion" CssClass="form-control select2me" AppendDataBoundItems="true" Style="width: 100%;" runat="server" DataTextField="ClaveSATTipoOperacionDescripcion" DataValueField="CveTipoOperacion"></asp:DropDownList>--%>
</div>
<label class="col-md-2 form-group form-md-line-input" style="padding-left: 20px;">Clave Pedimento:</label>
<div class="col-md-5 form-group form-md-line-input" style="margin-top: 0px; padding-top: 0px; display: inline-block;">
<asp:Label ID="LblClavePedimento" runat="server"></asp:Label>
<%--<asp:TextBox ID="TxtClavePedimento" CssClass="form-control input-sm" runat="server" Width="100%"></asp:TextBox>--%>
</div>
</div> </div>
<div class="row"> </div>
<label class="col-md-2 form-group form-md-line-input">Incoterm:</label> <div class="row">
<div class="col-md-4 form-group form-md-line-input" style="margin-top: 0px; padding-top: 0px; display: inline-block;"> <div class="col-md-2 form-group form-md-line-input col-md-offset-3">
<asp:DropDownList ID="DdlIncoterm" CssClass="form-control select2me" AppendDataBoundItems="true" Style="width: 100%;" runat="server" DataTextField="ClaveSATIncotermDescripcion" DataValueField="CveIncoterm"> <label >Incoterm:</label>
</asp:DropDownList>
</div>
</div> </div>
<div class="row"> <div class="col-md-4 form-group form-md-line-input col-md-offset-3">
<label class="col-md-2 form-group form-md-line-input">Motivo Traslado:</label> <asp:DropDownList ID="DdlIncoterm" CssClass="form-control select2me" AppendDataBoundItems="true" Width="100%" runat="server" DataTextField="ClaveSATIncotermDescripcion" DataValueField="CveIncoterm">
<div class="col-md-4 form-group form-md-line-input" style="margin-top: 0px; padding-top: 0px; display: inline-block;"> </asp:DropDownList>
<asp:DropDownList ID="DdlSATMotivoTraslado" Width="100%" runat="server" CssClass="select2me" DataTextField="ClaveSATMotivoTrasladoDescripcion" DataValueField="CveMotivoTraslado"></asp:DropDownList>
</div>
<label class="col-md-2 form-group form-md-line-input" style="padding-left: 20px;">Num Reg IdTrib:</label>
<div class="col-md-4 form-group form-md-line-input" style="margin-top: 0px; padding-top: 0px; display: inline-block;">
<asp:TextBox ID="TxtNumRegIdTrib" CssClass="form-control input-sm" runat="server" Width="100%"></asp:TextBox>
</div>
<%-- <label class="col-md-1"></label>
<div class="col-md-1">
</div>--%>
</div> </div>
<div class="row"> </div>
<div class="col-md-12"> <div class="row">
<asp:UpdatePanel ID="UPPDestina" runat="server" UpdateMode="Conditional"> <label class="col-md-2 form-group form-md-line-input" style="margin-top: 0px; padding-top: 0px; display: inline-block;">Motivo Traslado:</label>
<ContentTemplate> <div class="col-md-4 form-group form-md-line-input" style="margin-top: 0px; padding-top: 0px; display: inline-block;">
<div class="row"> <asp:DropDownList ID="DdlSATMotivoTraslado" Width="100%" runat="server" CssClass="select2me" DataTextField="ClaveSATMotivoTrasladoDescripcion" DataValueField="CveMotivoTraslado"></asp:DropDownList>
</div>
<div class="col-md-2 form-group form-md-line-input"><span>Nombre:</span></div> <label class="col-md-2 form-group form-md-line-input" style="margin-top: 0px; padding-top: 0px; display: inline-block;">Num Reg IdTrib:</label>
<div class="col-md-4 form-group form-md-line-input" style="margin-top: 0px; padding-top: 0px; display: inline-block;">
<div class="col-md-4 form-group form-md-line-input" style="margin-top: 0px; padding-top: 0px; display: inline-block;"> <asp:TextBox ID="TxtNumRegIdTrib" CssClass="form-control input-sm" runat="server" Width="100%"></asp:TextBox>
<asp:TextBox ID="TxtDestinatarioNombre" CssClass="form-control input-sm" runat="server" Width="100%"></asp:TextBox> </div>
</div> </div>
<div class="row">
<div class="col-md-12">
<asp:UpdatePanel ID="UPPDestina" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="row">
<div class="col-md-2 form-group form-md-line-input"><span>Nombre:</span></div>
<div class="col-md-4 form-group form-md-line-input">
<asp:TextBox ID="TxtDestinatarioNombre" CssClass="form-control input-sm" runat="server" Width="100%"></asp:TextBox>
</div> </div>
<div class="row"> </div>
<div class="row">
<div class="col-md-2 form-group form-md-line-input"><span>Calle:</span></div> <div class="col-md-2 form-group form-md-line-input" style="margin-top: 0px; padding-top: 0px; display: inline-block;"><span>Calle:</span></div>
<div class="col-md-4 form-group form-md-line-input" style="margin-top: 0px; padding-top: 0px; display: inline-block;">
<div class="col-md-4 form-group form-md-line-input" style="margin-top: 0px; padding-top: 0px; display: inline-block;"> <asp:TextBox ID="TxtComExtCalle" CssClass="form-control input-sm" runat="server" Width="100%"></asp:TextBox>
<asp:TextBox ID="TxtComExtCalle" CssClass="form-control input-sm" runat="server" Width="100%"></asp:TextBox>
</div>
<div class="col-md-1 form-group form-md-line-input"><span>Núm.</span></div>
<div class="col-md-2 form-group form-md-line-input" style="margin-top: 0px; padding-top: 0px; display: inline-block;">
<asp:TextBox ID="TxtComExtNumero" CssClass="form-control input-sm" runat="server" Width="55px"></asp:TextBox>
</div>
<div class="col-md-1 form-group form-md-line-input"><span>CP.</span></div>
<div class="col-md-2 form-group form-md-line-input" style="margin-top: 0px; padding-top: 0px; display: inline-block;">
<asp:TextBox ID="TxtComExtCP" CssClass="form-control input-sm" runat="server" Width="65px"></asp:TextBox>
</div>
</div> </div>
<div class="row"> <div class="col-md-1 form-group form-md-line-input" style="margin-top: 0px; padding-top: 0px; display: inline-block;"><span>Núm.</span></div>
<div class="col-md-2 form-group form-md-line-input"><span>Pais:</span></div> <div class="col-md-2 form-group form-md-line-input" style="margin-top: 0px; padding-top: 0px; display: inline-block;">
<asp:TextBox ID="TxtComExtNumero" CssClass="form-control input-sm" runat="server" Width="55px"></asp:TextBox>
<div class="col-md-4 form-group form-md-line-input" style="margin-top: 0px; padding-top: 0px; display: inline-block;">
<asp:DropDownList ID="DdlComExtPais" AutoPostBack="true" OnSelectedIndexChanged="DdlPais_SelectedIndexChanged" CssClass="form-control select2me" AppendDataBoundItems="true" Style="width: 100%;" runat="server" DataTextField="ClaveSATPaisDescripcion" DataValueField="CvePais"></asp:DropDownList>
<asp:TextBox ID="TxtComExtPais" CssClass="form-control input-sm" runat="server" Width="100%" Visible="false"></asp:TextBox>
</div>
<div class="col-md-2 form-group form-md-line-input" style="padding-left: 20px;"><span>Estado:</span></div>
<div class="col-md-4 form-group form-md-line-input" style="margin-top: 0px; padding-top: 0px; display: inline-block;">
<asp:DropDownList ID="DdlComExtEstado" AutoPostBack="true" OnSelectedIndexChanged="DdlEstado_SelectedIndexChanged" Visible="false" CssClass="form-control select2me" AppendDataBoundItems="true" Style="width: 100%;" runat="server" DataTextField="ClaveSATEstadoNombreEstado" DataValueField="CveEstado"></asp:DropDownList>
<asp:TextBox ID="TxtComExtEstado" CssClass="form-control input-sm" runat="server" Width="100%" Visible="false"></asp:TextBox>
</div>
</div> </div>
<div class="row"> <div class="col-md-1 form-group form-md-line-input" style="margin-top: 0px; padding-top: 0px; display: inline-block;"><span>CP.</span></div>
<div class="col-md-2 form-group form-md-line-input"><span>Municipio:</span></div> <div class="col-md-2 form-group form-md-line-input" style="margin-top: 0px; padding-top: 0px; display: inline-block;">
<asp:TextBox ID="TxtComExtCP" CssClass="form-control input-sm" runat="server" Width="65px"></asp:TextBox>
<div class="col-md-4 form-group form-md-line-input" style="margin-top: 0px; padding-top: 0px; display: inline-block;">
<asp:DropDownList ID="DdlComExtMunicipio" AutoPostBack="true" OnSelectedIndexChanged="DdlMunicipio_SelectedIndexChanged" Visible="false" CssClass="form-control select2me" AppendDataBoundItems="true" Style="width: 100%;" runat="server" DataTextField="ClaveSATMunicipioDescripcion" DataValueField="CveMunicipio"></asp:DropDownList>
<asp:TextBox ID="TxtComExtMunicipio" CssClass="form-control input-sm" runat="server" Width="100%" Visible="false"></asp:TextBox>
</div>
<div class="col-md-2 form-group form-md-line-input" style="padding-left: 20px;"><span>Colonia:</span></div>
<div class="col-md-4 form-group form-md-line-input" style="margin-top: 0px; padding-top: 0px; display: inline-block;">
<asp:DropDownList ID="DdlComExtColonia" CssClass="form-control select2me" AppendDataBoundItems="true" Style="width: 100%;" Visible="false" runat="server" DataTextField="ClaveSATColoniaNombreAsentamiento" DataValueField="CveColonia"></asp:DropDownList>
<asp:TextBox ID="TxtComExtColonia" CssClass="form-control input-sm" runat="server" Width="100%" Visible="false"></asp:TextBox>
</div>
</div> </div>
</div>
<div class="row">
<div class="col-md-2 form-group form-md-line-input"><span>Pais:</span></div>
<div class="col-md-4 form-group form-md-line-input">
<asp:DropDownList ID="DdlComExtPais" AutoPostBack="true" OnSelectedIndexChanged="DdlPais_SelectedIndexChanged" CssClass="form-control select2me" AppendDataBoundItems="true" Style="width: 100%;" runat="server" DataTextField="ClaveSATPaisDescripcion" DataValueField="CvePais"></asp:DropDownList>
<asp:TextBox ID="TxtComExtPais" CssClass="form-control input-sm" runat="server" Width="100%" Visible="false"></asp:TextBox>
</div>
<div class="col-md-2 form-group form-md-line-input"><span>Estado:</span></div>
<div class="col-md-4 form-group form-md-line-input">
<asp:DropDownList ID="DdlComExtEstado" AutoPostBack="true" OnSelectedIndexChanged="DdlEstado_SelectedIndexChanged" Visible="false" CssClass="form-control select2me" AppendDataBoundItems="true" Style="width: 100%;" runat="server" DataTextField="ClaveSATEstadoNombreEstado" DataValueField="CveEstado"></asp:DropDownList>
<asp:TextBox ID="TxtComExtEstado" CssClass="form-control input-sm" runat="server" Width="100%" Visible="false"></asp:TextBox>
</div>
</div>
<div class="row">
<div class="col-md-2 form-group form-md-line-input"><span>Municipio:</span></div>
<div class="col-md-4 form-group form-md-line-input">
<asp:DropDownList ID="DdlComExtMunicipio" AutoPostBack="true" OnSelectedIndexChanged="DdlMunicipio_SelectedIndexChanged" Visible="false" CssClass="form-control select2me" AppendDataBoundItems="true" Style="width: 100%;" runat="server" DataTextField="ClaveSATMunicipioDescripcion" DataValueField="CveMunicipio"></asp:DropDownList>
<asp:TextBox ID="TxtComExtMunicipio" CssClass="form-control input-sm" runat="server" Width="100%" Visible="false"></asp:TextBox>
</div>
<div class="col-md-2 form-group form-md-line-input"><span>Colonia:</span></div>
<div class="col-md-4 form-group form-md-line-input">
<asp:DropDownList ID="DdlComExtColonia" CssClass="form-control select2me" AppendDataBoundItems="true" Style="width: 100%;" Visible="false" runat="server" DataTextField="ClaveSATColoniaNombreAsentamiento" DataValueField="CveColonia"></asp:DropDownList>
<asp:TextBox ID="TxtComExtColonia" CssClass="form-control input-sm" runat="server" Width="100%" Visible="false"></asp:TextBox>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div> </div>
</div> </div>
<div class="row"> <div class="row">
@@ -2584,16 +2554,6 @@
</asp:TemplateField> </asp:TemplateField>
<asp:BoundField DataField="ClaveSATFraccionArancelariaDescripcion" HeaderText="Fracción Arancelaria" /> <asp:BoundField DataField="ClaveSATFraccionArancelariaDescripcion" HeaderText="Fracción Arancelaria" />
<asp:BoundField DataField="ClaveSATUnidadAduanaDescripcion" HeaderText="Unidad Aduana" /> <asp:BoundField DataField="ClaveSATUnidadAduanaDescripcion" HeaderText="Unidad Aduana" />
<%-- <asp:TemplateField HeaderText="Unidad Aduana">
<ItemTemplate>
<asp:DropDownList ID="DdlUnidadAduana" runat="server" AppendDataBoundItems="true" CssClass="select2me" DataTextField="ClaveSATUnidadAduanaDescripcion" DataValueField="CveUnidadAduana"></asp:DropDownList>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Fracción Arancelaria" ItemStyle-Width="40%">
<ItemTemplate>
<ADS:Dropdownlost ID="DdlFraccionArancelaria" runat="server" CssClassDdl="selecthidden" CssStyle="width: 100%;" DataTextField="ClaveSATFraccionArancelariaDescripcion" DataValueField="CveFraccionArancelaria"></ADS:Dropdownlost>
</ItemTemplate>
</asp:TemplateField>--%>
<asp:TemplateField HeaderText="Total USD"> <asp:TemplateField HeaderText="Total USD">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LblTotalUSD" Text='<%# (CDbl(Eval("Cantidad").ToString) * CDbl(Eval("PU").ToString)).ToString("N2") %>' runat="server"></asp:Label> <asp:Label ID="LblTotalUSD" Text='<%# (CDbl(Eval("Cantidad").ToString) * CDbl(Eval("PU").ToString)).ToString("N2") %>' runat="server"></asp:Label>
@@ -2610,6 +2570,7 @@
</div> </div>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</div>
</div> </div>
</div> </div>
</div> </div>

124
Ventas/Ventas.aspx.vb
View File

@@ -6419,6 +6419,7 @@ Partial Class Ventas
If ObjCliente.AplicaComercioExterior Then If ObjCliente.AplicaComercioExterior Then
ChkEmitirComercioExterior.Checked = True ChkEmitirComercioExterior.Checked = True
ChkEmitirComercioExterior_CheckedChanged(ChkEmitirComercioExterior, EventArgs.Empty)
End If End If
If ObjCliente.AplicaComercioExterior Then If ObjCliente.AplicaComercioExterior Then
@@ -6449,9 +6450,9 @@ Partial Class Ventas
End If End If
TxtNumRegIdTrib.Text = ObjCliente.NumRegIdTrib TxtNumRegIdTrib.Text = ObjCliente.NumRegIdTrib
TxtDestinatarioNombre.Text = ObjCliente.Nombre TxtDestinatarioNombre.Text = ObjCliente.Nombre
TxtComExtCalle.Text = ObjCliente.Direccion TxtComExtCalle.Text = ObjCliente.DtResultados.Rows(0)("ComExtCalle").ToString()
TxtComExtNumero.Text = ObjCliente.NoExt TxtComExtNumero.Text = ObjCliente.DtResultados.Rows(0)("ComExtNumExt").ToString()
TxtComExtCP.Text = ObjCliente.CP TxtComExtCP.Text = ObjCliente.DtResultados.Rows(0)("ComExtCP").ToString()
'en comercio exterior como regla de timbrado se utiliza el TC del día anterior 'en comercio exterior como regla de timbrado se utiliza el TC del día anterior
TxtTipoCambio.Text = GlobalTipoCambio(TxtFecha.Text.ToDate.AddDays(-1)).ToString() TxtTipoCambio.Text = GlobalTipoCambio(TxtFecha.Text.ToDate.AddDays(-1)).ToString()
@@ -8583,6 +8584,10 @@ Partial Class Ventas
Exit Sub Exit Sub
End If End If
End If End If
If ChkEmitirComercioExterior.Checked AndAlso DdlMoneda.SelectedValue.ToEntero() <> 2 Then
Alert("La moneda de la factura debe ser dolares cuando aplica comercio exterior.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
If UsuarioActual.Empresa.Funcionalidad(350) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Egs", "Dev") Then If UsuarioActual.Empresa.Funcionalidad(350) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Egs", "Dev") Then
@@ -12207,15 +12212,14 @@ Partial Class Ventas
Timbre.Complementos.ComercioExterior11.CertificadoOrigen = "0" Timbre.Complementos.ComercioExterior11.CertificadoOrigen = "0"
Timbre.Complementos.ComercioExterior11.Incoterm = GlobalDTIncoterm.FiltroPrimeroValor("ClaveSATIncoterm", $"CveIncoterm={DdlIncoterm.SelectedValue}") Timbre.Complementos.ComercioExterior11.Incoterm = GlobalDTIncoterm.FiltroPrimeroValor("ClaveSATIncoterm", $"CveIncoterm={DdlIncoterm.SelectedValue}")
Timbre.Complementos.ComercioExterior11.Subdivision = "0" Timbre.Complementos.ComercioExterior11.Subdivision = "0"
Timbre.Complementos.ComercioExterior11.TipoCambioUSD = If(Obj.CveMoneda = 1, 1, Obj.TipoCambio.ToString().ToDecimal)
Timbre.Complementos.ComercioExterior11.TipoCambioUSD = If(Obj.CveMoneda = 1, 1, Obj.TipoCambio)
If Timbre.Comprobante.TipoComprobante = "T" Then If Timbre.Comprobante.TipoComprobante = "T" Then
Timbre.Complementos.ComercioExterior11.MotivoTraslado = GlobalDTSATMotivoTraslado.FiltroPrimeroValor("ClaveSATMotivoTraslado", $"CveMotivoTraslado={DdlSATMotivoTraslado.SelectedValue}") Timbre.Complementos.ComercioExterior11.MotivoTraslado = GlobalDTSATMotivoTraslado.FiltroPrimeroValor("ClaveSATMotivoTraslado", $"CveMotivoTraslado={DdlSATMotivoTraslado.SelectedValue}")
Else Else
Timbre.Complementos.ComercioExterior11.MotivoTraslado = "" Timbre.Complementos.ComercioExterior11.MotivoTraslado = ""
End If End If
'EMISOR 'EMISOR
Dim Dr As DataRow Dim Dr As DataRow
Dr = Nothing Dr = Nothing
@@ -12233,22 +12237,6 @@ Partial Class Ventas
Timbre.Complementos.ComercioExterior11.Emisor.Pais = Dr("ClaveSATPais").ToString() Timbre.Complementos.ComercioExterior11.Emisor.Pais = Dr("ClaveSATPais").ToString()
Timbre.Complementos.ComercioExterior11.Emisor.CP = Dr("ClaveSATCP").ToString() Timbre.Complementos.ComercioExterior11.Emisor.CP = Dr("ClaveSATCP").ToString()
'RECEPTOR
Timbre.Complementos.ComercioExterior11.Receptor.NumRegIdTrib = If(Timbre.Comprobante.Version = "4.0", Obj.Cliente.NumRegIdTrib, "") ' EN LA VERSION 3.3 NO DEBE DE REGISTRARSE ESTE VALOR
Timbre.Complementos.ComercioExterior11.Receptor.Calle = Obj.Cliente.Direccion
Timbre.Complementos.ComercioExterior11.Receptor.NumeroExterior = Obj.Cliente.NoExt
Timbre.Complementos.ComercioExterior11.Receptor.NumeroInterior = Obj.Cliente.NoInt
Timbre.Complementos.ComercioExterior11.Receptor.Colonia = Obj.Cliente.ClaveSATColonia
Timbre.Complementos.ComercioExterior11.Receptor.Localidad = ""
Timbre.Complementos.ComercioExterior11.Receptor.Referencia = Obj.Cliente.ReferenciaFiscal
Timbre.Complementos.ComercioExterior11.Receptor.Municipio = Obj.Cliente.Ciudad
Timbre.Complementos.ComercioExterior11.Receptor.CP = Obj.Cliente.CP
Timbre.Complementos.ComercioExterior11.Receptor.Estado = Obj.Cliente.ClaveSATEstado
Timbre.Complementos.ComercioExterior11.Receptor.Pais = Obj.Cliente.ClaveSATPais
Timbre.Receptor.ResidenciaFiscal = Obj.Cliente.ClaveSATPais
Timbre.Receptor.NumeroRegistroTributario = Obj.Cliente.NumRegIdTrib
Dim ComExtPais, ComExtEstado, ComExtMunicipio, ComExtColonia, ComExtCalle, ComExtNumero, ComExtCP As String Dim ComExtPais, ComExtEstado, ComExtMunicipio, ComExtColonia, ComExtCalle, ComExtNumero, ComExtCP As String
ComExtColonia = "" : ComExtMunicipio = "" ComExtColonia = "" : ComExtMunicipio = ""
ComExtPais = GlobalDTGralPaises.FiltroPrimeroValor("ClaveSATPais", $"CvePais={DdlComExtPais.SelectedValue}") ComExtPais = GlobalDTGralPaises.FiltroPrimeroValor("ClaveSATPais", $"CvePais={DdlComExtPais.SelectedValue}")
@@ -12270,21 +12258,38 @@ Partial Class Ventas
ComExtColonia = TxtComExtColonia.Text.Trim ComExtColonia = TxtComExtColonia.Text.Trim
End If End If
'DESTINATARIO 'RECEPTOR
Timbre.Complementos.ComercioExterior11.Destinatario.Nombre = TxtDestinatarioNombre.Text.Trim Timbre.Complementos.ComercioExterior11.Receptor.NumRegIdTrib = If(Timbre.Comprobante.Version = "4.0", Obj.Cliente.NumRegIdTrib, "") ' EN LA VERSION 3.3 NO DEBE DE REGISTRARSE ESTE VALOR
Timbre.Complementos.ComercioExterior11.Destinatario.Calle = ComExtCalle Timbre.Complementos.ComercioExterior11.Receptor.Calle = ComExtCalle
Timbre.Complementos.ComercioExterior11.Destinatario.NumeroExterior = ComExtNumero Timbre.Complementos.ComercioExterior11.Receptor.NumeroExterior = ComExtNumero
Timbre.Complementos.ComercioExterior11.Destinatario.NumeroInterior = "" Timbre.Complementos.ComercioExterior11.Receptor.NumeroInterior = ""
Timbre.Complementos.ComercioExterior11.Destinatario.Colonia = ComExtColonia Timbre.Complementos.ComercioExterior11.Receptor.Colonia = ComExtColonia
Timbre.Complementos.ComercioExterior11.Destinatario.Localidad = "" Timbre.Complementos.ComercioExterior11.Receptor.Localidad = ""
Timbre.Complementos.ComercioExterior11.Destinatario.Referencia = Obj.Cliente.ReferenciaFiscal Timbre.Complementos.ComercioExterior11.Receptor.Referencia = Obj.Cliente.ReferenciaFiscal
Timbre.Complementos.ComercioExterior11.Destinatario.Municipio = ComExtMunicipio Timbre.Complementos.ComercioExterior11.Receptor.Municipio = ComExtMunicipio
Timbre.Complementos.ComercioExterior11.Destinatario.CP = ComExtCP Timbre.Complementos.ComercioExterior11.Receptor.CP = ComExtCP
Timbre.Complementos.ComercioExterior11.Destinatario.Estado = ComExtEstado Timbre.Complementos.ComercioExterior11.Receptor.Estado = ComExtEstado
Timbre.Complementos.ComercioExterior11.Destinatario.Pais = ComExtPais Timbre.Complementos.ComercioExterior11.Receptor.Pais = ComExtPais
Timbre.Complementos.ComercioExterior11.Destinatario.NumRegIdTrib = TxtNumRegIdTrib.Text.Trim Timbre.Receptor.ResidenciaFiscal = Obj.Cliente.ClaveSATPais
Timbre.Receptor.NumeroRegistroTributario = Obj.Cliente.NumRegIdTrib
'DESTINATARIO
Timbre.Complementos.ComercioExterior11.Destinatario = Nothing
'Timbre.Complementos.ComercioExterior11.Destinatario.Nombre = TxtDestinatarioNombre.Text.Trim
'Timbre.Complementos.ComercioExterior11.Destinatario.Calle = ComExtCalle
'Timbre.Complementos.ComercioExterior11.Destinatario.NumeroExterior = ComExtNumero
'Timbre.Complementos.ComercioExterior11.Destinatario.NumeroInterior = ""
'Timbre.Complementos.ComercioExterior11.Destinatario.Colonia = ComExtColonia
'Timbre.Complementos.ComercioExterior11.Destinatario.Localidad = ""
'Timbre.Complementos.ComercioExterior11.Destinatario.Referencia = Obj.Cliente.ReferenciaFiscal
'Timbre.Complementos.ComercioExterior11.Destinatario.Municipio = ComExtMunicipio
'Timbre.Complementos.ComercioExterior11.Destinatario.CP = ComExtCP
'Timbre.Complementos.ComercioExterior11.Destinatario.Estado = ComExtEstado
'Timbre.Complementos.ComercioExterior11.Destinatario.Pais = ComExtPais
'Timbre.Complementos.ComercioExterior11.Destinatario.NumRegIdTrib = TxtNumRegIdTrib.Text.Trim
'MERCANCIAS 'MERCANCIAS
For Each Gvr As GridViewRow In GvComercioExterior.Rows For Each Gvr As GridViewRow In GvComercioExterior.Rows
Dim mercancia As New CFDIComercioExterior11Mercancias With {.CantidadAduana = Gvr.FCTextBox("TxtCantidad").Text.ToDecimal, Dim mercancia As New CFDIComercioExterior11Mercancias With {.CantidadAduana = Gvr.FCTextBox("TxtCantidad").Text.ToDecimal,
@@ -13299,7 +13304,12 @@ Partial Class Ventas
If UsuarioActual.CveEmpresa.Contiene(13, 83) Then If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
tipoCambio = GlobalTipoCambio(ObjFactura.Fecha.AddDays(-1)).ToString().ToDecimal tipoCambio = GlobalTipoCambio(ObjFactura.Fecha.AddDays(-1)).ToString().ToDecimal
Else Else
tipoCambio = GlobalTipoCambio(ObjFactura.Fecha).ToString().ToDecimal If ChkEmitirComercioExterior.Checked Then
tipoCambio = GlobalTipoCambio(ObjFactura.Fecha.AddDays(-1)).ToString().ToDecimal
Else
tipoCambio = GlobalTipoCambio(ObjFactura.Fecha).ToString().ToDecimal
End If
End If End If
Else Else
tipoCambio = 1 tipoCambio = 1
@@ -16957,7 +16967,7 @@ Partial Class Ventas
If UsuarioActual.TienePermisoProceso(68) AndAlso Not PSCodigoSAT.Contiene("84111506", "80141610") Then TxtPrecio.Enabled = False If UsuarioActual.TienePermisoProceso(68) AndAlso Not PSCodigoSAT.Contiene("84111506", "80141610") Then TxtPrecio.Enabled = False
If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count = 0 Then If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count = 0 AndAlso Not ChkEmitirComercioExterior.Checked Then
DdlMoneda.SelectedValueExist(drPS("CveMoneda").ToString()) DdlMoneda.SelectedValueExist(drPS("CveMoneda").ToString())
CambiaMoneda() CambiaMoneda()
End If End If
@@ -21766,7 +21776,7 @@ Partial Class Ventas
ChkConvertirDolares.Enabled = Not UsuarioActual.TienePermisoProceso(324) ChkConvertirDolares.Enabled = Not UsuarioActual.TienePermisoProceso(324)
Case "2" Case "2"
TxtTipoCambioDlls.Text = "1" TxtTipoCambioDlls.Text = "1"
If UsuarioActual.CveEmpresa.Contiene(13, 83) Then If UsuarioActual.CveEmpresa.Contiene(13, 83) OrElse ChkEmitirComercioExterior.Checked Then
TxtTipoCambio.Text = GlobalTipoCambio(TxtFecha.Text.ToDate.AddDays(-1)).ToString() TxtTipoCambio.Text = GlobalTipoCambio(TxtFecha.Text.ToDate.AddDays(-1)).ToString()
Else Else
TxtTipoCambio.Text = GlobalTipoCambio(TxtFecha.Text.ToDate).ToString() TxtTipoCambio.Text = GlobalTipoCambio(TxtFecha.Text.ToDate).ToString()
@@ -21775,7 +21785,7 @@ Partial Class Ventas
ChkConvertirDoctoPesos.Enabled = Not UsuarioActual.TienePermisoProceso(324) ChkConvertirDoctoPesos.Enabled = Not UsuarioActual.TienePermisoProceso(324)
Case Else Case Else
If UsuarioActual.CveEmpresa.Contiene(13, 83) Then If UsuarioActual.CveEmpresa.Contiene(13, 83) OrElse ChkEmitirComercioExterior.Checked Then
TxtTipoCambio.Text = GlobalTipoCambio(TxtFecha.Text.ToDate.AddDays(-1)).ToString() TxtTipoCambio.Text = GlobalTipoCambio(TxtFecha.Text.ToDate.AddDays(-1)).ToString()
Else Else
TxtTipoCambio.Text = GlobalTipoCambio(TxtFecha.Text.ToDate).ToString() TxtTipoCambio.Text = GlobalTipoCambio(TxtFecha.Text.ToDate).ToString()
@@ -24309,6 +24319,10 @@ Partial Class Ventas
ChkDevAlm.Checked = True ChkDevAlm.Checked = True
End If End If
If UsuarioActual.Empresa.Funcionalidad(567) = "1" AndAlso ObjFacturaCancelacion.TipoDocto = "Rem" Then
ChkDevAlm.Checked = True
End If
resp = ObjFacturaCancelacion.CancelarFactura(ChkDevAlm.Checked, ListaRemisionesCancelar, CveMotivoCancelacion:=DdlMotivoCancelacion.SelectedValue.ToEntero(), Motivo:=TxtMotivoCancelacion.Text.Trim(), CveEstadoCancelacion:=Me.CveEstadoCancelacion) resp = ObjFacturaCancelacion.CancelarFactura(ChkDevAlm.Checked, ListaRemisionesCancelar, CveMotivoCancelacion:=DdlMotivoCancelacion.SelectedValue.ToEntero(), Motivo:=TxtMotivoCancelacion.Text.Trim(), CveEstadoCancelacion:=Me.CveEstadoCancelacion)
strMensaje.Append(resp.Mensaje) strMensaje.Append(resp.Mensaje)
Dim DtBonificaciones As DataTable = Nothing Dim DtBonificaciones As DataTable = Nothing
@@ -25116,11 +25130,13 @@ Partial Class Ventas
End If End If
DdlMarca.Items.Clear() DdlMarca.Items.Clear()
DdlMarcaPSDes.Items.Clear() DdlMarcaPSDes.Items.Clear()
Dim ObjMarcas As New ClsProductosServicios 'Dim ObjMarcas As New ClsProductosServicios
ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) 'ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa)
DdlMarca.DataSource = ObjMarcas.DtResultados 'DdlMarca.DataSource = ObjMarcas.DtResultados
DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados 'DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados
ObjMarcas.Dispose() 'ObjMarcas.Dispose()
DdlMarca.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
DdlMarcaPSDes.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
DdlMarca.DataBind() DdlMarca.DataBind()
DdlMarcaPSDes.DataBind() DdlMarcaPSDes.DataBind()
End If End If
@@ -28366,7 +28382,7 @@ Partial Class Ventas
If DdlMoneda.SelectedValue <> "1" Then If DdlMoneda.SelectedValue <> "1" Then
If UsuarioActual.CveEmpresa.Contiene(13, 83) Then If UsuarioActual.CveEmpresa.Contiene(13, 83) OrElse ChkEmitirComercioExterior.Checked Then
TxtTipoCambio.Text = GlobalTipoCambio(Now.AddDays(-1)).ToString() TxtTipoCambio.Text = GlobalTipoCambio(Now.AddDays(-1)).ToString()
Else Else
TxtTipoCambio.Text = GlobalTipoCambio(Now).ToString() TxtTipoCambio.Text = GlobalTipoCambio(Now).ToString()
@@ -28460,7 +28476,7 @@ Partial Class Ventas
'verifica el tipo de cambio que se actualice 'verifica el tipo de cambio que se actualice
If DdlMoneda.SelectedValue <> "1" Then If DdlMoneda.SelectedValue <> "1" Then
If UsuarioActual.CveEmpresa.Contiene(13, 83) Then If UsuarioActual.CveEmpresa.Contiene(13, 83) OrElse ChkEmitirComercioExterior.Checked Then
TxtTipoCambio.Text = GlobalTipoCambio(Now.AddDays(-1)).ToString() TxtTipoCambio.Text = GlobalTipoCambio(Now.AddDays(-1)).ToString()
Else Else
TxtTipoCambio.Text = GlobalTipoCambio(Now).ToString() TxtTipoCambio.Text = GlobalTipoCambio(Now).ToString()
@@ -29577,7 +29593,7 @@ Partial Class Ventas
End If End If
If UsuarioActual.CveEmpresa.Contiene(13, 83) Then If UsuarioActual.CveEmpresa.Contiene(13, 83) OrElse ChkEmitirComercioExterior.Checked Then
TxtTipoCambio.Text = GlobalTipoCambio(Now.AddDays(-1)).ToString() TxtTipoCambio.Text = GlobalTipoCambio(Now.AddDays(-1)).ToString()
Else Else
TxtTipoCambio.Text = GlobalTipoCambio(Now).ToString() TxtTipoCambio.Text = GlobalTipoCambio(Now).ToString()
@@ -33300,7 +33316,7 @@ Partial Class Ventas
End If End If
ObjFactura.SetSubProyecto() 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 End If
Next Next
@@ -35518,6 +35534,18 @@ Partial Class Ventas
End Function End Function
Protected Sub ChkEmitirComercioExterior_CheckedChanged(sender As Object, e As EventArgs) Protected Sub ChkEmitirComercioExterior_CheckedChanged(sender As Object, e As EventArgs)
If CveVenta <= 0 OrElse EsCreaApartirDe Then
If ChkEmitirComercioExterior.Checked Then
DdlMoneda.SelectedValueExist("2")
CambiaMoneda()
TxtTipoCambio.Text = GlobalTipoCambio(TxtFecha.Text.ToDate.AddDays(-1)).ToString()
Alert("El tipo de cambio va ser el del dia anterior a la fecha de la factura cuando se utiliza comercio exterior")
Else
TxtTipoCambio.Text = GlobalTipoCambio(TxtFecha.Text.ToDate).ToString()
End If
UpPS.Update()
End If
End Sub End Sub