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

-

Browse Source
This commit is contained in:
rrene
2024-02-21 11:20:29 -07:00
parent d1705f67eb 6f0eb26d96
commit 9eec8a8bc8
22 changed files with 1127 additions and 902 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
App_Code/ClsInventarios.vb
View File

@@ -2178,7 +2178,7 @@ Public Class ClsInventarios
Return Retorno
End Function
Public Function GetExistenciasProductosLike(PS As String, CveClasificacion As Integer, CveSubProyecto As Integer, Estatus As Integer, AplicaParaVenta As Integer, CveEmpresa As Integer, Optional CveMarca As Integer = -1) As Boolean
Public Function GetExistenciasProductosLike(PS As String, CveClasificacion As Integer, CveSubProyecto As Integer, Estatus As Integer, AplicaParaVenta As Integer, CveEmpresa As Integer, Optional CveMarca As Integer = -1, Optional MostrarTodosAlmacenes As Boolean = False) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_ProductosServiciosInventario")
@@ -2190,6 +2190,7 @@ Public Class ClsInventarios
.Add("@AplicaParaVenta", SqlDbType.Int).Value = AplicaParaVenta
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveMarca", SqlDbType.Int).Value = CveMarca
.Add("@MostrarTodosAlmacenes", SqlDbType.Bit).Value = MostrarTodosAlmacenes
End With
Try

9
App_Code/ClsPaginas.vb
View File

@@ -5487,6 +5487,8 @@ Public Class ClsPaginas
Vta.Procedimiento = dtVentas(0)("Procedimiento").ToString
Vta.Alfa1 = dtVentas(0)("Alfa1").ToString
Vta.FechaEjecucion = dtVentas(0)("FechaEjecucion").ToString.ToDateTime
Vta.Paciente = dtVentas(0)("Paciente").ToString
Vta.Episodio = dtVentas(0)("Episodio").ToString
Vta.RefDocto = dtVentas(0)("Ref").ToString
Vta.CveVenta = dtVentas(0)("CveVenta").ToString.ToEntero
@@ -7016,6 +7018,9 @@ Public Class ClsPaginas
params.Add(New ReportParameter("Medico", Vta.Medico))
params.Add(New ReportParameter("Procedimiento", Vta.Procedimiento))
params.Add(New ReportParameter("FechaCirugia", Vta.FechaEjecucion.ToString("dd/MM/yyyy HH:mm")))
params.Add(New ReportParameter("Paciente", Vta.Paciente))
params.Add(New ReportParameter("Episodio", Vta.Episodio))
End If
'VSH
If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122, 145) Then
@@ -7071,6 +7076,8 @@ Public Class ClsPaginas
params.Add(New ReportParameter("Medico", Vta.Medico))
params.Add(New ReportParameter("Procedimiento", Vta.Procedimiento))
params.Add(New ReportParameter("FechaCirugia", Vta.FechaEjecucion.ToString("dd/MM/yyyy HH:mm")))
params.Add(New ReportParameter("Paciente", Vta.Paciente))
params.Add(New ReportParameter("Episodio", Vta.Episodio))
End If
RutaFormato = String.Format("{0}Formatos\{1}.rdlc", UsuarioActual.Empresa.Ruta, NombreArchivo)
@@ -7179,6 +7186,8 @@ Public Class ClsPaginas
params.Add(New ReportParameter("Medico", Vta.Medico))
params.Add(New ReportParameter("Procedimiento", Vta.Procedimiento))
params.Add(New ReportParameter("FechaCirugia", Vta.FechaEjecucion.ToString("dd/MM/yyyy HH:mm")))
params.Add(New ReportParameter("Paciente", Vta.Paciente))
params.Add(New ReportParameter("Episodio", Vta.Episodio))
End If
RutaFormato = String.Format("{0}Formatos\{1}.rdlc", UsuarioActual.Empresa.Ruta, NombreArchivo)

937
App_Code/ClsTransportes.vb
View File

