diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb
index c193f5885..c514d4ee2 100644
--- a/Compras/ReembolsosComprobaciones.aspx.vb
+++ b/Compras/ReembolsosComprobaciones.aspx.vb
@@ -5,6 +5,7 @@ Imports System.Data
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
 
+
 Partial Class Compras_ReembolsosComprobaciones
     Inherits ClsPaginas
 
@@ -364,7 +365,13 @@ Partial Class Compras_ReembolsosComprobaciones
                 Dim Dep As New ClsGenerales
                 If Dep.GetCuentasDepositos(CvePersonal:=CvePersonal, CveEmpresa:=UsuarioActual.CveEmpresa) Then
 
-                    DdlCuentaDeposito.DataSource = Dep.DtResultados
+                    If DdlTipoTransaccion.SelectedValue = "9" Then
+                        DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" EstatusPagoElectronico = 'True'")
+                    Else
+                        DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" EstatusPagoElectronicoGrupos = 'True'")
+                    End If
+
+
                     If Dep.DtResultados.Rows.Count > 0 Then
 
                         trCuentaDeposito.Visible = True
@@ -431,8 +438,9 @@ Partial Class Compras_ReembolsosComprobaciones
 #Region " BTN GUARDAR "
     Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click
 
+
         Dim CvecuentaDeposito As Integer = If(DdlCuentaDeposito.SelectedValue.ToEntero > 0, DdlCuentaDeposito.SelectedValue.ToEntero, -1)
-        If DdlTipoTransaccion.SelectedValue.Contiene("9", "17") Then
+        If DdlTipoPago.SelectedValue.ToEntero = 1 AndAlso DdlTipoTransaccion.SelectedValue.Contiene("9", "17") Then
             If CvecuentaDeposito <= 0 Then
                 Alert("Debe de seleccionar una cuenta deposito", TipoMensaje.MsgAdvertencia)
                 Exit Sub
@@ -738,7 +746,7 @@ Partial Class Compras_ReembolsosComprobaciones
                             Pago.CveIE = CveIEPago
                             Pago.CveMonedaPago = CveMonedaPago
                             Pago.TCPago = TipoCambioPago
-                            Pago.CvePersonal =CvePersonal
+                            Pago.CvePersonal = CvePersonal
                             ImportePagoTotal = ImportePagoTotal + ImporteMovto
 
                             If UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) Then
diff --git a/Contabilidad/DiarioAmortizaciones.aspx b/Contabilidad/DiarioAmortizaciones.aspx
index caf44dd74..1ce31b891 100644
--- a/Contabilidad/DiarioAmortizaciones.aspx
+++ b/Contabilidad/DiarioAmortizaciones.aspx
@@ -439,6 +439,7 @@
                                                                     <asp:HiddenField ID="HdnIdCtaContRetISR" runat="server" Value='<%# Eval("IdCtaContRetISR")%>' /> 
                                                                     
                                                                     <asp:HiddenField ID="HdnCompraIdPoliza" runat="server" Value='<%# Eval("CompraIdPoliza")%>' />
+                                                                    <asp:HiddenField ID="HdnPorcentajeIVA" runat="server" Value='<%# Eval("PorcentajeIVA")%>' />
                                                                    
                                                                     <table width="100%" cellpadding="0" cellspacing="0" runat="server" id="TbCompra">
                                                                         <tr class="SubTotales">
@@ -616,6 +617,7 @@
                                                                     <asp:HiddenField ID="HdnIdCtaContRetISR" runat="server" Value='<%# Eval("IdCtaContRetISR")%>' /> 
                                                                     
                                                                     <asp:HiddenField ID="HdnCompraIdPoliza" runat="server" Value='<%# Eval("CompraIdPoliza")%>' />
+                                                                    <asp:HiddenField ID="HdnPorcentajeIVA" runat="server" Value='<%# Eval("PorcentajeIVA")%>' />
                                                                    
                                                                     <table width="100%" cellpadding="0" cellspacing="0" runat="server" id="TbCompra">
                                                                         <tr class="SubTotales">
@@ -791,6 +793,7 @@
                                                                     <asp:HiddenField ID="HdnIdCtaContRetISR" runat="server" Value='<%# Eval("IdCtaContRetISR")%>' /> 
                                                                     
                                                                     <asp:HiddenField ID="HdnCompraIdPoliza" runat="server" Value='<%# Eval("CompraIdPoliza")%>' />
