FiveTech Software tech support forums

... LOCAL uvf:=.F. IF GETKEYSTATE(VK_UP) // al pulsar tecla flecha arriba uvf=.T. //te permite salir del GET para regresar al campo GET anterior. ELSEIF EMPTY(CampoGetConTabla) .AND. GETKEYSTATE(VK_RETURN) uvf=.T. //si quieres pasar sin llenar, puedes hacerlo ELSEIF EMPTY(CampoGetConTabla) .AND. ...

... LOCAL uvf:=.F. IF GETKEYSTATE(VK_UP) // al pulsar tecla flecha arriba uvf=.T. //te permite salir del GET para regresar al campo GET anterior. ELSEIF EMPTY(CampoGetConTabla) .AND. GETKEYSTATE(VK_RETURN) uvf=.T. //si quieres pasar sin llenar, puedes hacerlo ELSEIF EMPTY(CampoGetConTabla) .AND. ...

... { |o| If( o:cDataType == 'L', o:SetCheck(), nil ) } ) if nEdit == 1 oBrw:lFastEdit := .t. AEval( oBrw:aCols, { |o| o:nEditType := 1 } ) elseif nEdit == 2 oBrw:bDataRow := { |o,c,l| TDataRow():New( o:uDataSource, c, l ) } endif ...... Todo esto esta planteado al vuelo , como idea, no ...

... nWA, nField, DBS_LEN, @nLen ) ADO_FIELDINFO( nWA, nField, DBS_TYPE, @nType ) IF oRecordSet:Fields( nField - 1 ):Type == adInteger uInfo := 0 ELSEIF nType == "N" //uInfo := Min( Max( 0, nLen - 1 - oRecordSet:Fields( nField - 1 ):DefinedSize ), 15 ) uInfo := oRecordSet:Fields( nField ...

... ::aTitBoton := {"&-Mês", "&+Mês", "< Ano", "Ano >", "Hoje"} ELSEIF ::nLanguage = L_CATALA ::aMESES := { "Gener" , "Febrer" , "Març" ,"Abril",; "Maig" , "Juny" ...

... (OR->prof == DO->(RecNo())) if (Empty(OR->gg_ora) .AND. OR->classe != DA->cla_dis) AAdd(Local7, {or->(RecNo()), ""}) elseif (!Empty(OR->gg_ora) .AND. OR->classe != DA->cla_dis) AAdd(Local6, Val(or->gg_ora)) endif or->(dbSkip()) end Local7 e local6 sono ...

... "Courier New" SIZE 14, 10 BOLD DEFINE FONT aFont[ 5 ] NAME "Tahoma" SIZE 0, -12 IF nFonBro == NIL oFonBro := M->oFonAc11 ELSEIF nFonBro == 1 oFonBro := aFont[ 1 ] ELSEIF nFonBro == 2 oFonBro := aFont[ 2 ] ELSEIF nFonBro == 3 oFonBro := aFont[ 3 ] ELSEIF nFonBro == 4 oFonBro ...

... cursor is indented 3 or 4 spaces next line enddo - when you type enddo it is outdented to line up with the do while the same happens for if else elseif endif do case endcase Cheers Colin

... like in DO CASE statements. In xHarbour SWITCH does not use such jump table and generated PCODE is similar to the one used for DO CASE or IF / ELSEIF and only the main switch value calculation is optimized and reused for all statements so speed improvement is relatively small. In xHarbour instead ...

This is a little routine to get the version # of that latest version of office still installed. nVer := MSOfficeVer() if nVer = 0 // Not installed elseif nVer := 14 // Office 2010 endif function MSOfficeVer()   local oReg, nVer := 0   local nCounter, cPath, cKey  ...

... += (" " + e:description) end // add either filename or operation if !Empty(e:filename) cMessage += (": " + e:filename) elseif !Empty(e:operation) cMessage += (": " + e:operation) end return (cMessage)

... "Courier New" SIZE 14, 10 BOLD DEFINE FONT aFont[ 5 ] NAME "Tahoma" SIZE 0, -12 IF nFonBro == NIL oFonBro := M->oFonAc11 ELSEIF nFonBro == 1 oFonBro := aFont[ 1 ] ELSEIF nFonBro == 2 oFonBro := aFont[ 2 ] ELSEIF nFonBro == 3 oFonBro := aFont[ 3 ] ELSEIF nFonBro == 4 oFonBro ...

... nCopias=NIL nCopias=1 ENDIF PrnSetSize(nAncho*100, nLargo*100) //Creo objeto tprinter IF !lSel_imp .AND. !lPreview PRINT oImp TITLE cNom_Spooler ELSEIF lSel_imp .and. !lPreview PRINT oImp TITLE cNom_Spooler FROM USER ELSEIF !lSel_imp .and. lPreview PRINT oImp TITLE cNom_Spooler PREVIEW ELSEIF ...

... nCopias=NIL nCopias=1 ENDIF PrnSetSize(nAncho*100, nLargo*100) //Creo objeto tprinter IF !lSel_imp .AND. !lPreview PRINT oImp TITLE cNom_Spooler ELSEIF lSel_imp .and. !lPreview PRINT oImp TITLE cNom_Spooler FROM USER ELSEIF !lSel_imp .and. lPreview PRINT oImp TITLE cNom_Spooler PREVIEW ELSEIF ...

... this is not compatible if the user press the numpad keys of keyboard because I need to simulate the click of the button on the dialog sample : elseif nKey == VK_NUMPAD9 oBt9:click() it write the number allways on first position if we digit ( press on numpad) the sequence 123 you see on get ...