Hola comunidad, resulta que necesito cargar un combo con codigos contables y no he podido hacerlo. Los codigos tienen la siguiente estructura:
Clase: primer digito
Grupo: primeros dos digitos
Cuenta: primeros cuatro digitos
Subcuenta: primeros seis digitos
Auxiliar1: primeros nueve digitos
el usuario puede realizar registros con codigos contables tipo subcuenta o auxiliar1, pero si existe auxiliar1 no debe permitir el registro en subcuenta, tengo una adaptación del codigo en foxpro pero no he podido aplicarlo a VB6:
*
PROCEDURE sel
IF thIsform.soLoctasmov .AND. .NOT. EMPTY(thIsform.liSta1.vaLue)
LOCAL xcTa, nuMe, nrEcs
xcTa = ALLTRIM(thIsform.liSta1.vaLue)
nuMe = LEN(xcTa)
cuRarea = SELECT()
SELECT plActas
COUNT FOR LEFT(coDigo, nuMe)==xcTa .AND. .NOT. DELETED('PlaCtas') ;
TO nrEcs
SELECT (cuRarea)
IF nrEcs>1
= MESSAGEBOX('No puede elegir una cuenta mayor', 16, 'Mensaje')
RETURN
ENDIF
ENDIF
thIsform.rpTa = thIsform.liSta1.vaLue
RELEASE thIsform
ENDPROC
*
Este mensaje aparece cuando se quiere hacer un registro con una cuenta que tiene mas digitos, ejemplo
existe la cuenta 110505 pero digito 1105, en este caso me advierte "no puede elegir una cuenta mayor"
Gracias por la ayuda
