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:
Jonathan Alexis Perez Morales
2024-12-05 09:08:54 -07:00
parent 30eab84d5d db8d7f6aff
commit 95a7933124
26 changed files with 39018 additions and 521 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
App_Code/ClsContratos.vb
View File

@@ -202,7 +202,8 @@ Public Class ClsContratos
Optional CveTipoAF As Integer = -1, Optional CveChofer As Integer = -1, Optional CveTipoAF As Integer = -1, Optional CveChofer As Integer = -1,
Optional CveTipoContrato As Integer = -1, Optional CveTipoContrato As Integer = -1,
Optional FechaInicioIngreso As DateTime = MinFecha, Optional FechaInicioIngreso As DateTime = MinFecha,
Optional FechaFinIngreso As DateTime = MaxFecha) As Boolean Optional FechaFinIngreso As DateTime = MaxFecha,
Optional EsPresupuestal As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Con_ContratosReporteGet") DataAdapter("PA_Con_ContratosReporteGet")
@@ -218,6 +219,7 @@ Public Class ClsContratos
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@FechaInicioIngreso", SqlDbType.DateTime).Value = FechaInicioIngreso .Add("@FechaInicioIngreso", SqlDbType.DateTime).Value = FechaInicioIngreso
.Add("@FechaFinIngreso", SqlDbType.DateTime).Value = FechaFinIngreso .Add("@FechaFinIngreso", SqlDbType.DateTime).Value = FechaFinIngreso
.Add("@EsPresupuestal", SqlDbType.Int).Value = EsPresupuestal
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)

12
App_Code/ClsNominas.vb
View File

@@ -298,7 +298,19 @@ Public Class ClsNominas
SqlAdapter.Fill(DTSet) SqlAdapter.Fill(DTSet)
If DTSet.Tables.Count > 0 Then If DTSet.Tables.Count > 0 Then
Data = DTSet.Tables(0) Data = DTSet.Tables(0)
If DTSet.Tables.Count > 1 AndAlso DTSet.Tables(1).Rows.Count > 0 Then
Dim errormsg As String = "Se han detectado cultivos ("
Dim coma As String = ""
For Each row As DataRow In DTSet.Tables(1).Rows
errormsg = String.Format("{0}{1} {2}", errormsg, coma, row("Cultivo"))
coma = ","
Next
errormsg = String.Format("{0} ) que no tienen un producto vinculado. Por favor, revise el catálogo de cultivos para completar la información.", errormsg)
Alert(errormsg, TipoMensaje.MsgAdvertencia)
End If
End If End If
retorno = True retorno = True
Catch Ex1 As SqlException Catch Ex1 As SqlException

4
Ashx/CargaEventos.ashx
View File

@@ -521,9 +521,9 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
If Not CveCliente > 0 Then If Not CveCliente > 0 Then
CveCliente = -1 CveCliente = -1
End If End If
'no se consideran, los presupuestales
If ObjContratos.GetContratosReporte(usuarioActual_.CveEmpresa, FI.ToString.ToDate, FF.ToString.ToDate, CveCliente:=CveCliente, CveTipoAF:=CveTipoActivoFijo, If ObjContratos.GetContratosReporte(usuarioActual_.CveEmpresa, FI.ToString.ToDate, FF.ToString.ToDate, CveCliente:=CveCliente, CveTipoAF:=CveTipoActivoFijo,
CveTipoContrato:=34, CveEstatus:=CveContratoEstatus) Then CveTipoContrato:=34, CveEstatus:=CveContratoEstatus, EsPresupuestal:=0) Then
'CveTipoAF 'CveTipoAF
'CveChofer, CveChofer2 'CveChofer, CveChofer2

BIN
Bin/itextsharp.dll Normal file
View File

Binary file not shown.

38512
Bin/itextsharp.xml Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
Bin/itextsharp.xtra.dll Normal file
View File

Binary file not shown.

254
Compras/Compras.aspx.vb
View File

