diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index 79167e0a2..d64782ccb 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -133,6 +133,24 @@ Public Class ClsGenerales End With End Sub + Public Function RepConciliacionSatDetalleGET(cveEmpresa As Int32, tipoDocto As String, fechaI As String, fechaF As String, RegistroEn As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_RepConciliacionSatDetalleGET", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa + .Add("@TipoDocto", SqlDbType.VarChar).Value = tipoDocto + .Add("@RegistroEn", SqlDbType.Int).Value = RegistroEn + .Add("@FechaI", SqlDbType.VarChar).Value = fechaI + .Add("@FechaF", SqlDbType.VarChar).Value = fechaF + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los registros de Conciliaciones SAT.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function Public Function RepConciliacionSatGET(cveEmpresa As Int32, tipoDocto As String, fechaI As String, fechaF As String) As Boolean Dim retorno As Boolean = False diff --git a/Scripts/funciones.js b/Scripts/funciones.js index a325dc331..76f557384 100644 --- a/Scripts/funciones.js +++ b/Scripts/funciones.js @@ -661,8 +661,7 @@ function AbrirVentana(Pagina, Ancho, Alto, tmp, Titulo) { Metronic.unblockUI(); }); $('#ajaxidmodal #myFrame').prop('src', Pagina); - $("#ajax").modal(); - return false; + $("#ajax").modal(); } function CerrarVentana() { diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index d2d59eace..93b3af6a2 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -3912,7 +3912,7 @@ Partial Class Clientes Gracias por la atención brindada al presente.
Reciba un cordial saludo.

ESTE CORREO SE GENERO EN FORMA AUTOMATICA.", TxtNombreComercial.Text, UsuarioActual.Empresa.Empresa) - Dim Hilo As New System.Threading.Thread(Sub() MandaCorreoEstadoCuenta(File, TxtCobranzaCorreo.Text, $"Estado Actual de Cartera {UsuarioActual.Empresa.Empresa}", Cuerpo, GuardarBitacora:=True)) + Dim Hilo As New System.Threading.Thread(Sub() MandaCorreoEstadoCuenta(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Me.CveCliente, File, TxtCobranzaCorreo.Text, $"Estado Actual de Cartera {UsuarioActual.Empresa.Empresa}", Cuerpo, GuardarBitacora:=True)) Hilo.Start() Alert("El correo se envió con éxito", TipoMensaje.MsgInformacion) Catch ex As Exception @@ -3979,7 +3979,7 @@ Partial Class Clientes End If End If End Sub - Private Sub MandaCorreoEstadoCuenta(File As Byte(), Para As String, Asunto As String, Body As String, Optional GuardarBitacora As Boolean = False) + Private Sub MandaCorreoEstadoCuenta(CveUsuario As Integer, CveEmpresa As Integer, CveCliente As Integer, File As Byte(), Para As String, Asunto As String, Body As String, Optional GuardarBitacora As Boolean = False) Dim a As String = String.Format("{0} -- {1} ---- -->", Asunto, Para) 'a.GuardaLog() @@ -3992,7 +3992,7 @@ Partial Class Clientes If Envio AndAlso GuardarBitacora Then Using ObjBitacora As New ClsOIEventos - ObjBitacora.AddEventoBitacora("Se envió correo con el estado de cuenta del cliente", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCliente:=Me.CveCliente) + ObjBitacora.AddEventoBitacora("Se envió correo con el estado de cuenta del cliente", "", CveUsuario, CveEmpresa, CveCliente:=CveCliente) End Using End If diff --git a/Ventas/RepConciliacionEmitidosSat.aspx b/Ventas/RepConciliacionEmitidosSat.aspx index 753022003..1409c9839 100644 --- a/Ventas/RepConciliacionEmitidosSat.aspx +++ b/Ventas/RepConciliacionEmitidosSat.aspx @@ -8,16 +8,16 @@ text-align: left; } - .GVConciliacionemitidasSAT tr th:nth-child(6) { + .GVConciliacionemitidasSAT tr th:nth-child(7) { text-align: center; } - .GVConciliacionemitidasSAT tr td:nth-child(6) { + .GVConciliacionemitidasSAT tr td:nth-child(7) { text-align: right; } - .GVConciliacionemitidasSAT tr th:nth-child(7), - .GVConciliacionemitidasSAT tr td:nth-child(7) { + .GVConciliacionemitidasSAT tr th:nth-child(8), + .GVConciliacionemitidasSAT tr td:nth-child(8) { text-align: center; } @@ -35,6 +35,80 @@ + + +
+
+
+ + +
+
+
+ + +
+ + + + + + + +
+
+ Fecha Inicio: +
+
+
+ + + + +
+ + + + + + +
+
+ Fecha Fin: +
+
+
+ + + + +
+ + + + + + +
+
+
+
+ +
+
+
@@ -52,8 +126,13 @@
+ DataKeyNames="FolioFiscal,TipoDocto,ImporteTotal,Estatus,Fecha,Moneda,RFCReceptor,CveEmpresa,RutaXml,RFCEmisor,TipoDoctoTexto" OnRowDataBound="GVConciliacionemitidasSAT_RowDataBound"> + + + + + @@ -91,12 +170,13 @@ - + - + <%-- --%> + XML @@ -153,7 +233,6 @@