CLASS HApp 
  
    DATA nPort     INIT 2812 
    DATA ip 
    DATA nTimeOut  INIT -1 
    DATA DataPath  INIT "" 
    DATA LogFile   INIT "" 
    DATA lLower    INIT .F. 
    DATA lFileFunc INIT .F. 
    DATA lAnyExt   INIT .F. 
    DATA lShare    INIT .F.      // .T. - new mode, which allows share tables with other processes 
    DATA lNoSaveWA INIT .F.      // .T. - new mode, which forces dbUseArea() each time "open table" is demanded 
    DATA nDriver   INIT 0 
    DATA lPass4M   INIT .F. 
    DATA lPass4L   INIT .F. 
    DATA lPass4D   INIT .F. 
    DATA cPassName INIT "leto_users" 
    DATA lCryptTraffic INIT .F. 
    DATA cTrigger 
    DATA cPendingTrigger  
    DATA nMaxVars                
    DATA nMaxVarSize             
    DATA nCacheRecords  INIT 10  
    DATA nTables_max             
    DATA nUsers_max              
    DATA nDebugMode     INIT 0   
    DATA lOptimize      INIT .F. 
    DATA nAutOrder               
    DATA nMemoType               
    DATA lForceOpt      INIT .F. 
    DATA lSetTrigger    INIT .F. 
    DATA lUDF           INIT .T. 
  
    METHOD New() 
  
 ENDCLASS 
 METHOD New() CLASS HApp 
    LOCAL cIniName := "letodb.ini" 
    LOCAL aIni, i, j, cTemp, cPath, nDriver 
    LOCAL nPort := ::nPort 
 //   LOCAL nMaxVars, nMaxVarSize 
    LOCAL nCacheRecords := ::nCacheRecords 
    LOCAL nTables_max := NIL 
    LOCAL nUsers_max := NIL 
    LOCAL nDebugMode := 0 
 //   LOCAL lOptimize := .F. 
 //   LOCAL nAutOrder 
    LOCAL nMemoType 
 //   LOCAL lForceOpt := .F. 
 //   LOCAL lSetTrigger := .F. 
 //   LOCAL lUDF := .T. 
  
 #ifdef __LINUX__ 
  
    IF File( cDirBase + cIniName ) 
       aIni := rdIni( cDirBase + cIniName ) 
    ELSEIF File( "/etc/" + cIniName ) 
       aIni := rdIni( "/etc/" + cIniName ) 
    ENDIF 
  
 #else 
  
    IF File( cDirBase + cIniName ) 
       aIni := rdIni( cDirBase + cIniName ) 
    ENDIF 
  
 #endif 
  
    IF !Empty( aIni ) 
       FOR i := 1 TO Len( aIni ) 
          IF aIni[i,1] == "MAIN" 
             FOR j := 1 TO Len( aIni[i,2] ) 
                IF aIni[i,2,j,1] == "PORT" 
                   IF ( nPort := Val( aIni[i,2,j,2] ) ) >= 2000 
                      ::nPort := nPort 
                   ENDIF 
                ELSEIF aIni[i,2,j,1] == "IP" 
                   ::ip := aIni[i,2,j,2] 
                ELSEIF aIni[i,2,j,1] == "TIMEOUT" 
                   ::nTimeOut := Val( aIni[i,2,j,2] ) 
                ELSEIF aIni[i,2,j,1] == "DATAPATH" 
                   ::DataPath := StrTran( aIni[i,2,j,2], DEF_CH_SEP, DEF_SEP ) 
                   IF Right( ::DataPath, 1 ) $ DEF_SEP 
                      ::DataPath := Left( ::DataPath, Len( ::DataPath ) - 1 ) 
                   ENDIF 
                ELSEIF aIni[i,2,j,1] == "LOGPATH" 
                   ::LogFile := StrTran( aIni[i,2,j,2], DEF_CH_SEP, DEF_SEP ) 
                   IF !EMPTY( ::LogFile ) 
                      IF Right( ::LogFile, 1 ) != DEF_SEP 
                         ::LogFile += DEF_SEP 
                      ENDIF 
                      leto_setDirBase( ::LogFile ) 
                   ENDIF 
                ELSEIF aIni[i,2,j,1] == "LOWER_PATH" 
                   ::lLower := ( aIni[i,2,j,2] == '1' ) 
                ELSEIF aIni[i,2,j,1] == "ENABLEFILEFUNC" 
                   ::lFileFunc := ( aIni[i,2,j,2] == '1' ) 
                ELSEIF aIni[i,2,j,1] == "ENABLEANYEXT" 
                   ::lAnyExt := ( aIni[i,2,j,2] == '1' ) 
                ELSEIF aIni[i,2,j,1] == "ENABLEUDF" 
                   ::lUDF := ( aIni[i,2,j,2] == '1' ) 
                ELSEIF aIni[i,2,j,1] == "SHARE_TABLES" 
                   ::lShare := ( aIni[i,2,j,2] == '1' ) 
                ELSEIF aIni[i,2,j,1] == "NO_SAVE_WA" 
                   ::lNoSaveWA := ( aIni[i,2,j,2] == '1' ) 
                ELSEIF aIni[i,2,j,1] == "DEFAULT_DRIVER" 
                   ::nDriver := iif( Lower( aIni[i,2,j,2] ) == "ntx", LETO_NTX, 0 ) 
                ELSEIF aIni[i,2,j,1] == "PASS_FOR_LOGIN" 
                   ::lPass4L := ( aIni[i,2,j,2] == '1' ) 
                ELSEIF aIni[i,2,j,1] == "PASS_FOR_MANAGE" 
                   ::lPass4M := ( aIni[i,2,j,2] == '1' ) 
                ELSEIF aIni[i,2,j,1] == "PASS_FOR_DATA" 
                   ::lPass4D := ( aIni[i,2,j,2] == '1' ) 
                ELSEIF aIni[i,2,j,1] == "PASS_FILE" 
                   ::cPassName := aIni[i,2,j,2] 
                ELSEIF aIni[i,2,j,1] == "CRYPT_TRAFFIC" 
                   ::lCryptTraffic := ( aIni[i,2,j,2] == '1' ) 
                ELSEIF aIni[i,2,j,1] == "MAX_VARS_NUMBER" 
                   ::nMaxVars := Val( aIni[i,2,j,2] )  
                ELSEIF aIni[i,2,j,1] == "MAX_VAR_SIZE" 
                   ::nMaxVarSize := Val( aIni[i,2,j,2] )  
                ELSEIF aIni[i,2,j,1] == "CACHE_RECORDS" 
                   IF ( nCacheRecords := Val( aIni[i,2,j,2] ) ) <= 0 
                      nCacheRecords := 10 
                   ENDIF 
                   ::nCacheRecords := nCacheRecords  
                ELSEIF aIni[i,2,j,1] == "TABLES_MAX" 
                   IF ( nTables_max := Val( aIni[i,2,j,2] ) ) <= 100 .OR. nTables_max > 200000 
                       nTables_max := NIL 
                   ENDIF 
                   ::nTables_max := nTables_max  
                ELSEIF aIni[i,2,j,1] == "USERS_MAX" 
                   IF ( nUsers_max := Val( aIni[i,2,j,2] ) ) <= 10 .OR. nUsers_max > 100000 
                       nUsers_max := NIL 
                   ENDIF 
                   ::nUsers_max := nUsers_max  
                ELSEIF aIni[i,2,j,1] == "DEBUG" 
                   IF ( nDebugMode := Val( aIni[i,2,j,2] ) ) <= 0 
                       nDebugMode := 0 
                   ENDIF 
                   ::nDebugMode := nDebugMode  
                ELSEIF aIni[i,2,j,1] == "OPTIMIZE" 
                   ::lOptimize := ( aIni[i,2,j,2] == '1' )  
                ELSEIF aIni[i,2,j,1] == "AUTORDER" 
                   ::nAutOrder := Val( aIni[i,2,j,2] )  
                ELSEIF aIni[i,2,j,1] == "MEMO_TYPE" 
                   IF Lower( aIni[i,2,j,2] ) = 'dbt' 
                      nMemoType := DB_MEMO_DBT 
                   ELSEIF Lower( aIni[i,2,j,2] ) = 'fpt' 
                      nMemoType := DB_MEMO_FPT 
                   ELSEIF Lower( aIni[i,2,j,2] ) = 'smt' 
                      nMemoType := DB_MEMO_SMT 
                   ENDIF 
                   ::nMemoType := nMemoType  
                ELSEIF aIni[i,2,j,1] == "FORCEOPT" 
                   ::lForceOpt := ( aIni[i,2,j,2] == '1' )  
                ELSEIF aIni[i,2,j,1] == "ENABLESETTRIGGER" 
                   ::lSetTrigger := ( aIni[i,2,j,2] == '1' )  
                ELSEIF aIni[i,2,j,1] == "TRIGGER" 
                   ::cTrigger := aIni[i,2,j,2] 
                ELSEIF aIni[i,2,j,1] == "PENDINGTRIGGER" 
                   ::cPendingTrigger := aIni[i,2,j,2] 
                ENDIF 
             NEXT 
          ELSEIF aIni[i,1] == "DATABASE" 
             cPath := nDriver := Nil 
             FOR j := 1 TO Len( aIni[i,2] ) 
                IF aIni[i,2,j,1] == "DATAPATH" 
                   cPath := StrTran( aIni[i,2,j,2], DEF_CH_SEP, DEF_SEP ) 
                   IF Right( cPath, 1 ) $ DEF_SEP 
                      cPath := Left( cPath, Len( cPath ) - 1 ) 
                   ENDIF 
                ELSEIF aIni[i,2,j,1] == "DRIVER" 
                   nDriver := iif( ( cTemp := Lower( aIni[i,2,j,2] ) ) == "cdx", ; 
                      0, iif( cTemp == "ntx", LETO_NTX, Nil ) ) 
                ENDIF 
             NEXT 
             IF cPath != Nil 
                cPath := StrTran( cPath, DEF_CH_SEP, DEF_SEP ) 
                IF Left( cPath,1 ) != DEF_SEP 
                   cPath := DEF_SEP + cPath 
                ENDIF 
                IF Right( cPath,1 ) != DEF_SEP 
                   cPath += DEF_SEP 
                ENDIF 
                leto_AddDataBase( cPath, iif( nDriver == Nil,::nDriver,nDriver ) ) 
             ENDIF 
          ENDIF 
       NEXT 
    ENDIF 
  
    IF ::lLower 
       SET( _SET_FILECASE, 1 ) 
       SET( _SET_DIRCASE, 1 ) 
    ENDIF 
    IF ::lNoSaveWA 
       ::lShare := .T. 
    ENDIF 
  
    leto_SetAppOptions( iif( Empty(::DataPath ),Nil,::DataPath ), ::nDriver, ::lFileFunc, ; 
          ::lAnyExt, ::lPass4L, ::lPass4M, ::lPass4D, ::cPassName, ::lCryptTraffic, ; 
          ::lShare, ::lNoSaveWA, ::nMaxVars, ::nMaxVarSize, ::nCacheRecords,  ::nTables_max, ::nUsers_max, ; 
          ::nDebugMode, ::lOptimize, ::nAutOrder, ::nMemoType, ::lForceOpt, ::cTrigger, ::cPendingTrigger,  ; 
          ::lSetTrigger, ::lUDF ) 
  
    RETURN Self 
 

 
 FUNCTION UDF_AddRecID( nUserStru, cFieldName, xOrder, aFldVal, xMin ) 
 LOCAL nPos := FieldPos( cFieldName ), nLen, a, p 
 LOCAL xKey, lApp, lOver := .F., xOrd1, xOrd2, nDec 
  
  IF ! Empty( xOrder ) 
     IF Valtype(xOrder) == "A"  
        xOrd1 := xOrder[1] 
        xOrd2 := xOrder[2] 
     ELSE 
        xOrd1 := xOrder 
     ENDIF 
     OrdSetFocus( xOrd1 ) 
  ENDIF 
   
  IF leto_TableLock( nUserStru, 1 ) 
  
     dbGoBottom() 
     xKey := FieldGet( nPos ) 
     IF Empty(xKey) .and. ! Empty(xMin) 
        xKey := xMin 
        IF ValType( xKey ) == "C" 
           nLen := hb_FieldLen( nPos ) 
           If left(xKey, 1) == "0" .and. ! "." $ xKey 
              xKey := left(xKey+space(nLen), nLen) 
           Else 
              xKey := right(space(nLen)+xKey, nLen) 
           EndIf 
        ENDIF 
     ENDIF 
  
     IF ValType( xKey ) == "N" 
        xKey ++ 
        IF hb_FieldType(nPos) $ 'NF' 
           lOver := xKey > Val( Replicate( "9", hb_FieldLen( nPos ) ) ) 
        ELSEIF hb_FieldLen( nPos ) == 2 
           lOver := xKey > 0x7FFF 
        ELSEIF hb_FieldLen( nPos ) == 4 
           lOver := xKey > 0x7FFFFFFF 
        ENDIF 
     ELSEIF ValType( xKey ) == "C" 
        nLen := Len(xKey) 
        If "." $ xKey 
           nDec := nLen - RAt(".", xKey) 
           xKey := Str( Val(xKey) + 1, nLen, nDec ) 
        ElseIf left(xKey, 1) == "0" 
           xKey :=   StrZero( Val(xKey) + 1, nLen ) 
        Else 
           xKey :=       Str( Val(xKey) + 1, nLen ) 
        EndIf 
        lOver := ('*' $ xKey) 
     ENDIF 
  
     IF lOver 
        lApp := .F. 
     ELSE 
        lApp := ( UDF_AddRec( nUserStru, xOrd2 ) != Nil ) 
     ENDIF 
  
     IF lApp 
        If ! empty(aFldVal) 
           FOR EACH a IN aFldValue 
               IF ( p := FieldPos(a[1]) ) > 0 
                  IF ! ( p == nPos .or. hb_FieldType(p) $ "+=^" ) 
                     FieldPut(p, a[2]) 
                  ENDIF 
               ENDIF 
           NEXT 
        EndIf 
        FieldPut( nPos, xKey ) 
        dbCommit() 
     ENDIF 
     leto_TableUnLock( nUserStru, 1 ) 
  ELSE 
     lApp := .F. 
  ENDIF 
  
 RETURN if( lApp, leto_rec( nUserStru ), Nil ) 
     
 FUNCTION UDF_AddRec( nUserStru, xOrder ) 
 LOCAL lApp, lSetDel, xRet 
  
  IF xOrder != Nil 
     OrdSetFocus( xOrder ) 
  ENDIF 
  lSetDel := Set( _SET_DELETED, .f. ) 
  dbGoTop() 
  Set( _SET_DELETED, lSetDel ) 
  IF ! Eof() .and. Deleted() .and. Empty( OrdKeyVal() ) 
     IF( lApp := leto_RecLock( nUserStru ) ) 
        dbRecall() 
     ENDIF 
  ELSE 
     dbAppend() 
     IF ( lApp := ! NetErr() ) 
        leto_RecLock( nUserStru, RecNo() ) 
     ENDIF 
  ENDIF 
  IF lApp 
     xRet := leto_rec( nUserStru ) 
  ENDIF 
  
 RETURN xRet 
  
 на клиенте  
 DO WHILE ! EOF() 
      aRec := RecGet()      // {{cFieldName, xFieldValue}, ... } 
      cRec := Leto_Udf("UDF_AddRecID", 'IDREC', {'IDR', 'DEL'}, aRec) 
      If cRec = Nil 
         ? "error ...." 
      EndIf 
      SKIP 
 ENDDO 
 

 
  Volume in drive D is DATA 
  Volume Serial Number is E86E-69F5 
  
  Directory of D:\BK19\MiniGui\1_PRJ\EAlarm_1.3\INF 
  
 12.02.2024  13:53    <DIR>          . 
 12.02.2024  13:53    <DIR>          .. 
 20.12.2021  21:49    <DIR>          BAK 
 19.12.2021  14:06    <DIR>          BAKS 
 28.06.2022  11:36    <DIR>          BIN 
 06.04.2022  16:29    <DIR>          FDB 
 20.12.2021  22:05    <DIR>          HBK 
 22.12.2021  15:56    <DIR>          KLI 
 21.12.2021  18:44           902 656 leto2011.exe 
 06.04.2022  15:06                71 letodb.ini 
 21.04.2023  16:27               526 letodb.log 
 09.04.2021  06:25         1 450 496 letodbf.exe 
 21.12.2021  17:56               360 letodbf.ini 
 19.04.2023  20:38             1 335 letodbf.log 
 22.12.2021  15:49           899 072 LetoStart.exe 
 22.12.2021  15:51           898 048 LetoStart1.exe 
 19.04.2023  15:30               224 leto_users 
 19.04.2023  15:30               266 leto_users.cfg 
 19.12.2021  14:06    <DIR>          LICENSE 
 18.04.2023  14:22    <DIR>          WRK 
 15.02.2023  01:37    <DIR>          XML 
 12.02.2024  13:53                 0 _0.txt 
 05.04.2023  14:32         2 990 592 _ealarm.exe 
 19.12.2021  15:14               733 _ealarm.ini 
 16.09.2022  17:31               390 _test_ps1.bat 
               14 File(s)      7 144 769 bytes 
               11 Dir(s)  16 562 417 664 bytes free 
  
 LetoDb.ini для Leto2011.exe 
 [MAIN] 
 Share_Tables = 1 
 Port     = 2812 
 DataPath = . 
 PathRun  = . 
  
 LetoDbF.ini для LetoDbF.exe 
 [MAIN] 
 Port = 2816 
 DataPath = .\ 
 Default_Driver = CDX 
 Share_Tables = 1 
 No_Save_WA = 1 
 Lower_Path = 0 
 EnableFileFunc = 1 
 EnableAnyExt = 1 
 Allow_UDF = 1 
 Pass_for_Login = 1 
 Cache_Records = 21 
 Debug = 0 
 Optimize = 1 
 DataBase = / 
 Backup = /tmp/backup 
 Mask = *.dbf,*.dbt,*.ntx 
 Lock = 1 
 Seconds = 30 
 Wait = 1 
 ArcCmd = tar -cvzf /tmp/backup/leto.tar.gz /tmp/backup/* 
  
 рабочее место клиента 
  Volume in drive D is DATA 
  Volume Serial Number is E86E-69F5 
  
  Directory of D:\BK19\MiniGui\1_PRJ\EAlarm_1.3\INF\KLI 
  
 12.02.2024  14:15    <DIR>          . 
 12.02.2024  14:15    <DIR>          .. 
 22.12.2021  15:59    <DIR>          WRK 
 22.12.2021  15:56    <DIR>          XML 
 21.12.2021  17:59         2 982 400 _ealarm.exe 
 22.12.2021  15:55               116 _ealarm.ini 
                3 File(s)      2 982 516 bytes 
                4 Dir(s)  16 562 417 664 bytes free 
  
 ini рабочего места клиента 
 [COM] 
 PathXml   = .\XML     ; directory for excel reporting 
 Host      = 127.0.0.1 ;  
 Port      = 2816      ;