Si se puede,necesito ejemplo xBrowse con Plan de cuentas

[Ruben Fernandez]

Hola amigos:

Necesito un ejemplo de un plan de cuentas contable con xBrowse, se que por ahi habia uno muy bueno,
pero no logro encontrarlo.
Si alguien se acuerda donde o tiene algo parecido se lo agradezco.

Muchas gracias.

[ACC69]

Hola amigos:

Necesito un ejemplo de un plan de cuentas contable con xBrowse, se que por ahi habia uno muy bueno,
pero no logro encontrarlo.
Si alguien se acuerda donde o tiene algo parecido se lo agradezco.

Muchas gracias.

Hola Ruben, buenos dias, no se si te entendi, pero te paso la rutina del rellenado de ceros con guion, para tu plan de cuentas, no se si te sirva, o la puedas mejorar, te lo dejo a tu disposicion, solo que unico detalle,no lo tengo en xBrowse, lo tengo en ListBox, de la clase de Hernan Ceccarelli, espero que te sirva amigo.

FORMATO1(1020-1, Ctaf, .T.)


FUNCTION FORMATO1(VarCta, Ctaf,lGuion)
Local lcad1, lcad2, lcad3, lCad4, I, cFormCta

I := 0
lcad1 := ""
lcad2 := ""
lcad3 := ""
lcad4 := ""

//Procesa el primer campo de 4 Digitos: 0000- // Nivel 1
Do While .T.
I=I+1

IF SubStr(Ctaf, I, 1) == '-' .OR. I > Len(Ctaf)
Exit
EndIF

lcad1 := lcad1 + SubStr(Ctaf, I , 1)
EndDo

//Procesa el segundo campo de 4 Digitos: 0000-0000 // Nivel 2
Do While .T.
I=I+1

IF SubStr(Ctaf, I, 1) == '-' .OR. I > Len(Ctaf)
Exit
EndIF

lcad2 := lcad2 + SubStr(Ctaf, I , 1)
EndDo

//Procesa el tercer campo de 4 Digitos: 0000-0000-0000 // Nivel 3
Do While .T.
I=I+1

IF SubStr(Ctaf, I, 1) == '-' .OR. I > Len(Ctaf)
Exit
EndIF

lcad3 := lcad3 + SubStr(Ctaf, I, 1)
EndDo

//Procesa el cuarto campo de 4 Digitos: 0000-0000-0000-0000 // Nivel 4
Do While .T.
I=I+1

IF SubStr(Ctaf, I, 1) == '-' .OR. I > Len(Ctaf)
Exit
EndIF

lcad4 := lcad4 + SubStr(Ctaf, I, 1)
EndDo

*Nota: Tienes que indicar los 3 '-', ej: 1--, y como resultado: 00001-0000-0000-0000

IF lGuion
cFormCta := STRZERO(Val(lcad1),4) +'-'+ STRZERO(Val(lcad2),4)+'-'+ STRZERO(Val(lcad3),4)+'-'+ STRZERO(Val(lcad4),4)
ELSE
cFormCta := STRZERO(Val(lcad1),4) + STRZERO(Val(lcad2),4) + STRZERO(Val(lcad3),4) + STRZERO(Val(lcad4),4)
ENDIF
RETURN (cFormCta)



Espero haberte dado la idea de lo que quieras hacer, buen dia amigo.

Saludos y buen dia a todos los amigos

Atte: Adrian C. C.

[Ruben Fernandez]

Gracias Adrián, lo intento.

Saludos y gracias de nuevo.

[FranciscoA]

Hola, mira este post, quizás te sea de ayuda. Fue hecho con FWXH 7.12. A la fecha xbrowse ya tiene todas estas prestaciones.
viewtopic.php?f=6&t=13246&p=109531&hilit=ejemplo+funcional#p109531
Saludos

[Ruben Fernandez]

Gracias Francisco.

Parece ser lo que estaba buscando.
(que seria sin este foro)
Saludos.

[jbrita]

Hola Ruben, te cuento tengo un plan de cuenta q maneja los debe y haber pero con tsbrowse y es configurable los debe y los haber, que significa esto qu el usuarios a veces no sabe cual va al debe y cual va al haber, por lo mismo tengo una tabla de configuracion de cuenta q le digo q cuenta tiene q ir a tal lado y asi el usuario no se preocupar si va al debe o haber si te interesa me avisas

saludos

[albeiroval]

Hola jBrita,

He estado revisando este post y la verdad tambien estoy interesado
en ese ejemplo que nombras.

Si puedes enviarmelo a mi mail "albeiroval@hotmail.com".

Desde ya Muchas Gracias,

Albeiro,

[RSalazarU]

jBrita:

A mi tb me interesa tu ejemplo, por favor si pudieras enviármelo te estaría muy agradecido, mi mail es: SauroSrl@entelnet.bo

Y respecto a los sistemas contables, yo tb desarrolle uno, pueden bajarlo y probarlo desde http://sauro-sys.com/node/3 y podríamos compartir opiniones y así mejorar nuestros productos.

Atentamente,

Rolando
Cochabamba - Bolivia
fwh907 + xharbour 1.2.1 + ADS