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

Compras VSH IVA x Acreditar Caja Chica Reembolso

Browse Source
This commit is contained in:
rakcsle
2025-05-03 12:54:13 -07:00
parent 0d7555bc1f
commit b5b67ac83a
2 changed files with 73 additions and 57 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
App_Code/ClsValidaCFDi.vb
View File

@@ -41,9 +41,9 @@ Public Class ClsValidaCFDi
End Sub End Sub
Public Sub New(FolioFiscal As String, RFCEmisor As String, RFCReceptor As String, Optional Importe As Decimal = 0) Public Sub New(FolioFiscal As String, RFCEmisor As String, RFCReceptor As String, Optional Importe As Decimal = 0)
Me.LFolioFiscal = HttpUtility.UrlEncode(FolioFiscal) Me.LFolioFiscal = FolioFiscal
Me.LRFCEmisor = HttpUtility.UrlEncode(RFCEmisor) Me.LRFCEmisor = RFCEmisor
Me.LRFCReceptor = HttpUtility.UrlEncode(RFCReceptor) Me.LRFCReceptor = RFCReceptor
Me.LImporte = Importe Me.LImporte = Importe
VerificaCFDI() VerificaCFDI()
End Sub End Sub

22
Compras/Compras.aspx.vb
View File

@@ -1779,10 +1779,10 @@ Partial Class Compras_Compras
DdlTipoComprobante.SelectedValueExist("DEV") DdlTipoComprobante.SelectedValueExist("DEV")
End If End If
If Not CveCompra > 0 Or (CveCompra > 0 And UsuarioActual.CveEmpresa = 141) Then 'If Not CveCompra > 0 Or (CveCompra > 0 And UsuarioActual.CveEmpresa = 141) Then
LnkProrrateoGasolina.Visible = True LnkProrrateoGasolina.Visible = True
InicializaDTProrrateoGasolina() InicializaDTProrrateoGasolina()
End If 'End If
'If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then 'If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
' If Request("SaldarRNC") IsNot Nothing AndAlso Request("SaldarRNC").ToString.ToEntero = 1 Then ' If Request("SaldarRNC") IsNot Nothing AndAlso Request("SaldarRNC").ToString.ToEntero = 1 Then
@@ -8011,7 +8011,13 @@ Partial Class Compras_Compras
AutoConta = False AutoConta = False
End If End If
If Not ErrorPrepoliza AndAlso Not ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=4, AutoConta:=AutoConta) Then Dim OpValidacion As Integer = 4
If UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) AndAlso RBLPago.SelectedValue.ToEntero = 3 AndAlso RBLContado.SelectedValue.ToEntero.Contiene(6, 2) Then
OpValidacion = 499
End If
If Not ErrorPrepoliza AndAlso Not ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=OpValidacion, AutoConta:=AutoConta) Then
TieneError = True TieneError = True
If ObjConta.ValorPolizaDescuadre > 0 Then If ObjConta.ValorPolizaDescuadre > 0 Then
Alert($"{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia}", TipoMensaje.MsgError) Alert($"{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia}", TipoMensaje.MsgError)
@@ -23028,6 +23034,16 @@ Partial Class Compras_Compras
End If End If
If DTProrrateoGasolina.Rows.Count > 0 Then If DTProrrateoGasolina.Rows.Count > 0 Then
If CveCompra > 0 Then
For Each dRow As DataRow In TmpDT.Rows
Dim CveCompraDetalle As Integer = dRow("CveCompraDetalle").ToString.ToEntero
If CveCompraDetalle > 0 Then
ClavesBorradas.Add(CveCompraDetalle)
End If
Next
End If
TmpDT.Rows.Clear() TmpDT.Rows.Clear()
For Each dRow As DataRow In DTProrrateoGasolina.Rows For Each dRow As DataRow In DTProrrateoGasolina.Rows
AddPS(1, dRow("CveUM").ToString.ToEntero, dRow("UM").ToString, dRow("CveClasificacion").ToString.ToEntero, dRow("Clasificacion").ToString, dRow("CvePS").ToString.ToEntero, dRow("PS").ToString, 1, dRow("CveSubProyecto").ToString, dRow("SubProyecto").ToString, "", AddPS(1, dRow("CveUM").ToString.ToEntero, dRow("UM").ToString, dRow("CveClasificacion").ToString.ToEntero, dRow("Clasificacion").ToString, dRow("CvePS").ToString.ToEntero, dRow("PS").ToString, 1, dRow("CveSubProyecto").ToString, dRow("SubProyecto").ToString, "",