Versions des environnements
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
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement