-traspasos

-poliza virtual
2020-01-27 20:27:46 -07:00
parent 68a653a9a5
commit 52a98468ee
11 changed files with 139 additions and 87 deletions
--- a/Bancos/PopIEVentas.aspx.vb
+++ b/Bancos/PopIEVentas.aspx.vb
@@ -2305,7 +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 =
                                                Else
                                                    ImporteMovimiento = 0
                                                End If