PC Toledo

Código: Selecionar todos

   @  W(35), H(370) BROWSE oBrwItem DATABASE  ON GETFOCUS {||oRef:SetFocus()} ON POSCHANGE {||oBrwItem:Refresh()};
	                 ON UPDATE {||VerificaProd()};
						  ON KEYDOWN {|oBrwItem, nKey| BrowseDbKey(oBrwItem, nKey) };
						  SIZE W(GetDesktopWidth()-390), H(230) FONT HFont():Add( 'Courier New',0,-12,400,,,) //STYLE WS_VSCROLL + WS_HSCROLL MULTISELECT

Código: Selecionar todos

STATIC FUNCTION BrowseDbKey(oBrwDb, nKey)
*************************************************************
IF nKey == 46  
ELSEIF nKey == 113   //F2
ELSEIF nKey == 114   //F3
ELSEIF nKey == 115   //F4
ELSEIF nKey == 116   //F5
ELSEIF nKey == 117   //F6
ELSEIF nKey == 118   //F7
ELSEIF nKey == 119   //F8
ELSEIF nKey == 120   //F9
   oButton01:SetText("[F3] Conferir Pedido")
	oRef:Enable()
   oQuant:Enable()
   oPreco:Enable()
   oRef:SetFocus()
	Return .T.
ELSEIF nKey == VK_RETURN
END
Return .T.

Código: Selecionar todos

   @ 18,15 GET COMBOBOX oEmpAtiva VAR vEmpAtiva ITEMS iEmpAtiva SIZE 655,25 ON INIT {||VeriqArq()} STYLE CBS_UPPERCASE COLOR 255 FONT HFont():Add( 'Courier New',0,-13,700,,,)

Código: Selecionar todos

IF FILE("Empresa.dbf")
	SELECT 1
   USE EMPRESA NEW Shared
   dbgotop()
   DO WHILE !EOF()
      aadd(aitems,Razao)
      DBSKIP()
   ENDDO
   oEmpAtiva:aitems:=aitems
   RETURN .T.
ELSE