PC Toledo

Código: Selecionar todos

REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850

ANNOUNCE RDDSYS // IDEM: ANNOUNCE FPTCDX
REQUEST DBFCDX, DBFFPT

FUNCTION Main()

   HB_GCALL( .F. )

   HB_LANGSELECT( 'PT' )
   HB_SETCODEPAGE( "PT850" )
   HB_CDPSELECT( "PTISO" )

   RDDSETDEFAULT("DBFCDX")
   RDDREGISTER( "DBFCDX", 1 )

   SET CENTURY ON
   SET DATE BRITISH
   SET TIME FORMAT TO "HH:MM:SS"
   SET EPOCH TO YEAR( DATE() ) - 30
   SET SOFTSEEK OFF
   SET WRAP ON
   SETCANCEL( .F. )
   SET CONFIRM OFF
   SET DELETED ON
   // SET _3DLOOK ON // FiveWin
   SET UNIQUE OFF
   SET ESCAPE OFF
   SET EXACT ON
   SET EXCLUSIVE OFF
   SET MULTIPLE OFF
   SET OPTIMIZE ON

   ... continua...

   // Saindo

   HB_GCALL( .T. )

RETURN NIL

Código: Selecionar todos

Function Main()
...
...

   ////////////////////////////////////////////////////////////////////////////////////////////
   //Defini‡Æo dos Sets gerais
   SET EXCLUSIVE OFF                  //Abrir arquivos compartilhado
   SET AUTOPEN OFF
   set eventmask  to INKEY_ALL
   SET EPOCH TO 1930                  // prepara datas para o terceiro milˆnio
   SET CENTURY ON                     // datas com informa‡„o do s‚culo DD/MM/AAAA
   SetCancel(.f.)                     // desativa ALT-C/BREAK
   SET DATE BRIT                      // datas no formato 'britasileiro`
   SET EXAC OFF                       // comparacoes parciais habilitadas
   SET SCOREBOARD OFF                 // habilita uso da linha 0
   SET WRAP ON                        // habilita rolagem de menus
   SetKey(K_INS, {||;                  // muda tamanho do cursor quando inserindo
    If(READINSERT(), SetCursor(2), SetCursor(3)),;
    READINSERT(!READINSERT())})

   Set Key K_F5      TO cale          // F5 ativa calendario
   Set Key K_F6      TO maqcalc       // F6 ativa calculadora
   Set Key K_ALT_U   TO NOVIDADE      // ALT-U, ve ULTIMAS NOVIDADES
   //Set Key K_ALT_E   TO ERRO          // mostra erros gravados
   //Set Key K_ALT_F4  TO SAIR          // Sair

   HB_SetCodePage("PT850")   &&& PARA INDEXAR CAMPOS ACENTUADOS
   WVW_SetCodePage(NIL, 255)
   WVW_SetLineSpacing(NIL, 0)
   WVW_SetLSpaceColor(NIL, 0)
   WVW_cbSetFont(NIL, "consolas", 14)  //std: 20-2
   Set(_SET_TRACESTACK, 0)

   wvw_SetMouseMove(, .f.)                    // habilita mouse

   wvw_seticon ( , PathImg + "Scp21H.ico" ) //icone para a janela atual
   wvw_settitle( , 'Scp21H - Sistema de Contabilidade Pública ' )

   wvw_setmaincoord(.T.)
   wvw_SetPaintRefresh(0)                    //redesenho das imagens
   wvw_SetVertCaret(.F.)                     //cursor tipo horizontal
   wvw_enableshortcuts(0, .t.)

   mTelaLargura := Wvw_GetScreenWidth()      //Func o t  com nome errado, deveria ser Width
   mTelaAltura := Wvw_GetScreenHeight()     //Deveria ser Height

   mFonteLargura := Int((mTelaLargura / p_nNormalMaxCol )-.5)
   mFonteAltura := Int((mTelaAltura  / p_nNormalMaxRow )-.5)

   wvw_SetFont( 0, "consolas", mFonteAltura, mFonteLargura, .5, 1 )

   wvw_Maximize( 0 )

   SetMode(p_nNormalMaxRow, p_nNormalMaxCol)

   SetInkeyAfterBlock({|nkey| AfterInkey( nkey ) })
..
...
...
   Return

Código: Selecionar todos

/* // CRITERIO SEU LIGAR, EU LIGARIA
REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850 // PARA INDEXAR CAMPOS ACENTUADOS

ANNOUNCE RDDSYS // IDEM: ANNOUNCE FPTCDX
REQUEST DBFCDX, DBFFPT
*/