@@ -1,4 +1,4 @@
Option Explicit On '{Option Explicit On
Option Strict On Option Strict On
Imports System.Data Imports System.Data
@@ -14,9 +14,6 @@ Imports System.Data.SqlClient
Imports ClsPaginas Imports ClsPaginas
Imports Microsoft.Owin.Security.Provider Imports Microsoft.Owin.Security.Provider
Partial Class Compras_Compras Partial Class Compras_Compras
Inherits ClsPaginas Inherits ClsPaginas
@@ -9364,44 +9361,94 @@ Partial Class Compras_Compras
End If End If
End If End If
If (NumeroReembolsoOriginal.Trim <> TxtRembolsoNumero.Text.Trim) Then
'NOTA. si hay un cambio en el reembolso, puede tener estas consideraciones.
'1. no tenía comprobación y se ocupa relacionar, se deberá validar que no tenga pagos contabilizados
'2. se está cambiando de comprobación
'3. se está quitando la relación de una comprobación
If (TxtRembolsoNumero.Text.Trim.Length > 0 AndAlso IdPoliza <= 0) AndAlso (NumeroReembolsoOriginal.Trim <> TxtRembolsoNumero.Text.Trim) Then If (TxtRembolsoNumero.Text.Trim.Length > 0) Then
'valida.
If NumeroReembolsoOriginal = "" Then ' se asignará a una nueva comprobación
Dim CvePersonalVal As Integer = -1
Dim CveCajaChicaVal As Integer = -1
Dim tienePagoContabilizado As Boolean = False
'CUANDO ES REEMBOLSO COMPROBACION Y CAJA CHICA If RblRembolso.SelectedValue.ToEntero = 1 Then
If UsuarioActual.CveEmpresa.Contiene(1, 119, 141, 172, 173, 174, 13, 83) AndAlso TxtRembolsoNumero.Text.Trim <> "" AndAlso (DdlRembolsoPersonal.SelectedValue.ToEntero > 0 Or DdlRembolsoCajaChica.SelectedValue.ToEntero > 0) Then CvePersonalVal = DdlRembolsoPersonal.SelectedValue.ToEntero
If ObjCompra.GetComprobacion(DdlRembolsoPersonal.SelectedValue.ToEntero, DdlRembolsoCajaChica.SelectedValue.ToEntero, TxtRembolsoNumero.Text.Trim, UsuarioActual.CveEmpresa) Then
Dim CvePreComprobacion As Integer
If ObjCompra.DtResultados.Rows.Count = 0 Then
'sino existe, creamos la comprobacion
Dim tConcepto As String = If(DdlRembolsoPersonal.SelectedValue.ToEntero > 0, DdlRembolsoPersonal.SelectedItem.Text, DdlRembolsoCajaChica.SelectedItem.Text)
tConcepto = String.Format("{0}-{1}", tConcepto, TxtRembolsoNumero.Text.Trim)
CvePreComprobacion = ObjContabilidad.AddPrePolizas("Compras Comproba", 1, 0, 0, 1, TxtFecha.Text.ToDate, tConcepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If ObjCompra.AddComprobacion(DdlRembolsoPersonal.SelectedValue.ToEntero, DdlRembolsoCajaChica.SelectedValue.ToEntero, TxtRembolsoNumero.Text.Trim, CvePreComprobacion, UsuarioActual.CveEmpresa) > 0 Then
End If
Else Else
'si ya existe, obtenemos la prepóliza CveCajaChicaVal = DdlRembolsoCajaChica.SelectedValue.ToEntero
CvePreComprobacion = ObjCompra.DtResultados.FiltroPrimeroValor("CvePrePoliza").ToEntero
End If End If
ObjContabilidad.PrePolizaUnificacion(CvePreComprobacion, CvePrePoliza) If ObjCompra.GetComprobacionPagosContabilizados(CvePersonalVal, CveCajaChicaVal, TxtRembolsoNumero.Text.Trim, UsuarioActual.CveEmpresa) Then
If ObjCompra.DtResultados IsNot Nothing AndAlso ObjCompra.DtResultados.Rows.Count > 0 Then
tienePagoContabilizado = True
End If
If tienePagoContabilizado Then
Alert($"No se puede actualizar el número de reembolso {TxtRembolsoNumero.Text}, ya tiene pagos contabilizados.", TipoMensaje.MsgAdvertencia)
Retorno = False
End If
'If objConta.GetPrePoliza(CvePrePoliza, UsuarioActual.CveEmpresa) Then
' Dim FolioPoliza As Integer = objConta.DtResultados.Rows(0)("FolioPoliza").ToString.ToEntero
' If FolioPoliza > 0 Then
' If Not objConta.ContabilizaDesContabilizaPrePoliza(CvePrePoliza, False, UsuarioActual.CveEmpresa) Then
' ErrorProceso = True
' End If
' End If
'End If
Else
Retorno = False
End If
End If End If
If Retorno Then
'CUANDO ES REEMBOLSO COMPROBACION Y CAJA CHICA
If UsuarioActual.CveEmpresa.Contiene(1, 119, 141, 172, 173, 174, 13, 83) AndAlso TxtRembolsoNumero.Text.Trim <> "" AndAlso (DdlRembolsoPersonal.SelectedValue.ToEntero > 0 OrElse DdlRembolsoCajaChica.SelectedValue.ToEntero > 0) Then
If ObjCompra.GetComprobacion(DdlRembolsoPersonal.SelectedValue.ToEntero, DdlRembolsoCajaChica.SelectedValue.ToEntero, TxtRembolsoNumero.Text.Trim, UsuarioActual.CveEmpresa) Then
Dim CvePreComprobacion As Integer
If ObjCompra.DtResultados.Rows.Count = 0 Then
'sino existe, creamos la comprobacion
Dim tConcepto As String = If(DdlRembolsoPersonal.SelectedValue.ToEntero > 0, DdlRembolsoPersonal.SelectedItem.Text, DdlRembolsoCajaChica.SelectedItem.Text)
tConcepto = String.Format("{0}-{1}", tConcepto, TxtRembolsoNumero.Text.Trim)
CvePreComprobacion = ObjContabilidad.AddPrePolizas("Compras Comproba", 1, 0, 0, 1, TxtFecha.Text.ToDate, tConcepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If ObjCompra.AddComprobacion(DdlRembolsoPersonal.SelectedValue.ToEntero, DdlRembolsoCajaChica.SelectedValue.ToEntero, TxtRembolsoNumero.Text.Trim, CvePreComprobacion, UsuarioActual.CveEmpresa) > 0 Then
End If
Else
'si ya existe, obtenemos la prepóliza
CvePreComprobacion = ObjCompra.DtResultados.FiltroPrimeroValor("CvePrePoliza").ToEntero
End If
'cambiar la prepóliza
If Not ObjContabilidad.PrePolizaCompraCambiaReembolso(CvePreComprobacion, CvePrePoliza, CveCompra, UsuarioActual.CveEmpresa, 1) Then
Retorno = False
End If
' ObjContabilidad.PrePolizaUnificacion(CvePreComprobacion, CvePrePoliza)
End If
End If
End If
Else
'Actualizar PrePoliza Actual de Donde CveCompra = CveCompra poner CvePrePolizaOriginal
If Not ObjContabilidad.PrePolizaCompraCambiaReembolso(-1, CvePrePoliza, CveCompra, UsuarioActual.CveEmpresa, 2) Then
Retorno = False
End If
End If End If
End If End If
Else Else
Retorno = False Retorno = False
End If End If
Else Else
Alert("La compra no se puede actualizar debido a que los totales no son iguales, verifique sus cambios", TipoMensaje.MsgError) Alert("La compra no se puede actualizar debido a que los totales no son iguales, verifique sus cambios", TipoMensaje.MsgError)
End If End If
If Retorno AndAlso (CveRetIVAConceptoOriginal <> DdlRetIVAConcepto.SelectedValue.ToEntero OrElse CveRetISRConceptoOriginal <> DdlRetISRConcepto.SelectedValue.ToEntero) Then If Retorno AndAlso (CveRetIVAConceptoOriginal <> DdlRetIVAConcepto.SelectedValue.ToEntero OrElse CveRetISRConceptoOriginal <> DdlRetISRConcepto.SelectedValue.ToEntero) Then
@@ -9421,20 +9468,17 @@ Partial Class Compras_Compras
End If End If
If Retorno AndAlso Not validaNumeroReembolso(ObjCompra.IniciaTransacSQL()) Then 'If Retorno AndAlso Not validaNumeroReembolso(ObjCompra.IniciaTransacSQL()) Then
Retorno = False ' Retorno = False
End If ' End If
Catch ex As Exception Catch ex As Exception
Alert("Ocurrió un error al actualizar la compra", TipoMensaje.MsgError) Alert("Ocurrió un error al actualizar la compra", TipoMensaje.MsgError)
ObjCompra.RollBack() ObjCompra.RollBack()
If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack() If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
Finally Finally
If Retorno Then If Retorno Then
If ObjContabilidad.MensajePolizaDescuadre IsNot Nothing AndAlso ObjContabilidad.MensajePolizaDescuadre.ToString <> "" Then If ObjContabilidad.MensajePolizaDescuadre IsNot Nothing AndAlso ObjContabilidad.MensajePolizaDescuadre.ToString <> "" Then
Alert(ObjContabilidad.MensajePolizaDescuadre.ToString) Alert(ObjContabilidad.MensajePolizaDescuadre.ToString)
@@ -9546,112 +9590,95 @@ Partial Class Compras_Compras
End Function End Function
Private Function validaNumeroReembolso(ByRef transaccionSql As SqlTransaction) As Boolean 'Private Function validaNumeroReembolso(ByRef transaccionSql As SqlTransaction) As Boolean
Dim CvePersonalVal As Integer = -1 ' Dim CvePersonalVal As Integer = -1
Dim CveCajaChicaVal As Integer = -1 ' Dim CveCajaChicaVal As Integer = -1
If RblRembolso.SelectedValue.ToEntero = 1 Then ' If RblRembolso.SelectedValue.ToEntero = 1 Then
CvePersonalVal = DdlRembolsoPersonal.SelectedValue.ToEntero ' CvePersonalVal = DdlRembolsoPersonal.SelectedValue.ToEntero
Else ' Else
CveCajaChicaVal = DdlRembolsoCajaChica.SelectedValue.ToEntero ' CveCajaChicaVal = DdlRembolsoCajaChica.SelectedValue.ToEntero
End If ' End If
Dim objCompras As New ClsCompras(transaccionSql) ' Dim objCompras As New ClsCompras(transaccionSql)
Dim objConta As New ClsContabilidad(transaccionSql) ' Dim objConta As New ClsContabilidad(transaccionSql)
Dim tienePagoContabilizado As Boolean = False ' Dim tienePagoContabilizado As Boolean = False
Dim ErrorProceso As Boolean = False ' Dim ErrorProceso As Boolean = False
Dim CvePrePolizaReembolsoActual As Integer = CvePrePoliza ' Dim CvePrePolizaReembolsoActual As Integer = CvePrePoliza
Dim CvePrePolizaReembolsoNuevo As Integer = -1 ' Dim CvePrePolizaReembolsoNuevo As Integer = -1
If TxtRembolsoNumero.Text.Trim.Length > 0 Then ' If TxtRembolsoNumero.Text.Trim.Length > 0 Then
If objCompras.GetComprobacion(CvePersonalVal, CveCajaChicaVal, TxtRembolsoNumero.Text.Trim, UsuarioActual.CveEmpresa) Then ' If objCompras.GetComprobacion(CvePersonalVal, CveCajaChicaVal, TxtRembolsoNumero.Text.Trim, UsuarioActual.CveEmpresa) Then
If objCompras.DtResultados.Rows.Count > 0 Then ' If objCompras.DtResultados.Rows.Count > 0 Then
CvePrePolizaReembolsoNuevo = objCompras.DtResultados.Rows(0)("CvePrePoliza").ToString.ToEntero ' CvePrePolizaReembolsoNuevo = objCompras.DtResultados.Rows(0)("CvePrePoliza").ToString.ToEntero
Else ' Else
Dim tConcepto As String = If(DdlRembolsoPersonal.SelectedValue.ToEntero > 0, DdlRembolsoPersonal.SelectedItem.Text, DdlRembolsoCajaChica.SelectedItem.Text) ' Dim tConcepto As String = If(DdlRembolsoPersonal.SelectedValue.ToEntero > 0, DdlRembolsoPersonal.SelectedItem.Text, DdlRembolsoCajaChica.SelectedItem.Text)
tConcepto = String.Format("{0}-{1}", tConcepto, TxtRembolsoNumero.Text.Trim) ' tConcepto = String.Format("{0}-{1}", tConcepto, TxtRembolsoNumero.Text.Trim)
CvePrePolizaReembolsoNuevo = objConta.AddPrePolizas("Compras Comproba", 1, 0, 0, 1, TxtFecha.Text.ToDate, tConcepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) ' CvePrePolizaReembolsoNuevo = objConta.AddPrePolizas("Compras Comproba", 1, 0, 0, 1, TxtFecha.Text.ToDate, tConcepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If Not objCompras.AddComprobacion(DdlRembolsoPersonal.SelectedValue.ToEntero, DdlRembolsoCajaChica.SelectedValue.ToEntero, TxtRembolsoNumero.Text.Trim, CvePrePolizaReembolsoNuevo, UsuarioActual.CveEmpresa) > 0 Then ' If Not objCompras.AddComprobacion(DdlRembolsoPersonal.SelectedValue.ToEntero, DdlRembolsoCajaChica.SelectedValue.ToEntero, TxtRembolsoNumero.Text.Trim, CvePrePolizaReembolsoNuevo, UsuarioActual.CveEmpresa) > 0 Then
ErrorProceso = True ' ErrorProceso = True
End If ' End If
' End If
' End If
' If NumeroReembolsoOriginal = "" And TxtRembolsoNumero.Text.Trim.Length > 0 Then
End If ' If objCompras.GetComprobacionPagosContabilizados(CvePersonalVal, CveCajaChicaVal, TxtRembolsoNumero.Text.Trim, UsuarioActual.CveEmpresa) Then
End If
If NumeroReembolsoOriginal = "" And TxtRembolsoNumero.Text.Trim.Length > 0 Then ' If objCompras.DtResultados IsNot Nothing AndAlso objCompras.DtResultados.Rows.Count > 0 Then
' tienePagoContabilizado = True
' End If
If objCompras.GetComprobacionPagosContabilizados(CvePersonalVal, CveCajaChicaVal, TxtRembolsoNumero.Text.Trim, UsuarioActual.CveEmpresa) Then ' If tienePagoContabilizado Then
' Alert($"No se puede actualizar el número de reembolso {TxtRembolsoNumero.Text}, ya tiene pagos contabilizados.", TipoMensaje.MsgAdvertencia)
' Return False
' End If
If objCompras.DtResultados IsNot Nothing AndAlso objCompras.DtResultados.Rows.Count > 0 Then ' If objConta.GetPrePoliza(CvePrePoliza, UsuarioActual.CveEmpresa) Then
tienePagoContabilizado = True
End If
If tienePagoContabilizado Then ' Dim FolioPoliza As Integer = objConta.DtResultados.Rows(0)("FolioPoliza").ToString.ToEntero
Alert($"No se puede actualizar el número de reembolso {TxtRembolsoNumero.Text}, ya tiene pagos contabilizados.", TipoMensaje.MsgAdvertencia)
Return False
End If
' If FolioPoliza > 0 Then
' If Not objConta.ContabilizaDesContabilizaPrePoliza(CvePrePoliza, False, UsuarioActual.CveEmpresa) Then
' ErrorProceso = True
' End If
' End If
' End If
' Else
' ErrorProceso = True
' End If
' ElseIf NumeroReembolsoOriginal.Length > 0 And TxtRembolsoNumero.Text.Trim.Length > 0 Then
' 'cambiar de prepoliza la compra actual, de la prepoliza actual a la nueva
' If Not objConta.PrePolizaCompraCambiaReembolso(CvePrePolizaReembolsoNuevo, CvePrePoliza, CveCompra, UsuarioActual.CveEmpresa, 1) Then
' ErrorProceso = True
' End If
' End If
' Else
If objConta.GetPrePoliza(CvePrePoliza, UsuarioActual.CveEmpresa) Then ' If NumeroReembolsoOriginal.Length > 0 And TxtRembolsoNumero.Text.Trim.Length = 0 Then
' 'Actualizar PrePoliza Actual de Donde CveCompra = CveCompra poner CvePrePolizaOriginal
' If Not objConta.PrePolizaCompraCambiaReembolso(-1, CvePrePoliza, CveCompra, UsuarioActual.CveEmpresa, 2) Then
' ErrorProceso = True
' End If
' End If
Dim FolioPoliza As Integer = objConta.DtResultados.Rows(0)("FolioPoliza").ToString.ToEntero ' End If
If FolioPoliza > 0 Then ' Return If(ErrorProceso, False, True)
If Not objConta.ContabilizaDesContabilizaPrePoliza(CvePrePoliza, False, UsuarioActual.CveEmpresa) Then
ErrorProceso = True
End If
End If
End If
Else
ErrorProceso = True
End If
ElseIf NumeroReembolsoOriginal.Length > 0 And TxtRembolsoNumero.Text.Trim.Length > 0 Then
'cambiar de prepoliza la compra actual, de la prepoliza actual a la nueva
If Not objConta.PrePolizaCompraCambiaReembolso(CvePrePolizaReembolsoNuevo, CvePrePoliza, CveCompra, UsuarioActual.CveEmpresa, 1) Then
ErrorProceso = True
End If
End If
Else
If NumeroReembolsoOriginal.Length > 0 And TxtRembolsoNumero.Text.Trim.Length = 0 Then
'Actualizar PrePoliza Actual de Donde CveCompra = CveCompra poner CvePrePolizaOriginal
If Not objConta.PrePolizaCompraCambiaReembolso(-1, CvePrePoliza, CveCompra, UsuarioActual.CveEmpresa, 2) Then
ErrorProceso = True
End If
End If
End If
Return If(ErrorProceso, False, True)
End Function
'End Function
Private Sub MandaCorreoActualizacionDetalle() Private Sub MandaCorreoActualizacionDetalle()
Dim DTCorreos As New DataTable Dim DTCorreos As New DataTable
Dim DTMovimientos As New DataTable Dim DTMovimientos As New DataTable
Dim strBody As New StringBuilder Dim strBody As New StringBuilder
@@ -9701,10 +9728,8 @@ Partial Class Compras_Compras
strBody.Append("<body>") strBody.Append("<body>")
strBody.Append($"<p> Se realizo una actualización en los detalles de la compra <a href='{URlCompleta}' >{SerieFolioCompra}</a> del proveedor {HplProveedor.Text}</p>") strBody.Append($"<p> Se realizo una actualización en los detalles de la compra <a href='{URlCompleta}' >{SerieFolioCompra}</a> del proveedor {HplProveedor.Text}</p>")
strBody.Append("</body>") strBody.Append("</body>")
strBody.Append("</html>") strBody.Append("</html>")
'' ENVIO DEL CORREO '' ENVIO DEL CORREO
Asunto = $"Actualizacion de Compra: {SerieFolioCompra} Proveedor: {HplProveedor.Text}" Asunto = $"Actualizacion de Compra: {SerieFolioCompra} Proveedor: {HplProveedor.Text}"
ArrayCC = "" ArrayCC = ""
@@ -9712,8 +9737,6 @@ Partial Class Compras_Compras
Dim Mail As New ClsSisMail() Dim Mail As New ClsSisMail()
Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, ArrayCC) Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, ArrayCC)
End Sub End Sub
Private Function ComparaDatatables() As Boolean Private Function ComparaDatatables() As Boolean
@@ -9755,7 +9778,6 @@ Partial Class Compras_Compras
NumRow += 1 NumRow += 1
Next Next
Return True Return True
End Function End Function

37
Empresas/Grales/Formatos/Salida.rdlc
View File

@@ -364,7 +364,6 @@
<PaddingTop>=IIf(RowNumber(Nothing)=1,"1pt","0pt")</PaddingTop> <PaddingTop>=IIf(RowNumber(Nothing)=1,"1pt","0pt")</PaddingTop>
</Style> </Style>
</Textbox> </Textbox>
<rd:Selected>true</rd:Selected>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell> <TablixCell>
@@ -563,7 +562,7 @@
<Height>0.78472in</Height> <Height>0.78472in</Height>
<Style /> <Style />
</Body> </Body>
<Width>8.39063in</Width> <Width>8.51563in</Width>
<Page> <Page>
<PageHeader> <PageHeader>
<Height>4.11151cm</Height> <Height>4.11151cm</Height>
@@ -694,7 +693,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox18</rd:DefaultName> <rd:DefaultName>Textbox18</rd:DefaultName>
<Top>3.08614cm</Top> <Top>3.24489cm</Top>
<Left>2.43182cm</Left> <Left>2.43182cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>9.54145cm</Width> <Width>9.54145cm</Width>
@@ -726,7 +725,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox16</rd:DefaultName> <rd:DefaultName>Textbox16</rd:DefaultName>
<Top>3.097cm</Top> <Top>3.25575cm</Top>
<Left>0.26872cm</Left> <Left>0.26872cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>2.11724cm</Width> <Width>2.11724cm</Width>
@@ -863,12 +862,14 @@
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
<Style /> <Style>
<TextAlign>Right</TextAlign>
</Style>
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox4</rd:DefaultName> <rd:DefaultName>Textbox4</rd:DefaultName>
<Top>3.09701cm</Top> <Top>3.25576cm</Top>
<Left>13.28924cm</Left> <Left>12.01924cm</Left>
<Height>0.59999cm</Height> <Height>0.59999cm</Height>
<Width>1.80326cm</Width> <Width>1.80326cm</Width>
<ZIndex>9</ZIndex> <ZIndex>9</ZIndex>
@@ -900,10 +901,10 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox6</rd:DefaultName> <rd:DefaultName>Textbox6</rd:DefaultName>
<Top>2.34505cm</Top> <Top>2.40855cm</Top>
<Left>15.0925cm</Left> <Left>13.8225cm</Left>
<Height>0.6cm</Height> <Height>0.53649cm</Height>
<Width>5.9022cm</Width> <Width>7.8072cm</Width>
<ZIndex>10</ZIndex> <ZIndex>10</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -935,10 +936,10 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox32</rd:DefaultName> <rd:DefaultName>Textbox32</rd:DefaultName>
<Top>3.09701cm</Top> <Top>3.31926cm</Top>
<Left>15.0925cm</Left> <Left>13.8225cm</Left>
<Height>0.59999cm</Height> <Height>0.52563cm</Height>
<Width>5.9022cm</Width> <Width>7.8072cm</Width>
<ZIndex>11</ZIndex> <ZIndex>11</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -963,12 +964,14 @@
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
<Style /> <Style>
<TextAlign>Right</TextAlign>
</Style>
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName> <rd:DefaultName>Textbox3</rd:DefaultName>
<Top>2.34505cm</Top> <Top>2.34505cm</Top>
<Left>13.28924cm</Left> <Left>12.01924cm</Left>
<Height>0.59999cm</Height> <Height>0.59999cm</Height>
<Width>1.80326cm</Width> <Width>1.80326cm</Width>
<ZIndex>12</ZIndex> <ZIndex>12</ZIndex>

