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

corrección retisr

Browse Source
This commit is contained in:
rrene
2023-10-06 19:22:40 -07:00
parent 685059cad3
commit 54bc6b4b89
1 changed files with 8 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
Bancos/PopIECompras.aspx.vb
View File

@@ -515,8 +515,8 @@ Partial Class Bancos_PopIECompras
CompraActual.IEPS = dr("IEPS").ToString.ToDecimal
CompraActual.RetIVA = dr("RetIVA").ToString.ToDecimal
CompraActual.RetISR = dr("RetISR").ToString.ToDecimal
CompraActual.CveConceptoRetISR = dr("CveRetIVAConcepto").ToString.ToEntero
CompraActual.CveConceptoRetIVA = dr("CveRetISRConcepto").ToString.ToEntero
CompraActual.CveConceptoRetIVA = dr("CveRetIVAConcepto").ToString.ToEntero
CompraActual.CveConceptoRetISR = dr("CveRetISRConcepto").ToString.ToEntero
CompraActual.PorcentajeIVA = dr("PorcentajeIVA").ToString.ToDecimal
CompraActual.UsuarioActual = UsuarioActual
CompraActual.CveSubProyecto = dr("CveSubProyecto").ToString.ToEntero
@@ -868,7 +868,7 @@ Partial Class Bancos_PopIECompras
Dim Folio As Long
Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue)
Dim TCveMoneda = -1
Dim TCveMoneda As Integer = -1
If dr IsNot Nothing Then
If ChkPagarPesos.Checked Then
@@ -925,10 +925,6 @@ Partial Class Bancos_PopIECompras
'For Each Row As DataRow In objGastosXComprobar.DtResultados.FiltraParametros("CvePersonal > 0 AND FechaDocumento IS NOT NULL").Rows
' ArrIE.Add(New Anticipos With {.CveIE = Row("CveIE").ToString.ToEntero, .Importe = Row("Saldo").ToString.ToDecimal, .CvePersonal = Row("CvePersonal").ToString.ToEntero})
'Next
Dim ObjMovtos As New ClsMovimientos
RowCheque.Visible = True
@@ -945,17 +941,9 @@ Partial Class Bancos_PopIECompras
ObjMovtos.Dispose()
DDlCheques.DataBind()
'EstaAsociadoAPersonal = True
DDlCheques_SelectedIndexChanged(DDlCheques, EventArgs.Empty)
UpDatos.Update()
'End If
End Sub
Protected Sub DDlCheques_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DDlCheques.SelectedIndexChanged
@@ -1224,7 +1212,7 @@ Partial Class Bancos_PopIECompras
Dim dtc As DataTable = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor, CveCuentaDeposito:=DdlCuentaDeposito.SelectedValue.ToEntero)
If dtc IsNot Nothing Then
Dim Row = dtc.FiltroPrimero("")
Dim Row As DataRow = dtc.FiltroPrimero("")
If Row IsNot Nothing AndAlso Row("Estatus").ToString = "False" Then
Alert("La cuenta depósito del proveedor esta inactiva.", TipoMensaje.MsgAdvertencia)
Exit Sub
@@ -1245,7 +1233,7 @@ Partial Class Bancos_PopIECompras
Dim CvePlantillaPoliza As Integer = 2
Dim ConceptoPoliza As String = String.Format("{0} {1}", NombreProveedor, SerieFolio)
Dim CveCuentaDeposito As Integer = If(DdlCuentaDeposito.Items.Count > 0, DdlCuentaDeposito.SelectedValue.ToEntero, 0)
Dim FechaDocumento = FechaCompra
Dim FechaDocumento As Date = FechaCompra
'Saca moneda en que se va a pagar segun metodo de pago
Select Case RBLContado.SelectedValue
@@ -1262,8 +1250,10 @@ Partial Class Bancos_PopIECompras
End Select
'cuando es pago con ventas, debe de ser de Diario
Dim CveTipoPoliza As Integer = ObjMov.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, "-1", UsuarioActual.CveEmpresa)
Dim CveTipoPoliza As Integer = -1
If RBLContado.SelectedValue = "6" Then CveTipoPoliza = 3
'cuando es la cuenta es tipo cajachica,el tipo de póliza es diario
If GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCuenta.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoCuenta") = "1" Then CveTipoPoliza = 3
Dim CvePrePoliza As Integer = ObjMov.AddPrePolizas("Bancos/PopIECompras", CvePlantillaPoliza, ImportePagado, ImportePagado, CveMoneda, Fecha, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=CveTipoPoliza)