Clarion - Ayuda con la herramienta region

!    Hacer plano para coche, colectivo, micro, pasajero

LOOP C#= 101 TO 148

!LE SUMO 100 PARA QUE NO SE MEZCLEN CON OTROS CONTROLES

COL#+=1

IF COL# = 3 THEN COL#=4. !PASILLO :)

IF COL# = 6

COL# = 1

FIL#+=1

END

X# = CREATE(C#, CREATE:button)

IF ERRORCODE() THEN STOP (ERROR()).

X#{PROP:XPOS} = COL# * 30

X#{PROP:YPOS} = FIL# * 12

X#{PROP:TEXT} = C#-100

X#{PROP:BACKGROUND} = COLOR:YELLOW

X#{PROP:SKIP} = True

X#{PROP:LEFT} = True

X#{PROP:WIDTH} = 25

X#{PROP:HEIGHT} = 10

UNHIDE(X#)

END

!ACCEPTED() - 100 y te va a dar el numero de asiento sobre el que se hizo

!click...

!   Para Posicionarce sobre el registro del browse cuando oprime el boton

IF  ACCEPTED() > 100

    GLO:CanAsientos =   ACCEPTED() - 100

    CH2:NumeroContrato  =   CO1:NumeroContrato

    CH2:Asiento         =   GLO:CanAsientos

    SET (CH2:KeyContratoAsiento,CH2:KeyContratoAsiento)

    K#  =   1

    IF  Access:Coches02.Fetch(CH2:KeyContratoAsiento)

        K#  =   0

    END

    IF  K#  =   0

        Select(?Insert:3)

        !CYCLE

    ELSE

        BRW2.ResetFromFile()

        ThisWindow.Reset(2)

        BRW2.StartAtCurrent = True

        Display

        Select(?Change:3)

        !CYCLE

    END

END