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