24
Inventarios/CartaPorteManual.aspx.vb
View File

@@ -195,9 +195,7 @@ Partial Class Inventarios_CartaPorteManual
TxtFecha.Text = NowADS().ToShortDateString TxtFecha.Text = NowADS().ToShortDateString
CEFecha.EndDate = NowADS().AddDays(-1) CEFecha.EndDate = NowADS().AddDays(-1)
RVFecha.MaximumValue = NowADS().ToShortDateString RVFecha.MaximumValue = NowADS().ToShortDateString
Folio = 0 Folio = 0
CargaCombos() CargaCombos()
CreaDT() CreaDT()
@@ -222,7 +220,6 @@ Partial Class Inventarios_CartaPorteManual
End If End If
'If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then 'If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then
' TxtFecha.Enabled = False ' TxtFecha.Enabled = False
@@ -233,7 +230,6 @@ Partial Class Inventarios_CartaPorteManual
End Sub End Sub
#Region "CARGA DATOS" #Region "CARGA DATOS"
Protected Sub CreaDT() Protected Sub CreaDT()
Dim dt As New DataTable Dim dt As New DataTable
@@ -247,8 +243,6 @@ Partial Class Inventarios_CartaPorteManual
dt.Columns.Add(column) dt.Columns.Add(column)
dt.Columns.Add("Cantidad", Type.GetType("System.Double")) dt.Columns.Add("Cantidad", Type.GetType("System.Double"))
dt.Columns.Add("CveUM", Type.GetType("System.Int32")) dt.Columns.Add("CveUM", Type.GetType("System.Int32"))
dt.Columns.Add("UnidadMedida") dt.Columns.Add("UnidadMedida")
@@ -265,8 +259,6 @@ Partial Class Inventarios_CartaPorteManual
dt.Columns.Add("Lote") dt.Columns.Add("Lote")
dt.Columns.Add("FechaCaducidad", Type.GetType("System.DateTime")) dt.Columns.Add("FechaCaducidad", Type.GetType("System.DateTime"))
dt.Columns.Add("CveClasificacion", Type.GetType("System.Int32")) dt.Columns.Add("CveClasificacion", Type.GetType("System.Int32"))
dt.Columns.Add("EstatusExistencia") dt.Columns.Add("EstatusExistencia")
@@ -285,14 +277,10 @@ Partial Class Inventarios_CartaPorteManual
dt.Columns.Add("Embalaje") dt.Columns.Add("Embalaje")
dt.Columns.Add("PesoKg", Type.GetType("System.Decimal")) dt.Columns.Add("PesoKg", Type.GetType("System.Decimal"))
DtMovimientos = dt DtMovimientos = dt
CargaGvDatos() CargaGvDatos()
End Sub End Sub
Private Sub CargaCombos() Private Sub CargaCombos()
'CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto, AplicaTodos:="") 'CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto, AplicaTodos:="")
@@ -307,17 +295,12 @@ Partial Class Inventarios_CartaPorteManual
' TxtFechaEntrega.Text = NowADS().ToShortDateString ' TxtFechaEntrega.Text = NowADS().ToShortDateString
TxtFechaLlegada.Text = NowADS().ToShortDateString TxtFechaLlegada.Text = NowADS().ToShortDateString
CargaPS() CargaPS()
CargarCamiones() CargarCamiones()
End Sub End Sub
Private Sub CargaPS() Private Sub CargaPS()
Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False) Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
DdlProducto2.setEsWebService(EsWS) DdlProducto2.setEsWebService(EsWS)
@@ -328,7 +311,12 @@ Partial Class Inventarios_CartaPorteManual
DdlProducto2.ddlWS.Attributes.Add("Data-onresult", "CargaExistenciaAlmacenes") DdlProducto2.ddlWS.Attributes.Add("Data-onresult", "CargaExistenciaAlmacenes")
End If End If
Else
DdlProducto2.ddl.Items.Clear()
'Objeto.ddl.DataSource = GlobalDTProductosServicios(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacion, AplicaParaVenta:=1, Estatus:=1)
DdlProducto2.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=-1, Estatus:=1, AplicaParaVenta:=-1)
DdlProducto2.ddl.DataBind()
DdlProducto2.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
End If End If
End Sub End Sub

17
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -2186,16 +2186,17 @@ Partial Class Inventarios_EntregaAlmacen
DtDatos.Rows(Index)("CantidadGV") = gvr.FCTextBox("TbCantidadF").Text.ToDecimal DtDatos.Rows(Index)("CantidadGV") = gvr.FCTextBox("TbCantidadF").Text.ToDecimal
DtDatos.Rows(Index)("CveSeccion") = gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero() DtDatos.Rows(Index)("CveSeccion") = gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero()
If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
'Esto es por que
Dim DdlCaducidadProducto As DropDownList = gvr.FCDropDownList("DdlCaducidadProducto") Dim DdlCaducidadProducto As DropDownList = gvr.FCDropDownList("DdlCaducidadProducto")
Dim ArrayCaducidad As String() = DdlCaducidadProducto.SelectedValue.Split("|"c) If DdlCaducidadProducto.SelectedValue <> "" AndAlso DdlCaducidadProducto.SelectedValue <> "|" Then
Dim Lote As String = ArrayCaducidad(0) Dim ArrayCaducidad As String() = DdlCaducidadProducto.SelectedValue.Split("|"c)
Dim FechaCaducidad As String = ArrayCaducidad(1) Dim Lote As String = ArrayCaducidad(0)
Dim FechaCaducidad As String = ArrayCaducidad(1)
DtDatos.Rows(Index)("FechaCaducidad") = FechaCaducidad.ToDate
DtDatos.Rows(Index)("Lote") = Lote
DtDatos.Rows(Index)("FechaCaducidad") = FechaCaducidad.ToDate
DtDatos.Rows(Index)("Lote") = Lote
End If
Else Else
DtDatos.Rows(Index)("FechaCaducidad") = gvr.FCTextBox("TxtCaducidad").Text.ToDate DtDatos.Rows(Index)("FechaCaducidad") = gvr.FCTextBox("TxtCaducidad").Text.ToDate
DtDatos.Rows(Index)("Lote") = gvr.FCTextBox("TxtLote").Text DtDatos.Rows(Index)("Lote") = gvr.FCTextBox("TxtLote").Text

26
Inventarios/RecepcionAlmacen.aspx.vb
View File

@@ -3408,12 +3408,17 @@ Partial Class Inventarios_RecepcionAlmacen
For Each Dr As DataRow In DtCostos.Rows For Each Dr As DataRow In DtCostos.Rows
TotalCostoDetalle = (Dr("Total").ToString.ToDecimal) TotalCostoDetalle = (Dr("Total").ToString.ToDecimal)
TotalCostoExtranjero = Dr("TotalExtranjero").ToString.ToDecimal TotalCostoExtranjero = Dr("TotalExtranjero").ToString.ToDecimal
TotalCostoAcumulado += TotalCostoDetalle.RoundSQL TotalCostoAcumulado += TotalCostoDetalle
'si es el último movimiento verifica los importes que sean igual 'si es el último movimiento verifica los importes que sean igual
If cont = DtCostos.Rows.Count AndAlso (TotalCosto.RoundSQL <> TotalCostoAcumulado.RoundSQL) Then If cont = DtCostos.Rows.Count Then
TotalCostoDetalle = TotalCostoDetalle + (TotalCosto.RoundSQL(3) - TotalCostoAcumulado.RoundSQL(3))
TotalCostoExtranjero = TotalCostoExtranjero + (TotalCosto.RoundSQL(3) - TotalCostoAcumulado.RoundSQL(3)) TotalCostoAcumulado = TotalCostoAcumulado.RoundSQL
If TotalCosto.RoundSQL <> TotalCostoAcumulado.RoundSQL Then
TotalCostoDetalle = TotalCostoDetalle + (TotalCosto.RoundSQL(3) - TotalCostoAcumulado.RoundSQL(3))
TotalCostoExtranjero = TotalCostoExtranjero + (TotalCosto.RoundSQL(3) - TotalCostoAcumulado.RoundSQL(3))
End If
End If End If
If CveMoneda <> 1 AndAlso UsaComplementariaFleteImportaciones Then If CveMoneda <> 1 AndAlso UsaComplementariaFleteImportaciones Then
@@ -3730,12 +3735,17 @@ Partial Class Inventarios_RecepcionAlmacen
Msg.Append(MensajeContabilidad) Msg.Append(MensajeContabilidad)
Alert(Msg.ToString, TipoMensaje.MsgInformacion) Alert(Msg.ToString, TipoMensaje.MsgInformacion)
If ObjInventario.RecepcionAlmacenGet(CveCompraSurtir, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then If CveCompraSurtir > 0 Then
CreaDTInv(ObjInventario.DtResultados) If ObjInventario.RecepcionAlmacenGet(CveCompraSurtir, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
CargaGVInv() CreaDTInv(ObjInventario.DtResultados)
BtnGuardar.Visible = True CargaGVInv()
BtnGuardar.Visible = True
End If
End If End If
Limpia() Limpia()
Else Else
ObjInventario.RollBack() ObjInventario.RollBack()
If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack() If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()

13
Inventarios/TrasladoSolicitud.aspx
View File

@@ -108,24 +108,25 @@
<asp:GridView ID="GvT" Width="100%" runat="server" GridLines="None" BorderWidth="0" data-heighterror="330" data-freezecols="0" CssClass="table table-advance table-hover mysmallbtn ScrollAD Widthall" <asp:GridView ID="GvT" Width="100%" runat="server" GridLines="None" BorderWidth="0" data-heighterror="330" data-freezecols="0" CssClass="table table-advance table-hover mysmallbtn ScrollAD Widthall"
ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False" OnRowDataBound="GvT_RowDataBound" ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False" OnRowDataBound="GvT_RowDataBound"
DataKeyNames="CveTraspasoSolicitud,Folio,Fecha,CveUsuario,CveAlmacenOrigen,CveAlmacenDestino,CveTrasladoEstatus,PermisoOrigen,PermisoDestino,TraspasoEstatus,AlmacenOrigen,AlmacenDestino,Nombre,CveMovimientoAlmacen,FolioMovimiento,CveMovimientoTransitorio,CveAlmacenTransitorio,CveMomientoEntrada,CveMovimientoRelacionado" > DataKeyNames="CveTraspasoSolicitud,Folio,Fecha,CveUsuario,CveAlmacenOrigen,CveAlmacenDestino,CveTrasladoEstatus,PermisoOrigen,PermisoDestino,TraspasoEstatus,AlmacenOrigen,AlmacenDestino,Nombre,CveMovimientoAlmacen,FolioMovimiento,CveMovimientoTransitorio,CveAlmacenTransitorio,CveMovientoEntrada,CveMovimientoRelacionado" >
<Columns> <Columns>
<asp:BoundField DataField="Folio" HeaderText="Folio" ItemStyle-Width="80px" /> <asp:BoundField DataField="Folio" HeaderText="Folio" ItemStyle-Width="80px" />
<asp:BoundField DataField="AlmacenOrigen" HeaderText="Origen" ItemStyle-Width="200px" /> <asp:BoundField DataField="AlmacenOrigen" HeaderText="Origen" />
<asp:BoundField DataField="AlmacenDestino" HeaderText="Destino" ItemStyle-Width="200px" /> <asp:BoundField DataField="AlmacenDestino" HeaderText="Destino" />
<asp:BoundField DataField="Observaciones" HeaderText="Observaciones" /> <asp:BoundField DataField="Observaciones" HeaderText="Observaciones" />
<asp:BoundField DataField="Fecha" HeaderText="Fecha" ItemStyle-Width="90px" DataFormatString="{0:d}" /> <asp:BoundField DataField="Fecha" HeaderText="Fecha" ItemStyle-Width="80px" DataFormatString="{0:d}" />
<asp:BoundField DataField="Nombre" HeaderText="Solicitante" /> <asp:BoundField DataField="Nombre" HeaderText="Solicitante" />
<asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Estatus" ItemStyle-Width="70px" > <asp:TemplateField HeaderText="Estatus" ItemStyle-Width="70px" >
<ItemTemplate> <ItemTemplate>
<asp:Label runat="server" ID="LblTraspasoEstatus" Width="70px" Height="15px" Text='<%# Eval("TraspasoEstatus") %>'></asp:Label> <asp:Label runat="server" ID="LblTraspasoEstatus" Width="70px" Height="15px" Text='<%# Eval("TraspasoEstatus") %>'></asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:HyperLinkField DataNavigateUrlFields="CveMovimientoAlmacen" DataNavigateUrlFormatString="~/Inventarios/EntradasSalidas.aspx?CveMovimiento={0} " <asp:HyperLinkField DataNavigateUrlFields="CveMovimientoAlmacen" DataNavigateUrlFormatString="~/Inventarios/EntradasSalidas.aspx?CveMovimiento={0} "
Target="_blank" ItemStyle-Width="5%" HeaderText="Movimiento" ControlStyle-CssClass="Texto" ItemStyle-HorizontalAlign="Left" DataTextField="FolioMovimiento" /> Target="_blank" HeaderText="Movimiento" ControlStyle-CssClass="Texto" ItemStyle-HorizontalAlign="Center" DataTextField="FolioMovimiento" />
<asp:BoundField DataField="RecibidaSolicitada" HeaderText="Cantidades" ItemStyle-HorizontalAlign="Right"/>
<%--<asp:TemplateField ItemStyle-HorizontalAlign="center" HeaderText="Opciones" ItemStyle-Width="100px"> <%--<asp:TemplateField ItemStyle-HorizontalAlign="center" HeaderText="Opciones" ItemStyle-Width="100px">
<ItemTemplate> <ItemTemplate>
<div class="row"> <div class="row">

2
Inventarios/TrasladoSolicitud.aspx.vb
View File

@@ -758,7 +758,7 @@ Partial Class Inventarios_TrasladoSolicitud
Dim CveMovimientoTransitorio As Integer = e.Row.DataKey("CveMovimientoTransitorio").ToEntero Dim CveMovimientoTransitorio As Integer = e.Row.DataKey("CveMovimientoTransitorio").ToEntero
Dim CveAlmacenTransitorio As Integer = e.Row.DataKey("CveAlmacenTransitorio").ToEntero Dim CveAlmacenTransitorio As Integer = e.Row.DataKey("CveAlmacenTransitorio").ToEntero
Dim CveMomientoEntrada As Integer = e.Row.DataKey("CveAlmacenTransitorio").ToEntero ' Este es el movmiento de recepcion de traspaso 'Dim CveMovimientoEntrada As Integer = e.Row.DataKey("CveAlmacenTransitorio").ToEntero ' Este es el movmiento de recepcion de traspaso
e.Row.FCLinkButton("LnkMostrarTraspaso").Visible = True e.Row.FCLinkButton("LnkMostrarTraspaso").Visible = True

4
Proveedores/PortalProveedor.aspx.vb
View File

@@ -124,7 +124,7 @@ Partial Class Portal_PortalProveedor
#Region "C A R G A - D A T O S" #Region "C A R G A - D A T O S"
Protected Sub CargaDatos() Protected Sub CargaDatos()
GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimero($"CveProveedor = {CveProveedor}")
Dim ObjProveedor As New ClsCompProveedores() Dim ObjProveedor As New ClsCompProveedores()
If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", "-1", "-1", "-1", 1, UsuarioActual.CveEmpresa) Then If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", "-1", "-1", "-1", 1, UsuarioActual.CveEmpresa) Then
If ObjProveedor.DtResultados.Rows.Count > 0 Then If ObjProveedor.DtResultados.Rows.Count > 0 Then
@@ -259,7 +259,7 @@ Partial Class Portal_PortalProveedor
Private Sub CargaBancos(SerieSucursal As String, SelectTop As Integer) Private Sub CargaBancos(SerieSucursal As String, SelectTop As Integer)
Dim ObjMovtos As New ClsMovimientos() Dim ObjMovtos As New ClsMovimientos()
'CxC Activas 'CxC Activas
If ObjMovtos.GetProveedorBancos(CveProveedor, CveProveedorSucursal:=-1, SelectTop:=SelectTop) AndAlso ObjMovtos.DtResultados.Rows.Count > 0 Then If ObjMovtos.GetProveedorBancos(CveProveedor, UsuarioActual.CveEmpresa, CveProveedorSucursal:=-1, SelectTop:=SelectTop) AndAlso ObjMovtos.DtResultados.Rows.Count > 0 Then
GvBancos.DataSource = ObjMovtos.DtResultados GvBancos.DataSource = ObjMovtos.DtResultados
BtnVerMasBancos.Visible = ObjMovtos.DtResultados.Rows.Count > 19 BtnVerMasBancos.Visible = ObjMovtos.DtResultados.Rows.Count > 19
DtBancos = ObjMovtos.DtResultados DtBancos = ObjMovtos.DtResultados

4
Sistemas/SessionesActivas.aspx
View File

@@ -33,11 +33,11 @@
<asp:UpdatePanel runat="server" ID="Updatos" UpdateMode="Conditional"> <asp:UpdatePanel runat="server" ID="Updatos" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<div class="portlet light smmallpadding bordered" id="portlet19"> <div class="portlet light smallpadding bordered" id="portlet19">
<div class="portlet-title"> <div class="portlet-title">
<div class="caption font-green"> <div class="caption font-green">
<i class="icon-pin font-green"></i> <i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase">Filtros</span> <span class="caption-subject bold uppercase">Filtros<asp:Label ID="LblNumero" runat="server" Text=""></asp:Label></span>
</div> </div>
<div class="tools"> <div class="tools">
<a href="javascript:;" class="collapse" data-original-title="" title=""></a> <a href="javascript:;" class="collapse" data-original-title="" title=""></a>

3
Sistemas/SessionesActivas.aspx.vb
View File

@@ -87,6 +87,7 @@ Partial Class SessionesActivas
dtF.Rows.Add(row.ItemArray()) dtF.Rows.Add(row.ItemArray())
End If End If
Next Next
dtU.Dispose() dtU.Dispose()
Dim GroupBy1 As String() = {"CveEmpresa", "Empresa"} Dim GroupBy1 As String() = {"CveEmpresa", "Empresa"}
DdlEmpresa.DataSource = dtF.FiltraParametros("", "", {"CveEmpresa", "Empresa"}) DdlEmpresa.DataSource = dtF.FiltraParametros("", "", {"CveEmpresa", "Empresa"})
@@ -94,6 +95,8 @@ Partial Class SessionesActivas
dtF = dtF.GroupByDT(filtros, "", {GroupBy1}, Nothing, Nothing,) dtF = dtF.GroupByDT(filtros, "", {GroupBy1}, Nothing, Nothing,)
GVDatos.DataSource = dtF GVDatos.DataSource = dtF
GVDatos.DataBind() GVDatos.DataBind()
LblNumero.Text = $" ({dtF.COUNT("CveUsuario", "CveUsuario > 0")})"
objUsuarios.Dispose() objUsuarios.Dispose()
End Sub End Sub
Protected Sub GVDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Protected Sub GVDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs)

