Página 10 de 31. A exibir 308 resultados (0.421 segundos)
TCSrvMap
", 10, 0}, ; {"FIELDCOL27", "C", 10, 0}}, "TOPCONN") DBUseArea(.F., 'TOPCONN', cT1, (cT1), .F., .T.) // mapeia … TCLink TCUnlink DBUseArea DBCreate DBCloseArea TCMaxMapMT131VAL - Verificar si se puede generar la cotización
:= ChangeQuery(cQuery) Iif( Select(cMy1Alias) > 0,(cMy1Alias)->(dbCloseArea()),Nil ) dbUseArea( .T., "TOPCONN", TCGenQry( ,,cQuery ), cMy1Alias, .F., .T. ) WhileDT PE NGMNTCC1 Outras atualizacoes apos alteracao do centro de custo e ou centro de trabalho do bem
= '"+xFilial("TAF")+"' AND TAF.D_E_L_E_T_ <> '*'" cQuery := ChangeQuery(cQuery) dbUseArea( .T., "TOPCONN", TCGENQRY(,,cQuery),cAliasQry, .F., .T … <> '*'" cQuery := ChangeQuery(cQuery) dbUseArea( .T., "TOPCONN", TCGENQRY(,,cQuery),cAliasQry, .F., .T.) dbSelectArea(cAliasQry) dbGoTop() If !EofTCSetParam
'" DBUseArea( .T., cRDD, TCGenQry( , , cQuery ), (cAlias), .F., .T. ) conout( (cAlias)->CNT ) // Vai exibir: 1 DBCloseArea() // Pega o valor do parâmetro "PARAM1" cQuery := "SELECT PARAM_VALUE FROM TOP_PARAM WHERE PARAM_NAME='PARAM1'" DBUseArea( .T., cRDD, TCGenQry( , , cQuery ), (cAlias), .F., .TOX001MF1 - Customização do Resumo do Orçamento
.D_E_L_E_T_=' '" dbUseArea( .T., "TOPCONN", TcGenQry(,,cQuery), cAliasVS4, .T., .T. ) nSrv := 0 Do While … .VS3_NUMORC = '"+VS1->VS1_NUMOSC+"' AND " cQuery += "VS3.D_E_L_E_T_=' '" dbUseArea( .T., "TOPCONN", TcGenQryDBSeek
",10,0}} local nHdl := tcLink() dbCreate(cTable, aStru, cRdd) dbUseArea(.T., cRdd, cTable, (cTable), .F., .F. ) dbCreateIndex('MYINDEX', 'CPOC') for i := 0 to 6 … local cRdd := 'TOPCONN' local cTable := 'MYTABLE' local aStru := {{"CPON","N",10,0}} local nHdl := tcLink() dbCreate(cTable, aStru, cRdd) dbUseArea(.TFieldPut
}, ; {"FIELD_TYPE" , "C", 10, 0}}, 'TOPCONN') RETURN FUNCTION Example() Local cT1 := "T1" TCLink() CreateTable() DBUseArea(.F., 'TOPCONN', cT1 … DBCloseArea() TCUnlink() RETURN Veja também TCLink TCUnlink DBUseArea DBCloseArea DBCreate favouriteFieldBlock
}, ; { "CPOM", "M", 20*1024, 0 } }, cRDD ) // Abre a tabela 1 em modo exclusivo criando uma área de trabalho DBUseArea( .T., cRDD, cTable1 … ) // Desconecta TCUnlink( nHandle1 ) return Veja também DBUseArea DBSelectArea DBStruct FieldPut FieldGet TCSetField favouriteMA330TRB - Manipulação deste arquivo antes do processamento
cQuery += " And D_E_L_E_T_ = ' ' " //filtrar pela thread cQuery += " Group By TRB_FILIAL " cQuery := ChangeQuery(cQuery) dbUseArea( .T … (cQuery) dbUseArea( .T., "TopConn", TCGenQry(,,cQuery), cAlTRB, .F., .F. ) While !(cAlTRB)->(EoF()) TRB->(DbGoTo((cAlTRB)->RECTRBApplication Server - 19.3.0.5
caracteres. Chamado: DTAPPSRV-2171 Incidente: Ao executar um programa AdvPL em um ambiente configurado com SQLite, onde as funções DBCreate ou DBUseArea … : DBUseArea - DB driver not initialized. on LOADREPBD(CFGX012.PRW) 14/02/2020 17:45:16 line : 587 Solução: Embora seja uma boa prática da linguagem advpl informar a RDD