FiveTech Software tech support forums

... 1 ) ) + 1 ) ) CASE ( cType == "N" ) xValue++ CASE ( cType == "D" ) xValue++ ENDCASE xNext := xValue RETURN( xNext ) FUNCTION Moveb(cAlias,cKey,nReg) LOCAL nNext:=0 IF nReg=0 .OR. (cAlias)->(LastRec())=0 .OR. !(&((cAlias)->(IndexKey(0)))=cKey) (cAlias)->(DbSkip(0)) ELSEIF nReg>0 ...

... 1 ) ) + 1 ) ) CASE ( cType == "N" ) xValue++ CASE ( cType == "D" ) xValue++ ENDCASE xNext := xValue RETURN( xNext ) FUNCTION Moveb(cAlias,cKey,nReg) LOCAL nNext:=0 IF nReg=0 .OR. (cAlias)->(LastRec())=0 .OR. !(&((cAlias)->(IndexKey(0)))=cKey) (cAlias)->(DbSkip(0)) ELSEIF nReg>0 ...

... Local oDlg, aBrw, RET:=0, nItem:=1 Local X:=390,Y:=200,ANCHO:=454,ALTO:=140,cTitulo:=oemtoansi("Totales por Pr ctica") Local nReg Local aPractica:={},cCodPra:=(cAlias)->PRACTICA,largo:=0,I:=1,cTipo,cRecno:=(cAlias)->(RECNO()) Local aOrdenado:={},aPrueba:={} DEFAULT cTitulo:="Seleccione..." ...