Environment versions
Network:
Windows 2003 Server
Are you sure you mvzona = 10 ?
and are you sure that the selected area is really A ?
>nract is fields
> the code are :
>
>
>***** PROGRAM ACTIN *****
>
>
>PUBLIC MVZONA
>MVZONA=0
>
>ON KEY LABEL F11 DO CPRG\CAUTGEN
>ON KEY LABEL F1 DO PRG\HELP
>KEP='CSCR\actin.SPR'
>KEP1='CSCR\actin1.SPR'
>
>USE CDBF\OPTIUNI SHARED
>MVZONA=ZONA
>USE
>
>
>ON KEY LABEL F8 DO CPRG\CAUTACT
>ON KEY LABEL INS DO CPRG\ADAct
>ON KEY LABEL DEL DO CPRG\DELACT
>
>IF MMODIFIC=.T.
>
>
>
>DO CASE
> CASE MVZONA=10
> SELE A
> USE CDBF\OP1 ORDER NRACT SHARED
>.........
>endcase
>endif
>
>
>ACTIVATE WINDOW ABLAK18
>
>DO WHILE LASTKEY()#27
> DEFINE POPUP PLN9 PROMPT FIELD STR(NRACT,6)+"/"+DTOC(DINREG)+"³"+EMITENT+"³"+CONTINUT
> G=1
> @ 1,1 GET G POPUP PLN9 FUNCTION '&T'
> READ
> CLEAR
> IF LASTKEY()=13
> DO &KEP
> ENDIF
> CLEAR
> ENDDO
> USE
> POP KEY ALL
> DEACTIVATE WINDOW ABLAK18
>RETURN
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only