Search the Community
Showing results for tags 'adscdx'.
-
Alguém por gentileza poderia compilar e testar o programa abaixo? Nos meus testes aqui, no segundo BROWSE os dados não aparecem. #include "FiveWin.ch" #include "Ads.ch" function Main() set date british set century on set epoch to 1960 set deleted on set exclusive off SetHandleCount( 155 ) SET 3DLOOK on set autopen off SET OPTIMIZE on REQUEST DBFCDX REQUEST DBFFPT REQUEST DESCEND REQUEST ADS, ADSKeyno, ADSKeycount, AdsGetRelKeyPos, AdsSetRelKeyPos EXTERN ADSKeyno, ADSKeycount, AdsGetRelKeyPos, AdsSetRelKeyPos rddRegister( "ADS", 1 ) SET FILETYPE to CDX ADSLocking( .T. ) set( _SET_MBLOCKSIZE, 33 ) set( _SET_OPTIMIZE, .t. ) SET SERVER local rddsetdefault( "DBFCDX" ) if !file( "TESTE1.DBF" ) dbcreate( "TESTE1.DBF", { { "CODIGO", "C", 3, 0 }, { "DESCRICAO", "C", 30, 0 } }, "DBFCDX" ) use TESTE1 exclusive NEW for N := 1 to 999 TESTE1->( dbappend() ) TESTE1->CODIGO := strzero( N, 3, 0 ) TESTE1->DESCRICAO := replicate( TESTE1->CODIGO, 10 ) next N else use TESTE1 exclusive NEW endif TESTE1->( dbgotop() ) TESTE1->( browse() ) TESTE1->( dbclosearea() ) rddsetdefault( "ADS" ) if !file( "TESTE2.DBF" ) dbcreate( "TESTE2.DBF", { { "CODIGO", "C", 3, 0 }, { "DESCRICAO", "C", 30, 0 } }, "ADSCDX" ) use TESTE2 exclusive NEW for N := 1 to 999 TESTE2->( dbappend() ) TESTE2->CODIGO := strzero( N, 3, 0 ) TESTE2->DESCRICAO := replicate( TESTE2->CODIGO, 10 ) next N else use TESTE2 exclusive NEW endif TESTE2->( dbgotop() ) TESTE2->( browse() ) TESTE2->( dbclosearea() ) return NIL