+                                                                    <asp:HiddenField ID="HdnPorcentajeIVA" runat="server" Value='<%# Eval("PorcentajeIVA")%>' />
                                                                    
                                                                     <table width="100%" cellpadding="0" cellspacing="0" runat="server" id="TbCompra">
                                                                         <tr class="SubTotales">
diff --git a/Contabilidad/DiarioAmortizaciones.aspx.vb b/Contabilidad/DiarioAmortizaciones.aspx.vb
index 6d14073d2..9efa59878 100644
--- a/Contabilidad/DiarioAmortizaciones.aspx.vb
+++ b/Contabilidad/DiarioAmortizaciones.aspx.vb
@@ -624,6 +624,7 @@ Partial Class Contabilidad_DiarioAmortizaciones
 
 
                         For Each gvrc As GridViewRow In GvCompras.Rows
+                            Dim PorcentajeIVA As Decimal = (gvrc.FCHiddenField("HdnPorcentajeIVA").Value.ToDecimal() * 100).ToEntero
 
                             AbonoProveedor = 0 : CargoProveedor = 0 : CargoAnticipo = 0 : AbonoAnticipo = 0
 
@@ -783,15 +784,51 @@ Partial Class Contabilidad_DiarioAmortizaciones
                                         MsgError = "No se pudo insertar movimientos de devoluciones de IVA" : Exit For
                                     End If
                                 End If
+
+                                Dim UUID As String = gvrc.FCHiddenField("HdnUUID").Value
                                 If Not Conta.AddDevolucionesIVA(IDPoliza, IdCuentaBancos, IdProveedor, 16,
                                                     SubTotal,
                                                     IVAAcreditable * TipoCambioPago,
                                                     CompraPagadoRetIVA * TipoCambioPago,
                                                     CompraPagadoRetISR * TipoCambioPago,
-                                                    Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, "", UsuarioActual.CveEmpresa) Then
+                                                    Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, UsuarioActual.CveEmpresa) Then
                                     MsgError = "No se pudo insertar movimientos de devoluciones de IVA" : Exit For
                                 End If
 
+                                If MsgError = "" Then
+
+                                    Dim GuidMov As String = Guid.NewGuid().ToString()
+
+                                    Dim NoDeducible = False
+                                    Dim IVANoAcred As Decimal = 0 'si NoDeducible es true -- >  Es el iva no deducible , ivano deducible totald e la compra
+
+                                    If Not Conta.AddMovimientoImpuesto(IDPoliza, IdCuentaBancos, IdProveedor, PorcentajeIVA, PorcentajeIVA, SubTotal, IVAAcreditable * TipoCambioPago,
+                                                        Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, NoDeducible, IVANoAcred, GuidMov, "", 1, 2) Then
+                                        MsgError = "No se pudo insertar movimientos de impuesto de IVA" : Exit For
+                                    End If
+
+
+                                    If MsgError = "" AndAlso CompraPagadoRetIVA > 0 Then
+                                        Dim GuidMovRetIVA As String = Guid.NewGuid().ToString()
+                                        Dim TasaOCuotaRetIVA As Decimal = (((CompraPagadoRetIVA * TipoCambioPago) / SubTotal) * 100).ToDecimal.RoundSQL(4)
+                                        If Not Conta.AddMovimientoImpuesto(IDPoliza, IdCuentaBancos, IdProveedor, PorcentajeIVA, TasaOCuotaRetIVA, SubTotal, CompraPagadoRetIVA * TipoCambioPago,
+                                                        Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, NoDeducible, IVANoAcred, GuidMovRetIVA, GuidMov, 2, 2) Then
+                                            MsgError = "No se pudo insertar movimientos de retención de IVA" : Exit For
+                                        End If
+                                    End If
+
+                                    If MsgError = "" AndAlso CompraPagadoRetISR > 0 Then
+                                        Dim GuidMovRetISR As String = Guid.NewGuid().ToString()
+                                        Dim TasaOCuotaRetIVA As Decimal = (((CompraPagadoRetISR * TipoCambioPago) / SubTotal) * 100).ToDecimal.RoundSQL(4)
+                                        If Not Conta.AddMovimientoImpuesto(IDPoliza, IdCuentaBancos, IdProveedor, PorcentajeIVA, TasaOCuotaRetIVA, SubTotal, CompraPagadoRetISR * TipoCambioPago,
+                                                        Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, NoDeducible, IVANoAcred, GuidMovRetISR, GuidMov, 2, 1) Then
+                                            MsgError = "No se pudo insertar movimientos de retención de ISR" : Exit For
+                                        End If
+                                    End If
+
+                                End If
+
+
                             End If
 
 