375
Transportes/CatRutas.aspx
View File

@@ -10,9 +10,7 @@
margin-block: 1rem; margin-block: 1rem;
} }
.my-1 {
margin-block: 1rem;
}
</style> </style>
</asp:Content> </asp:Content>
@@ -49,19 +47,11 @@
<%--Destinos Tab--%> <%--Destinos Tab--%>
<ajax:TabPanel ID="TabDestinos" runat="server" HeaderText="Destinos"> <ajax:TabPanel ID="TabDestinos" runat="server" HeaderText="Destinos">
<ContentTemplate> <ContentTemplate>
<div class="spaced">
<div>
</div>
<div>
</div>
</div>
<div class="row"> <div class="row">
<div class="col-md-8">
<div class="col-md-6"> <div class="row" style="margin-right: 10px; margin-top: 10px;" align="right">
<div class="row my-1" style="margin-right: 10px; margin-top: 10px;" align="right">
<input type="text" id="TxtBusqueda1" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda1','{0}')", GvDestinos.ClientID) %>" <input type="text" id="TxtBusqueda1" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda1','{0}')", GvDestinos.ClientID) %>"
style="display: inline-block; margin-right: -10px; width: 150px;" /> style="display: inline-block; margin-right: -10px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda1','{0}')", GvDestinos.ClientID) %>" <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda1','{0}')", GvDestinos.ClientID) %>"
@@ -90,7 +80,7 @@
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Direccion" > <asp:TemplateField HeaderText="Dirección" ItemStyle-Width="400px" >
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlEstado" runat="server" Text='<%# Eval("Direccion") %>'></asp:Literal> <asp:Literal ID="LtlEstado" runat="server" Text='<%# Eval("Direccion") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
@@ -117,12 +107,10 @@
<%--Importes Tab--%> <%--Importes Tab--%>
<ajax:TabPanel ID="TabImportes" runat="server" HeaderText="Tarifas"> <ajax:TabPanel ID="TabImportes" runat="server" HeaderText="Tarifas">
<ContentTemplate> <ContentTemplate>
<div class="spaced">
<div>
</div>
<div> <div>
<div class="row my-1" style="margin-right: 10px; margin-top: 10px;" align="right"> <div class="row" style="margin-right: 10px; margin-top: 10px;" align="right">
<input type="text" id="TxtBusqueda2" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda2','{0}')", GvImportes.ClientID) %>" <input type="text" id="TxtBusqueda2" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda2','{0}')", GvImportes.ClientID) %>"
style="display: inline-block; margin-right: -10px; width: 150px;" /> style="display: inline-block; margin-right: -10px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda2','{0}')", GvImportes.ClientID) %>" <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda2','{0}')", GvImportes.ClientID) %>"
@@ -130,7 +118,7 @@
</i></a> </i></a>
</div> </div>
</div> </div>
</div>
<asp:GridView ID="GvImportes" runat="server" AutoGenerateColumns="false" EmptyDataText="No se Encontró Contrato Registrado" <asp:GridView ID="GvImportes" runat="server" AutoGenerateColumns="false" EmptyDataText="No se Encontró Contrato Registrado"
CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None"
@@ -196,220 +184,187 @@
<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>
<asp:Label runat="server" ID="ModalLabel"></asp:Label> <h4 class="modal-title" id="myModalLabel" runat="server"><asp:Label runat="server" ID="ModalLabel"></asp:Label></h4>
</div> </div>
<div class="modal-body"> <div class="modal-body">
<%-- Ruta --%> <%-- Ruta --%>
<asp:Panel runat="server" ID="PnRuta" Visible="False"> <asp:Panel runat="server" ID="PnRuta" Visible="False">
<div class="row my-1">
<label class="col-md-4">Nombre de la ruta</label> <div class="form-group form-md-line-input input-iconright">
<div class="col-md-8"> <asp:TextBox ID="TxtRuta" runat="server" MaxLength="70" Width="100%"></asp:TextBox>
<asp:TextBox ID="TxtRuta" runat="server" MaxLength="70" Width="100%"></asp:TextBox> <asp:RequiredFieldValidator ID="RFVRuta" runat="server" ControlToValidate="TxtRuta"
<asp:RequiredFieldValidator ID="RFVRuta" runat="server" ControlToValidate="TxtRuta" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Ruta''</b> es necesario, por favor ingréselo."
Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Ruta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <ajax:ValidatorCalloutExtender ID="VCERuta" runat="server" HighlightCssClass="vco"
<ajax:ValidatorCalloutExtender ID="VCERuta" runat="server" HighlightCssClass="vco" TargetControlID="RFVRuta" Width="100%">
TargetControlID="RFVRuta" Width="100%"> </ajax:ValidatorCalloutExtender>
</ajax:ValidatorCalloutExtender> <label for="<%= TxtRuta.ClientID.ToString()%>">Nombre de la ruta:</label>
</div>
</div> </div>
<div class="row my-1"> <div class="form-group form-md-line-input input-iconright">
<label class="col-md-4">Estatus:</label> <asp:DropDownList ID="DdlRutaEstatus" runat="server" Class="form-control input-inline select2me"
<div class="col-md-8"> AppendDataBoundItems="true"
<asp:DropDownList ID="DdlRutaEstatus" runat="server" Class="table-group-action-input form-control input-inline select2me" Width="99.9%">
AppendDataBoundItems="true" <asp:ListItem Text="Seleccione" Value="" Selected="True"></asp:ListItem>
Width="99.9%"> <asp:ListItem Text="Activo" Value="True"></asp:ListItem>
<asp:ListItem Text="Seleccione" Value="" Selected="True"></asp:ListItem> <asp:ListItem Text="Inactivo" Value="False"></asp:ListItem>
<asp:ListItem Text="Activo" Value="True"></asp:ListItem> </asp:DropDownList>
<asp:ListItem Text="Inactivo" Value="False"></asp:ListItem> <asp:RequiredFieldValidator ID="RFVRutaEstatus" runat="server" ControlToValidate="DdlRutaEstatus"
</asp:DropDownList> Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estatus''</b> es necesario, por favor ingréselo."
<asp:RequiredFieldValidator ID="RFVRutaEstatus" runat="server" ControlToValidate="DdlRutaEstatus" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estatus''</b> es necesario, por favor ingréselo." <ajax:ValidatorCalloutExtender ID="VCERutaEstatus" runat="server" HighlightCssClass="vco"
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> TargetControlID="RFVRutaEstatus" Width="400px" BehaviorID="_content_VCERutaEstatus">
<ajax:ValidatorCalloutExtender ID="VCERutaEstatus" runat="server" HighlightCssClass="vco" </ajax:ValidatorCalloutExtender>
TargetControlID="RFVRutaEstatus" Width="400px" BehaviorID="_content_VCERutaEstatus">
</ajax:ValidatorCalloutExtender> <label for="<%= DdlRutaEstatus.ClientID.ToString()%>">Estatus:</label>
</div>
</div> </div>
</asp:Panel> </asp:Panel>
<%-- Destino --%> <%-- Destino --%>
<asp:Panel ID="PnDestino" runat="server" Visible="false"> <asp:Panel ID="PnDestino" runat="server" Visible="false">
<div class="row my-1">
<label class="col-md-4">Nombre del Destino</label>
<div class="col-md-8">
<asp:TextBox ID="TxtDestino" runat="server" MaxLength="70" Width="100%" CssClass="form-control"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVDestino" runat="server" ControlToValidate="TxtDestino"
Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Destino''</b> es necesario, por favor ingréselo."
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEDestino" runat="server" HighlightCssClass="vco"
TargetControlID="RFVDestino" Width="100%">
</ajax:ValidatorCalloutExtender>
</div>
</div>
<div class="row my-1">
<label class="col-md-4">Nacional:</label>
<div class="col-md-8">
<asp:DropDownList ID="DdlEsNacional" runat="server" Class="table-group-action-input form-control input-inline select2me"
AppendDataBoundItems="true"
Width="99.9%" OnSelectedIndexChanged="OnChangeNacional" AutoPostBack="true">
<asp:ListItem Text="Seleccione" Value="" Selected="True"></asp:ListItem>
<asp:ListItem Text="Sí" Value="True"></asp:ListItem>
<asp:ListItem Text="No" Value="False"></asp:ListItem>
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVEsNacional" runat="server" ControlToValidate="DdlEsNacional"
Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nacional''</b> es necesario, por favor ingréselo."
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEEsNacional" runat="server" HighlightCssClass="vco"
TargetControlID="RFVEsNacional" Width="400px" BehaviorID="_content_VCEEsNacional">
</ajax:ValidatorCalloutExtender>
</div>
</div>
<div class="row my-1">
<label class="col-md-4">Estatus:</label>
<div class="col-md-8">
<asp:DropDownList ID="DdlDestinoEstatus" runat="server" Class="table-group-action-input form-control input-inline select2me"
AppendDataBoundItems="true"
Width="99.9%">
<asp:ListItem Text="Seleccione" Value="" Selected="True"></asp:ListItem>
<asp:ListItem Text="Activo" Value="True"></asp:ListItem>
<asp:ListItem Text="Inactivo" Value="False"></asp:ListItem>
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVDestinoEstatus" runat="server" ControlToValidate="DdlDestinoEstatus"
Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estatus''</b> es necesario, por favor ingréselo."
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEDestinoEstatus" runat="server" HighlightCssClass="vco"
TargetControlID="RFVDestinoEstatus" Width="400px" BehaviorID="_content_VCEDestinoEstatus">
</ajax:ValidatorCalloutExtender>
</div>
</div>
<div class="row my-1" style="display:none">
<label class="col-md-4">Estado:</label>
<div class="col-md-8">
<asp:DropDownList ID="DdlEstado" runat="server" Class="table-group-action-input form-control input-inline select2me" Visible="false"
DataTextField="NombreEstado"
DataValueField="CveEstado"
AppendDataBoundItems="true"
Width="99.9%">
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVEstado" runat="server" ControlToValidate="DdlEstado"
Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estado''</b> es necesario, por favor ingréselo."
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEEstado" runat="server" HighlightCssClass="vco"
TargetControlID="RFVEstado" Width="400px" BehaviorID="VCEEstado">
</ajax:ValidatorCalloutExtender>
</div>
</div>
<div class="row my-1"> <div class="form-group form-md-line-input input-iconright">
<label class="col-md-4">Dirección:</label> <asp:TextBox ID="TxtDestino" runat="server" MaxLength="70" Width="100%" CssClass="form-control"></asp:TextBox>
<div class="col-md-8"> <asp:RequiredFieldValidator ID="RFVDestino" runat="server" ControlToValidate="TxtDestino"
<asp:TextBox ID="TxtDireccion" runat="server" MaxLength="150" Width="100%" CssClass="form-control"></asp:TextBox> Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Destino''</b> es necesario, por favor ingréselo."
<%--<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtDestino" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Destino''</b> es necesario, por favor ingréselo." <ajax:ValidatorCalloutExtender ID="VCEDestino" runat="server" HighlightCssClass="vco"
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> TargetControlID="RFVDestino" Width="100%">
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" </ajax:ValidatorCalloutExtender>
TargetControlID="RFVDestino" Width="100%">
</ajax:ValidatorCalloutExtender>--%> <label for="<%= TxtDestino.ClientID.ToString()%>">Nombre del Destino:</label>
</div>
</div> </div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlEsNacional" runat="server" Class="table-group-action-input form-control input-inline select2me"
AppendDataBoundItems="true"
Width="99.9%" OnSelectedIndexChanged="OnChangeNacional" AutoPostBack="true">
<asp:ListItem Text="Seleccione" Value="" Selected="True"></asp:ListItem>
<asp:ListItem Text="Sí" Value="True"></asp:ListItem>
<asp:ListItem Text="No" Value="False"></asp:ListItem>
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVEsNacional" runat="server" ControlToValidate="DdlEsNacional"
Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nacional''</b> es necesario, por favor ingréselo."
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEEsNacional" runat="server" HighlightCssClass="vco"
TargetControlID="RFVEsNacional" Width="400px" BehaviorID="_content_VCEEsNacional">
</ajax:ValidatorCalloutExtender>
<label for="<%= DdlEsNacional.ClientID.ToString()%>">Nacional:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlDestinoEstatus" runat="server" Class="table-group-action-input form-control input-inline select2me"
AppendDataBoundItems="true"
Width="99.9%">
<asp:ListItem Text="Seleccione" Value="" Selected="True"></asp:ListItem>
<asp:ListItem Text="Activo" Value="True"></asp:ListItem>
<asp:ListItem Text="Inactivo" Value="False"></asp:ListItem>
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVDestinoEstatus" runat="server" ControlToValidate="DdlDestinoEstatus"
Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estatus''</b> es necesario, por favor ingréselo."
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEDestinoEstatus" runat="server" HighlightCssClass="vco"
TargetControlID="RFVDestinoEstatus" Width="400px" BehaviorID="_content_VCEDestinoEstatus">
</ajax:ValidatorCalloutExtender>
<label for="<%= DdlDestinoEstatus.ClientID.ToString()%>">Estatus:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlEstado" runat="server" Class="table-group-action-input form-control input-inline select2me" Visible="false"
DataTextField="NombreEstado"
DataValueField="CveEstado"
AppendDataBoundItems="true"
Width="99.9%">
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVEstado" runat="server" ControlToValidate="DdlEstado"
Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estado''</b> es necesario, por favor ingréselo."
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEEstado" runat="server" HighlightCssClass="vco"
TargetControlID="RFVEstado" Width="400px" BehaviorID="VCEEstado">
</ajax:ValidatorCalloutExtender>
<label style="display:none" for="<%= DdlEstado.ClientID.ToString()%>">Estado:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtDireccion" runat="server" MaxLength="150" Width="100%" CssClass="form-control"></asp:TextBox>
<label for="<%= TxtDireccion.ClientID.ToString()%>">Dirección:</label>
</div>
<%--<div class="form-group form-md-line-input input-iconright">
<label for="<%= TxtDireccion.ClientID.ToString()%>">Chofer:</label>
</div>--%>
</asp:Panel> </asp:Panel>
<%-- Importes --%> <%-- Importes --%>
<asp:Panel ID="PnImporte" runat="server" Visible="false"> <asp:Panel ID="PnImporte" runat="server" Visible="false">
<div class="row my-1"> <div class="form-group form-md-line-input input-iconright">
<label class="col-md-4">Ruta:</label> <asp:DropDownList ID="DdlRutas" runat="server" CssClass="form-control select2me" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%">
<div class="col-md-8"> </asp:DropDownList>
<asp:DropDownList ID="DdlRutas" AppendDataBoundItems="true" DataTextField="SubProyecto" <asp:RequiredFieldValidator ID="RFVRutas" runat="server" ControlToValidate="DdlRutas" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Ruta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
DataValueField="CveSubProyecto" Class="form-control input-sm select2me" <ajax:ValidatorCalloutExtender ID="VCERutas" runat="server" HighlightCssClass="vco" TargetControlID="RFVRutas" Width="400px"></ajax:ValidatorCalloutExtender>
Width="200px" runat="server"> <label for="<%= DdlRutas.ClientID.ToString() %>">Ruta:</label>
</asp:DropDownList> </div>
<asp:RequiredFieldValidator ID="RFVRutas" runat="server" ControlToValidate="DdlRutas"
Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Ruta''</b> es necesario, por favor ingréselo." <div class="form-group form-md-line-input input-iconright">
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:DropDownList ID="DdlOrigen" runat="server" CssClass="form-control select2me" AppendDataBoundItems="true" DataTextField="Destino" DataValueField="CveDestino" Width="100%">
<ajax:ValidatorCalloutExtender ID="VCERutas" runat="server" HighlightCssClass="vco" </asp:DropDownList>
TargetControlID="RFVRutas" Width="400px" BehaviorID="_content_VCERutas"> <asp:RequiredFieldValidator ID="RFVOrigen" runat="server" ControlToValidate="DdlOrigen" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Partida''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
</ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VCEOrigen" runat="server" HighlightCssClass="vco" TargetControlID="RFVOrigen" Width="400px"></ajax:ValidatorCalloutExtender>
<label for="<%= DdlOrigen.ClientID.ToString() %>">Partida:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlFinal" runat="server" CssClass="form-control select2me" AppendDataBoundItems="true" DataTextField="Destino" DataValueField="CveDestino" Width="100%">
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVFinal" runat="server" ControlToValidate="DdlFinal" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Destino''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEFinal" runat="server" HighlightCssClass="vco" TargetControlID="RFVFinal" Width="400px"></ajax:ValidatorCalloutExtender>
<label for="<%= DdlFinal.ClientID.ToString() %>">Destino:</label>
</div>
<div class="row">
<div class="col-lg-4">
<div class="form-group form-md-line-input input-iconright" style="width:130px!important">
<asp:TextBox ID="TxtImporte" runat="server" CssClass="form-control" MaxLength="7" onkeyup="FormatoMoneda(this)" Style="text-align: right" Width="130px"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVImporte" runat="server" ControlToValidate="TxtImporte" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Importe''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="VCOImporte" TargetControlID="RFVImporte" Width="400px"></ajax:ValidatorCalloutExtender>
<label for="<%= TxtImporte.ClientID.ToString() %>">Importe:</label>
</div>
</div>
<div class="col-lg-4">
<div class="form-group form-md-line-input input-iconright" style="width:130px!important">
<asp:TextBox ID="TxtImporteNov" runat="server" CssClass="form-control" MaxLength="7" onkeyup="FormatoMoneda(this)" Style="text-align: right" Width="130px"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtImporteNov" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Importe Noviembre''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="VCOImporte" TargetControlID="RequiredFieldValidator1" Width="400px"></ajax:ValidatorCalloutExtender>
<label for="<%= TxtImporteNov.ClientID.ToString() %>">Importe Noviembre:</label>
</div> </div>
</div>
<div class="row my-1">
<label class="col-md-4">Partida:</label>
<div class="col-md-8">
<asp:DropDownList ID="DdlOrigen" runat="server" Class="table-group-action-input form-control input-inline select2me"
AppendDataBoundItems="true"
Width="99.9%" DataTextField="Destino"
DataValueField="CveDestino">
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVOrigen" runat="server" ControlToValidate="DdlOrigen"
Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Partida''</b> es necesario, por favor ingréselo."
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEOrigen" runat="server" HighlightCssClass="vco"
TargetControlID="RFVOrigen" Width="400px" BehaviorID="_content_VCEOrigen">
</ajax:ValidatorCalloutExtender>
</div> </div>
</div> <div class="col-lg-4">
<div class="form-group form-md-line-input input-iconright" style="width:130px!important">
<div class="row my-1"> <asp:TextBox ID="TxtImporteDic" runat="server" CssClass="form-control" MaxLength="7" onkeyup="FormatoMoneda(this)" Style="text-align: right" Width="130px"></asp:TextBox>
<label class="col-md-4">Destino:</label> <asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server" ControlToValidate="TxtImporteDic" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Importe Diciembre''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<div class="col-md-8"> <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender3" runat="server" HighlightCssClass="VCOImporte" TargetControlID="RequiredFieldValidator2" Width="400px"></ajax:ValidatorCalloutExtender>
<asp:DropDownList ID="DdlFinal" runat="server" Class="table-group-action-input form-control input-inline select2me" <label for="<%= TxtImporteDic.ClientID.ToString() %>">Importe Diciembre:</label>
AppendDataBoundItems="true" </div>
Width="99.9%" DataTextField="Destino"
DataValueField="CveDestino">
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVFinal" runat="server" ControlToValidate="DdlFinal"
Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Origen''</b> es necesario, por favor ingréselo."
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEFinal" runat="server" HighlightCssClass="vco"
TargetControlID="RFVFinal" Width="400px" BehaviorID="_content_VCEFinal">
</ajax:ValidatorCalloutExtender>
</div>
</div>
<div class="row my-1">
<label class="col-md-4">Importe:</label>
<div class="col-md-8">
<asp:TextBox type="number" ID="TxtImporte" runat="server" MaxLength="7" Width="100%"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVImporte" runat="server" ControlToValidate="TxtImporte"
Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Importe''</b> es necesario, por favor ingréselo."
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="VCOImporte"
TargetControlID="RFVDestino" Width="100%">
</ajax:ValidatorCalloutExtender>
</div>
</div>
<div class="row my-1">
<label class="col-md-4">Importe Noviembre:</label>
<div class="col-md-8">
<asp:TextBox type="number" ID="TxtImporteNov" runat="server" MaxLength="7" Width="100%"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtImporteNov"
Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Importe Noviembre''</b> es necesario, por favor ingréselo."
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="VCOImporte"
TargetControlID="RFVDestino" Width="100%">
</ajax:ValidatorCalloutExtender>
</div> </div>
</div> </div>
<div class="row my-1">
<label class="col-md-4">Importe Diciembre:</label>
<div class="col-md-8">
<asp:TextBox type="number" ID="TxtImporteDic" runat="server" MaxLength="7" Width="100%"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server" ControlToValidate="TxtImporteDic"
Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Importe Diciembre''</b> es necesario, por favor ingréselo."
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender3" runat="server" HighlightCssClass="VCOImporte"
TargetControlID="RFVDestino" Width="100%">
</ajax:ValidatorCalloutExtender>
</div>
</div>
</asp:Panel> </asp:Panel>
</div> </div>

