Форум

 oAS:Rows("7:7"):Select()
  oApp:ActiveWindow:FreezePanes := .T. 

Function uOutExcel()
 Local oApp,oWorkBook,oRange,oAS
 Local  N, I, R:=1, C
 AltD()
 TRY
 oApp := CreateObject( "Excel.Application" ) //попытка создать объект Excel
 CATCH
 Alert("Excel не доступен!")
 Return
 END
 AltD()
oWorkBook:=oApp:WorkBooks:Add() 
oAS:=oWorkBook:Worksheets():Add()
oAS:Name:=OemToAnsi("Кредиторы")
oApp:visible:=.T. 
C:=1
oAS:Cells(R,C):NumberFormat := "@" 
oAS:Cells(R,C):value:=OemToAnsi("Всего")
C:=2
oAS:Cells(R,C):NumberFormat := "@"
oAS:Cells(R,C):value:=OemToAnsi("<0")
oAS:Cells(R+1,C):value:=C*100
R:=R+1
For I=1 To 20
 R := R+1
 C:=1
 oAS:Cells(R,C):NumberFormat := "@"
 oAS:Cells(R,C):value:=OemToAnsi('Привет'+ Str(R,5,2))
 C:=2
 oAS:Cells(R,C):value:=R
 oAS:Cells(R,C):Select()
Next
N:='2'
//oAS:Rows(N):Select()
oAS:Rows(N+":"+N):Select()
oApp:ActiveWindow:FreezePanes := .T.
//oApp:visible:=.T. //отобразить Excel
Return 2

#Include "inkey.ch"
Function uTest
 Local AN,D1,D2, D3:= Date(), C :={}, AG:={}, N, I,J,K,Ot:=0, aName, aMng, aShifr, nNomer
 Local M1:=.F., A1 := .F., P1 := .F., fAll:=.t.,nAll:='',U, M2
 Local aSet, aSetKey, bScr, aLastDate, Porog:=0.00,tMng
 Local aS1:=0, aS2:=0, aS3:=0, aS4:=0, aS5:=0, aS6:=0
 Private  C1:=0, C5:=5, C15:=10, C30:=30 // C1-C30 Время просрочки
 Private  S0:=0,S1:=0,S5:=0, S15:=0,S30:=0, S31:=0 // Суммы кредиторки S0- общаяб S1 - до C1 и т.д.
 Private  SP1:=0,SP15:=0,SP30:=0, SP31:=0 // Процент дебеторки S0- общаяб S1 - до C1 и т.д.
 Private _numrec:=1, hnRowAct,rnRowAct ,cMngr:={}, uUser:='', nUser:=''
 Private  aJurist:={'31'}, aEcon:={'52','111'}, aNach:={'46','150'}
 Private dScrInit,dHeads, Mened:='Все'+Space(29), dRef:={'sm',}, dRow:=10, dCol:=15, dPict:={'@S20'}, cDate:=Date()// cDate -  дата расчета
   bScr:=SaveScreen()
   aSet:=SAVESET()
   aSetKey:=SaveSetKey()
   SetKey(K_F5,{||uOutExcel()})
   SetKey(K_F6,{||uPrim()})
   SetKey(K_F9,{||uDet()})
   SetLastKey(0)
   DBPUSH('MPRIM','MPrim')
   DBPUSH('PARTNER','CODE')
   DBPUSH('MDOC','MDOC',,{'UPPER(Sclad+Vid+Type+CodeDoc)','00000221001'})
   MPrim->(OrdSetFocus('Prim_Mng'))
...
     Do While INIT1(.T.).And.INIT2(.T.)
     EndDo
...
Return .T.

 oAS:Cells(R,C):Select()

       oAS:Rows(AllTrim(Str(R0))+":"+AllTrim(Str( R ))):Select()
       oAS:Selection:Rows():Group()

       oAS:Selection:Rows():Group() 

    Rows("4:7").Select
    Selection.Rows.Group
    ActiveSheet.Outline.ShowLevels RowLevels:=1

 oAS:Rows(N+":"+N):Select()

  oAS:Rows(N+":"+N):Select() 

Function uExcel()
 uOutExcel()
 Return

Function uLastRaz()
 Local R, R1, M1:=.F.
 If Select("Main01")=0
 // Главная книга
   Netuse("Main01",LoadPath() + "Main.dbf")
   M1 := .T.
 Else
   DBPush()
   Main01->(SetScope())
 EndIf
 Main01->(OrdSetFocus("KT_SCHET"))
 Main01->(SetScope("UPPER(KT_SCHET+KT_CODE)",Upper('511')))
 Main01->(DbGoBottom())
 Iif( Empty(Main01->DataOper),R := Date()-1,R := Main01->DataOper)
 Main01->(SetScope("UPPER(KT_SCHET+KT_CODE)",Upper('512')))
 Main01->(DbGoBottom())
 Iif( Empty(Main01->DataOper),R1 := Date()-1,R1 := Main01->DataOper)
 Iif(DtoS(R)<=DtoS(R1),R := R1,)
 Main01->(SetScope())
 Iif(M1,Main01->(DbCloseArea()),DBPop())
 Return R


Function uOutExcel()
 Local oApp,oWorkBook,oRange,oAS
 Local  N, I, R:=1, C
 AltD()
 TRY
 oApp := CreateObject( "Excel.Application" ) //попытка создать объект Excel
 CATCH
 Alert("Excel не доступен!")
 Return
 END
AltD()
oWorkBook:=oApp:WorkBooks:Add()
oAS:=oWorkBook:Worksheets():Add()
oAS:Name:=OemToAnsi("Кредиторы")
oApp:visible:=.T.
R:=5
For I=1 To 20
 R := R+1
 C:=1
 oAS:Cells(R,C):NumberFormat := "@"
 oAS:Cells(R,C):value:=OemToAnsi('Привет'+ Str(R,5,2))
 C:=2
 oAS:Cells(R,C):value:=R*10
 oAS:Cells(R,C):Select()
Next
oAS:Rows("7:7"):Select()
oApp:ActiveWindow:FreezePanes := .T.
Return 2

 If Select("Main01")=0
на
 If .T. //Select("Main01")=0

Rows(6).Select
ActiveWindow.FreezePanes = True 

oAS:Cells(R,C):Select()

oRange:=oAS:Range("8:8")
oRange:Select()
oApp:ActiveWindow:FreezePanes := .T.