Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Cargar combo

Estas en el tema de Cargar combo en el foro de Visual Basic clásico en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 31/07/2010, 12:20
 
Fecha de Ingreso: julio-2010
Mensajes: 2
Antigüedad: 14 años, 4 meses
Puntos: 0
Busqueda Cargar combo

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

Etiquetas: codigos, combo, contabilidad
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 10:01.