diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 93ebfc00b..7afa67d63 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -848,21 +848,41 @@ Public Class ClsBancos Return Retorno End Function - Public Function GetPrePolizasDetalle(CvePrePoliza As Integer, CveEmpresa As Integer, Optional CveIE As Integer = -1, Optional CveOC As Integer = -1) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Conta_PrePolizasDetalleGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveIE", SqlDbType.Int).Value = CveIE - .Add("@CveOC", SqlDbType.Int).Value = CveOC - End With + 'Public Function GetPrePolizasDetalle(CvePrePoliza As Integer, CveEmpresa As Integer, Optional CveIE As Integer = -1, Optional CveOC As Integer = -1) As Boolean + ' Dim Retorno As Boolean = False + ' DataAdapter("PA_Conta_PrePolizasDetalleGet") + ' With SqlAdapter.SelectCommand.Parameters + ' .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza + ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + ' .Add("@CveIE", SqlDbType.Int).Value = CveIE + ' .Add("@CveOC", SqlDbType.Int).Value = CveOC + ' End With + ' Try + ' SqlAdapter.Fill(Data) + ' Retorno = True + ' Catch ex As Exception + ' OnError("Ocurrió un error al obtener Movimientos Prepolizas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + ' End Try + + ' Return Retorno + 'End Function + + Public Function GetBancosIEFacturasPagadas(CveIE As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Banc_IEFacturasPagadasGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveIE", SqlDbType.Int).Value = CveIE + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With Try SqlAdapter.Fill(Data) + Retorno = True Catch ex As Exception - OnError("Ocurrió un error al obtener Movimientos Prepolizas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al obtener los movimientos del documento.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return Retorno @@ -944,6 +964,7 @@ Public Class ClsBancos Return Retorno End Function + Public Function GetFoliosCancelados(CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Banc_FoliosCanceladosGet") diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index cb0596ad0..e3f903e99 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -1195,14 +1195,14 @@ Public Class ClsContabilidad Return Concepto End Function - Public Function GetPrePolizasDetalle(CvePrePoliza As Integer, CveEmpresa As Integer, Optional CveIE As Integer = -1, Optional CveVenta As Integer = -1) As Boolean + Public Function GetPrePolizasDetalle(CvePrePoliza As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Conta_PrePolizasDetalleGet") With SqlAdapter.SelectCommand.Parameters .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza - .Add("@CveIE", SqlDbType.Int).Value = CveIE + .Add("@CveIE", SqlDbType.Int).Value = -1 .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + '.Add("@CveVenta", SqlDbType.Int).Value = CveVenta End With Try diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 8da82fc41..823f6d5c7 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -3,6 +3,7 @@ Option Strict On Imports System.Data Imports System.Data.SqlClient Imports Extensiones +Imports Microsoft.Web.XmlTransform Public Class ClsInventarios Implements IDisposable @@ -148,7 +149,7 @@ Public Class ClsInventarios Public ReadOnly Property DataSetResultados() As DataSet Get - DataSetResultados = DataSet + DataSetResultados = Dataset End Get End Property @@ -5630,7 +5631,8 @@ Public Class ClsInventarios Public Function AddCamiones(Placa As String, Especificacion As String, CveEmpresa As Integer, CveConfigAutoTransporte As Integer, Anio As Integer, CveTipoPermisoSCT As Integer, NumPermisoSCT As String, NombreAseguradora As String, NumPolizaSeguro As String, CveUsuario As Integer, NombreAseguradoraMedioAmbiente As String, NumPolizaSeguroMedioAmbiente As String, NombreAseguradoraCarga As String, NumPolizaSeguroCarga As String, Optional CveTipoCamion As Integer = 1, Optional LongitudCaja As String = "", Optional LineaTransportacion As String = "", Optional SCAC As String = "", Optional CAAT As String = "", - Optional CveTipoRemolque As Integer = -1, Optional NumeroTrailer As String = "", Optional Estatus As Boolean = False, Optional CveProveedor As Integer = -1) As Boolean + Optional CveTipoRemolque As Integer = -1, Optional NumeroTrailer As String = "", Optional Estatus As Boolean = False, Optional CveProveedor As Integer = -1, + Optional Marca As String = "", Optional Color As String = "") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_CamionesAdd") @@ -5658,6 +5660,8 @@ Public Class ClsInventarios .Add("@NumeroTrailer", SqlDbType.VarChar).Value = NumeroTrailer .Add("@Estatus", SqlDbType.Bit).Value = Estatus .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@Marca", SqlDbType.VarChar).Value = Marca + .Add("@Color", SqlDbType.VarChar).Value = Color End With Try SqlAdapter.Fill(Data) @@ -5691,7 +5695,8 @@ Public Class ClsInventarios Public Function UpdateCamiones(CveCamion As Integer, Placa As String, Especificacion As String, CveConfigAutoTransporte As Integer, Anio As Integer, CveTipoPermisoSCT As Integer, NumPermisoSCT As String, NombreAseguradora As String, NumPolizaSeguro As String, CveUsuario As Integer, CveEmpresa As Integer, NombreAseguradoraMedioAmbiente As String, NumPolizaSeguroMedioAmbiente As String, NombreAseguradoraCarga As String, NumPolizaSeguroCarga As String, Optional CveTipoCamion As Integer = -1, Optional LongitudCaja As String = "", Optional LineaTransportacion As String = "", Optional SCAC As String = "", Optional CAAT As String = "", - Optional CveTipoRemolque As Integer = -1, Optional NumeroTrailer As String = "", Optional Estatus As Boolean = False, Optional CveProveedor As Integer = -1) As Boolean + Optional CveTipoRemolque As Integer = -1, Optional NumeroTrailer As String = "", Optional Estatus As Boolean = False, Optional CveProveedor As Integer = -1, + Optional Marca As String = "", Optional Color As String = "") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_CamionesUpdate") With SqlAdapter.SelectCommand.Parameters @@ -5719,6 +5724,8 @@ Public Class ClsInventarios .Add("@NumeroTrailer", SqlDbType.VarChar).Value = NumeroTrailer .Add("@Estatus", SqlDbType.Bit).Value = Estatus .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@Marca", SqlDbType.VarChar).Value = Marca + .Add("@Color", SqlDbType.VarChar).Value = Color End With Try SqlAdapter.Fill(Data) diff --git a/App_Code/DtDatos.xsd b/App_Code/DtDatos.xsd index a9dc6f67a..5afd2bf58 100644 --- a/App_Code/DtDatos.xsd +++ b/App_Code/DtDatos.xsd @@ -12,7 +12,7 @@ - + @@ -28,7 +28,7 @@ - + @@ -46,7 +46,7 @@ - + @@ -66,7 +66,7 @@ - + @@ -89,7 +89,7 @@ - + @@ -113,7 +113,7 @@ - + @@ -139,7 +139,7 @@ - + @@ -155,7 +155,7 @@ - + @@ -172,7 +172,7 @@ - + @@ -181,7 +181,7 @@ - + @@ -217,7 +217,7 @@ - + @@ -243,7 +243,7 @@ - + @@ -259,7 +259,7 @@ - + @@ -298,10 +298,12 @@ + + - + @@ -311,7 +313,7 @@ - + diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index df54b086e..64289248f 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -2442,7 +2442,7 @@ Namespace Modelos Dim DtPrePolizasAFCancelar As DataTable = Nothing If ValorMultiplicador = -1 AndAlso ObjFactura.DtDetalle IsNot Nothing AndAlso ObjFactura.DtDetalle.COUNT("CveActivoFijo", "CveActivoFijo > 0") > 0 Then - If ObjConta.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveVenta:=ObjFactura.CveVenta) Then + If ObjConta.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa) Then DtPrePolizasAFCancelar = ObjConta.DtResultados.FiltraParametros("CveConceptoContable IN (271,49,4)") End If End If diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index fb6ddaac8..ab43d4a54 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -2025,8 +2025,8 @@ Namespace Extensiones RefCrediproveedor = ObjIE.DepositoRefCrediProveedor 'Dim UsuarioResponsable As String = "" - Dim PreP As New ClsContabilidad - If PreP.GetPrePolizasDetalle(-1, tCveEmpresa, CveIE:=pCveIE) Then + Dim PreP As New ClsBancos + If PreP.GetBancosIEMovimientos(pCveIE, tCveEmpresa) Then If PreP.DtResultados.Rows.Count > 0 Then CveProveedor = PreP.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero CvePersonal = PreP.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx index c967b9b73..1271eb8cd 100644 --- a/Bancos/IE.aspx +++ b/Bancos/IE.aspx @@ -653,8 +653,8 @@
-
- + @@ -671,7 +671,7 @@ - + @@ -1604,6 +1604,46 @@
+ + + diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 7a69d4a3e..aff25f863 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -966,13 +966,14 @@ Partial Class Bancos_IE End If 'Detectamos a quien se le hizo el cobro (Cliente, proveedor, Funcionario/Empleado, etc.) - If ObjIE2.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then + If ObjIE2.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then If ObjIE2.DtResultados.Rows.Count > 0 Then + Dim dtMovtos As DataTable = ObjIE2.DtResultados - Dim CveConceptoContable As Integer = ObjIE2.DtResultados.FiltroPrimeroValor("CveConceptoContable", "CveConceptoContable <> 30 and CveConceptoContable <> 61").ToEntero - CveCliente = ObjIE2.DtResultados.Rows(0)("CveCliente").ToString.ToEntero - CvePersonal = ObjIE2.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero - CveProveedor = ObjIE2.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero + Dim CveConceptoContable As Integer = dtMovtos.FiltroPrimeroValor("CveConceptoContable", "CveConceptoContable <> 30 and CveConceptoContable <> 61").ToEntero + CveCliente = dtMovtos.Rows(0)("CveCliente").ToString.ToEntero + CvePersonal = dtMovtos.Rows(0)("CvePersonal").ToString.ToEntero + CveProveedor = dtMovtos.Rows(0)("CveProveedor").ToString.ToEntero Select Case CveConceptoContable Case 66 @@ -986,10 +987,28 @@ Partial Class Bancos_IE PnlRecibidoPor.Visible = True End Select + 'codigo reubicado, para no consultar 2 veces + GvM.DataSource = dtMovtos.FiltraParametros("CveConceptoContable <> 30") + + If UsuarioActual.TienePermisoProceso(277) AndAlso Not TabCancelacion.Visible Then + GvM.Columns(8).Visible = True + End If + + If dtMovtos.FiltraParametros("TCPago > 1").Rows.Count.ToEntero() > 0 Then + GvM.Columns(7).Visible = True + End If + + If dtMovtos.FiltraParametros("CveMonedaIE <> CveMoneda").Rows.Count.ToEntero > 0 Then + GvM.Columns(5).Visible = True + GvM.Columns(6).Visible = True + End If + + GvM.DataBind() End If End If End If + If CveCliente > 0 Then DdlCliente.SelectedText = ObjIE.PagueseA DdlCliente.SelectedValue = CveCliente.ToString @@ -1224,27 +1243,27 @@ Partial Class Bancos_IE 'End If + ' codigo se reubicó a linea 969 + ''DETALLES - MOVIMIENTOS + 'If ObjIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then + ' GvM.DataSource = ObjIE.DtResultados.FiltraParametros("CveConceptoContable <> 30") - 'DETALLES - MOVIMIENTOS - If ObjIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then - GvM.DataSource = ObjIE.DtResultados + ' If UsuarioActual.TienePermisoProceso(277) AndAlso Not TabCancelacion.Visible Then + ' GvM.Columns(8).Visible = True + ' End If - If UsuarioActual.TienePermisoProceso(277) AndAlso Not TabCancelacion.Visible Then - GvM.Columns(8).Visible = True - End If + ' If ObjIE.DtResultados.FiltraParametros("TCPago > 1").Rows.Count.ToEntero() > 0 Then + ' GvM.Columns(7).Visible = True + ' End If - If ObjIE.DtResultados.FiltraParametros("TCPago > 1").Rows.Count.ToEntero() > 0 Then - GvM.Columns(7).Visible = True - End If + ' If ObjIE.DtResultados.FiltraParametros("CveMonedaIE <> CveMoneda").Rows.Count.ToEntero > 0 Then + ' GvM.Columns(5).Visible = True + ' GvM.Columns(6).Visible = True + ' End If - If ObjIE.DtResultados.FiltraParametros("CveMonedaIE <> CveMoneda").Rows.Count.ToEntero > 0 Then - GvM.Columns(5).Visible = True - GvM.Columns(6).Visible = True - End If + ' GvM.DataBind() - GvM.DataBind() - - End If + 'End If 'Movimientos Relacionados Padre If ObjIE.GetBancosIEMovimientosPadre(CveIE, UsuarioActual.CveEmpresa) Then @@ -6328,29 +6347,26 @@ Partial Class Bancos_IE End Sub - 'Private Sub LnkAjustarMovimiento_Click(sender As Object, e As EventArgs) Handles LnkAjustarMovimiento.Click - ' RegistraScript("$('#ModalAjustarMovimiento').modal('show');") - 'End Sub + Private Sub LnkAjustarMovimiento_Click(sender As Object, e As EventArgs) Handles LnkAjustarMovimiento.Click + RegistraScript("$('#ModalAjustarMovimiento').modal('show');") + End Sub - 'Private Sub BtnAjustarMovimiento_Click(sender As Object, e As EventArgs) Handles BtnAjustarMovimiento.Click + Private Sub BtnAjustarMovimiento_Click(sender As Object, e As EventArgs) Handles BtnAjustarMovimiento.Click - ' Dim ObjBanco As New ClsBancos - ' ObjBanco.IniciaTransacSQL() - - ' If ObjBanco.UpdateAjustarMovimiento(CveIE, TxtAjustarMovimiento.Text.ToDecimal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - ' ObjBanco.Commit() - ' RegistraScript("$('#ModalAjustarMovimiento').modal('hide');", "ALTR") - ' Alert("El ajuste se realizo correctamente.", TipoMensaje.MsgInformacion, $" document.location.href = ""./IE.aspx?CveIE={CveIE}"";") - ' Else - ' ObjBanco.RollBack() - ' End If - - ' ObjBanco.Dispose() - - 'End Sub + Dim ObjBanco As New ClsBancos + ObjBanco.IniciaTransacSQL() + If ObjBanco.UpdateAjustarMovimiento(CveIE, TxtAjustarMovimiento.Text.ToDecimal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + ObjBanco.Commit() + RegistraScript("$('#ModalAjustarMovimiento').modal('hide');", "ALTR") + Alert("El ajuste se realizo correctamente.", TipoMensaje.MsgInformacion, $" document.location.href = ""./IE.aspx?CveIE={CveIE}"";") + Else + ObjBanco.RollBack() + End If + ObjBanco.Dispose() + End Sub Protected Sub LnkCancelaMovimiento_Click(sender As Object, e As EventArgs) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 931cf3ea0..5e80c0326 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -3718,7 +3718,7 @@ Partial Class PopUpVerFactura End If - Case 3, 16, 37, 40 ' S A L I D A S + Case 3, 16, 37, 40, 45 ' S A L I D A S 'Dim Archivo As New System.IO.FileInfo(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72)) 'Dim Imagen As New System.IO.FileInfo(String.Format("Empresas/{0}/Logo.png", 72)) Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta)) @@ -3729,6 +3729,8 @@ Partial Class PopUpVerFactura concepto = "SALIDA DE ALMACÉN" ElseIf CveConcepto = 37 Then concepto = "SALIDA VIRTUAL" + ElseIf CveConcepto = 45 Then + concepto = "SALIDA DE USADOS" Else concepto = "SALIDA DE ALMACÉN POR RECONSTRUCCIÓN" End If @@ -5953,17 +5955,17 @@ Partial Class PopUpVerFactura DtMovimientosPoliza.Rows.Add(Dr) End If ElseIf UsuarioActual.CveEmpresa.Contiene(119, 141) Then - Dim PreP As New ClsContabilidad - If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then + + If ObjIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then DtMovimientosPoliza = New DataTable DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String)) DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String)) DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double)) DtMovimientosPoliza.Columns.Add("Abono", GetType(Double)) - If PreP.DtResultados.Rows.Count > 0 Then + If ObjIE.DtResultados.Rows.Count > 0 Then - For Each drt As DataRow In PreP.DtResultados.Rows + For Each drt As DataRow In ObjIE.DtResultados.Rows Dim Dr = DtMovimientosPoliza.NewRow Dr("CODIGO") = drt("CuentaCodigo") Dr("Cuenta") = drt("CuentaNombre") @@ -5974,7 +5976,7 @@ Partial Class PopUpVerFactura Next End If End If - PreP.Dispose() + End If @@ -6030,13 +6032,12 @@ Partial Class PopUpVerFactura NotificarA = ObjIE.NotificarA tIdPoliza = ObjIE.IDPoliza - Dim PreP As New ClsContabilidad - If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then - If PreP.DtResultados.Rows.Count > 0 Then - CveProveedor = PreP.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero - CvePersonal = PreP.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero + If ObjIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then + If ObjIE.DtResultados.Rows.Count > 0 Then + CveProveedor = ObjIE.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero + CvePersonal = ObjIE.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero - IVA = PreP.DtResultados.SUM("Importe", "CveConceptoContable = 19") ' concepto de IVA + IVA = ObjIE.DtResultados.SUM("Importe", "CveConceptoContable = 19") ' concepto de IVA If CveProveedor > 0 Then Dim Prov As New ClsCompProveedores @@ -6067,7 +6068,6 @@ Partial Class PopUpVerFactura End If End If End If - PreP.Dispose() params.Add(New ReportParameter("Fecha", FechaExpedicion.ToString("dd-MM-yyyy"))) @@ -6238,10 +6238,9 @@ Partial Class PopUpVerFactura Dim reportDataSetsList As New List(Of ReportDataSource) Dim dtMovs As New DataTable - Dim Mov As New ClsContabilidad - If Mov.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then + If ObjIE.GetBancosIEFacturasPagadas(CveIE, UsuarioActual.CveEmpresa) Then - dtMovs = Mov.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,308,309,312)") + dtMovs = ObjIE.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,308,309,312,292 )") If Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then 'CONVIERTO A PESOS CUANDO SE PAGA CON PESOS FACTURAS DE DOLARES @@ -6254,7 +6253,7 @@ Partial Class PopUpVerFactura End If End If - Mov.Dispose() + Dim rds = New ReportDataSource("DataSet1", dtMovs) reportDataSetsList.Add(rds) diff --git a/Contabilidad/RepIVA.aspx b/Contabilidad/RepIVA.aspx index 7940e288e..83aa1d70b 100644 --- a/Contabilidad/RepIVA.aspx +++ b/Contabilidad/RepIVA.aspx @@ -137,7 +137,7 @@ - + @@ -146,9 +146,9 @@ - + - + @@ -208,14 +208,57 @@ - + - - - + <%-- --%> + + + SubTotal
16% + + + + + + <%-- --%> + + + SubTotal
8% + + + + + + <%-- --%> + + + SubTotal
0% + + + + + - + <%----%> + <%----%> + + + IVA ND
16% + + + + + + + + IVA ND
8% + + + + + + <%-- --%> + @@ -232,7 +275,7 @@ - + @@ -253,7 +296,7 @@
-
+