@@ -1093,6 +1130,7 @@ Partial Class Contabilidad_DiarioAmortizaciones
 
 
                         For Each gvrc As GridViewRow In GvCompras.Rows
+                            Dim PorcentajeIVA As Decimal = (gvrc.FCHiddenField("HdnPorcentajeIVA").Value.ToDecimal() * 100).ToEntero
 
                             AbonoProveedor = 0 : CargoProveedor = 0 : CargoAnticipo = 0 : AbonoAnticipo = 0
 
@@ -1241,15 +1279,50 @@ Partial Class Contabilidad_DiarioAmortizaciones
                                     End If
                                 End If
 
+                                Dim UUID As String = gvrc.FCHiddenField("HdnUUID").Value
+
                                 If IdCuentaBancos > 0 AndAlso Not Conta.AddDevolucionesIVA(IDPoliza, IdCuentaBancos, IdProveedor, 16,
                                                     SubTotal,
                                                     IVAAcreditable * TipoCambioPago,
                                                     CompraPagadoRetIVA * TipoCambioPago,
                                                     CompraPagadoRetISR * TipoCambioPago,
-                                                    Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, "", UsuarioActual.CveEmpresa) Then
+                                                    Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, UsuarioActual.CveEmpresa) Then
                                     MsgError = "No se pudo insertar movimientos de devoluciones de IVA" : Exit For
                                 End If
 
+                                If MsgError = "" Then
+
+                                    Dim GuidMov As String = Guid.NewGuid().ToString()
+
+                                    Dim NoDeducible = False
+                                    Dim IVANoAcred As Decimal = 0 'si NoDeducible es true -- >  Es el iva no deducible , ivano deducible totald e la compra
+
+                                    If Not Conta.AddMovimientoImpuesto(IDPoliza, IdCuentaBancos, IdProveedor, PorcentajeIVA, PorcentajeIVA, SubTotal, IVAAcreditable * TipoCambioPago,
+                                                        Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, NoDeducible, IVANoAcred, GuidMov, "", 1, 2) Then
+                                        MsgError = "No se pudo insertar movimientos de impuesto de IVA" : Exit For
+                                    End If
+
+
+                                    If MsgError = "" AndAlso CompraPagadoRetIVA > 0 Then
+                                        Dim GuidMovRetIVA As String = Guid.NewGuid().ToString()
+                                        Dim TasaOCuotaRetIVA As Decimal = (((CompraPagadoRetIVA * TipoCambioPago) / SubTotal) * 100).ToDecimal.RoundSQL(4)
+                                        If Not Conta.AddMovimientoImpuesto(IDPoliza, IdCuentaBancos, IdProveedor, PorcentajeIVA, TasaOCuotaRetIVA, SubTotal, CompraPagadoRetIVA * TipoCambioPago,
+                                                        Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, NoDeducible, IVANoAcred, GuidMovRetIVA, GuidMov, 2, 2) Then
+                                            MsgError = "No se pudo insertar movimientos de retención de IVA" : Exit For
+                                        End If
+                                    End If
+
+                                    If MsgError = "" AndAlso CompraPagadoRetISR > 0 Then
+                                        Dim GuidMovRetISR As String = Guid.NewGuid().ToString()
+                                        Dim TasaOCuotaRetIVA As Decimal = (((CompraPagadoRetISR * TipoCambioPago) / SubTotal) * 100).ToDecimal.RoundSQL(4)
+                                        If Not Conta.AddMovimientoImpuesto(IDPoliza, IdCuentaBancos, IdProveedor, PorcentajeIVA, TasaOCuotaRetIVA, SubTotal, CompraPagadoRetISR * TipoCambioPago,
+                                                        Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, NoDeducible, IVANoAcred, GuidMovRetISR, GuidMov, 2, 1) Then
+                                            MsgError = "No se pudo insertar movimientos de retención de ISR" : Exit For
+                                        End If
+                                    End If
+
+                                End If
+
                             End If
 
                             'afecto los movimientos en los que se hizo el pago
