FiveTech Software tech support forums

... lRepaint := .T. nOriWidth := 0 nOriHeight := 0 nWidth := 0 nHeight := 0 nContador := 0 If nResolution = 1 nOriWidth := 640 nOriHeight := 480 ElseIf nResolution = 2 nOriWidth := 800 nOriHeight := 600 ElseIf nResolution = 3 nOriWidth := 1024 nOriHeight := 768 ElseIf nResolution = 4 nOriWidth ...

... ) Return NIL EndIf cFileXls := AllTrim( cFileXls ) If File( cFileXls ) MsgStop("Nombre de archivo ya existe...","Error de Operador") Return NIL ElseIf Empty( cFileXls ) MsgStop("Nombre de archivo no corresponde...","Error de Operador") Return NIL EndIf * parece que esta bueno cFileXls := DEFATMP+"\"+cFileXls+".Xls" ...

... para la tsbrowse: oBrw:bkeydown:={|nk| Teclas(nk,oBrw3,oBrw,walias) } STATIC FUNCTION Teclas(nk,oBrw3,oBrw,walias) if nK==VK_INSERT SALIDAS() elseif nK==VK_F5 oBrw3:Refresh() ; oBrw:Refresh() elseif nK==VK_F6 Copia_Presu() ; Refre3() ; oBrw3:Upstable() ; oBrw3:Refresh() elseif nK==VK_RETURN ...

... NIL FUNCTION FillFiles( aFiles, cDir, cPath ) LOCAL aSubDir,cItem FOR EACH cItem IN cDir IF cItem[5] <> "D" AADD( aFiles, cPath+cItem[1] ) ELSEIF cItem[1] <> "." .AND. cItem[1] <> ".." aSubDir := DIRECTORY( cPath+cItem[1]+"\*.*", "D" ) aFiles:=FillFiles( aFiles ,aSubdir , cPath+cItem[1]+"" ...

... UPPER(LEXT) # "EXE" .AND. UPPER(LEXT) # "ZIP" SETFILEATTRIBUTES(cPath+cItem[1], FILE_ATTRIBUTE_ARCHIVE ) AADD( aFiles, cPath+cItem[1] ) ENDIF ELSEIF cItem[1] <> "." .AND. cItem[1] <> ".." IF SOUSREP aSubDir := DIRECTORY( cPath+cItem[1]+"\*.*", "D" ) aFiles := FillFiles( aFiles ...

... ( ::cAlias )->( recno() ), ::nAt ) default nDirection := 0 if ::lCellStyle if nDirection == 1 if !::lHitTop .and. nRowPrv == 1 nRowPrv ++ endif elseif nDirection == 2 if !::lHitBottom .and. nRowPrv == ::nRowCount() nRowPrv -- endif endif if nRowPrv # ::nRowPos if upper( ::cAlias ) != "ARRAY" ...

... == 2 // headers and footers nClr := GetSysColor( 15 ) if nStyle == 1 .and. nFtr # NIL if nFtr == nCol nClr := nRGB( 192, 192, 192 ) endif endif elseif nStyle == 3 // active cells nClr := GetSysColor( 13 ) if ( ::lCellStyle .and. nCol == ::nColAct ) .or. !::lCellStyle if oSel <> NIL .and. ...