@@ -1,472 +1,473 @@
Imports System.Data
Imports System.Data.SqlClient
Imports Extensiones
Public Class ClsTransportes
Implements IDisposable
#Region "Campos"
'SQL
Private SqlConexion As SqlConnection
Private SqlAdapter As SqlDataAdapter
Private SqlCommand As SqlCommand
Private SqlTransacc As SqlTransaction
Private Data As DataTable
Private DSet As New DataSet
Private disposedValue As Boolean = False
Private CveConexion As Integer = 0
Public ReadOnly Property DtResultados() As DataTable
Get
DtResultados = Data
End Get
End Property
#End Region
#Region "Propiedades"
Public Property CveViaje As Integer
Public Property CveRuta As Integer
Public Property CveAF As Integer
Public Property CvePersonal As Integer
Public Property CveEmpresa As Integer
Public Property CvePartida As Integer
Public Property CveDestino As Integer
Public Property CveMasivo As Integer
Public Property Fecha As DateTime
Public Property Ruta As String
#End Region
#Region "Funciones básicas"
Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing)
If TransaccionCompartida Is Nothing Then
SqlConexion = New SqlConnection With {
.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
}
Try
SqlConexion.Open()
Catch ex As Exception
OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex)
End Try
Else
SqlConexion = TransaccionCompartida.Connection
SqlTransacc = TransaccionCompartida
End If
SqlAdapter = New SqlDataAdapter("", SqlConexion)
ConexionAdd()
End Sub
Private Sub DataAdapter(StrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
With SqlAdapter.SelectCommand
.Parameters.Clear()
.CommandText = StrSQL
.CommandType = TipoComando
End With
If SqlTransacc IsNot Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc
Data = New DataTable
End Sub
#Region "Conexiones"
Private Sub ConexionAdd()
If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
Try
DataAdapter("PA_Sis_RegistrarConexion")
With SqlAdapter.SelectCommand.Parameters
.Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name
.Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}?{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString)
.Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output
End With
SqlAdapter.Fill(Data)
CveConexion = CInt(SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString)
Catch ex As Exception
OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
End If
End Sub
Private Sub ConexionClose()
If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text)
Try
SqlAdapter.Fill(Data)
Catch ex As Exception
OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
CveConexion = 0
End If
End Sub
#End Region
Public Function IniciaTransacSQL() As SqlTransaction
If SqlTransacc Is Nothing Then SqlTransacc = SqlConexion.BeginTransaction()
Return SqlTransacc
End Function
Public Sub RollBack()
SqlTransacc.Rollback()
End Sub
Public Sub Commit()
SqlTransacc.Commit()
End Sub
Protected Overridable Sub Dispose(ByVal disposing As Boolean)
If Not disposedValue Then
If disposing Then
If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
If Not DSet Is Nothing Then DSet.Dispose() : DSet = Nothing
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If
End If
disposedValue = True
End Sub
Public Sub Dispose() Implements IDisposable.Dispose
ConexionClose()
Dispose(True)
GC.SuppressFinalize(Me)
End Sub
#End Region
#Region "Boletos"
Public Function AddViajesPasajeros(CveViaje As Integer, CveDestinoOrigen As Integer, CveDestinoFinal As Integer, Importe As Decimal, Asiento As Integer, Nombre As String, Visa As String, Celular As String, Sexo As Boolean, Observacion As String, CveUsuario As Integer, CveVendedor As Integer) As Integer
Dim Retorno As Integer = -1
DataAdapter("PA_Trans_ViajesPasajerosAdd")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveViajePasajero", SqlDbType.Int).Direction = ParameterDirection.Output
.Add("@CveViaje", SqlDbType.Int).Value = CveViaje
.Add("@CveDestinoOrigen", SqlDbType.Int).Value = CveDestinoOrigen
.Add("@CveDestinoFinal", SqlDbType.Int).Value = CveDestinoFinal
.Add("@Importe", SqlDbType.Money).Value = Importe
.Add("@Asiento", SqlDbType.Int).Value = Asiento
.Add("@Nombre", SqlDbType.VarChar).Value = Nombre
.Add("@Visa", SqlDbType.VarChar).Value = Visa
.Add("@Celular", SqlDbType.VarChar).Value = Celular
.Add("@Sexo", SqlDbType.Bit).Value = Sexo
.Add("@Observacion", SqlDbType.VarChar).Value = Observacion
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
End With
Try
SqlAdapter.Fill(Data)
Retorno = CInt(SqlAdapter.SelectCommand.Parameters("@CveViajePasajero").Value.ToString)
Catch ex As Exception
OnError("Ocurrió un error al guardar el nuevo viaje.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function GetViajesPasajeros(CveViaje As Integer, Optional CveViajePasajero As Integer = -1, Optional Estatus As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Trans_ViajesPasajerosGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveViaje", SqlDbType.Int).Value = CveViaje
.Add("@CveViajePasajero", SqlDbType.Int).Value = CveViajePasajero
.Add("@Estatus", SqlDbType.Int).Value = Estatus
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener el catálogo de boletos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function UpdateViajesPasajeros(CveViajePasajero As Integer, Optional Estatus As Boolean = True, Optional Activar As Boolean = False) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Trans_ViajesPasajerosUpdate")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveViajePasajero", SqlDbType.Int).Value = CveViajePasajero
.Add("@Estatus", SqlDbType.Int).Value = Estatus
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al actualizar el boleto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
Imports System.Data
Imports System.Data.SqlClient
Imports Extensiones
Public Class ClsTransportes
Implements IDisposable
#Region "Campos"
'SQL
Private SqlConexion As SqlConnection
Private SqlAdapter As SqlDataAdapter
Private SqlCommand As SqlCommand
Private SqlTransacc As SqlTransaction
Private Data As DataTable
Private DSet As New DataSet
Private disposedValue As Boolean = False
Private CveConexion As Integer = 0
Public ReadOnly Property DtResultados() As DataTable
Get
DtResultados = Data
End Get
End Property
#End Region
#Region "Propiedades"
Public Property CveViaje As Integer
Public Property CveRuta As Integer
Public Property CveAF As Integer
Public Property CvePersonal As Integer
Public Property CveEmpresa As Integer
Public Property CvePartida As Integer
Public Property CveDestino As Integer
Public Property CveMasivo As Integer
Public Property Fecha As DateTime
Public Property Ruta As String
#End Region
#Region "Funciones básicas"
Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing)
If TransaccionCompartida Is Nothing Then
SqlConexion = New SqlConnection With {
.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
}
Try
SqlConexion.Open()
Catch ex As Exception
OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex)
End Try
Else
SqlConexion = TransaccionCompartida.Connection
SqlTransacc = TransaccionCompartida
End If
SqlAdapter = New SqlDataAdapter("", SqlConexion)
ConexionAdd()
End Sub
Private Sub DataAdapter(StrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
With SqlAdapter.SelectCommand
.Parameters.Clear()
.CommandText = StrSQL
.CommandType = TipoComando
End With
If SqlTransacc IsNot Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc
Data = New DataTable
End Sub
#Region "Conexiones"
Private Sub ConexionAdd()
If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
Try
DataAdapter("PA_Sis_RegistrarConexion")
With SqlAdapter.SelectCommand.Parameters
.Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name
.Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}?{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString)
.Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output
End With
SqlAdapter.Fill(Data)
CveConexion = CInt(SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString)
Catch ex As Exception
OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
End If
End Sub
Private Sub ConexionClose()
If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text)
Try
SqlAdapter.Fill(Data)
Catch ex As Exception
OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
CveConexion = 0
End If
End Sub
#End Region
Public Function IniciaTransacSQL() As SqlTransaction
If SqlTransacc Is Nothing Then SqlTransacc = SqlConexion.BeginTransaction()
Return SqlTransacc
End Function
Public Function GetRemisionBoleto(CveViajePasajero As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Trans_ViajesPasajerosVentaGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveViajePasajero", SqlDbType.Int).Value = CveViajePasajero
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener la remisión del boleto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
Public Sub RollBack()
SqlTransacc.Rollback()
End Sub
Public Sub Commit()
SqlTransacc.Commit()
End Sub
Protected Overridable Sub Dispose(ByVal disposing As Boolean)
If Not disposedValue Then
If disposing Then
If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
If Not DSet Is Nothing Then DSet.Dispose() : DSet = Nothing
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If
End If
disposedValue = True
End Sub
Public Sub Dispose() Implements IDisposable.Dispose
ConexionClose()
Dispose(True)
GC.SuppressFinalize(Me)
End Sub
#End Region
#Region "Boletos"
Public Function AddViajesPasajeros(CveViaje As Integer, CveDestinoOrigen As Integer, CveDestinoFinal As Integer, Importe As Decimal, Asiento As Integer, Nombre As String, Visa As String, Celular As String, Sexo As Boolean, Observacion As String, CveUsuario As Integer, CveVendedor As Integer) As Integer
Dim Retorno As Integer = -1
DataAdapter("PA_Trans_ViajesPasajerosAdd")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveViajePasajero", SqlDbType.Int).Direction = ParameterDirection.Output
.Add("@CveViaje", SqlDbType.Int).Value = CveViaje
.Add("@CveDestinoOrigen", SqlDbType.Int).Value = CveDestinoOrigen
.Add("@CveDestinoFinal", SqlDbType.Int).Value = CveDestinoFinal
.Add("@Importe", SqlDbType.Money).Value = Importe
.Add("@Asiento", SqlDbType.Int).Value = Asiento
.Add("@Nombre", SqlDbType.VarChar).Value = Nombre
.Add("@Visa", SqlDbType.VarChar).Value = Visa
.Add("@Celular", SqlDbType.VarChar).Value = Celular
.Add("@Sexo", SqlDbType.Bit).Value = Sexo
.Add("@Observacion", SqlDbType.VarChar).Value = Observacion
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
End With
Try
SqlAdapter.Fill(Data)
Retorno = CInt(SqlAdapter.SelectCommand.Parameters("@CveViajePasajero").Value.ToString)
Catch ex As Exception
OnError("Ocurrió un error al guardar el nuevo viaje.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function GetViajesPasajeros(CveViaje As Integer, Optional CveViajePasajero As Integer = -1, Optional Estatus As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Trans_ViajesPasajerosGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveViaje", SqlDbType.Int).Value = CveViaje
.Add("@CveViajePasajero", SqlDbType.Int).Value = CveViajePasajero
.Add("@Estatus", SqlDbType.Int).Value = Estatus
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener el catálogo de boletos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function UpdateViajesPasajeros(CveViajePasajero As Integer, Optional Estatus As Boolean = True, Optional Activar As Boolean = False) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Trans_ViajesPasajerosUpdate")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveViajePasajero", SqlDbType.Int).Value = CveViajePasajero
.Add("@Estatus", SqlDbType.Int).Value = Estatus
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al actualizar el boleto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function GetRemisionBoleto(CveViajePasajero As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Trans_ViajesPasajerosVentaGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveViajePasajero", SqlDbType.Int).Value = CveViajePasajero
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener la remisión del boleto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
#End Region
#End Region
#Region "Destinos"
Public Function GetDestinos(Optional CveSubProyecto As Integer = 0) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Trans_DestinosGet")
If CveRuta <> 0 Then
With SqlAdapter.SelectCommand.Parameters
.Add("@CveRuta", SqlDbType.Int).Value = CveRuta
End With
End If
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener los destino.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function AddDestino(Destino As String, Estatus As String, EsNacional As String, CveUsuario As Integer, CveEmpresa As Integer) As Integer
Dim Retorno As Integer = -1
DataAdapter("PA_Trans_DestinosAdd")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveDestino", SqlDbType.Int).Direction = ParameterDirection.Output
.Add("@Destino", SqlDbType.VarChar).Value = Destino
.Add("@EsNacional", SqlDbType.VarChar).Value = Convert.ToBoolean(EsNacional)
.Add("@Estatus", SqlDbType.Bit).Value = Convert.ToBoolean(Estatus)
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = CInt(SqlAdapter.SelectCommand.Parameters("@CveDestino").Value.ToString)
Catch ex As Exception
OnError("Ocurrió un error al agregar el destino.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function UpdateDestino(CveDestino As Integer, Destino As String, Estatus As String, EsNacional As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Trans_DestinosUpdate")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveDestino", SqlDbType.Int).Value = CveDestino
.Add("@Destino", SqlDbType.VarChar).Value = Destino
.Add("@EsNacional", SqlDbType.VarChar).Value = Convert.ToBoolean(EsNacional)
.Add("@Estatus", SqlDbType.Bit).Value = Convert.ToBoolean(Estatus)
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al actualizar el destino.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function RemoveDestino(CveDestino As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Trans_DestinosRemove")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveDestino", SqlDbType.Int).Value = CveDestino
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al eliminar el destino.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
#End Region
'#Region "Rutas"
' Public Function GetRutas(CveRuta As Integer, CveUsuario As Integer, CveEmpresa As Integer, Ruta As String, Estatus As Boolean, FechaIng As DateTime) As Boolean
' Dim Retorno As Boolean = False
' DataAdapter("PA_Trans_RutasGet")
' With SqlAdapter.SelectCommand.Parameters
' .Add("@CveRuta", SqlDbType.Int).Value = CveRuta
' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
' .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
' .Add("@Ruta", SqlDbType.VarChar).Value = Ruta
' .Add("@Estatus", SqlDbType.Bit).Value = Estatus
' .Add("@FechaIng", SqlDbType.DateTime).Value = FechaIng
' End With
' Try
' SqlAdapter.Fill(Data)
' Retorno = True
' Catch ex As Exception
' OnError("Ocurrió un error al obtener las rutas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
' End Try
' Return Retorno
' End Function
' Public Function AddRuta(Ruta As String, Estatus As String, CveUsuario As Integer, CveEmpresa As Integer) As Integer
' Dim Retorno As Integer = -1
' DataAdapter("PA_Trans_RutasAdd")
' With SqlAdapter.SelectCommand.Parameters
' .Add("@CveRuta", SqlDbType.Int).Direction = ParameterDirection.Output
' .Add("@Ruta", SqlDbType.VarChar).Value = Ruta
' .Add("@Estatus", SqlDbType.Bit).Value = Convert.ToBoolean(Estatus)
' .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
' End With
' Try
' SqlAdapter.Fill(Data)
' Retorno = CInt(SqlAdapter.SelectCommand.Parameters("@CveRuta").Value.ToString)
' Catch ex As Exception
' OnError("Ocurrió un error al agregar la ruta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
' End Try
' Return Retorno
' End Function
' Public Function UpdateRuta(CveRuta As Integer, Ruta As String, Estatus As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
' Dim Retorno As Boolean = False
' DataAdapter("PA_Trans_RutasUpdate")
' With SqlAdapter.SelectCommand.Parameters
' .Add("@CveRuta", SqlDbType.Int).Value = CveRuta
' .Add("@Ruta", SqlDbType.VarChar).Value = Ruta
' .Add("@Estatus", SqlDbType.Bit).Value = Convert.ToBoolean(Estatus)
' .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
' End With
' Try
' SqlAdapter.Fill(Data)
' Retorno = True
' Catch ex As Exception
' OnError("Ocurrió un error al actualizar la ruta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
' End Try
' Return Retorno
' End Function
' Public Function RemoveRuta(CveRuta As Integer) As Boolean
' Dim Retorno As Boolean = False
' DataAdapter("PA_Trans_RutasRemove")
' With SqlAdapter.SelectCommand.Parameters
' .Add("@CveRuta", SqlDbType.Int).Value = CveRuta
' End With
' Try
' SqlAdapter.Fill(Data)
' Retorno = True
' Catch ex As Exception
' OnError("Ocurrió un error al eliminar la ruta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
' End Try
' Return Retorno
' End Function
'#End Region
#Region "Importes"
Public Function GetDestinosTarifas(CveSubProyecto As Integer, CveDestinoOrigen As Integer, CveDestinoFinal As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Trans_DestinosTarifasGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveDestinoOrigen", SqlDbType.Int).Value = CveDestinoOrigen
.Add("@CveDestinoFinal", SqlDbType.Int).Value = CveDestinoFinal
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener la tarifa de los destinos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function AddDestinosTarifas(CveSubProyecto As Integer, CveDestinoOrigen As Integer, CveDestinoFinal As Integer, Importe As Decimal) As Integer
Dim Retorno As Integer = -1
DataAdapter("PA_Trans_DestinosTarifasAdd")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveDestinoOrigen", SqlDbType.Int).Value = CveDestinoOrigen
.Add("@CveDestinoFinal", SqlDbType.Int).Value = CveDestinoFinal
.Add("@Importe", SqlDbType.SmallMoney).Value = Importe
.Add("@CveDestinoTarifa", SqlDbType.Int).Direction = ParameterDirection.Output
End With
Try
SqlAdapter.Fill(Data)
Retorno = CInt(SqlAdapter.SelectCommand.Parameters("@CveDestinoTarifa").Value.ToString)
Catch ex As Exception
OnError("Ocurrió un error al agregar el importe.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function UpdateDestinosTarifas(CveDestinoTarifa As Integer, CveSubProyecto As Integer, CveDestinoOrigen As Integer, CveDestinoFinal As Integer, Importe As Decimal) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Trans_DestinosTarifasUpdate")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveDestinoTarifa", SqlDbType.Int).Value = CveDestinoTarifa
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveDestinoOrigen", SqlDbType.Int).Value = CveDestinoOrigen
.Add("@CveDestinoFinal", SqlDbType.Int).Value = CveDestinoFinal
.Add("@Importe", SqlDbType.SmallMoney).Value = Importe
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al actualizar el importe.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function RemoveDestinosTarifas(CveDestinoTarifa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Trans_DestinosTarifasRemove")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveDestinoTarifa", SqlDbType.Int).Value = CveDestinoTarifa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al eliminar el importe.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
#End Region
End Class
#Region "Destinos"
Public Function GetDestinos(Optional CveSubProyecto As Integer = 0) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Trans_DestinosGet")
If CveRuta <> 0 Then
With SqlAdapter.SelectCommand.Parameters
.Add("@CveRuta", SqlDbType.Int).Value = CveRuta
End With
End If
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener los destino.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function AddDestino(Destino As String, Estatus As String, EsNacional As String, CveUsuario As Integer, CveEmpresa As Integer) As Integer
Dim Retorno As Integer = -1
DataAdapter("PA_Trans_DestinosAdd")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveDestino", SqlDbType.Int).Direction = ParameterDirection.Output
.Add("@Destino", SqlDbType.VarChar).Value = Destino
.Add("@EsNacional", SqlDbType.Bit).Value = Convert.ToBoolean(EsNacional)
.Add("@Estatus", SqlDbType.Bit).Value = Convert.ToBoolean(Estatus)
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = CInt(SqlAdapter.SelectCommand.Parameters("@CveDestino").Value.ToString)
Catch ex As Exception
OnError("Ocurrió un error al agregar el destino.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function UpdateDestino(CveDestino As Integer, Destino As String, Estatus As String, EsNacional As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Trans_DestinosUpdate")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveDestino", SqlDbType.Int).Value = CveDestino
.Add("@Destino", SqlDbType.VarChar).Value = Destino
.Add("@EsNacional", SqlDbType.VarChar).Value = Convert.ToBoolean(EsNacional)
.Add("@Estatus", SqlDbType.Bit).Value = Convert.ToBoolean(Estatus)
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al actualizar el destino.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function RemoveDestino(CveDestino As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Trans_DestinosRemove")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveDestino", SqlDbType.Int).Value = CveDestino
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al eliminar el destino.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
#End Region
'#Region "Rutas"
' Public Function GetRutas(CveRuta As Integer, CveUsuario As Integer, CveEmpresa As Integer, Ruta As String, Estatus As Boolean, FechaIng As DateTime) As Boolean
' Dim Retorno As Boolean = False
' DataAdapter("PA_Trans_RutasGet")
' With SqlAdapter.SelectCommand.Parameters
' .Add("@CveRuta", SqlDbType.Int).Value = CveRuta
' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
' .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
' .Add("@Ruta", SqlDbType.VarChar).Value = Ruta
' .Add("@Estatus", SqlDbType.Bit).Value = Estatus
' .Add("@FechaIng", SqlDbType.DateTime).Value = FechaIng
' End With
' Try
' SqlAdapter.Fill(Data)
' Retorno = True
' Catch ex As Exception
' OnError("Ocurrió un error al obtener las rutas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
' End Try
' Return Retorno
' End Function
' Public Function AddRuta(Ruta As String, Estatus As String, CveUsuario As Integer, CveEmpresa As Integer) As Integer
' Dim Retorno As Integer = -1
' DataAdapter("PA_Trans_RutasAdd")
' With SqlAdapter.SelectCommand.Parameters
' .Add("@CveRuta", SqlDbType.Int).Direction = ParameterDirection.Output
' .Add("@Ruta", SqlDbType.VarChar).Value = Ruta
' .Add("@Estatus", SqlDbType.Bit).Value = Convert.ToBoolean(Estatus)
' .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
' End With
' Try
' SqlAdapter.Fill(Data)
' Retorno = CInt(SqlAdapter.SelectCommand.Parameters("@CveRuta").Value.ToString)
' Catch ex As Exception
' OnError("Ocurrió un error al agregar la ruta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
' End Try
' Return Retorno
' End Function
' Public Function UpdateRuta(CveRuta As Integer, Ruta As String, Estatus As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
' Dim Retorno As Boolean = False
' DataAdapter("PA_Trans_RutasUpdate")
' With SqlAdapter.SelectCommand.Parameters
' .Add("@CveRuta", SqlDbType.Int).Value = CveRuta
' .Add("@Ruta", SqlDbType.VarChar).Value = Ruta
' .Add("@Estatus", SqlDbType.Bit).Value = Convert.ToBoolean(Estatus)
' .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
' End With
' Try
' SqlAdapter.Fill(Data)
' Retorno = True
' Catch ex As Exception
' OnError("Ocurrió un error al actualizar la ruta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
' End Try
' Return Retorno
' End Function
' Public Function RemoveRuta(CveRuta As Integer) As Boolean
' Dim Retorno As Boolean = False
' DataAdapter("PA_Trans_RutasRemove")
' With SqlAdapter.SelectCommand.Parameters
' .Add("@CveRuta", SqlDbType.Int).Value = CveRuta
' End With
' Try
' SqlAdapter.Fill(Data)
' Retorno = True
' Catch ex As Exception
' OnError("Ocurrió un error al eliminar la ruta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
' End Try
' Return Retorno
' End Function
'#End Region
#Region "Importes"
Public Function GetDestinosTarifas(CveSubProyecto As Integer, CveDestinoOrigen As Integer, CveDestinoFinal As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Trans_DestinosTarifasGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveDestinoOrigen", SqlDbType.Int).Value = CveDestinoOrigen
.Add("@CveDestinoFinal", SqlDbType.Int).Value = CveDestinoFinal
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener la tarifa de los destinos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function AddDestinosTarifas(CveSubProyecto As Integer, CveDestinoOrigen As Integer, CveDestinoFinal As Integer, Importe As Decimal) As Integer
Dim Retorno As Integer = -1
DataAdapter("PA_Trans_DestinosTarifasAdd")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveDestinoTarifa", SqlDbType.Int).Direction = ParameterDirection.Output
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveDestinoOrigen", SqlDbType.Int).Value = CveDestinoOrigen
.Add("@CveDestinoFinal", SqlDbType.Int).Value = CveDestinoFinal
.Add("@Importe", SqlDbType.SmallMoney).Value = Importe
End With
Try
SqlAdapter.Fill(Data)
Retorno = CInt(SqlAdapter.SelectCommand.Parameters("@CveDestinoTarifa").Value.ToString)
Catch ex As Exception
OnError("Ocurrió un error al agregar el importe.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function UpdateDestinosTarifas(CveDestinoTarifa As Integer, CveSubProyecto As Integer, CveDestinoOrigen As Integer, CveDestinoFinal As Integer, Importe As Decimal) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Trans_DestinosTarifasUpdate")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveDestinoTarifa", SqlDbType.Int).Value = CveDestinoTarifa
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveDestinoOrigen", SqlDbType.Int).Value = CveDestinoOrigen
.Add("@CveDestinoFinal", SqlDbType.Int).Value = CveDestinoFinal
.Add("@Importe", SqlDbType.SmallMoney).Value = Importe
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al actualizar el importe.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function RemoveDestinosTarifas(CveDestinoTarifa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Trans_DestinosTarifasRemove")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveDestinoTarifa", SqlDbType.Int).Value = CveDestinoTarifa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al eliminar el importe.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
#End Region
End Class

36
Ashx/SIGWeb.ashx
View File

@@ -929,33 +929,39 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
Dim CveMarca = IfNull(context.Request("cvemarca"), "-1").ToString.ToEntero
Dim UsaGlobal As Boolean = True
Dim MostrarTodosAlmacenes As Boolean = False
'verifica existencias
If Pagina.Contiene("ventas/ventas", "oc/oc", "inv/traspaso") AndAlso usuario.Empresa.Funcionalidad(141) = "1" Then
UsaGlobal = False
'If CveEmpresa.Contiene(140, 141) And Pagina.Contiene("ventas/ventas") Then
' AplicaParaVenta = 1
'End If
If (usuario.Empresa.Funcionalidad(558) = "1" OrElse usuario.Empresa.Funcionalidad(531) = "1") AndAlso Pagina.Contiene("ventas/ventas") Then
MostrarTodosAlmacenes = True
End If
Dim objInv As New ClsInventarios
If objInv.GetExistenciasProductosLike(Name, CveClasificacion, CveSubProyecto, Estatus.ToEntero, AplicaParaVenta, CveEmpresa, CveMarca) Then
Try
If objInv.GetExistenciasProductosLike(Name, CveClasificacion, CveSubProyecto, Estatus.ToEntero, AplicaParaVenta, CveEmpresa, CveMarca, MostrarTodosAlmacenes:=MostrarTodosAlmacenes) Then
' limpio los almacenes donde no tiene ningun producto existencia
' limpio los almacenes donde no tiene ningun producto existencia
Dim i As Integer = 0
While i < objInv.DtResultados.Columns.Count
Dim i As Integer = 0
While i < objInv.DtResultados.Columns.Count
If Not objInv.DtResultados.Columns(i).ColumnName.Contiene("CvePS", "PSCodigo", "PSCodigoClasificacion", "CveClasificacion") AndAlso objInv.DtResultados.SUM(String.Format("[{0}]", objInv.DtResultados.Columns(i).ColumnName)) = 0 Then
objInv.DtResultados.Columns.RemoveAt(i)
Else
i = i + 1
End If
End While
If Not objInv.DtResultados.Columns(i).ColumnName.Contiene("CvePS", "PSCodigo", "PSCodigoClasificacion", "CveClasificacion") AndAlso objInv.DtResultados.SUM(String.Format("[{0}]", objInv.DtResultados.Columns(i).ColumnName)) = 0 Then
objInv.DtResultados.Columns.RemoveAt(i)
Else
i = i + 1
End If
End While
DtPSRetorno = objInv.DtResultados
DtPSRetorno = objInv.DtResultados
End If
Catch ex As Exception
GuardaLog(ex.ToString())
End Try
End If
objInv.Dispose()

BIN
Bin/ADSNetLibrary.dll
View File

Binary file not shown.

96
CRM/Acercamiento.aspx.cs
View File

@@ -828,7 +828,7 @@ public partial class CRM_Acercamiento : ClsPaginas
{
ClsCRM ObjCRM = new ClsCRM();
ICRMService cRMService = new CRMService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString);
AcercaminetoModel AcercaminetoModel = new AcercaminetoModel();
AcercamientoModel AcercamientoModel = new AcercamientoModel();
ClsEncuestas ObjDatosTecnicos = new ClsEncuestas(ObjCRM.IniciaTransacSQL());
//ClsOIEventos ObjBitacora = new ClsOIEventos(ObjCRM.IniciaTransacSQL());
@@ -866,31 +866,31 @@ public partial class CRM_Acercamiento : ClsPaginas
{
CveEncuestaAplicadaProceso = GuardaDatosTecnicos(ObjDatosTecnicos, CveEncuestaAplicadaProceso);
}
AcercaminetoModel.CveAcercamiento = CveAcercamiento;
AcercaminetoModel.CveContactoPrincipal = CveContactoPrincipal;
AcercaminetoModel.CveTipoProceso = CveTipoProceso;
AcercaminetoModel.CveEtapaProcesoActual = CveEtapaProcesoActualActualizar;
AcercaminetoModel.CveVendedor = CveVendedor;
AcercaminetoModel.CveMedioCaptacion = CveMedioCaptacion;
AcercaminetoModel.CveProbabilidadAcercamiento = CveProbabilidadAcercamiento;
AcercaminetoModel.NombreAcercamiento = NombreAcercamiento;
AcercaminetoModel.Descripcion = Descripcion;
AcercaminetoModel.Importe = Importe;
AcercaminetoModel.Comision = Comision;
AcercaminetoModel.Prioridad = Prioridad;
AcercaminetoModel.CveUsuarioIng = UsuarioActual.CveUsuario;
AcercaminetoModel.CveEncuestaAplicadaProceso = CveEncuestaAplicadaProceso;
AcercaminetoModel.FechaApertura = FechaApertura;
AcercaminetoModel.FechaCierre = FechaCierre != null ? (DateTime)FechaCierre : ModExtensiones.MinFecha;
AcercaminetoModel.CvePS = DdlPS.SelectedValue.ToEntero();
AcercaminetoModel.CveRechazoMotivo = CveRechazoMotivo;
AcercaminetoModel.EnPausa = ChkePausa.Checked;
AcercaminetoModel.CveMedico = DdlMedico.SelectedValue.ToEntero();
AcercaminetoModel.CveProcedimiento = DdlProcedimiento.SelectedValue.ToEntero();
AcercaminetoModel.CveTipoVenta = DdlTipoVenta.SelectedValue.ToEntero();
AcercamientoModel.CveAcercamiento = CveAcercamiento;
AcercamientoModel.CveContactoPrincipal = CveContactoPrincipal;
AcercamientoModel.CveTipoProceso = CveTipoProceso;
AcercamientoModel.CveEtapaProcesoActual = CveEtapaProcesoActualActualizar;
AcercamientoModel.CveVendedor = CveVendedor;
AcercamientoModel.CveMedioCaptacion = CveMedioCaptacion;
AcercamientoModel.CveProbabilidadAcercamiento = CveProbabilidadAcercamiento;
AcercamientoModel.NombreAcercamiento = NombreAcercamiento;
AcercamientoModel.Descripcion = Descripcion;
AcercamientoModel.Importe = Importe;
AcercamientoModel.Comision = Comision;
AcercamientoModel.Prioridad = Prioridad;
AcercamientoModel.CveUsuarioIng = UsuarioActual.CveUsuario;
AcercamientoModel.CveEncuestaAplicadaProceso = CveEncuestaAplicadaProceso;
AcercamientoModel.FechaApertura = FechaApertura;
AcercamientoModel.FechaCierre = FechaCierre != null ? (DateTime)FechaCierre : ModExtensiones.MinFecha;
AcercamientoModel.CvePS = DdlPS.SelectedValue.ToEntero();
AcercamientoModel.CveRechazoMotivo = CveRechazoMotivo;
AcercamientoModel.EnPausa = ChkePausa.Checked;
AcercamientoModel.CveMedico = DdlMedico.SelectedValue.ToEntero();
AcercamientoModel.CveProcedimiento = DdlProcedimiento.SelectedValue.ToEntero();
AcercamientoModel.CveTipoVenta = DdlTipoVenta.SelectedValue.ToEntero();
if (cRMService.AcercamientoUpdate(AcercaminetoModel))
if (cRMService.AcercamientoUpdate(AcercamientoModel))
{
//String MensajeBitacora = (CveEtapaProcesoActualActualizar != CveEtapaActual) ? String.Format("Se actualizó la etapa del acercamiento a {0}.", DTEtapasProceso.FiltroPrimeroValor("EtapaProceso", "CveEtapaProceso = " + CveEtapaProcesoActualActualizar)) : String.Format("Se actualizó el Acercamiento {0} con Vendedor {2} y Contacto Principal {3}.", NombreAcercamiento, DdlTipoProceso.SelectedItem, DdlVendedor.SelectedItem, DdlContactoPrincipal.SelectedValue == "-1" ? "aun no asignado" : DdlContactoPrincipal.SelectedItem.Text);
@@ -926,7 +926,7 @@ public partial class CRM_Acercamiento : ClsPaginas
protected void GuardarCambioEtapa()
{
ICRMService cRMService = new CRMService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString);
AcercaminetoModel AcercaminetoModel = new AcercaminetoModel();
AcercamientoModel AcercamientoModel = new AcercamientoModel();
String NombreAcercamiento = TxtNombreAcercamiento.Text;
String Descripcion = TxtDescripcion.Text == "" ? "-1" : TxtDescripcion.Text;
@@ -953,30 +953,30 @@ public partial class CRM_Acercamiento : ClsPaginas
int CveUsuarioIng = UsuarioActual.CveUsuario;
AcercaminetoModel.CveAcercamiento = CveAcercamiento;
AcercaminetoModel.CveContactoPrincipal = CveContactoPrincipal;
AcercaminetoModel.CveTipoProceso = CveTipoProceso;
AcercaminetoModel.CveEtapaProcesoActual = CveEtapaProcesoActualActualizar;
AcercaminetoModel.CveVendedor = CveVendedor;
AcercaminetoModel.CveMedioCaptacion = CveMedioCaptacion;
AcercaminetoModel.CveProbabilidadAcercamiento = CveProbabilidadAcercamiento;
AcercaminetoModel.NombreAcercamiento = NombreAcercamiento;
AcercaminetoModel.Descripcion = Descripcion;
AcercaminetoModel.Importe = Importe;
AcercaminetoModel.Comision = Comision;
AcercaminetoModel.Prioridad = Prioridad;
AcercaminetoModel.CveUsuarioIng = UsuarioActual.CveUsuario;
AcercaminetoModel.CveEncuestaAplicadaProceso = CveEncuestaAplicadaProceso;
AcercaminetoModel.FechaApertura = FechaApertura;
AcercaminetoModel.FechaCierre = FechaCierre != null ? (DateTime)FechaCierre : ModExtensiones.MinFecha;
AcercaminetoModel.CvePS = DdlPS.SelectedValue.ToEntero();
AcercaminetoModel.CveRechazoMotivo = CveRechazoMotivo;
AcercamientoModel.CveAcercamiento = CveAcercamiento;
AcercamientoModel.CveContactoPrincipal = CveContactoPrincipal;
AcercamientoModel.CveTipoProceso = CveTipoProceso;
AcercamientoModel.CveEtapaProcesoActual = CveEtapaProcesoActualActualizar;
AcercamientoModel.CveVendedor = CveVendedor;
AcercamientoModel.CveMedioCaptacion = CveMedioCaptacion;
AcercamientoModel.CveProbabilidadAcercamiento = CveProbabilidadAcercamiento;
AcercamientoModel.NombreAcercamiento = NombreAcercamiento;
AcercamientoModel.Descripcion = Descripcion;
AcercamientoModel.Importe = Importe;
AcercamientoModel.Comision = Comision;
AcercamientoModel.Prioridad = Prioridad;
AcercamientoModel.CveUsuarioIng = UsuarioActual.CveUsuario;
AcercamientoModel.CveEncuestaAplicadaProceso = CveEncuestaAplicadaProceso;
AcercamientoModel.FechaApertura = FechaApertura;
AcercamientoModel.FechaCierre = FechaCierre != null ? (DateTime)FechaCierre : ModExtensiones.MinFecha;
AcercamientoModel.CvePS = DdlPS.SelectedValue.ToEntero();
AcercamientoModel.CveRechazoMotivo = CveRechazoMotivo;
AcercaminetoModel.CveMedico = DdlMedico.SelectedValue.ToEntero();
AcercaminetoModel.CveProcedimiento = DdlProcedimiento.SelectedValue.ToEntero();
AcercaminetoModel.CveTipoVenta = DdlTipoVenta.SelectedValue.ToEntero();
AcercamientoModel.CveMedico = DdlMedico.SelectedValue.ToEntero();
AcercamientoModel.CveProcedimiento = DdlProcedimiento.SelectedValue.ToEntero();
AcercamientoModel.CveTipoVenta = DdlTipoVenta.SelectedValue.ToEntero();
if (cRMService.AcercamientoUpdate(AcercaminetoModel))
if (cRMService.AcercamientoUpdate(AcercamientoModel))
{
CveEtapaActual = CveEtapaProcesoActualActualizar;
HdfEtapaSeleccionada.Value = CveEtapaProcesoActualActualizar.ToString();
@@ -1114,7 +1114,7 @@ public partial class CRM_Acercamiento : ClsPaginas
String TituloCierre = DTEtapasProceso.FiltroPrimeroValor("EtapaProceso", "CveTipoEtapa = 4");
AcercaminetoModel acercamiento = new AcercaminetoModel();
AcercamientoModel acercamiento = new AcercamientoModel();
acercamiento.CveAcercamiento = CveAcercamiento;
acercamiento.CveEtapaProcesoActual = CveEtapaCierre;
acercamiento.CveRechazoMotivo = CveRechazoMotivo;

2
CRM/EmpresaCRM.aspx.cs
View File

@@ -1821,7 +1821,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
if (tempDT.Rows.Count > 0)
{
var AcercamientoModel = new AcercaminetoModel()
var AcercamientoModel = new AcercamientoModel()
{
CveEmpresaCRM = CveEmpresaCRM,
CveContactoPrincipal = CveContactoPrincipal,

113
Compras/Compras.aspx.vb
View File

@@ -10422,14 +10422,60 @@ Partial Class Compras_Compras
DdlTipoTransaccionCaja.Items.Insert(0, New ListItem("Seleccione Tipo Movimiento", "-1"))
End Sub
Private Sub DdlTipoTransaccion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoTransaccion.SelectedIndexChanged
CargaCuentas()
UpContado.Update()
End Sub
Private Sub DdlTipoTransaccionCaja_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoTransaccionCaja.SelectedIndexChanged
CargaCuentas()
UpContado.Update()
End Sub
Private Sub CargaCuentas()
Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
'cuando es layout
If DdlTipoTransaccion.SelectedValue.ToEntero = 9 Then
dt = dt.FiltraParametros("UsaLayout = 1")
End If
If DdlTipoTransaccion.SelectedValue.ToEntero = 17 Then
dt = dt.FiltraParametros("UsaLayoutGrupos = 1")
End If
DdlCuenta.SelectedValue = Nothing
DdlCuenta.Items.Clear()
DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveTipoCuenta <> 1"))
DdlCuenta.ClearSelection()
DdlCuenta.DataSource = dt.FiltraParametros(String.Format("CveTipoCuenta <> 1"))
DdlCuenta.DataBind()
DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1"))
Dim dtCaja As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
If DdlTipoTransaccionCaja.SelectedValue.ToEntero = 9 Then
dtCaja = dtCaja.FiltraParametros("UsaLayout = 1")
End If
If DdlTipoTransaccionCaja.SelectedValue.ToEntero = 17 Then
dtCaja = dtCaja.FiltraParametros("UsaLayoutGrupos = 1")
End If
DdlCuentaCaja.SelectedValue = Nothing
DdlCuentaCaja.Items.Clear()
DdlCuentaCaja.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveTipoCuenta = 1"))
DdlCuentaCaja.ClearSelection()
DdlCuentaCaja.Items.Clear()
DdlCuentaCaja.DataSource = dtCaja.FiltraParametros(String.Format("CveTipoCuenta = 1"))
DdlCuentaCaja.DataBind()
DdlCuentaCaja.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub
@@ -14240,7 +14286,7 @@ Partial Class Compras_Compras
If DrTipoGasto IsNot Nothing Then
CveTipoGasto = DrTipoGasto("CveTipoGasto").ToString.ToEntero
TipoGasto = DrTipoGasto("TipoGasto").ToString
End If
End IfclsVa
End If
AddPS(Cantidad, CveUM, UM, CveClasificacion, Clasificacion, CvePS, PS, CveTipoPS, CveSubProyectoContrato, SubProyecto, Proyecto, CveProyecto, Obs, PU, Total, IVA, RetIVA, RetISR, IEPSPS, IEPSPSIVA, Descuento, CveOrdenCompraDetalle, False,
@@ -18804,11 +18850,11 @@ Partial Class Compras_Compras
If CvePrePoliza > 0 Then
If CveMoneda = 2 Then
ImporteME = (DiferenciaInvOC / TCInvOC).RoundAD()
ImporteMEComp = ((ImporteME * TCInvOC) - ImporteME).RoundAD()
If CveMoneda = 2 Then
ImporteME = (DiferenciaInvOC / TCInvOC).RoundAD()
ImporteMEComp = ((ImporteME * TCInvOC) - ImporteME).RoundAD()
Dim DifImporte As Decimal = DiferenciaInvOC - (ImporteME + ImporteMEComp)
Dim DifImporte As Decimal = DiferenciaInvOC - (ImporteME + ImporteMEComp)
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoCosto, DiferenciaInvOCCosto, DiferenciaInvOCCosto, 177, SerieFolio, ConceptoPartida, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, CveOCDetalle:=CveOCDetalle, CveSubProyecto:=CveSubProyecto) Then
Retorno = False
@@ -18816,12 +18862,8 @@ Partial Class Compras_Compras
End If
If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteME, ImporteME, 228, SerieFolio, ConceptoPartida, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteME:=ImporteME, TipoCambio:=TCInvOC, CveOCDetalle:=CveOCDetalle) Then
If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMEComp, ImporteMEComp, 229, SerieFolio, ConceptoPartida, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteME:=ImporteME, TipoCambio:=TCInvOC, CveOCDetalle:=CveOCDetalle) Then
If DifImporte <> 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoCosto, DifImporte, DifImporte, 69, SerieFolio, ConceptoPartida, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteME:=DifImporte, TipoCambio:=TCInvOC, CveOCDetalle:=CveOCDetalle, CveClasificacion:=CveClasificacionCostoOC, CveSubProyecto:=CveSubProyecto) Then
Retorno = False
Exit For
End If
Else
If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMEComp, ImporteMEComp, 229, SerieFolio, ConceptoPartida, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteME:=ImporteME, TipoCambio:=TCInvOC, CveOCDetalle:=CveOCDetalle) Then
If DifImporte <> 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoCosto, DifImporte, DifImporte, 69, SerieFolio, ConceptoPartida, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteME:=DifImporte, TipoCambio:=TCInvOC, CveOCDetalle:=CveOCDetalle, CveClasificacion:=CveClasificacionCostoOC, CveSubProyecto:=CveSubProyecto) Then
Retorno = False
Exit For
End If
@@ -18830,6 +18872,10 @@ Partial Class Compras_Compras
Exit For
End If
Else
Retorno = False
Exit For
End If
Else
'2018.11.24 se cambia concepto 177, de cargo a abono negativo., petición MALL
If ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoCosto, DiferenciaInvOCCosto, DiferenciaInvOCCosto, 177, SerieFolio, ConceptoPartida, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, CveOCDetalle:=CveOCDetalle, CveSubProyecto:=CveSubProyecto, CveClasificacion:=CveClasificacionCostoOC) Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaInvOC, DiferenciaInvOC, 176, SerieFolio, ConceptoPartida, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, CveOCDetalle:=CveOCDetalle, CveColectiva:=CveColectiva) Then
@@ -18837,22 +18883,22 @@ Partial Class Compras_Compras
Exit For
End If
Else
Retorno = False
Exit For
End If
End If
If Not OC.UpdateOrdenCompraDetalleAjuste(CveOrdenCompra, CveOCDetalle, PUCompra, UsuarioActual.CveUsuario) Then
Retorno = False
Exit For
End If
End If
If Not OC.UpdateOrdenCompraDetalleAjuste(CveOrdenCompra, CveOCDetalle, PUCompra, UsuarioActual.CveUsuario) Then
Retorno = False
Exit For
End If
If Retorno Then
If Not OCBitacora.AddEventoBitacora(String.Format("Se registró una póliza de ajuste por cambio de precio en producto: {0}", PS), "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveOC:=CveOrdenCompra) Then
Retorno = False
End If
If Retorno Then
If Not OCBitacora.AddEventoBitacora(String.Format("Se registró una póliza de ajuste por cambio de precio en producto: {0}", PS), "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveOC:=CveOrdenCompra) Then
Retorno = False
End If
End If
End If
End If
Next
If Retorno AndAlso Not ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then
Alert("No se procesaron las diferencias en precio.", TipoMensaje.MsgAdvertencia)
@@ -20061,29 +20107,6 @@ Partial Class Compras_Compras
DdlRefacturacionFacturas.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub
Protected Sub BtnRecolecciónAplicar_Click(sender As Object, e As EventArgs)
Using ObjAcum As New ClsGenerales
If ObjAcum.GetEntregaAlmacenRutaDetalle(DdlRecoleccion.SelectedValue.ToEntero) Then
'Dim dtt As DataTable = ObjAcum.DtResultados.FiltraParametros("CantidadDisponible > 0")
'Dim Porcentaje As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal
'Dim tCveSub As Integer = TmpDT.MAX("CveSubProyecto").ToEntero
'Dim tCveTipoGasto As Integer = TmpDT.MAX("CveTipoGasto").ToEntero
'Dim Total As Decimal = TmpDT.SUMD("Total")
'For Each drr As DataRow In TmpDT.Rows
' ClavesBorradas.Add(drr("CveCompraDetalle").ToString)
'Next
TmpDT.Clear()
'For Each dr As DataRow In dtt.Rows
' Dim pu As Decimal = Total / dtt.SUMD("CantidadDisponible")
' Dim cantidad As Decimal = dr("CantidadDisponible").ToString.ToDecimal
' AddPS(cantidad, dr("CveUM").ToString.ToEntero, "", dr("CveClasificacion").ToString.ToEntero, "", dr("CvePS").ToString.ToEntero, dr("PS").ToString, 2, tCveSub.ToString, "SE", "SE", "", "", pu, Total, Porcentaje, 0, 0, 0, 0, 0, PorcentajeIVA:=Porcentaje, TCalculaTotales:=True, CveTipoGasto:=tCveTipoGasto)
'Next
'AddPS2()
End If
End Using
End Sub
End Class

12
Compras/PopUpVerFactura.aspx.vb
View File

@@ -3390,14 +3390,12 @@ Partial Class PopUpVerFactura
If CveCliente = 819998 Then
RutaFormato = "{0}Formatos\TrasladoAngeles.rdlc"
If Consola <> "-1" And Consola.Trim.Length > 0 Then
RutaFormato = "{0}Formatos\Consola.rdlc"
params.Add(New ReportParameter("Consola", Consola))
End If
End If
If Consola <> "-1" And Consola.Trim.Length > 0 Then
RutaFormato = "{0}Formatos\Consola.rdlc"
params.Add(New ReportParameter("Consola", Consola))
End If
@@ -3426,6 +3424,8 @@ Partial Class PopUpVerFactura
End If
ObjVentas.Dispose()

115
Empresas/186/Formatos/Factura.mrt
View File

@@ -85,7 +85,7 @@
<Relations isList="true" count="0" />
<Report isRef="0" />
<Resources isList="true" count="0" />
<Variables isList="true" count="91">
<Variables isList="true" count="93">
<value>ReportParameters,ClienteCodigo,ClienteCodigo,ReportParameter1,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_,_x0035_4a879e0a10d464ba2f01e0372efb9ca</value>
<value>ReportParameters,ClienteTelefono,ClienteTelefono,ReportParameter1,System.String,,False,False,True,False,,_x0036_22a3a61b2f247a6ab5d7dc6c66568db</value>
<value>ReportParameters,ClienteContacto,ClienteContacto,ReportParameter1,System.String,,False,False,True,False,,_x0035_c52eccfce4d4681a1c62017e690c7c1</value>
@@ -177,6 +177,8 @@
<value>ReportParameters,Procedimiento,Procedimiento,,System.String,,False,False,False,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_DateTimeType_x003E_DateAndTime_x003C__x002F_DateTimeType_x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_CheckedColumn_x003E_null_x003B__x003C__x002F_CheckedColumn_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_,_x0033_83e3da2e960473d89a38fac783c32ff</value>
<value>ReportParameters,Documentacion,Documentacion,,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_,_x0033_12f72ea65ee44119514073452da3478</value>
<value>ReportParameters,FechaCirugia,FechaCirugia,,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_DateTimeType_x003E_DateAndTime_x003C__x002F_DateTimeType_x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_,_x0039_11bc963c59b4b6cb4b0ce36a86c40e1</value>
<value>ReportParameters,Paciente,Paciente,ReportParameter1,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_DateTimeType_x003E_DateAndTime_x003C__x002F_DateTimeType_x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_CheckedColumn_x003E_null_x003B__x003C__x002F_CheckedColumn_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_</value>
<value>ReportParameters,Episodio,Episodio,ReportParameter1,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_DateTimeType_x003E_DateAndTime_x003C__x002F_DateTimeType_x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_CheckedColumn_x003E_null_x003B__x003C__x002F_CheckedColumn_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_</value>
</Variables>
</Dictionary>
<EngineVersion>EngineV2</EngineVersion>
@@ -394,7 +396,7 @@ Tipo de Cambio: {TipoCambio}</Text>
<Textbox32 Ref="13" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>4.8,0,8.88,1.55</ClientRectangle>
<ClientRectangle>4.8,0,8.88,2.35</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,8,Regular,Point,False,0</Font>
@@ -405,9 +407,9 @@ Tipo de Cambio: {TipoCambio}</Text>
<Text>SMS SMART MEDICAL SOLUTIONS
SSM1908213A0
NEBRASKA 157, Col. NAPOLES
BENITO JUAREZ
C.P. 03810
CIUDAD DE MEXICO</Text>
BENITO JUAREZ, C.P. 03810
CIUDAD DE MEXICO
Teléfono: +52 551 563 3271 Correo:support@smsmedicalsolutions.com</Text>
<TextBrush>[0:0:0]</TextBrush>
<TextOptions>,,,,WordWrap=True,A=0</TextOptions>
<Type>Expression</Type>
@@ -429,14 +431,9 @@ CIUDAD DE MEXICO</Text>
Cliente: {ClienteCodigo} - {ClienteNombre}.&lt;br&gt;
Sucursal: {ClienteSucursal}. &amp;nbsp; RFC: {ClienteRFC}.&lt;br&gt;
Calle:{ClienteCalle} {ClienteNoExt}. Colonia: {ClienteColonia}.&amp;nbsp; Ciudad: {ClienteCiudad}.&lt;br&gt;
Estado: {ClienteEstado}.&lt;br&gt; Municipio y/o Delegación: {ClienteMunicipio}.&amp;nbsp; CP: {ClienteCP}.&lt;br&gt;
Regimen Fiscal Receptor: {ClienteRegimenFiscal}.&lt;br&gt;
&lt;b&gt;
{IIF(Medico != "", "Médico:" + Medico + ".&lt;br&gt;" , "")}
{IIF(Medico != "", "Procedimiento:" + Procedimiento + ".&lt;br&gt;", "")}
{IIF(Medico != "", "Fecha Cirugia:" + FechaCirugia + ".&lt;br&gt;", "")}
{IIF(Documentacion != "", "Proveedor:" + Documentacion + ".", "")}
&lt;b/&gt;</Text>
Estado: {ClienteEstado}.&lt;br&gt; Municipio y/o Delegación: {ClienteMunicipio}.&amp;nbsp; CP: {ClienteCP}.&lt;br&gt;Regimen Fiscal Receptor: {ClienteRegimenFiscal}.&lt;br&gt;
{IIF(Documentacion != "", "Proveedor:" + Documentacion + ".", "")}&lt;br&gt;
{IIF(Medico != "", "Médico:" + Medico + "." , "")}&lt;br&gt;{IIF(Medico != "", "Procedimiento:" + Procedimiento + ".", "")}</Text>
<TextBrush>Black</TextBrush>
<TextOptions>,,,,WordWrap=True,A=0</TextOptions>
<TextQuality>Wysiwyg</TextQuality>
@@ -452,7 +449,7 @@ Regimen Fiscal Receptor: {ClienteRegimenFiscal}.&lt;br&gt;
<PageFooterBand1 Ref="15" type="PageFooterBand" isKey="true">
<Brush>Transparent</Brush>
<CanShrink>True</CanShrink>
<ClientRectangle>0,20.88,21.1,12</ClientRectangle>
<ClientRectangle>0,26.36,21.1,12</ClientRectangle>
<Components isList="true" count="5">
<Panel5 Ref="16" type="Panel" isKey="true">
<Brush>Transparent</Brush>
@@ -1108,8 +1105,8 @@ Sello digital del SAT:
</DataBand3>
<FooterBand1 Ref="62" type="FooterBand" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>0,9.12,21.1,5.8</ClientRectangle>
<Components isList="true" count="8">
<ClientRectangle>0,9.12,21.1,7</ClientRectangle>
<Components isList="true" count="9">
<Panel3 Ref="63" type="Panel" isKey="true">
<Border>Bottom;Transparent;5;Solid;False;4;Black;True</Border>
<Brush>Transparent</Brush>
@@ -1365,30 +1362,12 @@ Sello digital del SAT:
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
</Text4>
<Textbox26 Ref="81" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>0,2.28,21.05,0.88</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,6.5,Bold,Point,False,0</Font>
<HorAlignment>Center</HorAlignment>
<Margins>2,2,2,2</Margins>
<Name>Textbox26</Name>
<Page isRef="7" />
<Parent isRef="62" />
<PrintOn>OnlyLastPage</PrintOn>
<Text>"REVISAR SU FACTURA Y SUS PRODUCTOS AL MOMENTO DE RECIBIRLAS,YA QUE NO SE REALIZARAN CAMBIOS EN FACTURA NI SE ACEPTARAN DEVOLUCIONES DE MERCANCIA
DESPUES DE 72 HORAS POSTERIORES A LA FECHA DE ELABORACIÓN"</Text>
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
</Textbox26>
<Panel7 Ref="82" type="Panel" isKey="true">
<Panel7 Ref="81" type="Panel" isKey="true">
<Border>Top, Bottom;[156:195:229];5;Solid;False;4;[227:108:9]</Border>
<Brush>Transparent</Brush>
<ClientRectangle>0.2,3.48,20.6,2.2</ClientRectangle>
<ClientRectangle>0.2,4.68,20.6,2.2</ClientRectangle>
<Components isList="true" count="6">
<Text11 Ref="83" type="Text" isKey="true">
<Text11 Ref="82" type="Text" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>0.2,0.8,7,0.4</ClientRectangle>
<Conditions isList="true" count="0" />
@@ -1397,12 +1376,12 @@ DESPUES DE 72 HORAS POSTERIORES A LA FECHA DE ELABORACIÓN"</Text>
<Margins>0,0,0,0</Margins>
<Name>Text11</Name>
<Page isRef="7" />
<Parent isRef="82" />
<Parent isRef="81" />
<Text>Tipo Operacion:{CETipoOperacion}</Text>
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
</Text11>
<Text12 Ref="84" type="Text" isKey="true">
<Text12 Ref="83" type="Text" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>0.2,1.2,7,0.4</ClientRectangle>
<Conditions isList="true" count="0" />
@@ -1411,12 +1390,12 @@ DESPUES DE 72 HORAS POSTERIORES A LA FECHA DE ELABORACIÓN"</Text>
<Margins>0,0,0,0</Margins>
<Name>Text12</Name>
<Page isRef="7" />
<Parent isRef="82" />
<Parent isRef="81" />
<Text>Incoterm:{CEIncoterm}</Text>
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
</Text12>
<Text14 Ref="85" type="Text" isKey="true">
<Text14 Ref="84" type="Text" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>7.2,0.8,6.6,0.4</ClientRectangle>
<Conditions isList="true" count="0" />
@@ -1425,12 +1404,12 @@ DESPUES DE 72 HORAS POSTERIORES A LA FECHA DE ELABORACIÓN"</Text>
<Margins>0,0,0,0</Margins>
<Name>Text14</Name>
<Page isRef="7" />
<Parent isRef="82" />
<Parent isRef="81" />
<Text>Clave Pedimento:{CEClavePedimento}</Text>
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
</Text14>
<Text15 Ref="86" type="Text" isKey="true">
<Text15 Ref="85" type="Text" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>7.2,1.2,6.6,0.4</ClientRectangle>
<Conditions isList="true" count="0" />
@@ -1439,12 +1418,12 @@ DESPUES DE 72 HORAS POSTERIORES A LA FECHA DE ELABORACIÓN"</Text>
<Margins>0,0,0,0</Margins>
<Name>Text15</Name>
<Page isRef="7" />
<Parent isRef="82" />
<Parent isRef="81" />
<Text>Num Reg IdTrib:{CEId}</Text>
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
</Text15>
<Text16 Ref="87" type="Text" isKey="true">
<Text16 Ref="86" type="Text" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>5.2,0.2,10,0.4</ClientRectangle>
<Conditions isList="true" count="0" />
@@ -1454,12 +1433,12 @@ DESPUES DE 72 HORAS POSTERIORES A LA FECHA DE ELABORACIÓN"</Text>
<Margins>0,0,0,0</Margins>
<Name>Text16</Name>
<Page isRef="7" />
<Parent isRef="82" />
<Parent isRef="81" />
<Text>COMERCIO EXTERIOR</Text>
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
</Text16>
<Text17 Ref="88" type="Text" isKey="true">
<Text17 Ref="87" type="Text" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>13.8,0.8,6.6,0.4</ClientRectangle>
<Conditions isList="true" count="0" />
@@ -1468,7 +1447,7 @@ DESPUES DE 72 HORAS POSTERIORES A LA FECHA DE ELABORACIÓN"</Text>
<Margins>0,0,0,0</Margins>
<Name>Text17</Name>
<Page isRef="7" />
<Parent isRef="82" />
<Parent isRef="81" />
<Text>Tipo Cambio:{Format("${0:N4} MXN", CETipoCambio)}</Text>
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
@@ -1483,7 +1462,7 @@ DESPUES DE 72 HORAS POSTERIORES A LA FECHA DE ELABORACIÓN"</Text>
<Page isRef="7" />
<Parent isRef="62" />
</Panel7>
<Text7 Ref="89" type="Text" isKey="true">
<Text7 Ref="88" type="Text" isKey="true">
<Brush>[156:195:229]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>15.8,1.28,5.29,0.14</ClientRectangle>
@@ -1497,6 +1476,40 @@ DESPUES DE 72 HORAS POSTERIORES A LA FECHA DE ELABORACIÓN"</Text>
<PrintOn>OnlyLastPage</PrintOn>
<TextBrush>Black</TextBrush>
</Text7>
<Text9 Ref="89" type="Text" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>0,2.68,14.6,0.8</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,9,Regular,Point,False,0</Font>
<Guid>179a957f89d04921b856805a4c2e9d49</Guid>
<Margins>0,0,0,0</Margins>
<Name>Text9</Name>
<Page isRef="7" />
<Parent isRef="62" />
<Text>Paciente: {Paciente}
Episodio: {Episodio}</Text>
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
</Text9>
<Textbox26 Ref="90" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>0,3.68,20.85,0.88</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,6.5,Bold,Point,False,0</Font>
<HorAlignment>Center</HorAlignment>
<Margins>2,2,2,2</Margins>
<Name>Textbox26</Name>
<Page isRef="7" />
<Parent isRef="62" />
<PrintOn>OnlyLastPage</PrintOn>
<Text>"REVISAR SU FACTURA Y SUS PRODUCTOS AL MOMENTO DE RECIBIRLAS,YA QUE NO SE REALIZARAN CAMBIOS EN FACTURA NI SE ACEPTARAN DEVOLUCIONES DE MERCANCIA
DESPUES DE 72 HORAS POSTERIORES A LA FECHA DE ELABORACIÓN"</Text>
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
</Textbox26>
</Components>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
@@ -1529,8 +1542,8 @@ DESPUES DE 72 HORAS POSTERIORES A LA FECHA DE ELABORACIÓN"</Text>
<ReportAlias>Factura</ReportAlias>
<ReportChanged>1/18/2024 9:39:09 AM</ReportChanged>
<ReportCreated>7/11/2022 2:49:19 PM</ReportCreated>
<ReportFile>C:\inetpub\wwwSIGGIT\Empresas\186\Formatos\Factura.mrt</ReportFile>
<ReportGuid>728378886519409195a7506a0b6d6331</ReportGuid>
<ReportFile>Factura.mrt</ReportFile>
<ReportGuid>4a902ea660c34d0baeae36e92ea35edd</ReportGuid>
<ReportName>Factura</ReportName>
<ReportUnit>Centimeters</ReportUnit>
<ReportVersion>2022.4.5.0</ReportVersion>

200
Empresas/186/Formatos/Pedido.mrt
View File

@@ -54,7 +54,7 @@
<Relations isList="true" count="0" />
<Report isRef="0" />
<Resources isList="true" count="0" />
<Variables isList="true" count="82">
<Variables isList="true" count="84">
<value>ReportParameters,ClienteCodigo,ClienteCodigo,ReportParameter1,System.String,_x0030_2,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_,_x0035_4a879e0a10d464ba2f01e0372efb9ca</value>
<value>ReportParameters,ClienteTelefono,ClienteTelefono,ReportParameter1,System.String,,False,False,True,False,,_x0036_22a3a61b2f247a6ab5d7dc6c66568db</value>
<value>ReportParameters,ClienteContacto,ClienteContacto,ReportParameter1,System.String,,False,False,True,False,,_x0035_c52eccfce4d4681a1c62017e690c7c1</value>
@@ -133,10 +133,12 @@
<value>ReportParameters,TipoRelacionTexto,TipoRelacionTexto,ReportParameter1,System.String,,False,False,True,False,,_x0034_17b8382f8e448a5b21018e50590835b</value>
<value>ReportParameters,FolioFiscalRelacionado,FolioFiscalRelacionado,ReportParameter1,System.String,,False,False,True,False,,_x0037_0c2d36e39d1464d821ac353ccaa2dcd</value>
<value>ReportParameters,ClienteDireccion,ClienteDireccion,ReportParameter1,System.String,,False,False,True,False,,f18e5fd820754666994a9d3f995d50a7</value>
<value>ReportParameters,Documentacion,Documentacion,ReportParameter1,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_DateTimeType_x003E_DateAndTime_x003C__x002F_DateTimeType_x003E__x003C__x002F_StiSerializer_x003E_</value>
<value>ReportParameters,Medico,Medico,ReportParameter1,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_DateTimeType_x003E_DateAndTime_x003C__x002F_DateTimeType_x003E__x003C_CheckedColumn_x003E_null_x003B__x003C__x002F_CheckedColumn_x003E__x003C__x002F_StiSerializer_x003E_</value>
<value>ReportParameters,Procedimiento,Procedimiento,ReportParameter1,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_DateTimeType_x003E_DateAndTime_x003C__x002F_DateTimeType_x003E__x003C_CheckedColumn_x003E_null_x003B__x003C__x002F_CheckedColumn_x003E__x003C__x002F_StiSerializer_x003E_</value>
<value>ReportParameters,FechaCirugia,FechaCirugia,ReportParameter1,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_DateTimeType_x003E_DateAndTime_x003C__x002F_DateTimeType_x003E__x003C_CheckedColumn_x003E_null_x003B__x003C__x002F_CheckedColumn_x003E__x003C__x002F_StiSerializer_x003E_</value>
<value>ReportParameters,Documentacion,Documentacion,ReportParameter1,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_DateTimeType_x003E_DateAndTime_x003C__x002F_DateTimeType_x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_</value>
<value>ReportParameters,Medico,Medico,ReportParameter1,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_DateTimeType_x003E_DateAndTime_x003C__x002F_DateTimeType_x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_CheckedColumn_x003E_null_x003B__x003C__x002F_CheckedColumn_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_</value>
<value>ReportParameters,Procedimiento,Procedimiento,ReportParameter1,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_DateTimeType_x003E_DateAndTime_x003C__x002F_DateTimeType_x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_CheckedColumn_x003E_null_x003B__x003C__x002F_CheckedColumn_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_</value>
<value>ReportParameters,FechaCirugia,FechaCirugia,ReportParameter1,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_DateTimeType_x003E_DateAndTime_x003C__x002F_DateTimeType_x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_CheckedColumn_x003E_null_x003B__x003C__x002F_CheckedColumn_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_</value>
<value>ReportParameters,Paciente,Paciente,ReportParameter1,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_DateTimeType_x003E_DateAndTime_x003C__x002F_DateTimeType_x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_CheckedColumn_x003E_null_x003B__x003C__x002F_CheckedColumn_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_</value>
<value>ReportParameters,Episodio,Episodio,ReportParameter1,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_DateTimeType_x003E_DateAndTime_x003C__x002F_DateTimeType_x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_CheckedColumn_x003E_null_x003B__x003C__x002F_CheckedColumn_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_</value>
</Variables>
</Dictionary>
<EngineVersion>EngineV2</EngineVersion>
@@ -392,7 +394,7 @@ Vendedor: {VendedorNombre}</Text>
<Name>Text8</Name>
<Page isRef="5" />
<Parent isRef="7" />
<Text>PEDIDO</Text>
<Text>PRE-REMISION</Text>
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
</Text8>
@@ -518,7 +520,7 @@ Fecha Cirugia: {FechaCirugia}</Text>
<HeaderBand1 Ref="21" type="HeaderBand" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>0,0.4,21,0.5</ClientRectangle>
<Components isList="true" count="8">
<Components isList="true" count="7">
<Textbox23 Ref="22" type="Text" isKey="true">
<Brush>[156:195:229]</Brush>
<CanGrow>True</CanGrow>
@@ -549,25 +551,10 @@ Fecha Cirugia: {FechaCirugia}</Text>
<Text>UNIDAD</Text>
<TextBrush>[255:255:255]</TextBrush>
</Textbox17>
<Textbox29 Ref="24" type="Text" isKey="true">
<Textbox18 Ref="24" type="Text" isKey="true">
<Brush>[156:195:229]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>3.09,0.03,1.97,0.5</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Microsoft Sans Serif,9,Bold,Point,False,0</Font>
<HorAlignment>Center</HorAlignment>
<Margins>2,2,2,2</Margins>
<Name>Textbox29</Name>
<Page isRef="5" />
<Parent isRef="21" />
<Text>CLAVE SAT</Text>
<TextBrush>[255:255:255]</TextBrush>
</Textbox29>
<Textbox18 Ref="25" type="Text" isKey="true">
<Brush>[156:195:229]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>5.06,0.03,9.08,0.5</ClientRectangle>
<ClientRectangle>3.06,0.03,11.08,0.5</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Microsoft Sans Serif,9.5,Bold,Point,False,0</Font>
@@ -579,7 +566,7 @@ Fecha Cirugia: {FechaCirugia}</Text>
<Text>DESCRIPCIÓN </Text>
<TextBrush>[255:255:255]</TextBrush>
</Textbox18>
<Textbox8 Ref="26" type="Text" isKey="true">
<Textbox8 Ref="25" type="Text" isKey="true">
<Brush>[156:195:229]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>15.6,0.03,1.5,0.5</ClientRectangle>
@@ -594,7 +581,7 @@ Fecha Cirugia: {FechaCirugia}</Text>
<Text>DESC.</Text>
<TextBrush>[255:255:255]</TextBrush>
</Textbox8>
<Textbox2 Ref="27" type="Text" isKey="true">
<Textbox2 Ref="26" type="Text" isKey="true">
<Brush>[156:195:229]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>17.1,0.03,1.57,0.5</ClientRectangle>
@@ -609,7 +596,7 @@ Fecha Cirugia: {FechaCirugia}</Text>
<Text> IVA</Text>
<TextBrush>[255:255:255]</TextBrush>
</Textbox2>
<Textbox6 Ref="28" type="Text" isKey="true">
<Textbox6 Ref="27" type="Text" isKey="true">
<Brush>[156:195:229]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>18.62,0.03,2.51,0.5</ClientRectangle>
@@ -624,7 +611,7 @@ Fecha Cirugia: {FechaCirugia}</Text>
<Text>TOTAL</Text>
<TextBrush>[255:255:255]</TextBrush>
</Textbox6>
<Text1 Ref="29" type="Text" isKey="true">
<Text1 Ref="28" type="Text" isKey="true">
<Brush>[156:195:229]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>14,0.03,1.7,0.5</ClientRectangle>
@@ -647,13 +634,13 @@ Fecha Cirugia: {FechaCirugia}</Text>
<Page isRef="5" />
<Parent isRef="20" />
</HeaderBand1>
<DataBand3 Ref="30" type="DataBand" isKey="true">
<DataBand3 Ref="29" type="DataBand" isKey="true">
<Brush>Transparent</Brush>
<BusinessObjectGuid isNull="true" />
<CanShrink>True</CanShrink>
<ClientRectangle>0,1.7,21,0.42</ClientRectangle>
<Components isList="true" count="8">
<Cantidad1 Ref="31" type="Text" isKey="true">
<Components isList="true" count="7">
<Cantidad1 Ref="30" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>0,0,1.4,0.37</ClientRectangle>
@@ -665,14 +652,14 @@ Fecha Cirugia: {FechaCirugia}</Text>
<Margins>2,2,2,2</Margins>
<Name>Cantidad1</Name>
<Page isRef="5" />
<Parent isRef="30" />
<Parent isRef="29" />
<Text>{DtDetalle.Cantidad}</Text>
<TextBrush>Black</TextBrush>
<TextFormat Ref="32" type="CustomFormat" isKey="true">
<TextFormat Ref="31" type="CustomFormat" isKey="true">
<StringFormat>n2</StringFormat>
</TextFormat>
</Cantidad1>
<UM Ref="33" type="Text" isKey="true">
<UM Ref="32" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>1.4,0,1.69,0.37</ClientRectangle>
@@ -683,30 +670,15 @@ Fecha Cirugia: {FechaCirugia}</Text>
<Margins>2,2,2,2</Margins>
<Name>UM</Name>
<Page isRef="5" />
<Parent isRef="30" />
<Text>{DtDetalle.UMCalculada}</Text>
<Parent isRef="29" />
<Text>{DtDetalle.UM}</Text>
<TextBrush>Black</TextBrush>
<Type>DataColumn</Type>
</UM>
<SATClaveProdServ Ref="34" type="Text" isKey="true">
<PS Ref="33" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>3.09,0,1.97,0.37</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,7.5,Regular,Point,False,0</Font>
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>SATClaveProdServ</Name>
<Page isRef="5" />
<Parent isRef="30" />
<Text>{DtDetalle.SATClaveProdServ}</Text>
<TextBrush>Black</TextBrush>
</SATClaveProdServ>
<PS Ref="35" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>5.06,0,8.88,0.37</ClientRectangle>
<ClientRectangle>3.06,0,10.88,0.37</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,7.5,Regular,Point,False,0</Font>
@@ -714,12 +686,12 @@ Fecha Cirugia: {FechaCirugia}</Text>
<Margins>2,2,2,2</Margins>
<Name>PS</Name>
<Page isRef="5" />
<Parent isRef="30" />
<Parent isRef="29" />
<Text>{DtDetalle.PSCalculado}</Text>
<TextBrush>Black</TextBrush>
<Type>DataColumn</Type>
</PS>
<PU Ref="36" type="Text" isKey="true">
<PU Ref="34" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>13.94,0,1.86,0.37</ClientRectangle>
@@ -731,14 +703,14 @@ Fecha Cirugia: {FechaCirugia}</Text>
<Margins>2,2,2,2</Margins>
<Name>PU</Name>
<Page isRef="5" />
<Parent isRef="30" />
<Parent isRef="29" />
<Text>{DtDetalle.PU}</Text>
<TextBrush>Black</TextBrush>
<TextFormat Ref="37" type="CustomFormat" isKey="true">
<TextFormat Ref="35" type="CustomFormat" isKey="true">
<StringFormat>#,0.00;-#,0.00;'-'</StringFormat>
</TextFormat>
</PU>
<Descuento2 Ref="38" type="Text" isKey="true">
<Descuento2 Ref="36" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>15.8,0,1.3,0.37</ClientRectangle>
@@ -750,14 +722,14 @@ Fecha Cirugia: {FechaCirugia}</Text>
<Margins>2,2,2,2</Margins>
<Name>Descuento2</Name>
<Page isRef="5" />
<Parent isRef="30" />
<Parent isRef="29" />
<Text>{DtDetalle.Descuento}</Text>
<TextBrush>Black</TextBrush>
<TextFormat Ref="39" type="CustomFormat" isKey="true">
<TextFormat Ref="37" type="CustomFormat" isKey="true">
<StringFormat>#,0.00;-#,0.00;'-'</StringFormat>
</TextFormat>
</Descuento2>
<ImporteIVA Ref="40" type="Text" isKey="true">
<ImporteIVA Ref="38" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>17.1,0,1.57,0.37</ClientRectangle>
@@ -769,14 +741,14 @@ Fecha Cirugia: {FechaCirugia}</Text>
<Margins>2,2,2,2</Margins>
<Name>ImporteIVA</Name>
<Page isRef="5" />
<Parent isRef="30" />
<Parent isRef="29" />
<Text>{DtDetalle.ImporteIVA}</Text>
<TextBrush>Black</TextBrush>
<TextFormat Ref="41" type="CustomFormat" isKey="true">
<TextFormat Ref="39" type="CustomFormat" isKey="true">
<StringFormat>#,0.00;-#,0.00;'-'</StringFormat>
</TextFormat>
</ImporteIVA>
<TiempoEntrega Ref="42" type="Text" isKey="true">
<TiempoEntrega Ref="40" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>18.87,0,2.22,0.42</ClientRectangle>
@@ -788,10 +760,10 @@ Fecha Cirugia: {FechaCirugia}</Text>
<Margins>2,2,2,2</Margins>
<Name>TiempoEntrega</Name>
<Page isRef="5" />
<Parent isRef="30" />
<Parent isRef="29" />
<Text>{DtDetalle.Total}</Text>
<TextBrush>Black</TextBrush>
<TextFormat Ref="43" type="CustomFormat" isKey="true">
<TextFormat Ref="41" type="CustomFormat" isKey="true">
<StringFormat>#,0.00</StringFormat>
</TextFormat>
<Type>DataColumn</Type>
@@ -806,24 +778,24 @@ Fecha Cirugia: {FechaCirugia}</Text>
<Parent isRef="20" />
<Sort isList="true" count="0" />
</DataBand3>
<FooterBand1 Ref="44" type="FooterBand" isKey="true">
<FooterBand1 Ref="42" type="FooterBand" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>0,2.92,21,2.2</ClientRectangle>
<Components isList="true" count="5">
<Panel3 Ref="45" type="Panel" isKey="true">
<ClientRectangle>0,2.92,21,3.4</ClientRectangle>
<Components isList="true" count="6">
<Panel3 Ref="43" type="Panel" isKey="true">
<Border>Bottom;Transparent;5;Solid;False;4;Black;True</Border>
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<CanShrink>True</CanShrink>
<ClientRectangle>15.8,0.38,5.2,0.65</ClientRectangle>
<Components isList="true" count="1">
<DataBand1 Ref="46" type="DataBand" isKey="true">
<DataBand1 Ref="44" type="DataBand" isKey="true">
<Border>None;[247:150:70];1;Solid;False;8;[247:150:70]</Border>
<Brush>Transparent</Brush>
<BusinessObjectGuid isNull="true" />
<ClientRectangle>0,0.4,5.2,0.4</ClientRectangle>
<Components isList="true" count="3">
<Text2 Ref="47" type="Text" isKey="true">
<Text2 Ref="45" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>0,0,1.48,0.37</ClientRectangle>
@@ -834,13 +806,13 @@ Fecha Cirugia: {FechaCirugia}</Text>
<Margins>2,2,2,2</Margins>
<Name>Text2</Name>
<Page isRef="5" />
<Parent isRef="46" />
<Parent isRef="44" />
<Text>{DtTotales.ImpuestoLocal}</Text>
<TextBrush>Black</TextBrush>
<Type>DataColumn</Type>
<VertAlignment>Bottom</VertAlignment>
</Text2>
<Text22 Ref="48" type="Text" isKey="true">
<Text22 Ref="46" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>1.4,0,3.88,0.37</ClientRectangle>
@@ -851,10 +823,10 @@ Fecha Cirugia: {FechaCirugia}</Text>
<Margins>2,2,2,2</Margins>
<Name>Text22</Name>
<Page isRef="5" />
<Parent isRef="46" />
<Parent isRef="44" />
<Text>{DtTotales.Importe}</Text>
<TextBrush>Black</TextBrush>
<TextFormat Ref="49" type="NumberFormat" isKey="true">
<TextFormat Ref="47" type="NumberFormat" isKey="true">
<DecimalDigits>2</DecimalDigits>
<GroupSeparator>,</GroupSeparator>
<NegativePattern>1</NegativePattern>
@@ -863,7 +835,7 @@ Fecha Cirugia: {FechaCirugia}</Text>
<Type>DataColumn</Type>
<VertAlignment>Bottom</VertAlignment>
</Text22>
<Text3 Ref="50" type="Text" isKey="true">
<Text3 Ref="48" type="Text" isKey="true">
<Brush>[156:195:229]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>0.2,0.3,5.09,0.14</ClientRectangle>
@@ -873,7 +845,7 @@ Fecha Cirugia: {FechaCirugia}</Text>
<Margins>2,2,2,2</Margins>
<Name>Text3</Name>
<Page isRef="5" />
<Parent isRef="46" />
<Parent isRef="44" />
<PrintOn>OnlyLastPage</PrintOn>
<TextBrush>Black</TextBrush>
</Text3>
@@ -885,7 +857,7 @@ Fecha Cirugia: {FechaCirugia}</Text>
<Filters isList="true" count="0" />
<Name>DataBand1</Name>
<Page isRef="5" />
<Parent isRef="45" />
<Parent isRef="43" />
<Sort isList="true" count="0" />
</DataBand1>
</Components>
@@ -894,9 +866,9 @@ Fecha Cirugia: {FechaCirugia}</Text>
<GrowToHeight>True</GrowToHeight>
<Name>Panel3</Name>
<Page isRef="5" />
<Parent isRef="44" />
<Parent isRef="42" />
</Panel3>
<Text21 Ref="51" type="Text" isKey="true">
<Text21 Ref="49" type="Text" isKey="true">
<Brush>[156:195:229]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>0,0.08,21.09,0.14</ClientRectangle>
@@ -906,11 +878,11 @@ Fecha Cirugia: {FechaCirugia}</Text>
<Margins>2,2,2,2</Margins>
<Name>Text21</Name>
<Page isRef="5" />
<Parent isRef="44" />
<Parent isRef="42" />
<PrintOn>OnlyLastPage</PrintOn>
<TextBrush>Black</TextBrush>
</Text21>
<Text6 Ref="52" type="Text" isKey="true">
<Text6 Ref="50" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanBreak>True</CanBreak>
<CanGrow>True</CanGrow>
@@ -923,22 +895,22 @@ Fecha Cirugia: {FechaCirugia}</Text>
<Margins>2,2,2,2</Margins>
<Name>Text6</Name>
<Page isRef="5" />
<Parent isRef="44" />
<Parent isRef="42" />
<PrintOn>OnlyLastPage</PrintOn>
<Text>{ImporteLetra}</Text>
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
</Text6>
<Panel2 Ref="53" type="Panel" isKey="true">
<Panel2 Ref="51" type="Panel" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>0,0.28,5.2,1</ClientRectangle>
<Components isList="true" count="2">
<HeaderBand2 Ref="54" type="HeaderBand" isKey="true">
<HeaderBand2 Ref="52" type="HeaderBand" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>0,0.4,5.2,0.6</ClientRectangle>
<Components isList="true" count="3">
<Textbox25 Ref="55" type="Text" isKey="true">
<Textbox25 Ref="53" type="Text" isKey="true">
<Brush>[156:195:229]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>0,0,2,0.5</ClientRectangle>
@@ -949,11 +921,11 @@ Fecha Cirugia: {FechaCirugia}</Text>
<Margins>2,2,2,2</Margins>
<Name>Textbox25</Name>
<Page isRef="5" />
<Parent isRef="54" />
<Parent isRef="52" />
<Text>IMPUESTO</Text>
<TextBrush>[255:255:255]</TextBrush>
</Textbox25>
<Textbox19 Ref="56" type="Text" isKey="true">
<Textbox19 Ref="54" type="Text" isKey="true">
<Brush>[156:195:229]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>2,0,1.47,0.5</ClientRectangle>
@@ -964,11 +936,11 @@ Fecha Cirugia: {FechaCirugia}</Text>
<Margins>2,2,2,2</Margins>
<Name>Textbox19</Name>
<Page isRef="5" />
<Parent isRef="54" />
<Parent isRef="52" />
<Text>TASA</Text>
<TextBrush>[255:255:255]</TextBrush>
</Textbox19>
<Textbox33 Ref="57" type="Text" isKey="true">
<Textbox33 Ref="55" type="Text" isKey="true">
<Brush>[156:195:229]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>3.47,0,1.63,0.5</ClientRectangle>
@@ -979,7 +951,7 @@ Fecha Cirugia: {FechaCirugia}</Text>
<Margins>2,2,2,2</Margins>
<Name>Textbox33</Name>
<Page isRef="5" />
<Parent isRef="54" />
<Parent isRef="52" />
<Text>IMPORTE</Text>
<TextBrush>[255:255:255]</TextBrush>
</Textbox33>
@@ -988,14 +960,14 @@ Fecha Cirugia: {FechaCirugia}</Text>
<Expressions isList="true" count="0" />
<Name>HeaderBand2</Name>
<Page isRef="5" />
<Parent isRef="53" />
<Parent isRef="51" />
</HeaderBand2>
<DataBand8 Ref="58" type="DataBand" isKey="true">
<DataBand8 Ref="56" type="DataBand" isKey="true">
<Brush>Transparent</Brush>
<BusinessObjectGuid isNull="true" />
<ClientRectangle>0,1.8,5.2,0</ClientRectangle>
<Components isList="true" count="3">
<Cantidad2 Ref="59" type="Text" isKey="true">
<Cantidad2 Ref="57" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>0,0,2,0.37</ClientRectangle>
@@ -1007,11 +979,11 @@ Fecha Cirugia: {FechaCirugia}</Text>
<Margins>2,2,2,2</Margins>
<Name>Cantidad2</Name>
<Page isRef="5" />
<Parent isRef="58" />
<Parent isRef="56" />
<Text>{DtImpuestos.Impuesto}</Text>
<TextBrush>Black</TextBrush>
</Cantidad2>
<UM2 Ref="60" type="Text" isKey="true">
<UM2 Ref="58" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>2,0,1.48,0.37</ClientRectangle>
@@ -1023,11 +995,11 @@ Fecha Cirugia: {FechaCirugia}</Text>
<Margins>2,2,2,2</Margins>
<Name>UM2</Name>
<Page isRef="5" />
<Parent isRef="58" />
<Parent isRef="56" />
<Text>{DtImpuestos.tasa}</Text>
<TextBrush>Black</TextBrush>
</UM2>
<Codigo2 Ref="61" type="Text" isKey="true">
<Codigo2 Ref="59" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>3.48,0,1.62,0.37</ClientRectangle>
@@ -1039,10 +1011,10 @@ Fecha Cirugia: {FechaCirugia}</Text>
<Margins>2,2,2,2</Margins>
<Name>Codigo2</Name>
<Page isRef="5" />
<Parent isRef="58" />
<Parent isRef="56" />
<Text>{DtImpuestos.Importe}</Text>
<TextBrush>Black</TextBrush>
<TextFormat Ref="62" type="CustomFormat" isKey="true">
<TextFormat Ref="60" type="CustomFormat" isKey="true">
<StringFormat>#,0.00</StringFormat>
</TextFormat>
</Codigo2>
@@ -1053,7 +1025,7 @@ Fecha Cirugia: {FechaCirugia}</Text>
<Filters isList="true" count="0" />
<Name>DataBand8</Name>
<Page isRef="5" />
<Parent isRef="53" />
<Parent isRef="51" />
<PrintOn>OnlyLastPage</PrintOn>
<Sort isList="true" count="0" />
</DataBand8>
@@ -1062,10 +1034,10 @@ Fecha Cirugia: {FechaCirugia}</Text>
<Expressions isList="true" count="0" />
<Name>Panel2</Name>
<Page isRef="5" />
<Parent isRef="44" />
<Parent isRef="42" />
<PrintOn>OnlyLastPage</PrintOn>
</Panel2>
<Text4 Ref="63" type="Text" isKey="true">
<Text4 Ref="61" type="Text" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>5.2,0.28,10.6,1</ClientRectangle>
<Conditions isList="true" count="0" />
@@ -1074,11 +1046,27 @@ Fecha Cirugia: {FechaCirugia}</Text>
<Margins>0,0,0,0</Margins>
<Name>Text4</Name>
<Page isRef="5" />
<Parent isRef="44" />
<Parent isRef="42" />
<Text>{Observaciones}</Text>
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
</Text4>
<Text13 Ref="62" type="Text" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>0,2.48,13.2,0.8</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,9,Regular,Point,False,0</Font>
<Guid>1891a87e013d48868bd75b5710529e30</Guid>
<Margins>0,0,0,0</Margins>
<Name>Text13</Name>
<Page isRef="5" />
<Parent isRef="42" />
<Text>Paciente: {Paciente}
Episodio: {Episodio}</Text>
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
</Text13>
</Components>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
@@ -1127,7 +1115,7 @@ Fecha Cirugia: {FechaCirugia}</Text>
<ReportChanged>10/11/2022 8:18:55 PM</ReportChanged>
<ReportCreated>7/11/2022 2:49:19 PM</ReportCreated>
<ReportFile>Pedido.mrt</ReportFile>
<ReportGuid>cb0c4a26c29e4eaea6e5fdce45abd03e</ReportGuid>
<ReportGuid>0cc1edf03db74e0d9e9a189fff847c85</ReportGuid>
<ReportName>Report</ReportName>
<ReportUnit>Centimeters</ReportUnit>
<ReportVersion>2022.4.5.0</ReportVersion>

28
Empresas/186/Formatos/Remision.mrt
View File

@@ -54,7 +54,7 @@
<Relations isList="true" count="0" />
<Report isRef="0" />
<Resources isList="true" count="0" />
<Variables isList="true" count="79">
<Variables isList="true" count="81">
<value>ReportParameters,ClienteCodigo,ClienteCodigo,ReportParameter1,System.String,_x0030_2,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_,_x0035_4a879e0a10d464ba2f01e0372efb9ca</value>
<value>ReportParameters,ClienteTelefono,ClienteTelefono,ReportParameter1,System.String,,False,False,True,False,,_x0036_22a3a61b2f247a6ab5d7dc6c66568db</value>
<value>ReportParameters,ClienteContacto,ClienteContacto,ReportParameter1,System.String,,False,False,True,False,,_x0035_c52eccfce4d4681a1c62017e690c7c1</value>
@@ -134,6 +134,8 @@
<value>ReportParameters,FolioFiscalRelacionado,FolioFiscalRelacionado,ReportParameter1,System.String,,False,False,True,False,,_x0037_0c2d36e39d1464d821ac353ccaa2dcd</value>
<value>ReportParameters,ClienteDireccion,ClienteDireccion,ReportParameter1,System.String,,False,False,True,False,,f18e5fd820754666994a9d3f995d50a7</value>
<value>ReportParameters,Documentacion,Documentacion,ReportParameter1,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_DateTimeType_x003E_DateAndTime_x003C__x002F_DateTimeType_x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_</value>
<value>ReportParameters,Paciente,Paciente,ReportParameter1,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_DateTimeType_x003E_DateAndTime_x003C__x002F_DateTimeType_x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_CheckedColumn_x003E_null_x003B__x003C__x002F_CheckedColumn_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_</value>
<value>ReportParameters,Episodio,Episodio,ReportParameter1,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_DateTimeType_x003E_DateAndTime_x003C__x002F_DateTimeType_x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_CheckedColumn_x003E_null_x003B__x003C__x002F_CheckedColumn_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_</value>
</Variables>
</Dictionary>
<EngineVersion>EngineV2</EngineVersion>
@@ -802,8 +804,8 @@ Vendedor: {VendedorNombre}</Text>
</DataBand3>
<FooterBand1 Ref="44" type="FooterBand" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>0,2.92,21,2.2</ClientRectangle>
<Components isList="true" count="5">
<ClientRectangle>0,2.92,21,4.6</ClientRectangle>
<Components isList="true" count="6">
<Panel3 Ref="45" type="Panel" isKey="true">
<Border>Bottom;Transparent;5;Solid;False;4;Black;True</Border>
<Brush>Transparent</Brush>
@@ -1073,6 +1075,22 @@ Vendedor: {VendedorNombre}</Text>
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
</Text4>
<Text13 Ref="64" type="Text" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>0,2.48,10.6,1</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,9,Regular,Point,False,0</Font>
<Guid>fca703f575e74a9f8bc6628424c9a960</Guid>
<Margins>0,0,0,0</Margins>
<Name>Text13</Name>
<Page isRef="5" />
<Parent isRef="44" />
<Text>Paciente: {Paciente}
Episodio: {Episodio}</Text>
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
</Text13>
</Components>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
@@ -1120,8 +1138,8 @@ Vendedor: {VendedorNombre}</Text>
<ReportAlias>Report</ReportAlias>
<ReportChanged>10/11/2022 8:18:55 PM</ReportChanged>
<ReportCreated>7/11/2022 2:49:19 PM</ReportCreated>
<ReportFile>C:\inetpub\WWWSigGit\Empresas\186\Formatos\Remision.mrt</ReportFile>
<ReportGuid>a4badd41106c4719ac060f1e52338936</ReportGuid>
<ReportFile>Remision.mrt</ReportFile>
<ReportGuid>49b2dec77fe542ea952b501bf54fafb1</ReportGuid>
<ReportName>Report</ReportName>
<ReportUnit>Centimeters</ReportUnit>
<ReportVersion>2022.4.5.0</ReportVersion>

43
General/SaldosIniciales.aspx.vb
View File

@@ -1633,12 +1633,13 @@ Partial Class General_SaldosIniciales
Dim CveClasificacion As Integer = drr("CveClasificacion").ToString().ToEntero()
If Not CvePS > 0 Then Alert(String.Format("No se encontró el Producto Servicio"), TipoMensaje.MsgError) : ErrorVentas = True
' If Not CveSucursal > 0 Then Alert("No se encontró la sucursal.", TipoMensaje.MsgError) : ErrorVentas = True
If Not CveUnidadMedida > 0 Then Alert(String.Format("No se encontró la Unidad de Medida."), TipoMensaje.MsgError) : ErrorVentas = True
Dim dtsubp As DataTable = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
Dim CountRow As Integer = 1
For Each Row As DataRow In dt.FiltraParametros("RFC <> ''").Rows
Dim Sucursal As String = dtsubp.FiltroPrimeroValor("CveSubProyecto", $"SubProyecto = '{Row("Sucursal").ToString()}'")
Dim TipoDocto As String = Row("Tipo Documento").ToString().Trim
@@ -1684,7 +1685,36 @@ Partial Class General_SaldosIniciales
Dim IVADetalle As Decimal = 0
If RblFormato.SelectedValue = "17" Then
Dim CodigoDetalle As String = Row("Codigo").ToString
If CodigoDetalle.Trim.Length > 0 Then
Dim DrDetalles As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"Codigo = {CodigoDetalle}")
If DrDetalles IsNot Nothing Then
CvePS = DrDetalles("CvePS").ToString().ToEntero()
CveUnidadMedida = DrDetalles("CveUnidadMedida").ToString().ToEntero()
CveClasificacion = DrDetalles("CveClasificacion").ToString().ToEntero()
Else
Alert($"El código del producto no se encontro, error en registro {CountRow}")
ErrorVentas = True
End If
Else
Alert($"El código es requerido, error en registro {CountRow}")
ErrorVentas = True
End If
IEPSDetalle = Row("IEPS").ToString.ToDecimal
CantidadDetalle = Row("Cantidad").ToString.ToDecimal
PUDetalle = Row("PU").ToString.ToDecimal
IVADetalle = Row("IVA").ToString.ToDecimal
If CantidadDetalle = 0 Then
Alert($"No se especifico la cantidad, error en registro {CountRow}")
ErrorVentas = True
End If
End If
If dt.Columns.Contains("Cliente Sucursal") AndAlso Row("Cliente Sucursal").ToString() <> "" Then
@@ -1759,11 +1789,19 @@ Partial Class General_SaldosIniciales
If RblFormato.SelectedValue = "17" Then
If Not ObjVentas.AddVentaDetalle(CveVenta, CvePS, CantidadDetalle, CveUnidadMedida, PUDetalle * CantidadDetalle, IVADetalle, (PUDetalle * CantidadDetalle) + IVADetalle - IEPSDetalle, "Saldo Inicial", 0, 0, Sucursal.ToEntero(), 0,
Dim TotalDetalles As Decimal = SubTotal
If PUDetalle > 0 Then
TotalDetalles = (CantidadDetalle * PUDetalle) + IVA - RetIVA - RetISR + IEPSDetalle
End If
If Not ObjVentas.AddVentaDetalle(CveVenta, CvePS, CantidadDetalle, CveUnidadMedida, PUDetalle * CantidadDetalle, IVADetalle, TotalDetalles, "Saldo Inicial", 0, 0, Sucursal.ToEntero(), 0,
PorcentajeIVA:=PorcentajeIVA, PorcentajeRetIVA:=PorcentajeRetIVA, ImporteRetIVA:=RetIVA, IEPS:=IEPSDetalle) Then
ErrorVentas = True
Exit For
End If
Else
If Not ObjVentas.AddVentaDetalle(CveVenta, CvePS, 1, CveUnidadMedida, SubTotal, IVA, SubTotal * PorcentajeIVA, "Saldo Inicial", 0, 0, Sucursal.ToEntero(), 0, PorcentajeIVA:=PorcentajeIVA, PorcentajeRetIVA:=PorcentajeRetIVA, ImporteRetIVA:=RetIVA, IEPS:=0) Then
ErrorVentas = True
@@ -1839,6 +1877,7 @@ Partial Class General_SaldosIniciales
Exit For
End If
CountRow = CountRow + 1
Next
If Not ErrorVentas Then
Alert(String.Format("Se agregaron: <b>{0}</b> Ventas correctamente. <b>{1} no encontrados</b><br/>{2} ", Encontrados, NoEncontrados, StrRFCNoencontrados), TipoMensaje.MsgInformacion)

12
Inventarios/EntregaAlmacen.aspx
View File

@@ -134,6 +134,9 @@
<td>
<asp:Label Text="" ID="LbCliente" runat="server" />
</td>
<td style="text-align:right">
</td>
</tr>
<tr>
<td>Folio:</td>
@@ -141,18 +144,23 @@
<asp:HyperLink ID="HLFolio" Target="_blank" runat="server" />
<%--<asp:Label Text="" ID="LbFolio" runat="server" />--%>
</td>
<td>
<asp:LinkButton ID="BtnArchivoAdjunto" runat="server" Visible="false" Text="" Font-Size="14px" />
</td>
</tr>
<tr id="trObsGral" runat="server" visible="false">
<td>Observaciones Grales:</td>
<td>
<asp:Label Text="" ID="LbObservaciones" runat="server" />
</td>
<td></td>
</tr>
<tr id="trObsAlmacen" runat="server" visible="false">
<td>Observaciones Almacén:</td>
<td>
<asp:Label Text="" ID="LbObservacionesAlmacen" runat="server" />
</td>
<td></td>
</tr>
<tr id="trDireccionEnvio" runat="server" visible="false">
<td>Dirección Envío:</td>
@@ -160,12 +168,16 @@
<asp:Label Text="" ID="LblDirEnvio" runat="server" />
<asp:LinkButton ID="LnkEditarDir" runat="server" OnClick="LnkEditarDir_Click" AlternateText="Editar Dirección" ToolTip="Editar Dirección" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
</td>
<td></td>
</tr>
</table>
</div>
</div>
</div>
</ContentTemplate>
<Triggers>
<asp:PostBackTrigger ControlID="BtnArchivoAdjunto" />
</Triggers>
</asp:UpdatePanel>
</div>

76
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -350,6 +350,21 @@ Partial Class Inventarios_EntregaAlmacen
Private Property Adjunto As String
Get
If ViewState("Adjunto") Is Nothing Then
ViewState("Adjunto") = ""
End If
Return ViewState("Adjunto").ToString()
End Get
Set(value As String)
ViewState("Adjunto") = value
End Set
End Property
#End Region
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -617,7 +632,11 @@ Partial Class Inventarios_EntregaAlmacen
CveVentaAD = -2
CargaVentaPorSurtir(DdlFolio.SelectedValue.ToEntero())
End Sub
Private Sub CargaVentaPorSurtir(CveVenta As Integer, Optional CveAlmacen As Integer = -1, Optional CveOS As Integer = -1)
Private Sub CargaVentaPorSurtir(CveVenta As Integer, Optional CveAlmacen As Integer = -1, Optional CveOS As Integer = -1)
Adjunto = ""
BtnArchivoAdjunto.Visible = False
LbSurtida.Visible = False
CveContrato = -1
CveSubProyecto = -1
@@ -701,8 +720,26 @@ Partial Class Inventarios_EntregaAlmacen
'ClienteEntregaPersonal(CveCliente)
CveSubProyecto = drE("CveSubProyecto").ToString().ToEntero()
EsInterno = CBool(DtDatos.Rows(0)("EsInterno").ToString())
CveDireccionEnvio = drE("CveDireccionEnvio").ToString.ToEntero
CveDireccionEnvio = drE("CveDireccionEnvio").ToString.ToEntero
Adjunto = drE("Adjunto").ToString()
If Adjunto.Trim.Length > 0 Then
Dim ruta As String = HttpContext.Current.Request.ApplicationPath
ruta = String.Format("{0}Ventas", UsuarioActual.Empresa.Ruta)
ruta += $"/{Adjunto}"
If File.Exists(ruta) Then
BtnArchivoAdjunto.Visible = True
BtnArchivoAdjunto.Text = $"Adjunto: {Adjunto}"
End If
End If
If CveDireccionEnvio > 0 Then
trDireccionEnvio.Visible = True
'carga la dirección de envío
@@ -870,6 +907,8 @@ Partial Class Inventarios_EntregaAlmacen
If CveAlmacen <= 0 Then CargaGvDatos()
UpVenta.Update()
End Sub
Private Sub CargaTraspasoPorSurtir(CveTraspaso As Integer)
LbSurtida.Visible = False
@@ -4540,5 +4579,36 @@ Partial Class Inventarios_EntregaAlmacen
End Function
Protected Sub BtnArchivoAdjunto_Click(sender As Object, e As System.EventArgs) Handles BtnArchivoAdjunto.Click
Dim ruta As String = HttpContext.Current.Request.ApplicationPath
ruta = String.Format("{0}Ventas", UsuarioActual.Empresa.Ruta)
ruta += $"/{Adjunto}"
Dim Archivo As New System.IO.FileInfo(ruta)
Try
If Archivo IsNot Nothing Then
If Archivo.Exists Then
HttpContext.Current.Response.Clear()
HttpContext.Current.Response.ClearContent()
HttpContext.Current.Response.ContentType = "application/octet-stream"
HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name))
HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
HttpContext.Current.Response.TransmitFile(ruta)
Response.Flush() ' send it to the client to download
HttpContext.Current.Response.SuppressContent = True
HttpContext.Current.ApplicationInstance.CompleteRequest()
Response.End()
Else
Alert("El archivo no existe", TipoMensaje.MsgAdvertencia)
End If
End If
Catch ex As Exception
End Try
End Sub
End Class

25
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -500,7 +500,7 @@ Partial Class Inventarios_TraspasoAlmacen
' DdlProducto.Visible = False
'End If
CargaPS()
FiltraPS()
'Folio
SiguienteFolio(If(ChkTransitorio.Checked, 9, 8))
@@ -508,6 +508,17 @@ Partial Class Inventarios_TraspasoAlmacen
'DdlProducto.DataBind()
CargarCamiones()
End Sub
Private Sub FiltraPS()
If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso DdlAlmacenOrigen.SelectedValue.ToEntero() > 0 Then
Dim DtAlmacen = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenOrigen.SelectedValue.ToEntero())
If DtAlmacen IsNot Nothing Then
Dim CveSubProyecto As Integer = DtAlmacen.FiltroPrimeroValor("CveSubProyecto").ToEntero()
CargaPS(CveSubProyecto)
End If
Else
CargaPS(-1)
End If
End Sub
Private Sub CargaAlmacenOrigen()
DdlAlmacenOrigen.Enabled = True
DdlAlmacenOrigen.Items.Clear()
@@ -517,7 +528,7 @@ Partial Class Inventarios_TraspasoAlmacen
DdlAlmacenOrigen.DataBind()
DdlAlmacenOrigen.SelectedValueExist(UsuarioActual.CveAlmacen)
End Sub
Private Sub CargaPS()
Private Sub CargaPS(CveSubProyecto As Integer)
Dim EsWS As Boolean = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
DdlProducto2.setEsWebService(EsWS)
@@ -526,8 +537,8 @@ Partial Class Inventarios_TraspasoAlmacen
'DdlProducto2.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue)
If UsuarioActual.Empresa.Funcionalidad(141) = "1" Then
DdlProducto2.ddlWS.Attributes.Add("data-pagina", "inv/traspaso")
DdlProducto2.ddlWS.Attributes.Add("data-cvesubproyecto", CveSubProyecto.ToString())
DdlProducto2.ddlWS.Attributes.Add("Data-onresult", "CargaExistenciaAlmacenes")
CargaExistenciasSucursal()
DdlAlmacenOrigen.AutoPostBack = True
End If
Else
@@ -538,8 +549,8 @@ Partial Class Inventarios_TraspasoAlmacen
End Sub
Private Sub CargaExistenciasSucursal()
DdlProducto2.Attributes.Remove("Data-cvesubproyecto")
DdlProducto2.Attributes.Add("Data-cvesubproyecto", GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}"))
DdlProducto2.Attributes.Clear()
FiltraPS()
End Sub
Private Sub SiguienteFolio(CveConcepto As Integer)
'Dim Inv As New ClsInventarios
@@ -2991,8 +3002,8 @@ Partial Class Inventarios_TraspasoAlmacen
ProductosNoCargados.AppendFormat("{0},", RowPS("PSCodigo").ToString())
End If
Else
RowsNoCargados = RowsNoCargados + 1
Else
RowsNoCargados = RowsNoCargados + 1
ProductosNoCargados.AppendFormat("{0},", RowExcel("Producto").ToString())
End If
End If

