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