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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2024-01-10 00:08:26 -07:00
parent 1c0ed51f53 44658d2b92
commit 2a24d9e0ff
39 changed files with 1649 additions and 179 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Acumuladores/RepPolizasVirtuales.aspx
View File

@@ -117,7 +117,7 @@
<div class="row">
<div class="col-md-12">
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePolizaVirtual,AnioVehiculo,SerieFolio,CveVenta,Descuento,Enviada,FechaEnvioPoliza,FechaIng,PU,TieneUsado,TipoPoliza,TipoServicio,Total,FechaUsado,Serie,Codigo2,IdProductoPolizaVirtual,RespuestaEnvio,IdBCI,BCI,IdModeloAuto,ModeloAuto,IdMarcaAuto,MarcaAuto,IdMarcaUsado,MarcaUsado" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn " data-sort="true" Style="width: 100%" GridLines="None">
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePolizaVirtual,AnioVehiculo,SerieFolio,CveVenta,Descuento,Enviada,FechaEnvioPoliza,FechaIng,PU,TieneUsado,TipoPoliza,TipoServicio,Total,FechaUsado,Serie,NumeroParte,IdProductoPolizaVirtual,RespuestaEnvio,IdBCI,BCI,IdModeloAuto,ModeloAuto,IdMarcaAuto,MarcaAuto,IdMarcaUsado,MarcaUsado" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn " data-sort="true" Style="width: 100%" GridLines="None">
<Columns>
<asp:HyperLinkField DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" DataTextField="SerieFolio" HeaderText="Serie-Folio" ItemStyle-Width="100px" Target="_blank" ControlStyle-CssClass="Texto" >
@@ -129,7 +129,7 @@
<asp:BoundField HeaderText="Serie" DataField="Serie" />
<asp:BoundField HeaderText="Codigo CPK" DataField="Codigo2" />
<asp:BoundField HeaderText="Codigo CPK" DataField="NumeroParte" />
<asp:BoundField HeaderText="RespuestaEnvio" DataField="RespuestaEnvio" />
<asp:TemplateField HeaderText="Marca">
<ItemTemplate>

6
App_Code/ClsGenerales.vb
View File

