diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb index 35d8638ea..85ebc6d5d 100644 --- a/App_Code/ClsCompras.vb +++ b/App_Code/ClsCompras.vb @@ -1735,13 +1735,14 @@ Public Class ClsCompras Return OnError End Function - Public Function UpdateEstatus(pFueValidado As Integer, pCveFactura As Integer) As Boolean + Public Function UpdateEstatus(pFueValidado As Integer, pCveFactura As Integer, CveEmpresa As Integer) As Boolean Dim OnError As Boolean = False - DataAdapter("UPDATE Comp_Facturas SET FueValidado = @pFueValidado WHERE CveFactura = @pCveFactura ", CommandType.Text) + DataAdapter("UPDATE Comp_Facturas SET FueValidado = @pFueValidado WHERE CveFactura = @pCveFactura AND CveEmpresa = @CveEmpresa ", CommandType.Text) With SqlAdapter.SelectCommand.Parameters .Add("@pFueValidado", SqlDbType.SmallInt).Value = pFueValidado .Add("@pCveFactura", SqlDbType.Int).Value = pCveFactura + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try @@ -1754,12 +1755,14 @@ Public Class ClsCompras Return OnError End Function - Public Function DeleteFactura(pCveFactura As Integer) As Boolean + Public Function DeleteFactura(pCveFactura As Integer, CveEmpresa As Integer) As Boolean Dim OnError As Boolean = False - DataAdapter(" DELETE Comp_Facturas WHERE CveFactura = @pCveFactura AND CveCompra IS NULL ", CommandType.Text) - - SqlAdapter.SelectCommand.Parameters.Add("@pCveFactura", SqlDbType.Int).Value = pCveFactura + DataAdapter(" DELETE Comp_Facturas WHERE CveFactura = @pCveFactura AND CveEmpresa = @CveEmpresa AND CveCompra IS NULL ", CommandType.Text) + With SqlAdapter.SelectCommand.Parameters + .Add("@pCveFactura", SqlDbType.Int).Value = pCveFactura + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With Try SqlAdapter.Fill(Data) diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb index 5f7601c45..146607353 100644 --- a/App_Code/ClsContPAQi.vb +++ b/App_Code/ClsContPAQi.vb @@ -1074,8 +1074,8 @@ Public Class ClsContPAQi StrSQL.AppendLine(" INNER JOIN Polizas p ON mp.IdPoliza = p.Id ") StrSQL.AppendLine(" INNER JOIN Cuentas c ON c.Id = mp.IdCuenta ") StrSQL.AppendLine(" INNER JOIN TiposPolizas t ON mp.TipoPol = t.Codigo ") - StrSQL.AppendLine(" LEFT JOIN SIG_Resp_2022_04_01.dbo.Usuarios U ON U.CveUsuario = P.IdUsuario ") - StrSQL.AppendLine(" LEFT JOIN SegmentosNegocio s ON mp.IdSegNeg = s.id ") + StrSQL.AppendLine(" LEFT JOIN SERVIDOR.Ventas.dbo.Usuarios U ON U.CveUsuario = P.IdUsuario ") + StrSQL.AppendLine(" LEFT JOIN SegmentosNegocio s ON mp.IdSegNeg = s.id ") StrSQL.AppendLine(" WHERE (@IdPoliza = -1 OR mp.IdPoliza = @IdPoliza) ") StrSQL.AppendLine(" AND (@Eje = -1 OR mp.Ejercicio = @Eje) ") StrSQL.AppendLine(" AND (@Periodo = -1 OR mp.Periodo = @Periodo) ") diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 4e06e5f4e..7c08d813d 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -187,8 +187,6 @@ Public Class ClsContabilidad If Valor1 = "2" OrElse Valor2 = "2" Then Retorno = 3 End If - Case 140 - Retorno = 2 'egreso End Select diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 53cc36e26..6eb54e465 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -3146,11 +3146,11 @@ Public Class ClsNominas addParameters("@CveUsuario", SqlDbType.Int, cveUsuario) addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa) addParameters("@CveEmbarqueManifiesto", SqlDbType.Int, cveEmbarqueManifiesto) - retorno = RunQuery("Ocurrió un error al obtener el PA_AGRO_Embarque_ManifiestoGet.") + retorno = RunQuery("Ocurrió un error al obtener el Embarque Manifiesto .") Return retorno End Function - Public Function PA_Agro_Embarque_PalletGet(cvePallet As Int32, cveCultivo As Int32, cveCultivoVariedad As Int32, cveEnvase As Int32, cveEtiqueta As Int32, cveEtiquetasporTarima As Int32, cveFormatoImpresion As Int32, cveTamaño As Int32, cveTipoTarima As Int32, cveEmpresa As Int32, cveEmbarqueManifiesto As Int32, cveTemporada As Int32) As Boolean + Public Function PA_Agro_Embarque_PalletGet(cvePallet As Int32, cveCultivo As Int32, cveCultivoVariedad As Int32, cveEnvase As Int32, cveEtiqueta As Int32, cveEtiquetasporTarima As Int32, cveFormatoImpresion As Int32, cveTamaño As Int32, cveTipoTarima As Int32, cveEmpresa As Int32, cveEmbarqueManifiesto As Int32, cveTemporada As Int32, Optional agrupado As Boolean = False) As Boolean Dim retorno As Boolean = False DataAdapter("PA_Agro_Embarque_PalletGet", CommandType.StoredProcedure) addParameters("@CvePallet", SqlDbType.Int, cvePallet) @@ -3165,7 +3165,8 @@ Public Class ClsNominas addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa) addParameters("@CveEmbarqueManifiesto", SqlDbType.Int, cveEmbarqueManifiesto) addParameters("@CveTemporada", SqlDbType.Int, cveTemporada) - retorno = RunQuery("Ocurrió un error al obtener el PA_Agro_Embarque_PalletGet.") + addParameters("@Agrupado", SqlDbType.Bit, agrupado) + retorno = RunQuery("Ocurrió un error al obtener el Embarque Pallet .") Return retorno End Function #Region "Visor sat" diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 21be0f560..fd678dad0 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -4926,7 +4926,7 @@ Public Class ClsVentas Return retorno End Function Public Function GetRepMetasVendedores(FechaMesActual As String, CveEmpresa As Integer, CveVendedor As Integer, CveCategoria As Integer, CveClasificacion As Integer, - CveClasificacion2 As Integer, CveMarca As Integer, CveSubProyecto As Integer, CveCliente As Integer, + CveClasificacion2 As Integer, CveMarca As Integer, CveSubProyecto As Integer, CveCliente As Integer, EsDistribuidor As Integer, Optional GrupoSuperior As Integer = 0) As Boolean Dim retorno As Boolean = False DataAdapter("PA_Vta_MetasVendedores", CommandType.StoredProcedure) @@ -4940,6 +4940,7 @@ Public Class ClsVentas .Add("@CveMarca", SqlDbType.Int).Value = CveMarca .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor .Add("@GrupoSuperior", SqlDbType.Int).Value = GrupoSuperior End With Try diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index ba0735df4..387ed4951 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -753,7 +753,7 @@ Partial Class Bancos_ProveedoresAbonar Dim HuboError As Boolean = False Dim ObjCompra As New ClsCompras Dim ObjEventos As New ClsOIEventos(ObjCompra.IniciaTransacSQL()) - If ObjCompra.UpdateEstatus(Valida.EsValida, gvr.DataKey("CveFactura").ToEntero) Then + If ObjCompra.UpdateEstatus(Valida.EsValida, gvr.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa) Then If ObjCompra.CancelarCompra(gvr.DataKey("CveCompra").ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then MsgValidadas.AppendFormat("Factura Cancelada: {0} - {1}
", gvr.DataKey("SerieFolio"), gvr.DataKey("Descripcion")) @@ -2071,21 +2071,21 @@ Partial Class Bancos_ProveedoresAbonar #Region " TIPO TRANSACCION " Private Sub CargaTipoTransaccion() If TipoPago = 1 Then - DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo = 'Egs' AND CveTipoTransaccion IN (1, 2) ") + DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo = 'Egs' AND CveTipoTransaccion IN (1, 2) and Estatus = 1 ") DdlTipoTransaccion.DataBind() DdlTipoTransaccion.SelectedValue = TipoPago.ToString ElseIf TipoPago = 2 Then - DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo = 'Egs' AND CveTipoTransaccion IN (1, 2) ") + DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo = 'Egs' AND CveTipoTransaccion IN (1, 2) and Estatus = 1 ") DdlTipoTransaccion.DataBind() DdlTipoTransaccion.SelectedValue = TipoPago.ToString RecargaCuentasDepositos() ElseIf TipoPago = 3 Then - DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo = 'Egs' AND CveTipoTransaccion IN (1, 2) ") + DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo = 'Egs' AND CveTipoTransaccion IN (1, 2)and Estatus = 1 ") DdlTipoTransaccion.DataBind() DdlTipoTransaccion.SelectedValue = TipoPago.ToString RecargaCuentasDepositos() Else - DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo = 'Egs'") + DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo = 'Egs' and Estatus = 1") DdlTipoTransaccion.DataBind() End If diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 54f2befe8..c9753e346 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1711,7 +1711,7 @@ Partial Class Compras_Compras If Valida.EsValida = 2 Then Validada = False - If ObjeFacturas.UpdateEstatus(Valida.EsValida, CveFactura) Then + If ObjeFacturas.UpdateEstatus(Valida.EsValida, CveFactura, UsuarioActual.CveEmpresa) Then End If @@ -1735,11 +1735,7 @@ Partial Class Compras_Compras If Validada And Not EnListadoEFOS Then - - - Try - XMLDoc.Load(Archivo) Catch ex As Exception Try @@ -1749,13 +1745,8 @@ Partial Class Compras_Compras Catch ex2 As Exception GuardaLog("Error al intentar leer el XML del SAT. Error:" & ex2.ToString()) End Try - - End Try - - CreaDTConceptos() - CargaComprobanteXML(XMLDoc) If NuevaValidacionXML = 1 Or (Version = "3.3" Or Version = "4.0") Then @@ -1821,7 +1812,6 @@ Partial Class Compras_Compras CargaConceptosXML(XMLDoc) End If - Select Case TipoComprobante Case "ingreso" : DdlTipoComprobante.SelectedValue = "Fac" : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("NC")) : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("DEV")) Case "egreso" : DdlTipoComprobante.SelectedValue = "NC" : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Fac")) : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant")) : ChkAplicaNotaCredito.Enabled = False @@ -4707,7 +4697,7 @@ Partial Class Compras_Compras If OCVinculada AndAlso DdlOCVinculaInv.Visible AndAlso Not (CveImportacion > 0 Or CveFlete > 0) Then CveConceptoContableAlmacen = DdlOCVinculaInv.SelectedValue.ToEntero End If - If UsuarioActual.CveEmpresa.Contiene(72, 80, 140, 141) And Not (CveImportacion > 0 Or CveFlete > 0) Then 'se comento, RMF. 2020.08.19, no le hallo sentido + If UsuarioActual.CveEmpresa.Contiene(72, 80, 140, 141, 152) And Not (CveImportacion > 0 Or CveFlete > 0) Then 'se comento, RMF. 2020.08.19, no le hallo sentido CveConceptoContableAlmacen = 205 End If Else @@ -5158,7 +5148,7 @@ Partial Class Compras_Compras AutoConta = False End If - If (AutoConta Or UsuarioActual.Empresa.UsaAC) And ObjContaAC Is Nothing Then + If (AutoConta Or UsuarioActual.Empresa.UsaAC) And ObjContaAC Is Nothing AndAlso UsuarioActual.Empresa.TipoContabilidad = 2 Then ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa) ObjContaAC.IniciaTransacSQL() End If @@ -7809,8 +7799,6 @@ Partial Class Compras_Compras idCuentaContabilizacion = 0 End If - - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyectoInsertar, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=Math.Round(importeMN, 2, MidpointRounding.AwayFromZero), ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True Exit For @@ -7835,7 +7823,7 @@ Partial Class Compras_Compras End If End If - If Not ErrorPrepoliza AndAlso ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 4) AndAlso UsuarioActual.CveEmpresa <> 72 Then + If Not ErrorPrepoliza AndAlso ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 4) Then If ObjConta.ValorPolizaDescuadre > 0 Then GuardaLogAD($"Compras/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") ErrorPrepolizaDescuadre = True @@ -8809,7 +8797,7 @@ Partial Class Compras_Compras Dim ErrorCompra = False - If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad) AndAlso IdPoliza > 0 Then + If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad) AndAlso IdPoliza > 0 AndAlso UsuarioActual.Empresa.TipoContabilidad = 2 Then ObjAC = New ClsContPAQi(UsuarioActual.Empresa) ObjAC.IniciaTransacSQL() If Not ObjAC.RemovePoliza(IdPoliza) Then @@ -9945,7 +9933,7 @@ Partial Class Compras_Compras Dim ObjInventario As New ClsInventarios(ObjCompra.IniciaTransacSQL) Dim ObjContabilidad As New ClsContabilidad(ObjCompra.IniciaTransacSQL) Dim ObjAF As New ClsAF(ObjCompra.IniciaTransacSQL) - Dim ObjContaAC As ClsContPAQi = Nothing '= New ClsContPAQi(UsuarioActual.Empresa) + Dim ObjContaAC As ClsContPAQi = Nothing Dim Retorno As Boolean = True Dim CveEstatusFactura As Integer = HdnCveEstatusFactura.Value.ToEntero @@ -10429,7 +10417,7 @@ Partial Class Compras_Compras Next If Retorno Then - If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") AndAlso IdPoliza > 0 Then + If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") AndAlso IdPoliza > 0 AndAlso UsuarioActual.Empresa.TipoContabilidad = 2 Then If ObjContaAC Is Nothing Then ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa) ObjContaAC.IniciaTransacSQL() @@ -15065,7 +15053,7 @@ Partial Class Compras_Compras End If Dim ObjAC As ClsContPAQi = Nothing - If UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" Then + If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") AndAlso UsuarioActual.Empresa.TipoContabilidad = 2 Then ObjAC = New ClsContPAQi(UsuarioActual.Empresa) ObjAC.IniciaTransacSQL() End If @@ -18499,6 +18487,10 @@ Partial Class Compras_Compras End If End If + If DrPS("CvePSCargo").ToString <> "" Then 'si es un producto de usado. que se registre contablemente como alamcen(como producto) + CveTipoPS = 2 + End If + Dim DecimalesPermitidos = 6 Row("CveConcepto") = TmpDT.Rows.Count + 1 @@ -18655,13 +18647,19 @@ Partial Class Compras_Compras 'PS - CLASIFICACION If DdlPS.SelectedValue.ToEntero > 0 Then + Dim PSRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimero("") If PSRow IsNot Nothing Then + Dim CveTipoPS As Integer = PSRow("CveTipoPS").ToString.ToEntero + If PSRow("CvePSCargo").ToString <> "" Then 'si es un producto de usado. que se registre contablemente como alamcen(como producto) + CveTipoPS = 2 + End If + DrPS("CveClasificacion") = PSRow("CveClasificacion").ToString DrPS("Clasificacion") = PSRow("Clasificacion").ToString DrPS("CvePS") = DdlPS.SelectedValue DrPS("PS") = PSRow("PS").ToString - DrPS("CveTipoPS") = PSRow("CveTipoPS").ToString.ToEntero + DrPS("CveTipoPS") = CveTipoPS DrPS("CveSATPS") = PSRow("CveSATPS").ToString.ToEntero DrPS("SATClaveProductoServicio") = PSRow("SATClaveProductoServicio").ToString DrPS("CveSATPSActualizado") = 0 diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 4f3f81a2c..96ccb4953 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -247,6 +247,7 @@ Partial Class PopUpVerFactura Dim SCAC As String = "" Dim CAAT As String = "" Dim NumeroTrailer As String = "" + Dim Permiso As String = "" Dim tablaReporte As New DataTable @@ -282,7 +283,7 @@ Partial Class PopUpVerFactura LineaTransportacion = row("LineaTransportacion").ToString() SCAC = row("SCAC").ToString() CAAT = row("CAAT").ToString() - + Permiso = row("Permiso").ToString() 'If row("CveCamionRemolque1").ToString() = "1" Then ' Rem1Placa = "12-TF-5E" ' Remolque1 = "Remolque 1" @@ -292,8 +293,8 @@ Partial Class PopUpVerFactura 'End If - If objnom.PA_Agro_Embarque_PalletGet(-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, cveEmbarqueManifiesto, -1) And objnom.DtResultados.Rows.Count > 0 Then - NoPallets = objnom.DtResultados.Rows.Count.ToString() + If objnom.PA_Agro_Embarque_PalletGet(-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, cveEmbarqueManifiesto, -1, True) And objnom.DtResultados.Rows.Count > 0 Then + NoPallets = objnom.DtResultados.SUM("NoPallets").ToString() NoKgManifiesto = objnom.DtResultados.SUM("Peso").ToString("N2") NoBultos = objnom.DtResultados.SUM("NoCajas").ToString("N0") @@ -317,6 +318,7 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("Camion", Camion)) params.Add(New ReportParameter("Rem1Placa", Rem1Placa)) params.Add(New ReportParameter("Remolque1", Remolque1)) + params.Add(New ReportParameter("Permiso", Permiso)) params.Add(New ReportParameter("LongitudCaja", LongitudCaja)) diff --git a/Compras/RepProductosServiciosDetalle.aspx.vb b/Compras/RepProductosServiciosDetalle.aspx.vb index 879869d8f..953b668dc 100644 --- a/Compras/RepProductosServiciosDetalle.aspx.vb +++ b/Compras/RepProductosServiciosDetalle.aspx.vb @@ -123,6 +123,9 @@ Partial Class Compras_RepProductosServiciosDetalle txtFechaI.Text = If(Mes <> "-1", String.Format("01/{0}/0001", Mes), txtFechaI.Text) txtFechaI.Text = If(AnioMes <> "-1", String.Format("01/{0}/{1}", AnioMes.Substring(5, 1).PadLeft(2, "0"c), AnioMes.Substring(0, 4)), txtFechaI.Text) + If CveCultivo.ToEntero() > 0 AndAlso FechaI = "-1" AndAlso Anio = "-1" AndAlso Mes = "-1" AndAlso AnioMes = "-1" Then + txtFechaI.Text = "01/01/1900" + End If If Fecha <> "-1" Then txtFechaI.Text = Fecha txtFechaF.Text = Fecha diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index e50b0a6ec..be531b95e 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -1095,7 +1095,7 @@ Partial Class Compras_eFacturas Dim ObjDatos As New ClsCompras Dim FueValidado As Integer = 0 If GvD.Rows(e.RowIndex).FCCheckBox("ChkFueValidado").Checked Then FueValidado = 1 - If ObjDatos.UpdateEstatus(FueValidado, GvD.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then + If ObjDatos.UpdateEstatus(FueValidado, GvD.DataKeys(e.RowIndex).Value.ToString.ToEntero, UsuarioActual.CveEmpresa) Then GvD.EditIndex = -1 BtnConsultar_Click(sender, e) End If @@ -1138,16 +1138,16 @@ Partial Class Compras_eFacturas If ObjValidacion.EsValida = 2 Then Alert("La factura está cancelada ante el SAT.", TipoMensaje.MsgInformacion) End If - Correcto = ObjDatos.UpdateEstatus(ObjValidacion.EsValida, GvRow.DataKey("CveFactura").ToEntero) + Correcto = ObjDatos.UpdateEstatus(ObjValidacion.EsValida, GvRow.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa) Else Alert("La Factura no se pudo validar.", TipoMensaje.MsgAdvertencia) End If ObjValidacion.Dispose() Case "ValidarCFD" - Correcto = ObjDatos.UpdateEstatus(1, GvRow.DataKey("CveFactura").ToEntero) + Correcto = ObjDatos.UpdateEstatus(1, GvRow.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa) Case "Omitir" - Correcto = ObjDatos.UpdateEstatus(3, GvRow.DataKey("CveFactura").ToEntero) + Correcto = ObjDatos.UpdateEstatus(3, GvRow.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa) End Select ObjDatos.Dispose() @@ -1261,7 +1261,7 @@ Partial Class Compras_eFacturas Dim ObjDatos As New ClsCompras Dim FueValidado As Integer = 0 If GvPagos.Rows(e.RowIndex).FCCheckBox("ChkFueValidado").Checked Then FueValidado = 1 - If ObjDatos.UpdateEstatus(FueValidado, GvD.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then + If ObjDatos.UpdateEstatus(FueValidado, GvD.DataKeys(e.RowIndex).Value.ToString.ToEntero, UsuarioActual.CveEmpresa) Then GvPagos.EditIndex = -1 End If ObjDatos.Dispose() @@ -1298,16 +1298,16 @@ Partial Class Compras_eFacturas If ObjValidacion.EsValida = 2 Then Alert("La factura está cancelada ante el SAT.", TipoMensaje.MsgInformacion) End If - Correcto = ObjDatos.UpdateEstatus(ObjValidacion.EsValida, GvRow.DataKey("CveFactura").ToEntero) + Correcto = ObjDatos.UpdateEstatus(ObjValidacion.EsValida, GvRow.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa) Else Alert("La Factura no se pudo validar.", TipoMensaje.MsgAdvertencia) End If ObjValidacion.Dispose() Case "ValidarCFD" - Correcto = ObjDatos.UpdateEstatus(1, GvRow.DataKey("CveFactura").ToEntero) + Correcto = ObjDatos.UpdateEstatus(1, GvRow.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa) Case "Omitir" - Correcto = ObjDatos.UpdateEstatus(3, GvRow.DataKey("CveFactura").ToEntero) + Correcto = ObjDatos.UpdateEstatus(3, GvRow.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa) End Select ObjDatos.Dispose() @@ -1317,15 +1317,15 @@ Partial Class Compras_eFacturas End Sub #End Region Protected Sub ImgCFDiMasivo_Click(sender As Object, e As EventArgs) Handles LnkCFDiMasivo.Click - Dim ObjDatos As New ClsCompras - ObjDatos.IniciaTransacSQL() + Dim ErrorTrans As Boolean = False If Tab.ActiveTabIndex = 0 Then For Each GvRow As GridViewRow In GvD.Rows If GvRow.DataKey("TipoFactura") = "CFDi" AndAlso GvRow.DataKey("FueValidado").Contiene("0", "1") Then Dim ObjValidacion As New ClsValidaCFDi(GvRow.DataKey("UUID"), GvRow.DataKey("RFCDe"), GvRow.DataKey("RFCPara"), GvRow.DataKey("Total").ToDecimal) If ObjValidacion.EsValida > 0 Then - If Not ObjDatos.UpdateEstatus(ObjValidacion.EsValida, GvRow.DataKey("CveFactura").ToEntero) Then + Dim ObjDatos As New ClsCompras + If Not ObjDatos.UpdateEstatus(ObjValidacion.EsValida, GvRow.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa) Then ErrorTrans = True End If End If @@ -1337,22 +1337,23 @@ Partial Class Compras_eFacturas If GvRow.DataKey("TipoFactura") = "CFDi" AndAlso GvRow.DataKey("FueValidado").Contiene("0", "1") Then Dim ObjValidacion As New ClsValidaCFDi(GvRow.DataKey("UUID"), GvRow.DataKey("RFCDe"), GvRow.DataKey("RFCPara"), 0) If ObjValidacion.EsValida > 0 Then - If Not ObjDatos.UpdateEstatus(ObjValidacion.EsValida, GvRow.DataKey("CveFactura").ToEntero) Then + Dim ObjDatos As New ClsCompras + If Not ObjDatos.UpdateEstatus(ObjValidacion.EsValida, GvRow.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa) Then ErrorTrans = True End If + ObjDatos.Dispose() End If ObjValidacion.Dispose() End If Next End If If Not ErrorTrans Then - ObjDatos.Commit() + Alert("La verificación masiva ha terminado", TipoMensaje.MsgInformacion) CargaDatos() - Else - ObjDatos.RollBack() + End If - ObjDatos.Dispose() + End Sub Protected Sub LnkNoRecibidas_Click(sender As Object, e As EventArgs, Optional ValidaRowCount As Boolean = False) Handles LnkNoRecibias.Click Dim DtNoRecibidas As New DataTable @@ -2656,7 +2657,7 @@ Partial Class Compras_eFacturas ObjGral.Dispose() If Borrar = True Then Dim ObjCompras As New ClsCompras - If ObjCompras.DeleteFactura(CveFactura) Then + If ObjCompras.DeleteFactura(CveFactura, UsuarioActual.CveEmpresa) Then GvD.EditIndex = -1 RegistraScript(String.Format("$('#{0}').modal('hide');", "divDescripcion")) Alert("La factura se eliminó correctamente.", TipoMensaje.MsgInformacion) @@ -2681,7 +2682,7 @@ Partial Class Compras_eFacturas ObjGral.Dispose() If Borrar = True Then Dim ObjCompras As New ClsCompras - If ObjCompras.DeleteFactura(CveFactura) Then + If ObjCompras.DeleteFactura(CveFactura, UsuarioActual.CveEmpresa) Then GvPagos.EditIndex = -1 RegistraScript("$('#divDescripcionPago').modal('hide');") Alert("La factura se eliminó correctamente.", TipoMensaje.MsgInformacion) @@ -3966,7 +3967,7 @@ Partial Class Compras_eFacturas ValidadoSAT = False Else Dim ObjDatos As New ClsCompras - ValidadoSAT = ObjDatos.UpdateEstatus(ObjValidacion.EsValida, gvRow.DataKey("CveFactura").ToEntero) + ValidadoSAT = ObjDatos.UpdateEstatus(ObjValidacion.EsValida, gvRow.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa) ObjDatos.Dispose() End If diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index b3bfd9b46..68914892e 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -176,6 +176,8 @@
+ +
@@ -357,7 +359,7 @@
@@ -475,12 +477,12 @@
+ DataKeyNames="CvePrePolizaDetalle,IdMov, CveConceptoContable, IdCtaContable, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra, CveProveedor, CveCliente, CvePersonal, CveCuenta, PorcentajeImpuesto,TipoMovto,EsComplementaria,Concepto,CveClasificacion,ContadoCuenta,ContadoTipoTransaccion,ContadoNumeroFolio,ContadoBeneficiario,ContadoObservaciones,ContadoImporte,TC,ImporteME,Cargo,Abono" Width="100%" > Movimiento -
+
@@ -520,9 +522,7 @@ TipoGasto -
- <%----%> - <%----%> +
@@ -723,7 +723,7 @@
- Solicitar + Solicitar
diff --git a/SAT/SolicitudesNominaSat.aspx.cs b/SAT/SolicitudesNominaSat.aspx.cs index 89225bcd0..f29aa6cef 100644 --- a/SAT/SolicitudesNominaSat.aspx.cs +++ b/SAT/SolicitudesNominaSat.aspx.cs @@ -2,6 +2,11 @@ using System.Collections.Generic; using System.Data; using System.Linq; +using System.Net.Http; +using System.Net.Http.Headers; +using System.Text; +using System.Threading; +using System.Threading.Tasks; using System.Web; using System.Web.UI; using System.Web.UI.WebControls; @@ -44,9 +49,9 @@ public partial class SAT_SolicitudesNominaSat : ClsPaginas { if (!IsPostBack) { - TxtRpdFechaInicio.Text = string.Format("01/01/{0}", DateTime.Now.Year - 1); - TxtRpdFechaFin.Text = string.Format("31/12/{0}", DateTime.Now.Year - 1); - LnkConsultar_Click(null, null); + TxtRpdFechaInicio.Text = string.Format("01/{0:MM/yyyy}", DateTime.Now.AddMonths(-1)); + TxtRpdFechaFin.Text = string.Format("{0:dd/MM/yyyy}", DateTime.Now.AddMonths(-1).LastDayOfMonth()); + //LnkConsultar_Click(null, null); } } @@ -174,6 +179,9 @@ public partial class SAT_SolicitudesNominaSat : ClsPaginas } } UPModalViewSolicitudes.Update(); + var api = new GeneralesAPI(); + api.GeneraSolicitud(); + api.VerificaSolicitudesNominas(); } protected void LnkShowSolicitudes_Click(object sender, EventArgs e) { @@ -196,6 +204,9 @@ public partial class SAT_SolicitudesNominaSat : ClsPaginas using (ClsNominas nom = new ClsNominas()) { Continuar = nom.SolicitudesNominasAdd(idSolicitudCFDI, idSolicitudMetadata, estatus, observaciones, fechaInicio, fechaFin, cveUsuarioIng, cveEmpresa); + var api = new GeneralesAPI(); + api.GeneraSolicitud(); + api.VerificaSolicitudesNominas(); } if (Continuar) { @@ -207,4 +218,198 @@ public partial class SAT_SolicitudesNominaSat : ClsPaginas } } -} \ No newline at end of file +} + +public class GeneralesAPI : ADSNetLibrary.Helpers.Conexiones.SIGAPI.BaseSIGAPI +{ + public GeneralesAPI(string domainApi = "http://localhost:4001/", string token = "") : base(domainApi, token) { } + + + public object GeneraSolicitud() + { + return getData("GeneraSolicitud", null, ADSNetLibrary.Helpers.Conexiones.SIGAPI.requestMethod.GET,false); + } + public object VerificaSolicitudesNominas() + { + return getData("VerificaSolicitudesNominas", null, ADSNetLibrary.Helpers.Conexiones.SIGAPI.requestMethod.GET, false); + } +} + + +//using ADSNetLibrary. SIGAPI; +//using ADSNetLibrary. SIGAPI.Models; +//using ADSNetLibrary. SIGAPI.Models.Request; +//using ADSNetLibrary.SIGAPI.Models.Sistema; +//using System; +//using System.Collections.Generic; +////using System.IdentityModel.Tokens.Jwt; +//using System.Linq; +//using System.Net.Http; +//using System.Net.Http.Headers; +//using System.Text; +//using System.Threading; +//using System.Threading.Tasks; + +namespace ADSNetLibraryzd.Helpers.Conexiones.SIGAPI +{ + + public enum requestMethod + { + POST = 1, + GET = 2 + } + public class BaseSIGAPI + { + private const string tituloLog = "ADSNetLibrary.Helpers.Conexiones.SIGAPI"; + public string domainApi; + public string authorization; + protected string RouteController = ""; + protected string FullRoute = ""; + public string GetRoutbyclass() { string classname = this.GetType().Name; return classname.Substring(0, classname.Length - 3); } + public string GetRoute(string path) + { + if (string.IsNullOrEmpty(FullRoute)) + { + return string.Format("api/{0}/{1}", (string.IsNullOrEmpty(RouteController) ? GetRoutbyclass() : RouteController), path); + } + else + { + return string.Format("{0}{1}", FullRoute, path); + } + } + /// + /// nueva instancia de conexion para una api + /// + /// url de la api + /// llenar si se tiene si se desea obtner usuar campos usuario y pasword + public BaseSIGAPI(string domainApi, string authorization = null, string fullRoute = null) + { + if (string.IsNullOrEmpty(domainApi)) + { + domainApi = "http://localhost:4001/";//"http://jam.adssistemas.mx:4001/";//Helpers.ModVars.UrlApi; + } + this.authorization = authorization; + this.domainApi = domainApi; + this.FullRoute = fullRoute; + } + + //public string GetSIGToken(string userName, string password, int cveEmpresa) + //{ + // var objauth = new RequestLogin() { UserName = userName, Password = password, CveEmpresa = cveEmpresa }; + // var retorno = getData>("api/Usuario/Login", objauth, requestMethod.POST, false, true); + // if (retorno != null && retorno.IsSuccess) + // { + // return retorno.Result.AccessToken; + // } + // else + // { + // return null; + // } + //} + + + /// + /// Obtiene datos de la api asincrono. + /// + /// Clase genérica en donde se obtiene la información del SqlDataReader. + /// ruta sin domino ejemplo "/api/usuarios/login". + /// request object. + /// Lista de objetos. + public async Task getDataAsync(string path, object requestobject, requestMethod reqmet = requestMethod.POST, bool needauthorization = true, bool isfullpath = false) where T : class, new() + { + T objreturn = null; + using ( + HttpClient client = new HttpClient()) + { + // Setting Base address. + client.BaseAddress = new Uri(domainApi); + // Setting content type. + client.DefaultRequestHeaders.Accept.Add(new MediaTypeWithQualityHeaderValue("application/json")); + // Setting Authorization. + if (needauthorization) { client.DefaultRequestHeaders.Authorization = new AuthenticationHeaderValue("Bearer", authorization); } + client.Timeout = TimeSpan.FromMinutes(15); + HttpResponseMessage response = new HttpResponseMessage(); + + var strjsonreq = Newtonsoft.Json.JsonConvert.SerializeObject(requestobject); + StringContent content = new StringContent(strjsonreq, Encoding.UTF8, "application/json"); + string route = isfullpath ? path : GetRoute(path); + try + { + + switch (reqmet) + { + case requestMethod.POST: + response = await client.PostAsync(route, content); + break; + case requestMethod.GET: + response = await client.GetAsync(route); + break; + } + if (response.IsSuccessStatusCode) + { + string jsondata = await response.Content.ReadAsStringAsync(); + + + Newtonsoft.Json.JsonSerializerSettings settings = new Newtonsoft.Json.JsonSerializerSettings + { + NullValueHandling = Newtonsoft.Json.NullValueHandling.Ignore, + MissingMemberHandling = Newtonsoft.Json.MissingMemberHandling.Ignore + }; + objreturn = Newtonsoft.Json.JsonConvert.DeserializeObject(jsondata, settings); + } + else { + //ModExtensiones.GuardaLog(string.Format("{0}{1}{2}{1}StatusCode:{3}{1}{4}{1}{5}{1}", tituloLog, ModVars.NewLine, route, response.StatusCode, response.RequestMessage, strjsonreq), ModVars.ADSNetLibraryLog); + } + } + catch (Exception e) { + //ModExtensiones.GuardaLog(string.Format("{0}{1}{2}{1}{3}{1}{4}{1}", tituloLog, ModVars.NewLine, route, e, strjsonreq), ModVars.ADSNetLibraryLog); + } + + } + return objreturn; + } + + /// + /// Obtiene datos de la api. + /// + /// Clase genérica en donde se obtiene la información del SqlDataReader. + /// ruta sin domino ejemplo "/api/usuarios/login". + /// request object. + /// Lista de objetos. + public T getData(string path, object requestobject, requestMethod reqmet = requestMethod.POST, bool needauthorization = true, bool isfullpath = false) where T : class, new() + { + return AsyncHelper.RunSync(() => getDataAsync(path, requestobject, reqmet, needauthorization, isfullpath)); + } + } + internal static class AsyncHelper + { + private static readonly TaskFactory _myTaskFactory = new + TaskFactory(CancellationToken.None, + TaskCreationOptions.None, + TaskContinuationOptions.None, + TaskScheduler.Default); + + public static TResult RunSync(Func> func) + { + return AsyncHelper._myTaskFactory + .StartNew>(func) + .Unwrap() + .GetAwaiter() + .GetResult(); + } + + public static void RunSync(Func func) + { + AsyncHelper._myTaskFactory + .StartNew(func) + .Unwrap() + .GetAwaiter() + .GetResult(); + } + } +} + + + + + diff --git a/Ventas/ActualizarPrecios.aspx.vb b/Ventas/ActualizarPrecios.aspx.vb index 4cc1b3df3..641f27ae0 100644 --- a/Ventas/ActualizarPrecios.aspx.vb +++ b/Ventas/ActualizarPrecios.aspx.vb @@ -630,7 +630,7 @@ Partial Class Ventas_ActualizarPrecios DtExcel.Columns.Add(New DataColumn("Fecha Modificación", GetType(DateTime))) DtExcel.Columns.Add(New DataColumn("Usuario Modificó", GetType(String))) DtExcel.Columns.Add(New DataColumn("Porcentaje", GetType(Decimal))) - DtExcel.Columns.Add(New DataColumn("Fecha Ingreso", GetType(Decimal))) + DtExcel.Columns.Add(New DataColumn("Fecha Ingreso", GetType(DateTime))) DtExcel.Columns.Add(New DataColumn("Usuario Ingresó", GetType(String))) diff --git a/Ventas/RepCancelacionesPorRespuesta.aspx b/Ventas/RepCancelacionesPorRespuesta.aspx index 8e7c92dde..5a4da6268 100644 --- a/Ventas/RepCancelacionesPorRespuesta.aspx +++ b/Ventas/RepCancelacionesPorRespuesta.aspx @@ -55,8 +55,8 @@
- diff --git a/Ventas/RepCancelacionesPorRespuesta.aspx.cs b/Ventas/RepCancelacionesPorRespuesta.aspx.cs index f14415c81..7d6c86613 100644 --- a/Ventas/RepCancelacionesPorRespuesta.aspx.cs +++ b/Ventas/RepCancelacionesPorRespuesta.aspx.cs @@ -98,16 +98,29 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas string Folio = GvRow.DataKey("Folio"); string TipoDocto = GvRow.DataKey("TipoDocto"); string Nombre = GvRow.DataKey("Nombre"); + string CveEstatusRefact = GvRow.DataKey("CveEstatusRefacturacion"); + string Msg; if (CveVenta > 0 && Uuid != "") { var resp = VerificarVigenciaSAT(CveVenta, CveCliente, Folio, TipoDocto, Uuid, UsuarioActual.Empresa.RFC, RFCReceptor, Total); if (resp.EnviarAcuse) { - Alert(resp.Mensaje, TipoMensaje.MsgConfirmacion, "BtnEnviarMailCancelacion();", TextoConfirmacion: "Enviar", TextoSegundoBoton: "Cancelar"); + Msg = resp.Mensaje; + if (CveEstatusRefact == "4") + { + Msg = Msg+ "
Refacturar"; + } + + Alert(Msg, TipoMensaje.MsgConfirmacion, "BtnEnviarMailCancelacion();", TextoConfirmacion: "Enviar", TextoSegundoBoton: "Cancelar"); } else { - Alert(resp.Mensaje); + Msg = resp.Mensaje; + if (CveEstatusRefact == "4") + { + Msg = Msg + "
Refacturar"; + } + Alert(Msg); } } @@ -579,7 +592,13 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas if (e.Row.DBCampo("CveEstatusRefacturacion") == "4" && gv.ID=="GvDatos") { e.Row.FCLinkButton("BtnValidar").Text= "02"; + e.Row.FCLinkButton("BtnValidar").CssClass = "btn btn-circle btn-sm blue"; } + //if (e.Row.DBCampo("CveEstatusRefacturacion") == "4" && gv.ID == "GvDatos") + //{ + // e.Row.FCLinkButton("BtnValidar").CssClass = "btn btn-circle btn-sm blue" ; + //} + // //if (e.Row.DBCampo("PuedeRefacturar").ToString().ToEntero() == 1 && e.Row.DBCampo("CveEstatusFactura").ToString().ToEntero() == 23) diff --git a/Ventas/RepProductosServiciosDetalle.aspx b/Ventas/RepProductosServiciosDetalle.aspx index 34857ed98..8cc3d0560 100644 --- a/Ventas/RepProductosServiciosDetalle.aspx +++ b/Ventas/RepProductosServiciosDetalle.aspx @@ -375,24 +375,46 @@ + <%--0--%> + <%--1--%> + <%--2--%> + <%--3--%> + <%--4--%> + <%--5--%> + <%--6--%> + <%--7--%> + <%--8--%> + <%--9--%> + <%--10--%> + <%--11--%> + <%--12--%> + <%--13--%> + <%--14--%> + <%--15--%> + <%--16--%> + <%--17--%> + <%--18--%> + + + @@ -434,6 +456,17 @@ + + + + + + + + + + +
diff --git a/Ventas/RepProductosServiciosDetalle.aspx.vb b/Ventas/RepProductosServiciosDetalle.aspx.vb index 440daee7b..d9e07cd48 100644 --- a/Ventas/RepProductosServiciosDetalle.aspx.vb +++ b/Ventas/RepProductosServiciosDetalle.aspx.vb @@ -626,6 +626,7 @@ Partial Class Ventas_RepProductosServiciosDetalle GvDatos.Columns(15).Visible = ChkRFC.Checked GvDatos.Columns(16).Visible = ChkMetodoPago.Checked GvDatos.Columns(17).Visible = ChkFormaPago.Checked + GvDatos.Columns(18).Visible = ChkFechaHoraEmision.Checked CargaDatos() UPDatos.Update() diff --git a/Ventas/eFacturas.aspx.vb b/Ventas/eFacturas.aspx.vb index 92b66a211..390e3115e 100644 --- a/Ventas/eFacturas.aspx.vb +++ b/Ventas/eFacturas.aspx.vb @@ -91,7 +91,7 @@ Partial Class Ventas_eFacturas Alert("La factura está cancelada ante el SAT.", TipoMensaje.MsgInformacion) End If - If ObjDatos.UpdateEstatus(Valida.EsValida, gvr.DataKey("CveFactura").ToEntero) Then + If ObjDatos.UpdateEstatus(Valida.EsValida, gvr.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa) Then BtnConsultar_Click(sender, e) End If ObjDatos.Dispose() @@ -108,7 +108,7 @@ Partial Class Ventas_eFacturas Dim ObjDatos As New ClsCompras - If ObjDatos.UpdateEstatus(1, gvr.DataKey("CveFactura").ToEntero) Then + If ObjDatos.UpdateEstatus(1, gvr.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa) Then BtnConsultar_Click(sender, e) End If ObjDatos.Dispose() @@ -124,7 +124,7 @@ Partial Class Ventas_eFacturas Dim ObjDatos As New ClsCompras - If ObjDatos.UpdateEstatus(3, gvr.DataKey("CveFactura").ToEntero) Then + If ObjDatos.UpdateEstatus(3, gvr.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa) Then BtnConsultar_Click(sender, e) End If ObjDatos.Dispose() @@ -297,7 +297,7 @@ Partial Class Ventas_eFacturas Dim ObjDatos As New ClsCompras Dim FueValidado As Integer = 0 If GvD.Rows(e.RowIndex).FCCheckBox("ChkFueValidado").Checked Then FueValidado = 1 - If ObjDatos.UpdateEstatus(FueValidado, GvD.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then + If ObjDatos.UpdateEstatus(FueValidado, GvD.DataKeys(e.RowIndex).Value.ToString.ToEntero, UsuarioActual.CveEmpresa) Then GvD.EditIndex = -1 BtnConsultar_Click(sender, e) End If @@ -323,7 +323,7 @@ Partial Class Ventas_eFacturas Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvD.RowDeleting Dim Fact As New ClsCompras - If Fact.DeleteFactura(e.Keys("CveFactura").ToString.ToEntero) Then + If Fact.DeleteFactura(e.Keys("CveFactura").ToString.ToEntero, UsuarioActual.CveEmpresa) Then GvD.EditIndex = -1 Alert("La factura se eliminó correctamente.", TipoMensaje.MsgInformacion) CargaDatos() diff --git a/vwd.webinfo b/vwd.webinfo index 2c23b8e40..9faa4bbed 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -474,6 +474,16 @@ + + + + + + + + + +