From 54bc6b4b89ca4fe5db33f80f48b501f83c4ef817 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 6 Oct 2023 19:22:40 -0700
Subject: [PATCH] =?UTF-8?q?correcci=C3=B3n=20retisr?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Bancos/PopIECompras.aspx.vb | 26 ++++++++------------------
 1 file changed, 8 insertions(+), 18 deletions(-)

diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb
index f7927997a..8688ade3a 100644
--- a/Bancos/PopIECompras.aspx.vb
+++ b/Bancos/PopIECompras.aspx.vb
@@ -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)