IVA por Porcentaje

diff --git a/Contabilidad/RepIVA.aspx.cs b/Contabilidad/RepIVA.aspx.cs index 87d51dbeb..2a24113f9 100644 --- a/Contabilidad/RepIVA.aspx.cs +++ b/Contabilidad/RepIVA.aspx.cs @@ -111,7 +111,7 @@ public partial class Contabilidad_RepIVA : ClsPaginas LblMsgAcreditable.Text = "La información presenta importes en negativo, estos no se incluirán en el archivo generado para DIOT"; } - GvA.Columns[11].Visible = DtIVAAcreditable.SUM("valorActosImp1516") > 0; // sino tiene valor la columna de importación de oculta + GvA.Columns[12].Visible = DtIVAAcreditable.SUM("valorActosImp1516") > 0; // sino tiene valor la columna de importación de oculta if (ObjCont.GetRepIVAAcumulado(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), Conciliado, 3, DdlCuenta.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) { diff --git a/Contabilidad2/RepAnexoCatalogo.aspx.vb b/Contabilidad2/RepAnexoCatalogo.aspx.vb index 8d064fb20..b22362481 100644 --- a/Contabilidad2/RepAnexoCatalogo.aspx.vb +++ b/Contabilidad2/RepAnexoCatalogo.aspx.vb @@ -82,9 +82,9 @@ Partial Class AC2_RepAnexoCatalogo Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not Page.IsPostBack Then - If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.CveEmpresa <> 119 Then - Response.Redirect($"/Contabilidad/RepAnexoCatalogo.aspx") - End If + 'If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.CveEmpresa <> 119 Then + ' Response.Redirect($"/Contabilidad/RepAnexoCatalogo.aspx") + 'End If Dim ErrorParametros = True DtDatos = Nothing diff --git a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb index 8ad1afab7..f5a336676 100644 --- a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb +++ b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb @@ -97,9 +97,9 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not Page.IsPostBack Then - If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.CveEmpresa <> 119 Then - Response.Redirect($"/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx") - End If + 'If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.CveEmpresa <> 119 Then + ' Response.Redirect($"/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx") + 'End If Dim ErrorParametros = True diff --git a/Empresas/119/Formatos/RepIVAAcreditable.rpt b/Empresas/119/Formatos/RepIVAAcreditable.rpt index 5b9781196..518015e2d 100644 Binary files a/Empresas/119/Formatos/RepIVAAcreditable.rpt and b/Empresas/119/Formatos/RepIVAAcreditable.rpt differ diff --git a/Inventarios/CatUnidades.aspx b/Inventarios/CatUnidades.aspx index 6da00699e..aec32d5ad 100644 --- a/Inventarios/CatUnidades.aspx +++ b/Inventarios/CatUnidades.aspx @@ -32,7 +32,7 @@ @@ -42,6 +42,8 @@ + + @@ -248,7 +250,24 @@
+ +
+
+
+ + + +
+
+
+
+ + + +
+
+
diff --git a/Inventarios/CatUnidades.aspx.vb b/Inventarios/CatUnidades.aspx.vb index f2c2a8f17..ecb00f46f 100644 --- a/Inventarios/CatUnidades.aspx.vb +++ b/Inventarios/CatUnidades.aspx.vb @@ -1,4 +1,6 @@ Imports Extensiones +Imports Stimulsoft.Report.StiOptions.Export + Partial Class Inventarios_CatUnidades Inherits ClsPaginas @@ -109,6 +111,8 @@ Partial Class Inventarios_CatUnidades TxtNumeroTrailer.Text = "" TxtSCAC.Text = "" TxtCAAT.Text = "" + TxtMarca.Text = "" + TxtColor.Text = "" ChkEstatus.Checked = False RdTipoUnidad.SelectedValue = "1" @@ -153,6 +157,8 @@ Partial Class Inventarios_CatUnidades TxtLineaTransportacion.Text = GvRow.DataKey("LineaTransportacion") TxtSCAC.Text = GvRow.DataKey("SCAC") TxtCAAT.Text = GvRow.DataKey("CAAT") + TxtMarca.Text = GvRow.DataKey("Marca") + TxtColor.Text = GvRow.DataKey("Color") ChkEstatus.Checked = If(Boolean.Parse(GvRow.DataKey("Estatus")), True, False) 'ChkesRemolque.Checked = (GvRow.DataKey("CveTipoCamion") = "2") @@ -207,14 +213,14 @@ Partial Class Inventarios_CatUnidades If CveCamion <= 0 Then If ObjInventarios.AddCamiones(TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, UsuarioActual.CveEmpresa, DdlConfigAuto.SelectedValue.ToEntero, TxtAnio.Text.ToEntero(), DdlTipoPermisoSCT.SelectedValue.ToEntero(), TxtNumermisoSCT.Text, TxtNombreAseguradora.Text, TxtNumPolizaSeguro.Text, UsuarioActual.CveUsuario, - TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text, CveTipoCamion, TxtLongitudCaja.Text, TxtLineaTransportacion.Text, TxtSCAC.Text, TxtCAAT.Text, DdlTiposRemolque.SelectedValue.ToEntero(), TxtNumeroTrailer.Text, ChkEstatus.Checked, CveProveedor:=DdlProveedor.SelectedValue) Then + TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text, CveTipoCamion, TxtLongitudCaja.Text, TxtLineaTransportacion.Text, TxtSCAC.Text, TxtCAAT.Text, DdlTiposRemolque.SelectedValue.ToEntero(), TxtNumeroTrailer.Text, ChkEstatus.Checked, CveProveedor:=DdlProveedor.SelectedValue, Color:=TxtColor.Text, Marca:=TxtMarca.Text) Then Alert("Unidad agregada correctamente") Else ErrorPrceso = True End If Else If ObjInventarios.UpdateCamiones(CveCamion, TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, DdlConfigAuto.SelectedValue.ToEntero, TxtAnio.Text.ToEntero(), DdlTipoPermisoSCT.SelectedValue.ToEntero(), TxtNumermisoSCT.Text, TxtNombreAseguradora.Text, TxtNumPolizaSeguro.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, - TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text, CveTipoCamion, TxtLongitudCaja.Text, TxtLineaTransportacion.Text, TxtSCAC.Text, TxtCAAT.Text, DdlTiposRemolque.SelectedValue.ToEntero(), TxtNumeroTrailer.Text, ChkEstatus.Checked, CveProveedor:=DdlProveedor.SelectedValue) Then + TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text, CveTipoCamion, TxtLongitudCaja.Text, TxtLineaTransportacion.Text, TxtSCAC.Text, TxtCAAT.Text, DdlTiposRemolque.SelectedValue.ToEntero(), TxtNumeroTrailer.Text, ChkEstatus.Checked, CveProveedor:=DdlProveedor.SelectedValue, Color:=TxtColor.Text, Marca:=TxtMarca.Text) Then Alert("Unidad actualizada correctamente") Else ErrorPrceso = True @@ -256,7 +262,7 @@ Partial Class Inventarios_CatUnidades DVTiposRemolque.Visible = False 'DVLongitudCaja.Visible = False - + DivMarcaColor.Visible = True DVTiposRemolque.Visible = False Else @@ -270,6 +276,7 @@ Partial Class Inventarios_CatUnidades 'DVLineaTransportacion.Visible = False 'DVSCACCAAT.Visible = False + DivMarcaColor.Visible = False DVTiposRemolque.Visible = True 'DVLongitudCaja.Visible = True diff --git a/Inventarios/InventarioFisicoDetalle.aspx b/Inventarios/InventarioFisicoDetalle.aspx index b5d900cdb..53d938d26 100644 --- a/Inventarios/InventarioFisicoDetalle.aspx +++ b/Inventarios/InventarioFisicoDetalle.aspx @@ -208,7 +208,7 @@
- +
@@ -223,10 +223,10 @@
- +
- +
diff --git a/Inventarios/InventarioFisicoDetalle.aspx.vb b/Inventarios/InventarioFisicoDetalle.aspx.vb index 0848c497a..6bee3fa74 100644 --- a/Inventarios/InventarioFisicoDetalle.aspx.vb +++ b/Inventarios/InventarioFisicoDetalle.aspx.vb @@ -687,13 +687,13 @@ Partial Class Inventarios_InventarioFisicoDetalle worksheet.Columns(i).AutoFit(1, worksheet.Rows(0), worksheet.Rows(worksheet.Rows.Count - 1)) Next - NombreArchivo = "Productos" + NombreArchivo = "Productos-" + lbTitulo.Text workbook.Save(Response, $"{NombreArchivo}.xlsx", SaveOptions.XlsxDefault) End Sub #End Region - Protected Sub BtnBuscarCodVarras_Click(sender As Object, e As EventArgs) - Dim CodigoBarras As String = If(TxtConCodigoVarras.Text.Trim <> "", TxtConCodigoVarras.Text.Trim, "-1").Replace("'", "''") + Protected Sub BtnBuscarCodBarras_Click(sender As Object, e As EventArgs) + Dim CodigoBarras As String = If(TxtConCodigoBarras.Text.Trim <> "", TxtConCodigoBarras.Text.Trim, "-1").Replace("'", "''") LblContador.Text = "No se encontraron resultados" Using Inventarios As New ClsInventarios If Inventarios.GetInventarioFisicoContador(CveInventarioFisico, ddlUsuario.SelectedValue.ToString.ToEntero, CodigoBarras) Then diff --git a/SAT/SolicitudesIngresoSat.aspx b/SAT/SolicitudesIngresoSat.aspx index 5d15dc07c..c0fb10133 100644 --- a/SAT/SolicitudesIngresoSat.aspx +++ b/SAT/SolicitudesIngresoSat.aspx @@ -319,7 +319,7 @@
-
+
@@ -329,12 +329,52 @@ - + + + + + + + + + + + + + + + + + + + + + - + + + + + + + + + + + + + + + + + + + + + @@ -368,11 +408,7 @@ DataKeyNames="UUID,CountRegistros,VTotal,CBTTotal,CountRegistrosSIG,CountRegistrosSAT,DifImporte,Abreviatura,CBTMoneda,CFDIData,CveSolicitudDetalle,CveVenta,VSerieFolio,Sistema"> - - - - - + @@ -495,6 +531,17 @@ + + + + + + + + + + + diff --git a/SAT/SolicitudesIngresoSat.aspx.cs b/SAT/SolicitudesIngresoSat.aspx.cs index 03036deb7..1485e8e0a 100644 --- a/SAT/SolicitudesIngresoSat.aspx.cs +++ b/SAT/SolicitudesIngresoSat.aspx.cs @@ -56,7 +56,7 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas #endregion - protected void Page_Load(object sender, EventArgs e) + protected void Page_Load(object sender, EventArgs e) { if (!IsPostBack) { @@ -75,7 +75,8 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas protected void LnkDownloadExcel_Click(object sender, EventArgs e) { - if(TipoDescarga == 1) { + if (TipoDescarga == 1) + { GvResumen.ExportToExcel2($"Resumen{DateTime.Now.ToString("yyyyMMddhhmmss")}"); } @@ -100,7 +101,7 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas DVResumen1.Visible = true; DVResumen2.Visible = true; DvDatos1.Visible = false; - DvDatos2.Visible = false; + DvDatos2.Visible = false; } else { @@ -108,25 +109,25 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas DVResumen2.Visible = false; DvDatos1.Visible = true; DvDatos2.Visible = true; - } - + } + using (ClsNominas ObjNom = new ClsNominas()) { - if (ObjNom.SATSolicitudTimbreIngresosRep(UsuarioActual.CveEmpresa, TxtRpdFechaInicio.Text.ToDate(), TxtRpdFechaFin.Text.ToDate(), DdlReporte.SelectedValue.ToEntero(),DdlVista.SelectedValue.ToEntero())) + if (ObjNom.SATSolicitudTimbreIngresosRep(UsuarioActual.CveEmpresa, TxtRpdFechaInicio.Text.ToDate(), TxtRpdFechaFin.Text.ToDate(), DdlReporte.SelectedValue.ToEntero(), DdlVista.SelectedValue.ToEntero())) { if (DdlReporte.SelectedValue.ToEntero() == 1 || DdlReporte.SelectedValue.ToEntero() == 3) { GvResumen.DataSource = ObjNom.DtResultados; - TipoDescarga = ObjNom.DtResultados.Rows.Count > 0 ? 1:0; + TipoDescarga = ObjNom.DtResultados.Rows.Count > 0 ? 1 : 0; LnkDownloadExcel.Visible = true; } - else if (DdlReporte.SelectedValue.ToEntero() == 2) - { + else if (DdlReporte.SelectedValue.ToEntero() == 2) + { GvDatos.DataSource = ObjNom.DtResultados; TipoDescarga = ObjNom.DtResultados.Rows.Count > 0 ? 2 : 0; LnkDownloadExcel.Visible = true; - } - } + } + } } GvResumen.DataBind(); @@ -141,19 +142,19 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas using (ClsNominas nom = new ClsNominas()) { - if (nom.SolicitudesGet(-1, UsuarioActual.CveEmpresa, CveTipoSolicitud: 3, Estatus: 0,Top:50)) + if (nom.SolicitudesGet(-1, UsuarioActual.CveEmpresa, CveTipoSolicitud: 3, Estatus: 0, Top: 50)) { GVSolicitudesPendientes.DataSource = nom.DtResultados; if (nom.DtResultados.Rows.Count > 0) { LnkverificarSolicitudes.Visible = true; } - GVSolicitudesPendientes.DataBind(); + GVSolicitudesPendientes.DataBind(); } - if (nom.SolicitudesGet(-1, UsuarioActual.CveEmpresa, CveTipoSolicitud: 3, Estatus:1,Top:50)) + if (nom.SolicitudesGet(-1, UsuarioActual.CveEmpresa, CveTipoSolicitud: 3, Estatus: 1, Top: 50)) { - GVSolicitudesNominas.DataSource = nom.DtResultados; + GVSolicitudesNominas.DataSource = nom.DtResultados.FiltraParametros("EfectoComprobante = 'I'"); GVSolicitudesNominas.DataBind(); } } @@ -162,8 +163,8 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas protected void LnkShowSolicitudes_Click(object sender, EventArgs e) { TabPanel.ActiveTabIndex = 0; - cargasolicitudes(); - + cargasolicitudes(); + RegistraScript("$('#ModalViewSolicitudes').modal();"); } @@ -184,10 +185,10 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas using (ClsNominas nom = new ClsNominas()) { - int CveTipoSolicitud = ChkMetaDatos.Checked ? 203 :3; - CveSolicitudAgregada = nom.SolicitudesAdd2(idSolicitudCFDI, idSolicitudMetadata, estatus, observaciones, fechaInicio, fechaFin, cveUsuarioIng, cveEmpresa, CveTipoSolicitud: CveTipoSolicitud); - - if(CveSolicitudAgregada > 0) + int CveTipoSolicitud = ChkMetaDatos.Checked ? 203 : 3; + CveSolicitudAgregada = nom.SolicitudesAdd2(idSolicitudCFDI, idSolicitudMetadata, estatus, observaciones, fechaInicio, fechaFin, cveUsuarioIng, cveEmpresa, CveTipoSolicitud: CveTipoSolicitud); + + if (CveSolicitudAgregada > 0) { Folio = nom.FolioSolicitud; } @@ -198,8 +199,8 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas var api = new GeneralesAPII(); JToken ObjApiSolicitud = (JToken)api.GeneraSolicitud(UsuarioActual.CveEmpresa, 3, CveSolicitudAgregada); List resultSolicitud = new List(); - List resultVerificacion = new List(); - + List resultVerificacion = new List(); + var TipoMensaje = ModExtensiones.TipoMensaje.MsgInformacion; var ResultadoSolicitudOK = false; @@ -218,10 +219,11 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas { sbResultado.Append($"Solicitud registrada. {resultSolicitud[1]}
Folio: {Folio}"); } - else{ + else + { - if(ObjApiSolicitud != null && resultSolicitud.Count == 4) + if (ObjApiSolicitud != null && resultSolicitud.Count == 4) { sbResultado.Append($"Solicitud registrada, pendiente de verificar en SAT
Folio: {Folio}
({resultSolicitud[1]})
"); } @@ -249,22 +251,22 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas txtFechaFAdd.Text = ""; ChkMetaDatos.Checked = false; RegistraScript("$('#ModalAgregarSolicitud').modal('hide');"); - cargasolicitudes(); - + cargasolicitudes(); + } } protected void LnkverificarSolicitudes_Click(object sender, EventArgs e) - { - + { + try - { - - + { + + StringBuilder sbResultado = new StringBuilder(); - foreach(GridViewRow GvRow in GVSolicitudesPendientes.Rows) + foreach (GridViewRow GvRow in GVSolicitudesPendientes.Rows) { int CveSolicitudActual = GvRow.DataKey("CveSolicitud").ToEntero(); @@ -278,12 +280,12 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas var ResultadoVerificaionOK = false; var SeVerifico = false; var TipoMensaje = ModExtensiones.TipoMensaje.MsgInformacion; - var ResultadoSolicitudOK = false; - - - var api = new GeneralesAPII(); - - + var ResultadoSolicitudOK = false; + + + var api = new GeneralesAPII(); + + if (idSolicitud.Length == 0) { JToken ObjApiSolicitud = (JToken)api.GeneraSolicitud(UsuarioActual.CveEmpresa, CveTipoSolicitud, CveSolicitudActual); @@ -307,13 +309,13 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas resultSolicitud.Add(""); ResultadoSolicitudOK = true; - } - - - + } + + + if (ResultadoSolicitudOK) - { - + { + JToken ObjApiVerificacion = (JToken)api.VerificaSolicitudesNominas(UsuarioActual.CveEmpresa, CveTipoSolicitud, CveSolicitudActual); @@ -330,21 +332,21 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas } else - { - - if(resultSolicitud.Count == 4) + { + + if (resultSolicitud.Count == 4) { sbResultado.Append($"({resultSolicitud[1]})
Folio:{Folio}
"); } else { sbResultado.Append($"Solicitud pendiente de verificar en SAT
Folio:{Folio}
"); - } - - TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia; - } - - + } + + TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia; + } + + if (SeVerifico && resultVerificacion.Count == 4) { if (ResultadoVerificaionOK) @@ -358,28 +360,28 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas } } else - { + { sbResultado.Append($"Se presento un error al verificar la solicitud
Folio: {Folio}."); TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia; } Alert(sbResultado.ToString(), TipoMensaje); - } - - - - - + } + + + + + cargasolicitudes(); } - catch(Exception ex) + catch (Exception ex) { Alert(ex.StackTrace); - } - - - + } + + + } protected void LnkAgregarSolictud_Click(object sender, EventArgs e) @@ -394,33 +396,79 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas protected void GvResumen_RowDataBound(object sender, GridViewRowEventArgs e) { - if(e.Row.RowType == DataControlRowType.DataRow) - { - if(e.Row.DataKey("Fecha") == "") - { - // e.Row.Cells[0].Text = "Total"; - e.Row.Attributes.Add("class", "Totales"); - - } + if (e.Row.RowType == DataControlRowType.DataRow) + { + if (e.Row.DataKey("Fecha") == "") + e.Row.Attributes.Add("class", "Totales"); + + if (UsuarioActual.Empresa.Funcionalidad(713) != "1") + { + e.Row.Cells[2].Visible = false; + } + + + if (UsuarioActual.Empresa.Funcionalidad(713) != "1") + { + e.Row.Cells[7].Visible = false; + } + + + } + + if (e.Row.RowType == DataControlRowType.Header) + { + e.Row.Cells[1].BackColor = System.Drawing.Color.FromName("#3598dc"); + e.Row.Cells[2].BackColor = System.Drawing.Color.FromName("#3598dc"); + e.Row.Cells[3].BackColor = System.Drawing.Color.FromName("#3598dc"); + if (UsuarioActual.Empresa.Funcionalidad(713) != "1") + { + e.Row.Cells[2].Visible = false; + } + + e.Row.Cells[4].BackColor = System.Drawing.Color.FromName("#3598dc"); + e.Row.Cells[5].BackColor = System.Drawing.Color.FromName("#3598dc"); + + e.Row.Cells[6].BackColor = System.Drawing.Color.FromName("#C46B06"); + e.Row.Cells[7].BackColor = System.Drawing.Color.FromName("#C46B06"); + e.Row.Cells[8].BackColor = System.Drawing.Color.FromName("#C46B06"); + if (UsuarioActual.Empresa.Funcionalidad(713) != "1") + { + e.Row.Cells[7].Visible = false; + } + + e.Row.Cells[9].BackColor = System.Drawing.Color.FromName("#C46B06"); + e.Row.Cells[10].BackColor = System.Drawing.Color.FromName("#C46B06"); + + + e.Row.Cells[1].ForeColor = System.Drawing.Color.FromName("white"); + e.Row.Cells[2].ForeColor = System.Drawing.Color.FromName("white"); + e.Row.Cells[3].ForeColor = System.Drawing.Color.FromName("white"); + e.Row.Cells[4].ForeColor = System.Drawing.Color.FromName("white"); + e.Row.Cells[5].ForeColor = System.Drawing.Color.FromName("white"); + e.Row.Cells[6].ForeColor = System.Drawing.Color.FromName("white"); + e.Row.Cells[7].ForeColor = System.Drawing.Color.FromName("white"); + e.Row.Cells[8].ForeColor = System.Drawing.Color.FromName("white"); + e.Row.Cells[9].ForeColor = System.Drawing.Color.FromName("white"); + e.Row.Cells[10].ForeColor = System.Drawing.Color.FromName("white"); } } protected void GvDatos_RowDataBound(object sender, GridViewRowEventArgs e) { - if(e.Row.RowType == DataControlRowType.DataRow) - { - - - if (e.Row.DataKey("UUID") == "Totales") - { - e.Row.Font.Bold = true; + if (e.Row.RowType == DataControlRowType.DataRow) + { + + + if (e.Row.DataKey("UUID") == "Totales") + { + e.Row.Font.Bold = true; e.Row.Cells[1].Text = e.Row.DataKey("CountRegistrosSIG"); - e.Row.Cells[2].Text = e.Row.DataKey("CountRegistrosSAT"); + e.Row.Cells[2].Text = e.Row.DataKey("CountRegistrosSAT"); e.Row.Attributes.Add("class", "Totales"); } - if(e.Row.DataKey("UUID").ToUpper() != "TOTALES") + if (e.Row.DataKey("UUID").ToUpper() != "TOTALES") { StringBuilder SBMsgToolTip = new StringBuilder(); @@ -446,26 +494,27 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas SBMsgToolTip.AppendLine("Comprobante no se encuentra en descargas de SAT.
"); } } - else { + else + { if (e.Row.DataKey("DifImporte").ToDecimal() != 0) { - SBMsgToolTip.AppendLine($" Diferencia importes {e.Row.DataKey("DifImporte").ToDecimal().ToString("###,###,###.00")}"); + SBMsgToolTip.AppendLine($" Diferencia importes {e.Row.DataKey("DifImporte").ToDecimal().ToString("###,###,###.00")}"); } if (e.Row.DataKey("Abreviatura").ToUpper() != e.Row.DataKey("CBTMoneda").ToUpper()) - { + { SBMsgToolTip.AppendLine($"Diferencia en monedas."); } - } - + } + if (SBMsgToolTip.ToString().Length > 0) { e.Row.Attributes.Add("title", SBMsgToolTip.ToString()); } LinkButton LnkCFDIData = e.Row.FCLinkButton("LnkCFDIData"); - if((e.Row.DataKey("CFDIData").ToUpper() == "SI")) - { + if ((e.Row.DataKey("CFDIData").ToUpper() == "SI")) + { ScriptManager.GetCurrent(this).RegisterPostBackControl(LnkCFDIData); LnkCFDIData.CssClass = "Texto"; } @@ -483,8 +532,8 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas } if (e.Row.RowType == DataControlRowType.Header) - { - + { + e.Row.Cells[1].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul e.Row.Cells[2].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo @@ -513,9 +562,9 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas e.Row.Cells[14].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo e.Row.Cells[15].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo e.Row.Cells[16].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo - e.Row.Cells[17].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo - - + e.Row.Cells[17].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo + + e.Row.Cells[1].ForeColor = System.Drawing.Color.FromName("white"); e.Row.Cells[2].ForeColor = System.Drawing.Color.FromName("white"); @@ -531,7 +580,7 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas e.Row.Cells[12].ForeColor = System.Drawing.Color.FromName("white"); e.Row.Cells[13].ForeColor = System.Drawing.Color.FromName("white"); e.Row.Cells[14].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[15].ForeColor = System.Drawing.Color.FromName("white"); + e.Row.Cells[15].ForeColor = System.Drawing.Color.FromName("white"); e.Row.Cells[16].ForeColor = System.Drawing.Color.FromName("white"); e.Row.Cells[17].ForeColor = System.Drawing.Color.FromName("white"); @@ -541,9 +590,9 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas protected void LnkDescargaXML_Click(object sender, EventArgs e) { - GridViewRow GvRow = (GridViewRow)((LinkButton)sender).NamingContainer; - - var UrlDescarga = $"{UsuarioActual.Empresa.Ruta}NomXMLSAT\\Descargas\\{GvRow.DataKey("ArchivoXML")}"; + GridViewRow GvRow = (GridViewRow)((LinkButton)sender).NamingContainer; + + var UrlDescarga = $"{UsuarioActual.Empresa.Ruta}NomXMLSAT\\Descargas\\{GvRow.DataKey("ArchivoXML")}"; var Archivo = new System.IO.FileInfo(UrlDescarga); @@ -556,8 +605,8 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas Response.Flush(); Response.TransmitFile(Archivo.FullName); Response.End(); - } - + } + } protected void GVSolicitudesNominas_RowDataBound(object sender, GridViewRowEventArgs e) @@ -567,9 +616,10 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas { if (e.Row.DataKey("ArchivoXML").Length > 0) { - var UrlDescarga = $"{UsuarioActual.Empresa.Ruta}NomXMLSAT\\Descargas\\{e.Row.DataKey("ArchivoXML")}"; - - if (System.IO.File.Exists(UrlDescarga)){ + var UrlDescarga = $"{UsuarioActual.Empresa.Ruta}NomXMLSAT\\Descargas\\{e.Row.DataKey("ArchivoXML")}"; + + if (System.IO.File.Exists(UrlDescarga)) + { LinkButton LnkDescargaXML = e.Row.FCLinkButton("LnkDescargaXML"); ScriptManager.GetCurrent(this).RegisterPostBackControl(LnkDescargaXML); LnkDescargaXML.Visible = true; @@ -601,9 +651,9 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas IEnumerable files = DirInfo.EnumerateFiles(); foreach (var f in files) - { - - if(f.Extension.ToUpper() == ".XML") + { + + if (f.Extension.ToUpper() == ".XML") { string UUID = ""; System.Xml.XmlDocument XMLDoc = new System.Xml.XmlDocument(); @@ -654,18 +704,20 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas node = XMLDoc.SelectSingleNode(string.Format("//{0}:Emisor", Prefijo), namespaces); System.Xml.XmlNode nodeComp = XMLDoc.SelectSingleNode(string.Format("//{0}:Complemento", Prefijo), namespaces); - if (node != null ) + if (node != null) { System.Xml.XmlNode nodeTFD = nodeComp.SelectSingleNode(string.Format("//{0}:TimbreFiscalDigital", "tfd"), namespaces); UUID = ValorXML(nodeTFD, "UUID", ""); - } - + } + if (UUID.Length > 0) { - try { + try + { System.IO.File.Move(f.FullName, $@"{f.DirectoryName}\{UUID.ToUpper()}.XML"); Contador++; - } catch (Exception ex3) + } + catch (Exception ex3) { ModExtensiones.GuardaLog(ex3.StackTrace); } @@ -698,14 +750,14 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas GridViewRow GvRow = (GridViewRow)((LinkButton)sender).NamingContainer; var CveSolicitudDetalle = GvRow.DataKey("CveSolicitudDetalle").ToEntero(); var UrlDirectorio = $"{UsuarioActual.Empresa.Ruta}DescargasSATXML\\Ingresos\\{CveSolicitudDetalle}"; - CargaComprobanteXML(UrlDirectorio, CveSolicitudDetalle); - + CargaComprobanteXML(UrlDirectorio, CveSolicitudDetalle); + } protected void LnkCFDIData_Click(object sender, EventArgs e) { - GridViewRow GvRow = (GridViewRow)((LinkButton)sender).NamingContainer; - + GridViewRow GvRow = (GridViewRow)((LinkButton)sender).NamingContainer; + var CveSolicitudDetalle = GvRow.DataKey("CveSolicitudDetalle"); var UrlDescargaXML = $"{UsuarioActual.Empresa.Ruta}DescargasSATXML\\Ingresos\\{CveSolicitudDetalle}\\{GvRow.DataKey("UUID")}.XML"; diff --git a/SAT/SolicitudesRecibidasSAT.aspx b/SAT/SolicitudesRecibidasSAT.aspx index 9d443aa3f..f171acc85 100644 --- a/SAT/SolicitudesRecibidasSAT.aspx +++ b/SAT/SolicitudesRecibidasSAT.aspx @@ -499,6 +499,12 @@ + + + + + + diff --git a/SAT/SolicitudesRecibidasSAT.aspx.vb b/SAT/SolicitudesRecibidasSAT.aspx.vb index ed74f3fba..6bc7df485 100644 --- a/SAT/SolicitudesRecibidasSAT.aspx.vb +++ b/SAT/SolicitudesRecibidasSAT.aspx.vb @@ -212,6 +212,9 @@ Partial Class SAT_SolicitudesRecibidasSAT e.Row.Cells(15).BackColor = System.Drawing.Color.FromName("#C46B06") e.Row.Cells(16).BackColor = System.Drawing.Color.FromName("#C46B06") e.Row.Cells(17).BackColor = System.Drawing.Color.FromName("#C46B06") + e.Row.Cells(18).BackColor = System.Drawing.Color.FromName("#C46B06") + e.Row.Cells(19).BackColor = System.Drawing.Color.FromName("#C46B06") + e.Row.Cells(1).ForeColor = System.Drawing.Color.FromName("white") e.Row.Cells(2).ForeColor = System.Drawing.Color.FromName("white") e.Row.Cells(3).ForeColor = System.Drawing.Color.FromName("white") @@ -229,6 +232,8 @@ Partial Class SAT_SolicitudesRecibidasSAT e.Row.Cells(15).ForeColor = System.Drawing.Color.FromName("white") e.Row.Cells(16).ForeColor = System.Drawing.Color.FromName("white") e.Row.Cells(17).ForeColor = System.Drawing.Color.FromName("white") + e.Row.Cells(18).ForeColor = System.Drawing.Color.FromName("white") + e.Row.Cells(19).ForeColor = System.Drawing.Color.FromName("white") End If End Sub Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)