PC Toledo

Código: Selecionar todos

DEFINE DIALOG oDlg
@ 0,0.5 say "Código: " OF oDlg FONT oFntC
@ 0,9 get ocodigo var MCODIGO PICT mcf_mascpro VALID fExistePro(oDlg) OF oDlg FONT oFntC UPDATE

@ 0.8,0.5 say "Grupo.............: " OF oDlg FONT oFntC
@ 0.8,10 say ogrup var mgrup OF oDlg FONT oFntC UPDATE

@ 1.6,0.5 say "SubGrupo..........: " OF oDlg FONT oFntC
@ 1.6,10 say osubg var msubg OF oDlg FONT oFntC UPDATE

@ 216, 345 BUTTON oBnt2 Prompt "Voltar" SIZE 35,16 PIXEL OF oDlg ACTION (mcodigo := space(mcf_tamcpro),oCodigo:refresh(),oCodigo:setfocus()) FONT oFnt

ACTIVATE DIALOG oDlg CENTER

/////////////////////////////
func fExistePro(oDlg)

local WRet := .t.

MCODIGO = if(mcf_codpro="S",strzero(VAL(MCODIGO),mcf_tamcpro,0),mcodigo)
oCodigo:Refresh()

SELE PR
SEEK MEMPR+MCODIGO
if !found()
   WRet := .f.
   msgstop("Produto não cadastrado.")
   mcodigo = SPAC(mcf_tamcpro)
   oCodigo:refresh()
endif

if WRet
   fVerPro()
endif

return (WRet)

//////////////////////////////
func fVerPro

SELE pr
MCODIGO = CODITEM
mrec = recno()
oCodigo:Refresh()

mgrup = grupo

sele grupo
seek mgrup
mdescgrup = descricao

sele pr
mgrup = mgrup + " - " + mdescgrup // 0001 - CALCADOS
ogrup:refresh()

return .T.

Código: Selecionar todos

#include "FiveWin.ch"

static oWnd, fntArial, fntRoman

//----------------------------------------------------------------------------//

function Main()

   DEFINE WINDOW oWnd FROM 1, 1 TO 20, 80 ;
      TITLE "Probando Fonts en Pantalla"

   DEFINE FONT fntArial NAME "Arial" SIZE 10, 10
   DEFINE FONT fntRoman NAME "Roman" SIZE  5, 12

   SET MESSAGE OF oWnd ;
      TO OemToAnsi( "FiveWin" )

   ACTIVATE WINDOW oWnd MAXIMIZED ;
      ON INIT ShowControls( Self )

   RELEASE FONT fntArial, fntRoman

return

//----------------------------------------------------------------------------//

function ShowControls( Self )

   local lFiveWin := .t., lClipper5 := .t., lWindows := .t., lOOPS := .t.

   @ 2, 2 BUTTON "&OOPS" OF oWnd ;
      FONT fntArial ;
      ACTION ;
         MsgInfo( OemToAnsi( "Adquiere en Soft>Mail nuestra librer¡a" + Chr( 13 ) + ;
                  "Objects para estudiar y comprender los" + Chr( 13 ) + ;
                  "fundamentos te¢ricos del OOPS" + Chr( 13 ) + ;
                  "y su aplicaci¢n pr ctica en Clipper 5." + Chr( 13 ) + Chr( 13 ) + ;
                  "No te quedes atr s. ­ El OOPS es formidable !" ) )

   @ 5, 2 SAY "Disfruta la potencia" OF oWnd FONT fntArial

   @ 6, 2 SAY OemToAnsi( "de la Programaci¢n Orientada" ) ;
      OF oWnd FONT fntArial

   @ 7, 2 SAY "al Objeto" OF oWnd FONT fntArial

   // Observa que las coordenadas son proporcionales al FONT utilizado
   // Por defecto se utiliza el font de Windows

   @ 6, 5 CHECKBOX lFiveWin  PROMPT "FiveWin" SIZE 200, 30 ;
     OF oWnd FONT fntRoman

   @ 8, 8 CHECKBOX lClipper5 PROMPT "Es Clipper 5" SIZE 200, 30 ;
      OF oWnd FONT fntRoman

   @10, 8 CHECKBOX lWindows  PROMPT "en Windows" SIZE 200, 30 ;
      OF oWnd FONT fntRoman

   @12, 8 CHECKBOX lOOPS     PROMPT "y usando OOPS" SIZE 200, 30 ;
      OF oWnd FONT fntRoman

return

//----------------------------------------------------------------------------//

Código: Selecionar todos

#include "fivewin.ch"
#include "inkey.ch"


function main()

DEFINE FONT oFntC NAME "Courier New" SIZE 0, -12

mcodigo = space(15)
mgrup = "1111"
DEFINE DIALOG oDlg FROM 1,1 TO 350,600 PIXEL
   oDlg:lHelpIcon := .F.

   @ LINS(.95),2 say "Código...: " of oDlg FONT oFntC PIXEL
   @ LINS(.95),COLS(5) get ocodigo var mcodigo valid fExiste(oDlg) of oDlg FONT oFntC PIXEL

   @ LINS(2),2  say "GRUPO ....: " of oDlg FONT oFntC PIXEL
   @ LINS(2),COLS(5) say ogrupo var mgrup of oDlg FONT oFntC PIXEL
   @ LINS(3),2  say "SUBGRUPO..: " of oDlg FONT oFntC PIXEL
   @ LINS(4),2  say "FORNECEDOR: " of oDlg FONT oFntC PIXEL
   @ LINS(5),2  say "DESCRIÇÃO.: " of oDlg FONT oFntC PIXEL
   // @ LINS(X),COLS(X) say strzero(X,2) + " - " + repli("X", 75) of oDlg FONT oFntC PIXEL

   @ 146, 155 BUTTON oBnt1 Prompt "Voltar" SIZE 40,16 PIXEL OF oDlg ACTION (mcodigo := space(10), mgrup := "1111", ogrupo:refresh(), ocodigo:refresh(),ocodigo:setfocus()) FONT oFntC

ACTIVATE DIALOG oDlg CENTER

Return NIL


function fExiste

if empty(mcodigo)
   mgrup = "VAZIO"
   ogrupo:refresh()
   return .f.
endif

mgrup = "0001 - GERAL..."
ogrupo:refresh()

return .t.

function LINS( _nr_row )
return ( _nr_row * 10 )

function COLS( _nr_row )
return ( _nr_row*10 )