Página 5 de 83. A exibir 823 resultados (0.39 segundos)
DBCommit
das instruções. Exemplos destas funções: DBGoTop(), DBSeek(), Recno(), DBAppend() etc. Exemplos FUNCTION Example() Local cT1 := "T1" TCLink() DBCreate("T1", {{"FIELD_NAME", "C", 10, 0},; {"FIELD_TYPE", "C", 10, 0}}, "TOPCONN") DBUseArea(.F., 'TOPCONN', cT1, (cT1), .F., .TDBAppend
', {{"FIELD_NAME", "C", 10, 0}, ; {"FIELD_TYPE" , "C", 10, 0}}, 'TOPCONN') RETURN FUNCTION Example() Local cT1 := "T1" TCLink() CreateTable() DBUseArea(.F., 'TOPCONN', cT1, (cT1), .F., .F.) (cT1)->( DBAppend( .F. ) ) (cT1)->FIELD_NAME := "name" (cT1)->FIELD_TYPE := "string" (cT1CTB400FIL - Filtro -- 110938
? ³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If ( CT1->CT1_CLASSE == "1" ) Help ( " ", 1, "CC010SINTE" ) Return ( .F. ) End If Empty( mv_par03 ) Help(" ",1 … nSaldoAnterior := 0 // Suma el saldo anterior de la cuenta de todas las sucursales nSaldoAnterior := SaldoCT7Fil(CT1->CT1_CONTA,mv_par01,mv_par03,mv_par04IndexOrd
de trabalho não selecionada, através de expressão aliasada. Exemplos user function test() local cT1 := "T1" TCLink() if TcCanOpen(cT1) TCDelFile(cT1) endif DBCreate(cT1, {{"T1_COD" , "C", 2, 0}, ; {"T1_NAME", "C", 10, 0}}, "TOPCONN") DBUseArea(.T., "TOPCONN", cT1OrdBagName
() local cT1 := "T1" TCLink() if TCCanOpen(cT1) TCDelFile(cT1) endif DBCreate(cT1, {{"T1_COD" , "C", 2, 0}, ; {"T1_NAME", "C", 10, 0}}, "TOPCONN") DBUseArea(.T., "TOPCONN", cT1, (cT1), .F., .F.) DBCreateIndex("T1INDEX1", "T1_COD" , {|| T1_CODOrdSetFocus
com qualquer uma das RDDs válidas. user function test() local cT1 := "T1" local nI TCLink() if TcCanOpen(cT1) TCDelFile(cT1) endif DBCreate(cT1, {{"T1_COD" , "N", 2, 0}, ; {"T1_NAME" , "C", 10, 0}}, "TOPCONN") DBUseArea(.T., "TOPCONN", cT1, (cT1), .F., .F.) DBCreateIndex("T1INDEX1", "T1_CODDBSetIndex
() local cT1 := "T1" TCLink() if TCCanOpen(cT1) TCDelFile(cT1) endif DBCreate(cT1, {{"FIELD_COD" , "C", 2, 0}, ; {"FIELD_NAME", "C", 10, 0}}, "TOPCONN") DBUseArea(.T., "TOPCONN", cT1, (cT1), .F., .F.) DBCreateIndex("T1INDEX1", "FIELD_COD" , {|| FIELD_CODDBSetOrder
não é desposicionado. Exemplos user function test() local cT1 := "T1" TcLink() if TcCanOpen(cT1) TCDelFile(cT1) endif DBCreate(cT1 … ", cT1, (cT1), .F., .F.) DBCreateIndex("T1INDEX1", "FIELD_COD" , {|| FIELD_COD }) DBCreateIndex("T1INDEX2", "FIELD_COD+FIELD_NAMEDBOrderNickname
: "Work area not in use" e será retornado falso (.F.). Exemplos user function test() local cT1 := "T1" TcLink() if TcCanOpen(cT1) TCDelFile(cT1) endif DBCreate(cT1, {{"FIELD_COD" , "C", 2, 0}, ; {"FIELD_NAME", "C", 10, 0}}, "TOPCONN") DBUseArea(.F., "TOPCONN", cT1, (cT1), .F., .FIndexKey
not in use. Exemplos user function test() local cT1 := "T1" TCLink() if TcCanOpen(cT1) TCDelFile(cT1) endif DBCreate(cT1, {{"T1_COD" , "C", 2, 0}, ; {"T1_NAME", "C", 10, 0}}, "TOPCONN") DBUseArea(.T., "TOPCONN", cT1, (cT1), .F., .F.) DBCreateIndex