From 46751fa0b30e7ce891ef8d8a0143389fd9f4c400 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 24 Sep 2024 12:35:57 -0700 Subject: [PATCH 1/4] =?UTF-8?q?--=20par=C3=A1metro=20de=20cveventadetalle,?= =?UTF-8?q?=20en=20tipoventa=20=3D5?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- OS/OrdenesServicios.aspx.vb | 17 ++--------------- 1 file changed, 2 insertions(+), 15 deletions(-) diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index e105ebc35..d116062a3 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -5,14 +5,6 @@ Imports Extensiones Imports System.IO Imports System.Data Imports System.Data.SqlClient -Imports System.Diagnostics -Imports System.ServiceModel.Security -Imports RVCFDI.RVLTimbrado -Imports Microsoft.Owin.Security.Provider -Imports Telerik.Web.UI -Imports ADSNetLibrary.SIGAPI.Services.SAT.DescargaCFDI - - Partial Class OS_OrdenesServicios Inherits ClsPaginas @@ -3125,7 +3117,8 @@ Partial Class OS_OrdenesServicios Dim Lote As String = GVRow.DataKey("Lote") Dim CveUM As Integer = GVRow.DataKey("CveUM").ToEntero Dim FechaCaducidad As DateTime = GVRow.DataKey("FechaCaducidad").ToDate - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, CantidadRegistro, CveUM, CvePS, 0, Lote:=Lote, Serie:=Serie, FechaCaducidad:=FechaCaducidad) Then + Dim CveVentaDetalle As Integer = GVRow.DataKey("CveVentaDetalle").ToEntero + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, CantidadRegistro, CveUM, CvePS, 0, Lote:=Lote, Serie:=Serie, FechaCaducidad:=FechaCaducidad, CveVentaDetalle:=CveVentaDetalle) Then Alert("Error al agregar detalle de movimiento.", TipoMensaje.MsgAdvertencia) ProcesoOK = False Exit For @@ -3705,14 +3698,8 @@ Partial Class OS_OrdenesServicios Try Dim resp As Modelos.Factura.MCancelacionVentaMensaje = Nothing If ObjFacturaCancelacion IsNot Nothing AndAlso ObjFacturaCancelacion.CveVenta > 0 Then - - Dim SWatch As New Stopwatch - SWatch.Start() - Dim DevAlm As Boolean = True - ObjFacturaCancelacion.CveAlmacenDevolucion = CveAlmacenDevolucion - resp = ObjFacturaCancelacion.CancelarFactura(2, New List(Of Integer), CveMotivoCancelacion:=CveMotivoCancelacion, Motivo:="Cancelacion de Orden de servicio") If resp.HuboError Then From 5fd5aa2caf718097392b7e52290b494d1e49d20a Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 24 Sep 2024 17:08:35 -0700 Subject: [PATCH 2/4] --FIX varios --- Ashx/SIGFacturacion.ashx | 8 +- Transportes/RepContratosCalendario.aspx | 337 ++++++++++++------------ 2 files changed, 176 insertions(+), 169 deletions(-) diff --git a/Ashx/SIGFacturacion.ashx b/Ashx/SIGFacturacion.ashx index 6a88e43ea..8a3112598 100644 --- a/Ashx/SIGFacturacion.ashx +++ b/Ashx/SIGFacturacion.ashx @@ -13,7 +13,7 @@ Imports Modelos Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState - Private Property CveEmpresaFacturar As Integer = 143 + Private Property CveEmpresaFacturar As Integer = 194 Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest context.Response.ContentType = "text/plain" @@ -126,7 +126,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState If DTClientes IsNot Nothing Then 'QUITAR CLIENTES QUE NO DEBEN DE ESTAR - DTClientes = DTClientes.FiltraParametros("CveCliente NOT IN (265989,265991,265994,266010,266011,266013) ") + DTClientes = DTClientes.FiltraParametros("CveCliente NOT IN (1285420,1285423,1285424) ") For Each RowCliente As DataRow In DTClientes.Rows Dim CveCliente As Integer = RowCliente("CveCliente").ToString().ToEntero() @@ -276,7 +276,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState ObjFactura.Serie = Serie ObjFactura.Folio = Folio.ToEntero() ObjFactura.TipoMensajeRespuesta = TipoMensajeRespuesta.TextoLimpio - ObjFactura.Version = "3.3" + ObjFactura.Version = "4.0" ObjFactura.FolioFiscal = "" ObjFactura.CveUsuario = UsuarioActual.CveUsuario ObjFactura.CveEmpresa = UsuarioActual.CveEmpresa @@ -906,7 +906,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState ' strLineaTMP = Chr(13) & Chr(10) & Day(NowADS()) & "/" & Month(NowADS()) & "/" & Year(NowADS()) & " " & Hour(NowADS()) & ":" & Minuto & ". " & Str & Chr(13) & Chr(10) strLineaTMP = String.Format("{0}{1}Log: {2}{3}:{4}", Chr(13), Chr(10), Str, ClsPaginas.NowADS().ToShortDateString, ClsPaginas.NowADS().ToShortTimeString) Try - ArchivoW = New StreamWriter(String.Format("{0}\LogFacturacion.txt", ModExtensiones.DirectorioBaseEmpresas), True, System.Text.Encoding.UTF8) + ArchivoW = New StreamWriter(String.Format("{0}\Log\LogFacturacion.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8) Catch ex As UnauthorizedAccessException 'Alert("No hay permisos para guardar en el Log.", Extensiones.TipoMensaje.MsgError) Exit Sub diff --git a/Transportes/RepContratosCalendario.aspx b/Transportes/RepContratosCalendario.aspx index 2756615cb..c9591f344 100644 --- a/Transportes/RepContratosCalendario.aspx +++ b/Transportes/RepContratosCalendario.aspx @@ -126,7 +126,7 @@
@@ -148,7 +148,7 @@
<%--Calendario Tab--%> - +
@@ -200,14 +200,14 @@ -
- " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
+
+ " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
@@ -326,7 +326,7 @@