@@ -1568,6 +1641,7 @@ Partial Class Contabilidad_DiarioAmortizaciones
 
 
                         For Each gvrc As GridViewRow In GvCompras.Rows
+                            Dim PorcentajeIVA As Decimal = (gvrc.FCHiddenField("HdnPorcentajeIVA").Value.ToDecimal() * 100).ToEntero
 
                             AbonoProveedor = 0 : CargoProveedor = 0 : CargoAnticipo = 0 : AbonoAnticipo = 0
 
@@ -1666,15 +1740,50 @@ Partial Class Contabilidad_DiarioAmortizaciones
                                     End If
                                 End If
 
+                                Dim UUID As String = gvrc.FCHiddenField("HdnUUID").Value
+
                                 If Not Conta.AddDevolucionesIVA(IDPoliza, IdCuentaBancos, IdProveedor, 16,
                                                     SubTotal,
                                                     IVAAcreditable * TipoCambioPago,
                                                     CompraPagadoRetIVA * TipoCambioPago,
                                                     CompraPagadoRetISR * TipoCambioPago,
-                                                    Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, "", UsuarioActual.CveEmpresa) Then
+                                                    Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, UsuarioActual.CveEmpresa) Then
                                     MsgError = "No se pudo insertar movimientos de devoluciones de IVA" : Exit For
                                 End If
 
+                                If MsgError = "" Then
+
+                                    Dim GuidMov As String = Guid.NewGuid().ToString()
+
+                                    Dim NoDeducible = False
+                                    Dim IVANoAcred As Decimal = 0 'si NoDeducible es true -- >  Es el iva no deducible , ivano deducible totald e la compra
+
+                                    If Not Conta.AddMovimientoImpuesto(IDPoliza, IdCuentaBancos, IdProveedor, PorcentajeIVA, PorcentajeIVA, SubTotal, IVAAcreditable * TipoCambioPago,
+                                                        Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, NoDeducible, IVANoAcred, GuidMov, "", 1, 2) Then
+                                        MsgError = "No se pudo insertar movimientos de impuesto de IVA" : Exit For
+                                    End If
+
+
+                                    If MsgError = "" AndAlso CompraPagadoRetIVA > 0 Then
+                                        Dim GuidMovRetIVA As String = Guid.NewGuid().ToString()
+                                        Dim TasaOCuotaRetIVA As Decimal = (((CompraPagadoRetIVA * TipoCambioPago) / SubTotal) * 100).ToDecimal.RoundSQL(4)
+                                        If Not Conta.AddMovimientoImpuesto(IDPoliza, IdCuentaBancos, IdProveedor, PorcentajeIVA, TasaOCuotaRetIVA, SubTotal, CompraPagadoRetIVA * TipoCambioPago,
+                                                        Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, NoDeducible, IVANoAcred, GuidMovRetIVA, GuidMov, 2, 2) Then
+                                            MsgError = "No se pudo insertar movimientos de retención de IVA" : Exit For
+                                        End If
+                                    End If
+
+                                    If MsgError = "" AndAlso CompraPagadoRetISR > 0 Then
+                                        Dim GuidMovRetISR As String = Guid.NewGuid().ToString()
+                                        Dim TasaOCuotaRetIVA As Decimal = (((CompraPagadoRetISR * TipoCambioPago) / SubTotal) * 100).ToDecimal.RoundSQL(4)
+                                        If Not Conta.AddMovimientoImpuesto(IDPoliza, IdCuentaBancos, IdProveedor, PorcentajeIVA, TasaOCuotaRetIVA, SubTotal, CompraPagadoRetISR * TipoCambioPago,
+                                                        Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, NoDeducible, IVANoAcred, GuidMovRetISR, GuidMov, 2, 1) Then
+                                            MsgError = "No se pudo insertar movimientos de retención de ISR" : Exit For
+                                        End If
+                                    End If
+
+                                End If
+
                             End If
 
                             'afecto los movimientos en los que se hizo el pago