42 lines
1.8 KiB
Plaintext
42 lines
1.8 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.19" SourceFile="C:\DESA\foxbin2prg\TESTS\DATOS_READONLY\fb2p_test_bug_estructural.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*
|
|
DEFINE CLASS cl_form AS form
|
|
*< CLASSDATA: Baseclass="form" Timestamp="2013/12/07 13:49:13" Scale="Pixels" Uniqueid="_3Y01DDRR1" />
|
|
Caption = "Form"
|
|
DoCreate = .T.
|
|
Name = "cl_form"
|
|
|
|
ADD OBJECT 'Command1' AS commandbutton WITH ;
|
|
Caption = "Command1", ;
|
|
Height = 27, ;
|
|
Left = 36, ;
|
|
Name = "Command1", ;
|
|
Top = 32, ;
|
|
Width = 84
|
|
*< END OBJECT: BaseClass="commandbutton" UniqueID="_3Y01DE207" Timestamp="2013/12/07 13:33:15" ZOrder="300" />
|
|
|
|
PROCEDURE Load
|
|
TEXT && COMPROBACIÓN DE CIERRE DE ESTRUCTURA "ENDPROC"
|
|
|
|
*-- Dejando la últim línea sin ENTER se comprueba si el ENDPROC
|
|
*-- se queda pegado a la misma o no por faltar un CR+LF antes del mismo.
|
|
|
|
ENDTEXT && Esto termina sin ENTER.
|
|
ENDPROC
|
|
|
|
PROCEDURE Command1.Click
|
|
TEXT && COMPROBACIÓN DE CIERRE DE ESTRUCTURA "ENDPROC"
|
|
|
|
*-- Dejando la últim línea sin ENTER se comprueba si el ENDPROC
|
|
*-- se queda pegado a la misma o no por faltar un CR+LF antes del mismo.
|
|
|
|
ENDTEXT && Esto termina sin ENTER.
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|