PC Toledo

Código: Selecionar todos

DBEDIT(04,05,19,75,aCampo,'TECLAORC',,aTitulo,'Í','³')

Código: Selecionar todos

*******************************************************************************
FUNCTION TECLAPESQ(nMod)
LOCAL GETLIST := {}, nRecno

IF nMod=4

	IF LASTKEY() == 13	 // ENTER

		IF ALIAS()="ORC"
			VENDACUP(IF(ORC->TIPO='P',1,3))
			RETURN(2)
		ELSE
			cVar := aCampo[1]
			cVar := &cVar.
			SETCURSOR(0)
		ENDIF
		RETURN(0)
		
	ELSEIF LASTKEY() == 305   // ALT + N
	
	   IF ALIAS()="ORC"
			VENDACUP(2)
			RETURN(2)
		ELSE
			cVar := aCampo[1]
			cVar := &cVar.
			SETCURSOR(0)
		ENDIF
		RETURN(0)
		
	ELSEIF LASTKEY() == 286 .AND. ALIAS()="PRO"

		APLICAPRO()

	ELSEIF LASTKEY() == K_INS

		// SE ALIAS PRO - CADASTRA NOVO PRODUTO
		IF ALIAS()="PRO"
		
			GETOLD := GETLIST
			GETLIST:= {}
			nRECNOVO := 0
			
			IF ALERT("DESEJA ",{"ALTERAR","CADASTRAR NOVO"})=1
			   ALT_PRO()
			ELSE
			   INC_PRO()
			ENDIF
						
			GETLIST:= GETOLD
			SELE PRO
			IF nRECNOVO != 0
				DBGOTO( nRECNOVO )
			ENDIF
			
		ENDIF
		SETCURSOR(0)
		
	ELSEIF LASTKEY() == K_F6

	   IF ALIAS()='PRO'
		  // PESQUISA CODIGO DE BARRAS
		  PESQCODBARRA()
       ENDIF

	ELSEIF LASTKEY() == K_F11

	   IF ALIAS()='PRO'
		  // PESQUISA CODIGO DE BARRAS
		  PESQREF()
       ENDIF

	ELSEIF LASTKEY() == 27

		IF(VALTYPE(&(aCampo[1])) == "N",cVar := 0,cVar := SPACE(LEN(&(aCampo[1]))))
		SETCURSOR(0)
		RETURN(0)

	ELSEIF LASTKEY() == K_F2

		nRecno 		:= RECNO() 
		cSalvTela 	:= SAVESCREEN(24,00,24,79) 
		nOrd 			:= INDEXORD()
		DBSETORDER(nOrdPes1)
		COR("MENU") 
		@ 24,00 CLEAR TO 24,79
		cPer := IF(VALTYPE(&(aCampo[nF2])) == "C",SPACE(LEN(&(aCampo[nF2]))),0)
		@ 24,10 SAY aTitulo[nF2] + ": " GET cPer PICTURE aPict[nF2] VALID IF(aPict[nF2] == "999999",ZERO(@cPer,6),.T. == .T.)
		nOldCursor := SETCURSOR(2)
		READ

		IF EMPTY(cPer)
			RESTSCREEN(24,00,24,79,cSalvTela) 
			DBSETORDER(nOrd) 
			SETCURSOR(0)
		RETURN(1)

		ENDIF

		IF lZero
			cPer := STRZERO(VAL(cPer),LEN(cPer))
		ENDIF
	
		cPer:= IF(VALTYPE(cPer) == "C",ALLTRIM(cPer),cPer)
		SETCURSOR(nOldCursor)
		COR("MENU")
		@ 24,00 CLEAR TO 4,79
		DBGOTOP()
	
		IF !DBSEEK(cPer,.T.)
	
			BEEP()
			MENSAGEM("Desculpe, "+aTitulo[nF2]+" n„o encontrado !",3)
			DBGOTO(nRecno)
			RESTSCREEN(24,00,24,79,cSalvTela)
			SETCURSOR(0)
	
		ENDIF
	
		RESTSCREEN(24,00,24,79,cSalvTela)
		DBSETORDER(nOrd)
		SETCURSOR(0)
		RETURN(2)

	ELSEIF LASTKEY() == K_F5

		IF llF5

			nRecno		:= RECNO()
			cSalvTela 	:= SAVESCREEN(24,00,24,79)
			nOrd			:= INDEXORD()
			DBSETORDER(nOrdPes2)
			COR("MENU")
			@ 24,00 CLEAR TO 24,79
			nTAMCAMPO 	:= LEN(&(aCampo[nF5]))
			cPer			:= IF( nTAMCAMPO > 40, SPACE(40), SPACE(LEN(&(aCampo[nF5]))))
			@ 24,10 SAY ALLTRIM( LEFT(aTitulo[nF5],15) )+ ": " GET cPer PICTURE aPict[nF5] VALID IF(aPict[nF5] == "999999",ZERO(@cPer,6),.T. == .T.)
			nOldCursor	:= SETCURSOR(2)
			READ

			cPer:= ALLTRIM(cPer)
			SETCURSOR(nOldCursor)
			COR("MENU")
			@ 24,00 CLEAR TO 4,79

			IF EMPTY(cPer)
				RESTSCREEN(24,00,24,79,cSalvTela)
				DBSETORDER(nOrd)
				SETCURSOR(0)
				RETURN(1)
			ENDIF

			cPer := cEspaco+cPer
			DBGOTOP()
			IF !DBSEEK(cPer,.T.)
				BEEP()
				MENSAGEM("Desculpe, "+aTitulo[nF5]+" n„o encontrado !",3)
				DBGOTO(nRecno)
				RESTSCREEN(24,00,24,79,cSalvTela)
				SETCURSOR(0)
			ENDIF
			RESTSCREEN(24,00,24,79,cSalvTela)
			DBSETORDER(nOrd)
			SETCURSOR(0)
			RETURN(2)
		ENDIF
	ENDIF
	RETURN(1)

ELSEIF nMod=1
	// INICIO DO ARQUIVO

	BEEP()
	MENSAGEM("In¡cio da Consulta !",3)
	SETCURSOR(0)
	RETURN(1)

ELSEIF nMod=2

	// FIM DO ARQUIVO
	BEEP()
	MENSAGEM("Fim da Consulta !",3)
	SETCURSOR(0) ; RETURN(1)

ELSEIF nMod=3

	// ARQUIVO VAZIO
	BEEP()
	BEEP()
	MENSAGEM("N„o h  dados cadastrados para consulta !",4)
	SETCURSOR(0) ; RETURN(0)

ENDIF
RETURN(1)

Código: Selecionar todos

GETOLD := AClone( GETLIST )
e
GETLIST:= AClone( GETOLD )