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

--

Browse Source
This commit is contained in:
AbrahamCastilloV
2024-02-21 10:28:54 -07:00
parent 65602085c6 d793403bd9
commit 3092ed3b6b
30 changed files with 1446 additions and 918 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
Acumuladores/RepRecolecciones.aspx
View File

@@ -180,6 +180,7 @@
<asp:Literal runat="server" ID="LblProductosCargados">P</asp:Literal> <asp:Literal runat="server" ID="LblProductosCargados">P</asp:Literal>
<asp:HiddenField ID="HdnPSRecoleccion" runat="server" /> <asp:HiddenField ID="HdnPSRecoleccion" runat="server" />
<asp:HiddenField ID="HdnCantidadRecoleccion" runat="server" /> <asp:HiddenField ID="HdnCantidadRecoleccion" runat="server" />
<asp:HiddenField ID="HdnCveEntregaAlmacen" runat="server" />
</div> </div>
</div> </div>
<hr /> <hr />

9
Acumuladores/RepRecolecciones.aspx.vb
View File

@@ -1,8 +1,5 @@
Imports System.Data Imports System.Data
Imports CrystalDecisions.Shared.Json
Imports Extensiones Imports Extensiones
Imports Modelos
Partial Class Acumuladores_RepRecolecciones Partial Class Acumuladores_RepRecolecciones
Inherits ClsPaginas Inherits ClsPaginas
@@ -73,7 +70,7 @@ Partial Class Acumuladores_RepRecolecciones
Private Sub CargaDatos() Private Sub CargaDatos()
Dim ObjGeneral As New ClsGenerales Dim ObjGeneral As New ClsGenerales
If (ObjGeneral.GetInvEntregaAlmacenRuta(-1, TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, 2, -1)) Then If ObjGeneral.GetInvEntregaAlmacenRuta(-1, TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, 2, -1) Then
GvR.DataSource = ObjGeneral.DtResultados GvR.DataSource = ObjGeneral.DtResultados
End If End If
ObjGeneral.Dispose() ObjGeneral.Dispose()
@@ -226,9 +223,9 @@ Partial Class Acumuladores_RepRecolecciones
Dim ErrorMovInv As Boolean = False Dim ErrorMovInv As Boolean = False
Dim Fecha As DateTime = NowADS() Dim Fecha As DateTime = NowADS()
Dim Concepto As String = "Traspaso Recolección" Dim Concepto As String = "Traspaso Recolección"
Dim CveMovimientoSalida As Integer = ObjInventario.AddMovimiento(DdlAlmacenOrigen.SelectedValue.ToEntero, 26, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1) Dim CveMovimientoSalida As Integer = ObjInventario.AddMovimiento(DdlAlmacenOrigen.SelectedValue.ToEntero, 26, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveEntregaAlmacen:=CveEntregaAlmacen)
Dim FolioSalida As Integer = ObjInventario.Folio Dim FolioSalida As Integer = ObjInventario.Folio
Dim CveMovimientoEntrada As Integer = ObjInventario.AddMovimiento(DdlAlmacenDestino.SelectedValue.ToEntero, 27, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveMovimientoRelacionado:=CveMovimientoSalida) Dim CveMovimientoEntrada As Integer = ObjInventario.AddMovimiento(DdlAlmacenDestino.SelectedValue.ToEntero, 27, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveMovimientoRelacionado:=CveMovimientoSalida, CveEntregaAlmacen:=CveEntregaAlmacen)
Dim CveUM As Integer = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=HdnPSRecoleccion.Value.ToEntero).FiltroPrimeroValor("CveUnidadMedida", "").ToEntero Dim CveUM As Integer = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=HdnPSRecoleccion.Value.ToEntero).FiltroPrimeroValor("CveUnidadMedida", "").ToEntero
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, HdnCantidadRecoleccion.Value.ToDecimal, CveUM, HdnPSRecoleccion.Value.ToEntero, 0) Then If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, HdnCantidadRecoleccion.Value.ToDecimal, CveUM, HdnPSRecoleccion.Value.ToEntero, 0) Then
ErrorMovInv = True ErrorMovInv = True

4
App_Code/ClsGenerales.vb
View File

@@ -4061,12 +4061,11 @@ Public Class ClsGenerales
End Function End Function
Public Function GetInvEntregaAlmacenRutaRep(CveSubProyecto As Integer, CveEmpresa As Integer, Estatus As Integer, FechaInicio As Date, FechaFin As Date, CveChofer As Integer, CveUsuario As Integer, Optional CveTimbre As Integer = -1) As Boolean Public Function GetInvEntregaAlmacenRutaRep(CveSubProyecto As Integer, CveEmpresa As Integer, Estatus As Integer, FechaInicio As Date, FechaFin As Date, CveChofer As Integer, CveUsuario As Integer, Optional CveTimbre As Integer = -1, Optional Tipo As String = "-1") As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Inv_EntregaAlmacenRutaRepGet2") DataAdapter("PA_Inv_EntregaAlmacenRutaRepGet2")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
@@ -4077,6 +4076,7 @@ Public Class ClsGenerales
.Add("@CveChofer", SqlDbType.Int).Value = CveChofer .Add("@CveChofer", SqlDbType.Int).Value = CveChofer
.Add("@CveTimbre", SqlDbType.Int).Value = CveTimbre .Add("@CveTimbre", SqlDbType.Int).Value = CveTimbre
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@Tipo", SqlDbType.VarChar).Value = Tipo
End With End With
Try Try

27
App_Code/ClsInventarios.vb
View File

@@ -989,9 +989,8 @@ Public Class ClsInventarios
CveVenta As Integer, CveSubProyecto As Integer, CveActivoFijo As Integer, Optional CveOS As Integer = -1, Optional CvePersonal As Integer = -1, Optional IDPoliza As Integer = -1, Optional CveUsuarioResponsable As Integer = -1, CveVenta As Integer, CveSubProyecto As Integer, CveActivoFijo As Integer, Optional CveOS As Integer = -1, Optional CvePersonal As Integer = -1, Optional IDPoliza As Integer = -1, Optional CveUsuarioResponsable As Integer = -1,
Optional CveConsignacion As Integer = -1, Optional Guia As String = "", Optional CveAlmacenDestino As Integer = -1, Optional Observaciones As String = "", Optional Recibio As String = "", Optional CveConsignacion As Integer = -1, Optional Guia As String = "", Optional CveAlmacenDestino As Integer = -1, Optional Observaciones As String = "", Optional Recibio As String = "",
Optional CveMovimientoRelacionado As Integer = -1, Optional TipoCambio As Decimal = -1, Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1, Optional MovimientoFijo As Boolean = False, Optional CveContrato As Integer = -1, Optional CveMovimientoRelacionado As Integer = -1, Optional TipoCambio As Decimal = -1, Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1, Optional MovimientoFijo As Boolean = False, Optional CveContrato As Integer = -1,
Optional CveProveedor As Integer = -1, Optional Remision As String = "", Optional CveClienteSucursal As Integer = -1, Optional DepartamentoEntrega As String = "", Optional PedidoContrato As String = "", Optional GastoIndirecto As Decimal = -1, Optional CveChofer As Integer = -1, Optional CveCamion As Integer = -1, Optional Placa As String = "", Optional CveProveedor As Integer = -1, Optional Remision As String = "", Optional CveClienteSucursal As Integer = -1, Optional DepartamentoEntrega As String = "", Optional PedidoContrato As String = "", Optional GastoIndirecto As Decimal = -1,
Optional FechaEntrega As String = "", Optional EspecifUnidad As String = "", Optional ResponsableCarga As String = "", Optional ResponsableRecibio As String = "", Optional Identificacion As String = "", Optional Domicilio As String = "", Optional ResponsableCarga As String = "", Optional ResponsableRecibio As String = "", Optional Modulo As String = "", Optional CveOP As Integer = -1, Optional CveFolioGarantia As Integer = -1, Optional CveEntregaAlmacen As Integer = -1) As Integer
Optional Telefono As String = "", Optional Ciudad As String = "", Optional Licencia As String = "", Optional Modulo As String = "", Optional CveOP As Integer = -1, Optional CveFolioGarantia As Integer = -1) As Integer
Dim Retorno As Integer = -1 Dim Retorno As Integer = -1
@@ -1037,21 +1036,21 @@ Public Class ClsInventarios
.Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal
.Add("@PedidoContrato", SqlDbType.VarChar).Value = PedidoContrato .Add("@PedidoContrato", SqlDbType.VarChar).Value = PedidoContrato
.Add("@GastoIndirecto", SqlDbType.Money).Value = GastoIndirecto .Add("@GastoIndirecto", SqlDbType.Money).Value = GastoIndirecto
.Add("@CveChofer", SqlDbType.Int).Value = CveChofer '.Add("@CveChofer", SqlDbType.Int).Value = CveChofer
.Add("@CveCamion", SqlDbType.Int).Value = CveCamion '.Add("@CveCamion", SqlDbType.Int).Value = CveCamion
.Add("@Placa", SqlDbType.VarChar).Value = Placa '.Add("@Placa", SqlDbType.VarChar).Value = Placa
.Add("@FechaEntrega", SqlDbType.VarChar).Value = FechaEntrega '.Add("@FechaEntrega", SqlDbType.VarChar).Value = FechaEntrega
.Add("@EspecifUnidad", SqlDbType.VarChar).Value = EspecifUnidad '.Add("@EspecifUnidad", SqlDbType.VarChar).Value = EspecifUnidad
.Add("@ResponsableCarga", SqlDbType.VarChar).Value = ResponsableCarga .Add("@ResponsableCarga", SqlDbType.VarChar).Value = ResponsableCarga
.Add("@ResponsableRecibio", SqlDbType.VarChar).Value = ResponsableRecibio .Add("@ResponsableRecibio", SqlDbType.VarChar).Value = ResponsableRecibio
.Add("@Identificacion", SqlDbType.VarChar).Value = Identificacion '.Add("@Identificacion", SqlDbType.VarChar).Value = Identificacion
.Add("@Domicilio", SqlDbType.VarChar).Value = Domicilio '.Add("@Domicilio", SqlDbType.VarChar).Value = Domicilio
.Add("@Telefono", SqlDbType.VarChar).Value = Telefono '.Add("@Telefono", SqlDbType.VarChar).Value = Telefono
.Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad '.Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad
.Add("@Licencia", SqlDbType.VarChar).Value = Licencia '.Add("@Licencia", SqlDbType.VarChar).Value = Licencia
.Add("@Modulo", SqlDbType.VarChar).Value = Modulo .Add("@Modulo", SqlDbType.VarChar).Value = Modulo
.Add("@CveOP", SqlDbType.Int).Value = CveOP .Add("@CveOP", SqlDbType.Int).Value = CveOP
.Add("@CveEntregaAlmacen", SqlDbType.Int).Value = CveEntregaAlmacen
.Add("@CveFolioGarantia", SqlDbType.Int).Value = CveFolioGarantia .Add("@CveFolioGarantia", SqlDbType.Int).Value = CveFolioGarantia
End With End With

9
App_Code/ClsPaginas.vb
View File

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

927
App_Code/ClsTransportes.vb
View File

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

22
App_Code/ClsVentas.vb
View File

