Clipper/FiveWin - Contable por niveles

Hola a todos alguien me puede ayudar con un programa de contabilidad que maneje cuentas por niveles mayor,subcta y subsubcta.
Es que trato de desarrollar contabilidad pero me he topado con un problema el catalogo de cuentas por niveles y validarlos por cada nivel si tienen algún codigo ya desarrollado el modulo de catalogo de cuentas me la podrían enviar para acoplarlo a mi programa.
saludos a todos es urgente:
[email protected] desde Cancun, Q.Roo.

Hola Adriano:

No tengo un programa de contabilidad para PC, sin embargo
tengo experiencia en otros lenguajes (AS/400), si puedo ayudarte
en algo mandame tus preguntas y dudas por emilio privado.

Saludos desde Toluca, Paisano

Tengo un programa de contabilidad pero tiene demasiado tiempo que fue escrito 1991, no tenia demasiada experiencia, pero si te sirve te envio la rutina para validar lo de los tres niveles, el programa te lo puedo enviar para que lo cheques, esta un poco rudimentario, pero como ya no lo volvi a usar, no lo fui actualizando, con nuevas rutinas de busqueda, se puede mejorar y aumentar la velocidad.

asi que escribe si te interesa

Alguien más tiene otras ideas de altas de catalogo de cuentas de 1 a 3 niveles o más hecho en lenguaje clipper que validen cuentas de mayor,substca, y subsubcta y es posible enviarme el programa completo del sistema de contabilidad para tener una idea please?
Gracias saludos a todos los clipperos.

imaginate estos niveles de cuentas que estan en una archivo X con los campos CONCODIGO, CONDESCRI, CONDEBE, CONHABER

1 Activos
11 Circulantes
1110 Bancos
111001 Banco xx
111002 Banco xy
1111 Caja
111102 Caja Principal
...
..
si haces un ciclo controlado por matrices con este pegueño algoritmo, lo lograras.

amatnivel:={1}
amattotal:={{"",0}}
select contab
while !eof()
if len(alltrim(concodigo))<>amatnivel[len(amatnivel)]
// nivel diferente al ultimo evaluado
if len(alltrim(concodigo))>amatnivel[len(amatnivel)]
// nivel mayor al evaluado se incrementa la matriz
aadd(amatnivel,len(alltrim(concodigo)))
aadd(amattotal,{concodigo,0}) // guardo el codigo de concepto actual
end
if len(alltrim(concodigo))<amatnivel[len(amatnivel)]
// el nivel actual es menor al ultimo evaluado, se totaliza el subnivel
? "totales Cuenta",amattotal[len(alltrim(concodigo))],amattotal[len(alltrim(concodigo))]
end
end
nlenght:=len(amatnivel)
amattotal[nlenght,01]:=concodigo
amattotal[nlenght,02]:=amattotal[nlenght,02]+condebe-conhaber
// se imprime el nivel actual
? concodigo,condescri, condebe, conhaber
dbskip()
end