PC Toledo

Código: Selecionar todos

//--------------------------
STATIC FUNCTION CfgLicenca()
//--------------------------

LOCAL xHost, xDB, xUser, xSenha, xPorta, xSenhaAC

Lic->( DBGOTO(1) )
IF Lic->Uso = 'S'
   MsgMenu('Configurações em uso !!!',{'OK'},,IM__ERRO,'ERRO',,,'32 ERR CAN',,,_branco_)
ELSE
   IF RegLock('LIC')
      Lic->Uso        := 'S'
      Lic->( DBCOMMIT() )
      Lic->( DBUNLOCK() )

      xHost    := ALLTRIM(Cripto(Lic->HL ,'R',xEncripta))
      xDB      := ALLTRIM(Cripto(Lic->DBL,'R',xEncripta))
      xUser    := ALLTRIM(Cripto(Lic->UL ,'R',xEncripta))
      xSenha   := ALLTRIM(Cripto(Lic->SL ,'R',xEncripta))
      xPorta   := ALLTRIM(Cripto(Lic->PL ,'R',xEncripta))
      xSenhaAC := IIF(EMPTY(Lic->SAL),"",ALLTRIM(Cripto(Lic->SAL,'R',xEncripta)))

      DEFINE WINDOW CfgLic;
         AT 0,0;
         WIDTH 250;
         HEIGHT 280;
         TITLE "Configuração";
         MODAL;
         NOSIZE;
         NOSYSMENU;
         BACKCOLOR _rosa_1

         DEFINE FRAME frCfgLic1
            ROW 10
            COL 10
            WIDTH 224
            HEIGHT 145
            CAPTION 'CONEXÃO AO BANCO DE DADOS'
            FONTBOLD .T.
            FONTNAME "Arial"
            FONTSIZE 9
            TRANSPARENT .T.
         END FRAME

         DEFINE LABEL LbHost
            ROW 30
            COL 48
            WIDTH 29
            HEIGHT 20
            VALUE "Host:"
            FONTNAME 'Arial'
            FONTSIZE 9
            TRANSPARENT .T.
            VCENTERALIGN .T.
         END LABEL

         DEFINE TEXTBOX eHost
            ROW 30
            COL 82
            WIDTH 131
            HEIGHT 20
            VALUE xHost
            FONTNAME 'Arial'
            FONTSIZE 8
            MAXLENGTH 20
            UPPERCASE .F.
            VCENTERALIGN .T.
            ON ENTER { || CfgLic.eBD.SetFocus }
         END TEXTBOX

         DEFINE LABEL LbBD
            ROW 55
            COL 19
            WIDTH 58
            HEIGHT 20
            VALUE "DataBase:"
            FONTNAME 'Arial'
            FONTSIZE 9
            TRANSPARENT .T.
            VCENTERALIGN .T.
         END LABEL

         DEFINE TEXTBOX eBD
            ROW 55
            COL 82
            WIDTH 131
            HEIGHT 20
            VALUE xDB
            FONTNAME 'Arial'
            FONTSIZE 8
            MAXLENGTH 10
            UPPERCASE .F.
            VCENTERALIGN .T.
            ON ENTER { || CfgLic.eUsu.SetFocus }
         END TEXTBOX

         DEFINE LABEL LbUsu
            ROW 80
            COL 30
            WIDTH 48
            HEIGHT 20
            VALUE "Usuário:"
            FONTNAME 'Arial'
            FONTSIZE 9
            TRANSPARENT .T.
            VCENTERALIGN .T.
         END LABEL

         DEFINE TEXTBOX eUsu
            ROW 80
            COL 82
            WIDTH 95
            HEIGHT 20
            VALUE xUser
            FONTNAME 'Arial'
            FONTSIZE 8
            MAXLENGTH 10
            UPPERCASE .F.
            ON ENTER { || CfgLic.eSen.SetFocus }
            VCENTERALIGN .T.
         END TEXTBOX

         DEFINE LABEL LbSen
            ROW 105
            COL 38
            WIDTH 39
            HEIGHT 20
            VALUE "Senha:"
            FONTNAME 'Arial'
            FONTSIZE 9
            TRANSPARENT .T.
            VCENTERALIGN .T.
         END LABEL

         DEFINE TEXTBOX eSen
            ROW 105
            COL 82
            WIDTH 90
            HEIGHT 20
            VALUE xSenha
            FONTNAME 'Arial'
            FONTSIZE 8
            MAXLENGTH 10
            UPPERCASE .F.
            PASSWORD .T.
            ON ENTER { || CfgLic.ePorta.SetFocus }
            VCENTERALIGN .T.
         END TEXTBOX

         DEFINE LABEL LbPorta
            ROW 130
            COL 45
            WIDTH 34
            HEIGHT 20
            VALUE "Porta:"
            FONTNAME 'Arial'
            FONTSIZE 9
            TRANSPARENT .T.
            VCENTERALIGN .T.
         END LABEL

         DEFINE TEXTBOX ePorta
            ROW 130
            COL 82
            WIDTH 47
            HEIGHT 20
            VALUE xPorta
            FONTNAME 'Arial'
            FONTSIZE 8
            MAXLENGTH 6
            UPPERCASE .F.
            ON ENTER { || CfgLic.eSenAc.SetFocus }
            VCENTERALIGN .T.
         END TEXTBOX

         DEFINE FRAME frCfgLic2
            ROW 160
            COL 10
            WIDTH 224
            HEIGHT 45
            CAPTION 'ACESSO AO LICENCIAMENTO'
            FONTBOLD .T.
            FONTNAME "Arial"
            FONTSIZE 9
            TRANSPARENT .T.
         END FRAME

         DEFINE LABEL LbSenAc
            ROW 180
            COL 38
            WIDTH 39
            HEIGHT 20
            VALUE "Senha:"
            FONTNAME 'Arial'
            FONTSIZE 9
            TRANSPARENT .T.
            VCENTERALIGN .T.
         END LABEL

         DEFINE TEXTBOX eSenAc
            ROW 180
            COL 82
            WIDTH 90
            HEIGHT 20
            VALUE xSenhaAc
            FONTNAME 'Arial'
            FONTSIZE 8
            MAXLENGTH 10
            UPPERCASE .F.
            PASSWORD .T.
            VCENTERALIGN .T.
            ON ENTER { || CfgLic.bt1.SetFocus }
         END TEXTBOX

         DEFINE BUTTONEX bt1
            ROW    218
            COL    69
            WIDTH  75
            HEIGHT 28
            CAPTION "&Grava"
            FONTNAME 'Arial'
            FONTSIZE 8
            PICTURE IM__OK
            ACTION { || GrvCfgLic(), CfgLic.RELEASE }
            NOTRANSPARENT .F.
         END BUTTONEX

         DEFINE BUTTONEX bt3
            ROW    218
            COL    159
            WIDTH  75
            HEIGHT 28
            CAPTION "&Cancela"
            FONTNAME 'Arial'
            FONTSIZE 8
            PICTURE IM__SAIDA2
            ACTION CfgLic.RELEASE
            NOTRANSPARENT .F.
         END BUTTONEX

      END WINDOW

      ON KEY ALT+F4 OF CfgLic ACTION { || CfgLic.RELEASE }
      ON KEY ESCAPE OF CfgLic ACTION { || CfgLic.RELEASE }

      CENTER WINDOW CfgLic
      ACTIVATE WINDOW CfgLic

      RELEASE KEY ALT+F4 OF CfgLic
      RELEASE KEY ESCAPE OF CfgLic

      IF RegLock('LIC')
         Lic->Uso        := 'N'
         Lic->( DBCOMMIT() )
         Lic->( DBUNLOCK() )
      END
   END
