AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Efacturas vinculacion automatica RNC

Browse Source
This commit is contained in:
rakcsle
2025-03-08 10:43:48 -07:00
parent 8133082dfc
commit 09104e3328
4 changed files with 52 additions and 69 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
App_Code/ClsCompras.vb
View File

@@ -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

6
Compras/eFacturas.aspx
View File

@@ -231,11 +231,7 @@
</asp:UpdatePanel>
<asp:UpdatePanel runat="server">
<ContentTemplate>
<asp:LinkButton Visible="false" runat="server" ID="LnkRegistroRNC" class="btn btn-primary" OnClick="LnkRegistroRNC_Click"><i class="fa fa-search"></i>&nbsp; Prueba</asp:LinkButton>
</ContentTemplate>
</asp:UpdatePanel>
<div class="row" style="margin-left: 0px; margin-right: 0px;">
<div style="width: 100%;">

78
Compras/eFacturas.aspx.vb
View File

@@ -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

31
Inventarios/PrestamosdeProveedor.aspx.vb
View File

@@ -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()