6
Transportes/CatRutas.aspx.vb
View File

@@ -132,9 +132,9 @@ Partial Class CatRutas
DdlRutas.SelectedValueExist(GvRow.DataKey("CveSubProyecto")) DdlRutas.SelectedValueExist(GvRow.DataKey("CveSubProyecto"))
DdlOrigen.SelectedValueExist(GvRow.DataKey("CveDestinoOrigen")) DdlOrigen.SelectedValueExist(GvRow.DataKey("CveDestinoOrigen"))
DdlFinal.SelectedValueExist(GvRow.DataKey("CveDestinoFinal")) DdlFinal.SelectedValueExist(GvRow.DataKey("CveDestinoFinal"))
TxtImporte.Text = GvRow.DataKey("Importe") TxtImporte.Text = GvRow.DataKey("Importe").ToDecimal.ToString("###,###,###.00")
TxtImporteNov.Text = GvRow.DataKey("ImporteNov") TxtImporteNov.Text = GvRow.DataKey("ImporteNov").ToDecimal.ToString("###,###,###.00")
TxtImporteDic.Text = GvRow.DataKey("ImporteDic") TxtImporteDic.Text = GvRow.DataKey("ImporteDic").ToDecimal.ToString("###,###,###.00")
PnImporte.Visible = True PnImporte.Visible = True
BtnAddImporte.Visible = True BtnAddImporte.Visible = True
BtnAddImporte.Text = "Editar" BtnAddImporte.Text = "Editar"

