diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb index 83ca8fdb9..ae6256b6b 100644 --- a/App_Code/ClsCompras.vb +++ b/App_Code/ClsCompras.vb @@ -3542,16 +3542,16 @@ Public Class ClsCompras Public Function GetVinculacionRNC(UUID As String, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False - DataAdapter("PA_Comp_ComprasMedicosRemove") + DataAdapter("PA_Comp_VinculacionRNCGet") With SqlAdapter.SelectCommand.Parameters .Add("@UUID", SqlDbType.VarChar).Value = UUID - .Add("@CveMedico", SqlDbType.Int).Value = CveEmpresa + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try SqlAdapter.Fill(Data) Retorno = True Catch ex As Exception - OnError("Ocurrió un error al eliminar gasto de médico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + OnError("Ocurrió un error al obtener las remisiones de nota de crédito relacionadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try Return Retorno End Function diff --git a/Compras/eFacturas.aspx b/Compras/eFacturas.aspx index 11748af36..2573067e0 100644 --- a/Compras/eFacturas.aspx +++ b/Compras/eFacturas.aspx @@ -231,11 +231,7 @@ - - -   Prueba - - +
diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index a8be99ea4..c238cae1b 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -839,6 +839,10 @@ Partial Class Compras_eFacturas InicializaDTProrrateoGasolina() + If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then + VinculacionAutomaticaRNC() + End If + End If removeasincevent() End Sub @@ -6075,9 +6079,7 @@ Partial Class Compras_eFacturas - Protected Sub LnkRegistroRNC_Click(sender As Object, e As EventArgs) - VinculacionAutomaticaRNC() - End Sub + Private Sub VinculacionAutomaticaRNC() @@ -6098,7 +6100,7 @@ Partial Class Compras_eFacturas Dim CFDIXmlPath As String = $"{UsuarioActual.Empresa.Ruta}Compras\{GvRow.DataKey("RFCDe")}\{GvRow.DataKey("XML")}" If Not File.Exists(CFDIXmlPath) Then - ErrorProceso = True + 'ErrorProceso = True Continue For End If @@ -6146,7 +6148,7 @@ Partial Class Compras_eFacturas DTProrrateo:=New DataTable, DTPagosDeudores:=New DataTable, TipoComprobante:="E") Then If CompraActual.AddCompra(Objcompras.IniciaTransacSQL()) Then - Contador = Contador + 1 + ' Else ErrorProceso = True ErrorProcesoStr = CompraActual.MensajeError @@ -6167,11 +6169,11 @@ Partial Class Compras_eFacturas Dim Concepto As String = GvRow.DataKey("SerieFolio") Dim TipoCambio As Decimal = GlobalTipoCambio(GvRow.DataKey("FechaFactura").ToDate).ToDecimal - For Each drRNC As GridViewRow In DT_RNC.Rows + For Each drRNC As DataRow In DT_RNC.Rows - Dim ImporteRNCSaldar As Decimal = drRNC.DataKey("Saldo").ToDecimal - Dim CveCompraRNC As Integer = drRNC.DataKey("CveCompra").ToEntero + Dim ImporteRNCSaldar As Decimal = drRNC("Saldo").ToString.ToDecimal + Dim CveCompraRNC As Integer = drRNC("CveCompra").ToString.ToEntero If ImporteRNCSaldar > TotalSaldo Then ImporteRNCSaldar = TotalSaldo If Not ErrorProceso Then @@ -6194,6 +6196,7 @@ Partial Class Compras_eFacturas If Not ErrorProceso Then TotalSaldo = TotalSaldo - ImporteRNCSaldar + Contador = Contador + 1 End If End If @@ -6204,52 +6207,6 @@ Partial Class Compras_eFacturas End If - - 'If RBLContado.SelectedValue.ToEntero = 4 Then 'Deudores - ' Dim CompraActualPagar = New Compra - ' If Objcompras.GetCompras(CompraActual.CveCompra, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then - ' If Objcompras.DtResultados IsNot Nothing AndAlso Objcompras.DtResultados.Rows.Count > 0 Then - ' Dim dr As DataRow = Objcompras.DtResultados.Rows(0) - - - ' CompraActualPagar.CveCompra = CompraActual.CveCompra - ' CompraActualPagar.CveTipoConceptoProveedor = dr("CveTipoConcepto").ToString.ToEntero - ' CompraActualPagar.CveProveedor = dr("CveProveedor").ToString.ToEntero - ' CompraActualPagar.CveMoneda = dr("CveMoneda").ToString.ToEntero - ' CompraActualPagar.Fecha = dr("Fecha").ToString.ToDate - ' CompraActualPagar.SerieFolio = dr("SerieFolio").ToString - ' 'CompraActualPagar.ProveedorNombre = TxtPagueseA.Text - ' CompraActualPagar.TC = dr("TipoCambio").ToString.ToDecimal - ' CompraActualPagar.Total = dr("Total").ToString.ToDecimal - ' CompraActualPagar.IVA = dr("IVA").ToString.ToDecimal - ' CompraActualPagar.IVADeducible = dr("IVADeducible").ToString.ToDecimal.RoundSQL - ' CompraActualPagar.IVANoDeducible = dr("IVANoDeducible").ToString.ToDecimal.RoundSQL - ' CompraActualPagar.IEPS = dr("IEPS").ToString.ToDecimal - ' CompraActualPagar.RetIVA = dr("RetIVA").ToString.ToDecimal - ' CompraActualPagar.RetISR = dr("RetISR").ToString.ToDecimal - ' CompraActualPagar.CveConceptoRetIVA = dr("CveRetIVAConcepto").ToString.ToEntero - ' CompraActualPagar.CveConceptoRetISR = dr("CveRetISRConcepto").ToString.ToEntero - ' CompraActualPagar.PorcentajeIVA = dr("PorcentajeIVA").ToString.ToDecimal - ' CompraActualPagar.UsuarioActual = UsuarioActual - ' CompraActualPagar.CveSubProyecto = dr("CveSubProyecto").ToString.ToEntero - ' CompraActualPagar.EsImportacion = CBool(dr("EsImportacion")) - ' CompraActualPagar.CompraNoDeducible = dr("NoDeducible").ToString.ToEntero - - - - ' Else - ' ErrorProceso = True - ' End If - ' Else - ' ErrorProceso = True - ' End If - - - - - - 'End If - End If If ErrorProceso Then Exit For @@ -6258,14 +6215,14 @@ Partial Class Compras_eFacturas If ErrorProceso Then Objcompras.RollBack() - Alert($"Se registraron {Contador} Compras. error {ErrorProcesoStr}", TipoMensaje.MsgAdvertencia) + Alert($"Se preento un error al reigistrar las notas de crédito", TipoMensaje.MsgAdvertencia) Else Objcompras.Commit() CargaDatos(NowADS()) CambieDeudor() CargaDatos(NowADS()) If Contador > 0 Then - Alert($"Se registraron {Contador} Compras") + GuardaLog($"Se registraron {Contador} notas de crédito") End If End If @@ -8276,7 +8233,14 @@ Public Class ClsCompraManager If respuesta Then importeMovimiento = Me.Total importeMN = (importeMovimiento * Me.TipoCambio).RoundSQL - Dim ConPreP As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(1, Me.CveMoneda, False, Me.CveTipoConceptoProveedor) + + Dim TipoSaldo As Integer = 1 + + If TipoComprobante = "E" Then + TipoSaldo = 15 + End If + + Dim ConPreP As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(TipoSaldo, Me.CveMoneda, False, Me.CveTipoConceptoProveedor) Dim ImporteME As Decimal = importeMovimiento Dim UsaComplementaria As Boolean = True If Me.CveMoneda > 1 Then ImporteME = importeMovimiento diff --git a/Inventarios/PrestamosdeProveedor.aspx.vb b/Inventarios/PrestamosdeProveedor.aspx.vb index 237e97ee7..f7a2799dc 100644 --- a/Inventarios/PrestamosdeProveedor.aspx.vb +++ b/Inventarios/PrestamosdeProveedor.aspx.vb @@ -110,11 +110,11 @@ Partial Class Inventarios_PrestamosdeProveedor If e.Row.DataKey("AplicaCaducidad").ToString = "True" Then e.Row.FCLiteral("LtlFechaCaducidad").Visible = False e.Row.FCTextBox("TxtFechaCaducidad").Visible = True - End If + End If End If e.Row.FCTextBox("TxtCantidad").Visible = True e.Row.FCTextBox("TxtCantidad").Attributes.Add("onkeyup", String.Format("ValidaCantidad(this,{0});", e.Row.DBCampo("Cantidad"))) - + End If ''FUNCIONALIDAD PISTOLA DE CODIGOS @@ -303,18 +303,41 @@ Partial Class Inventarios_PrestamosdeProveedor Dim SbFiltros As New StringBuilder() 'SbFiltros.AppendFormat("Fecha Inicio: {0} Fecha Fin: {1}|", $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}") Dim listFiltros As New List(Of String) + listFiltros.Add($"SubProyecto : {DdlSubProyecto.SelectedItem.Text}") + + If ddlProveedor.txtValue.Value.ToEntero > 0 Then listFiltros.Add($"Proveedor : { ddlProveedor.txtText.Value}") Else listFiltros.Add($"Proveedor : Todos") End If - If TxtFolioEntrega.Text.Trim.Length > 0 Then listFiltros.Add($"Folio : {TxtFolioEntrega.Text}") + If TxtFolioEntrega.Text.Trim.Length > 0 Then + listFiltros.Add($"Folio : {TxtFolioEntrega.Text}") + End If + + + + + + + 'SbFiltros.AppendFormat("SubProyecto : {0}|", DdlSubProyecto.SelectedItem.Text) + + 'If ddlProveedor.txtValue.Value.ToEntero > 0 Then + ' SbFiltros.AppendFormat("Proveedor : {0}|", ddlProveedor.txtText.Value) + 'Else + ' SbFiltros.AppendFormat("Proveedor : Todos|") + 'End If + + + 'SbFiltros.AppendFormat("Folio : {0}|", TxtFolioEntrega.Text) + 'If DdlDivisor.SelectedValue <> "1" Then SbFiltros.AppendFormat("Divisor : {0}|", DdlDivisor.SelectedItem.Text) + 'SbFiltros.AppendFormat("Ejercicio : {0} Periodo : {1}|", DdlEjercicio.SelectedItem.Text, DdlPeriodo.SelectedItem.Text) GvD.Columns(1).Visible = False UppEntrega.Update() - GvD.ExportToExcelGembox($"PrestamoProveedores_{NowADS().ToString("yyyy.MM.dd.HHmmss")}", UsuarioActual, $"Préstamos de Proveedores", DatoTituloExtra:="", DatosFiltros:=String.Join(", ", listFiltros)) + GvD.ExportToExcelGembox($"PrestamosProveedores{NowADS().ToString("yyyyMMddHHmmss")}", UsuarioActual, $"Préstamos de Proveedores", DatoTituloExtra:="", DatosFiltros:=String.Join(", ", listFiltros)) GvD.Columns(1).Visible = True UppEntrega.Update() diff --git a/SAT/SolicitudesIngresoSat.aspx b/SAT/SolicitudesIngresoSat.aspx index 7273d458d..19ef1498d 100644 --- a/SAT/SolicitudesIngresoSat.aspx +++ b/SAT/SolicitudesIngresoSat.aspx @@ -62,7 +62,7 @@ Solicitudes
  • - Caga XML Local + Cargar XML Local
  • @@ -481,9 +481,9 @@
    - + DataKeyNames="CveSolicitudDetalle,CveSolicitud,idSolicitud,idSolicitudCFDI,idSolicitudMetadata,Estatus,Observaciones,FechaInicio,FechaFin,FechaIng,CveUsuarioIng,CveEmpresa,ArchivoXML,Folio,CveTipoSolicitud,TipoDescargaStr"> @@ -534,10 +534,10 @@ - + - + @@ -567,7 +567,7 @@