-cambio cuenta personal-prestamos

- usados, registra primero venta y luego movimieto almacen
2020-01-28 10:23:53 -07:00
parent 590d0c1493
commit 62600bad0e
2 changed files with 17 additions and 13 deletions
--- a/Bancos/PopIEVentas.aspx.vb
+++ b/Bancos/PopIEVentas.aspx.vb
@@ -2305,8 +2305,8 @@ Partial Class Bancos_PopIEVentas
                                                    ImporteMX = Math.Round(ImporteMX, 2)
                                                    TimpocambioGeneral = tipoCambioPago
                                                    CveSubProyectoContabilizar = CveSubProyectoVenta
-                                                    Dim Id As Integer = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal).FiltroPrimeroValor("IdCtaContPersonal").ToEntero
-                                                    IdCtaContable =
+                                                    IdCtaContable = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal).FiltroPrimeroValor("IdCtaContPrestamos").ToEntero
+
                                                Else
                                                    ImporteMovimiento = 0
                                                End If