#include "hbsxdef.ch" 
 ... 
    leto_HrbLoad() 
  
    IF ! EMPTY( oApp:cTrigger ) 
       WrLog( "Trigger "+oApp:cTrigger+" "+_u2s(leto_Driver( oApp:nDriver )) ) 
       HB_RddInfo( RDDI_TRIGGER, oApp:cTrigger, leto_Driver( oApp:nDriver ) ) 
    ENDIF 
    IF ! EMPTY( oApp:cPendingTrigger ) 
       WrLog( "pendingTrigger "+oApp:cTrigger+" "+_u2s(leto_Driver( oApp:nDriver )) ) 
       HB_RddInfo( RDDI_PENDINGTRIGGER, oApp:cPendingTrigger, leto_Driver( oApp:nDriver ) ) 
    ENDIF 
 ... 
 ///////////////////////////////////////////////////////////////////////////////    
 FUNCTION tst_Trigger( nEvent, nArea, nPos, xTrigVal ) 
 LOCAL i := nEvent, j := '', k 
  
  k := _u2s(nEvent)+':'+_u2s(nArea)+':'+_u2s(nPos)+':'+_u2s(xTrigVal) 
  WrLog(procname()+':'+k) 
  
  IF     nEvent == EVENT_POSTUSE                                        // 2 
     dbInfo(DBI_TRIGGER, .F.)  
     j := 'EVENT_POSTUSE' 
     k := _u2s(nEvent)+':'+j+':'+_u2s(nArea)+':'+_u2s(nPos)+':'+_u2s(xTrigVal) 
     WrLog(procname()+':'+k) 
     dbInfo(DBI_TRIGGER, .T.)  
     RETURN .T. 
  ELSEIF nEvent == EVENT_PRECLOSE                                       // 11 
     dbInfo(DBI_TRIGGER, .F.)  
     j := 'EVENT_PRECLOSE' 
     k := _u2s(nEvent)+':'+j+':'+_u2s(nArea)+':'+_u2s(nPos)+':'+_u2s(xTrigVal) 
     WrLog(procname()+':'+k) 
     dbInfo(DBI_TRIGGER, .T.)  
     RETURN .T. 
  ELSEIF nEvent < EVENT_UPDATE .or. nEvent > EVENT_ZAP 
     dbInfo(DBI_TRIGGER, .F.)  
     j := 'EVENT_UPDATE-EVENT_ZAP' 
     k := _u2s(nEvent)+':'+j+':'+_u2s(nArea)+':'+_u2s(nPos)+':'+_u2s(xTrigVal) 
     WrLog(procname()+':'+k) 
     dbInfo(DBI_TRIGGER, .T.)  
     RETURN .T. 
  ENDIF 
  
  dbInfo(DBI_TRIGGER, .F.)  
  DO CASE 
     CASE nEvent == EVENT_UPDATE                                        // 3 
     j := 'EVENT_UPDATE' 
     CASE nEvent == EVENT_APPEND                                        // 4 
     j := 'EVENT_APPEND' 
     CASE nEvent == EVENT_DELETE                                        // 5 
     j := 'EVENT_DELETE' 
     CASE nEvent == EVENT_RECALL                                        // 6 
     j := 'EVENT_RECALL' 
     CASE nEvent == EVENT_PACK                                          // 7 
     j := 'EVENT_PACK' 
     CASE nEvent == EVENT_ZAP                                           // 8 
     j := 'EVENT_ZAP' 
  ENDCASE 
  
  k := _u2s(nEvent)+':'+j+':'+_u2s(nArea)+':'+_u2s(nPos)+':'+_u2s(xTrigVal) 
  WrLog(procname()+':'+k) 
  
 *    CASE nEvent == EVENT_PREUSE                                        // 1 
 *    CASE nEvent == EVENT_POSTUSE                                       // 2 
 *    CASE nEvent == EVENT_PACK                                          // 7 
 *    CASE nEvent == EVENT_ZAP                                           // 8 
 *    CASE nEvent == EVENT_PUT                                           // 9 
 *    CASE nEvent == EVENT_GET                                           // 10 
 *    CASE nEvent == EVENT_PRECLOSE                                      // 11 
 *    CASE nEvent == EVENT_POSTCLOSE                                     // 12 
 *    CASE nEvent == EVENT_PREMEMOPACK                                   // 13 
 *    CASE nEvent == EVENT_POSTMEMOPACK                                  // 14 
  
  dbInfo(DBI_TRIGGER, .T.)  
  
 RETURN .T. 
 ///////////////////////////////////////////////////////////////////////////////    
 STATIC FUNCTION _u2s( uValue ) 
 LOCAL cType := ValType( uValue ) 
  
    IF     cType == "L" 
       RETURN iif( uValue, ".T.", ".F." ) 
    ELSEIF cType == "N" 
       RETURN AllTrim( Str( uValue ) ) 
    ELSEIF cType == "D" 
       RETURN Dtoc( uValue ) 
    ELSEIF cType == "A" 
       RETURN 'ARRAY['+AllTrim( Str( len(uValue) ) )+']' 
    ELSEIF cType == "C" 
       RETURN trim(uValue) 
    ELSEIF cType == "U" 
       RETURN 'NIL' 
    ELSE 
       uValue := 'VALTYPE='+cType 
    ENDIF 
  
 RETURN uValue 
  
 letodb.ini: 
 [Main] 
 Port           = 2812 
 DataPath       = . 
 EnableFileFunc = 1 
 Trigger = tst_Trigger 
 ;PendingTrigger = tst_Trigger 
  
 

 
 #include "wvtwin.ch" 
 #include "hbgtinfo.ch" 
 #include "rddleto.ch" 
 #include "dbinfo.ch" 
  
 REQUEST HB_GT_WVT 
 REQUEST HB_GT_WVT_DEFAULT 
  
 REQUEST HB_CODEPAGE_LV866 
 REQUEST LETO, DBFCDX 
  
 Function Main( cPath ) 
 Local aNames := { "Petr", "Ivan", "Alexander", "Pavel", "Alexey", "Fedor", ; 
    "Konstantin", "Vladimir", "Nikolay", "Andrey", "Dmitry", "Sergey" } 
 Local i, aStru 
 Local cFont 
  
 Field NAME, NUM, INFO, DINFO 
  
  hb_gtInfo( HB_GTI_CODEPAGE, 866) 
  hb_setCodePage( "LV866" ) 
  hb_setTermCP( "LV866" ) 
   
  hb_GtInfo( HB_GTI_FONTNAME   , cFont ) 
  hb_gtInfo( HB_GTI_FONTQUALITY, 3     ) 
  
    RDDSETDEFAULT( "LETO" ) 
  
    SET DATE FORMAT "dd/mm/yy" 
  
    cPath := "//127.0.0.1:2812/temp/" 
  
    ? "Connect to " + cPath + " - " 
    IF ( leto_Connect( cPath ) ) == -1 
       nRes := leto_Connect_Err() 
       IF nRes == LETO_ERR_LOGIN 
          ?? "Login failed" 
       ELSEIF nRes == LETO_ERR_RECV 
          ?? "Recv Error" 
       ELSEIF nRes == LETO_ERR_SEND 
          ?? "Send Error" 
       ELSE 
          ?? "No connection" 
       ENDIF 
       Return Nil 
    ELSE 
       ?? "Ok" 
    ENDIF 
  
    dbCreate( cPath+"test1", { {"NAME"  , "C", 10, 0},  ; 
                               {"NUM"   , "N",  4, 0},  ; 
                               {"INFO"  , "C", 32, 0},  ; 
                               {"DINFO" , "D",  8, 0},  ; 
                               {"TM"    , "@",  8, 0},  ; 
                               {"TS"    , "=",  8, 0},  ; 
                               {"VM"    , "^",  8, 0},  ; 
                               {"ID"    , "+",  4, 0}   ; 
                             } ) 
    ? "File has been created" 
  
    USE ( cPath+"test1" ) New 
    ? "File has been opened", used(), alias() 
    aStru := dbStruct() 
    ? "Fields:", Len( aStru ) 
    FOR i := 1 TO Len( aStru ) 
       ? i, padr(aStru[i,1], 10), aStru[i,2], aStru[i,3], aStru[i,4], hb_FieldType(i) 
    NEXT 
    inkey(0) 
  
    FOR i := 1 TO Len( aNames ) 
       APPEND BLANK 
       REPLACE NAME WITH aNames, NUM WITH i+1000, ; 
          INFO WITH "This is a record number "+Ltrim(Str(i)), ; 
          DINFO WITH Date()+i-1 
 //       dbCommit() 
 //      dbGoto(RecNo()) 
 //      dbSkip(0) 
       dbGoto(RecNo()) 
       ? str(RecNo(), 3), NAME, NUM, TM, TS, VM, ID 
    NEXT 
    ? 
    ? "Records has been added", LastRec() 
    ? "Press any key to finish..." 
    Inkey(0) 
  
 Return Nil 
  
 получаем letodb.log: 
 02/23/15 12:03:17: Leto DB Server has been started. 
  
  
 Leto DB Server v.2.15 ! INIT: DataPath=., ShareTables=0, MaxUsers=500, MaxTables=5000, CacheRecords=10 
  
 02/23/15 12:03:17: Trigger tst_Trigger DBFCDX 
  
 02/23/15 12:18:09: Send STOP to server... 
  
 02/23/15 12:18:12: Server has been closed.