259
Transportes/Boletos.aspx
View File

@@ -13,7 +13,7 @@
}
.mx-1 {
margin: 0 2rem;
margin: 0 5px 0 5px;
}
.disponible {
@@ -88,157 +88,164 @@
<asp:UpdatePanel runat="server" UpdateMode="Conditional" ID="UpPanel">
<ContentTemplate>
<div class="row">
<%-- Boleto --%>
<div class="col-md-9">
<%-- Datos del Cliente --%>
<div class="row">
<div class="col-md-12">
<div class="portlet light xspadding bordered">
<div class="portlet-title">
<div class="row">
<div class="caption font-green col-md-8">
<i class="fa fa-users font-green"></i>
<span class="caption-subject bold uppercase">Datos del Pasajero
</span>
</div>
<div class="col-md-4">
<asp:UpdatePanel runat="server" ID="UpTimer" UpdateMode="Conditional">
<ContentTemplate>
<asp:Label ID="lblTiempo" runat="server" Text=""></asp:Label>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</div>
<div class="portlet-body form">
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconrigh">
<asp:TextBox ID="TxtNombre" CssClass="form-control" runat="server" MaxLength="200"
ClientIDMode="Static"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVTxtNombre" runat="server" ControlToValidate="TxtNombre"
CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre''</b> es necesario, por favor ingréselo."
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<label>Nombre:</label>
<div class="row">
<%-- Boleto --%>
<div class="col-md-9">
<%-- Datos del Cliente --%>
<div class="row">
<div class="col-md-12">
<div class="portlet light xspadding bordered">
<div class="portlet-title">
<div class="row">
<div class="caption font-green col-md-8">
<i class="fa fa-users font-green"></i>
<span class="caption-subject bold uppercase">Datos del Pasajero
</span>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtVisa" runat="server" Width="100%" CssClass="form-control"></asp:TextBox>
<label>Visa:</label>
<div class="col-md-4">
<asp:UpdatePanel runat="server" ID="UpTimer" UpdateMode="Conditional">
<ContentTemplate>
<asp:Label ID="lblTiempo" runat="server" Text=""></asp:Label>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</div>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="RblSexo" CssClass="form-control input-sm select2me" runat="server">
<asp:ListItem Text="Masculino" Value="1" Selected="True" />
<asp:ListItem Text="Femenino" Value="0" />
</asp:DropDownList>
<label>Sexo:</label>
<i></i>
<div class="portlet-body form">
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconrigh">
<asp:TextBox ID="TxtNombre" CssClass="form-control" runat="server" MaxLength="200"
ClientIDMode="Static"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVTxtNombre" runat="server" ControlToValidate="TxtNombre"
CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre''</b> es necesario, por favor ingréselo."
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<label>Nombre:</label>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtVisa" runat="server" Width="100%" CssClass="form-control"></asp:TextBox>
<label>Visa:</label>
</div>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtCelular" runat="server" Width="100%" CssClass="form-control"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator12" runat="server" CssClass="help-block errorimput"
ControlToValidate="TxtCelular" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Celular''</b> es necesario, por favor ingréselo."
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<label>Celular:</label>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="RblSexo" CssClass="form-control input-sm select2me" runat="server">
<asp:ListItem Text="Masculino" Value="1" Selected="True" />
<asp:ListItem Text="Femenino" Value="0" />
</asp:DropDownList>
<label>Sexo:</label>
<i></i>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtCelular" runat="server" Width="100%" CssClass="form-control"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator12" runat="server" CssClass="help-block errorimput"
ControlToValidate="TxtCelular" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Celular''</b> es necesario, por favor ingréselo."
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<label>Celular:</label>
</div>
</div>
</div>
</div>
<div class="form-group form-md-line-input input-iconright ">
<asp:TextBox ID="TxtObservaciones" CssClass="form-control" runat="server" MaxLength="200"
ClientIDMode="Static"></asp:TextBox>
<label>Observaciones:</label>
<i></i>
<div class="form-group form-md-line-input input-iconright ">
<asp:TextBox ID="TxtObservaciones" CssClass="form-control" runat="server" MaxLength="200"
ClientIDMode="Static"></asp:TextBox>
<label>Observaciones:</label>
<i></i>
</div>
</div>
</div>
</div>
</div>
</div>
<%-- Datos del Viaje y Destinos --%>
<div class="row">
<div class="col-md-12">
<div class="portlet light xspadding bordered ">
<div class="portlet-title">
<div class="caption font-yellow">
<i class=" fa fa-bus font-yellow"></i>
<span class="caption-subject bold uppercase">Datos del Viaje</span>
</div>
</div>
<div class="portlet-body form">
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtRuta" runat="server" Width="100%" Enabled="false" CssClass="form-control"></asp:TextBox>
<label for="<%= TxtRuta.ClientID.ToString()%>">Ruta:</label>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlPartida" DataTextField="Partida"
AutoPostBack="true"
DataValueField="CveDestinoOrigen" Class="form-control input-sm select2me" Width="200px"
runat="server" OnSelectedIndexChanged="DdlPartida_SelectedIndexChanged" >
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVPartida" runat="server" ControlToValidate="DdlPartida"
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>
<label for="<%= DdlPartida.ClientID.ToString()%>">Partida:</label>
</div>
<%-- Datos del Viaje y Destinos --%>
<div class="row">
<div class="col-md-12">
<div class="portlet light xspadding bordered ">
<div class="portlet-title">
<div class="caption font-yellow">
<i class=" fa fa-bus font-yellow"></i>
<span class="caption-subject bold uppercase">Datos del Viaje</span>
</div>
</div>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtFecha" runat="server" Width="100%" Enabled="false" CssClass="form-control"></asp:TextBox>
<label for="<%= TxtFecha.ClientID.ToString()%>">Fecha:</label>
<div class="portlet-body form">
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtRuta" runat="server" Width="100%" Enabled="false" CssClass="form-control"></asp:TextBox>
<label for="<%= TxtRuta.ClientID.ToString()%>">Ruta:</label>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlPartida" DataTextField="Partida"
AutoPostBack="true"
DataValueField="CveDestinoOrigen" Class="form-control input-sm select2me" Width="200px"
runat="server" OnSelectedIndexChanged="DdlPartida_SelectedIndexChanged">
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVPartida" runat="server" ControlToValidate="DdlPartida"
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>
<label for="<%= DdlPartida.ClientID.ToString()%>">Partida:</label>
</div>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlDestino" DataTextField="Destino"
AutoPostBack="true"
DataValueField="CveDestinoFinal" Class="form-control input-sm select2me"
Width="200px" runat="server">
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVDestino" runat="server" ControlToValidate="DdlDestino"
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>
<label for="<%= DdlDestino.ClientID.ToString()%>">Destino:</label>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtFecha" runat="server" Width="100%" Enabled="false" CssClass="form-control"></asp:TextBox>
<label for="<%= TxtFecha.ClientID.ToString()%>">Fecha:</label>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlDestino" DataTextField="Destino"
AutoPostBack="true"
DataValueField="CveDestinoFinal" Class="form-control input-sm select2me"
Width="200px" runat="server">
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVDestino" runat="server" ControlToValidate="DdlDestino"
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>
<label for="<%= DdlDestino.ClientID.ToString()%>">Destino:</label>
</div>
</div>
</div>
</div>
<div class="row">
<asp:Label runat="server" ID="LbCostos" CssClass="text-success bold mx-1" Visible="False"></asp:Label>
<div class="row">
<p class="col-md-6"></p>
<asp:Label runat="server" ID="LbCostos" CssClass="col-md-6 text-success bold my-1 text-right"
Visible="False"></asp:Label>
</div>
</div>
</div>
</div>
</div>
</div>
<%-- Botón para Agregar Pasajero(Oculto) --%>
<div class="form-group form-md-line-input input-iconright text-right">
<asp:Button ID="BtnAgregarPasajero" runat="server" CssClass="btn btn-success" Visible="false"
Text="Agregar Pasajeros" OnClick="AgregarPasajero" />
</div>
<%-- Botón para Agregar Pasajero(Oculto) --%>
<div class="form-group form-md-line-input input-iconright">
<asp:Label runat="server" ID="LbAviso" CssClass="col-md-9 alert alert-warning text-center mx-1"
Visible="False"><p><span class="bold uppercase">information: </span>Los boletos están siendo apartados hasta finalizar su compra</p></asp:Label>
<asp:Button ID="BtnAgregarPasajero" runat="server" CssClass="col-md-2 btn btn-success"
Visible="false"
Text="Agregar Pasajeros" OnClick="AgregarPasajero" ValidationGroup="GrpGuardar"/>
</div>
<%-- Listado de Boletos --%>
<div class="row">
<div class="col-md-12">
@@ -519,7 +526,7 @@
</table>
</div>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
@@ -527,14 +534,14 @@
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
<script type="text/javascript">
var tiempoTranscurrido = 0;
setInterval(actualizarTiempo, 1000);
setInterval(actualizarTiempo, 1000);
function actualizarTiempo() {
tiempoTranscurrido++;
var horas = Math.floor(tiempoTranscurrido / 3600);
var minutos = Math.floor((tiempoTranscurrido % 3600) / 60);
var segundos = tiempoTranscurrido % 60;
//(horas < 10 ? "0" : "") + horas + " : " +
var tiempoFormateado = (minutos < 10 ? "0" : "") + minutos + " : " + (segundos < 10 ? "0" : "") + segundos + " s";
var tiempoFormateado = (minutos < 10 ? "0" : "") + minutos + " : " + (segundos < 10 ? "0" : "") + segundos + " s";
document.getElementById('<%= lblTiempo.ClientID %>').innerText = tiempoFormateado;
}
</script>

21
Transportes/Boletos.aspx.vb
View File

@@ -438,7 +438,26 @@ Partial Class Boletos
Return Retorno
End If
If Not ObjFactura.AgregarPS(CvePSBoleto, 1, Importe, 0, Obs, CveSubProyecto:=CveSubProyecto, PorcentajeIVA:=0, CveViajePasajero:=Dr("CveViajePasajero").ToString().ToEntero()) Then
Dim PorcentajeIVA As Decimal = 0
Dim DrPS As DataRow = ClsPaginas.GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSBoleto).FiltroPrimero("") ' Estado = -1
If DrPS Is Nothing Then
Retorno.Mensajes.Add("No se pudo agregar el producto")
Return Retorno
End If
If DrPS("IVA").ToString().Contiene("-1", "") Then
PorcentajeIVA = ObjFactura.SubProyecto.IVA
Else
PorcentajeIVA = DrPS("IVA").ToString().ToDecimal()
End If
If PorcentajeIVA > 0 Then
Importe = (Importe / (1D + PorcentajeIVA)).RoundSQL(6)
End If
If Not ObjFactura.AgregarPS(CvePSBoleto, 1D, Importe, 0D, Obs, CveSubProyecto:=CveSubProyecto, PorcentajeIVA:=PorcentajeIVA, CveViajePasajero:=Dr("CveViajePasajero").ToString().ToEntero()) Then
Retorno.Mensajes.Add("No se pudo agregar el producto")
Return Retorno
End If

