FUNCTION Report()
  messbox(" Print list of unprocessed Suppliers' invoices? (y/n) ",1,1,1)
  if ptstr == "n"
    return (-1)
  else				'message "print list of unpaid items"
    vloadif(dpath|"sinvproc.vw")		'
    order change physical
    data query execute "sinvprc1.dfq" index "sinvprc1.idx"
' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
'   not (deleted)
'   and
'   [Posted]=blank
' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
    if cerror
      messboxwait(" No unprocessed Suppliers' invoices",0,0,1)
      return (1)
    elseif [SUN_Period]=blank
      messboxwait(" SUN Acct'g periods NOT entered - amend file",0,0,1)
      return (1)
    else
      remove(X_path|"X_sinvpr.*")
      order sort now dictionary "sinvprc2.idx" fields "[Name]" ascending
      data query execute "not_del.dfq" data-file X_path|"X_sinvpr" fields "[Inv_Date;Inv_Nr;Net_Value;Gross_Value;Name;header;SUN_code;ACC631001;ACC631002;ACC631003;ACC631004;ACC631005;ACC631006;ACC631007;ACC631008;ACC631009;ACC631010]"
      vunloadif("X_sinvpr.vws")
' message "L105\ report rem'd out"
'       _SWIP_Crystal(Xreppath|"sinv_prc","P",0,1,"")
      _SWIP_Crystal(Xreppath|"sinvprc1","P",0,1,"")
    end if
  end if
  return (0)
END FUNCTION 'Report()