24
Transportes/RepContratoDetalle.aspx
View File

@@ -230,18 +230,18 @@
<div class="col-md-8"> <div class="col-md-8">
<div class="input-group"> <div class="input-group">
<%-- <asp:TextBox ID="TxtFechaSalida" runat="server" CssClass="form-control" CausesValidation="True" <asp:TextBox ID="TxtFechaSalida" runat="server" CssClass="form-control" CausesValidation="True"
Width="100%" Width="100%"
type="datetime"></asp:TextBox>--%> type="datetime"></asp:TextBox>
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;"> <%--<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
<asp:TextBox Width="80px" ID="TxtFechaSalida" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox> <asp:TextBox Width="80px" ID="TxtFechaSalida" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn "> <span class="input-group-btn ">
<asp:LinkButton ID="LnkTxtFechaSalida" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton> <asp:LinkButton ID="LnkTxtFechaSalida" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span> </span>
</div> </div>
<ajax:MaskedEditExtender ID="MEETxtFechaSalida" runat="server" TargetControlID="TxtFechaSalida" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender> <ajax:MaskedEditExtender ID="MEETxtFechaSalida" runat="server" TargetControlID="TxtFechaSalida" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CalTxtFechaSalida" TargetControlID="TxtFechaSalida" PopupButtonID="LnkTxtFechaSalida" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender> <ajax:CalendarExtender runat="server" ID="CalTxtFechaSalida" TargetControlID="TxtFechaSalida" PopupButtonID="LnkTxtFechaSalida" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>--%>
<asp:RequiredFieldValidator ID="RFVTxtFechaSalida" runat="server" ControlToValidate="TxtFechaSalida" <asp:RequiredFieldValidator ID="RFVTxtFechaSalida" runat="server" ControlToValidate="TxtFechaSalida"
Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Salida''</b> es necesario, por favor ingréselo." Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Salida''</b> es necesario, por favor ingréselo."
@@ -261,18 +261,18 @@
<div class="col-md-8"> <div class="col-md-8">
<div class="input-group"> <div class="input-group">
<%--<asp:TextBox ID="TxtFechaRegreso" runat="server" CssClass="form-control" CausesValidation="True" <asp:TextBox ID="TxtFechaRegreso" runat="server" CssClass="form-control" CausesValidation="True"
Width="100%" Width="100%"
type="datetime"></asp:TextBox>--%> type="datetime"></asp:TextBox>
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;"> <%--<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
<asp:TextBox Width="80px" ID="TxtFechaRegreso" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox> <asp:TextBox Width="80px" ID="TxtFechaRegreso" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn "> <span class="input-group-btn ">
<asp:LinkButton ID="LnkTxtFechaRegreso" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton> <asp:LinkButton ID="LnkTxtFechaRegreso" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span> </span>
</div> </div>
<ajax:MaskedEditExtender ID="MEETxtFechaRegreso" runat="server" TargetControlID="TxtFechaRegreso" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender> <ajax:MaskedEditExtender ID="MEETxtFechaRegreso" runat="server" TargetControlID="TxtFechaRegreso" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CalTxtFechaRegreso" TargetControlID="TxtFechaRegreso" PopupButtonID="LnkTxtFechaRegreso" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender> <ajax:CalendarExtender runat="server" ID="CalTxtFechaRegreso" TargetControlID="TxtFechaRegreso" PopupButtonID="LnkTxtFechaRegreso" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>--%>
<asp:RequiredFieldValidator ID="RFVTxtFechaRegreso" runat="server" ControlToValidate="TxtFechaRegreso" <asp:RequiredFieldValidator ID="RFVTxtFechaRegreso" runat="server" ControlToValidate="TxtFechaRegreso"
@@ -379,10 +379,9 @@
</div> </div>
</div> </div>
<div class="row"> <div class="row">
<label class="col-md-4">Es Presupuestal</label> <label class="col-md-4">NO Requiere Unidad</label>
<div class="col-md-8"> <div class="col-md-8">
<asp:CheckBox runat="server" ID="ChkEsPresupuestal" CssClass="make-switchsd" data-size="small" Checked="true" /> <asp:CheckBox runat="server" ID="ChkEsPresupuestal" Checked="true" />
</div> </div>
</div> </div>
</div> </div>
@@ -419,8 +418,7 @@
<div class="col-md-12" style="text-align: center;"> <div class="col-md-12" style="text-align: center;">
<asp:UpdatePanel ID="UpPagos" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpPagos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<div class="row" runat="server" id="DVFactura">
<div class="row" runat="server" visible="false" id="DVFactura">
<label class="col-md-2">Factura: </label> <label class="col-md-2">Factura: </label>
<div class="col-md-3"> <div class="col-md-3">
<asp:HyperLink runat="server" Text="" Target="_blank" id="HypRemision" CssClass="Texto"></asp:HyperLink> <asp:HyperLink runat="server" Text="" Target="_blank" id="HypRemision" CssClass="Texto"></asp:HyperLink>

63
Transportes/RepContratoDetalle.aspx.vb
View File

