Compras autocatabilizar amortizacion de anticipos

This commit is contained in:
Oscar Irigoyen
2022-10-12 13:35:18 -07:00
parent cb419457c2
commit f4d26b4796
4 changed files with 56 additions and 11 deletions

View File

@@ -4468,6 +4468,9 @@ Partial Class Compras_Proveedores
Dim CuentaPadre = -1
Dim TipoCuenta As String = "D"
Select Case btn.CommandArgument.ToString
Case "Proveedores"
CuentaPadre = If(DdlCveTipoProveedor.SelectedValue = "2", UsuarioActual.Empresa.Funcionalidad(202).ToEntero, UsuarioActual.Empresa.Funcionalidad(201).ToEntero)
@@ -4477,6 +4480,7 @@ Partial Class Compras_Proveedores
CuentaPadre = UsuarioActual.Empresa.Funcionalidad(203).ToEntero
Case "Anticipos"
CuentaPadre = UsuarioActual.Empresa.Funcionalidad(204).ToEntero
TipoCuenta = "A"
Case "Deudores"
CuentaPadre = UsuarioActual.Empresa.Funcionalidad(205).ToEntero