Compras autocatabilizar amortizacion de anticipos
This commit is contained in:
@@ -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
|
||||
|
||||
|
||||
Reference in New Issue
Block a user