forum.clarionlife.net

Код: Выделить всё

worksheet_insert_image(LONG worksheet,LONG row,LONG col,*CSTRING string),LONG,RAW,C,NAME('worksheet_insert_image') 

xlsxwriter.InsertImageOpt  PROCEDURE(LONG row_,LONG col_,STRING string_) 
cstr     &CSTRING

  CODE
    cstr &=new(cstring(len(clip(string_))*2+1))
    cstr = clip(string_)
    ConvertCharSet(cstr,0,65001)
    ret#=worksheet_insert_image(SELF.ActiveWorksheet,row_-1,col_-1,cstr)
    dispose(cstr); 
    return ret#

Код: Выделить всё

worksheet_insert_image_opt(LONG worksheet,LONG row,LONG col,*CSTRING string,*CSTRING options),LONG,RAW,C,NAME('worksheet_insert_image_opt')

Код: Выделить всё

form_r routine  !формирование отчета

     do startPrn_r  !начать печать

     FsPrimary:Param(1)
     FsRep.PrgViewRTF=PAR:PrgBlancsEdit
     do bind_r

     loc:nameDet='Шапка' ; do print_r

     clear(SotGr:record,-1)
     set(SotGr:keyName,SotGr:keyName)
     loop
         next(sotrGr)
         if error()
            break
         .
         if Loc:Gr>0 and Loc:Gr<>SotGr:ID
            cycle
         .

         loc:nameDet='Группа' ; do print_r

         clear(sot:record,-1)
         sot:IDGr=sotGr:ID
         if Loc:Sort=1
            set(Sot:keyKodGr,Sot:keyKodGr)
         else
            set(Sot:keyNameGr,Sot:keyNameGr)
         .

         loop
              next(sotr)
              if error() or sot:IDGr<>sotGr:ID
                 break
              .
              loc:nameDet='Строка' ; do print_r
           .
        .

     loc:nameDet='Подвал' ; do print_r

     do endPrn_r  !завершить печать
     do unbind_r