diff --git a/Acumuladores/CatFoliosGarantia.aspx.vb b/Acumuladores/CatFoliosGarantia.aspx.vb
index 3acab2744..6d76cfee3 100644
--- a/Acumuladores/CatFoliosGarantia.aspx.vb
+++ b/Acumuladores/CatFoliosGarantia.aspx.vb
@@ -1,6 +1,6 @@
Imports System.Data
Imports Extensiones
-
+Imports Microsoft.Reporting.WebForms
Partial Class Acumuladores_CatFoliosGarantia
Inherits ClsPaginas
@@ -41,10 +41,10 @@ Partial Class Acumuladores_CatFoliosGarantia
CargadatosGvFolioGarantia(DdlEstatus.SelectedValue.ToEntero, DdlTipoFolio.SelectedValue)
End If
- End Sub
-
-
-
+ End Sub
+
+
+
#Region "Folios Garantía"
Private Sub CargaSubProyectos()
CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, lblSubProyecto)
@@ -162,27 +162,22 @@ Partial Class Acumuladores_CatFoliosGarantia
End Sub
- Public Sub Remove_ClickFolioGarantia(sender As Object, e As EventArgs)
-
- Dim objAcum As New ClsAcumuladores
+ Public Sub Remove_ClickFolioGarantia(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim activo As Boolean = 0
Dim CveCapacitador As Integer = GvRow.DataKey("CveFolioGarantia")
+ Dim objAcum As New ClsAcumuladores
If objAcum.FoliosGarantiaRemove(CveCapacitador, UsuarioActual.CveEmpresa) Then
- CargadatosGvFolioGarantia(-1, "-1")
-
Alert("Capacitador Eliminó Correctamente ", TipoMensaje.MsgInformacion)
Else
Alert("Ocurrió un error al Eliminar el Folio de Garantía", TipoMensaje.MsgError)
End If
-
objAcum.Dispose()
CargadatosGvFolioGarantia(-1, "-1")
CveFolioGarantia = -1
-
End Sub
Public Sub Edit_ClickFolioGarantia(sender As Object, e As EventArgs)
@@ -263,9 +258,9 @@ Partial Class Acumuladores_CatFoliosGarantia
'1.- Consecutivo Partida-->1
SbTxt.AppendFormat("{0}@", GvRow.DataKey("Consecutivo"))
'2.- Cliente-->100407
- SbTxt.AppendFormat("{0}@", GvRow.DataKey("CodigoCliente"))
+ SbTxt.AppendFormat("{0}@", GvRow.DataKey("CodigoSucursal"))
'3. Codigo De Articulo --> 171402
- SbTxt.AppendFormat("{0}@", GvRow.DataKey("Codigo"))
+ SbTxt.AppendFormat("{0}@", GvRow.DataKey("CodigoProducto2"))
'4. Tipo De Uso --> A
SbTxt.AppendFormat("{0}@", GvRow.DataKey("CodigoTipoUso"))
'5. Defecto --> P
@@ -277,9 +272,9 @@ Partial Class Acumuladores_CatFoliosGarantia
'8. Codigo De Inspeccion --> J8K
SbTxt.AppendFormat("{0}@", GvRow.DataKey("CodigoInspeccion"))
'9. Fecha De Venta --> 05/09/2009
- SbTxt.AppendFormat("{0}@", GvRow.DataKey("FechaVenta").ToDateTime().ToString("dd/MM/yyyy"))
+ SbTxt.AppendFormat("{0}@", GvRow.DataKey("FechaVenta").ToDateTime().ToString("MM-dd-yyyyy"))
'10. Fecha De Reclamacion --> 05/07/2010
- SbTxt.AppendFormat("{0}@", GvRow.DataKey("FechaReclamacion").ToDateTime().ToString("dd/MM/yyyy"))
+ SbTxt.AppendFormat("{0}@", GvRow.DataKey("FechaReclamacion").ToDateTime().ToString("MM-dd-yyyyy"))
'11. TipoComprobante --> 1
SbTxt.AppendFormat("{0}@", GvRow.DataKey("TipoComprobante"))
'12. Comprobante --> N/A
@@ -305,4 +300,10 @@ Partial Class Acumuladores_CatFoliosGarantia
Response.End()
End Sub
+
+ Protected Sub GvGarantiasDetalle_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+ If e.Row.RowType = DataControlRowType.DataRow Then
+ e.Row.FCHyperLink("HlDescargarPDF").NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={Encripta($"OP=AJUSTE&CveGarantiaDetalle={e.Row.DBCampo("CveGarantiaDetalle")}")}"
+ End If
+ End Sub
End Class
diff --git a/Acumuladores/EntradasUsadosResumenRep.aspx b/Acumuladores/EntradasUsadosResumenRep.aspx
index 9fe1ff8df..67f945d0f 100644
--- a/Acumuladores/EntradasUsadosResumenRep.aspx
+++ b/Acumuladores/EntradasUsadosResumenRep.aspx
@@ -14,7 +14,7 @@
-
+
diff --git a/Acumuladores/EntradasUsadosResumenRep.aspx.vb b/Acumuladores/EntradasUsadosResumenRep.aspx.vb
index 4043c344f..8e389cde6 100644
--- a/Acumuladores/EntradasUsadosResumenRep.aspx.vb
+++ b/Acumuladores/EntradasUsadosResumenRep.aspx.vb
@@ -9,6 +9,7 @@ Partial Class Acumuladores_RepEntradasUsados
Private DiasSemana(7) As String
Private Meses(12) As String
+ Private Cargado As Integer = 0
Private Property DatosEntradasUsados() As DataTable
Get
@@ -25,8 +26,6 @@ Partial Class Acumuladores_RepEntradasUsados
txtFechaF.Text = Today
CargarDatos()
CargarCombos()
-
-
End If
End Sub
@@ -36,14 +35,18 @@ Partial Class Acumuladores_RepEntradasUsados
End Sub
Protected Sub CargarCombos()
- Dim ObjAcum As New ClsAcumuladores
Dim fecha As Date = Date.Now.AddMonths(-1)
- ObjAcum.GetAñosVentas(UsuarioActual.CveEmpresa)
- DdlAño.DataSource = ObjAcum.DtResultados
- DdlAño.DataBind()
- DdlAño.SelectedValue = fecha.Year.ToEntero
- ObjAcum.Dispose()
+ Dim Años As New ListItem
+ Dim i As Integer
+ If Cargado = 0 Then
+ For i = Date.Now.Year.ToEntero To (fecha.Year.ToEntero - 5) Step -1
+ Años = New ListItem(i, i)
+ DdlAño.Items.Add(Años)
+ Next
+ End If
+ Cargado = 1
+ DdlAño.SelectedValue = fecha.Year.ToEntero
DdlMes.SelectedValue = fecha.Month.ToEntero
End Sub
diff --git a/Acumuladores/RepEntradasUsadosClientes.aspx b/Acumuladores/RepEntradasUsadosClientes.aspx
index a2dd036e1..7b495acc8 100644
--- a/Acumuladores/RepEntradasUsadosClientes.aspx
+++ b/Acumuladores/RepEntradasUsadosClientes.aspx
@@ -16,7 +16,7 @@
-
+
@@ -39,7 +39,7 @@
-
Almacen:
+
Almacén:
diff --git a/App_Code/ClsAcumuladores.vb b/App_Code/ClsAcumuladores.vb
index b14e03dfe..940bf0817 100644
--- a/App_Code/ClsAcumuladores.vb
+++ b/App_Code/ClsAcumuladores.vb
@@ -727,8 +727,9 @@ Public Class ClsAcumuladores
Public Function AddGarantiasDetalle(CveVentaDetalle As Integer, CvePS As Integer, CveFolioGarantia As Integer, CveTipoUso As Integer,
CodigoEnsamble As String, CodigoLinea As String, CodigoInspeccion As String,
- CveTipoDefecto As Integer, NumPoliza As String, Importe As Double,
- Consecutivo As String, FechaAjuste As DateTime, PorcentajeAjuste As Decimal) As Boolean
+ CveTipoDefecto As Integer, CodigoTD As String, TipoComprobante As Integer, Comprobante As String, Importe As Double,
+ Consecutivo As String, FechaAjuste As DateTime, PorcentajeAjuste As Decimal, CveBCIAjuste As Integer, Etiqueta As String, CveClienteDistribuidor As Integer,
+ CveModeloAuto As Integer, Año As String) As Boolean
Dim Retorno As Boolean = False
SqlDataAdapter("PA_Acum_GarantiasDetalleAdd")
With SqlAdapter.SelectCommand.Parameters
@@ -739,12 +740,19 @@ Public Class ClsAcumuladores
.Add("@CodigoEnsamble", SqlDbType.VarChar).Value = CodigoEnsamble
.Add("@CodigoLinea", SqlDbType.VarChar).Value = CodigoLinea
.Add("@CodigoInspeccion", SqlDbType.VarChar).Value = CodigoInspeccion
- .Add("@CveTipoDefecto", SqlDbType.Int).Value = CveTipoDefecto
- .Add("@NumPoliza", SqlDbType.VarChar).Value = NumPoliza
+ .Add("@CveTipoDefecto", SqlDbType.Int).Value = CveTipoDefecto
+ .Add("@CodigoTD", SqlDbType.VarChar).Value = CodigoTD
+ .Add("@TipoComprobante", SqlDbType.TinyInt).Value = TipoComprobante
+ .Add("@Comprobante", SqlDbType.VarChar).Value = Comprobante
.Add("@Importe", SqlDbType.Float).Value = Importe
.Add("@Consecutivo", SqlDbType.VarChar).Value = Consecutivo
- .Add("@FechaAjuste", SqlDbType.DateTime).Value = FechaAjuste
+ .Add("@FechaAjuste", SqlDbType.DateTime).Value = FechaAjuste
.Add("@PorcentajeAjuste", SqlDbType.Float).Value = PorcentajeAjuste
+ .Add("@CveBCIAjuste", SqlDbType.Int).Value = CveBCIAjuste
+ .Add("@Etiqueta", SqlDbType.VarChar).Value = Etiqueta
+ .Add("@CveClienteDistribuidor", SqlDbType.Int).Value = CveClienteDistribuidor
+ .Add("@CveModeloAuto", SqlDbType.Int).Value = CveModeloAuto
+ .Add("@Año", SqlDbType.VarChar).Value = Año
End With
Try
SqlAdapter.Fill(Data)
@@ -754,6 +762,8 @@ Public Class ClsAcumuladores
End Try
Return Retorno
End Function
+
+
Public Function GetGarantiasDetalle(CveVenta As Integer) As Boolean
Dim Retorno As Boolean = False
SqlDataAdapter("PA_Acum_GarantiasDetalleGet")
@@ -1153,13 +1163,14 @@ Public Class ClsAcumuladores
Return Retorno
End Function
- Public Function GetFoliosGarantiasDetalle(CveFolioGarantia As Integer) As Boolean
+ Public Function GetFoliosGarantiasDetalle(CveFolioGarantia As Integer, Optional CveGarantiaDetalle As Integer = -1) As Boolean
Dim Retorno As Boolean = False
SqlDataAdapter("PA_Acum_GarantiasDetalleFolioGet")
With SqlAdapter.SelectCommand.Parameters
- .Add("@CveFolioGarantia", SqlDbType.Int).Value = CveFolioGarantia
+ .Add("@CveFolioGarantia", SqlDbType.Int).Value = CveFolioGarantia
+ .Add("@CveGarantiaDetalle", SqlDbType.Int).Value = CveGarantiaDetalle
End With
Try
@@ -1195,20 +1206,6 @@ Public Class ClsAcumuladores
Return Retorno
End Function
- Public Function GetAñosVentas(CveEmprea As Integer) As Boolean
- Dim Retorno As Boolean = False
- SqlDataAdapter(String.Format("select year(Fecha) as Año from Ventas where CveEmpresa = {0} group by year(Fecha) Order by year(Fecha)", CveEmprea.ToString), CommandType.Text)
-
- Try
- SqlAdapter.Fill(Data)
- Retorno = True
- Catch ex As Exception
- OnError(String.Format("Ocurrió un error al consultar los año de venta"), ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
- End Try
- Return Retorno
-
- End Function
-
#Region " IDisposable Support "
' IDisposable
diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb
index aaa18df7f..ccf45d815 100644
--- a/App_Code/ClsContPAQi.vb
+++ b/App_Code/ClsContPAQi.vb
@@ -7373,10 +7373,10 @@ Public Class ClsContPAQi
AND PP.Fecha >= @Inicio AND PP.Fecha <= @Fin")
StrSQL.Append(" END; ")
- StrSQL.Append(" SELECT P.Id,P.Fecha,T.Nombre as TipoPoliza, MP.IdPoliza, P.IdUsuario, P.Concepto AS ConceptoPoliza,P.Cargos,P.Abonos,P.Folio ,P.Folio AS Numero , SN.Nombre AS SegNeg, MP.Concepto, ")
- StrSQL.Append(" CASE WHEN ISNUMERIC(C.CODIGO) = 1 THEN FORMAT(CAST (C.CODIGO AS FLOAT),(SELECT REPLACE(Mascarilla,'X','0') FROM Parametros)) ELSE C.CODIGO END AS CuentaFormato , MP.TipoMovto ")
- StrSQL.Append(" ,C.Nombre AS Cuenta ,MP.Referencia AS Referencia, CASE WHEN MP.TipoMovto=0 THEN MP.Importe ELSE 0 END AS Cargo ")
- StrSQL.Append(" , CASE WHEN MP.TipoMovto=1 THEN MP.Importe ELSE 0 END AS Abono,U.Nombre AS UsuarioRegistro ")
+ StrSQL.Append(" SELECT P.Id,P.Fecha,T.Nombre as TipoPoliza, MP.Id, P.IdUsuario, P.Concepto AS ConceptoPoliza,P.Cargos,P.Abonos,P.Folio ,P.Folio AS Numero , SN.Nombre AS SegNeg, MP.Concepto, ")
+ StrSQL.Append(" CASE WHEN ISNUMERIC(C.CODIGO) = 1 THEN FORMAT(CAST (C.CODIGO AS FLOAT),(SELECT REPLACE(Mascarilla,'X','0') FROM Parametros)) ELSE C.CODIGO END AS CodigoCuenta , MP.TipoMovto ")
+ StrSQL.Append(" ,C.Nombre AS NombreCuenta ,MP.Referencia AS Referencia, CASE WHEN MP.TipoMovto=0 THEN MP.Importe ELSE 0 END AS Cargo ")
+ StrSQL.Append(" , CASE WHEN MP.TipoMovto=1 THEN MP.Importe ELSE 0 END AS Abono,U.Nombre AS NombreUsuario ")
StrSQL.Append(" FROM Polizas P ")
StrSQL.Append(" LEFT JOIN MovimientosPoliza MP ON P.Id= MP.IdPoliza ")
diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 4956aa129..03d56386d 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -5723,8 +5723,8 @@ Public Class ClsContabilidad
End Function
Public Function AddCuentasAsignaciones(Optional CveConceptoContable As Integer = -1, Optional CveCuenta As Integer = -1, Optional IdCtaContable As Integer = -1,
- Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1,
- Optional CveClasificacion As Integer = -1, Optional CveAlmacen As Integer = -1, Optional PorcentajeIVA As Decimal = -1) As Boolean
+ Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveClasificacion As Integer = -1,
+ Optional CveAlmacen As Integer = -1, Optional PorcentajeIVA As Decimal = -1, Optional CveConceptoNomina As Decimal = -1) As Boolean
Dim Retorno = False
DataAdapter("PA_Conta_CuentasAsignacionesAdd")
@@ -5739,6 +5739,7 @@ Public Class ClsContabilidad
.Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
.Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
.Add("@PorcentajeIVA", SqlDbType.Decimal).Value = PorcentajeIVA
+ .Add("@CveConceptoNomina", SqlDbType.Decimal).Value = CveConceptoNomina
End With
Try
@@ -5773,7 +5774,7 @@ Public Class ClsContabilidad
Public Function UpdateCuentasAsignaciones(CveConceptoAsignacion As Integer, Optional CveConceptoContable As Integer = -1, Optional CveCuenta As Integer = -1,
Optional IdCtaContable As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1,
Optional CvePersonal As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveAlmacen As Integer = -1,
- Optional PorcentajeIVA As Decimal = -1) As Boolean
+ Optional PorcentajeIVA As Decimal = -1, Optional CveConceptoNomina As Decimal = -1) As Boolean
Dim Retorno = False
DataAdapter("PA_Conta_CuentasAsignacionesUpdate")
@@ -5789,6 +5790,7 @@ Public Class ClsContabilidad
.Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
.Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
.Add("@PorcentajeIVA", SqlDbType.Decimal).Value = PorcentajeIVA
+ .Add("@CveConceptoNomina", SqlDbType.Decimal).Value = CveConceptoNomina
End With
Try
@@ -5921,7 +5923,7 @@ Public Class ClsContabilidad
Public Function GetPrePolizasImpresion(CveEmpresa As Integer, FechaI As String, FechaF As String, Optional CveTipoPoliza As Integer = -1, Optional FolioI As Integer = -1,
Optional FolioF As Integer = -1, Optional CveUsuario As Integer = -1, Optional CveSubProyecto As Integer = -1,
- Optional CveCuenta As Integer = -1, Optional CvePlantillaPoliza As Integer = -1, Optional CveProveedor As Integer = -1) As Boolean
+ Optional CveCuenta As Integer = -1, Optional CvePlantillaPoliza As Integer = -1, Optional CveTipoProveedor As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Conta_PrePolizasImpresionGet")
@@ -5937,14 +5939,14 @@ Public Class ClsContabilidad
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
.Add("@CvePlantillaPoliza", SqlDbType.Int).Value = CvePlantillaPoliza
- .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+ .Add("@CveTipoProveedor", SqlDbType.Int).Value = CveTipoProveedor
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
- Me.OnError("Ocurrió un error al eliminar el catálogo de Conta Ejercicios", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ Me.OnError("Ocurrió un error al obtener impresión pólizas", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb
index 75a06a6fe..133cb56e1 100644
--- a/App_Code/ClsNominas.vb
+++ b/App_Code/ClsNominas.vb
@@ -2031,6 +2031,28 @@ Public Class ClsNominas
End With
+ SqlAdapter.Fill(DTSet)
+ retorno = True
+ Catch sqEx As SqlException
+ retorno = False
+ OnError("Ocurrió un error al Realizar el calculo de nomina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ Catch ex As Exception
+ retorno = False
+ OnError("Ocurrió un error al Realizar el calculo de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return retorno
+ End Function
+
+ Public Function GetCalculoSBC(CveEmpresa As Integer, FechaCalculo As String) As Boolean
+ Dim retorno As Boolean = False
+ Try
+ DTSet = New DataSet()
+ DataAdapter("PA_GetCalculoSBC", CommandType.StoredProcedure)
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ .Add("@Fecha", SqlDbType.Date).Value = FechaCalculo
+ End With
+
SqlAdapter.Fill(DTSet)
retorno = True
Catch sqEx As SqlException
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index b4557e050..b1a8ffaf3 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -3816,7 +3816,8 @@ Public Class ClsPaginas
If Application("GlobalSIGAppPaginas") Is Nothing Then
PaginaDict = New System.Collections.Hashtable
- PaginaDict.Add("/Nomina/Acumulados.aspx".ToUpper(), -1)
+ PaginaDict.Add("/Nomina/Acumulados.aspx".ToUpper(), 916)
+ PaginaDict.Add("/RH/CalculoSBC.aspx".ToUpper(), 915)
PaginaDict.Add("/Inicio.aspx".ToUpper(), -1)
PaginaDict.Add("/reporteador.aspx".ToUpper(), -1)
PaginaDict.Add("/General/CATIEPSxEntidadFed.aspx".ToUpper(), 719)
diff --git a/App_Code/ClsSisRoles.vb b/App_Code/ClsSisRoles.vb
index da2d9a59a..85b9a7211 100644
--- a/App_Code/ClsSisRoles.vb
+++ b/App_Code/ClsSisRoles.vb
@@ -237,13 +237,15 @@ Public Class ClsSisRoles
Return Retorno
End Function
- Public Function GetRolesModulos(CveRol As Integer, CveModulo As Integer) As Boolean
+ Public Function GetRolesModulos(CveRol As Integer, CveModulo As Integer, CvePlataforma As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Sis_RolesModulosGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveRol", SqlDbType.Int).Value = CveRol
.Add("@CveModulo", SqlDbType.Int).Value = CveModulo
+ .Add("@CvePlataforma", SqlDbType.Int).Value = CvePlataforma
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
diff --git a/App_Code/ClsSubProyectos.vb b/App_Code/ClsSubProyectos.vb
index f14b98c57..eb0f0d55a 100644
--- a/App_Code/ClsSubProyectos.vb
+++ b/App_Code/ClsSubProyectos.vb
@@ -327,13 +327,13 @@ Public Class ClsSubProyectos
OnError("Ocurrió un error al obtener las ventas no timbradas por centro de costo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
- End Function
-
+ End Function
+
#Region "N U E V O C E N T R O D E C O S T O S"
Public Function AddCentroCosto(SubProyecto As String, IdSegNeg As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveProyecto As Integer, Optional Serie As String = "", Optional IVA As Double = 0.0, Optional Calle As String = "", Optional NoExt As String = "",
Optional NoInt As String = "", Optional Colonia As String = "", Optional Localidad As String = "", Optional Municipio As String = "", Optional Estado As String = "", Optional Pais As String = "", Optional CP As String = "", Optional TipoSucursal As Integer = 0, Optional EsSucursal As Integer = 0,
Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveColonia As Integer = -1, Optional AplicaComercioExterior As Boolean = False, Optional Correo As String = "", Optional CvePrecioLista As Integer = -1,
- Optional Telefono As String = "", Optional NoVerificaAlmacen As Boolean = False) As Boolean
+ Optional Telefono As String = "", Optional NoVerificaAlmacen As Boolean = False, Optional CodigoSucursal As String = "") As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_CentroCostoAdd")
@@ -365,7 +365,8 @@ Public Class ClsSubProyectos
.Add("@Correo", SqlDbType.VarChar).Value = Correo
.Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista
.Add("@Telefono", SqlDbType.VarChar).Value = Telefono
- .Add("@NoVerificaAlmacen", SqlDbType.Bit).Value = NoVerificaAlmacen
+ .Add("@NoVerificaAlmacen", SqlDbType.Bit).Value = NoVerificaAlmacen
+ .Add("@CodigoSucursal", SqlDbType.VarChar).Value = CodigoSucursal
.Add("@CveSubProyecto", SqlDbType.Int).Direction = ParameterDirection.Output
End With
@@ -388,7 +389,7 @@ Public Class ClsSubProyectos
Public Function UpdateCentroCosto(CveSubProyecto As Integer, SubProyecto As String, IdSegNeg As Integer, Estatus As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveProyecto As Integer, Optional Serie As String = "", Optional IVA As Double = 0.0, Optional Calle As String = "", Optional NoExt As String = "",
Optional NoInt As String = "", Optional Colonia As String = "", Optional Localidad As String = "", Optional Municipio As String = "", Optional Estado As String = "", Optional Pais As String = "", Optional CP As String = "", Optional TipoSucursal As Integer = 0, Optional EsSucursal As Integer = 0,
Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveColonia As Integer = -1, Optional AplicaComercioExterior As Boolean = False, Optional Correo As String = "", Optional CvePrecioLista As Integer = -1,
- Optional Telefono As String = "", Optional HorarioVerano As Integer = Nothing, Optional HorarioInvierno As Integer = Nothing, Optional NoVerificaAlmacen As Boolean = False) As Boolean
+ Optional Telefono As String = "", Optional HorarioVerano As Integer = Nothing, Optional HorarioInvierno As Integer = Nothing, Optional NoVerificaAlmacen As Boolean = False, Optional CodigoSucursal As String = "") As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_CentroCostoUpdate")
@@ -425,6 +426,7 @@ Public Class ClsSubProyectos
.Add("@HorarioVerano", SqlDbType.Int).Value = HorarioVerano
.Add("@HorarioInvierno", SqlDbType.Int).Value = HorarioInvierno
.Add("@NoVerificaAlmacen", SqlDbType.Bit).Value = NoVerificaAlmacen
+ .Add("@CodigoSucursal", SqlDbType.VarChar).Value = CodigoSucursal
End With
Try
@@ -442,10 +444,10 @@ Public Class ClsSubProyectos
End Try
Return Retorno
- End Function
+ End Function
#End Region
#Region " IDisposable Support "
- ' Visual Basic agregó este código para implementar correctamente el modelo descartable.
+ ' Visual Basic agregó este código para implementar correctamente el modelo descartable.
Public Sub Dispose() Implements IDisposable.Dispose
' No cambie este código. Coloque el código de limpieza en Dispose (ByVal que se dispone como Boolean).
ConexionClose()
diff --git a/App_Code/Empresa.vb b/App_Code/Empresa.vb
index eec8c4022..e445ab25d 100644
--- a/App_Code/Empresa.vb
+++ b/App_Code/Empresa.vb
@@ -3,7 +3,7 @@ Option Strict On
Public Class Empresa
-
+ Public Property GralSoloProyecto As Boolean
Public Property CveEmpresa As Integer
Public Property Empresa As String
Public Property NombreCorto As String
diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index 8ebf065ce..37f285efa 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -1527,8 +1527,9 @@ Namespace Modelos
If DtAjustes IsNot Nothing AndAlso DtAjustes.Rows.Count > 0 Then
For Each Dr As DataRow In DtAjustes.Rows
If Not ObjAcum.AddGarantiasDetalle(Dr("CveVentaDetalle").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("CveFolioGarantia").ToString.ToEntero, Dr("CveTipoUso").ToString.ToEntero,
- Dr("CodigoEnsamble").ToString, Dr("CodigoLinea").ToString, Dr("CodigoInspeccion").ToString, Dr("CveTipoDefecto").ToString.ToEntero,
- Dr("NumPoliza").ToString, Dr("Importe").ToString.ToDouble, Dr("Consecutivo").ToString, Dr("FechaAjuste").ToString.ToDateTime(), Dr("PorcentajeAjuste").ToString.ToDecimal()) Then
+ Dr("CodigoEnsamble").ToString, Dr("CodigoLinea").ToString, Dr("CodigoInspeccion").ToString, Dr("CveTipoDefecto").ToString.ToEntero, Dr("CodigoTD").ToString, Dr("TipoComprobante").ToString.ToEntero(),
+ Dr("Comprobante").ToString, Dr("Importe").ToString.ToDouble, Dr("Consecutivo").ToString, Dr("FechaAjuste").ToString.ToDateTime(), Dr("PorcentajeAjuste").ToString.ToDecimal(),
+ Dr("CveBCIAjuste").ToString.ToEntero(), Dr("Etiqueta").ToString, Dr("CveClienteDistribuidor").ToString.ToEntero(), Dr("CveModeloAuto").ToString.ToEntero(), Dr("Año").ToString) Then
ErrorList.Add("Ocurrió un error al agregar la garantia detalle.")
End If
Next
@@ -4839,14 +4840,14 @@ Namespace Modelos
Dim CveCliente As Integer = ObjVentas.DtResultados(0)("CveCliente").ToString.ToEntero
Dim ClienteNombre As String = ObjVentas.DtResultados(0)("ClienteNombre").ToString
Dim SerieFolio As String = ObjVentas.DtResultados(0)("SerieFolio").ToString
- Dim TotalCosto As Decimal = DtCostos.SUMD("Total").RoundSQL()
+ Dim TotalCosto As Decimal = DtCostos.SUMD("Total").RoundAD()
Dim TotalCostoAcumulado As Decimal = 0
Dim cont As Integer = 1
Dim CvePrePolizaDev As Integer = ObjConta.AddPrePolizas("Modelos/RecepcionEntrega", 4, TotalCosto, TotalCosto, 1, Fecha, ClienteNombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
'SE AGREGA MOVIMIENTO SEPARADO POR LA CUENTA DE VENTAS (ER)
For Each RowInv As DataRow In tmpCostos.Rows
- ValorInventario = DtCostos.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").RoundSQL()
+ ValorInventario = DtCostos.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").RoundAD()
TotalCostoAcumulado += ValorInventario
'CUANDO ES EL ÚLTIMO MOVIMIENTO Y HAY DIFERENCIAS EN LOS IMPORTES
diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb
index ee3b331f1..94768effd 100644
--- a/App_Code/modExtensiones.vb
+++ b/App_Code/modExtensiones.vb
@@ -380,7 +380,7 @@ Namespace Extensiones
Dim Pag As Page = DirectCast(System.Web.HttpContext.Current.Handler, Page)
Dim script As String = ""
If showalert Then
- script = String.Format("bootbox.dialog({{message: ""{0} "", className: ""{11}"", {12} onEscape: function() {{ {12} }},title: ""{1}"",buttons: {{ success: {{ label: ""{2}"", className: "" {3}""," &
+ script = String.Format("bootbox.dialog({{message: ""{0} "", className: ""{11}"", {13} onEscape: function() {{ {12} }},title: ""{1}"",buttons: {{ success: {{ label: ""{2}"", className: "" {3}""," &
"callback: function() {{ {4} }} }}, danger: {{ label: ""{5}"", className: "" {6}"",callback: function() {{ {7} }} }}," &
"main: {{ label: ""{8}"", className: "" {9}"", callback: function() {{ {10} }} }} }} }});",
Mensaje, Titulo, b3title, b3clas, b3js, b2title, b2clas, b2js, b1title, b1clas, b1js, headerclas, onEscape, closeButtonOption)
diff --git a/Bancos/PopIE.aspx.vb b/Bancos/PopIE.aspx.vb
index a81c67acb..a85cde6f2 100644
--- a/Bancos/PopIE.aspx.vb
+++ b/Bancos/PopIE.aspx.vb
@@ -363,4 +363,44 @@ Partial Class Bancos_PopIE
End If
End If
End Sub
+
+ Protected Sub BtnEliminarCompra_Click(sender As Object, e As EventArgs)
+
+ End Sub
+
+ Protected Sub ChkPagarPesos_CheckedChanged(sender As Object, e As EventArgs)
+
+ End Sub
+
+ Protected Sub ChkPagarDolares_CheckedChanged(sender As Object, e As EventArgs)
+
+ End Sub
+
+ Protected Sub CVImporteDolares_ServerValidate(source As Object, args As ServerValidateEventArgs)
+
+ End Sub
+
+ Protected Sub CVImportePesos_ServerValidate(source As Object, args As ServerValidateEventArgs)
+
+ End Sub
+
+ Protected Sub DdlCuentaDeposito_SelectedIndexChanged(sender As Object, e As EventArgs)
+
+ End Sub
+
+ Protected Sub ChkPagarPesosDeudores_CheckedChanged(sender As Object, e As EventArgs)
+
+ End Sub
+
+ Protected Sub ChkPagarDolaresDeudores_CheckedChanged(sender As Object, e As EventArgs)
+
+ End Sub
+
+ Protected Sub CvImporteDolaresDeudores_ServerValidate(source As Object, args As ServerValidateEventArgs)
+
+ End Sub
+
+ Protected Sub CveImportePesosDeudores_ServerValidate(source As Object, args As ServerValidateEventArgs)
+
+ End Sub
End Class
\ No newline at end of file
diff --git a/Bancos/RepComprobaciones.aspx.cs b/Bancos/RepComprobaciones.aspx.cs
index 8c167511a..ba1cc8cb2 100644
--- a/Bancos/RepComprobaciones.aspx.cs
+++ b/Bancos/RepComprobaciones.aspx.cs
@@ -61,7 +61,7 @@ public partial class Bancos_RepComprobaciones : ClsPaginas
}
protected void CargaCuentas()
{
- DdlCuentas.DataSource = get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:= UsuarioActual.CveEmpresa).FiltraParametros("Banco = 'Empresa'");
+ DdlCuentas.DataSource = get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("Banco = 'Empresa'");
DdlCuentas.DataBind();
DdlCuentas.Items.Insert(0, new ListItem("Seleccione", "-1"));
DdlCuentas.SelectedValue = "-1";
diff --git a/Bancos/RepProgramarRecursos.aspx.vb b/Bancos/RepProgramarRecursos.aspx.vb
index 99b914bed..9d3ad6219 100644
--- a/Bancos/RepProgramarRecursos.aspx.vb
+++ b/Bancos/RepProgramarRecursos.aspx.vb
@@ -160,7 +160,7 @@ Partial Class Bancos_RepProgramarRecursos
Opcion = IfNull(Request("Op"), "-1").ToString
- If UsuarioActual.Empresa.GralSoloProyecto Then ' solo muestar el subproyecto
+ If True Then 'UsuarioActual.Empresa.GralSoloProyecto Then ' solo muestar el subproyecto
TdProyecto.Visible = False
TdSubProyectoTitulo.Visible = False
Dim script As String = "Sys.Application.add_load(function (s, e) { $('#tsubprocto').slideDown(200); $('#subproyecto').before($('#dropsubproyecto')); });"
diff --git a/Compras/CatTipoGasto.aspx.cs b/Compras/CatTipoGasto.aspx.cs
index a30f0486c..1d1c7500f 100644
--- a/Compras/CatTipoGasto.aspx.cs
+++ b/Compras/CatTipoGasto.aspx.cs
@@ -46,7 +46,7 @@ public partial class Compras_CatTipoGasto : ClsPaginas
ClsCompras ObjCompras = new ClsCompras();
if (ObjCompras.GetTipoGasto(-1, -1))
{
- set_GlobalDTTiposGastos(UsuarioActual.CveEmpresa, ObjCompras.DtResultados);
+ set_GlobalDTTiposGastos(UsuarioActual.CveEmpresa,1, ObjCompras.DtResultados);
}
ObjCompras.Dispose();
}
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index f93c37a81..6bd0ab547 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -4600,7 +4600,7 @@ Partial Class Compras_Compras
'End If
'METODO DE PREPOLIZA DE ALMACEN
- If UsuarioActual.CveEmpresa.Contiene(1, 119, 72, 80, 140, 141, 152, 153, 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, 152, 153, 154, 159, 160, 161, 162, 163) 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
If ImporteAlmacen > 0 Then
If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 7f42c8bf3..3992cdd1d 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -491,6 +491,13 @@ Partial Class PopUpVerFactura
If UrlParametros("CVEASIGNACIONENTREGA") IsNot Nothing And UrlParametros("USUARIOENTREGA") IsNot Nothing Then
ImprimeEntregasPorRealizar(UrlParametros("CVEASIGNACIONENTREGA").ToString.ToLong, UrlParametros("USUARIOENTREGA").ToString)
End If
+ End If
+
+ 'PDF AJUSTE
+ If UrlParametros("OP").ToString = "AJUSTE" Then
+ If UrlParametros("CVEGARANTIADETALLE") IsNot Nothing Then
+ ImprimirPDFAjuste(UrlParametros("CVEGARANTIADETALLE").ToString.ToEntero)
+ End If
End If
End Sub
@@ -1302,7 +1309,7 @@ Partial Class PopUpVerFactura
Dim ResponsableRecibio As String = ObjInventarios.ResponsableRecibio
Dim UsuarioCapturo As String = ObjInventarios.DtResultados.FiltroPrimeroValor("UsuarioCapturo")
- If Recibio.Trim = "" Then
+ If String.IsNullOrEmpty(Recibio) Then
Dim ObjRH As New ClsRH
If ObjRH.GetPersonal(ObjInventarios.CvePersonal, UsuarioActual.CveEmpresa) AndAlso ObjRH.DtResultados.Rows.Count > 0 Then
Recibio = ObjRH.DtResultados.Rows(0)("NombreCompleto").ToString
@@ -4509,4 +4516,153 @@ Partial Class PopUpVerFactura
End Function
#End Region
+#Region "OP = AJUSTE"
+ Private Sub ImprimirPDFAjuste(CveGarantiaDetalle As Integer)
+ ' Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+ Dim RowAjuste As DataRow = Nothing
+
+ Using ObjAcum As New ClsAcumuladores
+ If ObjAcum.GetFoliosGarantiasDetalle(-1, CveGarantiaDetalle) Then
+ If ObjAcum.DtResultados.Rows.Count > 0 Then
+ RowAjuste = ObjAcum.DtResultados.Rows(0)
+ End If
+ End If
+ End Using
+
+ Dim CvePSAjuste As Integer = RowAjuste("CvePS").ToString.ToEntero()
+ Dim CveCliente As Integer = RowAjuste("CveCliente").ToString.ToEntero()
+ Dim CveClienteDistribuidor As Integer = RowAjuste("CveClienteDistribuidor").ToString.ToEntero()
+ Dim Consec As String = RowAjuste("Consecutivo").ToString
+ Dim FolioGarantia As String = RowAjuste("FolioGarantia").ToString
+ Dim FechaAjuste As DateTime = RowAjuste("FechaVenta").ToString.ToDateTime()
+ Dim FechaReclamacion As DateTime = RowAjuste("FechaReclamacion").ToString.ToDateTime()
+ Dim TipoDefecto As String = RowAjuste("TipoDefecto").ToString
+ Dim CveTipoUso As Integer = RowAjuste("CveTipoUso").ToString.ToEntero()
+ Dim CodigoEnsamble As String = RowAjuste("CodigoEnsamble").ToString
+ Dim CodigoLinea As String = RowAjuste("CodigoLinea").ToString
+ Dim CodigoInspeccion As String = RowAjuste("CodigoInspeccion").ToString
+
+ Dim MesesUso As String = "0"
+ Dim PorcentajeAjuste As String = RowAjuste("PorcentajeAjuste").ToString
+ Dim BCIAjuste As String = RowAjuste("BCIAjuste").ToString
+ Dim Etiqueta As String = RowAjuste("Etiqueta").ToString
+
+ Dim Año As String = RowAjuste("Año").ToString
+ Dim Comprobante As String = RowAjuste("Comprobante").ToString
+
+ Dim ModeloAuto As String = RowAjuste("ModeloAuto").ToString
+ Dim MarcaAuto As String = RowAjuste("MarcaAuto").ToString
+
+ Dim MarcaPS As String = ""
+ Dim CveMarca As Integer = -1
+
+ Dim FechaI As Date = FechaAjuste.AddDays(1)
+ Dim FechaF As Date = FechaReclamacion
+
+ Dim Dia As Integer = FechaI.Day
+ Try
+ 'validación adicional, para saber si el mes tiene 31 días y el actua es menor.
+ If FechaI.Day > Today.LastDayOfMonth.Day Then Dia = Today.LastDayOfMonth.Day
+ Dim FechaT As Date = String.Format("{0}/{1}/{2}", Dia, FechaF.Month, FechaF.Year).ToDate 'armo la fecha con el día del mes actual
+
+ Dim MesesTrascurridos As Integer = Math.Round(DateDiff(DateInterval.Day, FechaI, FechaT) / 30.4, 2).ToEntero 'saco los meses y lo redondeo
+
+ If FechaT > FechaF Then
+ 'todavía está en el mes actual.
+ MesesTrascurridos = MesesTrascurridos
+ Else
+ MesesTrascurridos = MesesTrascurridos + 1
+ End If
+
+ MesesUso = MesesTrascurridos.ToString
+
+ Catch ex As Exception
+ OnError("Ocurrió un error al calcular los meses de uso", ex)
+ End Try
+
+
+ Dim ObjPS As New ClsProductosServicios
+ If ObjPS.GetPS(CvePSAjuste, -1, UsuarioActual.CveEmpresa) Then
+ MarcaPS = ObjPS.DtResultados.FiltroPrimeroValor("Marca", String.Format("CvePS = {0}", CvePSAjuste))
+ End If
+ ObjPS.Dispose()
+
+ Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+ Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+ Dim DtDatos As New DataTable
+
+ Dim params As New List(Of ReportParameter)
+
+
+ 'Informacion Distribuidor
+ If (CveClienteDistribuidor > 0) Then
+
+ Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", CveClienteDistribuidor))
+ Dim CiudadEstado As String = ""
+ Dim Telefono As String = ""
+ Dim Nombre As String = ""
+
+ If DatosClienteSeleccionado IsNot Nothing Then
+ CiudadEstado = String.Format("{0}, {1}", DatosClienteSeleccionado("Ciudad"), DatosClienteSeleccionado("Estado"))
+ Telefono = DatosClienteSeleccionado("Telefono").ToString
+ Nombre = DatosClienteSeleccionado("Nombre").ToString
+ End If
+
+ params.Add(New ReportParameter("NombreDistribuidor", Nombre))
+ params.Add(New ReportParameter("CiudadEstado", CiudadEstado))
+ params.Add(New ReportParameter("TelCliente", Telefono))
+ End If
+
+
+ params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+ params.Add(New ReportParameter("Consec", Consec))
+ params.Add(New ReportParameter("FolioAcuse", FolioGarantia))
+
+ 'Informacion de Garantia o ajuste
+ params.Add(New ReportParameter("FechaInst", FechaAjuste.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("Fecha", FechaReclamacion.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("Defecto", TipoDefecto))
+ params.Add(New ReportParameter("MesesUso", MesesUso))
+ params.Add(New ReportParameter("PorcentajeAjuste", PorcentajeAjuste))
+
+ 'Informacion Acumulador
+ params.Add(New ReportParameter("CodEnsamble", CodigoEnsamble))
+ params.Add(New ReportParameter("CodLinea", CodigoLinea))
+ params.Add(New ReportParameter("CodInspeccion", CodigoInspeccion))
+ params.Add(New ReportParameter("Tipo", BCIAjuste))
+ params.Add(New ReportParameter("Marca", MarcaPS))
+ params.Add(New ReportParameter("Etiqueta", Etiqueta))
+
+ 'Informacion Vehiculo
+ params.Add(New ReportParameter("MarcaAuto", MarcaAuto))
+ params.Add(New ReportParameter("TipoAuto", ModeloAuto))
+
+ 'Informacion Consumidor
+ 'Informacion Distribuidor
+ If (CveCliente > 0) Then
+
+ Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", CveCliente))
+ Dim Nombre As String = DatosClienteSeleccionado.Item("Nombre").ToString
+ Dim Ciudad As String = DatosClienteSeleccionado.Item("Ciudad").ToString
+ Dim Estado As String = DatosClienteSeleccionado.Item("Estado").ToString
+
+ params.Add(New ReportParameter("NombreCliente", Nombre))
+ params.Add(New ReportParameter("Direccion", String.Format("{0}, {1}", Ciudad.Trim, Estado)))
+ params.Add(New ReportParameter("CiudadEstadoConsumidor", String.Format("{0}, {1}", Ciudad.Trim, Estado)))
+ params.Add(New ReportParameter("TelConsumidor", DatosClienteSeleccionado.Item("Telefono").ToString))
+ End If
+
+ params.Add(New ReportParameter("Anio", Año))
+ params.Add(New ReportParameter("Comprobante", Comprobante))
+
+ If Imagen.Exists Then
+ params.Add(New ReportParameter("LogoPath", logouri))
+ Else
+ params.Add(New ReportParameter("LogoPath", ""))
+ End If
+
+ ImprimirPDF("Empresas/Grales/Formatos/Ajuste.rdlc", DtDatos, params, "Reporte de Ajuste", "PDF")
+ End Sub
+#End Region
+
End Class
diff --git a/Compras/RepPagado.aspx.cs b/Compras/RepPagado.aspx.cs
index 0de7863ff..d2faa08d1 100644
--- a/Compras/RepPagado.aspx.cs
+++ b/Compras/RepPagado.aspx.cs
@@ -129,7 +129,7 @@ public partial class Compras_RepPagado : ClsPaginas
DdlCuentaBancaria.Items.Clear();
if (DdlBanco.SelectedValue.ToEntero() > 0)
{
- DdlCuentaBancaria.DataSource = get_GlobalDTBancosCuentas(-1, CveEmpresa:= UsuarioActual.CveEmpresa).FiltraParametros($"CveBanco = {DdlBanco.SelectedValue.ToEntero()}");
+ DdlCuentaBancaria.DataSource = get_GlobalDTBancosCuentas(-1, CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros($"CveBanco = {DdlBanco.SelectedValue.ToEntero()}");
}
DdlCuentaBancaria.Items.Insert(0, new ListItem("Todos", "-1"));
DdlCuentaBancaria.DataBind();
diff --git a/Compras/RepPagadoPeriodo.aspx.cs b/Compras/RepPagadoPeriodo.aspx.cs
index d1ff01d33..7de9ab3b3 100644
--- a/Compras/RepPagadoPeriodo.aspx.cs
+++ b/Compras/RepPagadoPeriodo.aspx.cs
@@ -137,7 +137,7 @@ public partial class Compras_RepPagadoPeriodo : ClsPaginas
DdlCuentaBancaria.Items.Clear();
if (DdlBanco.SelectedValue.ToEntero() > 0)
{
- DdlCuentaBancaria.DataSource = get_GlobalDTBancosCuentas(-1, CveEmpresa:= UsuarioActual.CveEmpresa).FiltraParametros($"CveBanco = {DdlBanco.SelectedValue.ToEntero()}");
+ DdlCuentaBancaria.DataSource = get_GlobalDTBancosCuentas(-1, CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros($"CveBanco = {DdlBanco.SelectedValue.ToEntero()}");
}
DdlCuentaBancaria.Items.Insert(0, new ListItem("Todos", "-1"));
DdlCuentaBancaria.DataBind();
diff --git a/Contabilidad/PolizasImpresion.aspx.vb b/Contabilidad/PolizasImpresion.aspx.vb
index 7450186f7..d597518c4 100644
--- a/Contabilidad/PolizasImpresion.aspx.vb
+++ b/Contabilidad/PolizasImpresion.aspx.vb
@@ -49,8 +49,8 @@ Partial Class Contabilidad_PolizasImpresion
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("TipoPoliza", dr("TipoPoliza").ToString))
- params.Add(New ReportParameter("Finicio", dr("Fecha").ToString.ToDate.ToShortDateString))
- params.Add(New ReportParameter("FFin", dr("Fecha").ToString.ToDate.ToShortDateString))
+ params.Add(New ReportParameter("Finicio", TxtFechaInicio.Text))
+ params.Add(New ReportParameter("FFin", TxtFechaFin.Text))
params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString))
'params.Add(New ReportParameter("Nombre", dr("Cuenta").ToString))
'params.Add(New ReportParameter("Cuenta", dr("Codigo").ToString))
diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx b/Contabilidad2/CatCuentasAsignaciones.aspx
index 768a1edda..f326424ab 100644
--- a/Contabilidad2/CatCuentasAsignaciones.aspx
+++ b/Contabilidad2/CatCuentasAsignaciones.aspx
@@ -24,7 +24,7 @@
@@ -106,6 +106,10 @@
+
+
+
+
diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx.vb b/Contabilidad2/CatCuentasAsignaciones.aspx.vb
index 6470747bb..762edbba8 100644
--- a/Contabilidad2/CatCuentasAsignaciones.aspx.vb
+++ b/Contabilidad2/CatCuentasAsignaciones.aspx.vb
@@ -31,6 +31,9 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
End Sub
Private Sub CargaDatosModal()
+
+ DdlConceptoNomina.DataSource = GlobalDTNomConceptos(UsuarioActual.CveEmpresa)
+ DdlConceptoNomina.DataBind()
Dim ObjConta As New ClsContabilidad
If ObjConta.GetConta_ConceptosContables() Then
@@ -60,6 +63,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
DdlClasificacion.DataBind()
DdlAlmacen.DataBind()
+ DdlConceptoNomina.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlCconceptosContables.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlProveedor.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -72,6 +76,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
CveConceptoAsignacion = GvRow.DataKey("CveCuentaAsignacion").ToEntero
DdlCconceptosContables.SelectedValue = GvRow.DataKey("CveConceptoContable").ToEntero
DdlCuenta.SelectedValue = GvRow.DataKey("CveCuenta").ToEntero
+ DdlConceptoNomina.SelectedValue = GvRow.DataKey("CveConceptoNomina").ToEntero
DdlProveedor.SelectedValue = GvRow.DataKey("CveProveedor").ToEntero
DdlClasificacion.SelectedValue = GvRow.DataKey("CveClasificacion").ToEntero
DdlAlmacen.SelectedValue = GvRow.DataKey("CveAlmacen").ToEntero
@@ -123,6 +128,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
DdlProveedor.SelectedValue = -1
DdlClasificacion.SelectedValue = -1
DdlAlmacen.SelectedValue = -1
+ DdlConceptoNomina.SelectedValue = -1
TxtIdCuentaContable.Text = ""
TxtPorcentajeIVA.Text = ""
DdlClientes.ddl.DataSource = ""
@@ -143,13 +149,13 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
If Not ObjConta.AddCuentasAsignaciones(DdlCconceptosContables.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero,
DdlProveedor.SelectedValue.ToEntero, DdlClientes.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero,
DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal) Then
- ErrorString = "Error al Agregar"
+ ErrorString = "Error al agregar"
End If
ElseIf LbAgregar.Text = "Actualizar" Then
If Not ObjConta.UpdateCuentasAsignaciones(CveConceptoAsignacion, DdlCconceptosContables.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero,
DdlProveedor.SelectedValue.ToEntero, DdlClientes.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero,
DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal) Then
- ErrorString = "Error al Actualizar"
+ ErrorString = "Error al actualizar"
End If
End If
ObjConta.Dispose()
diff --git a/Contabilidad2/PolizasImpresion.aspx.vb b/Contabilidad2/PolizasImpresion.aspx.vb
index 992887fb8..6b89745ae 100644
--- a/Contabilidad2/PolizasImpresion.aspx.vb
+++ b/Contabilidad2/PolizasImpresion.aspx.vb
@@ -42,7 +42,7 @@ Partial Class Contabilidad2_PolizasImpresion
If ObjConta.GetPrePolizasImpresion(UsuarioActual.CveEmpresa, TxtFechaInicio.Text, TxtFechaFin.Text, CveTipoPoliza:=ddlTipoPoliza.SelectedValue.ToEntero, FolioI:=foli,
FolioF:=folf, CveUsuario:=DdlUsuarioRegistro.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero,
CveCuenta:=DdlCuenta.SelectedValue.ToEntero, CvePlantillaPoliza:=DdlGrupoPlantilla.SelectedValue.ToEntero,
- CveProveedor:=DdlTipoProveedor.SelectedValue.ToEntero) Then
+ CveTipoProveedor:=DdlTipoProveedor.SelectedValue.ToEntero) Then
If ObjConta.DtResultados.Rows.Count < 10000 Then
If ObjConta.DtResultados.Rows.Count > 0 Then
@@ -51,8 +51,8 @@ Partial Class Contabilidad2_PolizasImpresion
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("TipoPoliza", dr("TipoPoliza").ToString))
- params.Add(New ReportParameter("Finicio", dr("Fecha").ToString.ToDate.ToShortDateString))
- params.Add(New ReportParameter("FFin", dr("Fecha").ToString.ToDate.ToShortDateString))
+ params.Add(New ReportParameter("Finicio", TxtFechaInicio.Text))
+ params.Add(New ReportParameter("FFin", TxtFechaFin.Text))
params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString))
'params.Add(New ReportParameter("Nombre", dr("Cuenta").ToString))
'params.Add(New ReportParameter("Cuenta", dr("Codigo").ToString))
diff --git a/Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx.vb b/Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx.vb
index e2ab70cc6..d8c74441f 100644
--- a/Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx.vb
+++ b/Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx.vb
@@ -270,19 +270,19 @@ Partial Class Contabilidad_RepAnexoCatalogoMensualHorizontal
End If
End Sub
- Protected Sub LnkImprimir_Click(sender As Object, e As EventArgs) Handles LnkImprimir.Click
- If Not IsNothing(DtDatos) Then
- ImprimirReporte()
- End If
- End Sub
+ 'Protected Sub LnkImprimir_Click(sender As Object, e As EventArgs) Handles LnkImprimir.Click
+ ' If Not IsNothing(DtDatos) Then
+ ' ImprimirReporte()
+ ' End If
+ 'End Sub
- Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
- If Not IsNothing(DtDatos) Then
- ImprimirReporte("Excel")
- 'GvDatos.ExportToExcelG("AnexoCatalogo" & Now.ToShortDateString & ".xlsx")
- 'GvDatos.ExportToExcelG("ExistenciasHorizontal.xlsx", "Anexo Catalogo", UsuarioActual, "".ToString, 100, 200)
- End If
- End Sub
+ 'Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
+ ' If Not IsNothing(DtDatos) Then
+ ' ImprimirReporte("Excel")
+ ' 'GvDatos.ExportToExcelG("AnexoCatalogo" & Now.ToShortDateString & ".xlsx")
+ ' 'GvDatos.ExportToExcelG("ExistenciasHorizontal.xlsx", "Anexo Catalogo", UsuarioActual, "".ToString, 100, 200)
+ ' End If
+ 'End Sub
Private Sub ImprimirReporte(Optional Formato As String = "PDF")
'ubicacion del rdlc
Dim reportpath As String = "Contabilidad/Reportes/RepAnexoCatalogo.rdlc"
diff --git a/Contabilidad2/RepAnexoCatalogoVertical.aspx.vb b/Contabilidad2/RepAnexoCatalogoVertical.aspx.vb
index d0582aa0c..c159f53cf 100644
--- a/Contabilidad2/RepAnexoCatalogoVertical.aspx.vb
+++ b/Contabilidad2/RepAnexoCatalogoVertical.aspx.vb
@@ -71,7 +71,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoVertical
Private Sub CargaDatos()
Dim Conta As New ClsContabilidad
- If Conta.GetAnexoCatalagoCC(CveCuenta, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 1, 12) Then
+ If Conta.GetAnexoCatalagoCC(CveCuenta, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 1, 12, UsuarioActual.CveUsuario) Then
Dim DtHeaders As DataTable = Conta.DSResultados.Tables(0)
GvCC.DataSource = Conta.DSResultados.Tables(1)
diff --git a/Contratos/Contrato.aspx b/Contratos/Contrato.aspx
index 3624dace8..72adfa923 100644
--- a/Contratos/Contrato.aspx
+++ b/Contratos/Contrato.aspx
@@ -291,7 +291,7 @@
-
+
@@ -741,16 +741,7 @@
-
-
-
-
-
-
-
-
-
-
+
@@ -1972,8 +1963,21 @@
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
@@ -2003,11 +2007,11 @@
- <%-- --%>
+ <%-- --%>
-<%--
+ <%-- --%>
diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb
index 1653e71d9..cc658606f 100644
--- a/Contratos/Contrato.aspx.vb
+++ b/Contratos/Contrato.aspx.vb
@@ -4450,15 +4450,17 @@ Partial Class Contratos_Default
Select Case TipoContrato
Case 7 'Contrato Comodato
- SufijoContrato = "COM"
+ SufijoContrato = "COMODATO"
Case 8 'Contrato Consignacion
- SufijoContrato = "CONSIG"
+ SufijoContrato = "CONSIGNACION"
+ Case 9 'Contrato de Arrendamiento
+ SufijoContrato = "ARRENDAMIENTO"
Case 10 'Contrato de Financiamiento
- SufijoContrato = "FIN"
+ SufijoContrato = "FINANCIAMIENTO"
Case 13 'Contrato Servicio Administrado de Impresion (?)
SufijoContrato = "MPS"
Case 28 'Convenio Precio Fijo
- SufijoContrato = "CON"
+ SufijoContrato = "CONVENIO"
End Select
Dim Serie As String = String.Format("-{0}-{1}", DateTime.Today.Year, SufijoContrato)
@@ -4504,6 +4506,61 @@ Partial Class Contratos_Default
UpFacCiclica.Update()
End Sub
+ Protected Sub BtnVerPlantilla_Click(sender As Object, e As EventArgs)
+ Dim Plantilla As String = TxtObservaciones.Text
+
+ If Plantilla.Contains("{DIA}") Then
+ Plantilla = Plantilla.Replace("{DIA}", DateTime.Now.Day.ToString())
+ End If
+
+ If Plantilla.Contains("{MES}") Then
+ Dim fecha As DateTime = DateTime.Now
+ Dim formatoFecha = Globalization.CultureInfo.CurrentCulture.DateTimeFormat
+ Dim nombreMes = formatoFecha.GetMonthName(fecha.Month).ToUpper()
+
+ Plantilla = Plantilla.ToString().Replace("{MES}", nombreMes)
+ End If
+
+ If Plantilla.Contains("{AÑO}") Then
+ Plantilla = Plantilla.Replace("{AÑO}", DateTime.Now.Year.ToString())
+ End If
+
+ If Plantilla.Contains("{TC}") Then
+ Plantilla = Plantilla.Replace("{TC}", GlobalTipoCambio(Now).FormatoNumero)
+ End If
+
+ If Plantilla.Contains("{MESANTERIOR}") Then
+ Dim fecha As DateTime = DateTime.Now.AddMonths(-1)
+ Dim formatoFecha = Globalization.CultureInfo.CurrentCulture.DateTimeFormat
+ Dim nombreMes = formatoFecha.GetMonthName(fecha.Month).ToUpper()
+
+ Plantilla = Plantilla.ToString().Replace("{MESANTERIOR}", nombreMes)
+ End If
+
+ If Plantilla.Contains("{INICIOMESANTERIOR}") Then
+ Dim fecha As DateTime = DateTime.Now.AddMonths(-1)
+ Dim formatoFecha = Globalization.CultureInfo.CurrentCulture.DateTimeFormat
+ Dim nombreMes = formatoFecha.GetMonthName(fecha.Month).ToUpper()
+
+ Dim mesAnterior As String = String.Format("01 {0} {1}", nombreMes, fecha.Year)
+
+ Plantilla = Plantilla.ToString().Replace("{INICIOMESANTERIOR}", mesAnterior)
+ End If
+
+ If Plantilla.Contains("{FINMESANTERIOR}") Then
+ Dim fecha As DateTime = DateTime.Now.AddMonths(-1)
+ Dim formatoFecha = Globalization.CultureInfo.CurrentCulture.DateTimeFormat
+ Dim nombreMes = formatoFecha.GetMonthName(fecha.Month).ToUpper()
+
+ Dim LastDayOfMonth = DateTime.DaysInMonth(fecha.Year, fecha.Month)
+
+ Dim mesAnterior As String = String.Format("{0} {1} {2}", LastDayOfMonth, nombreMes, fecha.Year)
+
+ Plantilla = Plantilla.ToString().Replace("{FINMESANTERIOR}", mesAnterior)
+ End If
+
+ Alert(Plantilla)
+ End Sub
End Class
diff --git a/Contratos/ContratosSecciones.aspx b/Contratos/ContratosSecciones.aspx
index 0c1dcfa42..5eff363b7 100644
--- a/Contratos/ContratosSecciones.aspx
+++ b/Contratos/ContratosSecciones.aspx
@@ -1,6 +1,6 @@
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="ContratosSecciones.aspx.vb" Inherits="Contratos_ContratosSecciones" %>
-<%@ Register Assembly="AspMapNET" Namespace="AspMap.Web" TagPrefix="cc1" %>
+<%--<%@ Register Assembly="AspMapNET" Namespace="AspMap.Web" TagPrefix="cc1" %>--%>
@@ -13,7 +13,7 @@
-
+ <%--
@@ -244,7 +244,7 @@
-
+ --%>
diff --git a/Contratos/ContratosSecciones.aspx.vb b/Contratos/ContratosSecciones.aspx.vb
index 72aaba93d..ec6d6513d 100644
--- a/Contratos/ContratosSecciones.aspx.vb
+++ b/Contratos/ContratosSecciones.aspx.vb
@@ -15,504 +15,504 @@ Partial Class Contratos_ContratosSecciones
Inherits ClsPaginas
-#Region "Propiedades"
- Private Property PorBoton As Boolean
- Private Property CveContratoSeccion As Integer
- Get
- Return ViewState("CveContratoSeccion").ToString.ToEntero
- End Get
- Set(value As Integer)
- ViewState("CveContratoSeccion") = value
- End Set
- End Property
-
- Private Property CveContrato As Integer
- Get
- Return ViewState("CveContrato").ToString.ToEntero
- End Get
- Set(value As Integer)
- ViewState("CveContrato") = value
- End Set
- End Property
-
- Private Property CveClasificacion As Integer
- Get
- Return ViewState("CveClasificacion").ToString.ToEntero
- End Get
- Set(value As Integer)
- ViewState("CveClasificacion") = value
- End Set
- End Property
-
- Private Property Tipo As String
- Get
- Return ViewState("Tipo").ToString
- End Get
- Set(value As String)
- ViewState("Tipo") = value
- End Set
- End Property
-
- Private Property Modalidad As Integer
- Get
- Return ViewState("Modalidad").ToString.ToEntero
- End Get
- Set(value As Integer)
- ViewState("Modalidad") = value
- End Set
- End Property
-
- Private Property DtDatos As DataTable
- Get
- Return CType(ViewState("DtDatos"), DataTable)
- End Get
- Set(value As DataTable)
- ViewState("DtDatos") = value
- End Set
- End Property
-
- Private Property Seleccionado As String
- Get
- Return ViewState("Seleccionado").ToString
- End Get
- Set(value As String)
- ViewState("Seleccionado") = value
- End Set
- End Property
-#End Region
-
- Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
- If Not IsPostBack Then
-
- ViewState("Orden") = ""
-
- PorBoton = False
- Modalidad = Request("Contratos").ToEntero
- ConfiguraModalidad()
- 'CveContratoSeccion = -1
- 'CargaSeccion()
- 'CargaContratos()
- 'CargaClasificacion()
-
- Seleccionado = ""
- CargaMapaGeom(-52441177.6239012, 3577172.53285846)
- CveContrato = IfNull(Request("CveContrato"), -1).ToString.ToEntero
- CveClasificacion = IfNull(Request("CveClasificacion"), -1).ToString.ToEntero
- Tipo = IfNull(Request("Tipo"), "Con").ToString
- CargaDatos()
-
- DdlPS.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todas", "-1"))
-
-
- 'Me.txtFechaF.Text = Now.ToShortDateString
- 'Dim Row() As DataRow = GlobalDTFechasContratosSecciones.Select("CveContratosQueja = -1 AND CveEstatus = 1")
- 'If Row.Length > 0 Then
- ' txtFechaI.Text = Row(0)("Fecha").ToString.ToDate.ToShortDateString()
- 'End If
- 'RegistraScript("try { Browser();Acomoda(); } catch (e) {alert(e);}")
- End If
- CargaMapa()
-
- End Sub
-
- Private Sub ConfiguraModalidad()
- 'If Modalidad = 1 Then
- ' TrProgramar.Visible = True
- LblTitulo.Text = "Contratos Secciones"
- 'ElseIf Modalidad = 2 Then
- ' TrBitacora.Visible = True
- ' LblTitulo.Text = "Bitácoras"
- ' Page.Title = "SAT - Imprimir Bitácoras"
- ' TxtFechaIBit.Text = Now.ToShortDateString
- ' TxtFechaFBit.Text = Now.ToShortDateString
- 'End If
- End Sub
-
- Private Sub CargaSeccion()
- Dim dt As DataTable = GlobalDTContratosSecciones.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
- DdlSeccion.DataSource = dt
- DdlSeccion.DataBind()
- DdlSeccion.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todas", "-1"))
- DdlSeccionAdd.DataSource = dt
- DdlSeccionAdd.DataBind()
-
- End Sub
-
- Protected Sub ChkPermitirAvance_CheckedChanged(sender As Object, e As EventArgs)
- Dim ObjContrato As New ClsContratos
- Dim Row As GridViewRow = DirectCast(DirectCast(sender, CheckBox).NamingContainer, GridViewRow)
- ObjContrato.PermitirAvance(GV.DataKeys(Row.RowIndex).Value.ToString.ToEntero, DirectCast(sender, CheckBox).Checked)
- ObjContrato.Dispose()
- Alert("Se ha permitido avance a la sección")
- CargaDatos()
- End Sub
-
- Protected Sub ChkPermitirEstimacion_CheckedChanged(sender As Object, e As EventArgs)
- Dim ObjContrato As New ClsContratos
- Dim Row As GridViewRow = DirectCast(DirectCast(sender, CheckBox).NamingContainer, GridViewRow)
- ObjContrato.PermitirEstimacion(GV.DataKeys(Row.RowIndex).Value.ToString.ToEntero, DirectCast(sender, CheckBox).Checked)
- ObjContrato.Dispose()
- Alert("Se ha permitido estimar en la sección")
- CargaDatos()
- End Sub
-
-#Region "C O M B O S"
- Private Sub CargaContratosAdd()
- DdlContratoAdd.DataSource = GlobalDTContratos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
- DdlContratoAdd.DataBind()
- ' DdlContratoAdd.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todas", "-1"))
- End Sub
- Private Sub CargaClasificacionAdd()
- DdlClasificacionAdd.DataSource = GlobalDTClasificaciones.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
- DdlClasificacionAdd.DataBind()
- ' DdlClasificacionAdd.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todas", "-1"))
- End Sub
- Private Sub CargaPSAdd()
- Dim ObjPS As New ClsProductosServicios
- If ObjPS.GetPS(-1, DdlClasificacionAdd.SelectedValue.ToString.ToEntero, UsuarioActual.CveEmpresa) Then
- DdlPSAdd.DataSource = ObjPS.DtResultados
- Else
- DdlPSAdd.DataSource = Nothing
- End If
- DdlPSAdd.DataBind()
-
- ObjPS.Dispose()
- 'DdlPSAdd.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todas", "-1"))
- End Sub
- Private Sub CargaSeccionAdd()
- 'DdlSeccionAdd.DataSource = GlobalDTContratosSecciones.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
- 'DdlSeccionAdd.DataBind()
- 'DdlSeccionAdd.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todas", "-1"))
- Dim ObjSecciones As New ClsContratos
- If ObjSecciones.GetSecciones() Then
- DdlSeccionAdd.DataSource = ObjSecciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
- DdlSeccionAdd.DataBind()
-
- End If
-
- ObjSecciones.Dispose()
-
- End Sub
- Private Sub CargaContratos()
- DdlContrato.DataSource = GlobalDTContratos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
- DdlContrato.DataBind()
- DdlContrato.Items.Insert(0, New ListItem("Todos", "-1"))
- DdlContrato.SelectedValue = "7"
- End Sub
- Private Sub CargaClasificacion()
- DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
- DdlClasificacion.DataBind()
- DdlClasificacion.Items.Insert(0, New ListItem("Todas", "-1"))
- End Sub
- 'Private Sub CargaCategorias()
- ' DdlPartidas.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
- ' DdlPartidas.DataBind()
- ' DdlPartidas.Items.Insert(0, New ListItem("Todas", "-1"))
- 'End Sub
- Private Sub CargaPS()
- Dim ObjPS As New ClsProductosServicios
- If ObjPS.GetPS(-1, DdlClasificacion.SelectedValue.ToString.ToEntero, UsuarioActual.CveEmpresa) Then
- DdlPS.DataSource = ObjPS.DtResultados.FiltraParametros("", "PS")
- Else
- DdlPS.DataSource = Nothing
- End If
- DdlPS.DataBind()
-
- ObjPS.Dispose()
- DdlPS.Items.Insert(0, New ListItem("Todas", "-1"))
- End Sub
-#End Region
- Protected Sub CmdConsultar_Click(sender As Object, e As System.EventArgs) Handles CmdConsultar.Click
- CargaDatos()
- End Sub
-
- Private Sub CargaDatos()
- PorBoton = True
- Dim ContratosSecciones As New ClsContratos()
-
-
- If ContratosSecciones.GetRepContratosAvancesDetalle(-1, CveContrato, CveClasificacion, Tipo, UsuarioActual.CveEmpresa) Then
- 'If ContratosSecciones.GetContratosSecciones(-1, DdlEstatus.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero, DdlContrato.SelectedValue.ToEntero, -1, -1, FechaI, FechaF) Then
- DtDatos = ContratosSecciones.DtResultados
- 'DtDatos.Rows.RemoveAt(0)
- 'DtDatos.Rows.RemoveAt(0)
- ' Cache("DTProgramacion" & UsuarioActual.CveUsuario.ToString()) = ContratosSecciones.DtResultados
- GV.DataSource = DtDatos
-
-
- LblTitulo.Text = "Cliente: " & DtDatos.MAX("Cliente")
-
- DtDatos = DtDatos.FiltraParametros("CveContratoSeccion > 0")
-
- Else
- GV.DataSource = Nothing
- End If
- ContratosSecciones.Dispose()
- GV.DataBind()
- CargaMapa()
- mapa.ZoomFull()
- UpDatos.Update()
- End Sub
-
- Protected Sub GV_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GV.RowCommand
- If e.CommandName = "Sel" Then
- Seleccionado = e.CommandArgument.ToString
- 'GV.SelectRow(e.CommandArgument.ToString.ToEntero - 1)
- CargaMapa()
- End If
-
- End Sub
-
- 'Protected Sub GV_RowCreated(sender As Object, e As GridViewRowEventArgs) Handles GV.RowCreated
- ' If e.Row.RowType = DataControlRowType.DataRow Then
- ' e.Row.ClientIDMode = ClientIDMode.Static
- ' e.Row.ID = String.Format("Tr-{0}", e.Row.DBCampo("ID_GIS"))
- ' End If
-
- 'End Sub
-
- Protected Sub GV_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GV.RowDataBound
- If e.Row.RowType = DataControlRowType.DataRow Then
- If e.Row.RowIndex = 0 Then
- e.Row.Cells(0).Width = Unit.Pixel(300) 'Seccion
- e.Row.Cells(1).Width = Unit.Pixel(100) 'SubSeccion
- e.Row.Cells(2).Width = Unit.Pixel(120) 'Cantidad
- e.Row.Cells(3).Width = Unit.Pixel(100) 'PU
- e.Row.Cells(4).Width = Unit.Pixel(100) 'Permitir Avance
- e.Row.Cells(5).Width = Unit.Pixel(100) 'Permitir Estimacion
- 'e.Row.Cells(6).Width = Unit.Pixel(100) 'Número Estimación
- ' e.Row.Cells(7).Width = Unit.Pixel(100) 'Factura
- End If
-
- e.Row.ClientIDMode = ClientIDMode.Static
- e.Row.ID = String.Format("Tr{0}", e.Row.DBCampo("ID_GIS"))
-
- e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Center
-
- If e.Row.DBCampo("NumeroContrato") = "" Then
- e.Row.CssClass = "SubTotales3" : e.Row.Height = 25
- ElseIf e.Row.DBCampo("Partida") = "" Then
- e.Row.CssClass = "SubTotales2" : e.Row.Height = 25
- ElseIf e.Row.DBCampo("PS") = "" Then
- e.Row.CssClass = "SubTotales" : e.Row.Height = 25
- ElseIf e.Row.DBCampo("Seccion") = "" Then
- e.Row.CssClass = "SubTotales3" : e.Row.Height = 25
- End If
-
- End If
- End Sub
-
- Private Sub CargaGrid(ByVal Orden As String)
-
- If Orden <> String.Empty Then
- Dim DV As New DataView(CType(Cache("DTProgramacion" & UsuarioActual.CveUsuario.ToString()), DataTable), "", Orden, DataViewRowState.CurrentRows)
- GV.DataSource = DV.ToTable()
- DV.Dispose()
- Else
- GV.DataSource = CType(Cache("DTProgramacion" & UsuarioActual.CveUsuario.ToString()), DataTable)
- End If
-
- GV.DataBind()
- UpDatos.Update()
-
- End Sub
-
- 'Protected Sub CmdBuscar_Click(sender As Object, e As System.EventArgs) Handles CmdBuscar.Click
- ' Dim ObjBitacora As New ClsBitacora()
-
- ' Dim FechaI, FechaF As String
- ' FechaI = If(IsDate(TxtFechaIBit.Text.Trim()), TxtFechaIBit.Text.Trim(), "-1")
- ' FechaF = If(IsDate(TxtFechaFBit.Text.Trim()), TxtFechaFBit.Text.Trim(), "-1")
-
- ' If ObjBitacora.GetBitacora(DdlContratos.SelectedValue, FechaI, FechaF) Then
- ' GVBitacora.DataSource = ObjBitacora.DtResultados
- ' Else
- ' GVBitacora.DataSource = Nothing
- ' End If
- ' ObjBitacora.Dispose()
-
- ' GVBitacora.DataBind()
- 'End Sub
- Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacion.SelectedIndexChanged
- CargaPS()
- End Sub
-
- Protected Sub BtnAgregar_Click(sender As Object, e As System.EventArgs) Handles BtnAgregar.Click
- RegistraScript("PosicionaObjeto('BtnAgregar','divContrato','');")
- TrContratos.Visible = True
- divContrato.Visible = True
- CargaContratosAdd()
- CargaClasificacionAdd()
- CargaSeccionAdd()
- UpContratos.Update()
- 'Dim con As New ClsContratos
- 'con.AddContratosSecciones(DdlContrato.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero, DdlSeccion.SelectedValue.ToEntero, 5, 3, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
- 'con.Dispose()
- End Sub
-
- Protected Sub DdlClasificacionAdd_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacionAdd.SelectedIndexChanged
- CargaPSAdd()
- End Sub
-
- Protected Sub BtnAgregarContratoSeccion_Click(sender As Object, e As System.EventArgs) Handles BtnAgregarContratoSeccion.Click
- Dim ObjContratosSecciones As New ClsContratos
- If ObjContratosSecciones.AddContratosSecciones(DdlContratoAdd.SelectedValue.ToEntero, DdlSeccionAdd.SelectedValue.ToEntero, DdlPSAdd.SelectedValue.ToEntero, TxtCantidad.Text.Trim.ToDouble, TxtPU.Text.Trim.ToDouble, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
- TxtCantidad.Text = ""
- TxtPU.Text = ""
- Alert("El Nuevo Contrato Sección se Agregó Correctamente.", TipoMensaje.MsgInformacion)
- UpContratos.Update()
- ViewState("DTContratosSecciones") = ObjContratosSecciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
- CargaDatos()
-
- End If
- ObjContratosSecciones.Dispose()
-
- End Sub
-
- Protected Sub LBFoto_OnClick(ByVal Sender As Object, ByVal E As EventArgs)
-
- Dim LB As LinkButton = CType(Sender, LinkButton)
- divFotos.Visible = True
-
- Dim Con As New ClsContratos
- If Con.GetContratoSeccion(LB.CommandArgument.ToEntero, UsuarioActual.CveEmpresa) Then
- Dim dt As DataTable = Con.DtResultados
- RegistraScript("PosicionaObjeto('" & LB.ClientID & "','divFotos','');")
- If dt.Rows.Count > 0 Then
- Img1.ImageUrl = "/Empresas/66/Avances/Imagenes/" & dt.Rows(0)("Img1").ToString
- If dt.Rows(0)("Img2").ToString <> "" Then
- Img2.Visible = True
- Img2.ImageUrl = "/Empresas/66/Avances/Imagenes/" & dt.Rows(0)("Img2").ToString
- End If
- If dt.Rows(0)("Img3").ToString <> "" Then
- Img3.Visible = True
- Img3.ImageUrl = "/Empresas/66/Avances/Imagenes/" & dt.Rows(0)("Img3").ToString
- End If
- End If
- UPFoto.Update()
- End If
- Con.Dispose()
+ '#Region "Propiedades"
+ ' Private Property PorBoton As Boolean
+ ' Private Property CveContratoSeccion As Integer
+ ' Get
+ ' Return ViewState("CveContratoSeccion").ToString.ToEntero
+ ' End Get
+ ' Set(value As Integer)
+ ' ViewState("CveContratoSeccion") = value
+ ' End Set
+ ' End Property
+
+ ' Private Property CveContrato As Integer
+ ' Get
+ ' Return ViewState("CveContrato").ToString.ToEntero
+ ' End Get
+ ' Set(value As Integer)
+ ' ViewState("CveContrato") = value
+ ' End Set
+ ' End Property
+
+ ' Private Property CveClasificacion As Integer
+ ' Get
+ ' Return ViewState("CveClasificacion").ToString.ToEntero
+ ' End Get
+ ' Set(value As Integer)
+ ' ViewState("CveClasificacion") = value
+ ' End Set
+ ' End Property
+
+ ' Private Property Tipo As String
+ ' Get
+ ' Return ViewState("Tipo").ToString
+ ' End Get
+ ' Set(value As String)
+ ' ViewState("Tipo") = value
+ ' End Set
+ ' End Property
+
+ ' Private Property Modalidad As Integer
+ ' Get
+ ' Return ViewState("Modalidad").ToString.ToEntero
+ ' End Get
+ ' Set(value As Integer)
+ ' ViewState("Modalidad") = value
+ ' End Set
+ ' End Property
+
+ ' Private Property DtDatos As DataTable
+ ' Get
+ ' Return CType(ViewState("DtDatos"), DataTable)
+ ' End Get
+ ' Set(value As DataTable)
+ ' ViewState("DtDatos") = value
+ ' End Set
+ ' End Property
+
+ ' Private Property Seleccionado As String
+ ' Get
+ ' Return ViewState("Seleccionado").ToString
+ ' End Get
+ ' Set(value As String)
+ ' ViewState("Seleccionado") = value
+ ' End Set
+ ' End Property
+ '#End Region
+
+ ' Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+ ' If Not IsPostBack Then
+
+ ' ViewState("Orden") = ""
+
+ ' PorBoton = False
+ ' Modalidad = Request("Contratos").ToEntero
+ ' ConfiguraModalidad()
+ ' 'CveContratoSeccion = -1
+ ' 'CargaSeccion()
+ ' 'CargaContratos()
+ ' 'CargaClasificacion()
+
+ ' Seleccionado = ""
+ ' CargaMapaGeom(-52441177.6239012, 3577172.53285846)
+ ' CveContrato = IfNull(Request("CveContrato"), -1).ToString.ToEntero
+ ' CveClasificacion = IfNull(Request("CveClasificacion"), -1).ToString.ToEntero
+ ' Tipo = IfNull(Request("Tipo"), "Con").ToString
+ ' CargaDatos()
+
+ ' DdlPS.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todas", "-1"))
+
+
+ ' 'Me.txtFechaF.Text = Now.ToShortDateString
+ ' 'Dim Row() As DataRow = GlobalDTFechasContratosSecciones.Select("CveContratosQueja = -1 AND CveEstatus = 1")
+ ' 'If Row.Length > 0 Then
+ ' ' txtFechaI.Text = Row(0)("Fecha").ToString.ToDate.ToShortDateString()
+ ' 'End If
+ ' 'RegistraScript("try { Browser();Acomoda(); } catch (e) {alert(e);}")
+ ' End If
+ ' CargaMapa()
+
+ ' End Sub
+
+ ' Private Sub ConfiguraModalidad()
+ ' 'If Modalidad = 1 Then
+ ' ' TrProgramar.Visible = True
+ ' LblTitulo.Text = "Contratos Secciones"
+ ' 'ElseIf Modalidad = 2 Then
+ ' ' TrBitacora.Visible = True
+ ' ' LblTitulo.Text = "Bitácoras"
+ ' ' Page.Title = "SAT - Imprimir Bitácoras"
+ ' ' TxtFechaIBit.Text = Now.ToShortDateString
+ ' ' TxtFechaFBit.Text = Now.ToShortDateString
+ ' 'End If
+ ' End Sub
+
+ ' Private Sub CargaSeccion()
+ ' Dim dt As DataTable = GlobalDTContratosSecciones.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+ ' DdlSeccion.DataSource = dt
+ ' DdlSeccion.DataBind()
+ ' DdlSeccion.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todas", "-1"))
+ ' DdlSeccionAdd.DataSource = dt
+ ' DdlSeccionAdd.DataBind()
+
+ ' End Sub
+
+ ' Protected Sub ChkPermitirAvance_CheckedChanged(sender As Object, e As EventArgs)
+ ' Dim ObjContrato As New ClsContratos
+ ' Dim Row As GridViewRow = DirectCast(DirectCast(sender, CheckBox).NamingContainer, GridViewRow)
+ ' ObjContrato.PermitirAvance(GV.DataKeys(Row.RowIndex).Value.ToString.ToEntero, DirectCast(sender, CheckBox).Checked)
+ ' ObjContrato.Dispose()
+ ' Alert("Se ha permitido avance a la sección")
+ ' CargaDatos()
+ ' End Sub
+
+ ' Protected Sub ChkPermitirEstimacion_CheckedChanged(sender As Object, e As EventArgs)
+ ' Dim ObjContrato As New ClsContratos
+ ' Dim Row As GridViewRow = DirectCast(DirectCast(sender, CheckBox).NamingContainer, GridViewRow)
+ ' ObjContrato.PermitirEstimacion(GV.DataKeys(Row.RowIndex).Value.ToString.ToEntero, DirectCast(sender, CheckBox).Checked)
+ ' ObjContrato.Dispose()
+ ' Alert("Se ha permitido estimar en la sección")
+ ' CargaDatos()
+ ' End Sub
+
+ '#Region "C O M B O S"
+ ' Private Sub CargaContratosAdd()
+ ' DdlContratoAdd.DataSource = GlobalDTContratos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+ ' DdlContratoAdd.DataBind()
+ ' ' DdlContratoAdd.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todas", "-1"))
+ ' End Sub
+ ' Private Sub CargaClasificacionAdd()
+ ' DdlClasificacionAdd.DataSource = GlobalDTClasificaciones.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+ ' DdlClasificacionAdd.DataBind()
+ ' ' DdlClasificacionAdd.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todas", "-1"))
+ ' End Sub
+ ' Private Sub CargaPSAdd()
+ ' Dim ObjPS As New ClsProductosServicios
+ ' If ObjPS.GetPS(-1, DdlClasificacionAdd.SelectedValue.ToString.ToEntero, UsuarioActual.CveEmpresa) Then
+ ' DdlPSAdd.DataSource = ObjPS.DtResultados
+ ' Else
+ ' DdlPSAdd.DataSource = Nothing
+ ' End If
+ ' DdlPSAdd.DataBind()
+
+ ' ObjPS.Dispose()
+ ' 'DdlPSAdd.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todas", "-1"))
+ ' End Sub
+ ' Private Sub CargaSeccionAdd()
+ ' 'DdlSeccionAdd.DataSource = GlobalDTContratosSecciones.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+ ' 'DdlSeccionAdd.DataBind()
+ ' 'DdlSeccionAdd.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todas", "-1"))
+ ' Dim ObjSecciones As New ClsContratos
+ ' If ObjSecciones.GetSecciones() Then
+ ' DdlSeccionAdd.DataSource = ObjSecciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+ ' DdlSeccionAdd.DataBind()
+
+ ' End If
+
+ ' ObjSecciones.Dispose()
+
+ ' End Sub
+ ' Private Sub CargaContratos()
+ ' DdlContrato.DataSource = GlobalDTContratos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+ ' DdlContrato.DataBind()
+ ' DdlContrato.Items.Insert(0, New ListItem("Todos", "-1"))
+ ' DdlContrato.SelectedValue = "7"
+ ' End Sub
+ ' Private Sub CargaClasificacion()
+ ' DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
+ ' DdlClasificacion.DataBind()
+ ' DdlClasificacion.Items.Insert(0, New ListItem("Todas", "-1"))
+ ' End Sub
+ ' 'Private Sub CargaCategorias()
+ ' ' DdlPartidas.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
+ ' ' DdlPartidas.DataBind()
+ ' ' DdlPartidas.Items.Insert(0, New ListItem("Todas", "-1"))
+ ' 'End Sub
+ ' Private Sub CargaPS()
+ ' Dim ObjPS As New ClsProductosServicios
+ ' If ObjPS.GetPS(-1, DdlClasificacion.SelectedValue.ToString.ToEntero, UsuarioActual.CveEmpresa) Then
+ ' DdlPS.DataSource = ObjPS.DtResultados.FiltraParametros("", "PS")
+ ' Else
+ ' DdlPS.DataSource = Nothing
+ ' End If
+ ' DdlPS.DataBind()
+
+ ' ObjPS.Dispose()
+ ' DdlPS.Items.Insert(0, New ListItem("Todas", "-1"))
+ ' End Sub
+ '#End Region
+ ' Protected Sub CmdConsultar_Click(sender As Object, e As System.EventArgs) Handles CmdConsultar.Click
+ ' CargaDatos()
+ ' End Sub
+
+ ' Private Sub CargaDatos()
+ ' PorBoton = True
+ ' Dim ContratosSecciones As New ClsContratos()
+
+
+ ' If ContratosSecciones.GetRepContratosAvancesDetalle(-1, CveContrato, CveClasificacion, Tipo, UsuarioActual.CveEmpresa) Then
+ ' 'If ContratosSecciones.GetContratosSecciones(-1, DdlEstatus.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero, DdlContrato.SelectedValue.ToEntero, -1, -1, FechaI, FechaF) Then
+ ' DtDatos = ContratosSecciones.DtResultados
+ ' 'DtDatos.Rows.RemoveAt(0)
+ ' 'DtDatos.Rows.RemoveAt(0)
+ ' ' Cache("DTProgramacion" & UsuarioActual.CveUsuario.ToString()) = ContratosSecciones.DtResultados
+ ' GV.DataSource = DtDatos
+
+
+ ' LblTitulo.Text = "Cliente: " & DtDatos.MAX("Cliente")
+
+ ' DtDatos = DtDatos.FiltraParametros("CveContratoSeccion > 0")
+
+ ' Else
+ ' GV.DataSource = Nothing
+ ' End If
+ ' ContratosSecciones.Dispose()
+ ' GV.DataBind()
+ ' CargaMapa()
+ ' mapa.ZoomFull()
+ ' UpDatos.Update()
+ ' End Sub
+
+ ' Protected Sub GV_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GV.RowCommand
+ ' If e.CommandName = "Sel" Then
+ ' Seleccionado = e.CommandArgument.ToString
+ ' 'GV.SelectRow(e.CommandArgument.ToString.ToEntero - 1)
+ ' CargaMapa()
+ ' End If
+
+ ' End Sub
+
+ ' 'Protected Sub GV_RowCreated(sender As Object, e As GridViewRowEventArgs) Handles GV.RowCreated
+ ' ' If e.Row.RowType = DataControlRowType.DataRow Then
+ ' ' e.Row.ClientIDMode = ClientIDMode.Static
+ ' ' e.Row.ID = String.Format("Tr-{0}", e.Row.DBCampo("ID_GIS"))
+ ' ' End If
+
+ ' 'End Sub
+
+ ' Protected Sub GV_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GV.RowDataBound
+ ' If e.Row.RowType = DataControlRowType.DataRow Then
+ ' If e.Row.RowIndex = 0 Then
+ ' e.Row.Cells(0).Width = Unit.Pixel(300) 'Seccion
+ ' e.Row.Cells(1).Width = Unit.Pixel(100) 'SubSeccion
+ ' e.Row.Cells(2).Width = Unit.Pixel(120) 'Cantidad
+ ' e.Row.Cells(3).Width = Unit.Pixel(100) 'PU
+ ' e.Row.Cells(4).Width = Unit.Pixel(100) 'Permitir Avance
+ ' e.Row.Cells(5).Width = Unit.Pixel(100) 'Permitir Estimacion
+ ' 'e.Row.Cells(6).Width = Unit.Pixel(100) 'Número Estimación
+ ' ' e.Row.Cells(7).Width = Unit.Pixel(100) 'Factura
+ ' End If
+
+ ' e.Row.ClientIDMode = ClientIDMode.Static
+ ' e.Row.ID = String.Format("Tr{0}", e.Row.DBCampo("ID_GIS"))
+
+ ' e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Center
+
+ ' If e.Row.DBCampo("NumeroContrato") = "" Then
+ ' e.Row.CssClass = "SubTotales3" : e.Row.Height = 25
+ ' ElseIf e.Row.DBCampo("Partida") = "" Then
+ ' e.Row.CssClass = "SubTotales2" : e.Row.Height = 25
+ ' ElseIf e.Row.DBCampo("PS") = "" Then
+ ' e.Row.CssClass = "SubTotales" : e.Row.Height = 25
+ ' ElseIf e.Row.DBCampo("Seccion") = "" Then
+ ' e.Row.CssClass = "SubTotales3" : e.Row.Height = 25
+ ' End If
+
+ ' End If
+ ' End Sub
+
+ ' Private Sub CargaGrid(ByVal Orden As String)
+
+ ' If Orden <> String.Empty Then
+ ' Dim DV As New DataView(CType(Cache("DTProgramacion" & UsuarioActual.CveUsuario.ToString()), DataTable), "", Orden, DataViewRowState.CurrentRows)
+ ' GV.DataSource = DV.ToTable()
+ ' DV.Dispose()
+ ' Else
+ ' GV.DataSource = CType(Cache("DTProgramacion" & UsuarioActual.CveUsuario.ToString()), DataTable)
+ ' End If
+
+ ' GV.DataBind()
+ ' UpDatos.Update()
+
+ ' End Sub
+
+ ' 'Protected Sub CmdBuscar_Click(sender As Object, e As System.EventArgs) Handles CmdBuscar.Click
+ ' ' Dim ObjBitacora As New ClsBitacora()
+
+ ' ' Dim FechaI, FechaF As String
+ ' ' FechaI = If(IsDate(TxtFechaIBit.Text.Trim()), TxtFechaIBit.Text.Trim(), "-1")
+ ' ' FechaF = If(IsDate(TxtFechaFBit.Text.Trim()), TxtFechaFBit.Text.Trim(), "-1")
+
+ ' ' If ObjBitacora.GetBitacora(DdlContratos.SelectedValue, FechaI, FechaF) Then
+ ' ' GVBitacora.DataSource = ObjBitacora.DtResultados
+ ' ' Else
+ ' ' GVBitacora.DataSource = Nothing
+ ' ' End If
+ ' ' ObjBitacora.Dispose()
+
+ ' ' GVBitacora.DataBind()
+ ' 'End Sub
+ ' Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacion.SelectedIndexChanged
+ ' CargaPS()
+ ' End Sub
+
+ ' Protected Sub BtnAgregar_Click(sender As Object, e As System.EventArgs) Handles BtnAgregar.Click
+ ' RegistraScript("PosicionaObjeto('BtnAgregar','divContrato','');")
+ ' TrContratos.Visible = True
+ ' divContrato.Visible = True
+ ' CargaContratosAdd()
+ ' CargaClasificacionAdd()
+ ' CargaSeccionAdd()
+ ' UpContratos.Update()
+ ' 'Dim con As New ClsContratos
+ ' 'con.AddContratosSecciones(DdlContrato.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero, DdlSeccion.SelectedValue.ToEntero, 5, 3, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+ ' 'con.Dispose()
+ ' End Sub
+
+ ' Protected Sub DdlClasificacionAdd_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacionAdd.SelectedIndexChanged
+ ' CargaPSAdd()
+ ' End Sub
+
+ ' Protected Sub BtnAgregarContratoSeccion_Click(sender As Object, e As System.EventArgs) Handles BtnAgregarContratoSeccion.Click
+ ' Dim ObjContratosSecciones As New ClsContratos
+ ' If ObjContratosSecciones.AddContratosSecciones(DdlContratoAdd.SelectedValue.ToEntero, DdlSeccionAdd.SelectedValue.ToEntero, DdlPSAdd.SelectedValue.ToEntero, TxtCantidad.Text.Trim.ToDouble, TxtPU.Text.Trim.ToDouble, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+ ' TxtCantidad.Text = ""
+ ' TxtPU.Text = ""
+ ' Alert("El Nuevo Contrato Sección se Agregó Correctamente.", TipoMensaje.MsgInformacion)
+ ' UpContratos.Update()
+ ' ViewState("DTContratosSecciones") = ObjContratosSecciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+ ' CargaDatos()
+
+ ' End If
+ ' ObjContratosSecciones.Dispose()
+
+ ' End Sub
+
+ ' Protected Sub LBFoto_OnClick(ByVal Sender As Object, ByVal E As EventArgs)
+
+ ' Dim LB As LinkButton = CType(Sender, LinkButton)
+ ' divFotos.Visible = True
+
+ ' Dim Con As New ClsContratos
+ ' If Con.GetContratoSeccion(LB.CommandArgument.ToEntero, UsuarioActual.CveEmpresa) Then
+ ' Dim dt As DataTable = Con.DtResultados
+ ' RegistraScript("PosicionaObjeto('" & LB.ClientID & "','divFotos','');")
+ ' If dt.Rows.Count > 0 Then
+ ' Img1.ImageUrl = "/Empresas/66/Avances/Imagenes/" & dt.Rows(0)("Img1").ToString
+ ' If dt.Rows(0)("Img2").ToString <> "" Then
+ ' Img2.Visible = True
+ ' Img2.ImageUrl = "/Empresas/66/Avances/Imagenes/" & dt.Rows(0)("Img2").ToString
+ ' End If
+ ' If dt.Rows(0)("Img3").ToString <> "" Then
+ ' Img3.Visible = True
+ ' Img3.ImageUrl = "/Empresas/66/Avances/Imagenes/" & dt.Rows(0)("Img3").ToString
+ ' End If
+ ' End If
+ ' UPFoto.Update()
+ ' End If
+ ' Con.Dispose()
- End Sub
+ ' End Sub
- Protected Sub LBGeom_OnClick(ByVal Sender As Object, ByVal E As EventArgs)
+ ' Protected Sub LBGeom_OnClick(ByVal Sender As Object, ByVal E As EventArgs)
- Dim LB As LinkButton = CType(Sender, LinkButton)
- divGeom.Visible = True
+ ' Dim LB As LinkButton = CType(Sender, LinkButton)
+ ' divGeom.Visible = True
- Dim Con As New ClsContratos
- If Con.GetContratoSeccion(LB.CommandArgument.ToEntero, UsuarioActual.CveEmpresa) Then
- Dim dt As DataTable = Con.DtResultados
- RegistraScript("PosicionaObjeto('" & LB.ClientID & "','divGeom','');")
- CargaMapaGeom(dt.Rows(0)("x").ToString.ToDouble, dt.Rows(0)("y").ToString.ToDouble)
- UPGPS.Update()
- End If
- Con.Dispose()
+ ' Dim Con As New ClsContratos
+ ' If Con.GetContratoSeccion(LB.CommandArgument.ToEntero, UsuarioActual.CveEmpresa) Then
+ ' Dim dt As DataTable = Con.DtResultados
+ ' RegistraScript("PosicionaObjeto('" & LB.ClientID & "','divGeom','');")
+ ' CargaMapaGeom(dt.Rows(0)("x").ToString.ToDouble, dt.Rows(0)("y").ToString.ToDouble)
+ ' UPGPS.Update()
+ ' End If
+ ' Con.Dispose()
- End Sub
+ ' End Sub
- Private Sub CargaMapaGeom(x As Double, y As Double)
+ ' Private Sub CargaMapaGeom(x As Double, y As Double)
- Dim gml As GoogleMapsLayer = New GoogleMapsLayer()
- gml.MapType = GoogleMapType.Normal
+ ' Dim gml As GoogleMapsLayer = New GoogleMapsLayer()
+ ' gml.MapType = GoogleMapType.Normal
- MapGeom.BackgroundLayer = gml
+ ' MapGeom.BackgroundLayer = gml
- '' set the transparency of the main map image to display other layers over the satellite map
- MapGeom.ImageFormat = ImageFormat.Png
- MapGeom.ImageOpacity = 0.8
+ ' '' set the transparency of the main map image to display other layers over the satellite map
+ ' MapGeom.ImageFormat = ImageFormat.Png
+ ' MapGeom.ImageOpacity = 0.8
- 'MapGeom.Markers.Add(New Marker(New AspMap.Point(x, y), "x", "y"))
- 'MapGeom.Markers.Add(New Marker(New AspMap.Point(-52441177.6239012, 3577172.53285846), "x", "y"))
+ ' 'MapGeom.Markers.Add(New Marker(New AspMap.Point(x, y), "x", "y"))
+ ' 'MapGeom.Markers.Add(New Marker(New AspMap.Point(-52441177.6239012, 3577172.53285846), "x", "y"))
- 'If Mapa.Markers.Count > 0 Then
- 'MapGeom.ZoomScale(New AspMap.Point(Mapa.Markers(0).Position.X, Mapa.Markers(0).Position.Y), 750000)
- 'End If
+ ' 'If Mapa.Markers.Count > 0 Then
+ ' 'MapGeom.ZoomScale(New AspMap.Point(Mapa.Markers(0).Position.X, Mapa.Markers(0).Position.Y), 750000)
+ ' 'End If
- End Sub
+ ' End Sub
- Private Sub CargaMapa()
+ ' Private Sub CargaMapa()
- Dim dbLayer As AspMap.Layer
- Dim feature As AspMap.Feature
- 'Dim FillColor, LineColor As Color
- Mapa.RemoveAllLayers()
+ ' Dim dbLayer As AspMap.Layer
+ ' Dim feature As AspMap.Feature
+ ' 'Dim FillColor, LineColor As Color
+ ' Mapa.RemoveAllLayers()
- dbLayer = Mapa.AddLayer(ModExtensiones.DirectorioBaseEmpresas & "GIS\Carretera.tab")
- If dbLayer IsNot Nothing AndAlso DtDatos IsNot Nothing Then
+ ' dbLayer = Mapa.AddLayer(ModExtensiones.DirectorioBaseEmpresas & "GIS\Carretera.tab")
+ ' If dbLayer IsNot Nothing AndAlso DtDatos IsNot Nothing Then
- If (Not dbLayer.AddRelate("ID_GIS", DtDatos, "ID_GIS")) Then
- Alert("No se puede vincular las tablas")
- End If
- Dim renderer As FeatureRenderer = dbLayer.Renderer
+ ' If (Not dbLayer.AddRelate("ID_GIS", DtDatos, "ID_GIS")) Then
+ ' Alert("No se puede vincular las tablas")
+ ' End If
+ ' Dim renderer As FeatureRenderer = dbLayer.Renderer
- 'Seleccionado
- If Seleccionado <> "" Then
- feature = renderer.Add() : feature.Expression = String.Format("ID_Gis = {0}", Seleccionado) : feature.Symbol.FillStyle = FillStyle.Solid : feature.Symbol.FillColor = Color.LightSkyBlue : feature.Symbol.LineColor = Color.FromArgb(120, 168, 192) : feature.Tag = "-3"
+ ' 'Seleccionado
+ ' If Seleccionado <> "" Then
+ ' feature = renderer.Add() : feature.Expression = String.Format("ID_Gis = {0}", Seleccionado) : feature.Symbol.FillStyle = FillStyle.Solid : feature.Symbol.FillColor = Color.LightSkyBlue : feature.Symbol.LineColor = Color.FromArgb(120, 168, 192) : feature.Tag = "-3"
- End If
+ ' End If
- ''Estimado
- feature = renderer.Add() : feature.Expression = "NumeroEstimacionNum > 0 " : feature.Symbol.FillStyle = FillStyle.Solid : feature.Symbol.FillColor = Color.Green : feature.Symbol.LineColor = Color.FromArgb(192, 144, 96) : feature.Tag = "-2"
+ ' ''Estimado
+ ' feature = renderer.Add() : feature.Expression = "NumeroEstimacionNum > 0 " : feature.Symbol.FillStyle = FillStyle.Solid : feature.Symbol.FillColor = Color.Green : feature.Symbol.LineColor = Color.FromArgb(192, 144, 96) : feature.Tag = "-2"
- ''Estimado
- feature = renderer.Add() : feature.Expression = "PermitirAvanceNum > 0 " : feature.Symbol.FillStyle = FillStyle.Solid : feature.Symbol.FillColor = Color.Yellow : feature.Symbol.LineColor = Color.FromArgb(192, 144, 96) : feature.Tag = "-2"
+ ' ''Estimado
+ ' feature = renderer.Add() : feature.Expression = "PermitirAvanceNum > 0 " : feature.Symbol.FillStyle = FillStyle.Solid : feature.Symbol.FillColor = Color.Yellow : feature.Symbol.LineColor = Color.FromArgb(192, 144, 96) : feature.Tag = "-2"
- ''Por Estimar
- feature = renderer.Add() : feature.Expression = "PermitirEstimacionNum = 1 " : feature.Symbol.FillStyle = FillStyle.Solid : feature.Symbol.FillColor = Color.LightGray : feature.Symbol.LineColor = Color.FromArgb(120, 168, 192) : feature.Tag = "-3"
+ ' ''Por Estimar
+ ' feature = renderer.Add() : feature.Expression = "PermitirEstimacionNum = 1 " : feature.Symbol.FillStyle = FillStyle.Solid : feature.Symbol.FillColor = Color.LightGray : feature.Symbol.LineColor = Color.FromArgb(120, 168, 192) : feature.Tag = "-3"
- End If
- End Sub
+ ' End If
+ ' End Sub
- Protected Sub Map1_InfoTool(ByVal sender As Object, ByVal e As InfoToolEventArgs)
+ ' Protected Sub Map1_InfoTool(ByVal sender As Object, ByVal e As InfoToolEventArgs)
- If e.Argument = "" Then
- Dim records As AspMap.Recordset = Mapa.Identify(e.InfoPoint, 10)
+ ' If e.Argument = "" Then
+ ' Dim records As AspMap.Recordset = Mapa.Identify(e.InfoPoint, 10)
- Seleccionado = records("ID_Gis").ToString
+ ' Seleccionado = records("ID_Gis").ToString
- GV.SelectRow(records("ID_Gis").ToString.ToEntero - 1)
- 'RegistraScript(String.Format("Colorea(Tr{0})", records("ID_GIS")))
+ ' GV.SelectRow(records("ID_Gis").ToString.ToEntero - 1)
+ ' 'RegistraScript(String.Format("Colorea(Tr{0})", records("ID_GIS")))
- Dim dbLayer As AspMap.Layer = Mapa.Layer(0)
+ ' Dim dbLayer As AspMap.Layer = Mapa.Layer(0)
- Dim feature = New AspMap.Feature()
+ ' Dim feature = New AspMap.Feature()
- feature.Expression = String.Format("ID_Gis = " & Seleccionado)
- feature.Symbol.FillColor = Color.LightSkyBlue
- dbLayer.Renderer.Add(feature)
+ ' feature.Expression = String.Format("ID_Gis = " & Seleccionado)
+ ' feature.Symbol.FillColor = Color.LightSkyBlue
+ ' dbLayer.Renderer.Add(feature)
- End If
- End Sub
+ ' End If
+ ' End Sub
-#Region "O R D E N A M I E N T O"
- Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs)
- Dim Orden As String = ""
- Dim Campo As String = ""
- Dim Literal As Literal = Nothing
- Const OrdenInicial As String = ""
- Dim Arg(2) As String
+ '#Region "O R D E N A M I E N T O"
+ ' Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs)
+ ' Dim Orden As String = ""
+ ' Dim Campo As String = ""
+ ' Dim Literal As Literal = Nothing
+ ' Const OrdenInicial As String = ""
+ ' Dim Arg(2) As String
- Arg = CType(sender, LinkButton).CommandArgument().ToString.Split(";"c)
- Campo = Arg(0)
- Literal = CType(CType(sender, LinkButton).NamingContainer.FindControl("Img" & Campo.Replace(",", "_")), Literal)
+ ' Arg = CType(sender, LinkButton).CommandArgument().ToString.Split(";"c)
+ ' Campo = Arg(0)
+ ' Literal = CType(CType(sender, LinkButton).NamingContainer.FindControl("Img" & Campo.Replace(",", "_")), Literal)
- If ViewState(String.Format("O{0}", Campo)) IsNot Nothing AndAlso ViewState(String.Format("O{0}", Campo)).ToString = String.Format("{0} DESC", Campo) Then
- ViewState(String.Format("O{0}", Campo)) = String.Format("{0} ASC", Campo)
- Literal.Text = String.Format("")
- Else
- ViewState(String.Format("O{0}", Campo)) = String.Format("{0} DESC", Campo)
- Literal.Text = String.Format("")
- End If
- Orden = OrdenInicial & ViewState(String.Format("O{0}", Campo)).ToString
- ViewState("Orden") = Orden
- CargaGrid(Orden)
- End Sub
+ ' If ViewState(String.Format("O{0}", Campo)) IsNot Nothing AndAlso ViewState(String.Format("O{0}", Campo)).ToString = String.Format("{0} DESC", Campo) Then
+ ' ViewState(String.Format("O{0}", Campo)) = String.Format("{0} ASC", Campo)
+ ' Literal.Text = String.Format("")
+ ' Else
+ ' ViewState(String.Format("O{0}", Campo)) = String.Format("{0} DESC", Campo)
+ ' Literal.Text = String.Format("")
+ ' End If
+ ' Orden = OrdenInicial & ViewState(String.Format("O{0}", Campo)).ToString
+ ' ViewState("Orden") = Orden
+ ' CargaGrid(Orden)
+ ' End Sub
-#End Region
+ '#End Region
End Class
diff --git a/Empresas/119/Formatos/Polizas.rdlc b/Empresas/119/Formatos/Polizas.rdlc
index 30145ef5f..080600e53 100644
--- a/Empresas/119/Formatos/Polizas.rdlc
+++ b/Empresas/119/Formatos/Polizas.rdlc
@@ -1,5 +1,5 @@
-
+0
@@ -17,86 +17,78 @@
/* Local Query */
-
- Id
- System.Int16
-
-
- IdPoliza
- System.Int16
-
-
- Fecha
- System.DateTime
-
-
- TipoPol
- System.String
-
-
- Nombre
- System.String
-
-
- Cuenta
- System.String
-
-
- CuentaFormato
- System.String
-
-
- Numero
- System.String
-
-
- Referencia
- System.String
-
-
- Concepto
- System.String
-
-
- ConceptoPoliza
- System.String
-
-
- Cargos
- System.Double
-
-
- Abonos
- System.Double
-
-
- Cargo
- System.Double
-
-
- Abono
- System.Double
-
-
- Folio
- System.Double
-
-
- Codigo
- System.Double
-
-
- SegNeg
- System.String
-
-
- TipoMovto
- System.Double
-
-
- UsuarioRegistro
- System.String
-
+
+ Id
+ System.Int32
+
+
+ Fecha
+ System.DateTime
+
+
+ TipoPoliza
+ System.String
+
+
+ NombreCuenta
+ System.String
+
+
+ CodigoCuenta
+ System.String
+
+
+ Numero
+ System.Int32
+
+
+ Folio
+ System.Int32
+
+
+ Referencia
+ System.String
+
+
+ Concepto
+ System.String
+
+
+ ConceptoPoliza
+ System.String
+
+
+ TipoMovto
+ System.Int32
+
+
+ Cargos
+ System.String
+
+
+ Abonos
+ System.String
+
+
+ SegNeg
+ System.String
+
+
+ Cargo
+ System.Decimal
+
+
+ Abono
+ System.Decimal
+
+
+ Codigo
+ System.String
+
+
+ NombreUsuario
+ System.String
+ DataSet1
@@ -116,22 +108,31 @@
- 2.5cm
+ 2.15421cm
- 2.5cm
+ 2.15421cm
- 8.64979cm
+ 2.15421cm
- 2.15333cm
+ 2.15421cm
- 2.15604cm
+ 2.15421cm
- 1.89146cm
+ 2.15421cm
+
+
+ 2.15421cm
+
+
+ 2.15421cm
+
+
+ 2.15421cm
@@ -240,6 +241,108 @@
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox34
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox25
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox17
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
@@ -283,7 +386,7 @@
- ="Folio: " & Fields!Folio.Value
+ ="Folio: " & Fields!Numero.Value
- 4
+ 7
+
+
+
@@ -517,8 +623,12 @@
2pt
+ 4
+
+
+
@@ -671,7 +781,7 @@
- =Fields!CuentaFormato.Value
+ =Fields!CodigoCuenta.Value
+ 4
+
+
+
@@ -944,8 +1058,12 @@
1pt
+ 4
+
+
+
@@ -1065,7 +1183,7 @@
- =Code.IsNewPage(Fields!IdPoliza.Value,nothing,nothing)
+ =Code.IsNewPage(Fields!Id.Value,nothing,nothing)
+
+
+
+
+
+ Textbox40
+
+
+ 1pt
+ 1pt
+ 1pt
+ 1pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox29
+
+
+ 1pt
+ 1pt
+ 1pt
+ 1pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox21
+
+
+ 1pt
+ 1pt
+ 1pt
+ 1pt
+
+
+
+
@@ -1274,6 +1488,175 @@
+
+ 2.26688cm
+
+
+
+
+ true
+ true
+
+
+
+
+ Usuario:
+
+
+
+
+
+
+
+
+ =Fields!NombreUsuario.Value
+
+
+
+
+
+
+ UsuarioRegistro1
+
+
+ Bottom
+ 1pt
+ 1pt
+ 1pt
+ 1pt
+
+
+ 3
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Revisado Por:
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Textbox41
+
+
+ Bottom
+ 1pt
+ 1pt
+ 1pt
+ 1pt
+
+
+ 3
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Autorizado Por:
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ UsuarioRegistro
+
+
+
+
+
+ Bottom
+ 1pt
+ 1pt
+ 1pt
+ 1pt
+
+
+ 3
+
+
+
+
+
+
@@ -1284,14 +1667,17 @@
+
+
+
-
+
- =Fields!IdPoliza.Value
+ =Fields!Id.ValueEnd
@@ -1299,7 +1685,7 @@
- =Fields!UsuarioRegistro.Value
+ =Fields!NombreUsuario.Value
@@ -1328,6 +1714,9 @@
Before
+
+ Before
+
@@ -1339,8 +1728,8 @@
true0.05076cm
- 3.18542cm
- 19.85062cm
+ 5.4523cm
+ 19.38789cm
@@ -1375,153 +1764,11 @@
2pt
-
- true
- true
-
-
-
-
- Usuario:
-
-
-
-
-
-
-
-
-
-
-
-
- =ReportItems!TxtUsuarioRegistro.Value
-
-
-
-
-
-
- Textbox31
- 4.47958cm
- 0.9cm
- 6cm
- 2
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- Revisado Por:
-
-
-
-
-
-
-
-
-
-
- Textbox31
- 4.47958cm
- 7.295cm
- 0.9cm
- 6cm
- 3
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- Autorizado Por:
-
-
-
-
-
-
-
-
-
-
- Textbox31
- 4.47958cm
- 14.14166cm
- 0.9cm
- 5.70896cm
- 4
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
- 5.82055cm