2
Transportes/CatRutas.aspx.vb
View File

@@ -232,7 +232,7 @@ Partial Class CatRutas
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim ObjDestino As New ClsTransportes
If ObjDestino.RemoveDestino(GvRow.DataKey("CveDestino").ToEntero) Then
If ObjDestino.RemoveDestino(GvRow.DataKey("CveDestino").ToEntero, UsuarioActual.CveEmpresa) Then
Alert("Destino eliminado correctamente")
CargaDatos()
End If

13
Transportes/RepContratos.aspx
View File

@@ -243,7 +243,7 @@
<div class="row my-1">
<label class="col-md-4">Cliente</label>
<div class="col-md-8">
<ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="86%" data-metodo="getcliente"
<ADS:Dropdownlost CssClassDdl="select2me form-control" ID="DdlClientes" Width="86%" data-metodo="getcliente"
runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 86%;"
UsaWebService="true" Enabled="false"></ADS:Dropdownlost>
<asp:LinkButton runat="server" CssClass="btn btn-primary fa-add" Width="12%"
@@ -254,7 +254,7 @@
<div class="row">
<label class="col-md-4">Servicio</label>
<div class="col-md-8">
<asp:TextBox ID="TxtDescripcion" runat="server" MaxLength="70" Width="100%"
<asp:TextBox ID="TxtDescripcion" runat="server" MaxLength="70" Width="100%" CssClass="select2me form-control"
TextMode="MultiLine"
Rows="2"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVDescripcion" runat="server" ControlToValidate="TxtDescripcion"
@@ -269,7 +269,8 @@
<div class="row my-1">
<label class="col-md-4">Observaciones</label>
<div class="col-md-8">
<asp:TextBox ID="TxtObservaciones" runat="server" MaxLength="70" Width="100%"
<asp:TextBox CssClass="select2me form-control" ID="TxtObservaciones" runat="server"
MaxLength="70" Width="100%"
TextMode="MultiLine"
Rows="2"></asp:TextBox>
</div>
@@ -278,7 +279,7 @@
<div class="row">
<label class="col-md-4">Lugar de Salida</label>
<div class="col-md-8">
<asp:TextBox ID="TxtUbicacion" runat="server" MaxLength="70" Width="100%"></asp:TextBox>
<asp:TextBox ID="TxtUbicacion" runat="server" MaxLength="70" Width="100%" CssClass="form-control"></asp:TextBox>
</div>
</div>
@@ -315,7 +316,7 @@
<div class="row my-1">
<label class="col-md-4">Cantidad de pasajeros</label>
<div class="col-md-8">
<asp:TextBox ID="TxtCantidadPasajeros" CssStyle="col-md-8 form-control" runat="server"
<asp:TextBox ID="TxtCantidadPasajeros" CssClass="select2me form-control" runat="server"
type="number"
Width="100%"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVCantidadPasajeros" runat="server" ControlToValidate="TxtCantidadPasajeros"
@@ -376,7 +377,7 @@
<div class="col-md-8">
<asp:DropDownList ID="DdlMoneda" AppendDataBoundItems="true" DataTextField="Moneda"
DataValueField="CveMoneda"
Class="table-group-action-input form-control input-inline select2me"
CssClass="table-group-action-input form-control input-inline select2me"
Width="100%" runat="server">
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVMoneda" runat="server" ControlToValidate="DdlMoneda"