@@ -880,6 +880,25 @@ Public Class ClsVentas
Return Retorno Return Retorno
End Function End Function
Public Function UpdateBoletosVenta(CveVenta As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_VentasBoletosUpdate")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveVenta", SqlDbType.Int).Value = CveVenta
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al cancelar los boletos de la venta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function UpdateEstatusFactura(Estatus As Integer, FolioFiscal As String, SelloSAT As String, FechaCancelacion As DateTime, CveVenta As Integer, Public Function UpdateEstatusFactura(Estatus As Integer, FolioFiscal As String, SelloSAT As String, FechaCancelacion As DateTime, CveVenta As Integer,
Optional IdPolizaCancelacion As Integer = -1, Optional CvePAC As Integer = -1, Optional CveEstatusRefacturacion As Integer = 0, Optional IdPolizaCancelacion As Integer = -1, Optional CvePAC As Integer = -1, Optional CveEstatusRefacturacion As Integer = 0,
Optional CveUsuarioCambiaEstatus As Integer = -1, Optional FechaCambioEstatus As String = "-1", Optional RFCReceptor As String = "-1", Optional CveUsuarioCambiaEstatus As Integer = -1, Optional FechaCambioEstatus As String = "-1", Optional RFCReceptor As String = "-1",
@@ -1428,7 +1447,7 @@ Public Class ClsVentas
Optional CveContratoDetalle As Integer = -1, Optional PorcentajeIVA As Decimal = 0, Optional IEPS As Decimal = -1, Optional PorcentajeIEPS As Double = 0, Optional CvePromocionDetalle As Integer = -1, Optional CveContratoDetalle As Integer = -1, Optional PorcentajeIVA As Decimal = 0, Optional IEPS As Decimal = -1, Optional PorcentajeIEPS As Double = 0, Optional CvePromocionDetalle As Integer = -1,
Optional CveMovimientoDetallePedido As Integer = -1, Optional ImporteRetIVA As Decimal = 0, Optional PorcentajeRetIVA As Double = 0, Optional CveMovimientoDetallePedido As Integer = -1, Optional ImporteRetIVA As Decimal = 0, Optional PorcentajeRetIVA As Double = 0,
Optional ImporteRetISR As Decimal = 0, Optional PorcentajeRetISR As Decimal = 0, Optional CuentaPredial As String = "", Optional CvePrecioLista As Integer = -1, Optional CveActivoFijo As Integer = -1, Optional ImporteRetISR As Decimal = 0, Optional PorcentajeRetISR As Decimal = 0, Optional CuentaPredial As String = "", Optional CvePrecioLista As Integer = -1, Optional CveActivoFijo As Integer = -1,
Optional NumTurnos As Decimal = 0D, Optional EstatusAlmacen As Integer = 0, Optional CantidadConversion As Decimal = 0) As Boolean Optional NumTurnos As Decimal = 0D, Optional EstatusAlmacen As Integer = 0, Optional CantidadConversion As Decimal = 0, Optional CveViajePasajero As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_VentasDetalleAdd") DataAdapter("PA_VentasDetalleAdd")
@@ -1463,6 +1482,7 @@ Public Class ClsVentas
.Add("@NumTurnos", SqlDbType.Decimal).Value = NumTurnos .Add("@NumTurnos", SqlDbType.Decimal).Value = NumTurnos
.Add("@EstatusAlmacen", SqlDbType.Int).Value = EstatusAlmacen .Add("@EstatusAlmacen", SqlDbType.Int).Value = EstatusAlmacen
.Add("@CantidadConversion", SqlDbType.Decimal).Value = CantidadConversion .Add("@CantidadConversion", SqlDbType.Decimal).Value = CantidadConversion
.Add("@CveViajePasajero", SqlDbType.Int).Value = CveViajePasajero
End With End With
Try Try

110
App_Code/Modelos.vb
View File

@@ -1274,7 +1274,7 @@ Namespace Modelos
ObjFactura.FechaEjecucion = DateTime.Today ObjFactura.FechaEjecucion = DateTime.Today
ObjFactura.UsuarioCreo = UsuarioActual.Usuario ObjFactura.UsuarioCreo = UsuarioActual.Usuario
ObjFactura.CondicionesPago = 0 ObjFactura.CondicionesPago = 0
ObjFactura.TipoDocumento = "Factura" ObjFactura.TipoDocumento = ObjFactura.TipodeComprobante
'Totales, Y se llena TmpDTImpuestos 'Totales, Y se llena TmpDTImpuestos
'CLIENTE 'CLIENTE
@@ -1445,6 +1445,9 @@ Namespace Modelos
TmpDT.Columns.Add("NumTurnos", GetType(Decimal)) TmpDT.Columns.Add("NumTurnos", GetType(Decimal))
TmpDT.Columns("NumTurnos").DefaultValue = 0 TmpDT.Columns("NumTurnos").DefaultValue = 0
TmpDT.Columns.Add("CveViajePasajero", GetType(Integer))
TmpDT.Columns("CveViajePasajero").DefaultValue = -1
Return TmpDT Return TmpDT
End Function End Function
@@ -1452,7 +1455,8 @@ Namespace Modelos
Optional CveUM As Integer = -1, Optional CveProyecto As Integer = -1, Optional Proyecto As String = "", Optional CveUM As Integer = -1, Optional CveProyecto As Integer = -1, Optional Proyecto As String = "",
Optional CveSubProyecto As Integer = -1, Optional CveSubProyecto As Integer = -1,
Optional SubProyecto As String = "", Optional PorcentajeIVA As Decimal = -1, Optional SubProyecto As String = "", Optional PorcentajeIVA As Decimal = -1,
Optional CuentaPredial As String = "", Optional CveVentaDetallePadre As Integer = -1, Optional CveVentaDetalleRemision As Integer = -1) As Boolean Optional CuentaPredial As String = "", Optional CveVentaDetallePadre As Integer = -1,
Optional CveVentaDetalleRemision As Integer = -1, Optional CveViajePasajero As Integer = -1) As Boolean
If Not CvePS > 0 Then If Not CvePS > 0 Then
Alert("Ocurrió un error al cargar la información del producto a agregar. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgError) Alert("Ocurrió un error al cargar la información del producto a agregar. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgError)
@@ -1649,6 +1653,7 @@ Namespace Modelos
Row("AFValorInicial") = 0 Row("AFValorInicial") = 0
Row("NumTurnos") = 0 Row("NumTurnos") = 0
Row("CveViajePasajero") = CveViajePasajero
Me.DtDetalle.Rows.Add(Row) Me.DtDetalle.Rows.Add(Row)
@@ -1661,6 +1666,7 @@ Namespace Modelos
Me.RetIVA = Me.DtDetalle.SUMD("ImporteRetIVA") Me.RetIVA = Me.DtDetalle.SUMD("ImporteRetIVA")
Me.RetISR = Me.DtDetalle.SUMD("ImporteRetISR") Me.RetISR = Me.DtDetalle.SUMD("ImporteRetISR")
Me.IEPS = Me.DtDetalle.SUMD("ImporteIEPS") Me.IEPS = Me.DtDetalle.SUMD("ImporteIEPS")
Me.Descuento = Me.DtDetalle.SUMD("Descuento")
Me.Total = Me.SubTotal + Me.IVA + Me.IEPS - (Me.RetIVA + Me.RetISR) Me.Total = Me.SubTotal + Me.IVA + Me.IEPS - (Me.RetIVA + Me.RetISR)
End Sub End Sub
@@ -2202,6 +2208,14 @@ Namespace Modelos
'Se agregan los PS 'Se agregan los PS
For Each Row As DataRow In TmpDTDetalle.Rows For Each Row As DataRow In TmpDTDetalle.Rows
Dim CveViajePasajero As Integer = -1
'VERIFICA QUE EXISTA LA COLUMNA
If TmpDTDetalle.Columns("CveViajePasajero") IsNot Nothing Then
CveViajePasajero = Row("CveViajePasajero").ToString().ToEntero()
End If
If Not ObjVentas.AddVentaDetalle(ObjVentas.CveVenta, Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDecimal, Row("CveUM").ToString.ToEntero, If Not ObjVentas.AddVentaDetalle(ObjVentas.CveVenta, Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDecimal, Row("CveUM").ToString.ToEntero,
Row("PU").ToString.ToDecimal(If(factura.ConvertirPesos, factura.TipoCambio, 1)), Row("ImporteIVA").ToString.ToDecimal(If(factura.ConvertirPesos, factura.TipoCambio, 1)), Math.Round((Row("Total").ToString.ToDecimal(If(factura.ConvertirPesos, factura.TipoCambio, 1)) * (1 + Row("PorcentajeIVA").ToString.ToDecimal(If(factura.ConvertirPesos, factura.TipoCambio, 1)))), 6), Row("PU").ToString.ToDecimal(If(factura.ConvertirPesos, factura.TipoCambio, 1)), Row("ImporteIVA").ToString.ToDecimal(If(factura.ConvertirPesos, factura.TipoCambio, 1)), Math.Round((Row("Total").ToString.ToDecimal(If(factura.ConvertirPesos, factura.TipoCambio, 1)) * (1 + Row("PorcentajeIVA").ToString.ToDecimal(If(factura.ConvertirPesos, factura.TipoCambio, 1)))), 6),
Row("Obs").ToString, Row("Descuento").ToString.ToDecimal(If(factura.ConvertirPesos, factura.TipoCambio, 1)), Row("TipoDescuento").ToString.ToEntero, Row("CveSubProyecto").ToString.ToEntero, Row("CvePresupuestoIngreso").ToString.ToEntero, Row("Obs").ToString, Row("Descuento").ToString.ToDecimal(If(factura.ConvertirPesos, factura.TipoCambio, 1)), Row("TipoDescuento").ToString.ToEntero, Row("CveSubProyecto").ToString.ToEntero, Row("CvePresupuestoIngreso").ToString.ToEntero,
@@ -2210,7 +2224,7 @@ Namespace Modelos
IEPS:=Row("ImporteIEPS").ToString.ToDecimal, CveMovimientoDetallePedido:=Row("CveMovimientoDetallePedido").ToString.ToEntero, IEPS:=Row("ImporteIEPS").ToString.ToDecimal, CveMovimientoDetallePedido:=Row("CveMovimientoDetallePedido").ToString.ToEntero,
ImporteRetIVA:=Row("ImporteRetIVA").ToString.ToDecimal, ImporteRetISR:=Row("ImporteRetISR").ToString.ToDecimal, ImporteRetIVA:=Row("ImporteRetIVA").ToString.ToDecimal, ImporteRetISR:=Row("ImporteRetISR").ToString.ToDecimal,
PorcentajeIEPS:=Row("PorcentajeIEPS").ToString.ToDecimal, PorcentajeRetIVA:=Row("PorcentajeRetIVA").ToString.ToDouble, PorcentajeRetISR:=Row("PorcentajeRetISR").ToString.ToDecimal, CuentaPredial:=Row("CuentaPredial").ToString, PorcentajeIEPS:=Row("PorcentajeIEPS").ToString.ToDecimal, PorcentajeRetIVA:=Row("PorcentajeRetIVA").ToString.ToDouble, PorcentajeRetISR:=Row("PorcentajeRetISR").ToString.ToDecimal, CuentaPredial:=Row("CuentaPredial").ToString,
PorcentajeIVA:=Row("PorcentajeIVA").ToString.ToDecimal) Then PorcentajeIVA:=Row("PorcentajeIVA").ToString.ToDecimal, CveViajePasajero:=CveViajePasajero) Then
ErrorList.Add("Ocurrió un error al agregar un Producto o Servicio a la factura.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico") ErrorList.Add("Ocurrió un error al agregar un Producto o Servicio a la factura.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
Exit For Exit For
Else Else
@@ -5209,6 +5223,77 @@ Namespace Modelos
End If End If
End Function End Function
Public Function CancelarBoleto(CveViajePasajero As Integer) As Boolean
Dim TieneError As Boolean = False
If Me.CveVenta > 0 Then
Dim ObjVentas As New ClsVentas()
Dim ObjTransportes As New ClsTransportes(ObjVentas.IniciaTransacSQL())
Dim ObjConta As New ClsContabilidad(ObjVentas.IniciaTransacSQL())
Try
Dim Row As DataRow = Me.DtDetalle.Select($"CveViajePasajero={CveViajePasajero}").FirstOrDefault()
If Row IsNot Nothing Then
Row("Descuento") = Row("Total")
Row("Obs") = "CANCELADO"
If Not ObjVentas.UpdateVentaDetalleRemision(Row("CveVentaDetalle").ToString().ToEntero(), Row("CvePS").ToString().ToEntero(), Row("Cantidad").ToString().ToDecimal, Row("PU").ToString().ToDecimal(), Row("ImporteIEPS").ToString().ToDecimal(), Row("PorcentajeIEPS").ToString().ToDecimal(), Row("ImporteIVA").ToString().ToDecimal(), Row("PorcentajeIVA").ToString().ToDecimal(), Row("Descuento").ToString().ToDecimal(), Row("Obs").ToString(), UsuarioActual.CveUsuario) Then
TieneError = True
End If
If Not TieneError Then
If Not ObjTransportes.UpdateViajesPasajeros(CveViajePasajero, Activar:=False, Estatus:=False) Then
TieneError = True
End If
End If
Me.CalculaTotales()
If Not TieneError Then
If Not ObjVentas.UpdateVentas(Me.SubTotal, Me.Descuento, Me.IVA, Me.IEPS, Me.Total, Me.CveMoneda, Me.TipoCambio, Me.Fecha, Me.Observaciones,
UsuarioActual.CveEmpresa, Me.CveVenta, TipoDocto:=Me.TipoDocto) Then
TieneError = True
End If
End If
If Not TieneError Then
TieneError = Not RegenerarPrePolizas(ObjVentas.IniciaTransacSQL())
End If
If Not TieneError Then
If ObjConta.ValidacionesPrePoliza(-1, UsuarioActual, Opcion:=2, CveVenta:=CveVenta) Then
If ObjConta.ValorPolizaDescuadre > 0 Then
If ObjConta.ValorPolizaDescuadre = 2 Then
TieneError = True
Alert(ObjConta.MensajePolizaDescuadre, TipoMensaje.MsgError)
End If
End If
End If
End If
End If
Catch ex As Exception
TieneError = True
GuardaLog(ex.ToString())
End Try
If TieneError Then
ObjVentas.RollBack()
Else
ObjVentas.Commit()
End If
ObjVentas.Dispose()
ObjTransportes.Dispose()
ObjConta.Dispose()
End If
Return Not TieneError
End Function
Private Shared Function DecodeBase64(ByVal strXMLCodificado As String) As String Private Shared Function DecodeBase64(ByVal strXMLCodificado As String) As String
Try Try
Dim decbuff As Byte() = Convert.FromBase64String(strXMLCodificado) Dim decbuff As Byte() = Convert.FromBase64String(strXMLCodificado)
@@ -5246,8 +5331,8 @@ Namespace Modelos
''' Cancela la factura para poder realizar la refacturacion ''' Cancela la factura para poder realizar la refacturacion
''' </summary> ''' </summary>
''' <returns></returns> ''' <returns></returns>
Public Function CancelarPorRefacturacion(CveMotivoCancelacion As Integer, Motivo As String, Optional FolioSustitucion As String = "", Optional ValidarSAT As Boolean = False, Optional CveEstadoCancelacion As Integer = 0, Optional CveEstatusFacturaAsignado As Integer = -1) As MCancelacionVentaMensaje Public Function CancelarPorRefacturacion(CveMotivoCancelacion As Integer, Motivo As String, Optional FolioSustitucion As String = "", Optional ValidarSAT As Boolean = False, Optional CveEstadoCancelacion As Integer = 0) As MCancelacionVentaMensaje
Return CancelarVenta(Me, Me.UsuarioActual, EsRefacturacion:=True, CveMotivoCancelacion:=CveMotivoCancelacion, MotivoCancelacion:=Motivo, FolioSustitucion:=FolioSustitucion, ValidarSAT:=ValidarSAT, CveEstadoCancelacion:=CveEstadoCancelacion, CveEstatusFacturaAsignado:=CveEstatusFacturaAsignado) Return CancelarVenta(Me, Me.UsuarioActual, EsRefacturacion:=True, CveMotivoCancelacion:=CveMotivoCancelacion, MotivoCancelacion:=Motivo, FolioSustitucion:=FolioSustitucion, ValidarSAT:=ValidarSAT, CveEstadoCancelacion:=CveEstadoCancelacion)
End Function End Function
''' <summary> ''' <summary>
''' Cancela la factura y realiza las operaciones correspondientes ''' Cancela la factura y realiza las operaciones correspondientes
@@ -5255,15 +5340,15 @@ Namespace Modelos
''' <param name="RealizarDevolucionAlmacen"></param> ''' <param name="RealizarDevolucionAlmacen"></param>
''' <param name="ListaRemisionesCancelar"></param> ''' <param name="ListaRemisionesCancelar"></param>
''' <returns></returns> ''' <returns></returns>
Public Function CancelarFactura(RealizarDevolucionAlmacen As Boolean, Optional ListaRemisionesCancelar As List(Of Integer) = Nothing, Optional CveMotivoCancelacion As Integer = -1, Optional Motivo As String = "", Optional ValidarSAT As Boolean = True, Optional CveEstadoCancelacion As Integer = 0) As MCancelacionVentaMensaje Public Function CancelarFactura(RealizarDevolucionAlmacen As Boolean, Optional ListaRemisionesCancelar As List(Of Integer) = Nothing, Optional CveMotivoCancelacion As Integer = -1, Optional Motivo As String = "", Optional ValidarSAT As Boolean = True, Optional CveEstadoCancelacion As Integer = 0, Optional CancelarBoletos As Boolean = False) As MCancelacionVentaMensaje
'Comprobante emitido con errores sin relación 'Comprobante emitido con errores sin relación
Return CancelarVenta(Me, Me.UsuarioActual, RealizarDevolucionAlmacen:=RealizarDevolucionAlmacen, ListaRemisionesCancelar:=ListaRemisionesCancelar, CveMotivoCancelacion:=CveMotivoCancelacion, MotivoCancelacion:=Motivo, CveEstadoCancelacion:=CveEstadoCancelacion) Return CancelarVenta(Me, Me.UsuarioActual, RealizarDevolucionAlmacen:=RealizarDevolucionAlmacen, ListaRemisionesCancelar:=ListaRemisionesCancelar, CveMotivoCancelacion:=CveMotivoCancelacion, MotivoCancelacion:=Motivo, CveEstadoCancelacion:=CveEstadoCancelacion, CancelarBoletos:=CancelarBoletos)
End Function End Function
Private Function CancelarVenta(ObjFactura As Modelos.Factura, UsuarioActual As Usuario, Optional EsRefacturacion As Boolean = False, Optional RealizarDevolucionAlmacen As Boolean = False, Private Function CancelarVenta(ObjFactura As Modelos.Factura, UsuarioActual As Usuario, Optional EsRefacturacion As Boolean = False, Optional RealizarDevolucionAlmacen As Boolean = False,
Optional ListaRemisionesCancelar As List(Of Integer) = Nothing, Optional CveEstatusFacturaAsignado As Integer = -1, Optional FechaCancelacion As String = "-1", Optional ListaRemisionesCancelar As List(Of Integer) = Nothing, Optional CveEstatusFacturaAsignado As Integer = -1, Optional FechaCancelacion As String = "-1",
Optional AcuseCancelacion As String = "", Optional CveMotivoCancelacion As Integer = -1, Optional MotivoCancelacion As String = "", Optional AcuseCancelacion As String = "", Optional CveMotivoCancelacion As Integer = -1, Optional MotivoCancelacion As String = "",
Optional FolioSustitucion As String = "", Optional ValidarSAT As Boolean = True, Optional CveEstadoCancelacion As Integer = 0) As MCancelacionVentaMensaje Optional FolioSustitucion As String = "", Optional ValidarSAT As Boolean = True, Optional CveEstadoCancelacion As Integer = 0, Optional CancelarBoletos As Boolean = False) As MCancelacionVentaMensaje
Dim Retorno As New MCancelacionVentaMensaje() Dim Retorno As New MCancelacionVentaMensaje()
Dim ErrorList As New List(Of String) Dim ErrorList As New List(Of String)
@@ -6434,6 +6519,13 @@ Namespace Modelos
End If End If
End If End If
If CancelarBoletos Then
If Not ObjVentas.UpdateBoletosVenta(CveVenta, UsuarioActual.CveEmpresa) Then
ErrorCancelar = True
MensajeError = "Ocurrió un error al cancelar los boletos."
End If
End If
If CancelarRemisiones Then If CancelarRemisiones Then
If SeCancelaRemisionProceso Then If SeCancelaRemisionProceso Then
@@ -8055,7 +8147,7 @@ Namespace Modelos
Public Property Giro As String Public Property Giro As String
Public Property CvePrecioLista As Integer Public Property CvePrecioLista As Integer
Public Property EnviarFactura As String Public Property EnviarFactura As String
Public Property CveSucursal As Integer Public Property CveSubProyecto As Integer
Public Property RetIVA As Decimal Public Property RetIVA As Decimal
Public Property RetISR As Decimal Public Property RetISR As Decimal
Public Property IEPS As Decimal Public Property IEPS As Decimal

BIN
Bin/ADSNetLibrary.dll
View File

Binary file not shown.

4
CGame/CatHuerta.aspx
View File

@@ -163,8 +163,8 @@
<label for="<%= TxtNumeroRegistro.ClientID.ToString()%>">Número de Registro:</label> <label for="<%= TxtNumeroRegistro.ClientID.ToString()%>">Número de Registro:</label>
</div> </div>
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<ADS:Dropdownlost runat="server" ID="DdlProveedor" CssStyle="width: 100%;" CssClassDdl="select2me " DataTextField="NombreCortoProveedor" DataValueField="CveProveedor" /> <label style=" margin-bottom: 0;font-size: 13px;color: #888888; opacity: 1;">Proveedor:</label>
<label for="<%= DdlProveedor.ClientID.ToString()%>">Proveedor:</label> <ADS:Dropdownlost runat="server" ID="DdlProveedor" CssStyle="width: 100%;" CssClassDdl="select2me " DataTextField="NombreCortoProveedor" DataValueField="CveProveedor" />
</div> </div>
<div class="form-group form-md-line-input input-iconright ocultar"> <div class="form-group form-md-line-input input-iconright ocultar">
<asp:DropDownList ID="DdlTipoCobro" CssClass="form-control select2me" runat="server" AppendDataBoundItems="true" Style="width: 100%"> <asp:DropDownList ID="DdlTipoCobro" CssClass="form-control select2me" runat="server" AppendDataBoundItems="true" Style="width: 100%">

24
CGame/CatHuerta.aspx.cs
View File

@@ -1,4 +1,4 @@
 
using System; using System;
using System.Collections.Generic; using System.Collections.Generic;
using System.Linq; using System.Linq;
@@ -78,4 +78,26 @@
CveHuerta = gvRow.DataKey("CveHuerta").ToEntero(); CveHuerta = gvRow.DataKey("CveHuerta").ToEntero();
TxtHuerhuerta.Text = gvRow.DataKey("Huerta"); TxtHuerhuerta.Text = gvRow.DataKey("Huerta");
TxtImporte.Text = gvRow.DataKey("Importe"); TxtImporte.Text = gvRow.DataKey("Importe");
TxtCostoXTonelada.Text = gvRow.DataKey("CostoXTonelada");
TxtNombreRegistro.Text = gvRow.DataKey("NombreRegistro");
TxtNumeroRegistro.Text = gvRow.DataKey("NumeroRegistro");
//DdlProveedor.SelectedValue = objOC.CveProveedor.ToString
// if (gvRow.DataKey("CveProveedor").ToEntero() > 0)
// {
// DdlProveedor.SelectedValueExist(gvRow.DataKey("CveProveedor").ToEntero());
//}
// CveProveedorOriginal = objOC.CveProveedor
// DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveProveedor = {objOC.CveProveedor}").Rows(0)("RazonSocial").ToString
//Else
// DdlProveedores.SelectedText = "-"
//End If
DdlTipoCobro.SelectedValueExist(gvRow.DataKey("TipoCobro").ToEntero());
ChkHuerestatus.Checked= Convert.ToBoolean(gvRow.DataKey("Estatus"));
RegistraScript("$('#DModalHuerta').modal();");
BtnHuerADD.Visible=false;
BtnHuerEdit.Visible=true;
DivEstatus.Visible = true;
UPModalHuer.Update();
}
protected void LnkAgregarHuer_Click(object sender, EventArgs e) protected void LnkAgregarHuer_Click(object sender, EventArgs e)

96
CRM/Acercamiento.aspx.cs
View File