@@ -7,8 +7,6 @@ Imports System.IO
Imports Extensiones Imports Extensiones
Imports Microsoft.Reporting.WebForms Imports Microsoft.Reporting.WebForms
Partial Class RepContratoDetalle Partial Class RepContratoDetalle
Inherits ClsPaginas Inherits ClsPaginas
#Region "Propiedades" #Region "Propiedades"
@@ -279,18 +277,8 @@ Partial Class RepContratoDetalle
LtlTareaNueva.Text = String.Format("<a class=""caption-subject bold font-light"" onclick=""OpenModalNewTareaUserControl(1,-1,{{CveContrato:{0}}});""> <i class=""fa fa-plus""'></i> Tarea</a>", CveContrato) LtlTareaNueva.Text = String.Format("<a class=""caption-subject bold font-light"" onclick=""OpenModalNewTareaUserControl(1,-1,{{CveContrato:{0}}});""> <i class=""fa fa-plus""'></i> Tarea</a>", CveContrato)
CargaEventoBitacora() CargaEventoBitacora()
End If End If
If CveVentaRemision > 0 Then
DVFactura.Visible = True
ChkEsPresupuestal.Enabled = False
ChkEsPresupuestal.Checked = False
End If
End If End If
End Sub End Sub
Private Sub InicializaCombos() Private Sub InicializaCombos()
'Lista Tipo AF 'Lista Tipo AF
@@ -315,7 +303,7 @@ Partial Class RepContratoDetalle
DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1")) DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1"))
For i As Integer = DdlVendedor.Items.Count - 1 To 0 Step -1 For i As Integer = DdlVendedor.Items.Count - 1 To 0 Step -1
If DdlVendedor.Items(i).Text = "Sin Asignar" Then If DdlVendedor.Items(i).Text = "Sin asignar" Or DdlVendedor.Items(i).Value = "0" Then
DdlVendedor.Items.RemoveAt(i) DdlVendedor.Items.RemoveAt(i)
End If End If
Next Next
@@ -325,16 +313,12 @@ Partial Class RepContratoDetalle
DdlVendedor.Enabled = False DdlVendedor.Enabled = False
End If End If
End Sub End Sub
Private Sub CargaDatos() Private Sub CargaDatos()
CargaDatosContrato() CargaDatosContrato()
CargaDatosViajes() CargaDatosViajes()
'Información General 'Información General
End Sub End Sub
Private Sub CargaDatosContrato() Private Sub CargaDatosContrato()
@@ -440,7 +424,6 @@ Partial Class RepContratoDetalle
UpTabContainer.Update() UpTabContainer.Update()
End Sub End Sub
#End Region #End Region
Protected Sub DdlUsuarioFiltroBoletos_SelectedIndexChanged(sender As Object, e As EventArgs) Protected Sub DdlUsuarioFiltroBoletos_SelectedIndexChanged(sender As Object, e As EventArgs)
CargaDatosViajes() CargaDatosViajes()
@@ -478,8 +461,6 @@ Partial Class RepContratoDetalle
Filename = fileItem.filename Filename = fileItem.filename
Next Next
If ObjEventoBitacora.AddEventoBitacora(TxtEventoDescripcion.Text.Trim, String.Format(".{0}", FileExtension), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveContrato:=CveContrato) Then If ObjEventoBitacora.AddEventoBitacora(TxtEventoDescripcion.Text.Trim, String.Format(".{0}", FileExtension), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveContrato:=CveContrato) Then
If Filename <> "" Then If Filename <> "" Then
Filename.FilesMove(String.Format("OI{0}", ObjEventoBitacora.CveEvento.ToString), String.Format("{0}OI", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False) Filename.FilesMove(String.Format("OI{0}", ObjEventoBitacora.CveEvento.ToString), String.Format("{0}OI", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False)
@@ -499,7 +480,6 @@ Partial Class RepContratoDetalle
CargaEventoBitacora() CargaEventoBitacora()
UPAddEventoBitacora.Update() UPAddEventoBitacora.Update()
End Sub End Sub
Private Sub CargaEventoBitacora() Private Sub CargaEventoBitacora()
If CveContrato > 0 Then If CveContrato > 0 Then
@@ -515,8 +495,6 @@ Partial Class RepContratoDetalle
End If End If
End Sub End Sub
Protected Sub DownloadFile(ByVal sender As Object, ByVal e As EventArgs) Protected Sub DownloadFile(ByVal sender As Object, ByVal e As EventArgs)
Dim filePath As String = String.Format("{0}{1}", UsuarioActual.Empresa.Ruta, CType(sender, LinkButton).CommandArgument) Dim filePath As String = String.Format("{0}{1}", UsuarioActual.Empresa.Ruta, CType(sender, LinkButton).CommandArgument)
Dim Archivo As New System.IO.FileInfo(filePath) Dim Archivo As New System.IO.FileInfo(filePath)
@@ -578,8 +556,6 @@ Partial Class RepContratoDetalle
BtnDescargar.Visible = True BtnDescargar.Visible = True
End If End If
End Sub End Sub
Public Function ObtenerUrlCompleta() As String Public Function ObtenerUrlCompleta() As String
Dim Solicitud As HttpRequest = HttpContext.Current.Request Dim Solicitud As HttpRequest = HttpContext.Current.Request
@@ -589,7 +565,6 @@ Partial Class RepContratoDetalle
url &= ":" & Solicitud.Url.Port url &= ":" & Solicitud.Url.Port
End If End If
url &= Solicitud.ApplicationPath url &= Solicitud.ApplicationPath
If Not url.EndsWith("/") Then If Not url.EndsWith("/") Then
@@ -599,15 +574,12 @@ Partial Class RepContratoDetalle
Return url Return url
End Function End Function
Protected Sub UpdateContrato(sender As Object, e As EventArgs) Protected Sub UpdateContrato(sender As Object, e As EventArgs)
Dim ArchivoUpdate As String = "-1" Dim ArchivoUpdate As String = "-1"
Dim ErrorProceso As Boolean = False Dim ErrorProceso As Boolean = False
Dim SeGeneroRemision As Boolean = False Dim SeGeneroRemision As Boolean = False
Dim SerieFolioRemision As String = "" Dim SerieFolioRemision As String = ""
If Session("FileExtension").ToString <> "" Then If Session("FileExtension").ToString <> "" Then
'ArchivoUpdate = $"{CveContrato.ToString}.{ Session("FileExtension")}" 'ArchivoUpdate = $"{CveContrato.ToString}.{ Session("FileExtension")}"
ArchivoUpdate = $".{Session("FileExtension").ToString}" ArchivoUpdate = $".{Session("FileExtension").ToString}"
Else Else
@@ -617,7 +589,6 @@ Partial Class RepContratoDetalle
Dim ObjContratos As New ClsContratos Dim ObjContratos As New ClsContratos
ObjContratos.IniciaTransacSQL() ObjContratos.IniciaTransacSQL()
If Not ObjContratos.UpdateContratos(CveContrato, TxtFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", If Not ObjContratos.UpdateContratos(CveContrato, TxtFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "",
DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, -1, ArchivoUpdate, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ChkEsPresupuestal.Checked, TxtAnticipo.Text.ToDecimal, -1, TxtImporte.Text.ToDecimal, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, -1, ArchivoUpdate, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ChkEsPresupuestal.Checked, TxtAnticipo.Text.ToDecimal, -1, TxtImporte.Text.ToDecimal,
DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=CveContratoTipo, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveContratosEstatus:=CveContratoEstatus, Observaciones:=TxtObservaciones.Text) Then DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=CveContratoTipo, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveContratosEstatus:=CveContratoEstatus, Observaciones:=TxtObservaciones.Text) Then
@@ -639,24 +610,24 @@ Partial Class RepContratoDetalle
End If End If
End If End If
If Not ErrorProceso AndAlso Not CveVentaRemision > 0 AndAlso ChkEsPresupuestal.Checked = False Then 'If Not ErrorProceso AndAlso Not CveVentaRemision > 0 AndAlso ChkEsPresupuestal.Checked = False Then
'CveVentaRemision ' 'CveVentaRemision
Dim ObsRemisionPartida As String = $"{DdlTipoAF.SelectedItem.Text}-{ TxtDescripcion.Text}-{TxtFolio.Text}" ' Dim ObsRemisionPartida As String = $"{DdlTipoAF.SelectedItem.Text}-{ TxtDescripcion.Text}-{TxtFolio.Text}"
Dim Respuesta As New RespuestaFacturacion() ' Dim Respuesta As New RespuestaFacturacion()
Dim CvePS As Integer = 907784 ' Dim CvePS As Integer = 907784
Respuesta = GeneraRemision(CveContrato, ObsRemisionPartida, TxtImporte.Text.ToDecimal, CvePS, ObjContratos.IniciaTransacSQL, DdlSubProyecto.SelectedValue.ToEntero) ' Respuesta = GeneraRemision(CveContrato, ObsRemisionPartida, TxtImporte.Text.ToDecimal, CvePS, ObjContratos.IniciaTransacSQL, DdlSubProyecto.SelectedValue.ToEntero)
If Respuesta.CveVenta > 0 Then ' If Respuesta.CveVenta > 0 Then
CveVentaRemision = Respuesta.CveVenta ' CveVentaRemision = Respuesta.CveVenta
SerieFolioRemision = Respuesta.SerieFolio ' SerieFolioRemision = Respuesta.SerieFolio
ErrorProceso = False ' ErrorProceso = False
SeGeneroRemision = True ' SeGeneroRemision = True
Else ' Else
ErrorProceso = True ' ErrorProceso = True
Alert("se presento un error al generar la remisión", TipoMensaje.MsgAdvertencia) ' Alert("se presento un error al generar la remisión", TipoMensaje.MsgAdvertencia)
End If ' End If
End If 'End If
If Not ErrorProceso Then If Not ErrorProceso Then
ObjContratos.Commit() ObjContratos.Commit()

35
Transportes/RepContratos.aspx
View File

@@ -119,8 +119,8 @@
<%-- Centro de Costos --%> <%-- Centro de Costos --%>
<label class="col-md-1 truncate ">Centro de Costos</label> <label class="col-md-1 truncate ">Centro de Costos</label>
<div class="col-md-2"> <div class="col-md-2">
<asp:DropDownList ID="DdlCentroCostos" data-text="Todos" AppendDataBoundItems="true" <asp:DropDownList ID="DdlCentroCostos" data-text="Todos" AppendDataBoundItems="true"
DataTextField="" DataValueField="" CssClass="form-control ddlFiltros input-sm select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control ddlFiltros input-sm select2me"
Style="width: 100%;" runat="server"> Style="width: 100%;" runat="server">
</asp:DropDownList> </asp:DropDownList>
</div> </div>
@@ -204,6 +204,11 @@
<asp:Literal ID="LtlFechaFinal" runat="server" Text='<%# Eval("FechaFinal", "{0:d}") %>'></asp:Literal> <asp:Literal ID="LtlFechaFinal" runat="server" Text='<%# Eval("FechaFinal", "{0:d}") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Rem/Invoice" >
<ItemTemplate>
<asp:HyperLink ID="HplRem" runat="server" NavigateUrl='<%#Eval("CveVentaRemision", "/Ventas/Ventas.aspx?CveVenta={0}") %>' Text='<%# Eval("RemisionSerieFolio") %>'></asp:HyperLink>
</ItemTemplate>
</asp:TemplateField>
<%-- Columnas Ocultas --%> <%-- Columnas Ocultas --%>
<asp:TemplateField HeaderText="Chofer 1" Visible="false"> <asp:TemplateField HeaderText="Chofer 1" Visible="false">
@@ -223,6 +228,7 @@
<asp:Literal ID="LtUnidad" runat="server" Text='<%# Eval("NombreAF") %>'></asp:Literal> <asp:Literal ID="LtUnidad" runat="server" Text='<%# Eval("NombreAF") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="F. Ingreso" > <asp:TemplateField HeaderText="F. Ingreso" >
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtFingreso" runat="server" Text='<%# Eval("FechaIng","{0:d}") %>'></asp:Literal> <asp:Literal ID="LtFingreso" runat="server" Text='<%# Eval("FechaIng","{0:d}") %>'></asp:Literal>
@@ -350,18 +356,18 @@
<div class="col-md-8"> <div class="col-md-8">
<div class="input-group"> <div class="input-group">
<%-- <asp:TextBox ID="TxtFechaSalida" runat="server" CssClass="form-control" CausesValidation="True" type="datetime-local" <asp:TextBox ID="TxtFechaSalida" runat="server" CssClass="form-control" CausesValidation="True" type="datetime-local"
Width="100%" Width="100%"
></asp:TextBox>--%> ></asp:TextBox>
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;"> <%--<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
<asp:TextBox Width="80px" ID="TxtFechaSalida" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox> <asp:TextBox Width="80px" ID="TxtFechaSalida" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn "> <span class="input-group-btn ">
<asp:LinkButton ID="LnkTxtFechaSalida" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton> <asp:LinkButton ID="LnkTxtFechaSalida" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span> </span>
</div> </div>
<ajax:MaskedEditExtender ID="MEETxtFechaSalida" runat="server" TargetControlID="TxtFechaSalida" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender> <ajax:MaskedEditExtender ID="MEETxtFechaSalida" runat="server" TargetControlID="TxtFechaSalida" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaSalida" PopupButtonID="LnkTxtFechaSalida" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender> <ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaSalida" PopupButtonID="LnkTxtFechaSalida" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>--%>
<asp:RequiredFieldValidator ID="RFVTxtFechaSalida" runat="server" ControlToValidate="TxtFechaSalida" <asp:RequiredFieldValidator ID="RFVTxtFechaSalida" runat="server" ControlToValidate="TxtFechaSalida"
Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Salida''</b> es necesario, por favor ingréselo." Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Salida''</b> es necesario, por favor ingréselo."
@@ -380,20 +386,20 @@
<div class="col-md-8"> <div class="col-md-8">
<div class="input-group"> <div class="input-group">
<%-- <asp:TextBox ID="TxtFechaRegreso" runat="server" CssClass="form-control" CausesValidation="True" type="datetime-local" <asp:TextBox ID="TxtFechaRegreso" runat="server" CssClass="form-control" CausesValidation="True" type="datetime-local"
Width="100%" Width="100%"
></asp:TextBox>--%> ></asp:TextBox>
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;"> <%--<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
<asp:TextBox Width="80px" ID="TxtFechaRegreso" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox> <asp:TextBox Width="80px" ID="TxtFechaRegreso" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn "> <span class="input-group-btn ">
<asp:LinkButton ID="LnkTxtFechaRegreso" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton> <asp:LinkButton ID="LnkTxtFechaRegreso" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span> </span>
</div> </div>
<ajax:MaskedEditExtender ID="MEETxtFechaRegreso" runat="server" TargetControlID="TxtFechaRegreso" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender> <ajax:MaskedEditExtender ID="MEETxtFechaRegreso" runat="server" TargetControlID="TxtFechaRegreso" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CalendarExtender2" TargetControlID="TxtFechaRegreso" PopupButtonID="LnkTxtFechaRegreso" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender> <ajax:CalendarExtender runat="server" ID="CalendarExtender2" TargetControlID="TxtFechaRegreso" PopupButtonID="LnkTxtFechaRegreso" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>--%>
<asp:RequiredFieldValidator ID="RFVTxtFechaRegreso" runat="server" ControlToValidate="TxtFechaRegreso" <asp:RequiredFieldValidator ID="RFVTxtFechaRegreso" runat="server" ControlToValidate="TxtFechaRegreso"
Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Regreso''</b> es necesario, por favor ingréselo." Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Regreso''</b> es necesario, por favor ingréselo."
@@ -508,15 +514,12 @@
</div> </div>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<div class="row my-1"> <div class="row my-1">
<label class="col-md-4">Es Presupuestal</label> <label class="col-md-6">NO Requiere Unidad</label>
<div class="col-md-8"> <div class="col-md-6">
<asp:CheckBox runat="server" ID="ChkEsPresupuestal" CssClass="make-switchsd" data-size="small" Checked="true" /> <asp:CheckBox runat="server" ID="ChkEsPresupuestal" />
</div> </div>
</div> </div>
</div> </div>
</div> </div>
</div> </div>

4
Transportes/RepContratos.aspx.vb
View File

@@ -51,7 +51,7 @@ Partial Class ListadoContratos
DdlEstatus.DataBind() DdlEstatus.DataBind()
DdlEstatus.Items.Insert(0, New ListItem("Todos", "-1")) DdlEstatus.Items.Insert(0, New ListItem("Todos", "-1"))
CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyectoModal) CargarCentrosDeCosto(Nothing, DdlCentroCostos, Nothing, LblSubProyectoModal)
DdlSubProyectoModal.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubProyectoModal.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyectoModal.DataBind() DdlSubProyectoModal.DataBind()
@@ -180,7 +180,7 @@ Partial Class ListadoContratos
End If End If
Anexo.Text = "" Anexo.Text = ""
If ErrorProceso = False AndAlso Not ChkEsPresupuestal.Checked Then If ErrorProceso = False Then
Dim ObsRemisionPartida As String = $"{DdlTipoAF.SelectedItem.Text}-{ TxtDescripcion.Text}-{LbFolio.Text}" Dim ObsRemisionPartida As String = $"{DdlTipoAF.SelectedItem.Text}-{ TxtDescripcion.Text}-{LbFolio.Text}"

15
Transportes/RepContratosCalendario.aspx
View File

