Código Personalizado

Verán estoy realizando un programa en Visual FoxPro 9.0 y tengo el siguiente problema quiero generar código de la siguiente manera
03-24-0001   = MM-DD-000+
MM = al mes actual, DD = día actual, 000+= un simple código de avance dependiendo de los registros de la tabla si hay 2, pues que incremente 1, 0001, 0002, 0003 así sucesivamente.
Les dejo un código que estuve probando
thisform.habilitar
**habilito todos los textbox
_append=.t.
**con esta variable creo un nuevo registro al guardar
LOCAL nConsecutivo
SELECT pacientes
nConsecutivo = RECCOUNT() + 1
**cuento los registros y agrego uno mas el nuevo que se esta por ingresar
thisform.txtfecha.Value=DATE()
dia=day(thisform.txtfecha.value)
mes=month(thisform.txtfecha.value)
varfecha=(str(mes)+str(dia)+STR(nConsecutivo))
thisform.pageframe1.page1.txtidpa.value=varfecha
**asigno el contenido de la variable al textbox
thisform.pageframe1.page1.txtidpa.SetFocus
**final mente me ubico en el textbox