END

RETURN(NIL)

Código: Selecionar todos

// Licenciamento dos Clientes
// 17/01/2015

#include "minigui.ch"
#include 'Inkey.ch'
#include 'NetWork.Ch'

REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850
HB_LANGSELECT('PT')
HB_SETCODEPAGE('PT850')

FUNCTION MAIN

PUBLIC  _branco_  := {255,255,255}
PUBLIC  _rosa_1   := {236,233,216}
PUBLIC  _gridCor  := { |val, CellRowIndex| IIF( CellRowIndex/2 == INT(CellRowIndex/2) , { 250,250,210 } , { 255,255,255 } ) }

PUBLIC  xEncripta := 68372

PRIVATE IM__PERGUNTA   := ".\IMG\PERGUNTA.JPG"
PRIVATE IM__ERRO       := ".\IMG\ERRO.JPG"
PRIVATE IM__LICENCA    := ".\IMG\LICENCIAMENTO1.BMP"
PRIVATE IM__SAIDA      := ".\IMG\LICENCIAMENTO2.BMP"
PRIVATE IM__ALTPAD     := ".\IMG\LICENCIAMENTO3.BMP"
PRIVATE IM__SAIDA2     := ".\IMG\SAIDA2.BMP"
PRIVATE IM__ORDUP      := ".\IMG\ORDEMUP.BMP"
PRIVATE IM__ORDDN      := ".\IMG\ORDEMDOWN.BMP"
PRIVATE IM__SAIR       := ".\IMG\SAIDA2.BMP"
PRIVATE IM__OK         := ".\IMG\OK.BMP"
PRIVATE IM__EXCLUIR    := ".\IMG\EXCLUIR.BMP"
PRIVATE IM__INCLUIR    := ".\IMG\INCLUIR.BMP"
PRIVATE IM__ALTERAR    := ".\IMG\ALTERAR.BMP"
PRIVATE IM__FINANCA    := ".\IMG\MOEDAS.BMP"
PRIVATE IM__CALENDARIO := ".\IMG\CALENDARIO.BMP"