@@ -296,7 +296,7 @@
<asp:UpdatePanel ID="UpTitulos" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpTitulos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<div class="row" style="margin-right: 10px; margin-top: 18px;" align="right"> <div class="row" style="margin-right: 10px; margin-top: 8px;" align="right">
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvContratos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" /> <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvContratos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvContratos.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('TxtBusqueda','{0}')", GvContratos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div> </div>
@@ -317,7 +317,6 @@
<HeaderTemplate> <HeaderTemplate>
Fecha<br /> Fecha<br />
Salida Salida
</HeaderTemplate> </HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlFechaI" runat="server" Text='<%# Eval("FechaInicial", "{0:dd/MM/yyyy HH:mm}") %>'></asp:Literal> <asp:Literal ID="LtlFechaI" runat="server" Text='<%# Eval("FechaInicial", "{0:dd/MM/yyyy HH:mm}") %>'></asp:Literal>
@@ -775,12 +774,15 @@
<script > <script >
var chartHeader; var chartHeader;
var chartBody; var chartBody;
function cargaDiagramaGrantAMC4(data, categorias, TipoVista) { function cargaDiagramaGrantAMC4(data, categorias, TipoVista) {
try {
// Si ya hay gráficos, eliminarlos para crear nuevos // Si ya hay gráficos, eliminarlos para crear nuevos
if (chartHeader) { if (chartHeader) {
chartHeader.dispose(); chartHeader.dispose();
@@ -1009,9 +1011,10 @@
chartHeader.validateLayout(); chartHeader.validateLayout();
}); });
}
catch (error) {
console.error(error);
}
} }
function cargaDiagramaGrant(data, categorias, TipoVista) { function cargaDiagramaGrant(data, categorias, TipoVista) {

61
Transportes/RepContratosCalendario.aspx.vb
View File

@@ -64,7 +64,7 @@ Partial Class RepContratosCalendario
Dim CveCliente As Integer = DdlCliente.SelectedValue.ToEntero Dim CveCliente As Integer = DdlCliente.SelectedValue.ToEntero
If CveCliente = 0 Then CveCliente = -1 If CveCliente = 0 Then CveCliente = -1
If ObjContratos.GetContratosReporte(UsuarioActual.CveEmpresa, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, If ObjContratos.GetContratosReporte(UsuarioActual.CveEmpresa, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate.AddDays(6),
DdlCliente.SelectedValue.ToEntero, DdlCliente.SelectedValue.ToEntero,
CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero,
CveEstatus:=DdlEstatusConsulta.SelectedValue.ToEntero, CveEstatus:=DdlEstatusConsulta.SelectedValue.ToEntero,
@@ -189,27 +189,14 @@ Partial Class RepContratosCalendario
End Sub End Sub
Private Sub CargaCronograma(Optional TipoVista As Integer = -1) Private Sub CargaCronograma(Optional TipoVista As Integer = -1)
If DtAvance IsNot Nothing Then If DtAvance IsNot Nothing Then
Dim strData As New StringBuilder Dim strData As New StringBuilder
Dim strAFData As New StringBuilder Dim strAFData As New StringBuilder
'Dim separator As String = ""
'Dim str As New StringBuilder()
'str.AppendLine("datosGant=[")
Dim StrFiltro As String = "" Dim StrFiltro As String = ""
If DdlTipoUnidad.SelectedValue.ToEntero > 0 Then StrFiltro = " AND CveTipoActivoFijo = " & DdlTipoUnidad.SelectedValue If DdlTipoUnidad.SelectedValue.ToEntero > 0 Then StrFiltro = " AND CveTipoActivoFijo = " & DdlTipoUnidad.SelectedValue
Dim DtUnidades As DataTable = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltraParametros("Codigo <> '' AND MedidaVehicular IN (2,3) " & StrFiltro, Orderby:=" TipoActivoFijo ASC, CodigoNumeroOrden ASC", DistinctColumns:={"Codigo", "CveActivoFijo"}) Dim DtUnidades As DataTable = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltraParametros("Codigo <> '' AND MedidaVehicular IN (2,3) " & StrFiltro, Orderby:=" TipoActivoFijo ASC, CodigoNumeroOrden ASC", DistinctColumns:={"Codigo", "CveActivoFijo"})
Dim jsonData As New JArray() Dim jsonData As New JArray()
Dim jsonCategorias As New JArray() Dim jsonCategorias As New JArray()
Dim random = New Random() Dim random = New Random()
'DATOS 'DATOS
@@ -237,11 +224,11 @@ Partial Class RepContratosCalendario
Dim FF As Date = Row("FechaFinal").ToString.ToDate Dim FF As Date = Row("FechaFinal").ToString.ToDate
strData.AppendLine("{") strData.AppendLine("{")
strData.AppendLine($"category: '{Row("CodigoAF").ToString}',") strData.AppendLine($"category: '{Row("CodigoAF").ToString.Replace("'", "")}',")
strData.AppendLine($"fromDate: '{FI.ToString("yyyy-MM-dd HH:mm:ss")}',") strData.AppendLine($"fromDate: '{FI.ToString("yyyy-MM-dd HH:mm:ss")}',")
strData.AppendLine($"toDate: '{FF.ToString("yyyy-MM-dd HH:mm:ss")}',") strData.AppendLine($"toDate: '{FF.ToString("yyyy-MM-dd HH:mm:ss")}',")
'strData.AppendLine($"columnSettings: {{fill: '{String.Format("#{0:X6}", random.Next(16777216))}'}},") 'strData.AppendLine($"columnSettings: {{fill: '{String.Format("#{0:X6}", random.Next(16777216))}'}},")
strData.AppendLine($"unidad: '{Row("NombreAF").ToString}',") strData.AppendLine($"unidad: '{Row("NombreAF").ToString.Replace("'", "")}',")
strData.AppendLine($"color: am4core.color('" & String.Format("#{0:X6}", random.Next(16777216)) & "'),") strData.AppendLine($"color: am4core.color('" & String.Format("#{0:X6}", random.Next(16777216)) & "'),")
strData.AppendLine($"cveContrato: {Row("CveContrato").ToString.ToEntero},") strData.AppendLine($"cveContrato: {Row("CveContrato").ToString.ToEntero},")
strData.AppendLine($"contrato: '{Row("NumeroContrato").ToString}',") strData.AppendLine($"contrato: '{Row("NumeroContrato").ToString}',")
@@ -249,7 +236,6 @@ Partial Class RepContratosCalendario
strData.AppendLine($"cliente: '{Row("NombreComercial").ToString.Replace("'", "")}'") strData.AppendLine($"cliente: '{Row("NombreComercial").ToString.Replace("'", "")}'")
strData.AppendLine("},") strData.AppendLine("},")
strAF.AppendFormat("{0},", Row("CveAF")) strAF.AppendFormat("{0},", Row("CveAF"))
'uniad contrato y duracion 'uniad contrato y duracion
@@ -275,16 +261,15 @@ Partial Class RepContratosCalendario
New JProperty("category", Row("Codigo")) New JProperty("category", Row("Codigo"))
) )
jsonCategorias.Add(obj) jsonCategorias.Add(obj)
strAFData.AppendLine("{") strAFData.AppendLine("{")
strAFData.AppendLine($"category: '{Row("Codigo").ToString}',") strAFData.AppendFormat("category: '{0}'", Row("Codigo"))
strAFData.AppendLine("},") strAFData.AppendLine("},")
Next Next
strAFData.AppendLine("{}]") strAFData.AppendLine("{}]")
'RegistraScript($"cargaDiagramaGrant({jsonData.ToString()},{jsonCategorias.ToString()},{TipoVista});", $"{random.Next(16777216)}") 'RegistraScript($"cargaDiagramaGrant({jsonData.ToString()},{jsonCategorias.ToString()},{TipoVista});", $"{random.Next(16777216)}")
RegistraScript($"cargaDiagramaGrantAMC4({strData.ToString().Replace(",{}", "")},{strAFData.ToString().Replace(",{}", "")},{TipoVista});", $"{random.Next(16777216)}") RegistraScript($" cargaDiagramaGrantAMC4({strData.ToString().Replace(",{}", "")},{strAFData.ToString().Replace(",{}", "")},{TipoVista}); ", random.Next(16777216).ToString)
UPPGantt.Update() UPPGantt.Update()
UPGat.Update() UPGat.Update()
@@ -562,8 +547,6 @@ Partial Class RepContratosCalendario
e.Row.BackColor = Drawing.ColorTranslator.FromHtml(BGC_Atencion) e.Row.BackColor = Drawing.ColorTranslator.FromHtml(BGC_Atencion)
End If End If
End If End If
End If End If
End Sub End Sub
@@ -609,6 +592,23 @@ Partial Class RepContratosCalendario
DdlTipoAF.SelectedValueExist(DRow("CveTipoAF").ToString) DdlTipoAF.SelectedValueExist(DRow("CveTipoAF").ToString)
DdlTipoAF_SelectedIndexChanged(Nothing, Nothing) DdlTipoAF_SelectedIndexChanged(Nothing, Nothing)
If DRow("CveAF").ToString.ToEntero > 0 Then
Dim ExisteItem As Boolean = False
For Each item As ListItem In DdlAF.Items
If item.Value = DRow("CveAF").ToString Then
ExisteItem = True
Exit For
End If
Next
If Not ExisteItem Then
Dim TmpItemText As String = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CodDesc", $" EstadoActivoFijo= 'Activo' AND CveActivoFijo = {DRow("CveAF").ToString}")
DdlAF.Items.Add(New ListItem(TmpItemText, $"{DRow("CveAF").ToString}"))
End If
End If
DdlAF.SelectedValueExist(DRow("CveAF").ToString) DdlAF.SelectedValueExist(DRow("CveAF").ToString)
HidCveAF.Value = "-1" HidCveAF.Value = "-1"
@@ -741,6 +741,21 @@ Partial Class RepContratosCalendario
DdlTipoAF.SelectedValueExist(GvRow.DataKey("CveTipoAF")) DdlTipoAF.SelectedValueExist(GvRow.DataKey("CveTipoAF"))
DdlTipoAF_SelectedIndexChanged(Nothing, Nothing) DdlTipoAF_SelectedIndexChanged(Nothing, Nothing)
If GvRow.DataKey("CveAF").ToEntero > 0 Then
Dim ExisteItem As Boolean = False
For Each item As ListItem In DdlAF.Items
If item.Value = GvRow.DataKey("CveAF") Then
ExisteItem = True
Exit For
End If
Next
If Not ExisteItem Then
Dim TmpItemText As String = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CodDesc", $" EstadoActivoFijo= 'Activo' AND CveActivoFijo = {GvRow.DataKey("CveAF")}")
DdlAF.Items.Add(New ListItem(TmpItemText, $"{GvRow.DataKey("CveAF")}"))
End If
End If
DdlAF.SelectedValueExist(GvRow.DataKey("CveAF")) DdlAF.SelectedValueExist(GvRow.DataKey("CveAF"))
HidCveAF.Value = "-1" HidCveAF.Value = "-1"
@@ -861,7 +876,7 @@ Partial Class RepContratosCalendario
'End If 'End If
DdlAF.DataBind() DdlAF.DataBind()
DdlAF.Items.Insert(0, New ListItem("-", "-1")) DdlAF.Items.Insert(0, New ListItem("-", "0")) 'DEBE DE SER CERO, SI SE QUIERE QUITAR LA UNIDAD
UpModal.Update() UpModal.Update()
End Sub End Sub

11
Ventas/ActualizarPrecios.aspx.vb
View File

@@ -493,7 +493,7 @@ Partial Class Ventas_ActualizarPrecios
DtExcel.Columns("PS").ColumnName = "Producto / Servicio" DtExcel.Columns("PS").ColumnName = "Producto / Servicio"
DtExcel.Columns("NumeroParte").ColumnName = "Número de parte" DtExcel.Columns("NumeroParte").ColumnName = "Número de parte"
If UsuarioActual.Empresa.Funcionalidad(531) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(578) = "1" Then 'Empresa Acumuladores If UsuarioActual.Empresa.Funcionalidad(578) = "1" Or UsuarioActual.Empresa.Funcionalidad(531) = "1" Or UsuarioActual.Empresa.Funcionalidad(382) = "1" Then '
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
DtExcel.Columns("Número de parte").ColumnName = "Código CPK" DtExcel.Columns("Número de parte").ColumnName = "Código CPK"
End If End If
@@ -501,6 +501,8 @@ Partial Class Ventas_ActualizarPrecios
DtExcel.Columns.Remove("Número de parte") DtExcel.Columns.Remove("Número de parte")
End If End If
SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet) SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
Dim FileExcel As New ExcelFile() Dim FileExcel As New ExcelFile()
@@ -988,20 +990,17 @@ Partial Class Ventas_ActualizarPrecios
For Each GvRow As GridViewRow In GvMultiple.Rows For Each GvRow As GridViewRow In GvMultiple.Rows
If GvRow.FCCheckBox("chkPS").Checked Then If GvRow.FCCheckBox("chkPS").Checked Then
For colIndex As Integer = 2 To GvRow.Cells.Count - 1 For colIndex As Integer = 2 To GvRow.Cells.Count - 3
Dim indiceColumna As Integer = (colIndex) Dim indiceColumna As Integer = (colIndex)
Dim CvePS As Integer = DtPreciosMultiple.Rows(GvRow.RowIndex)("CvePS").ToString().ToEntero()
Dim LtlId As String = "LtlLista_" + (colIndex - 1).ToString() Dim LtlId As String = "LtlLista_" + (colIndex - 1).ToString()
Dim TxtId As String = "TxtPrecio_" + (colIndex - 1).ToString() Dim TxtId As String = "TxtPrecio_" + (colIndex - 1).ToString()
If indiceColumna <= DtPreciosMultiple.Columns.Count - 1 Then If indiceColumna <= DtPreciosMultiple.Columns.Count - 1 Then
Dim CvePrecioLista As Integer = GvMultiple.HeaderRow.FCLabel(LtlId).Attributes().Item("cvepreciolista").ToEntero() Dim CvePrecioLista As Integer = GvMultiple.HeaderRow.FCLabel(LtlId).Attributes().Item("cvepreciolista").ToEntero()
Dim CvePS As Integer = DtPreciosMultiple.Rows(GvRow.RowIndex)("CvePS").ToString().ToEntero()
Dim Precio As Decimal = GvRow.FCTextBox(TxtId).Text.ToDecimal() Dim Precio As Decimal = GvRow.FCTextBox(TxtId).Text.ToDecimal()
TieneError = Not ObjPS.UpdatePSPreciosLista(Precio, CvePrecioLista, 0, CvePS, UsuarioActual.CveUsuario, NowADS(), True) TieneError = Not ObjPS.UpdatePSPreciosLista(Precio, CvePrecioLista, 0, CvePS, UsuarioActual.CveUsuario, NowADS(), True)
If Not TieneError Then If Not TieneError Then

11
Ventas/Ventas.aspx.vb
View File

@@ -14323,7 +14323,7 @@ Partial Class Ventas
End If End If
End If End If
If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso EsVentaMedica Then If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso EsVentaMedica AndAlso factura.TipoDocto.Contiene("Ped", "Rem") Then
Dim CveClientesucursatTemp As Integer = DdlClienteSucursalSucursal() Dim CveClientesucursatTemp As Integer = DdlClienteSucursalSucursal()
If CveClientesucursatTemp > 0 Then If CveClientesucursatTemp > 0 Then
@@ -14370,17 +14370,16 @@ Partial Class Ventas
End If End If
End If End If
Dim TotalImpuestoLocal As Double = 0 Dim TotalImpuestoLocal As Decimal = 0
If GvImpuestosLocales2.Rows.Count > 0 Then If GvImpuestosLocales2.Rows.Count > 0 Then
For Each gvr As GridViewRow In GvImpuestosLocales2.Rows For Each gvr As GridViewRow In GvImpuestosLocales2.Rows
If gvr.RowType = DataControlRowType.DataRow Then If gvr.RowType = DataControlRowType.DataRow Then
If gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble <> 0 Then If gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDecimal <> 0 Then
If gvr.DataKey("TipoImpuesto") = "5" Then ' cuando es traslado local If gvr.DataKey("TipoImpuesto") = "5" Then ' cuando es traslado local
TotalImpuestoLocal -= gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble TotalImpuestoLocal -= gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDecimal
Else ' cuando es retención Else ' cuando es retención
TotalImpuestoLocal += gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble TotalImpuestoLocal += gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDecimal
End If End If
End If End If
End If End If
Next Next