gestool-sql/Accesscode.prg at master · manuelcalerosolis/gestool-sql · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
#include "FiveWin.ch"
#include "Factu.ch"
#include "Empresa.ch"
#include "HbXml.ch"
#include "Xbrowse.ch"

//---------------------------------------------------------------------------//
//
// Controla los accesos al programa
//

CLASS AccessCode

   CLASSDATA   cAgente           INIT space( 3 )
   CLASSDATA   cRuta             INIT space( 4 )
   CLASSDATA   lFilterByAgent    INIT .f.
   CLASSDATA   lInvoiceModify    INIT .t.
   CLASSDATA   lUnitsModify      INIT .t.
   CLASSDATA   lSalesView        INIT .t.
   CLASSDATA   lAddLote          INIT .f.

   DATA  cGetUser                INIT  Space( 100 )

   DATA  cGetPassword            INIT  Space( 10 )

   DATA  cIniFile                INIT  cIniAplication()

   METHOD loadTableConfiguration()

   METHOD getLogicValueFromIni( cTag, cField, lDefaultValue );
                                 INLINE ( lower( getPvProfString( cTag, cField, lDefaultValue, ::cIniFile ) ) == ".t." )

END CLASS

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

METHOD loadTableConfiguration() CLASS AccessCode

   local cTag

   sysRefresh()

   cTag              := "Tablet"

   if ( "TABLET:" $ appParamsMain() )
      cTag           += right( appParamsMain(), 1 )
   end if

   ::cGetUser        := getPvProfString( cTag, "User",               "",      ::cIniFile )
   ::cGetPassword    := getPvProfString( cTag, "Password",           "",      ::cIniFile )
   ::cAgente         := getPvProfString( cTag, "Agente",             "",      ::cIniFile )
   ::cRuta           := getPvProfString( cTag, "Ruta",               "",      ::cIniFile )

   ::lInvoiceModify  := ::getLogicValueFromIni( cTag, "ModificarFactura",  ".t." )
   ::lUnitsModify    := ::getLogicValueFromIni( cTag, "ModificarUnidades", ".t." )
   ::lFilterByAgent  := ::getLogicValueFromIni( cTag, "FiltrarAgente",     ".f." )
   ::lSalesView      := ::getLogicValueFromIni( cTag, "VisualizarVentas",  ".t." )
   ::lAddLote        := ::getLogicValueFromIni( cTag, "AddLote",           ".f." )

   if empty( ::cGetUser )
      apoloMsgStop( "Código de usuario esta vacio" )
      RETURN ( .f. )
   end if

   if empty( ::cGetPassword )
      apoloMsgStop( "Clave de acceso esta vacia" )
      RETURN ( .f. )
   end if

   Auth():guardWhereCodigo( ::cGetUser )

RETURN ( .t. )

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