Environment versions
Network:
Windows 2003 Server
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