Function Main()
...
...

   ////////////////////////////////////////////////////////////////////////////////////////////
   //Defini‡Æo dos Sets gerais
   /*
   SET EXCLUSIVE OFF                  //Abrir arquivos compartilhado
   SET AUTOPEN OFF                    // DESNECESSARIO NAO RECOMENDAD.
   set eventmask  to INKEY_ALL
   SET EPOCH TO 1930                  // prepara datas para o terceiro milˆnio
   SET CENTURY ON                     // datas com informa‡„o do s‚culo DD/MM/AAAA
   SetCancel(.f.)                     // desativa ALT-C/BREAK
   SET DATE BRIT                      // datas no formato 'britasileiro`
   SET EXAC OFF                       // comparacoes parciais habilitadas
   SET SCOREBOARD OFF                 // habilita uso da linha 0
   SET WRAP ON                        // habilita rolagem de menus
   */

   /* // CRITERIO SEU
   HB_LANGSELECT( 'PT' )     // Default language is now Portuguese
   HB_SETCODEPAGE( "PT850" )
   HB_CDPSELECT( "PTISO" )
   */

   /* // CRITERIO SEU
   RDDSETDEFAULT("DBFCDX")
   RDDREGISTER( "DBFCDX", 1 ) // RDT_FULL -> 20/10/2022 Joao
   */

   // COMO EU VEJO A LOGICA:
   SET CENTURY ON
   SET DATE BRITISH
   SET TIME FORMAT TO "HH:MM:SS"
   SET EPOCH TO YEAR( DATE() ) - 30
   SET SOFTSEEK OFF
   SET WRAP ON
   SETCANCEL( .F. )
   SET CONFIRM OFF
   SET DELETED ON
   SET UNIQUE OFF
   // SET ESCAPE OFF  // CRITERIO SEU
   SET EXACT ON       // CONTROLA O :=, = e ==
   SET EXCLUSIVE OFF
   SET MULTIPLE OFF
   SET OPTIMIZE ON
   SET SCOREBOARD OFF
   SET EVENTMASK TO INKEY_ALL

   SetKey(K_INS, {||;                  // muda tamanho do cursor quando inserindo
    IIF(READINSERT(), SetCursor(2), SetCursor(3)),;
    READINSERT(!READINSERT())})

   Set Key K_F5      TO cale          // F5 ativa calendario
   Set Key K_F6      TO maqcalc       // F6 ativa calculadora
   Set Key K_ALT_U   TO NOVIDADE      // ALT-U, ve ULTIMAS NOVIDADES

   //Set Key K_ALT_E   TO ERRO          // mostra erros gravados
   //Set Key K_ALT_F4  TO SAIR          // Sair

   /* CRITERIO SEU, PASSEI PARA ANTES DOS PARAMETROS
   // HB_SetCodePage("PT850")   &&& PARA INDEXAR CAMPOS ACENTUADOS
   // WVW_SetCodePage(NIL, 255)
   */

   WVW_SetLineSpacing(NIL, 0)
   WVW_SetLSpaceColor(NIL, 0)
   WVW_cbSetFont(NIL, "consolas", 14)  //std: 20-2

   // COLOQUE NA AREA DOS SETS... ?? NAO SEI O QUE FAZ. NAO USO SEGUNDA LINHA.
   Set(_SET_TRACESTACK, 0)   

   wvw_SetMouseMove(, .f.)                    // habilita mouse

   wvw_seticon ( , PathImg + "Scp21H.ico" ) //icone para a janela atual
   wvw_settitle( , 'Scp21H - Sistema de Contabilidade Pública ' )

   wvw_setmaincoord(.T.)
   wvw_SetPaintRefresh(0)                    //redesenho das imagens
   wvw_SetVertCaret(.F.)                     //cursor tipo horizontal
   wvw_enableshortcuts(0, .t.)               // ???

   mTelaLargura := Wvw_GetScreenWidth()      //Func o t  com nome errado, deveria ser Width
   mTelaAltura := Wvw_GetScreenHeight()     //Deveria ser Height

   mFonteLargura := Int((mTelaLargura / p_nNormalMaxCol )-.5)
   mFonteAltura := Int((mTelaAltura  / p_nNormalMaxRow )-.5)

   wvw_SetFont( 0, "consolas", mFonteAltura, mFonteLargura, .5, 1 )

   wvw_Maximize( 0 )

   SetMode(p_nNormalMaxRow, p_nNormalMaxCol)

   SetInkeyAfterBlock({|nkey| AfterInkey( nkey ) })  // ??? NAO CAUSA LENTIDAO?
..
...
...
RETURN NIL