diff --git a/App_Code/ClsContratos.vb b/App_Code/ClsContratos.vb
index bc3794d36..a4f9b0a36 100644
--- a/App_Code/ClsContratos.vb
+++ b/App_Code/ClsContratos.vb
@@ -272,7 +272,7 @@ Public Class ClsContratos
Me.PorAnticipo = Data.Rows(0)("PorAnticipo").ToString.ToDouble
Me.PorAmortizacionAnticipo = Data.Rows(0)("PorAmortizacionAnticipo").ToString.ToDouble
Me.PorGarantia = Data.Rows(0)("PorGarantia").ToString.ToDouble
- Me.EstatusContrato = Data.Rows(0)("EstatusContrato").ToString.ToEntero
+ 'Me.EstatusContrato = Data.Rows(0)("EstatusContrato").ToString.ToEntero
Me.Archivo = Data.Rows(0)("Archivo").ToString
Me.Geom = Data.Rows(0)("Geom").ToString
Me.FechaIng = Data.Rows(0)("FechaIng").ToString.ToDate
@@ -292,7 +292,7 @@ Public Class ClsContratos
Me.CveSucursalCliente = Data.Rows(0)("CveSucursalCliente").ToString.ToEntero
Me.CveAlmacenOrigen = Data.Rows(0)("CveAlmacenOrigen").ToString.ToEntero
Me.CveAlmacen = Data.Rows(0)("CveAlmacenDestino").ToString.ToEntero
- Me.TipoEstatus = Data.Rows(0)("TipoEstatus").ToString.ToEntero
+ 'Me.TipoEstatus = Data.Rows(0)("TipoEstatus").ToString.ToEntero
Me.PorcentajeComision = Data.Rows(0)("PorcentajeComision").ToString.ToEntero
Me.TipoGarantia = Data.Rows(0)("TipoGarantia").ToString.ToEntero
Me.EstatusFianza = Data.Rows(0)("EstatusFianza").ToString.ToEntero
@@ -554,14 +554,15 @@ Public Class ClsContratos
' CveSubProyecto As Integer, PorIVA As Double, EstatusContrato As Boolean, Archivo As String, CveContratoPadre As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveContratosEstatus As Integer, CveContratoTipo As Integer) As Boolean
' ' Return UpdateContratos(CveContrato, NumeroContrato, DescripcionContrato, CveProveedor, CveCliente, -1, FechaInicial, FechaFinal, "", "", CveSubProyecto, PorIVA, -1, -1, -1, EstatusContrato, Archivo, "", CveContratoPadre, CveUsuario, CveEmpresa, False, CveContratosEstatus, CveContratoTipo)
'End Function
- Public Function RemoveContrato(CveContrato As Integer, CveEmpresa As Integer) As Boolean
+ Public Function RemoveContrato(CveContrato As Integer, CveEmpresa As Integer, Optional CveMasivo As Integer = 0) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Con_ContratosRemove")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveContrato", SqlDbType.Int).Value = CveContrato
- .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ .Add("@CveMasivo", SqlDbType.Int).Value = CveMasivo
End With
Try
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 3eff34079..c6108e558 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -1804,7 +1804,7 @@ Partial Class Inventarios_EntradasSalidas
End If
Dim FechaMovimiento As DateTime = TxtFecha.Text.Replace(",", "").ToDateTime
- Dim FechaMovtoStr As String = $"{FechaMovimiento.ToString("yyyy/MM/dd")} {FechaMovimiento.ToString("hh:mm:ss")}"
+ Dim FechaMovtoStr As String = $"{FechaMovimiento.ToString("yyyy/MM/dd")} {FechaMovimiento.ToString("HH:mm:ss")}"
'ACTUALIZAR
If CveMovimiento > 0 Then
@@ -1990,7 +1990,7 @@ Partial Class Inventarios_EntradasSalidas
If DdlConcepto.SelectedValue.Contiene({"3", "11", "13", "21", "30", "31"}) Then
For Each Dr As DataRow In DtMovimientos.Rows
Dim FechaCaducidadVal As Date = If(Dr("AplicaCaducidad").ToString = "True", Dr("FechaCaducidad").ToString.ToDate, MinFecha)
- Dim FechaMovtoExistenciaStr As String = $"{FechaMovimiento.ToString("yyyy/MM/dd")} {FechaMovimiento.ToString("hh:mm")}"
+ Dim FechaMovtoExistenciaStr As String = $"{FechaMovimiento.ToString("yyyy/MM/dd")} {FechaMovimiento.ToString("HH:mm")}"
If ObjInventario.GetExistenciasPS(Dr("CvePS").ToString.ToEntero, Dr("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, FechaMovto:=FechaMovtoExistenciaStr, Serie:=If(Dr("Serie").ToString = "", "-1", Dr("Serie").ToString), Lote:=If(Dr("Lote").ToString = "", "-1", Dr("Lote").ToString), FechaCaducidad:=FechaCaducidadVal) >= Dr("Cantidad").ToString.ToDouble Then
If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=Dr("Serie").ToString, Observaciones:=Dr("Observaciones").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=FechaCaducidadVal, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveCultivoCuadroDetalle:=Dr("CveCultivoCuadroDetalle").ToString.ToEntero) Then
@@ -2332,7 +2332,7 @@ Partial Class Inventarios_EntradasSalidas
ObjInventario.RollBack() 'deshace lo insertado
CveMovimiento = 0
If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
- Alert("ocurrió un Error al registrar los movimientos", TipoMensaje.MsgError)
+ Alert("Ocurrió un error al registrar los movimientos", TipoMensaje.MsgError)
RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
End If
End If
diff --git a/Transportes/RepContratoDetalle.aspx b/Transportes/RepContratoDetalle.aspx
index c88825dd2..8bf97c7b4 100644
--- a/Transportes/RepContratoDetalle.aspx
+++ b/Transportes/RepContratoDetalle.aspx
@@ -4,21 +4,189 @@
Inherits="RepContratoDetalle" %>
- Detalles del Contratos
+ Detalles del Contrato
-
-
+
+
+
+ <%-- Información General --%>
+
+
+
+ <%-- Datos del Contrato --%>
+
+
+
+
+
+
+
+ Datos del Contrato
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ <%-- Pre init --%>
+
+
+
+
+
+
+
diff --git a/Transportes/RepContratoDetalle.aspx.vb b/Transportes/RepContratoDetalle.aspx.vb
index 57204ff36..ad154f5dc 100644
--- a/Transportes/RepContratoDetalle.aspx.vb
+++ b/Transportes/RepContratoDetalle.aspx.vb
@@ -1,8 +1,70 @@
Option Explicit On
Option Strict On
+Imports System.Data
+Imports ADSNetLibrary.Helpers
+Imports ADSNetLibrary.SIGAPI.Helpers
+Imports Extensiones
Partial Class RepContratoDetalle
Inherits ClsPaginas
+ Private Property CveContrato As Integer
+ Get
+ Return CType(ViewState("CveContrato"), Integer)
+ End Get
+ Set(value As Integer)
+ ViewState("CveContrato") = value
+ End Set
+ End Property
+ Private Property Contrato As DataTable
+ Get
+ Return CType(ViewState("Contrato"), DataTable)
+ End Get
+ Set(value As DataTable)
+ ViewState("Contrato") = value
+ End Set
+ End Property
+ Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+ If Request("CveContrato") Is Nothing Then
+ Response.Redirect($"~/Transportes/RepContratos.aspx")
+ End If
+ CveContrato = Request("CveContrato").ToEntero
+
+ If Not IsPostBack Then
+ InicializaCombos()
+ CargaDatos()
+ End If
+ End Sub
+ Private Sub InicializaCombos()
+ 'Lista Tipo AF
+ DdlTipoAF.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa)
+ DdlTipoAF.DataBind()
+ DdlTipoAF.Items.Insert(0, New ListItem("-", ""))
+ End Sub
+ Private Sub CargaDatos()
+ Dim ObjContratos As New ClsContratos
+ If ObjContratos.GetContratos(CveContrato, UsuarioActual.CveEmpresa) Then
+ Contrato = ObjContratos.DtResultados
+ Else
+ Response.Redirect($"~/Transportes/RepContratos.aspx")
+ End If
+
+
+ LbFolio.Text = Contrato.Rows(0)("NumeroContrato").ToString
+ DdlClientes.SelectedText = Contrato.Rows(0)("NombreComercial").ToString
+ DdlClientes.SelectedValue = Contrato.Rows(0)("CveCliente").ToString
+ TxtDescripcion.Text = Contrato.Rows(0)("DescripcionContrato").ToString
+ TxtObservaciones.Text = Contrato.Rows(0)("Observaciones").ToString
+ TxtUbicacion.Text = Contrato.Rows(0)("Ubicacion").ToString
+ TxtFechaSalida.Text = Contrato.Rows(0)("FechaInicial").ToString
+ TxtFechaRegreso.Text = Contrato.Rows(0)("FechaFinal").ToString
+ TxtCantidadPasajeros.Text = Contrato.Rows(0)("CantidadPasajeros").ToString
+ DdlTipoAF.SelectedValue = Contrato.Rows(0)("CveTipoAF").ToString
+ TxtDolares.Text = Contrato.Rows(0)("Importe").ToString
+ TxtPesos.Text = Contrato.Rows(0)("ImporteMax").ToString
+ TxtAnticipo.Text = Contrato.Rows(0)("ImporteMin").ToString
+ End Sub
+
+
End Class
diff --git a/Transportes/RepViajes.aspx b/Transportes/RepViajes.aspx
index 3aea914b8..2e426a745 100644
--- a/Transportes/RepViajes.aspx
+++ b/Transportes/RepViajes.aspx
@@ -45,8 +45,13 @@
<%-- Listado de Viajes --%>
+ data-sort="true" DataKeyNames="CveContrato, NumeroContrato, CveRuta, CveDestino, CvePartida, FechaInicial, CveMasivo">
+
+
+
+
+
@@ -78,18 +83,8 @@
CssClass='<%# If(Eval("Estatus").ToString = "", "", "text-success bold") %>'>
-
-
+
-
-
-
diff --git a/Transportes/RepViajes.aspx.vb b/Transportes/RepViajes.aspx.vb
index f1a0c3db7..050ad184b 100644
--- a/Transportes/RepViajes.aspx.vb
+++ b/Transportes/RepViajes.aspx.vb
@@ -68,6 +68,13 @@ Partial Class ListadoViajes
GvContratos.DataBind()
End If
+ End Sub
+
+ Private Sub LBAgregarViaje_Click(sender As Object, e As EventArgs) Handles LBAgregarViaje.Click
+ MostrarModal()
+ End Sub
+
+ Public Sub MostrarModal()
'Generar Folio
Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero
Dim ObjFolio As New ClsGralFolios
@@ -77,13 +84,7 @@ Partial Class ListadoViajes
LbFolio.Text = $"{drr("Serie").ToString}-{drr("FActual").ToString}"
End If
End If
- End Sub
- Private Sub LBAgregarViaje_Click(sender As Object, e As EventArgs) Handles LBAgregarViaje.Click
- MostrarModal()
- End Sub
-
- Public Sub MostrarModal()
IsMasivo.Visible = True
DdlRutas.Text = ""
TxtFechaViaje.Text = ""
@@ -171,85 +172,31 @@ Partial Class ListadoViajes
Alert("Ocurrió un error al generar viaje", TipoMensaje.MsgError)
ObjContratos.RollBack()
Finally
+ 'Reiniciamos modal
DdlRutas.Text = ""
TxtFechaViaje.Text = ""
DdlPartida.Text = ""
DdlDestino.SelectedValue = ""
+ 'Actualizamos Folio
Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero
Dim ObjFolios As New ClsGralFolios
If ObjFolios.UpdateFolioActual(CveSubProyecto, "Con", True, UsuarioActual.CveEmpresa) Then
ObjFolios.Dispose()
End If
- CargaDatos()
+
ObjContratos.Dispose()
+ CargaDatos()
End Try
End If
-
-
- End Sub
-
- Protected Sub UpdateViaje(sender As Object, e As EventArgs)
- IsMasivo.Visible = False
- DivFechaMasivo.Visible = False
- Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-
- DdlRutas.SelectedValue = GvRow.DataKey("CveRuta")
- DdlDestino.SelectedValue = GvRow.DataKey("CveDestino")
- DdlPartida.SelectedValue = GvRow.DataKey("CvePartida")
- ViewState("CveContrato") = GvRow.DataKey("CveContrato")
- ViewState("Ruta") = GvRow.DataKey("Ruta")
- Dim fecha As DateTime
-
- If DateTime.TryParse(GvRow.DataKey("Fecha").ToString, fecha) Then
- TxtFechaViaje.Text = fecha.ToString("yyyy-MM-dd").Replace(" ", "T")
- End If
-
- BtnGuardar.Text = "Actualizar"
- ModalLabel.InnerHtml = "Actualizar Viaje"
-
-
- RegistraScript(String.Format("$('#{0}').modal('show');", "ModalAgregar"))
-
- End Sub
-
- Protected Sub RemoveViaje(sender As Object, e As EventArgs)
- 'Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
- 'Dim CveMasivo As String = GvRow.DataKey("CveMasivo")
-
- 'Dim ObjTransportes As New ClsTransportes
-
- 'ObjTransportes.IniciaTransacSQL()
- 'If CveMasivo = "" Then
- ' Try
- ' ObjTransportes.RemoveViaje(CveViaje:=GvRow.DataKey("CveViaje").ToEntero)
- ' ObjTransportes.Commit()
- ' Catch ex As Exception
- ' Alert($"Ocurrió un error {ex}", TipoMensaje.MsgError)
- ' End Try
- 'Else
- ' Try
- ' ObjTransportes.RemoveViaje(CveMasivo:=CveMasivo.ToEntero)
- ' ObjTransportes.Commit()
- ' Catch ex As Exception
- ' Alert($"Ocurrió un error {ex}", TipoMensaje.MsgError)
-
- ' End Try
- 'End If
- 'Alert("Viaje eliminado correctamente")
- 'CargaDatos()
- 'ObjTransportes.Dispose()
-
End Sub
Protected Sub ToggleMasivo(sender As Object, e As EventArgs)
DivFechaMasivo.Visible = IsMasivo.Checked
RegistraScript(String.Format("$('#{0}').modal('show');", "ModalAgregar"))
End Sub
-
- Protected Sub GoViaje(sender As Object, e As EventArgs)
+ Protected Sub GoContratoDetalle(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
- Dim CveViaje As String = GvRow.DataKey("CveViaje")
- Response.Redirect(String.Format("~/Transportes/Boletos.aspx?CveViaje={0}", CveViaje))
+ Response.Redirect($"~/Transportes/RepContratoDetalle.aspx?CveContrato={GvRow.DataKey("CveContrato")}")
End Sub
Protected Sub GoBoletos(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 8885ef445..fcf6cc18e 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -12921,6 +12921,18 @@ Partial Class Ventas
Timbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto = False
End If
+ If ObjFactura.CveVenta > 0 AndAlso ObjFactura.EsFacturaGlobal Then
+ Dim SATMes As String = ClsPaginas.GlobalDTGralSATMeses().FiltroPrimeroValor("Mes", $"CveSATMes = {ObjFactura.CveSATMes}")
+ Dim SATPerioricidad = ClsPaginas.GlobalDTGralSATPeriodicidad().FiltroPrimeroValor("Periodicidad", $"CveSATPeriodicidad = {ObjFactura.CveSATPeriodicidad}")
+
+ Timbre.InformacionGlobal = New CFDIInformacionGlobal() With {
+ .Año = ObjFactura.SATAnio.ToString(),
+ .Meses = SATMes,
+ .Perioricidad = SATPerioricidad
+ }
+
+ End If
+
Return Timbre
End Function