2
Transportes/RepViajesCalendario.aspx.cs
View File

@@ -2,6 +2,6 @@
public partial class RepViajesCalendario : ClsPaginas {
protected void Page_Load(object sender, EventArgs e) {
Console.WriteLine(e);
}
}

25
Ventas/Ventas.aspx.vb
View File

@@ -3463,10 +3463,14 @@ Partial Class Ventas
LblRotacion.Text = FechaRotaAlinea.AddMonths(6).ToShortDateString
LblAlineacion.Text = FechaRotaAlinea.AddMonths(6).ToShortDateString
If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso Me.CveVenta > 0 AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then
If Me.CveVenta > 0 AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then
HplDownPDF.Visible = False
End If
DdlPS.Attributes.Remove("data-cvesubproyecto")
DdlPS.Attributes.Add("data-cvesubproyecto", DdlSubProyectoDatos.SelectedValue)
UpPS.Update()
UPObservaciones.Update()
End If
@@ -7893,10 +7897,10 @@ Partial Class Ventas
End If
Dim cvesubproyecto As String = DdlSubProyectoDatos.SelectedValue
If UsuarioActual.Empresa.Funcionalidad(558) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
'cuando es empresa llantera (558) o cuando es empresa acumuladores
cvesubproyecto = "-1"
End If
'If UsuarioActual.Empresa.Funcionalidad(558) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
' 'cuando es empresa llantera (558) o cuando es empresa acumuladores
' cvesubproyecto = "-1"
'End If
Objeto.Attributes.Add("data-cvesubproyecto", cvesubproyecto)
Objeto.ddlWS.Attributes.Add("data-cveclasificacion", CveClasificacion.ToString())
@@ -17431,6 +17435,11 @@ Partial Class Ventas
CargaVendedores()
HabilitarRemisionesPublicoGeneral()
If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
DdlPS.Attributes.Remove("data-cvesubproyecto")
DdlPS.Attributes.Add("data-cvesubproyecto", DdlSubProyectoDatos.SelectedValue)
End If
UpDetalle.Update()
UpEmitirTransitorio.Update()
End Sub
@@ -34706,9 +34715,6 @@ Partial Class Ventas
End If
Catch ex As Exception
End Try
End Sub
Protected Sub BtnEliminarAdjunto_Click(sender As Object, e As System.EventArgs) Handles BtnEliminarAdjunto.Click
@@ -36610,7 +36616,8 @@ Partial Class Ventas
If RBLTipoVenta.SelectedValue.Contiene("2") Then 'si es pago directo es factura
DdlTipoComprobante.SelectedValueExist("Ing")
'DdlTipoComprobante.SelectedValueExist("Ing")
DdlTipoComprobante.SelectedValueExist("Ped")
TrVentasMedicas1.Visible = True
TrVentasMedicas2.Visible = True