PC Toledo

Código: Selecionar todos

POPUP '&Exportação'
         ITEM 'Livro Fiscal de Saída'        ACTION IIF(CkNivel('02001'),CH_CONSOLE( { ||RfSaida() } ), .T. )
         ITEM 'Livro Fiscal de Entrada'      ACTION IIF(CkNivel('02002'),CH_CONSOLE( { ||RfEntrada() } ), .T. )
         SEPARATOR
         ITEM 'Lançamentos Contábeis'        ACTION IIF(CkNivel('02003'),CH_CONSOLE( { ||Automa() } ), .T. )
         SEPARATOR
         ITEM 'Seguradora Averbação'         ACTION IIF(CkNivel('02004'),CH_CONSOLE( { ||TxtSeguro() } ), .T. )
         ITEM 'Intercâmbio - Cliente'        ACTION IIF(CkNivel('02005'),CH_CONSOLE( { ||Interc() } ), .T. )
         SEPARATOR
         ITEM 'Sintegra'                     ACTION IIF(CkNivel('02006'),CH_CONSOLE( { ||Rec_PR() } ), .T. )
         POPUP 'Obrigações PR'
            ITEM 'Crédito de ICMS'           ACTION IIF(CkNivel('02008'),CH_CONSOLE( { ||IcmsSaida() } ), .T. )
            ITEM 'SEAB - SIAGRO'             ACTION IIF(CkNivel('02009'),CH_CONSOLE( { ||Seab_PR() } ), .T. )
         END POPUP
         POPUP 'Obrigações SP'
            ITEM 'Receita'                   ACTION IIF(CkNivel('02011'),CH_CONSOLE( { ||Rec_SP() } ), .T. )
            ITEM 'CREA'                      ACTION IIF(CkNivel('02010'),CH_CONSOLE( { ||CREA_SP() } ), .T. )
         END POPUP
      END POPUP

Código: Selecionar todos

#include "wvtwin.ch"
#include "hbgtinfo.ch"
#include "hbgtwvg.ch"
#include "wvgparts.ch"
#Include 'minigui.ch'
#include 'inkey.ch'

REQUEST HB_GT_WVT

//--------------------------
FUNCTION CH_CONSOLE(b_Block)
//--------------------------

LOCAL zret

DEFINE WINDOW Trava;
       AT 0,0 ;
       WIDTH 100 HEIGHT 30;
       TITLE '.....Em execução.....';
       MODAL;
       NOSIZE;
       NOSYSMENU;
       ON GOTFOCUS FocarJanela('>>> Sagrio <<<');
       ON INIT Jan_Console(b_Block,@zret)

       SetaTeclas('Trava')

       ON KEY CONTROL+V OF Trava ACTION COLAR_CTRL_V()

       // Nao permite fechar a janela com ALT+F4
       ON KEY ALT+F4 OF Trava ACTION PlayBeep()

END WINDOW

CENTER WINDOW Trava

ACTIVATE WINDOW Trava

RETURN(zret)

//--------------------------
STATIC FUNCTION COLAR_CTRL_V
//--------------------------

KEYBOARD( Hb_GtInfo( HB_GTI_CLIPBOARDDATA ) )

RETURN(NIL)

//---------------------------------------
STATIC FUNCTION Jan_Console(b_Block,_ret)
//---------------------------------------

LOCAL pGT, cFont

PRIVATE pNewGT

pNewGT := HB_GTCREATE("WVT")
pGT    := HB_GTSELECT(pNewGT)

HB_GTINFO( HB_GTI_FONTSEL, "Lucida Console")
HB_GTINFO( HB_GTI_FONTWIDTH, 12 )
HB_GTINFO( HB_GTI_FONTSIZE, 28)
HB_GTINFO( HB_GTI_MAXIMIZED      , .F. ) // Maximizar a tela
HB_GTINFO( HB_GTI_RESIZABLE      , .F. ) // Não usar botões de redimensionamento
HB_GTINFO( HB_GTI_ALTENTER       , .F. ) // Não usar ALT+Enter
HB_GTINFO( HB_GTI_CLOSABLE       , .F. ) // inibe o fechamento no X
HB_GTINFO( HB_GTI_RESIZEMODE, HB_GTI_RESIZEMODE_FONT ) /* aumenta o tamanho da letra proporcionalmente */
HB_GTINFO( HB_GTI_SPEC, HB_GTS_WNDSTATE, HB_GTS_WS_MAXIMIZED )
HB_GTINFO( HB_GTI_WINTITLE, ">>> Sagrio <<<" )
HB_GTINFO( HB_GTI_ICONRES, "AppIcon" )
HB_GTINFO( HB_GTI_ISFULLSCREEN, .F. ) // Deixar a tela cheia - estilo DOS
HB_GTINFO( HB_GTI_SELECTCOPY, .T. )

_ret := EVAL( b_Block )

pNewGT := NIL
HB_GTSELECT(pGT)

RELEASE WINDOW Trava

RETURN(NIL)

Código: Selecionar todos

// Define Ambiente
SET GLOBAL HOTKEYS ON
SET MENUSTYLE EXTENDED
SET NAVIGATION STANDARD
SET MENUCURSOR FULL
SET MENUSEPARATOR SINGLE RIGHTALIGN
SET MENUITEM BORDER 3D
SET AUTOADJUST ON
SET BROWSESYNC ON
SETBLINK(.F.)
__SETCENTURY( On )
SET DATE BRITISH
SET( _SET_DATEFORMAT, 'dd/mm/yyyy' )
SET( _SET_EPOCH, 1990     )
SET( _SET_DELETED   , On  )
SET( _SET_SCOREBOARD, Off )
SET( _SET_WRAP,       On  )
SET( _SET_EXCLUSIVE,  Off )
SET( _SET_BELL,       Off )
SET( _SET_EVENTMASK, INKEY_ALL - INKEY_MOVE + HB_INKEY_GTEVENT )
SETCANCEL(.F.)

Código: Selecionar todos

Function main
local dDta := ctod('')
SET DATE BRITISH
SET( _SET_EPOCH, 1990     )
SET( _SET_DATEFORMAT, 'dd/mm/yyyy' )
cls
@ 10,10 get dDta picture "99/99/9999"
read