@@ -828,7 +828,7 @@ public partial class CRM_Acercamiento : ClsPaginas
{ {
ClsCRM ObjCRM = new ClsCRM(); ClsCRM ObjCRM = new ClsCRM();
ICRMService cRMService = new CRMService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString); ICRMService cRMService = new CRMService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString);
AcercaminetoModel AcercaminetoModel = new AcercaminetoModel(); AcercamientoModel AcercamientoModel = new AcercamientoModel();
ClsEncuestas ObjDatosTecnicos = new ClsEncuestas(ObjCRM.IniciaTransacSQL()); ClsEncuestas ObjDatosTecnicos = new ClsEncuestas(ObjCRM.IniciaTransacSQL());
//ClsOIEventos ObjBitacora = new ClsOIEventos(ObjCRM.IniciaTransacSQL()); //ClsOIEventos ObjBitacora = new ClsOIEventos(ObjCRM.IniciaTransacSQL());
@@ -866,31 +866,31 @@ public partial class CRM_Acercamiento : ClsPaginas
{ {
CveEncuestaAplicadaProceso = GuardaDatosTecnicos(ObjDatosTecnicos, CveEncuestaAplicadaProceso); CveEncuestaAplicadaProceso = GuardaDatosTecnicos(ObjDatosTecnicos, CveEncuestaAplicadaProceso);
} }
AcercaminetoModel.CveAcercamiento = CveAcercamiento; AcercamientoModel.CveAcercamiento = CveAcercamiento;
AcercaminetoModel.CveContactoPrincipal = CveContactoPrincipal; AcercamientoModel.CveContactoPrincipal = CveContactoPrincipal;
AcercaminetoModel.CveTipoProceso = CveTipoProceso; AcercamientoModel.CveTipoProceso = CveTipoProceso;
AcercaminetoModel.CveEtapaProcesoActual = CveEtapaProcesoActualActualizar; AcercamientoModel.CveEtapaProcesoActual = CveEtapaProcesoActualActualizar;
AcercaminetoModel.CveVendedor = CveVendedor; AcercamientoModel.CveVendedor = CveVendedor;
AcercaminetoModel.CveMedioCaptacion = CveMedioCaptacion; AcercamientoModel.CveMedioCaptacion = CveMedioCaptacion;
AcercaminetoModel.CveProbabilidadAcercamiento = CveProbabilidadAcercamiento; AcercamientoModel.CveProbabilidadAcercamiento = CveProbabilidadAcercamiento;
AcercaminetoModel.NombreAcercamiento = NombreAcercamiento; AcercamientoModel.NombreAcercamiento = NombreAcercamiento;
AcercaminetoModel.Descripcion = Descripcion; AcercamientoModel.Descripcion = Descripcion;
AcercaminetoModel.Importe = Importe; AcercamientoModel.Importe = Importe;
AcercaminetoModel.Comision = Comision; AcercamientoModel.Comision = Comision;
AcercaminetoModel.Prioridad = Prioridad; AcercamientoModel.Prioridad = Prioridad;
AcercaminetoModel.CveUsuarioIng = UsuarioActual.CveUsuario; AcercamientoModel.CveUsuarioIng = UsuarioActual.CveUsuario;
AcercaminetoModel.CveEncuestaAplicadaProceso = CveEncuestaAplicadaProceso; AcercamientoModel.CveEncuestaAplicadaProceso = CveEncuestaAplicadaProceso;
AcercaminetoModel.FechaApertura = FechaApertura; AcercamientoModel.FechaApertura = FechaApertura;
AcercaminetoModel.FechaCierre = FechaCierre != null ? (DateTime)FechaCierre : ModExtensiones.MinFecha; AcercamientoModel.FechaCierre = FechaCierre != null ? (DateTime)FechaCierre : ModExtensiones.MinFecha;
AcercaminetoModel.CvePS = DdlPS.SelectedValue.ToEntero(); AcercamientoModel.CvePS = DdlPS.SelectedValue.ToEntero();
AcercaminetoModel.CveRechazoMotivo = CveRechazoMotivo; AcercamientoModel.CveRechazoMotivo = CveRechazoMotivo;
AcercaminetoModel.EnPausa = ChkePausa.Checked; AcercamientoModel.EnPausa = ChkePausa.Checked;
AcercaminetoModel.CveMedico = DdlMedico.SelectedValue.ToEntero(); AcercamientoModel.CveMedico = DdlMedico.SelectedValue.ToEntero();
AcercaminetoModel.CveProcedimiento = DdlProcedimiento.SelectedValue.ToEntero(); AcercamientoModel.CveProcedimiento = DdlProcedimiento.SelectedValue.ToEntero();
AcercaminetoModel.CveTipoVenta = DdlTipoVenta.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); //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() protected void GuardarCambioEtapa()
{ {
ICRMService cRMService = new CRMService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString); ICRMService cRMService = new CRMService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString);
AcercaminetoModel AcercaminetoModel = new AcercaminetoModel(); AcercamientoModel AcercamientoModel = new AcercamientoModel();
String NombreAcercamiento = TxtNombreAcercamiento.Text; String NombreAcercamiento = TxtNombreAcercamiento.Text;
String Descripcion = TxtDescripcion.Text == "" ? "-1" : TxtDescripcion.Text; String Descripcion = TxtDescripcion.Text == "" ? "-1" : TxtDescripcion.Text;
@@ -953,30 +953,30 @@ public partial class CRM_Acercamiento : ClsPaginas
int CveUsuarioIng = UsuarioActual.CveUsuario; int CveUsuarioIng = UsuarioActual.CveUsuario;
AcercaminetoModel.CveAcercamiento = CveAcercamiento; AcercamientoModel.CveAcercamiento = CveAcercamiento;
AcercaminetoModel.CveContactoPrincipal = CveContactoPrincipal; AcercamientoModel.CveContactoPrincipal = CveContactoPrincipal;
AcercaminetoModel.CveTipoProceso = CveTipoProceso; AcercamientoModel.CveTipoProceso = CveTipoProceso;
AcercaminetoModel.CveEtapaProcesoActual = CveEtapaProcesoActualActualizar; AcercamientoModel.CveEtapaProcesoActual = CveEtapaProcesoActualActualizar;
AcercaminetoModel.CveVendedor = CveVendedor; AcercamientoModel.CveVendedor = CveVendedor;
AcercaminetoModel.CveMedioCaptacion = CveMedioCaptacion; AcercamientoModel.CveMedioCaptacion = CveMedioCaptacion;
AcercaminetoModel.CveProbabilidadAcercamiento = CveProbabilidadAcercamiento; AcercamientoModel.CveProbabilidadAcercamiento = CveProbabilidadAcercamiento;
AcercaminetoModel.NombreAcercamiento = NombreAcercamiento; AcercamientoModel.NombreAcercamiento = NombreAcercamiento;
AcercaminetoModel.Descripcion = Descripcion; AcercamientoModel.Descripcion = Descripcion;
AcercaminetoModel.Importe = Importe; AcercamientoModel.Importe = Importe;
AcercaminetoModel.Comision = Comision; AcercamientoModel.Comision = Comision;
AcercaminetoModel.Prioridad = Prioridad; AcercamientoModel.Prioridad = Prioridad;
AcercaminetoModel.CveUsuarioIng = UsuarioActual.CveUsuario; AcercamientoModel.CveUsuarioIng = UsuarioActual.CveUsuario;
AcercaminetoModel.CveEncuestaAplicadaProceso = CveEncuestaAplicadaProceso; AcercamientoModel.CveEncuestaAplicadaProceso = CveEncuestaAplicadaProceso;
AcercaminetoModel.FechaApertura = FechaApertura; AcercamientoModel.FechaApertura = FechaApertura;
AcercaminetoModel.FechaCierre = FechaCierre != null ? (DateTime)FechaCierre : ModExtensiones.MinFecha; AcercamientoModel.FechaCierre = FechaCierre != null ? (DateTime)FechaCierre : ModExtensiones.MinFecha;
AcercaminetoModel.CvePS = DdlPS.SelectedValue.ToEntero(); AcercamientoModel.CvePS = DdlPS.SelectedValue.ToEntero();
AcercaminetoModel.CveRechazoMotivo = CveRechazoMotivo; AcercamientoModel.CveRechazoMotivo = CveRechazoMotivo;
AcercaminetoModel.CveMedico = DdlMedico.SelectedValue.ToEntero(); AcercamientoModel.CveMedico = DdlMedico.SelectedValue.ToEntero();
AcercaminetoModel.CveProcedimiento = DdlProcedimiento.SelectedValue.ToEntero(); AcercamientoModel.CveProcedimiento = DdlProcedimiento.SelectedValue.ToEntero();
AcercaminetoModel.CveTipoVenta = DdlTipoVenta.SelectedValue.ToEntero(); AcercamientoModel.CveTipoVenta = DdlTipoVenta.SelectedValue.ToEntero();
if (cRMService.AcercamientoUpdate(AcercaminetoModel)) if (cRMService.AcercamientoUpdate(AcercamientoModel))
{ {
CveEtapaActual = CveEtapaProcesoActualActualizar; CveEtapaActual = CveEtapaProcesoActualActualizar;
HdfEtapaSeleccionada.Value = CveEtapaProcesoActualActualizar.ToString(); HdfEtapaSeleccionada.Value = CveEtapaProcesoActualActualizar.ToString();
@@ -1114,7 +1114,7 @@ public partial class CRM_Acercamiento : ClsPaginas
String TituloCierre = DTEtapasProceso.FiltroPrimeroValor("EtapaProceso", "CveTipoEtapa = 4"); String TituloCierre = DTEtapasProceso.FiltroPrimeroValor("EtapaProceso", "CveTipoEtapa = 4");
AcercaminetoModel acercamiento = new AcercaminetoModel(); AcercamientoModel acercamiento = new AcercamientoModel();
acercamiento.CveAcercamiento = CveAcercamiento; acercamiento.CveAcercamiento = CveAcercamiento;
acercamiento.CveEtapaProcesoActual = CveEtapaCierre; acercamiento.CveEtapaProcesoActual = CveEtapaCierre;
acercamiento.CveRechazoMotivo = CveRechazoMotivo; 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) if (tempDT.Rows.Count > 0)
{ {
var AcercamientoModel = new AcercaminetoModel() var AcercamientoModel = new AcercamientoModel()
{ {
CveEmpresaCRM = CveEmpresaCRM, CveEmpresaCRM = CveEmpresaCRM,
CveContactoPrincipal = CveContactoPrincipal, CveContactoPrincipal = CveContactoPrincipal,

88
Compras/Compras.aspx
View File

@@ -1,5 +1,4 @@
<%@ Page Title="Compras - Registro de Facturas" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" ValidateRequest="false" CodeFile="Compras.aspx.vb" Inherits="Compras_Compras" EnableEventValidation="false" %> <%@ Page Title="Compras - Registro de Facturas" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" ValidateRequest="false" CodeFile="Compras.aspx.vb" Inherits="Compras_Compras" EnableEventValidation="false" %>
<asp:Content ID="Content1" ContentPlaceHolderID="H" runat="Server"> <asp:Content ID="Content1" ContentPlaceHolderID="H" runat="Server">
<asp:UpdatePanel ID="UppAddAcciones" runat="server"> <asp:UpdatePanel ID="UppAddAcciones" runat="server">
@@ -204,14 +203,14 @@
<div class="portlet-body form-horizontal form-row-sepe formnombottom"> <div class="portlet-body form-horizontal form-row-sepe formnombottom">
<div class="row"> <div class="row">
<div class="form-group "> <div class="form-group ">
<%-- <asp:DropDownList ID="ddlCargoPrePoliza" CssClass="form-control input-sm whitoutcol linewhitsize comprasdfleft" runat="server" Width="70px" Visible="false"> <%-- <asp:DropDownList ID="ddlCargoPrePoliza" CssClass="form-control input-sm whitoutcol comprasdfleft" runat="server" Width="70px" Visible="false">
<asp:ListItem Text="Proveedor" Value="1" Selected="True"></asp:ListItem> <asp:ListItem Text="Proveedor" Value="1" Selected="True"></asp:ListItem>
<asp:ListItem Text="Deudor" Value="2"></asp:ListItem> <asp:ListItem Text="Deudor" Value="2"></asp:ListItem>
<asp:ListItem Text="Acreedor" Value="3"></asp:ListItem> <asp:ListItem Text="Acreedor" Value="3"></asp:ListItem>
</asp:DropDownList>--%> </asp:DropDownList>--%>
<asp:LinkButton ID="LblProveedor" runat="server" Visible="true" class="whitoutcol linewhitsize comprasdfleft" Style="text-decoration: none">Proveedor:</asp:LinkButton> <asp:LinkButton ID="LblProveedor" runat="server" Visible="true" class="whitoutcol comprasdfleft" Style="text-decoration: none">Proveedor:</asp:LinkButton>
<%--<asp:Label ID="LblProveedor" runat="server" Visible="true" class="whitoutcol linewhitsize comprasdfleft">Proveedor:</asp:Label>--%> <%--<asp:Label ID="LblProveedor" runat="server" Visible="true" class="whitoutcol comprasdfleft">Proveedor:</asp:Label>--%>
<%-- <asp:Label ID="lblProveedor" runat="server" Visible="true" class="whitoutcol linewhitsize comprasdfleft">Proveedor:</asp:Label>--%> <%-- <asp:Label ID="lblProveedor" runat="server" Visible="true" class="whitoutcol comprasdfleft">Proveedor:</asp:Label>--%>
<div class="whitoutcol whitoutcol "> <div class="whitoutcol whitoutcol ">
<asp:HyperLink ID="HplProveedor" CssClass="Texto" runat="server" Visible="false"></asp:HyperLink> <asp:HyperLink ID="HplProveedor" CssClass="Texto" runat="server" Visible="false"></asp:HyperLink>
<asp:DropDownList ID="DdlProveedor" CssClass="form-control input-sm" onclick="CargaProveedores();" runat="server" CausesValidation="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="280px"></asp:DropDownList> <asp:DropDownList ID="DdlProveedor" CssClass="form-control input-sm" onclick="CargaProveedores();" runat="server" CausesValidation="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="280px"></asp:DropDownList>
@@ -223,7 +222,7 @@
</div> </div>
</div> </div>
<div class="form-group whitoutcol" style="width: 280px;"> <div class="form-group whitoutcol" style="width: 280px;">
<span class="whitoutcol linewhitsize comprasdfleft">Tipo:</span> <span class="whitoutcol comprasdfleft">Tipo:</span>
<div class="whitoutcol whitoutcol comprasdfleftvar"> <div class="whitoutcol whitoutcol comprasdfleftvar">
<asp:DropDownList ID="DdlTipoComprobante" runat="server" AutoPostBack="true" CssClass="form-control input-sm input-small" OnSelectedIndexChanged="DdlTipoComprobante_SelectedIndexChanged"> <asp:DropDownList ID="DdlTipoComprobante" runat="server" AutoPostBack="true" CssClass="form-control input-sm input-small" OnSelectedIndexChanged="DdlTipoComprobante_SelectedIndexChanged">
<asp:ListItem Selected="True" Text="Factura" Value="Fac"></asp:ListItem> <asp:ListItem Selected="True" Text="Factura" Value="Fac"></asp:ListItem>
@@ -318,7 +317,7 @@
</table> </table>
<div class="form-group whitoutcol" style="width: 280px;"> <div class="form-group whitoutcol" style="width: 280px;">
<span class="whitoutcol linewhitsize comprasdfleft">Descripción: </span> <span class="whitoutcol comprasdfleft">Descripción: </span>
<div class="whitoutcol whitoutcol comprasdfleftvar"> <div class="whitoutcol whitoutcol comprasdfleftvar">
<asp:TextBox ID="TxtDescripcion" runat="server" CausesValidation="true" MaxLength="200" TextMode="MultiLine" ValidationGroup="GrpGuardar" Width="280px"></asp:TextBox> <asp:TextBox ID="TxtDescripcion" runat="server" CausesValidation="true" MaxLength="200" TextMode="MultiLine" ValidationGroup="GrpGuardar" Width="280px"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVDescripcion" runat="server" ControlToValidate="TxtDescripcion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripción''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVDescripcion" runat="server" ControlToValidate="TxtDescripcion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripción''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
@@ -326,14 +325,14 @@
</div> </div>
</div> </div>
<div class="form-group whitoutcol" style="width: 280px;" id="TrFacturaRefacturar" visible="false" runat="server"> <div class="form-group whitoutcol" style="width: 280px;" id="TrFacturaRefacturar" visible="false" runat="server">
<span class="whitoutcol linewhitsize comprasdfleft">Refacturación: </span> <span class="whitoutcol comprasdfleft">Refacturación: </span>
<div class="whitoutcol whitoutcol comprasdfleftvar"> <div class="whitoutcol whitoutcol comprasdfleftvar">
<asp:Literal Text="" ID="LtFacturaRefacturar" runat="server" /> <asp:Literal Text="" ID="LtFacturaRefacturar" runat="server" />
<asp:HiddenField ID="HdnRefacturacionCveCompra" runat="server" /> <asp:HiddenField ID="HdnRefacturacionCveCompra" runat="server" />
</div> </div>
</div> </div>
<div class="form-group whitoutcol" style="width: 400px;" id="DivEsNoDeducible" visible="false" runat="server"> <div class="form-group whitoutcol" style="width: 400px;" id="DivEsNoDeducible" visible="false" runat="server">
<span class="whitoutcol linewhitsize comprasdfleft" style="width: 120px;">¿Es No Deducible?</span> <span class="whitoutcol comprasdfleft" style="width: 120px;">¿Es No Deducible?</span>
<div class="whitoutcol whitoutcol comprasdfleftvar"> <div class="whitoutcol whitoutcol comprasdfleftvar">
<asp:CheckBox ID="ChkEsNoDeducible" runat="server" OnCheckedChanged="ChkEsNoDeducible_CheckedChanged1" AutoPostBack="true" /> <asp:CheckBox ID="ChkEsNoDeducible" runat="server" OnCheckedChanged="ChkEsNoDeducible_CheckedChanged1" AutoPostBack="true" />
</div> </div>
@@ -364,26 +363,26 @@
</div> </div>
<div class="portlet-body"> <div class="portlet-body">
<div class="form-group proveedoreespes"> <div class="form-group proveedoreespes">
<span class="whitoutcol linewhitsize proveedoreespes">RFC:</span> <span class="whitoutcol proveedoreespes">RFC:</span>
<div class="whitoutcol whitoutcol "> <div class="whitoutcol whitoutcol ">
<asp:Label ID="LblRFC" runat="server" Text="RFC"></asp:Label> <asp:Label ID="LblRFC" runat="server" Text="RFC"></asp:Label>
<asp:HiddenField ID="HdnProveedorIVA" ClientIDMode="Static" Value="0" runat="server" /> <asp:HiddenField ID="HdnProveedorIVA" ClientIDMode="Static" Value="0" runat="server" />
</div> </div>
</div> </div>
<div class="form-group proveedoreespes"> <div class="form-group proveedoreespes">
<span class="whitoutcol linewhitsize proveedoreespes">Días de Crédito:</span> <span class="whitoutcol proveedoreespes">Días de Crédito:</span>
<div class="whitoutcol whitoutcol "> <div class="whitoutcol whitoutcol ">
<asp:Label ID="LblDiasCredito" runat="server" Text="0" ClientIDMode="Static"></asp:Label> <asp:Label ID="LblDiasCredito" runat="server" Text="0" ClientIDMode="Static"></asp:Label>
</div> </div>
</div> </div>
<div class="form-group proveedoreespes"> <div class="form-group proveedoreespes">
<span class="whitoutcol linewhitsize proveedoreespes">Límite de Crédito:</span> <span class="whitoutcol proveedoreespes">Límite de Crédito:</span>
<div class="whitoutcol whitoutcol "> <div class="whitoutcol whitoutcol ">
<asp:Label ID="LblLimiteCredito" runat="server" Text="0"></asp:Label> <asp:Label ID="LblLimiteCredito" runat="server" Text="0"></asp:Label>
</div> </div>
</div> </div>
<div class="form-group proveedoreespes"> <div class="form-group proveedoreespes">
<span class="whitoutcol linewhitsize proveedoreespes">Crédito Disponible:</span> <span class="whitoutcol proveedoreespes">Crédito Disponible:</span>
<div class="whitoutcol whitoutcol "> <div class="whitoutcol whitoutcol ">
<asp:Label ID="LblCreditoDisponible" runat="server" Text="0"></asp:Label> <asp:Label ID="LblCreditoDisponible" runat="server" Text="0"></asp:Label>
</div> </div>
@@ -413,7 +412,7 @@
<div class="portlet-body"> <div class="portlet-body">
<div runat="server" id="RowProveedorSucursal" visible="false"> <div runat="server" id="RowProveedorSucursal" visible="false">
<div class="form-group proveedoreespes"> <div class="form-group proveedoreespes">
<span class="whitoutcol linewhitsize proveedoreespes">Sucursal: </span> <span class="whitoutcol proveedoreespes">Sucursal: </span>
<div class="whitoutcol whitoutcol"> <div class="whitoutcol whitoutcol">
<asp:DropDownList ID="DdlProveedorSucursal" CssClass=" select2me" AppendDataBoundItems="true" DataValueField="CveProveedorSucursal" DataTextField="ProveedorSucursal" runat="server" Width="185px"> <asp:DropDownList ID="DdlProveedorSucursal" CssClass=" select2me" AppendDataBoundItems="true" DataValueField="CveProveedorSucursal" DataTextField="ProveedorSucursal" runat="server" Width="185px">
</asp:DropDownList> </asp:DropDownList>
@@ -422,7 +421,7 @@
</div> </div>
<div class="form-group proveedoreespes"> <div class="form-group proveedoreespes">
<span class="whitoutcol linewhitsize proveedoreespes" style="height: 100%; vertical-align: middle;">Estatus:</span> <span class="whitoutcol proveedoreespes" style="height: 100%; vertical-align: middle;">Estatus:</span>
<div class="whitoutcol whitoutcol" style="width: 180px;"> <div class="whitoutcol whitoutcol" style="width: 180px;">
<asp:Label ID="LblCompraEstatus" runat="server" Text="Recibida"></asp:Label><br /> <asp:Label ID="LblCompraEstatus" runat="server" Text="Recibida"></asp:Label><br />
<asp:CheckBox CssClass="md-checksd" ID="ChkProgramarPago" runat="server" Text="Autorizada" Visible="False" /> <asp:CheckBox CssClass="md-checksd" ID="ChkProgramarPago" runat="server" Text="Autorizada" Visible="False" />
@@ -433,25 +432,21 @@
</div> </div>
</div> </div>
<div class="form-group proveedoreespes" id="trImporte" runat="server" visible="False"> <div class="form-group proveedoreespes" id="trImporte" runat="server" visible="False">
<span class="whitoutcol linewhitsize proveedoreespes">Importe: </span> <span class="whitoutcol proveedoreespes">Importe: </span>
<div class="whitoutcol whitoutcol"> <div class="whitoutcol whitoutcol">
<asp:HyperLink ID="HplImporte" CssClass="Texto thickbox" runat="server"></asp:HyperLink></td> <asp:HyperLink ID="HplImporte" CssClass="Texto thickbox" runat="server"></asp:HyperLink>
</div> </div>
</div> </div>
<div class="form-group proveedoreespes" id="trSaldo" runat="server" visible="False"> <div class="form-group proveedoreespes" id="trSaldo" runat="server" visible="False">
<span class="whitoutcol linewhitsize proveedoreespes">Saldo: </span> <span class="whitoutcol proveedoreespes">Saldo: </span>
<div class="whitoutcol whitoutcol"> <div class="whitoutcol whitoutcol">
<asp:HyperLink ID="HplSaldoAuxiliar" CssClass="Texto thickbox" runat="server"></asp:HyperLink></td> <asp:HyperLink ID="HplSaldoAuxiliar" CssClass="Texto thickbox" runat="server"></asp:HyperLink>
</div> </div>
</div> </div>
<div class="form-group proveedoreespes" id="trContabilizada" runat="server" visible="true"> <div class="form-group proveedoreespes" id="trContabilizada" runat="server" visible="true">
<span class="whitoutcol linewhitsize proveedoreespes">Contabilizada: </span> <span class="whitoutcol proveedoreespes">Contabilizada: </span>
<div class="whitoutcol whitoutcol"> <div class="whitoutcol whitoutcol">
<asp:HyperLink ID="HplCompraContabilizada" runat="server" Text="No"></asp:HyperLink> <asp:HyperLink ID="HplCompraContabilizada" runat="server" Text="No"></asp:HyperLink>
<%--<asp:HyperLink ID="HplPolizaCancelación" runat="server" Visible="false" Text="Cancelación"></asp:HyperLink>--%> <%--<asp:HyperLink ID="HplPolizaCancelación" runat="server" Visible="false" Text="Cancelación"></asp:HyperLink>--%>
@@ -460,13 +455,13 @@
</div> </div>
</div> </div>
<div class="form-group proveedoreespes" runat="server" id="divTipoFactura" visible="false"> <div class="form-group proveedoreespes" runat="server" id="divTipoFactura" visible="false">
<span class="whitoutcol linewhitsize proveedoreespes">Tipo Factura: </span> <span class="whitoutcol proveedoreespes">Tipo Factura: </span>
<div class="whitoutcol whitoutcol"> <div class="whitoutcol whitoutcol">
<asp:Label ID="LblTipoFact" runat="server" Text="CBB"></asp:Label> <asp:Label ID="LblTipoFact" runat="server" Text="CBB"></asp:Label>
</div> </div>
</div> </div>
<div class="form-group proveedoreespes"> <div class="form-group proveedoreespes">
<span class="whitoutcol linewhitsize proveedoreespes">Validada SAT: </span> <span class="whitoutcol proveedoreespes">Validada SAT: </span>
<div class="whitoutcol whitoutcol"> <div class="whitoutcol whitoutcol">
<asp:DropDownList ID="DdlValidadaSAT" CssClass="form-control input-sm" runat="server" Enabled="false" Width="78px"> <asp:DropDownList ID="DdlValidadaSAT" CssClass="form-control input-sm" runat="server" Enabled="false" Width="78px">
<asp:ListItem>No</asp:ListItem> <asp:ListItem>No</asp:ListItem>
@@ -475,19 +470,19 @@
</div> </div>
</div> </div>
<div class="form-group proveedoreespes"> <div class="form-group proveedoreespes">
<span class="whitoutcol linewhitsize proveedoreespes">Capturó: </span> <span class="whitoutcol proveedoreespes">Capturó: </span>
<div class="whitoutcol whitoutcol"> <div class="whitoutcol whitoutcol">
<asp:Label ID="LblUsuarioCaptura" runat="server"></asp:Label> <asp:Label ID="LblUsuarioCaptura" runat="server"></asp:Label>
</div> </div>
</div> </div>
<div class="form-group proveedoreespes"> <div class="form-group proveedoreespes">
<span class="whitoutcol linewhitsize proveedoreespes">F. Captura </span> <span class="whitoutcol proveedoreespes">F. Captura </span>
<div class="whitoutcol whitoutcol"> <div class="whitoutcol whitoutcol">
<asp:Label ID="LitFechCaptura" runat="server"></asp:Label> <asp:Label ID="LitFechCaptura" runat="server"></asp:Label>
</div> </div>
</div> </div>
<div class="form-group proveedoreespes"> <div class="form-group proveedoreespes">
<span class="whitoutcol linewhitsize proveedoreespes">Tipo Compra:</span> <span class="whitoutcol proveedoreespes">Tipo Compra:</span>
<div class="whitoutcol whitoutcol "> <div class="whitoutcol whitoutcol ">
<asp:DropDownList ID="DdlTipoCompra" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoCompra_SelectedIndexChanged" CssClass="form-control input-sm input-small"> <asp:DropDownList ID="DdlTipoCompra" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoCompra_SelectedIndexChanged" CssClass="form-control input-sm input-small">
@@ -509,20 +504,20 @@
</div> </div>
</div> </div>
<div class="form-group proveedoreespes" runat="server" id="divImportacion" visible="false"> <div class="form-group proveedoreespes" runat="server" id="divImportacion" visible="false">
<span class="whitoutcol linewhitsize proveedoreespes">Importación </span> <span class="whitoutcol proveedoreespes">Importación </span>
<div class="whitoutcol"> <div class="whitoutcol">
<asp:CheckBox runat="server" ID="chkImportacion"> </asp:CheckBox> <asp:CheckBox runat="server" ID="chkImportacion"> </asp:CheckBox>
</div> </div>
</div> </div>
<div class="form-group proveedoreespes" runat="server" id="divCompraImportacion" visible="false"> <div class="form-group proveedoreespes" runat="server" id="divCompraImportacion" visible="false">
<span class="whitoutcol linewhitsize proveedoreespes"> <span class="whitoutcol proveedoreespes">
<asp:Literal ID="LtlImportacionTexto" runat="server">Importación</asp:Literal>:</span> <asp:Literal ID="LtlImportacionTexto" runat="server">Importación</asp:Literal>:</span>
<div class="whitoutcol"> <div class="whitoutcol">
<asp:HyperLink runat="server" ID="HplCompraImportacion" CssClass="Texto"> </asp:HyperLink> <asp:HyperLink runat="server" ID="HplCompraImportacion" CssClass="Texto"> </asp:HyperLink>
</div> </div>
</div> </div>
<div class="form-group proveedoreespes" runat="server" id="divFolioGarantia" visible="false"> <div class="form-group proveedoreespes" runat="server" id="divFolioGarantia" visible="false">
<span class="whitoutcol linewhitsize proveedoreespes">Folio Garantía </span> <span class="whitoutcol proveedoreespes">Folio Garantía </span>
<div class="whitoutcol whitoutcol"> <div class="whitoutcol whitoutcol">
<asp:DropDownList ID="DdlFolioGarantia" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="FolioGarantia" DataValueField="CveFolioGarantia" OnSelectedIndexChanged="DdlFolioGarantia_SelectedIndexChanged" CssClass="form-control input-sm input-small select2me"> <asp:DropDownList ID="DdlFolioGarantia" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="FolioGarantia" DataValueField="CveFolioGarantia" OnSelectedIndexChanged="DdlFolioGarantia_SelectedIndexChanged" CssClass="form-control input-sm input-small select2me">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
@@ -530,6 +525,15 @@
<asp:Button ID="BtnFolioGarantiaRestantes" runat="server" Text="Resta" CssClass="default" OnClick="BtnFolioGarantiaRestantes_Click" /> <asp:Button ID="BtnFolioGarantiaRestantes" runat="server" Text="Resta" CssClass="default" OnClick="BtnFolioGarantiaRestantes_Click" />
</div> </div>
</div> </div>
<div class="form-group proveedoreespes" runat="server" id="divRecoleccion" visible="false">
<span class="whitoutcol proveedoreespes">Recolección</span>
<div class="whitoutcol whitoutcol">
<asp:DropDownList ID="DdlRecoleccion" runat="server" AutoPostBack="true" DataTextField="Referencia" DataValueField="CveEntregaAlmacen" OnSelectedIndexChanged="DdlFolioGarantia_SelectedIndexChanged" CssClass="form-control input-sm input-small select2me">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
<asp:Button ID="BtnRecolecciónAplicar" runat="server" Text="Aplicar" CssClass="default" OnClick="BtnRecolecciónAplicar_Click" />
</div>
</div>
</div> </div>
</div> </div>
</ContentTemplate> </ContentTemplate>
@@ -917,14 +921,13 @@
<asp:Button runat="server" ID="btnProrateo" Visible="false" Text="Prorratear" CommandArgument="Compras" CssClass="btn btn-success" /> <asp:Button runat="server" ID="btnProrateo" Visible="false" Text="Prorratear" CommandArgument="Compras" CssClass="btn btn-success" />
<asp:Button runat="server" ID="btnProrateo2" Visible="false" Text="Prorratear Nomina" CommandArgument="Nomina" CssClass="btn btn-success" /> <asp:Button runat="server" ID="btnProrateo2" Visible="false" Text="Prorratear Nomina" CommandArgument="Nomina" CssClass="btn btn-success" />
<asp:Button runat="server" ID="BtnProrateoDeducible" Visible="false" Text="Prorratear 8.5%" CommandArgument="Prorratear Deducible" CssClass="btn btn-success" /> <asp:Button runat="server" ID="BtnProrateoDeducible" Visible="false" Text="Prorratear 8.5%" CommandArgument="Prorratear Deducible" CssClass="btn btn-success" />
</div> </div>
</div> </div>
<div class="col-md-6 "> <div class="col-md-6 ">
<div id="dvTotales" runat="server" class="well" style="width: 100%; max-width: 400px; float: right;"> <div id="dvTotales" runat="server" class="well" style="width: 100%; max-width: 400px; margin-top:0px; padding:0px; float: right;">
<table border="0" rules="none" class="TextTab" width="100%"> <table border="0" rules="none" class="TextTab" width="100%">
<tr> <tr id="trTotalOriginal" runat="server" visible="false">
<td></td> <td></td>
<td></td> <td></td>
<td id="tdT0" runat="server" visible="false"><strong>Original</strong></td> <td id="tdT0" runat="server" visible="false"><strong>Original</strong></td>
@@ -954,7 +957,7 @@
<td width="82px"> <td width="82px">
<asp:TextBox ID="TxtSubTotal" runat="server" BorderStyle="None" Style="text-align: right;" Text="0.00" Width="98px"></asp:TextBox> <asp:TextBox ID="TxtSubTotal" runat="server" BorderStyle="None" Style="text-align: right;" Text="0.00" Width="98px"></asp:TextBox>
</td> </td>
<td width="82px" runat="server" id="tdT1" visible="false"> <td width="22px" runat="server" id="tdT1" visible="false">
<asp:Label Text="" ID="LbSubTotalOriginal" runat="server" /> <asp:Label Text="" ID="LbSubTotalOriginal" runat="server" />
</td> </td>
<td>&nbsp;</td> <td>&nbsp;</td>
@@ -975,12 +978,9 @@
<td runat="server" id="tdT3" visible="false"> <td runat="server" id="tdT3" visible="false">
<asp:Label Text="" ID="LbAmortizacionOriginal" runat="server" /> <asp:Label Text="" ID="LbAmortizacionOriginal" runat="server" />
</td> </td>
<td align="right">&nbsp <td align="left">&nbsp
&nbsp; <i class="fa fa-money font-green" title="Aplicar Amortización" data-toggle="tooltip" data-placement="top" runat="server" id="ImgAnticiposPendientes" visible="False" style="cursor: pointer;"></i> &nbsp; <i class="fa fa-money font-green" title="Aplicar Amortización" data-toggle="tooltip" data-placement="top" runat="server" id="ImgAnticiposPendientes" visible="False" style="cursor: pointer;"></i>
</td> &nbsp;
<td align="right">&nbsp
&nbsp;
<asp:HyperLink ID="HLAplicaNCFact" NavigateUrl="#" Visible="false" data-toggle="modal" data-target="#FacturaNC" runat="server"><i title="Aplicar Notas de Credito" data-toggle="tooltip" class='fa fa-money font-green'></i></asp:HyperLink> <asp:HyperLink ID="HLAplicaNCFact" NavigateUrl="#" Visible="false" data-toggle="modal" data-target="#FacturaNC" runat="server"><i title="Aplicar Notas de Credito" data-toggle="tooltip" class='fa fa-money font-green'></i></asp:HyperLink>
</td> </td>
</tr> </tr>
@@ -1184,7 +1184,7 @@
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<asp:UpdatePanel ID="UpINV" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpInv" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvInv" runat="server" DataKeyNames="Total,PU,Cantidad,CvePS" AutoGenerateColumns="false" GridLines="None" EmptyDataText="Aun no hay registros." ShowHeaderWhenEmpty="True" CssClass="table table-striped table-hover Widthall" Visible="false"> <asp:GridView ID="GvInv" runat="server" DataKeyNames="Total,PU,Cantidad,CvePS" AutoGenerateColumns="false" GridLines="None" EmptyDataText="Aun no hay registros." ShowHeaderWhenEmpty="True" CssClass="table table-striped table-hover Widthall" Visible="false">
<Columns> <Columns>

202
Compras/Compras.aspx.vb
View File

@@ -1748,6 +1748,7 @@ Partial Class Compras_Compras
DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("DEV")) DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("DEV"))
DdlTipoCompra.Items.Remove(DdlTipoCompra.Items.FindByValue("6")) DdlTipoCompra.Items.Remove(DdlTipoCompra.Items.FindByValue("6"))
DdlTipoCompra.Items.Remove(DdlTipoCompra.Items.FindByValue("11")) DdlTipoCompra.Items.Remove(DdlTipoCompra.Items.FindByValue("11"))
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then DdlTipoCompra.Items.Add(New ListItem("Recolección", "14"))
Case "E" Case "E"
DdlTipoComprobante.SelectedValue = "NC" DdlTipoComprobante.SelectedValue = "NC"
DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Fac")) DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Fac"))
@@ -1760,6 +1761,7 @@ Partial Class Compras_Compras
DdlTipoCompra.Items.Add(New ListItem("Apoyo Logístico", "9")) DdlTipoCompra.Items.Add(New ListItem("Apoyo Logístico", "9"))
DdlTipoCompra.Items.Add(New ListItem("NC Por Devolución", "11")) DdlTipoCompra.Items.Add(New ListItem("NC Por Devolución", "11"))
DdlTipoCompra.Items.Add(New ListItem("Garantía", "12")) DdlTipoCompra.Items.Add(New ListItem("Garantía", "12"))
DdlTipoCompra.Items.Add(New ListItem("Recolección", "14"))
Case "T" Case "T"
DdlTipoCompra.Items.Clear() DdlTipoCompra.Items.Clear()
DdlTipoCompra.Items.Add(New ListItem("Apoyo Logístico", "9")) DdlTipoCompra.Items.Add(New ListItem("Apoyo Logístico", "9"))
@@ -3398,7 +3400,7 @@ Partial Class Compras_Compras
End Sub End Sub
Private Sub CargaTiposAF() Private Sub CargaTiposAF()
ViewState("TmpDTTiposAF") = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa) ViewState("TmpDTTiposAF") = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa).Copy()
Dim Row As DataRow = DirectCast(ViewState("TmpDTTiposAF"), DataTable).NewRow() Dim Row As DataRow = DirectCast(ViewState("TmpDTTiposAF"), DataTable).NewRow()
Row("CveTipoActivoFijo") = -1 : Row("TipoActivoFijo") = "Seleccione" Row("CveTipoActivoFijo") = -1 : Row("TipoActivoFijo") = "Seleccione"
DirectCast(ViewState("TmpDTTiposAF"), DataTable).Rows.InsertAt(Row, 0) DirectCast(ViewState("TmpDTTiposAF"), DataTable).Rows.InsertAt(Row, 0)
@@ -4344,7 +4346,7 @@ Partial Class Compras_Compras
UM.Dispose() UM.Dispose()
PSS.Dispose() PSS.Dispose()
If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoCompra.SelectedValue = "12" Then 'cuando es garantía, debe de especificar la salida de almacen If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoCompra.SelectedValue.Contiene("12", "14") Then 'cuando es garantía, debe de especificar la salida de almacen
If Not GvInv.HeaderRow.FCCheckBox("cbAll").Checked OrElse GvInv.HeaderRow.FCDropDownList("ddlAlmacen").SelectedValue.ToEntero <= 0 Then If Not GvInv.HeaderRow.FCCheckBox("cbAll").Checked OrElse GvInv.HeaderRow.FCDropDownList("ddlAlmacen").SelectedValue.ToEntero <= 0 Then
Alert("No ha especificado la salida de almacen en la garantía.", TipoMensaje.MsgAdvertencia) Alert("No ha especificado la salida de almacen en la garantía.", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
@@ -5279,12 +5281,21 @@ Partial Class Compras_Compras
Dim indice As Integer = 0 Dim indice As Integer = 0
Dim ImporteConcepto As Decimal = 0 Dim ImporteConcepto As Decimal = 0
Dim tCveFolioGarantia As Integer = -1 Dim tCveFolioGarantia As Integer = -1
Dim tCveEntregaAlmacen As Integer = -1
Dim CveConceptoMovimiento As Integer = 2 Dim CveConceptoMovimiento As Integer = 2
'apoyo logistico/garantia If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then 'cuando es empresa acumuladora
If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso DdlTipoCompra.SelectedValue = "12" Then 'garantía 'apoyo logistico/garantia
CveConceptoMovimiento = 13 If DdlTipoCompra.SelectedValue = "12" Then 'garantía
tCveFolioGarantia = DdlFolioGarantia.SelectedValue.ToEntero CveConceptoMovimiento = 13
tCveFolioGarantia = DdlFolioGarantia.SelectedValue.ToEntero
End If
'recolección
If DdlTipoCompra.SelectedValue = "14" Then 'recolección
CveConceptoMovimiento = 42
tCveEntregaAlmacen = DdlRecoleccion.SelectedValue.ToEntero
End If
End If End If
If (DdlTipoComprobante.SelectedValue = "Fac" AndAlso CveCompraRefacturacion <= 0) OrElse CveConceptoMovimiento = 13 Then If (DdlTipoComprobante.SelectedValue = "Fac" AndAlso CveCompraRefacturacion <= 0) OrElse CveConceptoMovimiento = 13 Then
For Each tCveAlmacen As Integer In ListAlmacenes For Each tCveAlmacen As Integer In ListAlmacenes
@@ -5296,7 +5307,7 @@ Partial Class Compras_Compras
Dim fecha As Date = TxtFecha.Text.ToDate Dim fecha As Date = TxtFecha.Text.ToDate
If Not UsuarioActual.Empresa.UsaAC Then fecha = NowADS() If Not UsuarioActual.Empresa.UsaAC Then fecha = NowADS()
CveMovimientoInventario = ObjInventario.AddMovimiento(tCveAlmacen, CveConceptoMovimiento, 1, fecha, 0, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, TipoCambio:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, TipoCambioGuardar), CveFolioGarantia:=tCveFolioGarantia, Modulo:="Comp/G2") CveMovimientoInventario = ObjInventario.AddMovimiento(tCveAlmacen, CveConceptoMovimiento, 1, fecha, 0, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, TipoCambio:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, TipoCambioGuardar), CveFolioGarantia:=tCveFolioGarantia, Modulo:="Comp/G2", CveEntregaAlmacen:=tCveEntregaAlmacen)
If CveMovimientoInventario <= 0 Then If CveMovimientoInventario <= 0 Then
ErrorMovInv = True ErrorMovInv = True
@@ -6311,7 +6322,7 @@ Partial Class Compras_Compras
Dim RegistroCuentaPuente As Boolean = False Dim RegistroCuentaPuente As Boolean = False
'NC CON PRODUCTOS - CUENTA PUENTE 'NC CON PRODUCTOS - CUENTA PUENTE
If DdlTipoComprobante.SelectedValue = "NC" And DdlTipoCompra.SelectedValue.Contiene("9", "12") Then If DdlTipoComprobante.SelectedValue = "NC" And DdlTipoCompra.SelectedValue.Contiene("9", "12", "14") Then
RegistraConcepto225 = True RegistraConcepto225 = True
End If End If
@@ -6332,7 +6343,7 @@ Partial Class Compras_Compras
CveMovimientoDevolucion = Devolucion.CveMovimiento CveMovimientoDevolucion = Devolucion.CveMovimiento
End If End If
'cuando es garantía. 'cuando es garantía.
If DdlTipoCompra.SelectedValue = "12" Then If DdlTipoCompra.SelectedValue.Contiene("12", "14") Then
ConceptoContabilizacionNC = 259 ConceptoContabilizacionNC = 259
End If End If
@@ -10217,7 +10228,7 @@ Partial Class Compras_Compras
If UsuarioActual.Empresa.UsaAC Then e.Row.FCCheckBox("cbInv").Enabled = False If UsuarioActual.Empresa.UsaAC Then e.Row.FCCheckBox("cbInv").Enabled = False
Dim StrTipo As String = "CveTipoAlmacen IN (1,2,7,14,19)" Dim StrTipo As String = "CveTipoAlmacen IN (1,2,7,14,19)"
If DdlTipoCompra.SelectedValue.Contiene("9", "12") Then StrTipo = "CveTipoAlmacen IN (21)" If DdlTipoCompra.SelectedValue.Contiene("9", "12", "14") Then StrTipo = "CveTipoAlmacen IN (21)"
If EsDevolucionApoyoLogistico Then StrTipo = "CveTipoAlmacen = 27" If EsDevolucionApoyoLogistico Then StrTipo = "CveTipoAlmacen = 27"
e.Row.FCDropDownList("ddlEAlmacen").DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros(StrTipo) e.Row.FCDropDownList("ddlEAlmacen").DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros(StrTipo)
@@ -10410,14 +10421,60 @@ Partial Class Compras_Compras
DdlTipoTransaccionCaja.Items.Insert(0, New ListItem("Seleccione Tipo Movimiento", "-1")) DdlTipoTransaccionCaja.Items.Insert(0, New ListItem("Seleccione Tipo Movimiento", "-1"))
End Sub 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() 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.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.DataBind()
DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1")) 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.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.DataBind()
DdlCuentaCaja.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlCuentaCaja.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub End Sub
@@ -14228,7 +14285,7 @@ Partial Class Compras_Compras
If DrTipoGasto IsNot Nothing Then If DrTipoGasto IsNot Nothing Then
CveTipoGasto = DrTipoGasto("CveTipoGasto").ToString.ToEntero CveTipoGasto = DrTipoGasto("CveTipoGasto").ToString.ToEntero
TipoGasto = DrTipoGasto("TipoGasto").ToString TipoGasto = DrTipoGasto("TipoGasto").ToString
End If End IfclsVa
End If 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, AddPS(Cantidad, CveUM, UM, CveClasificacion, Clasificacion, CvePS, PS, CveTipoPS, CveSubProyectoContrato, SubProyecto, Proyecto, CveProyecto, Obs, PU, Total, IVA, RetIVA, RetISR, IEPSPS, IEPSPSIVA, Descuento, CveOrdenCompraDetalle, False,
@@ -15778,6 +15835,7 @@ Partial Class Compras_Compras
End Sub End Sub
Private Sub OriginalesVisible(Accion As Boolean) Private Sub OriginalesVisible(Accion As Boolean)
tdT0.Visible = Accion tdT0.Visible = Accion
trTotalOriginal.Visible = Accion
tdT1.Visible = Accion tdT1.Visible = Accion
tdT2.Visible = Accion tdT2.Visible = Accion
tdT3.Visible = Accion tdT3.Visible = Accion
@@ -15796,7 +15854,7 @@ Partial Class Compras_Compras
'VALIDA IMPORTES 'VALIDA IMPORTES
'VALIDA TOTAL CON LOS IMPORTES TOTALES 'VALIDA TOTAL CON LOS IMPORTES TOTALES
Dim TempSubTotal, TempDescuentos, TempIVA, TempSubTotal2, TempRetIVA, TempRetISR, TempTotal, DifTotales, TempIEPS As Double Dim TempSubTotal, TempDescuentos, TempIVA, TempSubTotal2, TempRetIVA, TempRetISR, TempTotal, DifTotales, TempIEPS As Decimal
Dim Amortizacion As Decimal = 0 Dim Amortizacion As Decimal = 0
Dim TieneAmortizacion As Boolean = False Dim TieneAmortizacion As Boolean = False
@@ -15813,26 +15871,25 @@ Partial Class Compras_Compras
TxtSubTotal.Text = (TxtSubTotal.Text.ToDouble + Amortizacion).ToString TxtSubTotal.Text = (TxtSubTotal.Text.ToDouble + Amortizacion).ToString
End If End If
TempSubTotal = TxtSubTotal.Text.ToDecimal
TempSubTotal = TxtSubTotal.Text.ToDouble
SubTotalOriginal = TxtSubTotal.Text.ToDecimal SubTotalOriginal = TxtSubTotal.Text.ToDecimal
SubTotal2Original = TxtSubTotal2.Text.ToDecimal SubTotal2Original = TxtSubTotal2.Text.ToDecimal
TempDescuentos = TxtDescuento.Text.Trim.ToDouble + Amortizacion TempDescuentos = TxtDescuento.Text.Trim.ToDecimal + Amortizacion
TempSubTotal2 = TempSubTotal - TempDescuentos TempSubTotal2 = TempSubTotal - TempDescuentos
TempIVA = TxtIVA.Text.ToDouble TempIVA = TxtIVA.Text.ToDecimal
TempIEPS = TxtIEPS.Text.ToDouble TempIEPS = TxtIEPS.Text.ToDecimal
TempRetIVA = TxtRetIVA.Text.ToDouble TempRetIVA = TxtRetIVA.Text.ToDecimal
TempRetISR = TxtRetISR.Text.ToDouble TempRetISR = TxtRetISR.Text.ToDecimal
TempTotal = Math.Round(TempSubTotal2 + TempIVA + TempIEPS - TempRetIVA - TempRetISR + TxtOtrosImpuestos.Text.ToDouble - Amortizacion, 2) TempTotal = Math.Round(TempSubTotal2 + TempIVA + TempIEPS - TempRetIVA - TempRetISR + TxtOtrosImpuestos.Text.ToDecimal - Amortizacion, 2)
DifTotales = TxtTotal.Text.ToDouble - TempTotal DifTotales = TxtTotal.Text.ToDecimal - TempTotal
Dim DiferenciaPermitida As Decimal = 0.6D Dim DiferenciaPermitida As Decimal = 0.6D
If Math.Abs(DifTotales) > DiferenciaPermitida Then If Math.Abs(DifTotales) > DiferenciaPermitida Then
Alert(String.Format("Los importes de los conceptos (Productos/Servicios) no cuadran con el total. Por favor verifique y vuelva a intentar.[{0}]", Math.Abs(DifTotales) - DiferenciaPermitida), TipoMensaje.MsgAdvertencia) Alert(String.Format("Los importes de los conceptos (Productos/Servicios) no cuadran con el total. Por favor verifique y vuelva a intentar.[{0}]", Math.Abs(DifTotales) - DiferenciaPermitida), TipoMensaje.MsgAdvertencia)
EsValido = False EsValido = False
ElseIf DifTotales <> 0 Then ElseIf DifTotales <> 0 Then
TxtSubTotal2.Text = (TxtSubTotal2.Text.ToDouble + DifTotales).ToString TxtSubTotal2.Text = (TxtSubTotal2.Text.ToDecimal + DifTotales).ToString
TxtSubTotal.Text = (TxtSubTotal.Text.ToDouble + DifTotales).ToString TxtSubTotal.Text = (TxtSubTotal.Text.ToDecimal + DifTotales).ToString
SubTotalOriginal = TxtSubTotal.Text.ToDecimal SubTotalOriginal = TxtSubTotal.Text.ToDecimal
SubTotal2Original = TxtSubTotal2.Text.ToDecimal SubTotal2Original = TxtSubTotal2.Text.ToDecimal
End If End If
@@ -16691,7 +16748,7 @@ Partial Class Compras_Compras
If DrPS IsNot Nothing Then If DrPS IsNot Nothing Then
Row("PSCodigo") = If(PSCodigo = "", DrPS("PSCodigo").ToString, PSCodigo) Row("PSCodigo") = If(PSCodigo = "", DrPS("PSCodigo").ToString, PSCodigo)
Row("CveMetodoInventario") = DrPS("Inv_CveMetodoInventario").ToString.ToEntero Row("CveMetodoInventario") = DrPS("Inv_CveMetodoInventario").ToString.ToEntero
If DdlTipoCompra.SelectedValue = "12" AndAlso DrPS("AplicaSerie").ToString = "True" Then If Not DdlTipoCompra.SelectedValue.Contiene("12", "14") AndAlso DrPS("AplicaSerie").ToString = "True" Then
Row("CveMetodoInventario") = "1" Row("CveMetodoInventario") = "1"
End If End If
Else Else
@@ -18792,11 +18849,11 @@ Partial Class Compras_Compras
If CvePrePoliza > 0 Then If CvePrePoliza > 0 Then
If CveMoneda = 2 Then If CveMoneda = 2 Then
ImporteME = (DiferenciaInvOC / TCInvOC).RoundAD() ImporteME = (DiferenciaInvOC / TCInvOC).RoundAD()
ImporteMEComp = ((ImporteME * TCInvOC) - ImporteME).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 If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoCosto, DiferenciaInvOCCosto, DiferenciaInvOCCosto, 177, SerieFolio, ConceptoPartida, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, CveOCDetalle:=CveOCDetalle, CveSubProyecto:=CveSubProyecto) Then
Retorno = False Retorno = False
@@ -18804,12 +18861,8 @@ Partial Class Compras_Compras
End If 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, 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 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 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
Retorno = False Retorno = False
Exit For Exit For
End If End If
@@ -18818,6 +18871,10 @@ Partial Class Compras_Compras
Exit For Exit For
End If End If
Else Else
Retorno = False
Exit For
End If
Else
'2018.11.24 se cambia concepto 177, de cargo a abono negativo., petición MALL '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 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 If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaInvOC, DiferenciaInvOC, 176, SerieFolio, ConceptoPartida, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, CveOCDetalle:=CveOCDetalle, CveColectiva:=CveColectiva) Then
@@ -18825,22 +18882,22 @@ Partial Class Compras_Compras
Exit For Exit For
End If End If
Else Else
Retorno = False
Exit For
End If
End If
If Not OC.UpdateOrdenCompraDetalleAjuste(CveOrdenCompra, CveOCDetalle, PUCompra, UsuarioActual.CveUsuario) Then
Retorno = False Retorno = False
Exit For Exit For
End If End If
End If
If Not OC.UpdateOrdenCompraDetalleAjuste(CveOrdenCompra, CveOCDetalle, PUCompra, UsuarioActual.CveUsuario) Then
Retorno = False
Exit For
End If
If Retorno Then 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 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 Retorno = False
End If
End If End If
End If End If
End If End If
End If
Next Next
If Retorno AndAlso Not ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then If Retorno AndAlso Not ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then
Alert("No se procesaron las diferencias en precio.", TipoMensaje.MsgAdvertencia) Alert("No se procesaron las diferencias en precio.", TipoMensaje.MsgAdvertencia)
@@ -18911,23 +18968,40 @@ Partial Class Compras_Compras
Protected Sub DdlTipoCompra_SelectedIndexChanged(sender As Object, e As EventArgs) Protected Sub DdlTipoCompra_SelectedIndexChanged(sender As Object, e As EventArgs)
If DdlTipoCompra.SelectedValue.ToEntero.Contiene(9, 10, 12) Then 'Al seleccionar apoyo logístico se cargan los amancenes de devoculcion proveedor para dar entrada If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then 'cuando es emp acumuladora
If DdlTipoCompra.SelectedValue.Contiene("9", "10", "12") Then 'Al seleccionar apoyo logístico se cargan los amancenes de devoculcion proveedor para dar entrada
If DdlTipoCompra.SelectedValue = "12" AndAlso UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then 'cuando es emp acumuladora If DdlTipoCompra.SelectedValue = "12" Then 'cuando es emp acumuladora
divFolioGarantia.Visible = True divFolioGarantia.Visible = True
Using objAcum As New ClsAcumuladores Using objAcum As New ClsAcumuladores
If objAcum.FoliosGarantiaGet(-1, UsuarioActual.Empresa.CveEmpresa, Estatus:=2, TipoFolio:="-1", Area:=-1, CveSubProyecto:=-1) Then If objAcum.FoliosGarantiaGet(-1, UsuarioActual.Empresa.CveEmpresa, Estatus:=2, TipoFolio:="-1", Area:=-1, CveSubProyecto:=-1) Then
DdlFolioGarantia.DataSource = objAcum.DtResultados.FiltraParametros("", "FechaIng DESC") DdlFolioGarantia.DataSource = objAcum.DtResultados.FiltraParametros("", "FechaIng DESC")
DdlFolioGarantia.DataBind() DdlFolioGarantia.DataBind()
End If End If
End Using End Using
End If
'cambia si hay ps con uso de serie
For Each dr As DataRow In TmpDT.Rows
dr("CveMetodoInventario") = 1
Next
CargaGvInv()
Else
If DdlTipoCompra.SelectedValue.Contiene("14") Then 'Recolección
divRecoleccion.Visible = True
Using objAcum As New ClsGenerales
If objAcum.GetInvEntregaAlmacenRuta(-1, MinFecha, MaxFecha, UsuarioActual.Empresa.CveEmpresa, 2, Estatus:=0) Then
DdlRecoleccion.DataSource = objAcum.DtResultados.FiltraParametros("", "Referencia DESC")
DdlRecoleccion.DataBind()
End If
End Using
'cambia si hay ps con uso de serie
For Each dr As DataRow In TmpDT.Rows
dr("CveMetodoInventario") = 1
Next
CargaGvInv()
End If
End If End If
'cambia si hay ps con uso de serie
For Each dr As DataRow In TmpDT.Rows
dr("CveMetodoInventario") = 1
Next
CargaGvInv()
End If End If
End Sub End Sub
@@ -19524,11 +19598,7 @@ Partial Class Compras_Compras
Dim ProcesoError As Boolean = True Dim ProcesoError As Boolean = True
If FechaCompraOriginal <> TxtFecha.Text.ToDate Then If FechaCompraOriginal <> TxtFecha.Text.ToDate Then
Dim ObjCompra As New ClsCompras Dim ObjCompra As New ClsCompras
ObjCompra.IniciaTransacSQL()
Dim ObjEventos As New ClsOIEventos(ObjCompra.IniciaTransacSQL()) Dim ObjEventos As New ClsOIEventos(ObjCompra.IniciaTransacSQL())
If ObjEventos.AddEventoBitacora($"Cambio de Fecha de compra de { FechaCompraOriginal.ToString("dd/MM/yyyy")} a {TxtFecha.Text}", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=CveCompra) Then If ObjEventos.AddEventoBitacora($"Cambio de Fecha de compra de { FechaCompraOriginal.ToString("dd/MM/yyyy")} a {TxtFecha.Text}", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=CveCompra) Then
@@ -19543,7 +19613,6 @@ Partial Class Compras_Compras
ProcesoError = True ProcesoError = True
End If End If
If Not ProcesoError Then If Not ProcesoError Then
ObjCompra.Commit() ObjCompra.Commit()
FechaCompraOriginal = TxtFecha.Text.ToDate FechaCompraOriginal = TxtFecha.Text.ToDate
@@ -19558,11 +19627,8 @@ Partial Class Compras_Compras
CargaEventoBitacora() CargaEventoBitacora()
UPEventoBitacora.Update() UPEventoBitacora.Update()
End If End If
End If End If
End Sub End Sub

