Página 1 de 1

No entra bien en formulario

Publicado: Lun Sep 10, 2007 4:24 pm
por PILO
Desde el primer formulario que tengo en el menu al elegir el menu
correspondiente, segun este metodo:
IF ::cFImCfEnEntra1 == Nil
::cFImCfEnEntra1 := TFImCfEnEn1():new( Self )
::cFImCfEnEntra1:OnClose := {|| ::cFImCfEnEntra1 := Nil } // Poner a Nil cuando se cierre
ENDIF
if !::oDbfImpreDocu:lOpen
::oDbfImpreDocu:lOpen := .t.
end if
::oDbfImpreDocu:reindex()
::oDbfImpreDocu:OrdSetFocus("tipo")
::oDbfImpreDocu:gotop()
if !::oDbfImpreDocu:seek("COENTRADA1")
::oDbfImpreDocu:FASTADDNEW()
::oDbfImpreDocu:TIPO := "COENTRADA1"
::oDbfImpreDocu:FASTUPDATE()
END IF
WITH OBJECT ::cFImCfEnEntra1
::oDbfImpreDocu:EDIT()
:Showmodal()
if :nModalResult == mrOK
::oDbfImpreDocu:UPDATE()
ELSE
::oDbfImpreDocu:CANCEL()
END IF
:end()
end with
::oDbfImpreDocu:lOpen := .f.
::Refresh( .T. )
al entrar en el formulario ::cFImCfEnEntra1 := TFImCfEnEn1():new( Self )
la primera vez, funciona correctamente. Cuando salgo del formulario y vuelvo
al menu, si vuelvo ha entrar ya se que quedan todos los registros en blanco y
me pide los datos de nuevo, si no existe lo crea la primera vez, pero si estan creado
entra en modo modificación. Es decir que si he creado los datos y salgo del programa
vuelvo a entrar, me aparecen los datos que estaban antres, pero al salir del formulario
y volver ha entrar, tenia que aparecer los datos de nuevo y aparece en blanco.
Alguien me puede decir por que causa puede ser o alguna sugerencia. Gracias
--