FiveTech Support Forums

Static Func Gera_Orc()
// Função para gerar planilha Excel
//----------------------------------------------------------------------------//
local cProject, cFile, cRota:=cFILEPATH(GETMODULEFILENAME(GETINSTANCE()))
  
  cProject := "PLANILHA "+ORC->nupd+".xls"
  cFile := "PLANILHA ORIGINAL.xls"

  __CopyFile( cFile , cProject )

  oExcel:= TOleauto():New( "Excel.Application")
  if Ole2TxtError() # "S_OK"
     MsgInfo("EXCEL não está instalado nesta máquina."+CRLF+"Impossível gerar planilha","ATENÇÃO")
     return nil
  endif
  oExcel:Workbooks:Open( cRota + cProject )
  oFolha := oExcel:Get( "ActiveSheet")
  sele ORI
  DbGoTop()
  nX:=7;nY:=1
  do while !eof()
     if nY > 26
        nY := 1
        nX += 6
     endif
     sele PRO
     seek ORI->codpro
     sele ORI
     oFolha:Cells(nX, 01):Value := ORI->item
     oFolha:Cells(nX, 02):Value := PRO->nome
     oFolha:Cells(nX, 03):Value := PRO->unid
     oFolha:Cells(nX, 04):Value := int(ORI->quant)
     oFolha:Cells(nX, 05):Value := ORI->preun
     oFolha:Cells(nX, 06):Value := ORI->preco
     ++nX;++nY
     skip
  enddo
  oFolha:Cells( nX+1, 05 ):Value := "TOTAL"
  oFolha:Cells( nX+1, 06 ):Value := "=SOMA(F7:F"+alltrim(str(nX))+")"
  oExcel:Visible = .T.
  DbGoTop()

RETURN NIL