@@ -986,11 +986,11 @@ Public Class ClsGenerales
End Try
Return Retorno
End Function
End Function
#End Region
#Region "R I M T A M A N I O S"
Public Function GetRimTamanios(CveEmpresa As Integer, Optional CveRinTamaño As Integer = -1) As Boolean
Public Function GetRinTamanios(CveEmpresa As Integer, Optional CveRinTamaño As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Gral_TamañosGet")

61
App_Code/ClsPaginas.vb
View File

@@ -4401,6 +4401,45 @@ Public Class ClsPaginas
Application(AppNombre) = value
End Set
End Property
Public Shared Property GlobalDTPSRinTamaños(CveEmpresa As Integer, Optional CveRinTamaño As Integer = -1) As DataTable
Get
Dim AppNombre As String = $"GlobalDTPSRinTamaños-{CveEmpresa}"
If HttpContext.Current.Application(AppNombre) Is Nothing Then
Using ObjGral As New ClsGenerales()
If ObjGral.GetRinTamanios(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjGral.DtResultados Else HttpContext.Current.Application(AppNombre) = Nothing
End Using
End If
Dim Str As New StringBuilder
If CveRinTamaño > 0 Then Str.AppendFormat(" CveRinTamaño = {0} ", CveRinTamaño)
Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
GlobalDTPSRinTamaños = Dv.ToTable
End Get
Set(value As DataTable)
Dim AppNombre As String = $"GlobalDTPSRinTamaños-{CveEmpresa}"
HttpContext.Current.Application(AppNombre) = value
End Set
End Property
Public Shared Property GlobalDTPSMedidas(CveEmpresa As Integer, Optional CveMedida As Integer = -1) As DataTable
Get
Dim AppNombre As String = $"GlobalDTPSMedidas-{CveEmpresa}"
If HttpContext.Current.Application(AppNombre) Is Nothing Then
Using ObjGral As New ClsGenerales()
If ObjGral.GetMedidas(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjGral.DtResultados Else HttpContext.Current.Application(AppNombre) = Nothing
End Using
End If
Dim Str As New StringBuilder
If CveMedida <> -1 Then Str.AppendFormat(" CveMedida = {0} ", CveMedida)
Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
GlobalDTPSMedidas = Dv.ToTable
End Get
Set(value As DataTable)
Dim AppNombre As String = $"GlobalDTPSMedidas-{CveEmpresa}"
HttpContext.Current.Application(AppNombre) = value
End Set
End Property
#Region "CITRUS GAME"
Property GlobalDTGralEmpacados(CveEmpresa As Integer) As DataTable
Get
@@ -5829,6 +5868,12 @@ Public Class ClsPaginas
NombreArchivo = "Factura"
NombreArchivoDescarga = "Factura"
TipoDocumento = "INGRESO"
If Vta.CveSubProyecto.Contiene(12696, 12698) Then
NombreArchivo = "FacturaUSA"
NombreArchivoDescarga = "FacturaUSA"
End If
If UsuarioActual.CveEmpresa.Contiene(137) Then
params.Add(New ReportParameter("CveVenta", Vta.CveVenta.ToString))
End If
@@ -5876,6 +5921,10 @@ Public Class ClsPaginas
NombreArchivo = "Remision"
NombreArchivoDescarga = "Remisión"
TipoDocumento = "REMISION"
If Vta.CveSubProyecto.Contiene(12696, 12698) Then
NombreArchivo = "FacturaUSA"
NombreArchivoDescarga = "FacturaUSA"
End If
params.Add(New ReportParameter("TipoDocumento", NombreArchivoDescarga))
params.Add(New ReportParameter("Tipo", TipoDocumento))
params.Add(New ReportParameter("Ref", TipoDocumentoRef))
@@ -5885,7 +5934,7 @@ Public Class ClsPaginas
params.Add(New ReportParameter("Documentacion", Vta.Cliente.Documentacion))
params.Add(New ReportParameter("Medico", Vta.Medico))
params.Add(New ReportParameter("Procedimiento", Vta.Procedimiento))
params.Add(New ReportParameter("FechaCirugia", Vta.FechaEjecucion.ToString("dd/MM/yyyy hh:mm")))
params.Add(New ReportParameter("FechaCirugia", Vta.FechaEjecucion.ToString("dd/MM/yyyy HH:mm")))
End If
RutaFormato = String.Format("{0}Formatos\{1}.rdlc", UsuarioActual.Empresa.Ruta, NombreArchivo)
@@ -5993,7 +6042,7 @@ Public Class ClsPaginas
params.Add(New ReportParameter("Documentacion", Vta.Cliente.Documentacion))
params.Add(New ReportParameter("Medico", Vta.Medico))
params.Add(New ReportParameter("Procedimiento", Vta.Procedimiento))
params.Add(New ReportParameter("FechaCirugia", Vta.Alfa1.ToDateTime.ToString("dd/MM/yyyy hh:mm")))
params.Add(New ReportParameter("FechaCirugia", Vta.FechaEjecucion.ToString("dd/MM/yyyy HH:mm")))
End If
RutaFormato = String.Format("{0}Formatos\{1}.rdlc", UsuarioActual.Empresa.Ruta, NombreArchivo)
@@ -6307,7 +6356,7 @@ Public Class ClsPaginas
Dim paramsArray As New JArray()
For Each rds As ReportDataSource In DataSource
Dim Nombre As String = rds.Name
If RutaReporte.Contains("Factura.mrt") OrElse RutaReporte.Contains("Remision.mrt") OrElse RutaReporte.Contains("Cotizacion.mrt") OrElse RutaReporte.Contains("NotaDevolucion.mrt") OrElse RutaReporte.Contains("Pedido.mrt") Then
If RutaReporte.Contains("Factura") OrElse RutaReporte.Contains("Remision") OrElse RutaReporte.Contains("Cotizacion") OrElse RutaReporte.Contains("NotaDevolucion") OrElse RutaReporte.Contains("Pedido") Then
Select Case rds.Name
Case "DsOC"
Nombre = "DtDetalle"
@@ -9583,9 +9632,9 @@ Public Class ClsPaginas
#Region "Transportes"
PaginaDict.Add("/Transportes/ListadoContratos.aspx".ToUpper(), 598)
PaginaDict.Add("/Transportes/ListadoViajes.aspx".ToUpper(), 598)
PaginaDict.Add("/Transportes/Boletos.aspx".ToUpper(), 598)
PaginaDict.Add("/Transportes/ListadoBoletos.aspx".ToUpper(), 598)
PaginaDict.Add("/Transportes/ListadoViajes.aspx".ToUpper(), 599)
PaginaDict.Add("/Transportes/ListadoBoletos.aspx".ToUpper(), 600)
PaginaDict.Add("/Transportes/Boletos.aspx".ToUpper(), 601)
#End Region
'Antes de aquí.

18
App_Code/ClsProductosServicios.vb
View File

@@ -31,7 +31,7 @@ Public Class ClsProductosServicios
Public Property SATClavePS As String
Public Property SATDescripcion As String
Public Property Codigo As String
Public Property Codigo2 As String
Public Property NumeroParte As String
Public Property CodigoBarras As String
Public Property PS As String
Public Property Precio As Double
@@ -202,7 +202,7 @@ Public Class ClsProductosServicios
End Sub
#End Region
Public Function GetPS(CvePS As Integer, CveClasificacion As Integer, CveEmpresa As Integer, Optional Codigo As String = "-1", Optional Codigo2 As String = "-1",
Public Function GetPS(CvePS As Integer, CveClasificacion As Integer, CveEmpresa As Integer, Optional Codigo As String = "-1", Optional NumeroParte As String = "-1",
Optional CodigoBarras As String = "-1", Optional PS As String = "-1", Optional EsPaquete As Integer = -1, Optional CveSubProyecto As Integer = -1,
Optional pAplicaParaVenta As Integer = -1, Optional pEstado As Integer = -1, Optional CveClasificacionCosto As Integer = -1, Optional CveTipoPS As Integer = -1,
Optional CveCompuesto As Integer = -1, Optional SATClavePS As String = "-1", Optional TopSelect As Integer = 10000, Optional CveMarca As Integer = -1) As Boolean
@@ -213,7 +213,7 @@ Public Class ClsProductosServicios
With SqlAdapter.SelectCommand.Parameters
.Add("@CvePS", SqlDbType.Int).Value = CvePS
.Add("@Codigo", SqlDbType.VarChar).Value = Codigo
.Add("@Codigo2", SqlDbType.VarChar).Value = Codigo2
.Add("@NumeroParte", SqlDbType.VarChar).Value = NumeroParte
.Add("@CodigoBarras", SqlDbType.VarChar).Value = CodigoBarras
.Add("@PS", SqlDbType.VarChar).Value = PS
.Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
@@ -242,7 +242,7 @@ Public Class ClsProductosServicios
SATDescripcion = Data.Rows(0)("SATDescripcion").ToString
Me.CveTipoPS = Data.Rows(0)("CveTipoPS").ToString.ToEntero
Me.Codigo = Data.Rows(0)("Codigo").ToString
Me.Codigo2 = Data.Rows(0)("Codigo2").ToString
Me.NumeroParte = Data.Rows(0)("NumeroParte").ToString
Me.CodigoBarras = Data.Rows(0)("CodigoBarras").ToString
Me.PS = Data.Rows(0)("PS").ToString
Precio = Data.Rows(0)("Precio").ToString.ToDouble
@@ -400,7 +400,7 @@ Public Class ClsProductosServicios
End Try
Return Retorno
End Function
Public Function AddPS(CveClasificacion As Integer, CveClasificacionCosto As Integer, CveUnidadMedida As Integer, Codigo As String, Codigo2 As String, CodigoBarras As String, PS As String, Precio As Double, IVA As Double, RetIVA As Double, Inventariable As Boolean, CveProveedorCompra As Integer,
Public Function AddPS(CveClasificacion As Integer, CveClasificacionCosto As Integer, CveUnidadMedida As Integer, Codigo As String, NumeroParte As String, CodigoBarras As String, PS As String, Precio As Double, IVA As Double, RetIVA As Double, Inventariable As Boolean, CveProveedorCompra As Integer,
AplicaParaConcepto As Boolean, AplicaParaVenta As Boolean, CveUsuario As Integer, CveEmpresa As Integer, CveMetodoInventario As Integer, EsPaquete As Integer,
Optional CveTipoPS As Integer = -1, Optional FuePorXML As Boolean = True, Optional TipoServicio As Integer = -1, Optional CveClasificacion2 As Integer = -1,
Optional CveMarca As Integer = -1, Optional AlmacenSeccion As String = "", Optional AplicaIEPS As Boolean = False, Optional IEPSPorcentaje As Decimal = -1,
@@ -425,7 +425,7 @@ Public Class ClsProductosServicios
.Add("@CveClasificacionCosto", SqlDbType.Int).Value = CveClasificacionCosto
.Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida
.Add("@Codigo", SqlDbType.VarChar).Value = Codigo
.Add("@Codigo2", SqlDbType.VarChar).Value = If(Codigo2 = "", "-1", Codigo2)
.Add("@NumeroParte", SqlDbType.VarChar).Value = If(NumeroParte = "", "-1", NumeroParte)
.Add("@CodigoBarras", SqlDbType.VarChar).Value = If(CodigoBarras = "", "-1", CodigoBarras)
.Add("@PS", SqlDbType.VarChar).Value = If(PS.Length > 845, PS.Substring(0, 845), PS)
.Add("@Precio", SqlDbType.Float).Value = Precio
@@ -553,7 +553,7 @@ Public Class ClsProductosServicios
.Add("@CveClasificacionCosto", SqlDbType.Int).Value = PS.CveClasificacionCosto
.Add("@CveUnidadMedida", SqlDbType.Int).Value = PS.CveUnidadMedida
.Add("@Codigo", SqlDbType.VarChar).Value = PS.Codigo
.Add("@Codigo2", SqlDbType.VarChar).Value = If(PS.Codigo2 = "", "-1", PS.Codigo2)
.Add("@NumeroParte", SqlDbType.VarChar).Value = If(PS.NumeroParte = "", "-1", PS.NumeroParte)
.Add("@CodigoBarras", SqlDbType.VarChar).Value = If(PS.CodigoBarras = "", "-1", PS.CodigoBarras)
.Add("@PS", SqlDbType.VarChar).Value = If(PS.PS.Length > 845, PS.PS.Substring(0, 845), PS.PS)
.Add("@Precio", SqlDbType.Float).Value = PS.Precio
@@ -646,7 +646,7 @@ Public Class ClsProductosServicios
Return Retorno
End Function
Public Function UpdatePS(CveClasificacion As Integer, CveClasificacionCosto As Integer, CveUnidadMedida As Integer, Codigo As String, Codigo2 As String, CodigoBarras As String, PS As String, Precio As Double, IVA As Double, RetIVA As Double, Inventariable As Boolean, CveProveedorCompra As Integer,
Public Function UpdatePS(CveClasificacion As Integer, CveClasificacionCosto As Integer, CveUnidadMedida As Integer, Codigo As String, NumeroParte As String, CodigoBarras As String, PS As String, Precio As Double, IVA As Double, RetIVA As Double, Inventariable As Boolean, CveProveedorCompra As Integer,
AplicaParaConcepto As Boolean, AplicaParaVenta As Boolean, Estado As Boolean, CveUsuario As Integer, CvePS As Integer, CveMetodoInventario As Integer, EsPaquete As Integer, CveSATPS As Integer, CveEmpresa As Integer, Optional CveTipoPS As Integer = -1, Optional TipoServicio As Integer = -1,
Optional CveClasificacion2 As Integer = -1, Optional CveMarca As Integer = -1, Optional AlmacenSeccion As String = "", Optional AplicaIEPS As Boolean = False, Optional IEPSPorcentaje As Decimal = -1,
Optional CveCompuesto As Integer = -1, Optional IEPSGrabaIVA As Boolean = False, Optional VentaMinima As Decimal = 0,
@@ -669,7 +669,7 @@ Public Class ClsProductosServicios
.Add("@CveClasificacionCosto", SqlDbType.Int).Value = CveClasificacionCosto
.Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida
.Add("@Codigo", SqlDbType.VarChar).Value = Codigo
.Add("@Codigo2", SqlDbType.VarChar).Value = If(Codigo2 = "", "-1", Codigo2)
.Add("@NumeroParte", SqlDbType.VarChar).Value = If(NumeroParte = "", "-1", NumeroParte)
.Add("@CodigoBarras", SqlDbType.VarChar).Value = If(CodigoBarras = "", "-1", CodigoBarras)
.Add("@PS", SqlDbType.VarChar).Value = PS
.Add("@Precio", SqlDbType.Float).Value = Precio

18
App_Code/ClsTransportes.vb
View File

@@ -316,6 +316,24 @@ Public Class ClsTransportes
End Function
#End Region
Public Function GetDestinos(Optional CveRuta As Integer = 0) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Trans_DestinosGet")
If CveRuta <> 0 Then
With SqlAdapter.SelectCommand.Parameters
.Add("@CveRuta", SqlDbType.Int).Value = CveRuta
End With
End If
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener los destino.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
#Region "Tarifas"
Public Function GetDestinosTarifas(CveDestinoOrigen As Integer, CveDestinoFinal As Integer) As Boolean

11
App_Code/ClsVentas.vb
View File

@@ -574,7 +574,7 @@ Public Class ClsVentas
Optional AtencionA As String = "-1", Optional PedidoContrato As String = "-1", Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1,
Optional CveCliente As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional OrdenCompra As String = "-1", Optional RetIVA As Double = -1,
Optional RetISR As Double = -1, Optional Kilometraje As Double = 0, Optional CveUsoCFDi As Integer = -1, Optional ServicioDomicilio As Boolean = False, Optional CveVendedor As Integer = -1,
Optional RequiereOS As Boolean = False) As Boolean
Optional RequiereOS As Boolean = False, Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_VentasUpdate")
@@ -610,6 +610,8 @@ Public Class ClsVentas
.Add("@ServicioDomicilio", SqlDbType.Bit).Value = ServicioDomicilio
.Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
.Add("@RequiereOS", SqlDbType.Int).Value = RequiereOS
.Add("@CveMedico", SqlDbType.Int).Value = CveMedico
.Add("@CveProcedimiento", SqlDbType.Int).Value = CveProcedimiento
End With
Try
@@ -623,7 +625,7 @@ Public Class ClsVentas
End Function
Public Function UpdateObservacionesVenta(CveVenta As Integer, CveEmpresa As Integer, CveVendedor As Integer, Observaciones As String, FormaPaqueteria As Integer, CorreoNotificaciones As String, ObservacionesAlm As String,
Pedido As String, OrdenCompra As String, FechaPago As String, CveUsoCFDI As Integer) As Boolean
Pedido As String, OrdenCompra As String, FechaPago As String, CveUsoCFDI As Integer, Optional DescripcionVenta As String = "-1", Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_VentasObservacionesUpdate")
With SqlAdapter.SelectCommand.Parameters
@@ -638,6 +640,11 @@ Public Class ClsVentas
.Add("@Pedido", SqlDbType.NVarChar).Value = Pedido
.Add("@OrdenCompra", SqlDbType.NVarChar).Value = OrdenCompra
.Add("@FechaPago", SqlDbType.Date).Value = FechaPago
.Add("@DescripcionVenta", SqlDbType.VarChar).Value = DescripcionVenta
.Add("@CveMedico", SqlDbType.Int).Value = CveMedico
.Add("@CveProcedimiento", SqlDbType.Int).Value = CveProcedimiento
End With
Try
SqlAdapter.Fill(Data)

6
App_Code/Modelos.vb
View File

@@ -7563,7 +7563,7 @@ Namespace Modelos
Public Property CveVendedor As Integer = 0
Public Property VendedorCodigo As String = ""
Public Property CveSucursalEjecucion As Integer
Public Property FechaEjecucion As Date
Public Property FechaEjecucion As DateTime
Public Property CveSucursalCobranza As Integer
Public Property CveSubProyectoCobranza As Integer
@@ -8769,7 +8769,7 @@ Namespace Modelos
CveClasificacionCosto = -1
CveClasificacion = -1
Codigo = ""
Codigo2 = ""
NumeroParte = ""
CodigoBarras = ""
CveMetodoInventario = -1
CveTipoPS = -1
@@ -8796,7 +8796,7 @@ Namespace Modelos
Public Property UnidadMedida As String
Public Property SATClaveUnidadMedida As String
Public Property Codigo As String
Public Property Codigo2 As String
Public Property NumeroParte As String
Public Property CodigoBarras As String
Public Property PS As String
Public Property SATClavePS As String

8
App_Code/Timbrado.vb
View File

@@ -459,8 +459,6 @@ Public Class Timbrado
Clave = "12345678a"
TimbraProduccion = False
UsuarioServicio = "UserTest"
ClaveServicio = "1234567890"
End If
Dim llaveByte As Byte(), certByte As Byte()
@@ -1011,6 +1009,8 @@ Public Class Timbrado
Private Function EnviarInformacionPADE(url As String, payload As String, tokenAuth As String) As String
Dim Retorno As String = ""
Try
ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
Using httpClient As New HttpClient()
httpClient.Timeout = New TimeSpan(0, 1, 0)
Using request As New HttpRequestMessage(HttpMethod.Post, New Uri(url))
@@ -1025,7 +1025,7 @@ Public Class Timbrado
End Using
Catch ex As Exception
Retorno = ""
OnError("Ocurrió un error al enviar la informacion", ex)
OnError("PAC no está respondiendo. No se puede emitir el timbre (Err.PAC5).", ex)
End Try
Return Retorno
End Function
@@ -3171,8 +3171,6 @@ Public Class Timbrado
Clave = "12345678a"
TimbraProduccion = False
UsuarioServicio = "UserTest"
ClaveServicio = "1234567890"
End If

2
App_Code/Timbres.vb
View File

@@ -303,7 +303,7 @@ Public Class Timbres
.DescripEmbalaje = drr("Embalaje").ToString,
.ValorMercancia = drr("PU").ToString.ToDecimal,
.Moneda = If(drr("PU").ToString.ToDecimal > 0, "MXN", ""), 'temporal
.FraccionArrancelaria = "",
.FraccionArrancelaria = drr("ClaveSATFraccionArancelaria").ToString,
.UUIDComercioExt = "",
.SectorCOFEPRIS = drr("ClaveSectorCOFEPRIS").ToString,
.NombreIngredienteActivo = drr("NombreIngredienteActivo").ToString,

4
App_Code/modExtensiones.vb
View File

@@ -821,6 +821,10 @@ Namespace Extensiones
End If
Return Tmp
End Function
<Runtime.CompilerServices.Extension()>
Public Function SubStringADS(Str As String, Longitud As Integer) As String
Return Str.Substring(0, If(Str.Length > Longitud, Longitud, Str.Length))
End Function
<Runtime.CompilerServices.Extension()>
Public Function Texto2Letras(ByVal Importe As Decimal, Optional CveMoneda As Integer = 1) As String

23
Ashx/E119.ashx
View File

@@ -384,8 +384,13 @@ Public Class E119 : Implements IHttpHandler
CveMoneda = 1
Descuento = 0
MsgLog.AppendLine("1.3 billing")
Dim RFC As String = If(JsonRequest("billing") Is Nothing, "", JsonRequest("billing")("first_name").ToString())
Dim NombreCliente As String = If(JsonRequest("billing") Is Nothing, "", JsonRequest("billing")("first_name").ToString() & " " & JsonRequest("billing")("last_name").ToString())
Dim RFC As String = ""
Dim NombreCliente As String = ""
If JsonRequest("billing") IsNot Nothing Then
RFC = JsonRequest("billing").First("first_name").ToString()
NombreCliente = JsonRequest("billing").First("first_name").ToString() & " " & JsonRequest("billing").First("last_name").ToString()
End If
'BUSCAR SI ESTÁ REGISTRADO EL CLIENTE
If ObjClientes.GetClientes(-1, "-1", "-1", "-1", RFC, "-1", "-1", -1, CveEmpresa, 1, TipoCliente:=-1, TopSelect:=1) Then
If ObjClientes.DtResultados.Rows.Count > 0 Then
@@ -401,16 +406,16 @@ Public Class E119 : Implements IHttpHandler
MsgLog.AppendLine("1.5 crear cliente")
If JsonRequest("billing") IsNot Nothing Then
Dim CveEstado As Integer = -1
Dim Direccion As String = If(JsonRequest("billing")("address_1") Is Nothing, "", JsonRequest("billing")("address_1").ToString())
Dim Direccion As String = If(JsonRequest("billing").First("address_1") Is Nothing, "", JsonRequest("billing").First("address_1").ToString())
Dim NumExt As String = ""
Dim NumInt As String = ""
Dim Colonia As String = ""
Dim Ciudad As String = If(JsonRequest("billing")("city") Is Nothing, "", JsonRequest("billing")("city").ToString())
Dim Localidad As String = If(JsonRequest("billing")("city") Is Nothing, "", JsonRequest("billing")("city").ToString())
Dim CP As String = If(JsonRequest("billing")("postcode") Is Nothing, "", JsonRequest("billing")("postcode").ToString())
Dim Telefono As String = If(JsonRequest("billing")("phone") Is Nothing, "", JsonRequest("billing")("phone").ToString())
Dim Correo As String = If(JsonRequest("billing")("email") Is Nothing, "", JsonRequest("billing")("email").ToString())
Dim Estado As String = If(JsonRequest("billing")("state") Is Nothing, "", JsonRequest("billing")("state").ToString())
Dim Ciudad As String = If(JsonRequest("billing").First("city") Is Nothing, "", JsonRequest("billing").First("city").ToString())
Dim Localidad As String = If(JsonRequest("billing").First("city") Is Nothing, "", JsonRequest("billing").First("city").ToString())
Dim CP As String = If(JsonRequest("billing").First("postcode") Is Nothing, "", JsonRequest("billing").First("postcode").ToString())
Dim Telefono As String = If(JsonRequest("billing").First("phone") Is Nothing, "", JsonRequest("billing").First("phone").ToString())
Dim Correo As String = If(JsonRequest("billing").First("email") Is Nothing, "", JsonRequest("billing").First("email").ToString())
Dim Estado As String = If(JsonRequest("billing").First("state") Is Nothing, "", JsonRequest("billing").First("state").ToString())
If Not String.IsNullOrEmpty(Estado) Then
CveEstado = ClsPaginas.GlobalDTGralEstados("MEX").FiltroPrimeroValor("CveEstado", $"NombreEstado = '{Estado.Trim}'").ToEntero()
If CveEstado <= 0 Then 'SI NO ENCUENTRA EL ESTADO INGRESA EL DE SONORA

14
Ashx/E141.ashx
View File

@@ -98,8 +98,8 @@ Public Class E141 : Implements IHttpHandler
Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
Dim retorno As String = ""
Try
Dim Params = If(context.Request("P") = Nothing, "", context.Request("P").ToString())
Dim ParamsV = If(context.Request("PV") = Nothing, "", context.Request("PV").ToString())
Dim Params As String = If(context.Request("P") = Nothing, "", context.Request("P").ToString())
Dim ParamsV As String = If(context.Request("PV") = Nothing, "", context.Request("PV").ToString())
Dim ParametrosNuevos As Boolean = False
If Not String.IsNullOrEmpty(ParamsV) Then
@@ -135,16 +135,16 @@ Public Class E141 : Implements IHttpHandler
Else
Dim Metodo = If(context.Request("Metodo") = Nothing, "", context.Request("Metodo").ToString())
Dim Metodo As String = If(context.Request("Metodo") = Nothing, "", context.Request("Metodo").ToString())
'OBTENER EXISTENCIAS
If Metodo = "GetExistencia" Then
context.Response.ContentType = "application/json"
Dim Codigo = If(context.Request("Sku") = Nothing, "", context.Request("Sku").ToString())
Dim Codigo As String = If(context.Request("Sku") = Nothing, "", context.Request("Sku").ToString())
retorno = GetExistencia(context, Codigo)
ElseIf Metodo = "ConsultarRFC" Then
context.Response.ContentType = "application/json"
Dim Auth = ValidarSolicitud(context)
Dim Auth As AuthMessage = ValidarSolicitud(context)
If Auth.IsSucces Then
retorno = ConsultaRFC(context)
@@ -155,7 +155,7 @@ Public Class E141 : Implements IHttpHandler
ElseIf Metodo = "ValidarCarrito" Then
context.Response.ContentType = "application/json"
Dim Auth = ValidarSolicitud(context)
Dim Auth As AuthMessage = ValidarSolicitud(context)
If Auth.IsSucces Then
retorno = ValidarCarrito(context)
@@ -166,7 +166,7 @@ Public Class E141 : Implements IHttpHandler
ElseIf Metodo = "RegistrarPedido" Then
context.Response.ContentType = "application/json"
Dim Auth = ValidarSolicitud(context)
Dim Auth As AuthMessage = ValidarSolicitud(context)
If Auth.IsSucces Then
retorno = RegistrarPedido(context)

11
Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
View File

@@ -2130,6 +2130,12 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
If GvIngresosSubProyectoH.Columns(IndexGv).GetType.Name = "BoundField" Then
If dColumn.ColumnName = "SinSubProyecto" Then
'TxtSub = "Sin SubProyecto"
'Continue For
Exit For
End If
CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).DataField = dColumn.ColumnName
GvIngresosSubProyectoH.Columns(IndexGv).Visible = True
@@ -2143,9 +2149,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Dim TxtSub As String = GlobalDTSubProyectos(-1, CveSubProyecto:=dColumn.ColumnName.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto")
If dColumn.ColumnName = "SinSubProyecto" Then
TxtSub = "Sin SubProyecto"
End If
CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub
@@ -2190,6 +2194,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
IndexData = IndexData + 1
If dColumn.ColumnName = "SinSubProyecto" Then
'Continue For
Exit For
End If
Next

1155
Empresas/188/Formatos/Boleto.mrt Normal file
View File

File diff suppressed because it is too large Load Diff

2
General/CatMedidaEquivalencia.aspx.cs
View File

@@ -50,7 +50,7 @@ public partial class General_CatMedidaEquivalencia : ClsPaginas
DdlMedidas.DataSource = ObjGeneral.DtResultados;
DdlMedidasEquivalente.DataSource = ObjGeneral.DtResultados;
}
if (ObjGeneral.GetRimTamanios(UsuarioActual.CveEmpresa))
if (ObjGeneral.GetRinTamanios(UsuarioActual.CveEmpresa))
{
DdlRin.DataSource = ObjGeneral.DtResultados;
DdlRinEquivalente.DataSource = ObjGeneral.DtResultados;

2
General/CatRinTamanios.aspx.vb
View File

@@ -30,7 +30,7 @@ Partial Class General_CatRinTamanios
End If
End Sub
#Region "CARGAS"
#Region "CARGAS"
Private Sub CargaCombos()
DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
DdlClasificacion.DataBind()

10
General/SaldosIniciales.aspx.vb
View File

@@ -682,13 +682,9 @@ Partial Class General_SaldosIniciales
DtMarcas = ObjPS.DtResultados.Copy
End If
If ObjGral.GetMedidas(UsuarioActual.CveEmpresa) Then
DtMedidas = ObjGral.DtResultados.Copy
End If
DtMedidas = GlobalDTPSMedidas(UsuarioActual.CveEmpresa)
DtRinTamaño = GlobalDTPSRinTamaños(UsuarioActual.CveEmpresa)
If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then
DtRinTamaño = ObjGral.DtResultados.Copy
End If
If ObjGral.GetModelos(UsuarioActual.CveEmpresa) Then
DtModelos = ObjGral.DtResultados.Copy
@@ -782,7 +778,7 @@ Partial Class General_SaldosIniciales
CveRinTamaño = DtRinTamaño.FiltroPrimeroValor("CveRinTamaño", $"RinTamaño = '{RinTamaño}'").ToString().ToEntero()
If Not CveRinTamaño > 0 Then
If ObjGral.AddRimTamanios(CveClasificacion, "", RinTamaño, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then
If ObjGral.GetRinTamanios(UsuarioActual.CveEmpresa) Then
DtRinTamaño = ObjGral.DtResultados.Copy
CveRinTamaño = DtRinTamaño.FiltroPrimeroValor("CveRinTamaño", $"RinTamaño = '{RinTamaño}'").ToString().ToEntero()
End If

83
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -5,7 +5,7 @@ Imports System.Data
Imports System.Data.SqlClient
Imports System.IO
Imports Extensiones
Imports Microsoft.Owin.Security.Provider
Imports Microsoft.Reporting.WebForms
Partial Class Inventarios_EntregaAlmacen
@@ -4269,27 +4269,36 @@ Partial Class Inventarios_EntregaAlmacen
Respuesta = ObjOS.UpdateOrdenesServiciosEstatus(CveOSEstatusFinalizada, UsuarioActual.CveUsuario, CveOSCerrar)
Dim cancelarPeido As Boolean = CancelarPedido(TransaccionSql, CveMovimientoGenerado, Respuesta)
If Respuesta Then
Dim ObjInventario As New ClsInventarios(ObjOS.IniciaTransacSQL)
Dim ObjInventario As New ClsInventarios(TransaccionSql)
If ObjInventario.GetMovimientosDetalle(CveMovimientoGenerado, UsuarioActual.CveEmpresa) Then
If Not cancelarPeido Then
For Each Dr As DataRow In ObjInventario.DtResultados.Rows
For Each Dr As DataRow In ObjInventario.DtResultados.Rows
Dim CveVentaDetalle As Integer = Dr("CveVentaDetalle").ToString().ToEntero()
Dim Cantidad As Decimal = Dr("Cantidad").ToString().ToDecimal
Dim CveVentaDetalle As Integer = Dr("CveVentaDetalle").ToString().ToEntero()
Dim Cantidad As Decimal = Dr("Cantidad").ToString().ToDecimal
If CveVentaDetalle > 0 Then
If Not ObjInventario.UpdatePedidoDetalleCantidad(CveVentaDetalle, Cantidad) Then
If CveVentaDetalle > 0 Then
If Not ObjInventario.UpdatePedidoDetalleCantidad(CveVentaDetalle, Cantidad) Then
Respuesta = False
Exit For
End If
Else
Respuesta = False
Exit For
End If
Else
Respuesta = False
End If
Next
Next
End If
End If
End If
If Respuesta AndAlso cancelarPeido Then
Dim objVentas As New ClsVentas(TransaccionSql)
If Not objVentas.UpdateEstatusVenta(CveVentaSurtir, 4, UsuarioActual.CveEmpresa) Then
Respuesta = False
End If
End If
@@ -4302,4 +4311,48 @@ Partial Class Inventarios_EntregaAlmacen
End Function
Private Function CancelarPedido(ByRef TransaccionSql As SqlTransaction, CveMovimientoGenerado As Integer, ByRef RespuestaPadre As Boolean) As Boolean
Dim Cancelar As Boolean = True
Dim objVentas As New ClsVentas(TransaccionSql)
Dim ObjInventario As New ClsInventarios(TransaccionSql)
Dim DTMovimiento As New DataTable
Dim DTPedidoDetalle As New DataTable
If ObjInventario.GetMovimientosDetalle(CveMovimientoGenerado, UsuarioActual.CveEmpresa) Then
DTMovimiento = ObjInventario.DtResultados
Else
RespuestaPadre = False
End If
If objVentas.GetVentaDetalle(CveVentaSurtir) Then
DTPedidoDetalle = objVentas.DtResultados
Else
RespuestaPadre = False
End If
If RespuestaPadre Then
For Each rowPedido As DataRow In DTPedidoDetalle.Rows
Dim CantidadPedido As Decimal = rowPedido("Cantidad").ToString.ToDecimal
Dim CveVentaDetalle As Integer = rowPedido("CveVentaDetalle").ToString.ToEntero
Dim CantidadDevuelto As Decimal = DTMovimiento.FiltroPrimeroValor("Cantidad", $"CveVentaDetalle = {CveVentaDetalle}").ToDecimal
If CantidadPedido <> CantidadDevuelto Then
Cancelar = False
Exit For
End If
Next
End If
Return Cancelar
End Function
End Class

25
Inventarios/PopUpExistenciasAlmacen.aspx.vb
View File

@@ -2,6 +2,7 @@
Option Strict On
Imports Extensiones
Imports System.Data
Partial Class Inventarios_Default
Inherits ClsPaginas
@@ -247,7 +248,7 @@ Partial Class Inventarios_Default
Dim ObjInventarios As New ClsInventarios
If ObjInventarios.GetExistencias119(DDlPS.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveUsuario, Compuesto) Then
GV.DataSource = ObjInventarios.DtResultados
TblBusqueda.Visible = False
TblBusqueda.Visible = True
CargaPS(DDlPS.SelectedValue.ToEntero)
GV.Columns(6).Visible = True
End If
@@ -280,16 +281,18 @@ Partial Class Inventarios_Default
End Sub
#End Region
Private Sub CargarMedRin()
Dim ObjGral As New ClsGenerales
If ObjGral.GetMedidas(UsuarioActual.CveEmpresa) Then
DdlMedidas.DataSource = ObjGral.DtResultados.FiltraParametros("", Orderby:="Medida")
If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then
DdlRin.DataSource = ObjGral.DtResultados.FiltraParametros("", Orderby:="RinTamaño")
End If
End If
ObjGral.Dispose()
DdlMedidas.DataBind()
Private Sub CargarMedRin()
'Dim ObjGral As New ClsGenerales
'If ObjGral.GetMedidas(UsuarioActual.CveEmpresa) Then
' DdlMedidas.DataSource = GlobalDTPS.FiltraParametros("", Orderby:="Medida")
' If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then
' DdlRin.DataSource = ObjGral.DtResultados.FiltraParametros("", Orderby:="RinTamaño")
' End If
'End If
'ObjGral.Dispose()
DdlMedidas.DataSource = GlobalDTPSMedidas(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Medida")
DdlMedidas.DataBind()
DdlRin.DataSource = GlobalDTPSRinTamaños(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="RinTamaño")
DdlRin.DataBind()
DdlMedidas.Items.Insert(0, New ListItem("-", "-1"))
DdlRin.Items.Insert(0, New ListItem("-", "-1"))

2
Inventarios/RecepcionAlmacen.aspx.vb
View File

@@ -4991,7 +4991,7 @@ Partial Class Inventarios_RecepcionAlmacen
dt.Rows(dt.Rows.Count - 1)("Producto") = rr(6).Trim
dt.Rows(dt.Rows.Count - 1)("Serie") = rr(7).Trim
dt.Rows(dt.Rows.Count - 1)("Cantidad") = 1
dt.Rows(dt.Rows.Count - 1)("Código") = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Codigo", String.Format("Codigo2 = '{0}'", rr(5).Trim))
dt.Rows(dt.Rows.Count - 1)("Código") = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Codigo", String.Format("NumeroParte = '{0}'", rr(5).Trim))
End If
End If

4
Inventarios/RepEntradasSalidas.aspx
View File

@@ -222,14 +222,14 @@
<asp:UpdatePanel ID="UPPMov" runat="server" RenderMode="Inline" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvM" Width="100%" runat="server" data-sort="false" GridLines="None" CssClass="table table-smallpadding table-striped table-hover Widthall ScrollAD"
DataKeyNames="CvePS,CveMoneda,CveProveedor,CveConcepto,FechaI,FechaF,CveAlmacen,CvePersonal,Codigo,Codigo2,PS"
DataKeyNames="CvePS,CveMoneda,CveProveedor,CveConcepto,FechaI,FechaF,CveAlmacen,CvePersonal,Codigo,NumeroParte,PS"
ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
<Columns>
<%--0--%>
<asp:HyperLinkField DataNavigateUrlFields="CvePS,CveMoneda,CveProveedor,CveConcepto,FechaI,FechaF,CveAlmacen,CvePersonal,Tipo" DataNavigateUrlFormatString="~/Inventarios/RepExistenciasCostos.aspx?CvePS={0}&CveMoneda={1}&CveProveedor={2}&CveConcepto={3}&FechaI={4}&FechaF={5}&CveAlmacen={6}&CvePersonal={7}&Tipo={8}" Target="_blank" ItemStyle-Width="10%" HeaderText="Código" ControlStyle-CssClass="Texto" ItemStyle-HorizontalAlign="Left" DataTextField="Codigo" />
<%--1--%>
<asp:HyperLinkField DataNavigateUrlFields="CvePS,CveMoneda,CveProveedor,CveConcepto,FechaI,FechaF,CveAlmacen,CvePersonal,Tipo" DataNavigateUrlFormatString="~/Inventarios/RepExistenciasCostos.aspx?CvePS={0}&CveMoneda={1}&CveProveedor={2}&CveConcepto={3}&FechaI={4}&FechaF={5}&CveAlmacen={6}&CvePersonal={7}&Tipo={8}" Target="_blank" ItemStyle-Width="10%" HeaderText="Código2" ControlStyle-CssClass="Texto" ItemStyle-HorizontalAlign="Left" Visible="False" DataTextField="Codigo2" />
<asp:HyperLinkField DataNavigateUrlFields="CvePS,CveMoneda,CveProveedor,CveConcepto,FechaI,FechaF,CveAlmacen,CvePersonal,Tipo" DataNavigateUrlFormatString="~/Inventarios/RepExistenciasCostos.aspx?CvePS={0}&CveMoneda={1}&CveProveedor={2}&CveConcepto={3}&FechaI={4}&FechaF={5}&CveAlmacen={6}&CvePersonal={7}&Tipo={8}" Target="_blank" ItemStyle-Width="10%" HeaderText="NumeroParte" ControlStyle-CssClass="Texto" ItemStyle-HorizontalAlign="Left" Visible="False" DataTextField="NumeroParte" />
<%--2--%>
<asp:BoundField Visible="false" DataField="CodigoBarras" HeaderText="CodigoBarras" ItemStyle-Width="10%" />
<%--3--%>

5
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -2933,11 +2933,10 @@ Partial Class Inventarios_TraspasoAlmacen
Dim RowsNoCargados As Integer = 0
Dim NoPSConSerie As Integer = 0
Try
Dim DtPS As DataTable = GlobalDTPS(UsuarioActual.CveEmpresa)
Dim DtPS As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
For Each RowExcel As DataRow In dt.Rows
If RowExcel("Codigo").ToString() <> "" Then
Dim RowPS As DataRow = DtPS.FiltroPrimero(String.Format("Codigo='{0}'", RowExcel("Codigo").ToString()))
Dim CveProducto As Integer = RowPS("CvePS").ToString().ToEntero()
@@ -2954,7 +2953,7 @@ Partial Class Inventarios_TraspasoAlmacen
Dim Valido As Boolean = True
Dim ValidarLote As Boolean = True
If GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}").ToEntero = 6 Then
If GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}") = "6" Then
ValidarLote = False
End If

2
OS/OrdenesServicios.aspx
View File

@@ -1291,7 +1291,7 @@
<HeaderTemplate>Utilizado</HeaderTemplate>
<ItemTemplate>
<asp:TextBox ID="TxtUtilizado" runat="server" Width="50px" ></asp:TextBox>
<ajax:FilteredTextBoxExtender runat="server" FilterType="Custom" TargetControlID="TxtUtilizado" ValidChars="123456789." />
<ajax:FilteredTextBoxExtender runat="server" FilterType="Custom" TargetControlID="TxtUtilizado" ValidChars="1234567890." />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>

23
OS/OrdenesServicios.aspx.vb
View File

@@ -3007,18 +3007,27 @@ Partial Class OS_OrdenesServicios
Dim ObjInventario As New ClsInventarios(ObjV.IniciaTransacSQL())
Dim ObjConta As New ClsContabilidad(ObjV.IniciaTransacSQL())
Dim GenrarRemisionMovimientos As Boolean = False
If ProcesoOK Then
Dim AplicaDevolucion As Boolean = False
For Each GvRow As GridViewRow In GvMU.Rows
Dim CveVentaDetalle As Integer = GvRow.DataKey("CveVentaDetalle").ToEntero
Dim CantidadDev As Decimal = GvRow.DataKey("Cantidad").ToDecimal - GvRow.FCTextBox("TxtUtilizado").Text.ToDecimal
If CantidadDev > 0 Then
AplicaDevolucion = True
If Not ObjV.UpdateVentasDetalleCantidadDevolucion(CveVentaDetalle, CantidadDev) Then
ProcesoOK = False
GenrarRemisionMovimientos = False
AplicaDevolucion = False
Exit For
End If
End If
If GvRow.FCTextBox("TxtUtilizado").Text.ToDecimal > 0 Then
GenrarRemisionMovimientos = True
End If
Next
If AplicaDevolucion Then
If Not ObjV.UpdateVentasDevolucionAlmacen(1, CveVenta) Then
@@ -3032,7 +3041,7 @@ Partial Class OS_OrdenesServicios
Dim ImporteAlmacen As Decimal
Dim Fecha As DateTime = ClsPaginas.NowADS()
If ProcesoOK Then
If GenrarRemisionMovimientos AndAlso ProcesoOK Then
Respuesta = GeneraRemision(CveVentaPedido, ObjV.IniciaTransacSQL())
If Respuesta.CveVenta > 0 Then
@@ -3046,7 +3055,7 @@ Partial Class OS_OrdenesServicios
End If
End If
If ProcesoOK Then
If GenrarRemisionMovimientos AndAlso ProcesoOK Then
CveMovimientoSalida = ObjInventario.AddMovimiento(CveAlmacenActual, 8, CveMoneda, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, Respuesta.CveVenta, CveSubProyectoPedido, -1, CveOS:=CveOS, CveAlmacenDestino:=CveAlmacenDestino, Modulo:="OS/MatUtil")
Dim Folio As Integer = ObjInventario.Folio
@@ -3063,7 +3072,7 @@ Partial Class OS_OrdenesServicios
Dim PU As Decimal = GvRow.DataKey("PU").ToDecimal
If CantidadRegistro > 0 Then
Dim CveVentaDetalle As Integer = DtVentaDetalle.Rows(IndexMov1)("CveVentaDetalle").ToString.ToEntero
Dim CveVentaDetalle As Integer = GvRow.DataKey("CveVentaDetalle").ToEntero ' DtVentaDetalle.Rows(IndexMov1)("CveVentaDetalle").ToString.ToEntero
Dim CveMovimientoDetalle As Integer = GvRow.DataKey("CveMovimientoDetalle").ToEntero
Dim Serie As String = GvRow.DataKey("Serie")
@@ -3146,7 +3155,13 @@ Partial Class OS_OrdenesServicios
If ProcesoOK Then
ObjV.Commit()
Alert("El material utilizado se guardó correctamente")
If GenrarRemisionMovimientos = False Then
Alert("El material sera recibido en almacén.")
Else
Alert("El material utilizado se guardó correctamente")
End If
RegistraScript("$('#DivModalMaterialUtilizado').modal('hide');")
Else
ObjV.RollBack()

7
Sistemas/CatModulos.aspx.vb
View File

@@ -50,6 +50,7 @@ Partial Class CatModulos
UsuarioActual.CveUsuario, DdlPlataforma.SelectedValue.ToEntero) Then
RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalModulos"))
Alert("El nuevo Módulo se guardó correctamente.", TipoMensaje.MsgInformacion)
GlobalDTModulos = Nothing
CargaDatos()
UpDatos.Update()
End If
@@ -58,6 +59,7 @@ Partial Class CatModulos
TxtOrden.Text.Trim().ToEntero(), TxtEstilo.Text.Trim(), CboIncluye.SelectedValue, CboAgrupacion.SelectedValue, UsuarioActual.CveUsuario, HdnID.Value.ToEntero, DdlPlataforma.SelectedValue.ToEntero) Then
RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalModulos"))
Alert("El Módulo se actualizó correctamente.", TipoMensaje.MsgInformacion)
GlobalDTModulos = Nothing
CargaDatos()
UpDatos.Update()
End If
@@ -129,12 +131,10 @@ Partial Class CatModulos
Dim Modulo As New ClsModulos
If Modulo.RemoveModulo(GvDatos.DataKeys(e.RowIndex).Value.ToString().ToEntero()) Then
GvDatos.EditIndex = -1
GlobalDTModulos = Nothing
CargaDatos()
End If
Modulo.Dispose()
End Sub
#End Region
@@ -198,6 +198,7 @@ Partial Class CatModulos
LbAgregar.Text = "Actualizar"
UpModal.Update()
RegistraScript("$('#ModalModulos').modal();")
GlobalDTModulos = Nothing
End Sub

1
Sistemas/CatSesiones.aspx
View File

@@ -29,6 +29,7 @@
<asp:ListItem Text="Paises" Value="GlobalDTGralPaises"></asp:ListItem>
<asp:ListItem Text="Estados" Value="GlobalDTGralEstados"></asp:ListItem>
<asp:ListItem Text="Municipios" Value="GlobalDTGralMunicipios"></asp:ListItem>
<asp:ListItem Text="Localidades" Value="GlobalDTLocalidad"></asp:ListItem>
<asp:ListItem Text="Poblaciones" Value="GlobalDTGralPoblaciones"></asp:ListItem>
<asp:ListItem Text="Colonias" Value="GlobalDTGralColonias"></asp:ListItem>
<asp:ListItem Text="Escolaridades" Value="GlobalDTGralEscolaridades"></asp:ListItem>

11
Sistemas/CatSesiones.aspx.vb
View File

@@ -39,7 +39,9 @@ Partial Class Sistemas_CatSesiones
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralColonias" Then
CargaColonias()
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralMunicipios" Then
CargaMunicipios()
CargaMunicipios()
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTLocalidad" Then
CargaLocalidades()
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralPoblaciones" Then
CargaPoblaciones()
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralEscolaridades" Then
@@ -494,6 +496,13 @@ Partial Class Sistemas_CatSesiones
'Dim Gral As New ClsGenerales
'If Gral.GetGralMunicipios Then Application("GlobalDTGralMunicipios") = Gral.DtResultados Else Application("GlobalDTGralMunicipios") = Nothing
'Gral.Dispose()
End Sub
Private Sub CargaLocalidades()
GlobalDTLocalidad() = Nothing
'Dim Gral As New ClsGenerales
'If Gral.GetGralMunicipios Then Application("GlobalDTGralMunicipios") = Gral.DtResultados Else Application("GlobalDTGralMunicipios") = Nothing
'Gral.Dispose()
End Sub
Private Sub CargaPoblaciones()

2
Sistemas/UsuarioDetalle.aspx
View File

@@ -109,7 +109,7 @@
<tr>
<td>Usuario:</td>
<td>
<asp:TextBox ID="TxtUsuario" runat="server"></asp:TextBox>
<asp:TextBox ID="TxtUsuario" runat="server" Width="350px"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVUsuario" runat="server" ControlToValidate="TxtUsuario" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Usuario''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEUsuario" runat="server" HighlightCssClass="vco" TargetControlID="RFVUsuario" Width="300px"></ajax:ValidatorCalloutExtender>
&nbsp;

7
Transportes/Boletos.aspx.vb
View File

@@ -85,7 +85,8 @@ Partial Class Boletos
Protected Sub InicializaCombos()
'Lista Destinos''carga específicos
Dim ObjDestinos As New ClsDestinos()
Dim ObjDestinos As New ClsTransportes()
If ObjDestinos.GetDestinos(CveRuta:=CveRuta) Then
If ObjDestinos.DtResultados.Rows.Count > 0 Then
@@ -99,6 +100,7 @@ Partial Class Boletos
DdlDestino.Items.Insert(0, New ListItem("Seleccione Destino", ""))
End If
End If
ObjDestinos.Dispose()
End Sub
Protected Sub CotizarTarifa(sender As Object, e As EventArgs)
@@ -107,6 +109,8 @@ Partial Class Boletos
Dim ObjDestinos As New ClsTransportes()
Dim retorno As Boolean = ObjDestinos.GetDestinosTarifas(DdlPartida.SelectedValue.ToEntero, DdlDestino.SelectedValue.ToEntero)
Dim ImporteR As Decimal = ObjDestinos.DtResultados.FiltroPrimeroValor("Importe").ToDecimal
ObjDestinos.Dispose()
If retorno Then
If ImporteR > 0 Then
Dim redondeado As String = CStr(Math.Round(ImporteR, 2))
@@ -156,6 +160,7 @@ Partial Class Boletos
ObjTransporte.Commit()
End If
Catch ex As Exception
ObjTransporte.RollBack()
Alert($"No se pudo generar el boleto {ex}", TipoMensaje.MsgError)
Finally
ObjTransporte.Dispose()

34
Transportes/ListadoBoletos.aspx
View File

@@ -19,7 +19,6 @@
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
<div class="row my-1" style="margin-right: 10px; margin-top: 10px;" align="right">
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvBoletos.ClientID) %>"
style="display: inline-block; margin-right: -10px; width: 150px;" />
@@ -27,12 +26,13 @@
style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier">
</i></a>
</div>
<asp:Label ID="Prueba" runat="server" Text=""></asp:Label>
<div class="portlet light xspadding bordered margin-bottom-10">
<asp:GridView ID="GvBoletos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningún boleto registrado"
CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None"
data-sort="true">
<Columns>
data-sort="true" DataKeyNames="Asiento,Nombre, Visa,Celular,Sexo,Estatus,Partida,Destino, Importe">
<Columns>
<asp:TemplateField HeaderText="No. Asiento">
<ItemTemplate>
@@ -71,17 +71,35 @@
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Partida">
<ItemTemplate>
<asp:Literal ID="LtlPartida" runat="server" Text='<%# Eval("Partida") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Destino">
<ItemTemplate>
<asp:Literal ID="LtlDestino" runat="server" Text='<%# Eval("Destino") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Importe">
<ItemTemplate>
<asp:Literal ID="LtlImporte" runat="server" Text='<%# Eval("Importe") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Acciones">
<ItemTemplate>
<asp:LinkButton ID="BtnEditar" runat="server" AlternateText="Editar"
CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
<asp:LinkButton ID="BtnToggle" runat="server" AlternateText="Activar/Desactivar"
CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-cancel'></i>"
CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" ToolTip="Editar"/>
<asp:LinkButton ID="BtnToggle" runat="server" AlternateText="Activar"
ToolTip="Activar" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-cancel'></i>"
data-toggle="confirmation" data-popout="true" data-original-title='<%# If(Eval("Estatus").ToString = "True", "Cancelar Boleto", "Reactivar") %>'
data-btn-ok-label="si" OnClick="ToggleViajesPasajeros" />
<asp:LinkButton ID="BtnViaje" runat="server" AlternateText="Viaje"
CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-print'></i>" />
<asp:LinkButton ID="BtnImprimir" runat="server" AlternateText="Viaje"
CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-print'></i>" ToolTip="Imprimir"
OnClick="ImprimirBoleto" />
</ItemTemplate>
</asp:TemplateField>

40
Transportes/ListadoBoletos.aspx.vb
View File

@@ -1,8 +1,11 @@
Option Explicit On
Option Strict On
Imports System.Data
Imports ADSNetLibrary.Helpers
Imports ADSNetLibrary.SIGAPI.Helpers
Imports Extensiones.ModExtensiones
Imports Microsoft.Reporting.WebForms
Partial Class ListadoBoletos
Inherits ClsPaginas
@@ -14,12 +17,23 @@ Partial Class ListadoBoletos
ViewState("CveViaje") = value
End Set
End Property
Private Property Ruta As String
Get
Return ViewState("Ruta").ToString()
End Get
Set(value As String)
ViewState("Ruta") = value
End Set
End Property
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
If Request.QueryString("CveViaje") Is Nothing Then
Response.Redirect("/Transportes/ListadoViajes.aspx")
End If
CveViaje = Request.QueryString("CveViaje").ToEntero
Ruta = Request.QueryString("Ruta")
Prueba.Text = Ruta
InicializaCombos()
CargaDatos()
@@ -71,4 +85,30 @@ Partial Class ListadoBoletos
End Sub
Protected Sub ImprimirBoleto(sender As Object, e As EventArgs)
Dim dtResult As New DataTable()
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("Ruta", Ruta))
params.Add(New ReportParameter("Origen", GvRow.DataKey("Partida")))
params.Add(New ReportParameter("Destino", GvRow.DataKey("Destino")))
params.Add(New ReportParameter("FechaSalida", "2024-01-03"))
params.Add(New ReportParameter("HoraSalida", "17:00"))
params.Add(New ReportParameter("Nombre", GvRow.DataKey("Nombre")))
params.Add(New ReportParameter("Visa", GvRow.DataKey("Visa")))
params.Add(New ReportParameter("Celular", GvRow.DataKey("Celular")))
params.Add(New ReportParameter("Importe", GvRow.DataKey("Importe")))
params.Add(New ReportParameter("TipoBoleto", "Tipo Boleto"))
params.Add(New ReportParameter("Agencia", "Agencia"))
params.Add(New ReportParameter("TelefonoAgencia", "Telefono Agencia"))
ImprimirPDFStimul("Empresas/188/Formatos/Boleto.mrt", dtResult, params, NombreArchivo:="Boleto")
'Empresas/Grales/Formatos/EntradaSalida.mrt
'Empresas/188/Formatos/Boleto.mrt
End Sub
End Class

14
Transportes/ListadoViajes.aspx.vb
View File

@@ -15,6 +15,14 @@ Partial Class ListadoViajes
ViewState("CveViaje") = value
End Set
End Property
Private Property Ruta As String
Get
Return ViewState("Ruta").ToString()
End Get
Set(value As String)
ViewState("Ruta") = value
End Set
End Property
#End Region
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -192,7 +200,7 @@ Partial Class ListadoViajes
DdlPartida.SelectedValue = GvRow.DataKey("CvePartida")
DdlChofer.SelectedValue = GvRow.DataKey("CvePersonal")
ViewState("CveViaje") = GvRow.DataKey("CveViaje")
Page.Response.Write("<script>console.log('El resultado de tu variable" + CveViaje + "')</script>")
ViewState("Ruta") = GvRow.DataKey("Ruta")
Dim fecha As DateTime
If DateTime.TryParse(GvRow.DataKey("Fecha").ToString, fecha) Then
@@ -247,6 +255,8 @@ Partial Class ListadoViajes
Protected Sub GoBoletos(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/ListadoBoletos.aspx?CveViaje={0}", CveViaje))
Dim Ruta As String = GvRow.DataKey("Ruta")
Response.Redirect(String.Format("~/Transportes/ListadoBoletos.aspx?CveViaje={0}&Ruta={1}", CveViaje, Ruta))
End Sub
End Class

7
Ventas/ActualizarPrecios.aspx
View File

@@ -207,7 +207,7 @@
<input type="text" id="TxtBuscar" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBuscar','{0}')", GVPrecios.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBuscar','{0}')", GVPrecios.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
<asp:GridView ID="GVPrecios" runat="server" GridLines="None" DataKeyNames="CvePS, CvePrecioLista,PrecioLista,PS,Codigo,Codigo2,Porcentaje,CodigoPS"
<asp:GridView ID="GVPrecios" runat="server" GridLines="None" DataKeyNames="CvePS, CvePrecioLista,PrecioLista,PS,Codigo,NumeroParte,Porcentaje,CodigoPS"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD" AutoGenerateColumns="False" data-sort="true" EmptyDataText="No se encontraron registros">
<Columns>
<asp:TemplateField ItemStyle-HorizontalAlign="center" ItemStyle-Width="5%">
@@ -216,13 +216,12 @@
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="Codigo" ItemStyle-Width="5%" HeaderText="Código" />
<%--<asp:BoundField DataField="Codigo2" ItemStyle-Width="5%" HeaderText="Código CPK"/>--%>
<asp:TemplateField ItemStyle-Width="5%" Visible="false" >
<HeaderTemplate>
<asp:Literal ID="LtlCodigo2" runat="server" Text='<%# If(UsuarioActual.Empresa.Funcionalidad(531) = "1", "Código CPK", "Numero de parte") %>'></asp:Literal>
<asp:Literal ID="LtlNumeroParte" runat="server" Text='<%# If(UsuarioActual.Empresa.Funcionalidad(531) = "1", "Código CPK", "Numero de parte") %>'></asp:Literal>
</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlCodigo2" runat="server" Text='<%# Eval("Codigo2", "{0}")%>'></asp:Literal>
<asp:Literal ID="LtlNumeroParte" runat="server" Text='<%# Eval("NumeroParte", "{0}")%>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="PS" HeaderText="Producto/Servicio" />

6
Ventas/ActualizarPrecios.aspx.vb
View File

@@ -405,7 +405,7 @@ Partial Class Ventas_ActualizarPrecios
Select New With
{
.Codigo = row.DataKey("Codigo"),
.Codigo2 = row.DataKey("Codigo2"),
.NumeroParte = row.DataKey("NumeroParte"),
.PS = row.DataKey("PS"),
.Precio = row.FCTextBox("TxtPrecio").Text.ToDecimal()
}).QueryToDataTable(True)
@@ -436,7 +436,7 @@ Partial Class Ventas_ActualizarPrecios
DtExcel.Columns("Codigo").ColumnName = "Código"
DtExcel.Columns("PS").ColumnName = "Producto / Servicio"
DtExcel.Columns("Codigo2").ColumnName = "Número de parte"
DtExcel.Columns("NumeroParte").ColumnName = "Número de parte"
If UsuarioActual.Empresa.Funcionalidad(531) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(578) = "1" Then 'Empresa Acumuladores
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
@@ -687,7 +687,7 @@ Partial Class Ventas_ActualizarPrecios
NewRow("Código") = Row("Codigo")
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'Empresa Acumuladores
NewRow("Código CPK") = Row("Codigo2")
NewRow("Código CPK") = Row("NumeroParte")
End If
NewRow("Producto/Servicio") = Row("PS")

22
Ventas/CatMedicos.aspx
View File

@@ -225,7 +225,7 @@
<div class="col-md-12">
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False"
DataKeyNames="CveMedico,Medico,CedulaProfesional,FechaNacimiento,Notas,DiasAtencion,Horario,Lugar,Estatus,CveUsuario,FechaIng,CveEmpresa,Telefono,Mail,CveMedicoEspecialidad,CveMedicoSubEspecialidad,Celular,Consultorio,Torre"
DataKeyNames="CveMedico,Medico,CedulaProfesional,FechaNacimiento,Notas,DiasAtencion,Horario,Lugar,Estatus,CveUsuario,FechaIng,CveEmpresa,Telefono,Mail,CveMedicoEspecialidad,CveMedicoSubEspecialidad,Celular,Consultorio,Torre,Usuario"
data-sort="true"
EmptyDataText="No se encontraron Medicos Registrados" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
<Columns>
@@ -278,13 +278,13 @@
</asp:TemplateField>
<asp:TemplateField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center">
<asp:TemplateField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center" Visible="false">
<ItemTemplate>
<asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:d}") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Usuario" ItemStyle-HorizontalAlign="Center">
<asp:TemplateField HeaderText="Usuario" ItemStyle-HorizontalAlign="Center" Visible="false">
<ItemTemplate>
<asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
</ItemTemplate>
@@ -548,6 +548,22 @@
</div>
<div class="row" runat="server" id="DVUsuarioFechaIng" visible ="false">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtUsuario" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true" Enabled="false"></asp:TextBox>
<label for="<%= TxtUsuario.ClientID.ToString()%>">Usuario:</label>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright" >
<asp:TextBox ID="TxtFechaIng" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true" Enabled="false"></asp:TextBox>
<label for="<%= TxtFechaIng.ClientID.ToString()%>">Fecha Ing.:</label>
</div>
</div>
</div>
</div>
</div>

8
Ventas/CatMedicos.aspx.vb
View File

@@ -161,6 +161,10 @@ Partial Class Ventas_CatMedicos
DdlEspecialidad.SelectedValueExist(-1)
DdlSubEspecialidad.SelectedValueExist(-1)
TxtTorre.Text = ""
DVUsuarioFechaIng.Visible = False
TxtFechaIng.Text = ""
TxtUsuario.Text = ""
DVEstatus.Visible = False
ChkEstatus.Checked = True
@@ -196,6 +200,10 @@ Partial Class Ventas_CatMedicos
DdlSubEspecialidad.SelectedValueExist(GvRow.DataKey("CveMedicoSubEspecialidad").ToEntero)
TxtTorre.Text = GvRow.DataKey("Torre")
DVUsuarioFechaIng.Visible = True
TxtFechaIng.Text = GvRow.DataKey("FechaIng").ToDateTime.ToString("dd/MM/yyyy hh:mm:ss tt")
TxtUsuario.Text = GvRow.DataKey("Usuario")
DVEstatus.Visible = True
LbAgregar.Text = "Actualizar"
LtlTituloModal.Text = $"Actualizar Médico {TxtCedulaProfecional.Text}"

26
Ventas/ProductosServicios.aspx.vb
View File

@@ -1,11 +1,9 @@
Option Explicit On
Option Strict On
Imports System.Activities.Expressions
Imports System.Data
Imports System.Data.SqlClient
Imports System.IO
Imports ADSNetLibrary.SIGAPI.Models.RH.Response
Imports Extensiones
Imports ZXing
@@ -487,14 +485,10 @@ Partial Class ProductosyServicios
If ObjGral.GetModelos(UsuarioActual.CveEmpresa) Then
DdlModelo.DataSource = ObjGral.DtResultados.Copy()
End If
If ObjGral.GetMedidas(UsuarioActual.CveEmpresa) Then
DdlMedida.DataSource = ObjGral.DtResultados.Copy()
End If
If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then
DdlRin.DataSource = ObjGral.DtResultados.Copy()
End If
ObjGral.Dispose()
DdlMedida.DataSource = GlobalDTPSMedidas(UsuarioActual.CveEmpresa)
DdlRin.DataSource = GlobalDTPSRinTamaños(UsuarioActual.CveEmpresa)
DdlModelo.DataBind()
DdlMedida.DataBind()
DdlRin.DataBind()
@@ -948,7 +942,7 @@ Partial Class ProductosyServicios
DdlMarca.SelectedValue = ObjProductosServicios.CveMarca.ToString
DdlMarcaPSDes.SelectedValue = ObjProductosServicios.CveMarca.ToString
TxtCodigo.Text = ObjProductosServicios.Codigo
TxtNumeroParte.Text = ObjProductosServicios.Codigo2
TxtNumeroParte.Text = ObjProductosServicios.NumeroParte
TxtCodigoBarras.Text = ObjProductosServicios.CodigoBarras
CodigoBarrasCargado = ObjProductosServicios.CodigoBarras
TxtLitraje.Text = ObjProductosServicios.DtResultados.Rows(0)("Litraje").ToString
@@ -3138,12 +3132,10 @@ Partial Class ProductosyServicios
If ObjGral.GetModelos(CveEmpresaFranquicia) Then
CveModelo = ObjGral.DtResultados.FiltroPrimeroValor("CveModelo", String.Format("Modelo = '{0}'", DdlModelo.SelectedItem.Text)).ToEntero
End If
If ObjGral.GetMedidas(CveEmpresaFranquicia) Then
CveMedida = ObjGral.DtResultados.FiltroPrimeroValor("CveMedida", String.Format("Medida = '{0}'", DdlMedida.SelectedItem.Text)).ToEntero
End If
If ObjGral.GetRimTamanios(CveEmpresaFranquicia) Then
CveRin = ObjGral.DtResultados.FiltroPrimeroValor("CveRinTamaño", String.Format("RinTamaño = '{0}'", DdlRin.SelectedItem.Text)).ToEntero
End If
CveMedida = GlobalDTPSMedidas(CveEmpresaFranquicia).FiltroPrimeroValor("CveMedida", String.Format("Medida = '{0}'", DdlMedida.SelectedItem.Text)).ToEntero
CveRin = GlobalDTPSRinTamaños(CveEmpresaFranquicia).FiltroPrimeroValor("CveRinTamaño", String.Format("RinTamaño = '{0}'", DdlRin.SelectedItem.Text)).ToEntero
ObjGral.Dispose()
@@ -3177,7 +3169,7 @@ Partial Class ProductosyServicios
End If
If Agregar Then
If Not ObjPS.AddPS(CveClasificacion, -1, CveUnidadMedida, TxtCodigo.Text.Trim, TxtCodigo2.Text.Trim, TxtCodigoBarras.Text.Trim, PSS, TxtPrecio.Text.Trim.ToDouble, DdlIVA.SelectedValue.ToDouble,
If Not ObjPS.AddPS(CveClasificacion, -1, CveUnidadMedida, TxtCodigo.Text.Trim, TxtNumeroParte.Text.Trim, TxtCodigoBarras.Text.Trim, PSS, TxtPrecio.Text.Trim.ToDouble, DdlIVA.SelectedValue.ToDouble,
(TxtRetIVA.Text.Trim.ToDouble / 100), ChkInventariable.Checked, DdlProveedor.txtValue.Value.ToEntero, True, ChkAplicaParaVenta.Checked, UsuarioActual.CveUsuario,
CveEmpresaFranquicia, CveMetodoInv, EsPaquete, CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero, FuePorXML:=False, TipoServicio:=-1, CveClasificacion2:=CveClasificacion2,
CveMarca:=CveMarcaFranquicia, AlmacenSeccion:=TxtAlmacenSeccion.Text.Trim, AplicaIEPS:=ChkAplicaIeps.Checked, IEPSPorcentaje:=DdlIEPSPorcentaje.SelectedValue.ToDecimal,
@@ -3197,7 +3189,7 @@ Partial Class ProductosyServicios
If ObjPS.GetPS(-1, -1, CveEmpresaFranquicia, Codigo:=TxtCodigo.Text.Trim.ToUpper) Then
Dim CvePS As Integer = ObjPS.DtResultados.FiltroPrimeroValor("CvePS", String.Format(" Codigo = '{0}'", TxtCodigo.Text.Trim.ToUpper)).ToEntero()
If Not ObjPS.UpdatePS(CveClasificacion, -1, CveUnidadMedida, TxtCodigo.Text.Trim, TxtCodigo2.Text.Trim, TxtCodigoBarras.Text.Trim, PSS, TxtPrecio.Text.Trim.ToDouble, DdlIVA.SelectedValue.ToDouble,
If Not ObjPS.UpdatePS(CveClasificacion, -1, CveUnidadMedida, TxtCodigo.Text.Trim, TxtNumeroParte.Text.Trim, TxtCodigoBarras.Text.Trim, PSS, TxtPrecio.Text.Trim.ToDouble, DdlIVA.SelectedValue.ToDouble,
(TxtRetIVA.Text.Trim.ToDouble / 100), ChkInventariable.Checked, -1, True, ChkAplicaParaVenta.Checked, ChkEstado.Checked, UsuarioActual.CveUsuario, CvePS, CveMetodoInv,
EsPaquete, DdlSATPS.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero, TipoServicio:=-1, CveClasificacion2:=CveClasificacion2, CveMarca:=CveMarcaFranquicia,
AlmacenSeccion:=TxtAlmacenSeccion.Text.Trim, AplicaIEPS:=ChkAplicaIeps.Checked, IEPSPorcentaje:=DdlIEPSPorcentaje.SelectedValue.ToDecimal,

7
Ventas/Ventas.aspx
View File

@@ -1976,7 +1976,10 @@
<asp:LinkButton ID="ImgCalendarFechaEje" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
<ajax:MaskedEditExtender ID="MEEFechaEje" runat="server" TargetControlID="TxtFechaEjecucion" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<div runat="server" id="DVMEEFechaEje" visible="true">
<ajax:MaskedEditExtender ID="MEEFechaEje" runat="server" TargetControlID="TxtFechaEjecucion" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
</div>
<ajax:CalendarExtender runat="server" ID="CEFechaEje" TargetControlID="TxtFechaEjecucion" PopupButtonID="ImgCalendarFechaEje" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="RFVFechaEje" runat="server" ControlToValidate="TxtFechaEjecucion" Display="None" ErrorMessage="El campo <b>''Fecha de Ejecución''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpEmitirImprimir"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="CVFechaEje" runat="server" ControlToValidate="TxtFechaEjecucion" Display="None" ErrorMessage="El campo <b>''Fecha Ejecución''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpEmitirImprimir"></asp:CompareValidator>
@@ -4202,7 +4205,7 @@
<asp:Button ID="BtnEditar" runat="server" Text="Editar" CssClass="btn myventasbutton btn-primary" Visible="false" />
<asp:LinkButton ID="BtnAdjuntar" runat="server" Visible="false" Text="<i class='fa-upload fa' style=' color: white;'></i> Adjuntar" data-toggle="modal" data-target="#ModalAdjuntar" CssClass="btn myventasbutton btn-primary" />
<asp:LinkButton ID="BtnArchivoAdjunto" runat="server" Visible="false" Text="" Font-Size="14px" />
<br /><asp:LinkButton ID="BtnArchivoAdjunto" runat="server" Visible="false" Text="" Font-Size="14px" />
<asp:LinkButton ID="BtnEliminarAdjunto" runat="server" Visible="false" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
</td>

137
Ventas/Ventas.aspx.vb
View File

@@ -2737,7 +2737,12 @@ Partial Class Ventas
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then BtnCrearApartirDe.Visible = False
If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Egs") Then BtnEditar.Visible = True
If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem") Then BtnPermisoEditarRemision.Visible = True
If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ped") Then BtnPermisoEditarRemision.Visible = True
If DdlTipoComprobante.SelectedValue = "Ped" Then
BtnPermisoEditarRemision.Text = "Editar Pedido"
BtnEditarRemision.Text = "Actualizar Pedido"
End If
DivFechaAnticipoCliente.Visible = True
TxtFechaAnticipoCliente.Text = NowADS().ToShortDateString
@@ -3386,19 +3391,27 @@ Partial Class Ventas
End If
End If
If CveVenta <= 0 AndAlso UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
EsVentaMedica = True
CargaTiposVenta()
If CveCliente > 0 Then
SeleccionarClienteSucursal(CveCliente:=CveCliente)
If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
If CveVenta <= 0 Then
EsVentaMedica = True
CargaTiposVenta()
If CveCliente > 0 Then
SeleccionarClienteSucursal(CveCliente:=CveCliente)
End If
End If
If CveVenta >= 0 Then
HLFAgregarOS.Visible = True
HLFAgregarOS.NavigateUrl = $"/OS/OrdenesServicios.aspx?CveVenta={CveVenta}"
End If
End If
If CveVenta >= 0 AndAlso UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
HLFAgregarOS.Visible = True
HLFAgregarOS.NavigateUrl = $"/OS/OrdenesServicios.aspx?CveVenta={CveVenta}"
TxtPrecio.Enabled = False
'ocultar la columna de subproyecto
GvPS.Columns(ColumnaSubProyecto).Visible = False
ThProyecto.Visible = False
ThProyecto2.Visible = False
TxtCantidad.Text = "1"
TxtCantidad.Focus()
End If
If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
@@ -5193,7 +5206,7 @@ Partial Class Ventas
HdnTotalVenta.Value = DbRowVenta("Total").ToString().FormatoNumero(2)
TxtMotivoDescuento.Text = DbRowVenta("MotivoDescuento").ToString()
TxtObsFact.Text = DbRowVenta("Observaciones").ToString()
LblUsuario.Text = DbRowVenta("Nombre").ToString()
LblUsuario.Text = DbRowVenta("Nombre").ToString().SubStringADS(30)
LblFechaRegistro.Text = DbRowVenta("FechaIng").ToString().ToDate.ToShortDateString
LblSeTimbro.Text = DbRowVenta("SeTimbro").ToString()
LblMail.Text = DbRowVenta("EnvioMail").ToString()
@@ -5316,7 +5329,13 @@ Partial Class Ventas
End If
TxtFechaEjecucion.Text = DbRowVenta("FechaEjecucion").ToString().ToDateTime.ToString("dd/MM/yyyy")
If DbRowVenta("CveMedico").ToString.ToEntero > 0 AndAlso DbRowVenta("CveProcedimiento").ToString.ToEntero > 0 Then
TxtFechaEjecucion.Text = DbRowVenta("FechaEjecucion").ToString().ToDateTime.ToString("dd/MM/yyyy HH:mm")
DVMEEFechaEje.Visible = False
Else
TxtFechaEjecucion.Text = DbRowVenta("FechaEjecucion").ToString().ToDateTime.ToString("dd/MM/yyyy")
End If
'DdlSucursalEjecucion.SelectedValueExist(DbRowVenta("CveSucursalEjecucion").ToString())
'DdlSucursalCobranza.SelectedValueExist(DbRowVenta("CveSucursalCobranza").ToString())
DdlSucursalCliente.SelectedValueExist(DbRowVenta("CveClienteSucursal").ToString())
@@ -8188,6 +8207,10 @@ Partial Class Ventas
GvPS.Rows(e.NewEditIndex).FCTextBox("TxtDescuento").Enabled = False
End If
If EsVentaMedica Then
GvPS.Rows(e.NewEditIndex).FCTextBox("TxtPrecio").Enabled = False
End If
If CveCicloComercial > 0 Then
For Each gvr As GridViewRow In GvContratoDetalles.Rows
If gvr.RowType = DataControlRowType.DataRow Then
@@ -13524,7 +13547,7 @@ Partial Class Ventas
If EsVentaMedica AndAlso ErrorList.Count = 0 AndAlso ChkRequiereTecnico.Checked Then
GeneraOS(ObjVentas.IniciaTransacSQL, ErrorList)
GeneraOS(ObjVentas.IniciaTransacSQL, ErrorList, CveVentaOS:=factura.CveVenta, SerieFolioOS:=factura.SerieFolio)
If ErrorList.Count = 0 Then
If Not ObjOS.UpdateVentaOS(factura.CveVenta, CveOSVentaMedica) Then
@@ -16798,16 +16821,22 @@ Partial Class Ventas
DdlUnidadMedida.DataBind()
DdlUnidadMedida.SelectedValueExist(drPS("CveUnidadMedida").ToString())
If drPS("CveTipoPS").ToString() = "1" Then 'Si es servicio
If UsuarioActual.Empresa.Funcionalidad(558).ToString() = "1" Then 'Si es Empresa llantera
TxtPrecio.Enabled = True
Else
'TxtPrecio.Enabled = False
End If
If EsVentaMedica Then
TxtPrecio.Enabled = False
Else
TxtPrecio.Enabled = True
If drPS("CveTipoPS").ToString() = "1" Then 'Si es servicio
If UsuarioActual.Empresa.Funcionalidad(558).ToString() = "1" Then 'Si es Empresa llantera
TxtPrecio.Enabled = True
Else
'TxtPrecio.Enabled = False
End If
Else
TxtPrecio.Enabled = True
End If
End If
Dim PSCodigoSAT As String = drPS("SATClavePS").ToString
If UsuarioActual.TienePermisoProceso(68) AndAlso Not PSCodigoSAT.Contiene("84111506", "80141610") Then TxtPrecio.Enabled = False
@@ -18001,17 +18030,12 @@ Partial Class Ventas
'YOKOHAMA
If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso CveRinTamañoPS > 0 AndAlso CveMarcaPromocion.Contiene(800, 912, 1238, 1381, 1456, 1528, 1600, 1672, 1807) Then
Dim DtRines As DataTable = Nothing
Dim ObjGral As New ClsGenerales
If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then
DtRines = ObjGral.DtResultados.Copy()
End If
ObjGral.Dispose()
If CveMarcaPromocion > 0 Then
ObjDescuento.NombrePromo = "YOKOHAMA VERANO" 'dr("NombrePromocion").ToString()
ObjDescuento.CveMarca = CveMarcaPromocion
Dim Rin As String = DtRines.FiltroPrimeroValor("RinTamaño", $"CveRinTamaño = {CveRinTamañoPS}")
Dim Rin As String = GlobalDTPSRinTamaños(UsuarioActual.CveEmpresa, CveRinTamañoPS).FiltroPrimeroValor("RinTamaño", "")
Dim PromoDescuento As Decimal = (Descuento * (1 + If(IncluyeImpuestos, PorcentajeIVA, 0))).RoundSQL(2)
ObjDescuento.ObsDescuento = String.Format("RIN {0} BONO ${1:N2}", Rin, PromoDescuento)
@@ -21676,6 +21700,9 @@ Partial Class Ventas
ViewState("CveClienteAnterior") = CveCliente
DdlMedicoObservaciones.Enabled = True
DdlProcedimientoObservaciones.Enabled = True
Dim CantidadFacturadaRemision As Decimal = 0
'EN BDH NO DEBE PERMITIR EDITAR EL PU
@@ -21716,7 +21743,14 @@ Partial Class Ventas
TxtObsPS.Enabled = True
DdlProyecto.Enabled = True
DdlSubProyecto.Enabled = True
TxtPrecio.Enabled = True
If EsVentaMedica Then
TxtPrecio.Enabled = False
Else
TxtPrecio.Enabled = True
End If
LbAgregar.Enabled = True
ImgDescTotal.Attributes.Add("onclick", "javascript:$('#ModalDescuento').modal(); $get('LblTitulo1').style.display = ''; $get('LblTitulo2').style.display = 'none'; $get('LblTituloTipo1').style.display = ''; $get('LblTituloTipo2').style.display = 'none'; $get('HdnTipoDescuento').value = '2'; $get('LblPrecio1').style.display = 'none'; $get('LblTotalPS1').style.display = 'none'; $get('LblSubTotal1').style.display = ''; $get('LblAmort').style.display = 'none'; $get('BtnAplicarDescP').style.display = 'none'; $get('BtnAplicarDescG').style.display = ''; $get('TrMotivoDescuento').style.display = '';")
LblSubTotal1.Text = TxtSubTotal.Text
@@ -21731,6 +21765,7 @@ Partial Class Ventas
UpPS.Update()
UpCliente.Update()
UPObservaciones.Update()
End Sub
Private Sub BtnEditarRemision_Click(sender As Object, e As EventArgs) Handles BtnEditarRemision.Click
Dim OcurrioError As Boolean = False
@@ -21825,7 +21860,7 @@ Partial Class Ventas
PedidoContrato:=TxtPedidoContrato.Text, AtencionA:=TxtAtencionA.Text.Trim, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero(),
CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(), TipoDocto:="Rem", CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal,
OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, Kilometraje:=TxtKilometraje.Text.ToDouble, CveUsoCFDi:=DdlUsoCFDI.SelectedValue.ToEntero(),
CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), ServicioDomicilio:=TrServicioDomicilio.Visible) Then
CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), ServicioDomicilio:=TrServicioDomicilio.Visible, CveMedico:=DdlMedicoObservaciones.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimientoObservaciones.SelectedValue.ToEntero) Then
OcurrioError = True
End If
@@ -26192,7 +26227,26 @@ Partial Class Ventas
#Region " SALDAR VENTA "
Protected Sub BtnSaldarVenta_Click(sender As Object, e As EventArgs)
SaldarVenta()
'SaldarVenta()
Dim ObjCancelacion As New Timbrado
Dim FolioFiscal As String = LblFolioFiscal.Text
Dim RFCEmisor As String = UsuarioActual.Empresa.RFC
Dim RFCReceptor As String = LblRFC.Text
Dim CvePACCancelacion As Integer = 4
Dim RespCancelacion As RespuestaCancelacionSAT = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, TxtTotal.Text.ToDecimal, RFCReceptor, RFCEmisor, CvePACCancelacion, CveSATMotivoCancelacion:=3)
If RespCancelacion.Verificado Then
Else
Alert("Los servicios de cancelación del SAT no se encuentran disponibles o presentan time out. Intente de nuevo en unos minutos.<br/>Origen del error: WebService www.sat.gob.mx", TipoMensaje.MsgError)
End If
End Sub
Private Sub SaldarVenta()
'Dim ObjVenta As New ClsVentas
@@ -33619,6 +33673,9 @@ Partial Class Ventas
UpPS.Update()
End If
TxtDescripcionVenta.Enabled = True
UpCliente.Update()
UpParametros.Update()
UPObservaciones.Update()
UpFacturar.Update()
@@ -33637,7 +33694,7 @@ Partial Class Ventas
ObjVentas.IniciaTransacSQL()
If Not ObjVentas.UpdateObservacionesVenta(Me.CveVenta, UsuarioActual.CveEmpresa, DdlVendedor.SelectedValue.ToEntero(), TxtObsFact.Text, RblPaqueteria.SelectedValue.ToEntero(), TxtCorreoNotificaciones.Text,
TxtObsAlmacen.Text, TxtPedidoContrato.Text, TxtOrdenCompra.Text, TxtFechaPago.Text, DdlUsoCFDI.SelectedValue.ToEntero) Then
TxtObsAlmacen.Text, TxtPedidoContrato.Text, TxtOrdenCompra.Text, TxtFechaPago.Text, DdlUsoCFDI.SelectedValue.ToEntero, DescripcionVenta:=TxtDescripcionVenta.Text.Trim) Then
TieneError = True
End If
@@ -36314,7 +36371,7 @@ Partial Class Ventas
End Sub
Private Function GeneraOS(ByRef TransacSQL As SqlTransaction, ByRef errorList As List(Of String)) As Boolean
Private Function GeneraOS(ByRef TransacSQL As SqlTransaction, ByRef errorList As List(Of String), CveVentaOS As Integer, SerieFolioOS As String) As Boolean
Dim Errores As Boolean = False
@@ -36350,18 +36407,22 @@ Partial Class Ventas
Dim CveOsDetalle = ObjOrdenServicio.AddOrdenesServiciosDetalle(ObjOrdenServicio.CveOS, CvePSDetalle, 1, -1, -1, $"Venta: {LblSerie.Text}-{TxtFolio.Text}", False, True, False, -1, "-1", "-1", "-1", "", UsuarioActual.CveUsuario, Archivo:="")
If CveOsDetalle > 0 Then
'MENSAJE PRINCIPAL
'Dim MensajeAlertOS As New StringBuilder
MensajeAlert.AppendFormat(String.Format("<br/>La Orden de Servicio: <b>{0}</b> se generó correctamente.<br/>", ObjOrdenServicio.Folio))
MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF</a></li></ul><br/>", Encripta(String.Format("OP=OS&CVEOS={0}", ObjOrdenServicio.CveOS)))
'Dim Liga = $"document.location.href=""/OS/RepOrdenesServicios.aspx"";"
'Alert(MensajeAlertOS.ToString, TipoMensaje.MsgInformacion, Liga)
Else
errorList.Add("Se presento un error al guardar la el detalle de la orden de servicio.")
Errores = True
End If
End If
If Not Errores Then
Dim ObjEventos As New ClsOIEventos(TransacSQL)
Dim LigaVenta As String = String.Format("Pedido en Folio: <a href=""/Ventas/Ventas.aspx?CveVenta={0}"" target=""_blank"">{1}</a>", CveVentaOS, SerieFolioOS)
If Not ObjEventos.AddEventoBitacora(LigaVenta, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveOS:=CveOSVentaMedica) Then
errorList.Add("Se presento un error al guardar la bitacora de la orden de servicio.")
Errores = True
End If
End If
Return If(Errores, False, True)