PRIVATE IC__OK       := ".\IMG\OK.ICO"
PRIVATE IC__SAIDA    := ".\IMG\SAIDA.ICO"

// Define Ambiente
SETBLINK(.F.)
SET( _SET_DELETED,    .T. )
__SETCENTURY( .T. )
SET( _SET_DATEFORMAT, IIF( __SETCENTURY(), 'dd/mm/yyyy', 'dd/mm/yy' ) )
SET( _SET_EPOCH, 1950     )
SETCANCEL(.F.)
SET MULTIPLE OFF WARNING

DEFINE WINDOW Licenciamento;
   AT 0,0;
   WIDTH 446;
   HEIGHT 98;
   TITLE "SAGRIO - Licenciamento de Clientes";
   ICON "LICENCIAMENTO";
   MAIN;
   NOSIZE;
   NOMAXIMIZE;
   ON INTERACTIVECLOSE { || IIF( MsgMenu('Confirma SAÍDA ???',{'&Sim','&Não'},,IM__PERGUNTA,'Saída',,,'42 ASK CAN',,,_branco_) = 1, .T., .F. ) };
   ON INIT ChecaEnt()
   BACKCOLOR _rosa_1

   DEFINE BUTTONEX bt1
      ROW    5
      COL    5
      WIDTH  140
      HEIGHT 60
      CAPTION "&Clientes"
      FONTNAME "Arial"
      FONTSIZE 10
      PICTURE IM__LICENCA
      ACTION CliLicenca()
      NOTRANSPARENT .F.
   END BUTTONEX

   DEFINE BUTTONEX bt2
      ROW    5
      COL    150
      WIDTH  140
      HEIGHT 60
      CAPTION "Con&figuração"
      FONTNAME "Arial"
      FONTSIZE 10
      PICTURE IM__ALTPAD
      ACTION CfgLicenca()
      NOTRANSPARENT .F.
   END BUTTONEX

   DEFINE BUTTONEX bt3
      ROW    5
      COL    295
      WIDTH  140
      HEIGHT 60
      CAPTION "&Encerra"
      FONTNAME "Arial"
      FONTSIZE 10
      PICTURE IM__SAIDA
      ACTION ConfSaida()
      NOTRANSPARENT .F.
   END BUTTONEX

END WINDOW

ON KEY ESCAPE OF Licenciamento ACTION ConfSaida()

Licenciamento.Center
Licenciamento.Activate

RELEASE KEY ESCAPE OF Licenciamento

DBCLOSEALL()

RETURN( NIL )