12
Compras/PopUpVerFactura.aspx.vb
View File

@@ -3390,14 +3390,12 @@ Partial Class PopUpVerFactura
If CveCliente = 819998 Then If CveCliente = 819998 Then
RutaFormato = "{0}Formatos\TrasladoAngeles.rdlc" 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 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 End If
ObjVentas.Dispose() ObjVentas.Dispose()

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

@@ -85,7 +85,7 @@
<Relations isList="true" count="0" /> <Relations isList="true" count="0" />
<Report isRef="0" /> <Report isRef="0" />
<Resources isList="true" count="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,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,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> <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,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,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,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> </Variables>
</Dictionary> </Dictionary>
<EngineVersion>EngineV2</EngineVersion> <EngineVersion>EngineV2</EngineVersion>
@@ -394,7 +396,7 @@ Tipo de Cambio: {TipoCambio}</Text>
<Textbox32 Ref="13" type="Text" isKey="true"> <Textbox32 Ref="13" type="Text" isKey="true">
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
<CanGrow>True</CanGrow> <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" /> <Conditions isList="true" count="0" />
<Expressions isList="true" count="0" /> <Expressions isList="true" count="0" />
<Font>Myriad Pro,8,Regular,Point,False,0</Font> <Font>Myriad Pro,8,Regular,Point,False,0</Font>
@@ -405,9 +407,9 @@ Tipo de Cambio: {TipoCambio}</Text>
<Text>SMS SMART MEDICAL SOLUTIONS <Text>SMS SMART MEDICAL SOLUTIONS
SSM1908213A0 SSM1908213A0
NEBRASKA 157, Col. NAPOLES NEBRASKA 157, Col. NAPOLES
BENITO JUAREZ BENITO JUAREZ, C.P. 03810
C.P. 03810 CIUDAD DE MEXICO
CIUDAD DE MEXICO</Text> Teléfono: +52 551 563 3271 Correo:support@smsmedicalsolutions.com</Text>
<TextBrush>[0:0:0]</TextBrush> <TextBrush>[0:0:0]</TextBrush>
<TextOptions>,,,,WordWrap=True,A=0</TextOptions> <TextOptions>,,,,WordWrap=True,A=0</TextOptions>
<Type>Expression</Type> <Type>Expression</Type>
@@ -429,14 +431,9 @@ CIUDAD DE MEXICO</Text>
Cliente: {ClienteCodigo} - {ClienteNombre}.&lt;br&gt; Cliente: {ClienteCodigo} - {ClienteNombre}.&lt;br&gt;
Sucursal: {ClienteSucursal}. &amp;nbsp; RFC: {ClienteRFC}.&lt;br&gt; Sucursal: {ClienteSucursal}. &amp;nbsp; RFC: {ClienteRFC}.&lt;br&gt;
Calle:{ClienteCalle} {ClienteNoExt}. Colonia: {ClienteColonia}.&amp;nbsp; Ciudad: {ClienteCiudad}.&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; 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;
Regimen Fiscal Receptor: {ClienteRegimenFiscal}.&lt;br&gt; {IIF(Documentacion != "", "Proveedor:" + Documentacion + ".", "")}&lt;br&gt;
&lt;b&gt; {IIF(Medico != "", "Médico:" + Medico + "." , "")}&lt;br&gt;{IIF(Medico != "", "Procedimiento:" + Procedimiento + ".", "")}</Text>
{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>
<TextBrush>Black</TextBrush> <TextBrush>Black</TextBrush>
<TextOptions>,,,,WordWrap=True,A=0</TextOptions> <TextOptions>,,,,WordWrap=True,A=0</TextOptions>
<TextQuality>Wysiwyg</TextQuality> <TextQuality>Wysiwyg</TextQuality>
@@ -452,7 +449,7 @@ Regimen Fiscal Receptor: {ClienteRegimenFiscal}.&lt;br&gt;
<PageFooterBand1 Ref="15" type="PageFooterBand" isKey="true"> <PageFooterBand1 Ref="15" type="PageFooterBand" isKey="true">
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
<CanShrink>True</CanShrink> <CanShrink>True</CanShrink>
<ClientRectangle>0,20.88,21.1,12</ClientRectangle> <ClientRectangle>0,26.36,21.1,12</ClientRectangle>
<Components isList="true" count="5"> <Components isList="true" count="5">
<Panel5 Ref="16" type="Panel" isKey="true"> <Panel5 Ref="16" type="Panel" isKey="true">
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
@@ -1108,8 +1105,8 @@ Sello digital del SAT:
</DataBand3> </DataBand3>
<FooterBand1 Ref="62" type="FooterBand" isKey="true"> <FooterBand1 Ref="62" type="FooterBand" isKey="true">
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
<ClientRectangle>0,9.12,21.1,5.8</ClientRectangle> <ClientRectangle>0,9.12,21.1,7</ClientRectangle>
<Components isList="true" count="8"> <Components isList="true" count="9">
<Panel3 Ref="63" type="Panel" isKey="true"> <Panel3 Ref="63" type="Panel" isKey="true">
<Border>Bottom;Transparent;5;Solid;False;4;Black;True</Border> <Border>Bottom;Transparent;5;Solid;False;4;Black;True</Border>
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
@@ -1365,30 +1362,12 @@ Sello digital del SAT:
<TextBrush>Black</TextBrush> <TextBrush>Black</TextBrush>
<Type>Expression</Type> <Type>Expression</Type>
</Text4> </Text4>
<Textbox26 Ref="81" type="Text" isKey="true"> <Panel7 Ref="81" type="Panel" 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">
<Border>Top, Bottom;[156:195:229];5;Solid;False;4;[227:108:9]</Border> <Border>Top, Bottom;[156:195:229];5;Solid;False;4;[227:108:9]</Border>
<Brush>Transparent</Brush> <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"> <Components isList="true" count="6">
<Text11 Ref="83" type="Text" isKey="true"> <Text11 Ref="82" type="Text" isKey="true">
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
<ClientRectangle>0.2,0.8,7,0.4</ClientRectangle> <ClientRectangle>0.2,0.8,7,0.4</ClientRectangle>
<Conditions isList="true" count="0" /> <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> <Margins>0,0,0,0</Margins>
<Name>Text11</Name> <Name>Text11</Name>
<Page isRef="7" /> <Page isRef="7" />
<Parent isRef="82" /> <Parent isRef="81" />
<Text>Tipo Operacion:{CETipoOperacion}</Text> <Text>Tipo Operacion:{CETipoOperacion}</Text>
<TextBrush>Black</TextBrush> <TextBrush>Black</TextBrush>
<Type>Expression</Type> <Type>Expression</Type>
</Text11> </Text11>
<Text12 Ref="84" type="Text" isKey="true"> <Text12 Ref="83" type="Text" isKey="true">
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
<ClientRectangle>0.2,1.2,7,0.4</ClientRectangle> <ClientRectangle>0.2,1.2,7,0.4</ClientRectangle>
<Conditions isList="true" count="0" /> <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> <Margins>0,0,0,0</Margins>
<Name>Text12</Name> <Name>Text12</Name>
<Page isRef="7" /> <Page isRef="7" />
<Parent isRef="82" /> <Parent isRef="81" />
<Text>Incoterm:{CEIncoterm}</Text> <Text>Incoterm:{CEIncoterm}</Text>
<TextBrush>Black</TextBrush> <TextBrush>Black</TextBrush>
<Type>Expression</Type> <Type>Expression</Type>
</Text12> </Text12>
<Text14 Ref="85" type="Text" isKey="true"> <Text14 Ref="84" type="Text" isKey="true">
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
<ClientRectangle>7.2,0.8,6.6,0.4</ClientRectangle> <ClientRectangle>7.2,0.8,6.6,0.4</ClientRectangle>
<Conditions isList="true" count="0" /> <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> <Margins>0,0,0,0</Margins>
<Name>Text14</Name> <Name>Text14</Name>
<Page isRef="7" /> <Page isRef="7" />
<Parent isRef="82" /> <Parent isRef="81" />
<Text>Clave Pedimento:{CEClavePedimento}</Text> <Text>Clave Pedimento:{CEClavePedimento}</Text>
<TextBrush>Black</TextBrush> <TextBrush>Black</TextBrush>
<Type>Expression</Type> <Type>Expression</Type>
</Text14> </Text14>
<Text15 Ref="86" type="Text" isKey="true"> <Text15 Ref="85" type="Text" isKey="true">
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
<ClientRectangle>7.2,1.2,6.6,0.4</ClientRectangle> <ClientRectangle>7.2,1.2,6.6,0.4</ClientRectangle>
<Conditions isList="true" count="0" /> <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> <Margins>0,0,0,0</Margins>
<Name>Text15</Name> <Name>Text15</Name>
<Page isRef="7" /> <Page isRef="7" />
<Parent isRef="82" /> <Parent isRef="81" />
<Text>Num Reg IdTrib:{CEId}</Text> <Text>Num Reg IdTrib:{CEId}</Text>
<TextBrush>Black</TextBrush> <TextBrush>Black</TextBrush>
<Type>Expression</Type> <Type>Expression</Type>
</Text15> </Text15>
<Text16 Ref="87" type="Text" isKey="true"> <Text16 Ref="86" type="Text" isKey="true">
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
<ClientRectangle>5.2,0.2,10,0.4</ClientRectangle> <ClientRectangle>5.2,0.2,10,0.4</ClientRectangle>
<Conditions isList="true" count="0" /> <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> <Margins>0,0,0,0</Margins>
<Name>Text16</Name> <Name>Text16</Name>
<Page isRef="7" /> <Page isRef="7" />
<Parent isRef="82" /> <Parent isRef="81" />
<Text>COMERCIO EXTERIOR</Text> <Text>COMERCIO EXTERIOR</Text>
<TextBrush>Black</TextBrush> <TextBrush>Black</TextBrush>
<Type>Expression</Type> <Type>Expression</Type>
</Text16> </Text16>
<Text17 Ref="88" type="Text" isKey="true"> <Text17 Ref="87" type="Text" isKey="true">
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
<ClientRectangle>13.8,0.8,6.6,0.4</ClientRectangle> <ClientRectangle>13.8,0.8,6.6,0.4</ClientRectangle>
<Conditions isList="true" count="0" /> <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> <Margins>0,0,0,0</Margins>
<Name>Text17</Name> <Name>Text17</Name>
<Page isRef="7" /> <Page isRef="7" />
<Parent isRef="82" /> <Parent isRef="81" />
<Text>Tipo Cambio:{Format("${0:N4} MXN", CETipoCambio)}</Text> <Text>Tipo Cambio:{Format("${0:N4} MXN", CETipoCambio)}</Text>
<TextBrush>Black</TextBrush> <TextBrush>Black</TextBrush>
<Type>Expression</Type> <Type>Expression</Type>
@@ -1483,7 +1462,7 @@ DESPUES DE 72 HORAS POSTERIORES A LA FECHA DE ELABORACIÓN"</Text>
<Page isRef="7" /> <Page isRef="7" />
<Parent isRef="62" /> <Parent isRef="62" />
</Panel7> </Panel7>
<Text7 Ref="89" type="Text" isKey="true"> <Text7 Ref="88" type="Text" isKey="true">
<Brush>[156:195:229]</Brush> <Brush>[156:195:229]</Brush>
<CanGrow>True</CanGrow> <CanGrow>True</CanGrow>
<ClientRectangle>15.8,1.28,5.29,0.14</ClientRectangle> <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> <PrintOn>OnlyLastPage</PrintOn>
<TextBrush>Black</TextBrush> <TextBrush>Black</TextBrush>
</Text7> </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> </Components>
<Conditions isList="true" count="0" /> <Conditions isList="true" count="0" />
<Expressions 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> <ReportAlias>Factura</ReportAlias>
<ReportChanged>1/18/2024 9:39:09 AM</ReportChanged> <ReportChanged>1/18/2024 9:39:09 AM</ReportChanged>
<ReportCreated>7/11/2022 2:49:19 PM</ReportCreated> <ReportCreated>7/11/2022 2:49:19 PM</ReportCreated>
<ReportFile>C:\inetpub\wwwSIGGIT\Empresas\186\Formatos\Factura.mrt</ReportFile> <ReportFile>Factura.mrt</ReportFile>
<ReportGuid>728378886519409195a7506a0b6d6331</ReportGuid> <ReportGuid>4a902ea660c34d0baeae36e92ea35edd</ReportGuid>
<ReportName>Factura</ReportName> <ReportName>Factura</ReportName>
<ReportUnit>Centimeters</ReportUnit> <ReportUnit>Centimeters</ReportUnit>
<ReportVersion>2022.4.5.0</ReportVersion> <ReportVersion>2022.4.5.0</ReportVersion>

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

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

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

@@ -54,7 +54,7 @@
<Relations isList="true" count="0" /> <Relations isList="true" count="0" />
<Report isRef="0" /> <Report isRef="0" />
<Resources isList="true" count="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,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,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> <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,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,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,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> </Variables>
</Dictionary> </Dictionary>
<EngineVersion>EngineV2</EngineVersion> <EngineVersion>EngineV2</EngineVersion>
@@ -802,8 +804,8 @@ Vendedor: {VendedorNombre}</Text>
</DataBand3> </DataBand3>
<FooterBand1 Ref="44" type="FooterBand" isKey="true"> <FooterBand1 Ref="44" type="FooterBand" isKey="true">
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
<ClientRectangle>0,2.92,21,2.2</ClientRectangle> <ClientRectangle>0,2.92,21,4.6</ClientRectangle>
<Components isList="true" count="5"> <Components isList="true" count="6">
<Panel3 Ref="45" type="Panel" isKey="true"> <Panel3 Ref="45" type="Panel" isKey="true">
<Border>Bottom;Transparent;5;Solid;False;4;Black;True</Border> <Border>Bottom;Transparent;5;Solid;False;4;Black;True</Border>
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
@@ -1073,6 +1075,22 @@ Vendedor: {VendedorNombre}</Text>
<TextBrush>Black</TextBrush> <TextBrush>Black</TextBrush>
<Type>Expression</Type> <Type>Expression</Type>
</Text4> </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> </Components>
<Conditions isList="true" count="0" /> <Conditions isList="true" count="0" />
<Expressions isList="true" count="0" /> <Expressions isList="true" count="0" />
@@ -1120,8 +1138,8 @@ Vendedor: {VendedorNombre}</Text>
<ReportAlias>Report</ReportAlias> <ReportAlias>Report</ReportAlias>
<ReportChanged>10/11/2022 8:18:55 PM</ReportChanged> <ReportChanged>10/11/2022 8:18:55 PM</ReportChanged>
<ReportCreated>7/11/2022 2:49:19 PM</ReportCreated> <ReportCreated>7/11/2022 2:49:19 PM</ReportCreated>
<ReportFile>C:\inetpub\WWWSigGit\Empresas\186\Formatos\Remision.mrt</ReportFile> <ReportFile>Remision.mrt</ReportFile>
<ReportGuid>a4badd41106c4719ac060f1e52338936</ReportGuid> <ReportGuid>49b2dec77fe542ea952b501bf54fafb1</ReportGuid>
<ReportName>Report</ReportName> <ReportName>Report</ReportName>
<ReportUnit>Centimeters</ReportUnit> <ReportUnit>Centimeters</ReportUnit>
<ReportVersion>2022.4.5.0</ReportVersion> <ReportVersion>2022.4.5.0</ReportVersion>

2
General/SaldosIniciales.aspx
View File

@@ -42,6 +42,8 @@
<asp:ListItem Value="13" Text="Anticipo Proveedores"></asp:ListItem> <asp:ListItem Value="13" Text="Anticipo Proveedores"></asp:ListItem>
<asp:ListItem Value="2" Text="Clientes"></asp:ListItem> <asp:ListItem Value="2" Text="Clientes"></asp:ListItem>
<asp:ListItem Value="4" Text="Factura - Cliente"></asp:ListItem> <asp:ListItem Value="4" Text="Factura - Cliente"></asp:ListItem>
<asp:ListItem Value="17" Text="Factura - Cliente Detalle"></asp:ListItem>
<asp:ListItem Value="14" Text="Anticipo Clientes"></asp:ListItem> <asp:ListItem Value="14" Text="Anticipo Clientes"></asp:ListItem>
<asp:ListItem Value="5" Text="Productos y Sevicios" ></asp:ListItem> <asp:ListItem Value="5" Text="Productos y Sevicios" ></asp:ListItem>
<asp:ListItem Value="16" Text="Clasificaciones" Enabled="True"></asp:ListItem> <asp:ListItem Value="16" Text="Clasificaciones" Enabled="True"></asp:ListItem>

115
General/SaldosIniciales.aspx.vb
View File

@@ -225,7 +225,7 @@ Partial Class General_SaldosIniciales
ElseIf RblFormato.SelectedValue = "3" Or RblFormato.SelectedValue = "4" Then ElseIf RblFormato.SelectedValue = "3" Or RblFormato.SelectedValue = "4" Or RblFormato.SelectedValue = "17" Then
If Not dt.Columns(0).ColumnName = "Sucursal" Then If Not dt.Columns(0).ColumnName = "Sucursal" Then
Alert("El nombre de la primera columna debe ser 'Sucursal'. Favor de corregirlo", TipoMensaje.MsgError) Alert("El nombre de la primera columna debe ser 'Sucursal'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub Exit Sub
@@ -293,6 +293,16 @@ Partial Class General_SaldosIniciales
Exit Sub Exit Sub
End If End If
If Not dt.Columns(15).ColumnName = "Folio Fiscal" Then
Alert("El nombre de la decimosexta columna debe ser 'Folio Fiscalo'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
If Not dt.Columns(16).ColumnName = "PorcentajeIVA" Then
Alert("El nombre de la decimoséptima columna debe ser 'PorcentajeIVA'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
'If RblFormato.SelectedValue = "4" Then 'If RblFormato.SelectedValue = "4" Then
' If Not dt.Columns(15).ColumnName = "ImpuestoLocal" Then ' If Not dt.Columns(15).ColumnName = "ImpuestoLocal" Then
' Alert("El nombre de la diesciseisava columna debe ser 'ImpuestoLocal'. Favor de corregirlo", TipoMensaje.MsgError) ' Alert("El nombre de la diesciseisava columna debe ser 'ImpuestoLocal'. Favor de corregirlo", TipoMensaje.MsgError)
@@ -305,6 +315,31 @@ Partial Class General_SaldosIniciales
' End If ' End If
'End If 'End If
If RblFormato.SelectedValue = "17" Then
If Not dt.Columns(17).ColumnName = "Cantidad" Then
Alert("El nombre de la Decimoctava columna debe ser 'Cantidad'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
If Not dt.Columns(18).ColumnName = "PU" Then
Alert("El nombre de la Decimonovena columna debe ser 'PU'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
If Not dt.Columns(19).ColumnName = "IVA" Then
Alert("El nombre de la Vigésima columna debe ser 'IVA'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
If Not dt.Columns(20).ColumnName = "IEPS" Then
Alert("El nombre de la Vigésimo primera columna debe ser 'IEPS'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
End If
ElseIf RblFormato.SelectedValue = "5" Then ElseIf RblFormato.SelectedValue = "5" Then
@@ -1571,7 +1606,7 @@ Partial Class General_SaldosIniciales
#End Region #End Region
'C L I E N T E S - F A C T U R A S 'C L I E N T E S - F A C T U R A S
ElseIf RblFormato.SelectedValue = "4" Then ElseIf RblFormato.SelectedValue = "4" Or RblFormato.SelectedValue = "17" Then
#Region "C L I E N T E S - F A C T U R A S" #Region "C L I E N T E S - F A C T U R A S"
@@ -1598,12 +1633,13 @@ Partial Class General_SaldosIniciales
Dim CveClasificacion As Integer = drr("CveClasificacion").ToString().ToEntero() 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 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 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 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 dtsubp As DataTable = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
Dim CountRow As Integer = 1
For Each Row As DataRow In dt.FiltraParametros("RFC <> ''").Rows For Each Row As DataRow In dt.FiltraParametros("RFC <> ''").Rows
Dim Sucursal As String = dtsubp.FiltroPrimeroValor("CveSubProyecto", $"SubProyecto = '{Row("Sucursal").ToString()}'") Dim Sucursal As String = dtsubp.FiltroPrimeroValor("CveSubProyecto", $"SubProyecto = '{Row("Sucursal").ToString()}'")
Dim TipoDocto As String = Row("Tipo Documento").ToString().Trim Dim TipoDocto As String = Row("Tipo Documento").ToString().Trim
@@ -1626,7 +1662,9 @@ Partial Class General_SaldosIniciales
Dim CveMoneda As Integer = 1 Dim CveMoneda As Integer = 1
Dim Vendedor As String = If(dt.Columns.Contains("Vendedor"), Row("Vendedor").ToString(), "") Dim Vendedor As String = If(dt.Columns.Contains("Vendedor"), Row("Vendedor").ToString(), "")
Dim CveVendedor As Integer = 0 Dim CveVendedor As Integer = 0
Dim IEPS As Decimal = 0 'Row("IEPS").ToString().ToDecimal Dim IEPS As Decimal = 0 'Row("IEPS").ToString().ToDecimal
Dim CveClienteSucursal As Integer = 0 'Row("CveClienteSucursal").ToString().ToEntero() Dim CveClienteSucursal As Integer = 0 'Row("CveClienteSucursal").ToString().ToEntero()
Dim FolioFiscal As String = If(dt.Columns.Contains("Folio Fiscal"), Row("Folio Fiscal").ToString(), "") Dim FolioFiscal As String = If(dt.Columns.Contains("Folio Fiscal"), Row("Folio Fiscal").ToString(), "")
Dim PorcentajeIVA As Decimal = If(dt.Columns.Contains("PorcentajeIVA"), Round(Row("PorcentajeIVA").ToString().ToDecimal, 4), 0) Dim PorcentajeIVA As Decimal = If(dt.Columns.Contains("PorcentajeIVA"), Round(Row("PorcentajeIVA").ToString().ToDecimal, 4), 0)
@@ -1640,6 +1678,45 @@ Partial Class General_SaldosIniciales
Dim Folio2 As String = "" ' Row("Folio2").ToString() Dim Folio2 As String = "" ' Row("Folio2").ToString()
Dim CodCliente As String = "" 'Row("CodCliente2").ToString() Dim CodCliente As String = "" 'Row("CodCliente2").ToString()
Dim IEPSDetalle As Decimal = 0
Dim CantidadDetalle As Decimal = 0
Dim PUDetalle As Decimal = 0
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 If dt.Columns.Contains("Cliente Sucursal") AndAlso Row("Cliente Sucursal").ToString() <> "" Then
Dim ObjCliente As New ClsClientes Dim ObjCliente As New ClsClientes
@@ -1710,10 +1787,33 @@ Partial Class General_SaldosIniciales
End If End If
CveVenta = ObjVentas.CveVenta CveVenta = ObjVentas.CveVenta
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 If RblFormato.SelectedValue = "17" Then
Exit For
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
Exit For
End If
End If End If
Dim ConceptoContable As Integer = 1 Dim ConceptoContable As Integer = 1
Dim ConceptoContablePago As Integer = 2 Dim ConceptoContablePago As Integer = 2
If TipoDocto = "Egs" Then If TipoDocto = "Egs" Then
@@ -1777,6 +1877,7 @@ Partial Class General_SaldosIniciales
Exit For Exit For
End If End If
CountRow = CountRow + 1
Next Next
If Not ErrorVentas Then 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) Alert(String.Format("Se agregaron: <b>{0}</b> Ventas correctamente. <b>{1} no encontrados</b><br/>{2} ", Encontrados, NoEncontrados, StrRFCNoencontrados), TipoMensaje.MsgInformacion)
@@ -2980,6 +3081,8 @@ Partial Class General_SaldosIniciales
Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\SaldosIniciales\FormatoBancos.xlsx" Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\SaldosIniciales\FormatoBancos.xlsx"
ElseIf RblFormato.SelectedValue = "16" Then ElseIf RblFormato.SelectedValue = "16" Then
Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\SaldosIniciales\FormatoClasificaciones.xlsx" Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\SaldosIniciales\FormatoClasificaciones.xlsx"
ElseIf RblFormato.SelectedValue = "17" Then
Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\SaldosIniciales\FormatoClientes-Facturas-Detalles.xlsx"
End If End If
If Not (Directorio = "") Then If Not (Directorio = "") Then

7
Global.asax
View File

@@ -69,13 +69,6 @@
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'G L O B A L E S A P L I C A C I Ó N 'G L O B A L E S A P L I C A C I Ó N
'Using ObjGral As New ClsGenerales
' If ObjGral.GetTipoCambio(-1, Now) Then
' If ObjGral.DtResultados.Rows.Count > 0 Then
' Application("GlobalTipoCambio") = ObjGral.DtResultados.Rows(0)("TipoCambio").ToString.ToDouble
' End If
' End If
'End Using
'GuardaLogAsax(String.Format("Globalasax 41:{0}", DateTime.Now)) 'GuardaLogAsax(String.Format("Globalasax 41:{0}", DateTime.Now))

14
Inventarios/EntregaAlmacen.aspx
View File

@@ -134,6 +134,9 @@
<td> <td>
<asp:Label Text="" ID="LbCliente" runat="server" /> <asp:Label Text="" ID="LbCliente" runat="server" />
</td> </td>
<td style="text-align:right">
</td>
</tr> </tr>
<tr> <tr>
<td>Folio:</td> <td>Folio:</td>
@@ -141,18 +144,23 @@
<asp:HyperLink ID="HLFolio" Target="_blank" runat="server" /> <asp:HyperLink ID="HLFolio" Target="_blank" runat="server" />
<%--<asp:Label Text="" ID="LbFolio" runat="server" />--%> <%--<asp:Label Text="" ID="LbFolio" runat="server" />--%>
</td> </td>
<td>
<asp:LinkButton ID="BtnArchivoAdjunto" runat="server" Visible="false" Text="" Font-Size="14px" />
</td>
</tr> </tr>
<tr id="trObsGral" runat="server" visible="false"> <tr id="trObsGral" runat="server" visible="false">
<td>Observaciones Grales:</td> <td>Observaciones Grales:</td>
<td> <td>
<asp:Label Text="" ID="LbObservaciones" runat="server" /> <asp:Label Text="" ID="LbObservaciones" runat="server" />
</td> </td>
<td></td>
</tr> </tr>
<tr id="trObsAlmacen" runat="server" visible="false"> <tr id="trObsAlmacen" runat="server" visible="false">
<td>Observaciones Almacén:</td> <td>Observaciones Almacén:</td>
<td> <td>
<asp:Label Text="" ID="LbObservacionesAlmacen" runat="server" /> <asp:Label Text="" ID="LbObservacionesAlmacen" runat="server" />
</td> </td>
<td></td>
</tr> </tr>
<tr id="trDireccionEnvio" runat="server" visible="false"> <tr id="trDireccionEnvio" runat="server" visible="false">
<td>Dirección Envío:</td> <td>Dirección Envío:</td>
@@ -160,12 +168,16 @@
<asp:Label Text="" ID="LblDirEnvio" runat="server" /> <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>" /> <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></td>
</tr> </tr>
</table> </table>
</div> </div>
</div> </div>
</div> </div>
</ContentTemplate> </ContentTemplate>
<Triggers>
<asp:PostBackTrigger ControlID="BtnArchivoAdjunto" />
</Triggers>
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>
@@ -229,7 +241,7 @@
<tr> <tr>
<td>Observaciones:</td> <td>Observaciones:</td>
<td> <td>
<asp:TextBox ID="TxtObservaciones" TextMode="MultiLine" Rows="1" CssClass="form-control input-sm" runat="server" MaxLength="200"></asp:TextBox> <asp:TextBox ID="TxtObservaciones" TextMode="MultiLine" Rows="2" CssClass="form-control input-sm" runat="server" MaxLength="200"></asp:TextBox>
</td> </td>
</tr> </tr>
<tr id="DivTransitorio1" runat="server" visible="false"> <tr id="DivTransitorio1" runat="server" visible="false">

77
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 #End Region
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -617,7 +632,11 @@ Partial Class Inventarios_EntregaAlmacen
CveVentaAD = -2 CveVentaAD = -2
CargaVentaPorSurtir(DdlFolio.SelectedValue.ToEntero()) CargaVentaPorSurtir(DdlFolio.SelectedValue.ToEntero())
End Sub 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 LbSurtida.Visible = False
CveContrato = -1 CveContrato = -1
CveSubProyecto = -1 CveSubProyecto = -1
@@ -672,6 +691,7 @@ Partial Class Inventarios_EntregaAlmacen
If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 AndAlso TipoDocto.Contiene("Ped", "Ing") Then If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 AndAlso TipoDocto.Contiene("Ped", "Ing") Then
TxtObservaciones.Text = $"Dr. {drE("Medico").ToString}{vbCrLf}Cx. {drE("Procedimiento").ToString}{vbCrLf}F. Cirugía {drE("FechaEjecucion").ToString.ToDateTime.ToString("dd/MM/yyyy HH:mm")}{vbCrLf}H. {drE("Sucursal").ToString}{vbCrLf}" TxtObservaciones.Text = $"Dr. {drE("Medico").ToString}{vbCrLf}Cx. {drE("Procedimiento").ToString}{vbCrLf}F. Cirugía {drE("FechaEjecucion").ToString.ToDateTime.ToString("dd/MM/yyyy HH:mm")}{vbCrLf}H. {drE("Sucursal").ToString}{vbCrLf}"
TxtObservaciones.Rows = 4
End If End If
LbCliente.Text = DtDatos.Rows(0)("Nombre").ToString() LbCliente.Text = DtDatos.Rows(0)("Nombre").ToString()
@@ -700,8 +720,26 @@ Partial Class Inventarios_EntregaAlmacen
'ClienteEntregaPersonal(CveCliente) 'ClienteEntregaPersonal(CveCliente)
CveSubProyecto = drE("CveSubProyecto").ToString().ToEntero() CveSubProyecto = drE("CveSubProyecto").ToString().ToEntero()
EsInterno = CBool(DtDatos.Rows(0)("EsInterno").ToString()) 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 If CveDireccionEnvio > 0 Then
trDireccionEnvio.Visible = True trDireccionEnvio.Visible = True
'carga la dirección de envío 'carga la dirección de envío
@@ -869,6 +907,8 @@ Partial Class Inventarios_EntregaAlmacen
If CveAlmacen <= 0 Then CargaGvDatos() If CveAlmacen <= 0 Then CargaGvDatos()
UpVenta.Update()
End Sub End Sub
Private Sub CargaTraspasoPorSurtir(CveTraspaso As Integer) Private Sub CargaTraspasoPorSurtir(CveTraspaso As Integer)
LbSurtida.Visible = False LbSurtida.Visible = False
@@ -4539,5 +4579,36 @@ Partial Class Inventarios_EntregaAlmacen
End Function 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 End Class

6
OS/Asignaciones.aspx.vb
View File

@@ -79,7 +79,7 @@ Partial Class OS_Asignaciones
RegistraScript(" RegistraScript("
$('#GvNA tr').each(function() { $('#GvNA tr').each(function() {
$(this).find('td:eq(8) input').each(function() { $(this).find('td:eq(6) input').each(function() {
if($(this).val()!=':'){ if($(this).val()!=':'){
$(this).attr('style', 'width: 20px;'); $(this).attr('style', 'width: 20px;');
}else{ }else{
@@ -518,8 +518,8 @@ Partial Class OS_Asignaciones
Dim TMSelector = DirectCast(e.Row.FindControl("TimeSelector"), TimeSelector) Dim TMSelector = DirectCast(e.Row.FindControl("TimeSelector"), TimeSelector)
TMSelector.Date = FechaCita TMSelector.Date = FechaCita
e.Row.Cells(7).Attributes.Add("data-order", e.Row.DBCampo("FechaCitaOS").ToDate.Ticks.ToString) e.Row.Cells(9).Attributes.Add("data-order", e.Row.DBCampo("FechaCitaOS").ToDate.Ticks.ToString)
e.Row.Cells(8).Attributes.Add("data-order", e.Row.DBCampo("FechaCitaOS").ToDate.ToString("HHmm")) e.Row.Cells(10).Attributes.Add("data-order", e.Row.DBCampo("FechaCitaOS").ToDate.ToString("HHmm"))
End If End If

145
Transportes/Boletos.aspx.vb
View File

@@ -79,11 +79,13 @@ Partial Class Boletos
Dim ObjViaje As New ClsTransportes Dim ObjViaje As New ClsTransportes
If ObjContratos.GetContratos(CveViaje, UsuarioActual.CveEmpresa) Then If ObjContratos.GetContratos(CveViaje, UsuarioActual.CveEmpresa) Then
Contrato = ObjContratos.DtResultados Contrato = ObjContratos.DtResultados.Copy()
If ObjContratos.DtResultados IsNot Nothing AndAlso ObjContratos.DtResultados.Rows.Count > 0 Then If ObjContratos.DtResultados IsNot Nothing AndAlso ObjContratos.DtResultados.Rows.Count > 0 Then
TxtRuta.Text = Contrato.Rows(0)("SubProyecto").ToString TxtRuta.Text = Contrato.Rows(0)("SubProyecto").ToString
TxtFecha.Text = Contrato.Rows(0)("FechaInicial").ToString.ToDate.ToShortDateString TxtFecha.Text = Contrato.Rows(0)("FechaInicial").ToString.ToDate.ToShortDateString
DtPasajeros = New DataTable DtPasajeros = New DataTable
DtPasajeros.Columns.Add("CveViajePasajero", GetType(Integer))
DtPasajeros.Columns.Add("Numero", GetType(Integer)) DtPasajeros.Columns.Add("Numero", GetType(Integer))
DtPasajeros.Columns.Add("Nombre", GetType(String)) DtPasajeros.Columns.Add("Nombre", GetType(String))
DtPasajeros.Columns.Add("Visa", GetType(String)) DtPasajeros.Columns.Add("Visa", GetType(String))
@@ -115,6 +117,9 @@ Partial Class Boletos
End If End If
End If End If
ObjContratos.Dispose()
ObjViaje.Dispose()
Else Else
ObjContratos.Dispose() ObjContratos.Dispose()
ObjViaje.Dispose() ObjViaje.Dispose()
@@ -122,8 +127,6 @@ Partial Class Boletos
Response.Redirect($"~/Transportes/RepContratos.aspx") Response.Redirect($"~/Transportes/RepContratos.aspx")
End If End If
ObjContratos.Dispose()
ObjViaje.Dispose()
'Boletos Vendidos 'Boletos Vendidos
@@ -176,8 +179,6 @@ Partial Class Boletos
LbCostos.Text = $"El precio de su boleto es ${ImporteR.FormatoNumero}" LbCostos.Text = $"El precio de su boleto es ${ImporteR.FormatoNumero}"
LbCostos.Visible = True LbCostos.Visible = True
BtnAgregarPasajero.Visible = True BtnAgregarPasajero.Visible = True
LbAviso.Visible = True
Else Else
ViewState("Importe") = 0 ViewState("Importe") = 0
BtnAgregarPasajero.Visible = False BtnAgregarPasajero.Visible = False
@@ -233,11 +234,17 @@ Partial Class Boletos
Sexo = dr("CveSexo").ToString.ToBool Sexo = dr("CveSexo").ToString.ToBool
Obs = dr("Observaciones").ToString Obs = dr("Observaciones").ToString
If ObjTransporte.AddViajesPasajeros(CveViaje, CveDestinoOrigen, CveDestinoFinal, Importe, Asiento.ToEntero, Nombre, Visa, Celular, Sexo, Obs, UsuarioActual.CveUsuario, UsuarioActual.CveVendedor) > 1 Then Dim CveViajePasajero = ObjTransporte.AddViajesPasajeros(CveViaje, CveDestinoOrigen, CveDestinoFinal, Importe, Asiento.ToEntero, Nombre, Visa, Celular, Sexo, Obs, UsuarioActual.CveUsuario, UsuarioActual.CveVendedor)
ObjTransporte.Commit()
If CveViajePasajero < 1 Then
TieneError = True
SbAlert.Append("Ocurrió un error al generar el viaje")
Exit For
End If End If
dr("CveViajePasajero") = CveViajePasajero
Next Next
DtPasajeros.Clear()
If Not TieneError Then If Not TieneError Then
Retorno = CrearRemision(ObjTransporte) Retorno = CrearRemision(ObjTransporte)
@@ -247,8 +254,11 @@ Partial Class Boletos
TieneError = Retorno.TieneError TieneError = Retorno.TieneError
If Not TieneError Then If Not TieneError Then
If Retorno.CveVenta > 0 AndAlso Not Retorno.TieneError Then
SbAlert.AppendFormat("{0}", Retorno.Mensajes(Retorno.Mensajes.Count - 1)) If Not Retorno.TieneError Then
If Retorno.CveVenta <= 0 Then
Retorno.TieneError = True
End If
Else Else
TieneError = True TieneError = True
SbAlert.Append("Ocurrió un error al generar la factura") SbAlert.Append("Ocurrió un error al generar la factura")
@@ -261,6 +271,12 @@ Partial Class Boletos
Else Else
TieneError = True TieneError = True
End If End If
Else
If Retorno.Mensajes IsNot Nothing AndAlso Retorno.Mensajes.Count > 0 Then
For Each Mensaje As String In Retorno.Mensajes
SbAlert.AppendFormat("{0} <br/>", Mensaje)
Next
End If
End If End If
Else Else
TieneError = True TieneError = True
@@ -280,18 +296,28 @@ Partial Class Boletos
ObjTransporte.RollBack() ObjTransporte.RollBack()
ObjTransporte.Dispose() ObjTransporte.Dispose()
Else Else
SbAlert.Append("El boleto se genero correctamente") ObjTransporte.Commit()
ObjTransporte.Dispose() ObjTransporte.Dispose()
DdlPartida.SelectedValueExist("-1") SbAlert.Append("El boleto se genero correctamente.")
DdlDestino.SelectedValueExist("-1")
DtPasajeros.Clear()
GvB.DataSource = DtPasajeros
GvB.DataBind()
DdlPartida.SelectedIndex = -1
'DdlPartida.SelectedValueExist("-1")
DdlDestino.SelectedIndex = -1
'DdlDestino.SelectedValueExist("-1")
AsientoSeleccionado = "" AsientoSeleccionado = ""
CargaDatos() CargaDatos()
End If End If
Alert(SbAlert.ToString(), If(TieneError, TipoMensaje.MsgError, TipoMensaje.MsgInformacion), ShowCloseButton:=False) Alert(SbAlert.ToString(), If(TieneError, TipoMensaje.MsgError, TipoMensaje.MsgInformacion), ShowCloseButton:=False)
End Try End Try
UpPanel.Update() UpPanel.Update()
End Sub End Sub
@@ -368,48 +394,89 @@ Partial Class Boletos
End Sub End Sub
Private Function CrearRemision(ByRef objTrans As ClsTransportes) As Modelos.Factura.MMensajeFactura Private Function CrearRemision(ByRef objTrans As ClsTransportes) As Modelos.Factura.MMensajeFactura
Dim Retorno As Modelos.Factura.MMensajeFactura = Nothing Dim Retorno As New Modelos.Factura.MMensajeFactura
Dim CveCliente As Integer = 1154164 Dim CveCliente As Integer = 1154164
Dim CveMoneda As Integer = 2 Dim CveMoneda As Integer = 2
Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero() Dim CveSubProyecto As Integer = -1
Dim CvePSBoleto As Integer = 912720
If EsProduccion Then
CvePSBoleto = 986337
CveCliente = 1172306
End If
If CveCliente <= 0 Then If CveCliente <= 0 Then
Retorno.Mensajes.Add("No se pudo cargar el cliente") Retorno.Mensajes.Add("No se pudo cargar el cliente")
Return Retorno Return Retorno
End If End If
If CveSubProyecto <= 0 Then Dim ObjFactura = Modelos.Factura.CrearVentaNueva(UsuarioActual, -1, CveCliente, CveMoneda, "Rem")
Retorno.Mensajes.Add("No se pudo cargar el subproyecto")
Return Retorno
End If
Dim ObjFactura = Modelos.Factura.CrearVentaNueva(UsuarioActual, CveSubProyecto, CveCliente, CveMoneda, "Rem") If ObjFactura IsNot Nothing Then
'TOMA EL SUBPROYECTO DEL CLIENTE
CveSubProyecto = ObjFactura.Cliente.CveSubProyecto
Dim CvePSBoleto As Integer = 912720 If CveSubProyecto <= 0 Then
Retorno.Mensajes.Add("No se pudo cargar el subproyecto")
For Each Dr As DataRow In DtPasajeros.Rows
Dim Obs = Dr("Nombre").ToString
Dim Importe = Dr("Importe").ToString.ToDecimal()
If Importe <= 0 Then
Retorno.Mensajes.Add("El importe debe ser mayor a 0")
Return Retorno Return Retorno
End If End If
ObjFactura.AgregarPS(CvePSBoleto, 1, Importe, 0, Obs, CveSubProyecto:=CveSubProyecto, PorcentajeIVA:=0) ObjFactura.CveSubProyecto = CveSubProyecto
Next ObjFactura.CveSubProyectoCobranza = CveSubProyecto
ObjFactura.CveSubProyectoEjecucion = CveSubProyecto
ObjFactura.SetSubProyecto()
ObjFactura.SetSubProyectoMatriz()
ObjFactura.CalculaTotales() For Each Dr As DataRow In DtPasajeros.Rows
Dim Obs = Dr("Observaciones").ToString
Dim Importe = Dr("Importe").ToString.ToDecimal()
Try If Importe <= 0 Then
Retorno = ObjFactura.EmitirFactura(False, Transac:=objTrans.IniciaTransacSQL()) Retorno.Mensajes.Add("El importe debe ser mayor a 0")
Catch ex As Exception Return Retorno
Retorno = Nothing End If
GuardaLog(ex.ToString())
End Try
If ObjFactura IsNot Nothing Then Dim PorcentajeIVA As Decimal = 0
ObjFactura.Dispose()
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
Next
ObjFactura.CalculaTotales()
Try
Retorno = ObjFactura.EmitirFactura(False, Transac:=objTrans.IniciaTransacSQL())
Catch ex As Exception
Retorno = Nothing
GuardaLog(ex.ToString())
End Try
If ObjFactura IsNot Nothing Then
ObjFactura.Dispose()
End If
Else
Retorno.Mensajes.Add("No se pudo generar la factura")
End If End If
Return Retorno Return Retorno

83
Transportes/RepBoletos.aspx.vb
View File

@@ -1,5 +1,6 @@
Option Explicit On Option Explicit On
Option Strict On Option Strict On
Imports System.Data Imports System.Data
Imports ADSNetLibrary.Helpers Imports ADSNetLibrary.Helpers
Imports ADSNetLibrary.SIGAPI.Helpers Imports ADSNetLibrary.SIGAPI.Helpers
@@ -32,16 +33,10 @@ Partial Class ListadoBoletos
CveViaje = Request.QueryString("CveViaje").ToEntero CveViaje = Request.QueryString("CveViaje").ToEntero
Ruta = IfNull(Request("Ruta"), "").ToString Ruta = IfNull(Request("Ruta"), "").ToString
LblViaje.Text = Ruta LblViaje.Text = Ruta
InicializaCombos()
CargaDatos() CargaDatos()
End If End If
End Sub End Sub
Private Sub InicializaCombos()
End Sub
Private Sub CargaDatos() Private Sub CargaDatos()
Dim ObjTransportes As New ClsTransportes Dim ObjTransportes As New ClsTransportes
If ObjTransportes.GetViajesPasajeros(CveViaje) Then If ObjTransportes.GetViajesPasajeros(CveViaje) Then
@@ -82,26 +77,68 @@ Partial Class ListadoBoletos
Protected Sub BtnCancelar_Click(sender As Object, e As EventArgs) Protected Sub BtnCancelar_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim CveViajePasajero As String = GvRow.DataKey("CveViajePasajero") Dim CveViajePasajero As Integer = GvRow.DataKey("CveViajePasajero").ToEntero()
Dim Estatus As String = GvRow.DataKey("Estatus") Dim Estatus As String = GvRow.DataKey("Estatus")
Dim cambiarEstatus As Boolean = Not Estatus.ToBool Dim cambiarEstatus As Boolean = Not Estatus.ToBool
Dim ObjTransportes As New ClsTransportes
ObjTransportes.IniciaTransacSQL()
Try Dim TieneError As Boolean = False
If ObjTransportes.UpdateViajesPasajeros(CveViajePasajero.ToEntero, Activar:=cambiarEstatus, Estatus:=cambiarEstatus) Then Try
If Not cambiarEstatus Then Dim DtRem As DataTable = Nothing
Alert($"El boleto ha sido cancelado correctamente.")
Else Dim ObjTran As New ClsTransportes
Alert($"El boleto ha sido reactivado correctamente.") If ObjTran.GetRemisionBoleto(CveViajePasajero.ToEntero, UsuarioActual.CveEmpresa) Then
End If DtRem = ObjTran.DtResultados.Copy()
End If End If
ObjTransportes.Commit() ObjTran.Dispose()
Catch ex As Exception
ObjTransportes.RollBack() If DtRem IsNot Nothing Then
Alert($"No se pudo cambiar el estatus del boleto {ex}", TipoMensaje.MsgError) If DtRem.Rows.Count > 0 Then
Dim CveVenta As Integer = DtRem.Rows(0)("CveVenta").ToString().ToEntero()
Dim BoletosVigentes As Integer = DtRem.Rows(0)("BoletosVigentes").ToString().ToEntero()
If CveVenta > 0 Then
Dim ObjRem As New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, VerificaAlmacen:=False)
If ObjRem.DtDetalle.Rows.Count > 0 Then
'SI SOLO TIENE UNA PARTIDA CANCELAR LA REMISION
If ObjRem.DtDetalle.Rows.Count = 1 OrElse BoletosVigentes <= 1 Then
Dim RespCancelacion = ObjRem.CancelarFactura(False, ValidarSAT:=False, CancelarBoletos:=True, ListaRemisionesCancelar:=New List(Of Integer))
If RespCancelacion IsNot Nothing Then
TieneError = RespCancelacion.HuboError
Else
TieneError = True
End If
Else
TieneError = Not ObjRem.CancelarBoleto(CveViajePasajero)
End If
Else
TieneError = True
End If
End If
Else
'SI NO TIENE VENTA, SOLO CANCELAR EL BOLETO
Dim ObjTran2 As New ClsTransportes
If Not ObjTran2.UpdateViajesPasajeros(CveViajePasajero, Activar:=cambiarEstatus, Estatus:=cambiarEstatus) Then
TieneError = True
End If
ObjTran2.Dispose()
End If
End If
Catch ex As Exception
TieneError = True
GuardaLog(ex.ToString())
Finally Finally
ObjTransportes.Dispose() If TieneError Then
Alert($"Ocurrió un error al cancelar el boleto.", TipoMensaje.MsgError)
Else
Alert($"El boleto ha sido cancelado correctamente.")
End If
CargaDatos() CargaDatos()
End Try End Try
End Sub End Sub
End Class End Class

21
Transportes/RepContratosCalendario.aspx
View File

@@ -16,8 +16,7 @@
} }
.miGrid { .miGrid {
color: white; color: white;
text-align: center;
} }
</style> </style>
</asp:Content> </asp:Content>
@@ -51,9 +50,9 @@
<div class="row" style="height: 32px;"> <div class="row" style="height: 32px;">
<label class="col-md-1">Tipo Vista: </label> <label class="col-md-1">Tipo Vista: </label>
<div class="col-md-2"> <div class="col-md-2">
<asp:RadioButtonList ID="RBTipoVista" runat="server" AutoPostBack="True" RepeatDirection="Horizontal"> <asp:RadioButtonList ID="RBTipoVista" runat="server" AutoPostBack="True" RepeatDirection="Horizontal">
<asp:ListItem Text="Duración" Value="duracion" />
<asp:ListItem Text="Fecha de Salida" Value="fecha" Selected="True" /> <asp:ListItem Text="Fecha de Salida" Value="fecha" Selected="True" />
<asp:ListItem Text="Duración" Value="duracion" />
</asp:RadioButtonList> </asp:RadioButtonList>
</div> </div>
@@ -163,8 +162,8 @@
<%-- Centro de Costos --%> <%-- Centro de Costos --%>
<label class="col-md-1 truncate ">Centro de Costos</label> <label class="col-md-1 truncate ">Centro de Costos</label>
<div class="col-md-2"> <div class="col-md-2">
<asp:DropDownList ID="DdlCentroCostos" data-text="Todos" AppendDataBoundItems="true" <asp:DropDownList ID="DdlSubProyectos" data-text="Todos" AppendDataBoundItems="true"
DataTextField="" DataValueField="" CssClass="form-control ddlFiltros input-sm select2me Widthall" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control ddlFiltros input-sm select2me Widthall"
Style="width: 100%;" runat="server"> Style="width: 100%;" runat="server">
</asp:DropDownList> </asp:DropDownList>
</div> </div>
@@ -194,7 +193,7 @@
<asp:GridView ID="GvContratos" runat="server" AutoGenerateColumns="false" EmptyDataText="No se Encontró Contrato Registrado" <asp:GridView ID="GvContratos" runat="server" AutoGenerateColumns="false" EmptyDataText="No se Encontró Contrato Registrado"
CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn miGrid" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn miGrid"
GridLines="None" GridLines="None"
data-sort="true" DataKeyNames="CveContrato, NumeroContrato, DescripcionContrato, Ubicacion, FechaInicial, FechaFinal, CveCliente,NombreComercial, CveTipoAF, Importe, ImporteMin, ImporteMax, Observaciones, CveAF, CveChofer, CveChofer2, CveContratosEstatus, CantidadPasajeros"> data-sort="true" DataKeyNames="CveContrato, NumeroContrato, DescripcionContrato, Ubicacion, FechaInicial, FechaFinal, CveCliente, NombreComercial, CveTipoAF, Importe, ImporteMin, ImporteMax, Observaciones, CveAF, CveChofer, CveChofer2, CveContratosEstatus, CantidadPasajeros,CveMoneda">
<Columns> <Columns>
<asp:TemplateField HeaderText="Contrato"> <asp:TemplateField HeaderText="Contrato">
<ItemTemplate> <ItemTemplate>
@@ -203,7 +202,7 @@
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="120px"> <asp:TemplateField ItemStyle-Width="120px">
<HeaderTemplate> <HeaderTemplate>
Fecha<br /> Fecha<br />
Salida Salida
@@ -219,7 +218,7 @@
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Cliente"> <asp:TemplateField HeaderText="Cliente">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtNombreComercial" runat="server" Text='<%# Eval("NombreComercial") %>'></asp:Literal> <asp:Literal ID="LtNombreComercial" runat="server" Text='<%# Eval("NombreComercial") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
@@ -243,7 +242,7 @@
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Fecha Final" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="100px"> <asp:TemplateField HeaderText="Fecha Final" ItemStyle-Width="100px">
<HeaderTemplate> <HeaderTemplate>
Fecha<br /> Fecha<br />
Regreso Regreso
@@ -253,7 +252,7 @@
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Estatus" ItemStyle-CssClass="bold"> <asp:TemplateField HeaderText="Estatus" >
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LtlContrato" runat="server" Text='<%# Eval("ContratoEstatus") %>'> <asp:Label ID="LtlContrato" runat="server" Text='<%# Eval("ContratoEstatus") %>'>
</asp:Label> </asp:Label>

8
Transportes/RepContratosCalendario.aspx.vb
View File

@@ -47,7 +47,7 @@ Partial Class RepContratosCalendario
Dim CveCliente As Integer = DdlCliente.SelectedValue.ToEntero Dim CveCliente As Integer = DdlCliente.SelectedValue.ToEntero
If CveCliente = 0 Then CveCliente = -1 If CveCliente = 0 Then CveCliente = -1
If ObjContratos.GetContratosReporte(UsuarioActual.CveEmpresa, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlCliente.SelectedValue.ToEntero, CveEstatus:=DdlEstatusConsulta.SelectedValue.ToEntero, CveTipoContrato:=34) Then If ObjContratos.GetContratosReporte(UsuarioActual.CveEmpresa, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlCliente.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero, CveEstatus:=DdlEstatusConsulta.SelectedValue.ToEntero, CveTipoContrato:=34) Then
GvContratos.DataSource = ObjContratos.DtResultados GvContratos.DataSource = ObjContratos.DtResultados
End If End If
DtAvance = ObjContratos.DtResultados DtAvance = ObjContratos.DtResultados
@@ -97,9 +97,11 @@ Partial Class RepContratosCalendario
DdlEstatusContrato.DataSource = GlobalDTContratosEstatus(UsuarioActual.CveEmpresa) DdlEstatusContrato.DataSource = GlobalDTContratosEstatus(UsuarioActual.CveEmpresa)
DdlEstatusContrato.DataBind() DdlEstatusContrato.DataBind()
DdlEstatusContrato.Items.Insert(0, New ListItem("-", "")) DdlEstatusContrato.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlSubProyectos.DataBind()
DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
'CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, LblSubProyecto) 'CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, LblSubProyecto)

6
Ventas/Ventas.aspx.vb
View File

@@ -34706,9 +34706,6 @@ Partial Class Ventas
End If End If
Catch ex As Exception Catch ex As Exception
End Try End Try
End Sub End Sub
Protected Sub BtnEliminarAdjunto_Click(sender As Object, e As System.EventArgs) Handles BtnEliminarAdjunto.Click Protected Sub BtnEliminarAdjunto_Click(sender As Object, e As System.EventArgs) Handles BtnEliminarAdjunto.Click
@@ -36610,7 +36607,8 @@ Partial Class Ventas
If RBLTipoVenta.SelectedValue.Contiene("2") Then 'si es pago directo es factura If RBLTipoVenta.SelectedValue.Contiene("2") Then 'si es pago directo es factura
DdlTipoComprobante.SelectedValueExist("Ing") 'DdlTipoComprobante.SelectedValueExist("Ing")
DdlTipoComprobante.SelectedValueExist("Ped")
TrVentasMedicas1.Visible = True TrVentasMedicas1.Visible = True
TrVentasMedicas2.Visible = True TrVentasMedicas2.Visible = True